--- gforth/kernel/tools.fs	1997/05/21 20:40:18	1.1
+++ gforth/kernel/tools.fs	1999/02/21 14:55:44	1.8
@@ -1,6 +1,6 @@
 \ TOOLS.FS     Toolkit extentions                      2may93jaw
 
-\ Copyright (C) 1995 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1998 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -27,7 +27,9 @@ hex
 variable maxdepth-.s
 9 maxdepth-.s !
 
-: .s ( -- )
+: .s ( -- ) \ tools dot-s
+    \G Display the number of items on the data stack,
+    \G followed by a list of the items; TOS is the right-most item
     ." <" depth 0 .r ." > "
     depth 0 max maxdepth-.s @ min
     dup 0
@@ -43,7 +45,7 @@ Variable /dump
 
 : .4 ( addr -- addr' )
     3 FOR  -1 /dump +!  /dump @ 0<
-        IF  ."    "  ELSE  dup c@ 0 <# # # #> type space  THEN
+        IF  ."    "  ELSE  dup c@ 0 <<# >r # # r> #>> type space  THEN
     char+ NEXT ;
 : .chars ( addr -- )
     /dump @ bounds
@@ -54,7 +56,11 @@ Variable /dump
 : .line ( addr -- )
   dup .4 space .4 ." - " .4 space .4 drop  10 /dump +!  space .chars ;
 
-: dump  ( addr u -- )
+: dump  ( addr u -- ) \ tools dump
+    \G Display u lines of memory starting at address addr. Each line
+    \G displays the contents of 16 bytes. When Gforth is running under
+    \G an operating system you may get @file{Invalid memory address} errors
+    \G if you attempt to access arbitrary locations.
     cr base @ >r hex        \ save base on return stack
     0 ?DO  I' I - 10 min /dump !
 	dup 8 u.r ." : " dup .line cr  10 +
@@ -63,7 +69,29 @@ Variable /dump
 
 \ ?                                                     17may93jaw
 
-: ? @ . ;
+: ? ( a-addr -- ) \ tools question
+    \G Display the contents of address a-addr in the current number base.
+    @ . ;
+
+\ words visible in roots                               14may93py
+
+include  ../termsize.fs
+
+: words ( -- ) \ tools
+    \G ** this will not get annotated. See other defn in search.fs .. **
+    cr 0 context @ wordlist-id
+    BEGIN
+	@ dup
+    WHILE
+	2dup name>string nip 2 + dup >r +
+	cols >=
+	IF
+	    cr nip 0 swap
+	THEN
+	dup name>string type space r> rot + swap
+    REPEAT
+    2drop ;
 
-\ INCLUDE see.fs
+' words alias vlist ( -- ) \ gforth
+\g Old (pre-Forth-83) name for @code{WORDS}.