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

example: exporting of all samples now uses a more easily configured path

Browse source 
FossilOrigin-Name: 9467b600c6b6112d385bec36c199991051f09f27eb99bc6cbb2d99acb5373f4c
This commit is contained in:
crc 2019-04-16 18:18:17 +00:00
parent 2af4392a66
commit ad3b8987c4
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
example/publish-examples.forth
View file

@ -4,6 +4,12 @@ This program generates an HTML index and exports (using the
`export-as-html.forth` example) the samples to HTML. The files
are stored in `/home/crc/public/examples`.
# Configuration
~~~
'/home/crc/public/examples/ 'FILE-PATH s:const
~~~
~~~
:unix:count-files (-n)
'ls_-1_|_wc_-l file:R unix:popen
@ -22,7 +28,7 @@ are stored in `/home/crc/public/examples`.
# Generate index.html
~~~
'/home/crc/public/examples/index.html file:W file:open 'FID const
FILE-PATH 'index.html s:append file:W file:open 'FID const
:index:put [ FID file:write ] s:for-each ;
@ -42,8 +48,8 @@ FID file:close
# Generate HTML Files
~~~
:export dup './export-as-html.forth_%s_>/home/crc/public/examples/%s.html
s:format unix:system $. c:put ;
:export FILE-PATH over
'./export-as-html.forth_%s_>%s%s.html s:format unix:system $. c:put ;
[ dir? &drop [ export ] choose ] unix:for-each-file nl
~~~