1b655593ed
FossilOrigin-Name: 8a3b4337b91d6befd06c31fa8b0926ef342ef09f4480b821fa605f5b57235fdb
49 lines
775 B
Markdown
49 lines
775 B
Markdown
# RETRO Cross Reference
|
|
|
|
Definitions
|
|
-----------
|
|
RETRO :name ;
|
|
ANS : name ;
|
|
|
|
|
|
Numbers
|
|
-------
|
|
RETRO #100 #-12
|
|
ANS 100 -12
|
|
|
|
|
|
Characters
|
|
----------
|
|
RETRO $A $D
|
|
ANS CHAR A CHAR D
|
|
|
|
RETRO :foo $A ;
|
|
ANS : foo [CHAR] A ;
|
|
|
|
|
|
Comments
|
|
--------
|
|
RETRO (This_is_a_comment)
|
|
ANS ( This is a comment )
|
|
|
|
|
|
Pointers
|
|
--------
|
|
RETRO &Compiler
|
|
ANS ' Compiler
|
|
RETRO :foo &Heap ;
|
|
ANS : foo ['] Heap ;
|
|
|
|
|
|
Conditionals
|
|
------------
|
|
RETRO (flag) [ 'TRUE ] if
|
|
ANS ( flag ) IF s" TRUE" THEN
|
|
|
|
RETRO (flag) [ 'FALSE ] -if
|
|
ANS ( flag ) NOT IF s" FALSE" THEN
|
|
|
|
RETRO (flag) [ 'TRUE ] [ 'FALSE ] choose
|
|
ANS ( flag ) IF s" TRUE" ELSE s" FALSE" THEN
|
|
|
|
RETRO conditionals can be used outside of definitions, ANS ones can not.
|