version 1.9, 1995/11/07 18:06:59
|
version 1.10, 1996/01/07 17:22:14
|
Line 25
|
Line 25
|
|
|
\ Ideas: Level should be a stack |
\ Ideas: Level should be a stack |
|
|
|
require termsize.fs |
|
|
decimal |
decimal |
|
|
\ Screen format words 16may93jaw |
\ Screen format words 16may93jaw |
Line 56 DEFER nlcount ' noop IS nlcount
|
Line 58 DEFER nlcount ' noop IS nlcount
|
XPos @ Level @ = ?Exit |
XPos @ Level @ = ?Exit |
C-Formated @ IF |
C-Formated @ IF |
C-Output @ |
C-Output @ |
IF C-Clearline @ IF 80 XPos @ - spaces |
IF C-Clearline @ IF cols XPos @ - spaces |
ELSE cr THEN |
ELSE cr THEN |
1 YPos +! 0 XPos ! |
1 YPos +! 0 XPos ! |
Level @ spaces |
Level @ spaces |
Line 64 DEFER nlcount ' noop IS nlcount
|
Line 66 DEFER nlcount ' noop IS nlcount
|
|
|
: warp? ( len -- len ) |
: warp? ( len -- len ) |
nlflag @ IF (nl) nlflag off THEN |
nlflag @ IF (nl) nlflag off THEN |
XPos @ over + 79 u> IF (nl) THEN ; |
XPos @ over + cols u>= IF (nl) THEN ; |
|
|
: ctype ( adr len -- ) |
: ctype ( adr len -- ) |
warp? dup XPos +! C-Output @ IF type ELSE 2drop THEN ; |
warp? dup XPos +! C-Output @ IF type ELSE 2drop THEN ; |
Line 200 VARIABLE C-Pass
|
Line 202 VARIABLE C-Pass
|
: ahead? ( n -- flag ) 0> ; |
: ahead? ( n -- flag ) 0> ; |
|
|
: c-(compile) |
: c-(compile) |
Display? IF s" POSTPONE " Com# .string |
Display? |
dup @ look 0= ABORT" SEE: No valid XT" |
IF |
cell+ count $1F and 0 .string bl cemit |
s" POSTPONE " Com# .string |
THEN |
dup @ look 0= ABORT" SEE: No valid XT" |
cell+ ; |
name>string 0 .string bl cemit |
|
THEN |
|
cell+ ; |
|
|
: c-lit |
: c-lit |
Display? IF |
Display? IF |
Line 556 DEFER dosee
|
Line 560 DEFER dosee
|
DisplayMode c-pass ! makepass ; |
DisplayMode c-pass ! makepass ; |
: doali here @ .name ." Alias " .name cr |
: doali here @ .name ." Alias " .name cr |
here @ dosee ; |
here @ dosee ; |
: docol S" : " Com# .string |
: docol |
dup cell+ count $1F and 2 pick wordinfo .string bl cemit bl cemit |
S" : " Com# .string |
( XPos @ ) 2 Level ! |
dup name>string 2 pick wordinfo .string bl cemit bl cemit |
name> >body |
( XPos @ ) 2 Level ! |
C-Pass @ DebugMode = IF ScanMode c-pass ! EXIT THEN |
name> >body |
ScanMode c-pass ! dup makepass |
C-Pass @ DebugMode = |
DisplayMode c-pass ! makepass ; |
IF |
|
ScanMode c-pass ! EXIT |
|
THEN |
|
ScanMode c-pass ! dup makepass |
|
DisplayMode c-pass ! makepass ; |
|
|
create wordtypes |
create wordtypes |
Pri# , ' dopri A, |
Pri# , ' dopri A, |