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

glossary: fix escaping of certain characters

Browse source 
FossilOrigin-Name: fb8804f174556b450d4a1e6f0b6c14feee708d20e7c6530d8eb52d6754315276
This commit is contained in:
crc 2019-01-23 18:42:39 +00:00
parent 0859adc3eb
commit 6eb3dbf2f5
2 changed files with 2164 additions and 3022 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5174
doc/Glossary.html
View file

File diff suppressed because one or more lines are too long

12
glossary.forth
View file

@ -157,11 +157,13 @@ the description.
{{
:s:putfmt (s-) s:format s:put ;
:s:putfmtx (s-) s:format [ $< [ '&lt; s:put ] case $> [ '&gt; s:put ] case $& [ '&amp; s:put ] case c:put ] s:for-each ;
:name field:name '<h1>%s</h1>\n\n s:putfmtx ;
:data field:dstack '<p>__Data:__%s</p>\n s:putfmt ;
:address field:astack '<p>__Addr:__%s</p>\n s:putfmt ;
:float field:fstack '<p>__Float:_%s</p>\n\n s:putfmt ;
:description field:descr '<p>%s\n\n</p> s:putfmtx ;
:h1 '<h1> s:put s:putfmtx '</h1> ;
:p '<p> s:put s:putfmtx '</p> ;
:name field:name '%s h1 ;
:data field:dstack '__Data:__%s\n p ;
:address field:astack '__Addr:__%s\n p ;
:float field:fstack '__Float:_%s\n\n p ;
:description field:descr '%s\n\n p ;
:interpret-time field:itime s:length 0; drop
field:itime '<p>Interpret_Time:\n__%s</p>\n\n s:putfmt ;
:compile-time field:ctime s:length 0; drop