[gforth] / gforth / see.fs  

gforth: gforth/see.fs

Diff for /gforth/see.fs between version 1.9 and 1.10

version 1.9, Tue Nov 7 18:06:59 1995 UTC version 1.10, Sun Jan 7 17:22:14 1996 UTC
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 
Line 58 
                 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 
Line 66 
   
 : 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 
Line 202 
 : ahead? ( n -- flag ) 0> ;  : ahead? ( n -- flag ) 0> ;
   
 : c-(compile)  : c-(compile)
         Display? IF s" POSTPONE " Com# .string      Display?
       IF
           s" POSTPONE " Com# .string
                     dup @ look 0= ABORT" SEE: No valid XT"                      dup @ look 0= ABORT" SEE: No valid XT"
                     cell+ count $1F and 0 .string bl cemit          name>string 0 .string bl cemit
                  THEN                   THEN
         cell+ ;          cell+ ;
   
Line 556 
Line 560 
         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
       dup name>string 2 pick wordinfo .string bl cemit bl cemit
         ( XPos @ ) 2 Level !          ( XPos @ ) 2 Level !
         name> >body          name> >body
         C-Pass @ DebugMode = IF ScanMode c-pass ! EXIT THEN      C-Pass @ DebugMode =
       IF
           ScanMode c-pass ! EXIT
       THEN
         ScanMode c-pass ! dup makepass          ScanMode c-pass ! dup makepass
         DisplayMode c-pass ! makepass ;          DisplayMode c-pass ! makepass ;
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help