gforth/tags.fs - diff

Return to tags.fs CVS log

Up to [gforth] / gforth

version 1.9, 2008/12/31 15:29:14	version 1.12, 2010/01/22 21:19:43
Line 1	Line 1
\ VI tags support for GNU Forth.	\ VI tags support for GNU Forth.

\ Copyright (C) 1995,1998,2002,2003,2007,2008 Free Software Foundation, Inc.	\ Copyright (C) 1995,1998,2002,2003,2007,2008,2009 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 48	Line 48
\ to comment out search.fs since it sets the search order destructively	\ 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.	\ on my system. Added a bit more explanation on how to use tags.fs.

\ require search.fs	require search.fs
require extend.fs	require extend.fs

: tags-file-name ( -- c-addr u )	: tags-file-name ( -- c-addr u )
Line 66 create tags-line 128 chars allot	Line 66 create tags-line 128 chars allot

: 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