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

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

version 1.1, 2002/06/02 21:19:09 version 1.2, 2002/07/12 13:55:54
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 87  create tags-line 128 chars allot Line 94  create tags-line 128 chars allot
     last @ 0<> and      \ not an anonymous (i.e. noname) header      last @ 0<> and      \ not an anonymous (i.e. noname) header
     if      if
         tags-file-id >r           tags-file-id >r 
         r@ put-load-file-name  
         last @ 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.2

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