"GForth'Like words for applications"

gforth gforth'
* linked ( list -- ) \ gforth
 : linked        here over @ a, swap ! ;
(note: win32forth calls it "link," )

gforth' gforth ordinary primitive

* chained ( xt list -- ) \ gforth

generic chains
 : chained  linked , ;

gforth' gforth ordinary primitive

* chainperform ( list -- ) \ gforth

 : chainperform  BEGIN @ dup WHILE dup cell+ perform REPEAT drop ;

gforth' gforth ordinary primitive

# ifdef PFE_HAVE_DIRENT_H
* open-dir ( c_addr u -- wdirid wior ) gforth open_dir

will vanish without warning. see gforth documentation.

gforth' gforth ordinary primitive

* read-dir ( c_addr u1 wdirid -- u2 flag wior ) gforth read_dir

will vanish without warning. see gforth documentation.

gforth' gforth ordinary primitive

* close-dir ( wdirid -- wior ) gforth close_dir

will vanish without warning. see gforth documentation.

gforth' gforth ordinary primitive

# endif
ENVIRONMENT ENVIRONMENT GFORTH-DIR

[] no special info, see general notes

ENVIRONMENT gforth ordinary constant