[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.112 and 1.116

version 1.112, Tue Dec 28 21:09:47 2004 UTC version 1.116, Thu Jan 6 21:54:17 2005 UTC
Line 1 
Line 1 
 \ definitions needed for interpreter only  \ definitions needed for interpreter only
   
 \ Copyright (C) 1995-2000 Free Software Foundation, Inc.  \ Copyright (C) 1995-2000,2004 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 133 
Line 133 
     dup 0= if      dup 0= if
         false exit          false exit
     endif      endif
     over c@ >r      x@+/string 0 s" '" 2rot string-prefix? ;
     1 /string s" '" 2swap string-prefix?  
     r> 0 rot ;  
   
 : s>unumber? ( addr u -- ud flag )  : s>unumber? ( addr u -- ud flag )
     over c@ '' = if      over c@ '' = if
Line 830 
Line 828 
     \ !! not used...      \ !! not used...
     [char] $ emit base @ swap hex u. base ! ;      [char] $ emit base @ swap hex u. base ! ;
   
 : typewhite ( addr n -- ) \ gforth  
 \G Like type, but white space is printed instead of the characters.  
     \ bounds u+do  
     0 max bounds ?do  
         i c@ #tab = if \ check for tab  
             #tab  
         else  
             bl  
         then  
         emit  
     loop ;  
   
 : -trailing  ( c_addr u1 -- c_addr u2 ) \ string dash-trailing  : -trailing  ( c_addr u1 -- c_addr u2 ) \ string dash-trailing
 \G Adjust the string specified by @i{c-addr, u1} to remove all  \G Adjust the string specified by @i{c-addr, u1} to remove all
 \G trailing spaces. @i{u2} is the length of the modified string.  \G trailing spaces. @i{u2} is the length of the modified string.
Line 964 
Line 950 
   
 : (bootmessage)  : (bootmessage)
     ." Gforth " version-string type      ." Gforth " version-string type
     ." , Copyright (C) 1995-2003 Free Software Foundation, Inc." cr      ." , Copyright (C) 1995-2003,2004 Free Software Foundation, Inc." cr
     ." Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'"      ." Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'"
 [ has? os [IF] ]  [ has? os [IF] ]
      cr ." Type `bye' to exit"       cr ." Type `bye' to exit"
Line 990 
Line 976 
 [ has? file [IF] ]  [ has? file [IF] ]
     os-cold      os-cold
 [ [THEN] ]  [ [THEN] ]
       set-encoding-fixed-width
     'cold      'cold
     init8 chainperform      init8 chainperform
 [ has? file [IF] ]  [ has? file [IF] ]

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help