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

publish-examples.forth now uses retro-document to generate a glossary file

Browse source 
FossilOrigin-Name: 1b33fb81e6b5f707cbbdb116ae73447fc1c71a107d1b854750a56f13249318a8
This commit is contained in:
crc 2019-05-10 13:04:54 +00:00
parent 3af2f7f52d
commit 310fca3d65
1 changed files with 17 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
example/publish-examples.forth
View file

@ -36,7 +36,11 @@ on the stack.
:dtd '<!DOCTYPE_html> s:put ; :dtd '<!DOCTYPE_html> s:put ;
:title '<title>RETRO_Examples</title> s:put ; :title '<title>RETRO_Examples</title> s:put ;
:head '<head> s:put title css '</head> s:put ; :head '<head> s:put title css '</head> s:put ;
:link dup '<a_href="/examples/%s.html">%s</a><br> s:format s:put $. c:put ; :li '<li> s:put call '</li><br>\n s:format s:put ;
:link dup '<a_href="/examples/%s.html">%s</a>_ s:format s:put ;
:link2 '<a_href="/examples/%s.glossary"><br>&rarr;_glossary</a> s:format s:put
$. c:put ;
:links [ dup link link2 ] li ;
:body '<body> s:put call '</body> s:put ; :body '<body> s:put call '</body> s:put ;
:make dtd head body ; :make dtd head body ;
~~~ ~~~
@ -45,8 +49,9 @@ on the stack.
~~~ ~~~
FILE-PATH 'index.html s:append file:W file:open !FID FILE-PATH 'index.html s:append file:W file:open !FID
[ '<h1>Examples</h1><br> s:put [ '<h1>Examples</h1><br><ul> s:put
[ dir? &drop &link choose ] unix:for-each-file nl ] make [ dir? &drop &links choose ] unix:for-each-file
'</ul> s:put nl ] make
@FID file:close @FID file:close
~~~ ~~~
@ -58,3 +63,12 @@ FILE-PATH 'index.html s:append file:W file:open !FID
[ dir? &drop [ export ] choose ] unix:for-each-file nl [ dir? &drop [ export ] choose ] unix:for-each-file nl
~~~ ~~~
# Generate a Glossary File For Each
~~~
:glossary FILE-PATH over
'retro-document_%s_>%s%s.glossary s:format unix:system $. c:put ;
[ dir? &drop &glossary choose ] unix:for-each-file
~~~