[gforth] / gforth / kernel / accept.fs  

gforth: gforth/kernel/accept.fs

Diff for /gforth/kernel/accept.fs between version 1.9 and 1.10

version 1.9, Thu May 10 08:28:32 2001 UTC version 1.10, Thu Jan 2 21:40:22 2003 UTC
Line 47 
Line 47 
   
 : decode ( max span addr pos1 key -- max span addr pos2 flag )  : decode ( max span addr pos1 key -- max span addr pos2 flag )
   everychar    everychar
       dup -1 =   IF  drop 4  THEN  \ -1 is EOF
   dup #del = IF  drop #bs  THEN  \ del is rubout    dup #del = IF  drop #bs  THEN  \ del is rubout
   dup bl u<  IF  cells ctrlkeys + perform  EXIT  THEN    dup bl u<  IF  cells ctrlkeys + perform  EXIT  THEN
   \ check for end reached    \ check for end reached

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