gforth/locate.fs - diff

Return to locate.fs CVS log

Up to [gforth] / gforth

version 1.1, 2001/10/07 21:51:09	version 1.3, 2003/03/09 12:54:32
Line 1	Line 1
\ locate, using the TAGS file	\ locate, using the TAGS file

	\ Copyright (C) 2002 Free Software Foundation, Inc.

	\ This file is part of Gforth.

	\ Gforth is free software; you can redistribute it and/or
	\ modify it under the terms of the GNU General Public License
	\ as published by the Free Software Foundation; either version 2
	\ of the License, or (at your option) any later version.

	\ This program is distributed in the hope that it will be useful,
	\ but WITHOUT ANY WARRANTY; without even the implied warranty of
	\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	\ GNU General Public License for more details.

	\ You should have received a copy of the GNU General Public License
	\ along with this program; if not, write to the Free Software
	\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

require string.fs	require string.fs

Variable last-file	Variable last-file
Line 36 Variable sys-buf	Line 54 Variable sys-buf
: locate ( "name" -- ) s" " last-file $! bl sword	: locate ( "name" -- ) s" " last-file $! bl sword
s" TAGS" r/o open-file throw >r	s" TAGS" r/o open-file throw >r
BEGIN r@ tag-line WHILE	BEGIN r@ tag-line WHILE
s" " line-buf $@ compare 0=	s" " line-buf $@ str=
IF r@ get-file	IF r@ get-file
ELSE 2dup check-word	ELSE 2dup check-word
IF print-location 2drop r> close-file throw EXIT THEN	IF print-location 2drop r> close-file throw EXIT THEN