From 310fca3d65e1ed3a487c661b7214579632fc45a0 Mon Sep 17 00:00:00 2001 From: crc Date: Fri, 10 May 2019 13:04:54 +0000 Subject: [PATCH] publish-examples.forth now uses retro-document to generate a glossary file FossilOrigin-Name: 1b33fb81e6b5f707cbbdb116ae73447fc1c71a107d1b854750a56f13249318a8 --- example/publish-examples.forth | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) diff --git a/example/publish-examples.forth b/example/publish-examples.forth index 2ce0f86..3025f59 100755 --- a/example/publish-examples.forth +++ b/example/publish-examples.forth @@ -36,7 +36,11 @@ on the stack. :dtd ' s:put ; :title 'RETRO_Examples s:put ; :head ' s:put title css ' s:put ; -:link dup '%s
s:format s:put $. c:put ; +:li '
  • s:put call '

    • \n s:format s:put ; +:link dup '%s_ s:format s:put ; +:link2 '
    →_glossary s:format s:put + $. c:put ; +:links [ dup link link2 ] li ; :body ' s:put call ' s:put ; :make dtd head body ; ~~~ @@ -45,8 +49,9 @@ on the stack. ~~~ FILE-PATH 'index.html s:append file:W file:open !FID -[ '

    Examples


    s:put - [ dir? &drop &link choose ] unix:for-each-file nl ] make +[ '

    Examples


      s:put + [ dir? &drop &links choose ] unix:for-each-file + '
    s:put nl ] make @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 ~~~ + +# 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 +~~~