core_misc core block

"CORE-Misc Compatibility words"

core_misc FORTH
* quick constants - implemented as code
0

[] no special info, see general notes

FORTH/BASE core_misc ordinary constant

1

[] no special info, see general notes

FORTH/BASE core_misc ordinary constant

2

[] no special info, see general notes

FORTH/BASE core_misc ordinary constant

3

[] no special info, see general notes

FORTH/BASE core_misc ordinary constant

/* more comparision */
* 0<= ( a -- flag )
 simulate    : 0<= 0> 0= ;

FORTH/BASE core_misc ordinary primitive

* 0>= ( a -- flag )
 simulate    : 0>= 0< 0= ;

FORTH/BASE core_misc ordinary primitive

* <= ( a b -- flag )
 simulate    : <= > 0= ;

FORTH/BASE core_misc ordinary primitive

* >= ( a b -- flag )
 simulate    : >= < 0= ;

FORTH/BASE core_misc ordinary primitive

* U<= ( a b -- flag )
 simulate    : U<= U> 0= ;

FORTH/BASE core_misc ordinary primitive

* U>= ( a b -- flag )
 simulate    : U>= U< 0= ;

FORTH/BASE core_misc ordinary primitive

* UMIN ( a b -- min )

see MIN , MAX and UMAX

FORTH/BASE core_misc ordinary primitive

* UMAX ( a b -- max )

see MAX

FORTH/BASE core_misc ordinary primitive

/* forth distributor info */
* .VERSION ( -- )

show the version of the current PFE system 
 : .VERSION [ ENVIRONMENT ] FORTH-NAME TYPE FORTH-VERSION TYPE ;

FORTH/BASE core_misc ordinary primitive

* .CVERSION ( -- )

show the compile date of the current PFE system 
 : .CVERSION [ ENVIRONMENT ] FORTH-NAME TYPE FORTH-DATE TYPE ;

FORTH/BASE core_misc ordinary primitive

.PFE-DATE

[] no special info, see general notes

FORTH/BASE core_misc forthword synonym

* LICENSE ( -- )

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 ;

FORTH/BASE core_misc ordinary 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.

FORTH/BASE core_misc ordinary primitive

/* parse and place HERE */
* STRING, ( str len -- )

Store a string in data space as a counted string. 
 : STRING, HERE  OVER 1+  ALLOT  PLACE ;

FORTH/BASE core_misc ordinary 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, ;

FORTH/BASE core_misc ordinary primitive

PARSE,"

[] no special info, see general notes

FORTH/BASE core_misc immediate primitive

/* definition checks */ [VOID]

[] no special info, see general notes

FORTH/BASE core_misc immediate constant

DEFINED

[] no special info, see general notes

FORTH/BASE core_misc ordinary 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

FORTH/BASE core_misc immediate primitive

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

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

see [DEFINED]

FORTH/BASE core_misc immediate primitive