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

continue work on support for editing the glossary data set

Browse source 
FossilOrigin-Name: f72ab9f2bc46561fddcb4aa79592cd3a80b0c36806f208666b7565fee461c7ff
This commit is contained in:
crc 2017-11-11 12:57:53 +00:00
parent 3a3bf62a13
commit 5331e3ab66
1 changed files with 23 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
wip/glossary.forth
View file

@ -214,21 +214,30 @@ Next, get the editor from the $EDITOR environment variable.
EDITOR '%s_/tmp/glossary.%s s:with-format unix:system ; EDITOR '%s_/tmp/glossary.%s s:with-format unix:system ;
~~~ ~~~
:handle-edit ~~~
:select-field
export-fields
TARGET TARGET
'name [ edit-name ] s:case 'name [ 'name edit:field ] s:case
'dstack [ edit-dstack ] s:case 'dstack [ 'dstack edit:field ] s:case
'astack [ edit-astack ] s:case 'astack [ 'astack edit:field ] s:case
'fstack [ edit-fstack ] s:case 'fstack [ 'fstack edit:field ] s:case
'descr [ edit-descr ] s:case 'descr [ 'descr edit:field ] s:case
'itime [ edit-itime ] s:case 'itime [ 'itime edit:field ] s:case
'ctime [ edit-ctime ] s:case 'ctime [ 'ctime edit:field ] s:case
'class [ edit-class ] s:case 'class [ 'class edit:field ] s:case
'ex1 [ edit-ex1 ] s:case 'ex1 [ 'ex1 edit:field ] s:case
'ex2 [ edit-ex2 ] s:case 'ex2 [ 'ex2 edit:field ] s:case
'namespace [ edit-namespace ] s:case 'namespace [ 'namespace edit:field ] s:case
'interface [ edit-interface ] s:case 'interface [ 'interface edit:field ] s:case
drop ; drop ;
~~~
~~~
:handle-edit
'words.tsv
[ s:keep !SourceLine field:name TARGET2 s:eq? [ select-field ] if ] file:for-each-line ;
~~~
## Export Data ## Export Data
@ -294,6 +303,7 @@ First, a word to handle command line arguments.
QUERY QUERY
'describe [ find-and-display-entry ] s:case 'describe [ find-and-display-entry ] s:case
'export [ export-data ] s:case 'export [ export-data ] s:case
'edit [ handle-edit ] s:case
drop ; drop ;
~~~ ~~~