[gforth] / gforth / history.fs  

gforth: gforth/history.fs

Diff for /gforth/history.fs between version 1.59 and 1.60

version 1.59, Sun Jul 1 11:32:44 2007 UTC version 1.60, Sun Jul 1 18:32:11 2007 UTC
Line 205 
Line 205 
   
 : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;  : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ;
 : at-xy? ( -- x y )  : at-xy? ( -- x y )
       key? drop \ make sure prep_terminal() is executed
     #esc emit ." [6n"  0 0      #esc emit ." [6n"  0 0
     BEGIN  key dup 'R <>  WHILE      BEGIN  key dup 'R <>  WHILE
             dup '; = IF  drop  swap  ELSE              dup '; = IF  drop  swap  ELSE

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help