2019-03-28 14:05:21 +01:00
|
|
|
#!/usr/bin/env retro
|
|
|
|
|
|
|
|
|
|
# Export as HTML
|
|
|
|
|
|
|
|
|
|
This tool processes the code in Unu code blocks, generating HTML
|
2019-03-29 12:23:42 +01:00
|
|
|
output. It assumes that CSS will be used to style the results.
|
|
|
|
|
The default CSS is included at the end of this file and will be
|
|
|
|
|
embedded into the generated HTML.
|
2019-03-28 14:05:21 +01:00
|
|
|
|
|
|
|
|
# Code
|
|
|
|
|
|
|
|
|
|
I include my `unu` file processor here as it makes it easy to
|
|
|
|
|
process the relevant lines from the source file.
|
|
|
|
|
|
2019-03-28 22:02:19 +01:00
|
|
|
Some characters need to be escaped. The `:put-html` words will
|
|
|
|
|
be used to handle these.
|
|
|
|
|
|
|
|
|
|
~~~
|
|
|
|
|
:c:put-html
|
|
|
|
|
$< [ '< s:put ] case
|
|
|
|
|
$> [ '> s:put ] case
|
|
|
|
|
$& [ '& s:put ] case
|
|
|
|
|
c:put ;
|
|
|
|
|
:s:put-html [ c:put-html ] s:for-each ;
|
|
|
|
|
~~~
|
|
|
|
|
|
2019-03-28 14:05:21 +01:00
|
|
|
~~~
|
|
|
|
|
{{
|
2019-03-28 22:02:19 +01:00
|
|
|
:span '<span_class='text'> s:put s:put-html '</span> s:put ;
|
2019-03-28 14:05:21 +01:00
|
|
|
'Fenced var
|
|
|
|
|
:toggle-fence @Fenced not !Fenced ;
|
|
|
|
|
:fenced? (-f) @Fenced ;
|
|
|
|
|
:handle-line (s-)
|
2019-03-28 22:02:19 +01:00
|
|
|
fenced? [ over call ] [ span '<br> s:put nl ] choose ;
|
2019-03-28 14:05:21 +01:00
|
|
|
---reveal---
|
|
|
|
|
:unu (sq-)
|
|
|
|
|
swap [ dup '~~~ s:eq?
|
2019-03-28 22:02:19 +01:00
|
|
|
[ toggle-fence s:put '<br> s:put nl ]
|
2019-03-29 12:23:42 +01:00
|
|
|
[ handle-line ] choose
|
2019-03-28 14:05:21 +01:00
|
|
|
] file:for-each-line drop ;
|
|
|
|
|
}}
|
|
|
|
|
~~~
|
|
|
|
|
|
|
|
|
|
Formatting is pretty straightforward. I have a `span` word to
|
|
|
|
|
generate the HTML for the token, and a `format` word to identify
|
|
|
|
|
the token type and use `span`.
|
|
|
|
|
|
|
|
|
|
~~~
|
2019-11-13 21:27:19 +01:00
|
|
|
:span '<span_class=' s:put s:put ''> s:put s:put-html '</span>_ s:put ;
|
2019-03-28 14:05:21 +01:00
|
|
|
|
|
|
|
|
:format (s-)
|
|
|
|
|
(ignore_empty_tokens)
|
2019-11-13 21:27:19 +01:00
|
|
|
dup s:length n:zero? [ ' s:put drop ] if;
|
2019-03-28 14:05:21 +01:00
|
|
|
|
|
|
|
|
(tokens_with_prefixes)
|
|
|
|
|
dup fetch
|
|
|
|
|
$: [ 'colon span ] case
|
|
|
|
|
$( [ 'comment span ] case
|
2019-11-13 21:27:19 +01:00
|
|
|
$' [ 'str span ] case
|
|
|
|
|
$# [ 'num span ] case
|
|
|
|
|
$& [ 'ptr span ] case
|
|
|
|
|
$$ [ 'char span ] case
|
2019-03-28 14:05:21 +01:00
|
|
|
$` [ 'inst span ] case
|
|
|
|
|
$| [ 'defer span ] case
|
|
|
|
|
$@ [ 'fetch span ] case
|
|
|
|
|
$! [ 'store span ] case
|
|
|
|
|
|
2019-03-28 22:02:19 +01:00
|
|
|
(immediate_and_primitives)
|
2019-03-28 14:05:21 +01:00
|
|
|
drop dup
|
2019-03-28 22:02:19 +01:00
|
|
|
d:lookup d:class fetch
|
2019-11-13 21:27:19 +01:00
|
|
|
&class:macro [ 'imm span ] case
|
|
|
|
|
&class:primitive [ 'prim span ] case
|
2019-03-28 22:02:19 +01:00
|
|
|
drop
|
|
|
|
|
|
|
|
|
|
(normal_words)
|
2019-11-13 21:27:19 +01:00
|
|
|
s:put-html sp ;
|
2019-03-28 14:05:21 +01:00
|
|
|
~~~
|
|
|
|
|
|
2019-03-29 12:23:42 +01:00
|
|
|
Next is the HTML page generation. This has words to generate
|
|
|
|
|
the header, embeds the CSS (from the end of this file), and
|
|
|
|
|
then processes the lines in the source file to generate the
|
|
|
|
|
body.
|
2019-03-28 14:05:21 +01:00
|
|
|
|
2019-03-29 12:23:42 +01:00
|
|
|
Output is written to stdout.
|
2019-03-28 14:05:21 +01:00
|
|
|
|
2019-03-29 12:23:42 +01:00
|
|
|
~~~
|
|
|
|
|
'CSS var
|
|
|
|
|
:embed-css
|
|
|
|
|
'<style> s:put nl
|
|
|
|
|
sys:name [ dup '/*_CSS_Begins_*/ s:eq? [ &CSS v:on ] if
|
|
|
|
|
@CSS [ s:put nl ] [ drop ] choose ] file:for-each-line
|
|
|
|
|
'</style> s:put nl ;
|
|
|
|
|
|
|
|
|
|
:header
|
|
|
|
|
'<!DOCTYPE_html> s:put nl
|
|
|
|
|
'<html> s:put nl
|
|
|
|
|
'<head> s:put nl embed-css '</head> s:put nl ;
|
|
|
|
|
|
|
|
|
|
:body (s-)
|
|
|
|
|
'<body> s:put nl
|
2019-11-13 21:27:19 +01:00
|
|
|
[ ASCII:SPACE s:tokenize [ format ] a:for-each
|
2019-03-28 14:05:21 +01:00
|
|
|
'<br> s:put nl ] unu
|
2019-03-29 12:23:42 +01:00
|
|
|
'</body> s:put nl ;
|
|
|
|
|
|
|
|
|
|
:footer
|
|
|
|
|
'</html> s:put nl ;
|
|
|
|
|
|
|
|
|
|
:generate (s-)
|
|
|
|
|
header body footer ;
|
|
|
|
|
~~~
|
|
|
|
|
|
|
|
|
|
And finally, run it.
|
|
|
|
|
|
|
|
|
|
~~~
|
|
|
|
|
#0 sys:argv generate
|
2019-03-28 14:05:21 +01:00
|
|
|
~~~
|
|
|
|
|
|
|
|
|
|
# CSS
|
|
|
|
|
|
2019-03-29 12:23:42 +01:00
|
|
|
/* CSS Begins */
|
|
|
|
|
|
2019-11-13 21:27:19 +01:00
|
|
|
* { background: #111; color: #44dd44; font-family: monospace; }
|
|
|
|
|
span { white-space: pre }
|
|
|
|
|
.text { color: white; white-space: normal }
|
|
|
|
|
.colon { color: red; }
|
|
|
|
|
.comment { color: #888; }
|
|
|
|
|
.str { color: yellow; }
|
|
|
|
|
.num { color: cyan; }
|
|
|
|
|
.ptr { color: mediumorchid; }
|
|
|
|
|
.fetch { color: orchid; }
|
|
|
|
|
.store { color: orchid; }
|
|
|
|
|
.char { color: brown; }
|
|
|
|
|
.inst { color: tomato; }
|
|
|
|
|
.defer { color: #888; }
|
|
|
|
|
.imm { color: orange; }
|
|
|
|
|
.prim { color: greenyellow; }
|
