gforth

"GForth'Like words for applications"

gforth
Usually the following words are defined to mimic
a certain gforth extension that some application
writers need. They are only added on request, and
they may be removed without warning requesting to
use the functionality provided by pfe itself.

Guido Draheim %derived_by: guidod %

%version: bln_mpt1!1.10 %

GNU LGPL

gforth'

* linked ( list -- ) \ gforth

 : linked        here over @ a, swap ! ;

(note: win32forth calls it "link," )

gforth ordinary primitive

* chained ( xt list -- ) \ gforth

generic chains

 : chained  linked , ;

gforth ordinary primitive

* chainperform ( list -- ) \ gforth

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

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 ordinary primitive

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

will vanish without warning. see gforth documentation.

gforth ordinary primitive

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

will vanish without warning. see gforth documentation.

gforth ordinary primitive

# endif ENVIRONMENT ENVIRONMENT GFORTH-DIR

no special info, see general notes

gforth ordinary constant