[gforth] / gforth / history.fs  

gforth: gforth/history.fs

Diff for /gforth/history.fs between version 1.63 and 1.64

version 1.63, Sun Sep 30 19:46:10 2007 UTC version 1.64, Sun Sep 30 20:21:44 2007 UTC
Line 206 
Line 206 
   
 [IFUNDEF] #esc  27 Constant #esc  [THEN]  [IFUNDEF] #esc  27 Constant #esc  [THEN]
   
 : at-deltaxy ( dx dy -- )  : at-deltaxy ( dx dy -- )  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
     ?dup IF      ?dup IF
         #esc emit '[ emit  dup abs 0 .r 0< IF  'D  ELSE  'C  THEN  emit          #esc emit '[ emit  dup abs 0 .r 0< IF  'D  ELSE  'C  THEN  emit
     THEN ;      THEN  r> base ! ;
   
 \ : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;  \ : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;
 \ : at-xy? ( -- x y )  \ : at-xy? ( -- x y )
Line 252 
Line 252 
     2dup chars + r@ swap r@ xc-size xc!+? 2drop drop      2dup chars + r@ swap r@ xc-size xc!+? 2drop drop
     r> xc-size >r  rot r@ chars + -rot r> chars + ;      r> xc-size >r  rot r@ chars + -rot r> chars + ;
 : (xins)  ( max span addr pos1 xc -- max span addr pos2 )  : (xins)  ( max span addr pos1 xc -- max span addr pos2 )
     <xins> .all .rest ;      <xins> key? 0= IF  .all .rest  THEN ;
 : xback  ( max span addr pos1 -- max span addr pos2 f )  : xback  ( max span addr pos1 -- max span addr pos2 f )
     dup  IF  over + xchar- over -  0 max .all .rest      dup  IF  over + xchar- over -  0 max .all .rest
     ELSE  bell  THEN 0 ;      ELSE  bell  THEN 0 ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help