version 1.62, 2009/10/05 15:54:28
|
version 1.63, 2009/11/28 21:19:34
|
Line 148 AUser CSP
|
Line 148 AUser CSP
|
: compile-compile-2literal ( n1 n2 -- ) |
: compile-compile-2literal ( n1 n2 -- ) |
compile-2literal postpone compile-2literal ; |
compile-2literal postpone compile-2literal ; |
|
|
: [[ ( -- ) |
: [[ ( -- ) \ gforth left-bracket-bracket |
\G switch from postpone state to compile state |
\G switch from postpone state to compile state |
\ this is only a marker; it is never really interpreted |
\ this is only a marker; it is never really interpreted |
compile-only-error ; immediate |
compile-only-error ; immediate |
Line 178 AUser CSP
|
Line 178 AUser CSP
|
THEN |
THEN |
then ; |
then ; |
|
|
: ]] ( -- ) |
: ]] ( -- ) \ gforth right-bracket-bracket |
\ switch into postpone state |
\G switch into postpone state |
['] postponer1 is parser1 state on ; immediate restrict |
['] postponer1 is parser1 state on ; immediate restrict |
|
|
|
: postpone-literal postpone literal ; |
|
: postpone-2literal postpone 2literal ; |
|
: postpone-fliteral postpone fliteral ; |
|
: postpone-sliteral postpone sliteral ; |
|
|
|
: ]]L ( postponing: x -- ; compiling: -- x ) \ gforth right-bracket-bracket-l |
|
\G Shortcut for @code{]] literal}. |
|
]] postpone-literal ]] [[ ; immediate |
|
|
|
: ]]2L ( postponing: x1 x2 -- ; compiling: -- x1 x2 ) \ gforth right-bracket-bracket-two-l |
|
\G Shortcut for @code{]] 2literal}. |
|
]] postpone-2literal ]] [[ ; immediate |
|
|
|
: ]]FL ( postponing: r -- ; compiling: -- r ) \ gforth right-bracket-bracket-f-l |
|
\G Shortcut for @code{]] fliteral}. |
|
]] postpone-fliteral ]] [[ ; immediate |
|
|
|
: ]]SL ( postponing: addr1 u -- ; compiling: -- addr2 u ) \ gforth right-bracket-bracket-s-l |
|
\G Shortcut for @code{]] sliteral}; if the string already has been |
|
\G allocated permanently, you can use @code{]]2L} instead. |
|
]] postpone-sliteral ]] [[ ; immediate |
|
|
[then] |
[then] |
|
|
\ f.rdp |
\ f.rdp |