version 1.61, 2009/09/06 22:43:23
|
version 1.64, 2009/11/29 19:26:47
|
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 |
|
|
|
comp' literal drop alias postpone-literal |
|
comp' 2literal drop alias postpone-2literal |
|
comp' fliteral drop alias postpone-fliteral |
|
comp' sliteral drop alias 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 |
Line 393 previous
|
Line 415 previous
|
|
|
: th ( addr1 u -- addr2 ) |
: th ( addr1 u -- addr2 ) |
cells + ; |
cells + ; |
|
|
|
\ \\\ - skip to end of file |
|
|
|
: \\\ ( -- ) \ gforth |
|
\G skip remaining source file |
|
source-id dup 0> IF |
|
>r r@ file-size throw r> reposition-file throw |
|
BEGIN refill 0= UNTIL postpone \ THEN ; immediate |