From 5316cda3dd701980e101cd0d57f06d0a1b40835a Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Sun, 12 Nov 2017 00:34:42 +0000
Subject: [PATCH] add help text to glossary tool

FossilOrigin-Name: 270d29abf956537aa1f7de0e437e30d4876fbb5e5838ee4e214d64c8041d388d
---
 wip/glossary.forth | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/wip/glossary.forth b/wip/glossary.forth
index 91823a6..049b78d 100755
--- a/wip/glossary.forth
+++ b/wip/glossary.forth
@@ -374,6 +374,31 @@ to use.
   drop ;
 ~~~
 
+## Help
+
+~~~
+:show-help
+  'RETRO_Glossary_Tool puts nl
+  #32 [ $- putc ] times nl
+  'describe_<wordname> puts nl
+  'delete_<wordname> puts nl
+  'add_<wordname> puts nl
+  'edit_<field>_<wordname> puts nl
+  'export_<format> puts nl
+  #32 [ $- putc ] times nl
+  'Editor_Fields: puts nl
+  '__name\n__dstack\n__astack\n__fstack\n s:with-format puts
+  '__descr\n__itime\n__ctime\n__class\n s:with-format puts
+  '__ex1\n__ex2\n__namespace\n__interface\n s:with-format puts
+  #32 [ $- putc ] times nl
+  'Export_Formats: puts nl
+  '__glossary puts nl
+  '__tsv      puts nl
+  #32 [ $- putc ] times nl
+
+;
+~~~
+
 # Finish
 
 First, a word to handle command line arguments.
@@ -386,7 +411,7 @@ First, a word to handle command line arguments.
   'edit     [ handle-edit            ] s:case
   'add      [ add-word               ] s:case
   'delete   [ delete-entry           ] s:case
-  drop ;
+  drop show-help ;
 ~~~
 
 ~~~