version 1.9, 1996/12/28 17:19:25
|
version 1.10, 1997/01/04 16:32:30
|
Line 20
|
Line 20
|
|
|
\ Idea and implementation: Bernd Paysan (py) |
\ Idea and implementation: Bernd Paysan (py) |
|
|
\ Log: ', '- usw. durch [char] ... ersetzt |
|
\ man sollte die unterschiedlichen zahlensysteme |
|
\ mit $ und & zumindest im interpreter weglassen |
|
\ schon erledigt! |
|
\ 11may93jaw |
|
\ name> 0= nicht vorhanden 17may93jaw |
|
\ nfa can be lfa or nfa! |
|
\ find splited into find and (find) |
|
\ (find) for later use 17may93jaw |
|
\ search replaced by lookup because |
|
\ it is a word of the string wordset |
|
\ 20may93jaw |
|
\ postpone added immediate 21may93jaw |
|
\ to added immediate 07jun93jaw |
|
\ cfa, header put "here lastcfa !" in |
|
\ cfa, this is more logical |
|
\ and noname: works wothout |
|
\ extra "here lastcfa !" 08jun93jaw |
|
\ (parse-white) thrown out |
|
\ refill added outer trick |
|
\ to show there is something |
|
\ going on 09jun93jaw |
|
\ leave ?leave somebody forgot UNLOOP!!! 09jun93jaw |
|
\ leave ?leave unloop thrown out |
|
\ unloop after loop is used 10jun93jaw |
|
|
|
HEX |
HEX |
|
|
\ labels for some code addresses |
\ labels for some code addresses |
Line 1164 end-struct interpret/compile-struct
|
Line 1138 end-struct interpret/compile-struct
|
(cfa>int) ; |
(cfa>int) ; |
|
|
: name>comp ( nt -- w xt ) \ gforth |
: name>comp ( nt -- w xt ) \ gforth |
\G @var{w xt} is the compilation token wor the word @var{nt}. |
\G @var{w xt} is the compilation token for the word @var{nt}. |
(name>x) >r dup interpret/compile? |
(name>x) >r dup interpret/compile? |
if |
if |
interpret/compile-comp @ |
interpret/compile-comp @ |
Line 1381 Defer key ( -- c ) \ core
|
Line 1355 Defer key ( -- c ) \ core
|
: bin ( fam1 -- fam2 ) \ file |
: bin ( fam1 -- fam2 ) \ file |
1 or ; |
1 or ; |
|
|
create nl$ 1 c, A c, 0 c, \ gnu includes usually a cr in dos |
|
\ or not unix environments if |
|
\ bin is not selected |
|
|
|
: write-line ( c-addr u fileid -- ior ) \ file |
: write-line ( c-addr u fileid -- ior ) \ file |
dup >r write-file |
dup >r write-file |
?dup IF |
?dup IF |
r> drop EXIT |
r> drop EXIT |
THEN |
THEN |
nl$ count r> write-file ; |
#lf r> emit-file ; |
|
|
\ include-file 07apr93py |
\ include-file 07apr93py |
|
|
Line 1642 max-errors 6 * cells allot
|
Line 1612 max-errors 6 * cells allot
|
: typewhite ( addr u -- ) \ gforth |
: typewhite ( addr u -- ) \ gforth |
\ like type, but white space is printed instead of the characters |
\ like type, but white space is printed instead of the characters |
bounds ?do |
bounds ?do |
i c@ 9 = if \ check for tab |
i c@ #tab = if \ check for tab |
9 |
#tab |
else |
else |
bl |
bl |
then |
then |