mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-14 02:47:07 +03:00
22 lines
383 B
FortranFixed
22 lines
383 B
FortranFixed
|
C" [DEFINED]" FIND NIP 0=
|
||
|
|
[IF]
|
||
|
|
: [DEFINED] ( -- f ) \ "name"
|
||
|
|
NextWord SFIND IF DROP TRUE ELSE 2DROP FALSE THEN
|
||
|
|
; IMMEDIATE
|
||
|
|
|
||
|
|
: [UNDEFINED] ( -- f ) \ "name"
|
||
|
|
POSTPONE [DEFINED] 0=
|
||
|
|
; IMMEDIATE
|
||
|
|
[THEN]
|
||
|
|
|
||
|
|
: [IFDEF]
|
||
|
|
POSTPONE [DEFINED]
|
||
|
|
0= IF POSTPONE [ELSE] THEN
|
||
|
|
; IMMEDIATE
|
||
|
|
|
||
|
|
: [IFNDEF]
|
||
|
|
POSTPONE [UNDEFINED]
|
||
|
|
0= IF POSTPONE [ELSE] THEN
|
||
|
|
; IMMEDIATE
|
||
|
|
|