show a lisence info - the basic PFE system is licensed under the terms
of the LGPL (Lesser GNU Public License) - binary modules loaded into
the system and hooking into the system may carry another LICENSE

: LICENSE [ ENVIRONMENT ] FORTH-LICENSE TYPE ;

core_miscordinary primitive

*WARRANTY( -- )

show a warranty info - the basic PFE system is licensed under the terms
of the LGPL (Lesser GNU Public License) - which exludes almost any
liabilities whatsoever - however loadable binary modules may hook into
the system and their functionality may have different WARRANTY infos.

core_miscordinary primitive

parse and place HERE

*STRING,( str len -- )

Store a string in data space as a counted string.

: STRING, HERE OVER 1+ ALLOT PLACE ;

core_miscordinary primitive

*PARSE,( "chars" -- )

Store a char-delimited string in data space as a counted
string. As seen in Bawd's

: ," [CHAR] " PARSE STRING, ; IMMEDIATE

this implementation is much different from Bawd's

: PARSE, PARSE STRING, ;

core_miscordinary primitive

FORTH PARSE,"

no special info, see general notes

core_miscimmediate primitive

definition checks

*[VOID]( -- flag )

Immediate FALSE. Used to comment out sections of code.
IMMEDIATE so it can be inside definitions.

core_miscimmediate constant

*DEFINED( "name" -- flag )

Search the dictionary for _name_. If _name_ is found,
return TRUE; otherwise return FALSE. Immediate for use in
definitions.

This word will actually return what FIND returns (the NFA).
does check for the word using find (so it does not throw like ' )
and puts it on stack. As it is immediate it does work in compile-mode
too, so it places its argument in the cs-stack then. This is most
useful with a directly following [IF] clause, so that sth. like
an [IFDEF] word can be simulated through [DEFINED] word [IF]

: DEFINED BL WORD COUNT (FIND-NFA) ;

core_miscordinary primitive

*[DEFINED]( "name" -- flag )

Search the dictionary for _name_. If _name_ is found,
return TRUE; otherwise return FALSE. Immediate for use in
definitions.

[DEFINED] word ( -- nfa|0 ) immediate
does check for the word using find (so it does not throw like ' )
and puts it on stack. As it is immediate it does work in compile-mode
too, so it places its argument in the cs-stack then. This is most
useful with a directly following [IF] clause, so that sth. like
an [IFDEF] word can be simulated through [DEFINED] word [IF]

: [DEFINED] BL WORD FIND NIP ; IMMEDIATE

core_miscimmediate primitive

*[UNDEFINED]( "name" -- flag )

Search the dictionary for _name_. If _name_ is found,
return FALSE; otherwise return TRUE. Immediate for use in
definitions.