[gforth] / gforth / tags.fs  

gforth: gforth/tags.fs

Diff for /gforth/tags.fs between version 1.11 and 1.13

version 1.11, Thu Dec 31 15:32:35 2009 UTC version 1.13, Fri Dec 31 18:09:02 2010 UTC
Line 1 
Line 1 
 \ VI tags support for GNU Forth.  \ VI tags support for GNU Forth.
   
 \ Copyright (C) 1995,1998,2002,2003,2007,2008,2009 Free Software Foundation, Inc.  \ Copyright (C) 1995,1998,2002,2003,2007,2008,2009,2010 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 66 
Line 66 
   
 : tags-file-id ( -- file-id )  : tags-file-id ( -- file-id )
     tags-file @ 0= if      tags-file @ 0= if
         tags-file-name w/o create-file throw          s" sort >tags" w/o open-pipe throw
   \       tags-file-name w/o create-file throw
 \       2dup file-status  \       2dup file-status
 \       if \ the file does not exist  \       if \ the file does not exist
 \           drop w/o create-file throw  \           drop w/o create-file throw


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

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help