gforth/kernel/tools.fs - diff

Return to tools.fs CVS log

Up to [gforth] / gforth / kernel

version 1.16, 2000/09/23 15:47:12	version 1.20, 2006/02/26 17:23:47
Line 1	Line 1
\ TOOLS.FS Toolkit extentions 2may93jaw	\ TOOLS.FS Toolkit extentions 2may93jaw

\ Copyright (C) 1995,1998,1999 Free Software Foundation, Inc.	\ Copyright (C) 1995,1998,1999,2001,2003 Free Software Foundation, Inc.

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

Line 81 Variable /dump	Line 81 Variable /dump

include ./../termsize.fs	include ./../termsize.fs

: words	: wordlist-words ( wid -- ) \ gforth
\G this will not get annotated. See other defn in search.fs ..	\G Display the contents of the wordlist wid.
\G It does not work to use "wordset-" prefix since this file is glossed	[ has? ec 0= [IF] ] wordlist-id [ [THEN] ]
\G by cross.fs which doesn't have the same functionalty as makedoc.fs	0 swap cr
cr 0 context @ wordlist-id
BEGIN	BEGIN
@ dup	@ dup
WHILE	WHILE
Line 98 include ./../termsize.fs	Line 97 include ./../termsize.fs
REPEAT	REPEAT
2drop ;	2drop ;

	: words
	\G this will not get annotated. See other defn in search.fs ..
	\G It does not work to use "wordset-" prefix since this file is glossed
	\G by cross.fs which doesn't have the same functionalty as makedoc.fs
	context @ wordlist-words ;

' words alias vlist ( -- ) \ gforth	' words alias vlist ( -- ) \ gforth
\g Old (pre-Forth-83) name for @code{WORDS}.	\g Old (pre-Forth-83) name for @code{WORDS}.