[gforth] / gforth / locate.fs  

gforth: gforth/locate.fs

Diff for /gforth/locate.fs between version 1.1 and 1.2

version 1.1, Sun Oct 7 21:51:09 2001 UTC version 1.2, Sat Sep 14 08:20:19 2002 UTC
Line 36 
Line 36 
 : locate ( "name" -- )  s" " last-file $!  bl sword  : locate ( "name" -- )  s" " last-file $!  bl sword
     s" TAGS" r/o open-file throw >r      s" TAGS" r/o open-file throw >r
     BEGIN  r@ tag-line  WHILE      BEGIN  r@ tag-line  WHILE
         s" " line-buf $@ compare 0=          s" " line-buf $@ str=
         IF    r@ get-file          IF    r@ get-file
         ELSE  2dup check-word          ELSE  2dup check-word
             IF  print-location 2drop  r> close-file throw  EXIT  THEN              IF  print-location 2drop  r> close-file throw  EXIT  THEN

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help