- description
-- Words designed to mimic gforth behaviour.
Copyright (C) Guido Draheim 2001 - xxxx. All rights reserved.
description:
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.
-
gforth'
linked
( list -- )\ gforth( | ); | |
: linked here over @ a, swap ! ;
(note: win32forth calls it "link," )
-
gforth'
chained
( xt list -- )\ gforth( | ); | |
generic chains
: chained linked , ;
-
gforth'
chainperform
( list -- )\ gforth( | ); | |
: chainperform BEGIN @ dup WHILE dup cell+ perform REPEAT drop ;
-
gforth'
open-dir
( c_addr u -- wdirid wior )gforth open_dir( | ); | |
will vanish without warning. see gforth documentation.
-
gforth'
read-dir
( c_addr u1 wdirid -- u2 flag wior )gforth read_dir( | ); | |
will vanish without warning. see gforth documentation.
-
gforth'
close-dir
( wdirid -- wior )gforth close_dir( | ); | |
will vanish without warning. see gforth documentation.
-
ENVIRONMENT
GFORTH-DIR
( .. )();
as:"gforth-minus-dir";
( 500 ) constant GFORTH-DIR
an ordinary constant (no special usage info)