[BACK]Return to tags.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/tags.fs between versions 1.1 and 1.5

version 1.1, 2002/06/02 21:19:09 version 1.5, 2003/08/25 14:17:47
Line 1 Line 1
 \ VI tags support for GNU Forth.  \ VI tags support for GNU Forth.
   
 \ Copyright (C) 1995,1998 Free Software Foundation, Inc.  \ Copyright (C) 1995,1998,2002,2003 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 18 Line 18
 \ along with this program; if not, write to the Free Software  \ along with this program; if not, write to the Free Software
 \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.  \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
   
   \ usage: gforth tags.fs your_files.fs ...
   \  then: vi -t word_name
   
 \ This does not work like etags; instead, the TAGS file is updated  \ This does not work like etags; instead, the TAGS file is updated
 \ during the normal Forth interpretation/compilation process.  \ during the normal Forth interpretation/compilation process.
Line 42 Line 44
 \ fact those blanks are not necessary, since search is performed on  \ fact those blanks are not necessary, since search is performed on
 \ the tag-text, rather than the tag name.  \ the tag-text, rather than the tag name.
   
 require search.fs  \ Changes by Erik Rossen: Reversed the order of the tagname and tagfile
   \ and got rid of the trailing "$" in the address regexp.  I also needed
   \ to comment out search.fs since it sets the search order destructively
   \ on my system.  Added a bit more explanation on how to use tags.fs.
   
   \ require search.fs
 require extend.fs  require extend.fs
   
 : tags-file-name ( -- c-addr u )  : tags-file-name ( -- c-addr u )
Line 84  create tags-line 128 chars allot Line 91  create tags-line 128 chars allot
     \ if the input is from a file and it is not a local name      \ if the input is from a file and it is not a local name
     source-id dup 0<> swap -1 <> and    \ input from a file      source-id dup 0<> swap -1 <> and    \ input from a file
     current @ locals-list <> and        \ not a local name      current @ locals-list <> and        \ not a local name
     last @ 0<> and      \ not an anonymous (i.e. noname) header      latest 0<> and      \ not an anonymous (i.e. noname) header
     if      if
         tags-file-id >r           tags-file-id >r 
         r@ put-load-file-name          latest name>string r@ write-file throw
         last @ name>string r@ write-file throw  
         #tab r@ emit-file throw          #tab r@ emit-file throw
           r@ put-load-file-name
         s" /^" r@ write-file throw          s" /^" r@ write-file throw
         source drop >in @ r@ write-file throw          source drop >in @ r@ write-file throw
         s" $/" r@ write-line throw          s" /" r@ write-line throw
         rdrop          rdrop
     endif ;      endif ;
   
Removed from v.1.1  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>