version 1.130, 2003/01/30 16:14:31
|
version 1.131, 2003/01/30 17:11:02
|
Line 1331 print-token !
|
Line 1331 print-token !
|
: checksynclines ( -- ) |
: checksynclines ( -- ) |
\ when input points to a newline, check if the next line is a |
\ when input points to a newline, check if the next line is a |
\ sync line. If it is, perform the appropriate actions. |
\ sync line. If it is, perform the appropriate actions. |
begin |
rawinput @ begin >r |
rawinput @ >r |
|
s" #line " r@ over compare if |
s" #line " r@ over compare if |
rdrop 1 line +! EXIT |
rdrop 1 line +! EXIT |
endif |
endif |
Line 1344 print-token !
|
Line 1343 print-token !
|
endif |
endif |
dup c@ nl-char <> 0= s" sync line syntax" ?print-error |
dup c@ nl-char <> 0= s" sync line syntax" ?print-error |
skipsynclines @ if |
skipsynclines @ if |
dup char+ rawinput ! |
char+ dup rawinput ! |
rawinput @ c@ cookedinput @ c! |
rawinput @ c@ cookedinput @ c! |
endif |
endif |
drop |
|
again ; |
again ; |
|
|
: ?nextchar ( f -- ) |
: ?nextchar ( f -- ) |