[gforth] / gforth / history.fs  

gforth: gforth/history.fs

Diff for /gforth/history.fs between version 1.70 and 1.72

version 1.70, Tue Feb 12 16:44:58 2008 UTC version 1.72, Tue Jul 15 16:11:49 2008 UTC
Line 1 
Line 1 
 \ command line edit and history support                 16oct94py  \ command line edit and history support                 16oct94py
   
 \ Copyright (C) 1995,2000,2003,2004,2005,2006,2007 Free Software Foundation, Inc.  \ Copyright (C) 1995,2000,2003,2004,2005,2006,2007,2008 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 206 
Line 206 
   
 [IFUNDEF] #esc  27 Constant #esc  [THEN]  [IFUNDEF] #esc  27 Constant #esc  [THEN]
   
 : at-deltaxy ( dx dy -- )  base @ >r decimal  : at-deltaxy ( dx dy -- )
       over 0< over 0= and IF  drop abs backspaces  EXIT  THEN
       base @ >r decimal
     ?dup IF      ?dup IF
         #esc emit '[ emit  dup abs 0 .r 0< IF  'A  ELSE  'B  THEN  emit          #esc emit '[ emit  dup abs 0 .r 0< IF  'A  ELSE  'B  THEN  emit
     THEN      THEN


Generate output suitable for use with a patch program
Legend:
Removed from v.1.70  
changed lines
  Added in v.1.72

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help