crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add help text to glossary tool

Browse source 
FossilOrigin-Name: 270d29abf956537aa1f7de0e437e30d4876fbb5e5838ee4e214d64c8041d388d
This commit is contained in:
crc 2017-11-12 00:34:42 +00:00
parent 90eb9b67e5
commit 5316cda3dd
1 changed files with 26 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
wip/glossary.forth
View file

@ -374,6 +374,31 @@ to use.
drop ; 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 # Finish
First, a word to handle command line arguments. 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 'edit [ handle-edit ] s:case
'add [ add-word ] s:case 'add [ add-word ] s:case
'delete [ delete-entry ] s:case 'delete [ delete-entry ] s:case
drop ; drop show-help ;
~~~ ~~~
~~~ ~~~