gforth/tags.fs - diff

Return to tags.fs CVS log

Up to [gforth] / gforth

version 1.11, 2009/12/31 15:32:35	version 1.12, 2010/01/22 21:19:43
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