pfe-chain-ext
Prev? | pfe Forth Wordset List | ?Next

## Name

pfe-chain-ext ? chain of executions

## Synopsis

`link, ( some-list* -- ) ?=>? (` | `)`; | ?

`"EXTENSIONS"`;
?

`.chain ( some-chain* -- ) ?=>? (` | `)`; | ?

`"EXTENSIONS"`;
?

`.chains ( -- ) ?=>? (` | `)`; | ?

`"EXTENSIONS"`;
?

`chain-add ( some-chain* "word-to-add" -- ) ?=>? (` | `)`; | ?

`"EXTENSIONS"`;
?

`chain-add-before ( some-chain* "word-to-add" -- ) ?=>? (` | `)`; | ?

`"EXTENSIONS"`;
?

`do-chain ( some-chain* -- ) ?=>? (` | `)`; | ?

`"EXTENSIONS"`;
?

## Description

semicolon-chain ( -- semicolon-chain* ) [EXT] [OLD] * do not use.

link, ( some-list* -- ) [EXT] => "EXTENSIONS"

      : link,        here over @ a, swap ! ;

.chain ( some-chain* -- ) [EXT] => "EXTENSIONS"

show chain - compare with `WORDS`

.chains ( -- ) [EXT] => "EXTENSIONS"

show all chains registered in the system - compare with `VLIST`

chain-add ( some-chain* "word-to-add" -- ) [EXT] => "EXTENSIONS"

add chain item, for normal setup, at end of do-chain

      : chain-add ' &gt;r begin dup @ while @ repeat here swap ! 0 , r&gt; , ;
      ( chain-add begin dup @ while @ repeat  here swap ! 0, ' , )

chain-add-before ( some-chain* "word-to-add" -- ) [EXT] => "EXTENSIONS"

add chain item, for reverse chain like BYE

      : chain-add-before ' &gt;r here over @ , r&gt; , swap ! ;
      ( chain-add-before link, ' , )

do-chain ( some-chain* -- ) [EXT] => "EXTENSIONS"

execute chain

      : do-chain being @ ?dup while dup&gt;r cell+ @execute r&gt; repeat ;

Prev? | Up | ?Next
pfe-cdecl-ext? | Home | ?pfe-chainlist-ext