[gforth] / gforth / kernel / accept.fs  

gforth: gforth/kernel/accept.fs

Diff for /gforth/kernel/accept.fs between version 1.19 and 1.20

version 1.19, Sat Jun 30 23:00:15 2007 UTC version 1.20, Sun Jul 1 20:01:32 2007 UTC
Line 41 
Line 41 
     ' false a, ' false a, ' false a, ' false a,      ' false a, ' false a, ' false a, ' false a,
     ' false a, ' false a, ' false a, ' false a,      ' false a, ' false a, ' false a, ' false a,
   
     ' false a,  
   
 defer insert-char  defer insert-char
 ' (ins) IS insert-char  ' (ins) IS insert-char
 defer everychar  defer everychar
Line 57 
Line 55 
     everychar      everychar
     dup -1 =   IF  drop 4  THEN  \ -1 is EOF      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 $FF =  IF  drop bl cells ctrlkeys + perform  EXIT  THEN  
     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
     insert-char 0 ;      insert-char 0 ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help