253 lines
9.4 KiB
Forth
Executable File
253 lines
9.4 KiB
Forth
Executable File
: $html$ ( -- ) s" html" ;
|
|
: [html] ( -- ) $html$ [tag] ;
|
|
: [/html] ( -- ) $html$ [/tag] ;
|
|
: [html/] ( -- ) $html$ [tag/] ;
|
|
: [html-$] ( addr u -- ) $html$ [tag-$] ;
|
|
: [html-$/] ( addr u -- ) $html$ [tag-$/] ;
|
|
: [html+] ( +-addr +-u -- ) $html$ [tag+] ;
|
|
: [html+$] ( addr u +-addr +-u -- ) $html$ [tag+$] ;
|
|
: [html+$/] ( addr u +-addr +-u -- ) $html$ [tag+$/] ;
|
|
: $head$ ( -- ) s" head" ;
|
|
: [head] ( -- ) $head$ [tag] ;
|
|
: [/head] ( -- ) $head$ [/tag] ;
|
|
: [head/] ( -- ) $head$ [tag/] ;
|
|
: [head-$] ( addr u -- ) $head$ [tag-$] ;
|
|
: [head-$/] ( addr u -- ) $head$ [tag-$/] ;
|
|
: [head+] ( +-addr +-u -- ) $head$ [tag+] ;
|
|
: [head+$] ( addr u +-addr +-u -- ) $head$ [tag+$] ;
|
|
: [head+$/] ( addr u +-addr +-u -- ) $head$ [tag+$/] ;
|
|
: $title$ ( -- ) s" title" ;
|
|
: [title] ( -- ) $title$ [tag] ;
|
|
: [/title] ( -- ) $title$ [/tag] ;
|
|
: [title/] ( -- ) $title$ [tag/] ;
|
|
: [title-$] ( addr u -- ) $title$ [tag-$] ;
|
|
: [title-$/] ( addr u -- ) $title$ [tag-$/] ;
|
|
: [title+] ( +-addr +-u -- ) $title$ [tag+] ;
|
|
: [title+$] ( addr u +-addr +-u -- ) $title$ [tag+$] ;
|
|
: [title+$/] ( addr u +-addr +-u -- ) $title$ [tag+$/] ;
|
|
: $style$ ( -- ) s" style" ;
|
|
: [style] ( -- ) $style$ [tag] ;
|
|
: [/style] ( -- ) $style$ [/tag] ;
|
|
: [style/] ( -- ) $style$ [tag/] ;
|
|
: [style-$] ( addr u -- ) $style$ [tag-$] ;
|
|
: [style-$/] ( addr u -- ) $style$ [tag-$/] ;
|
|
: [style+] ( +-addr +-u -- ) $style$ [tag+] ;
|
|
: [style+$] ( addr u +-addr +-u -- ) $style$ [tag+$] ;
|
|
: [style+$/] ( addr u +-addr +-u -- ) $style$ [tag+$/] ;
|
|
: $meta$ ( -- ) s" meta" ;
|
|
: [meta] ( -- ) $meta$ [tag] ;
|
|
: [/meta] ( -- ) $meta$ [/tag] ;
|
|
: [meta/] ( -- ) $meta$ [tag/] ;
|
|
: [meta-$] ( addr u -- ) $meta$ [tag-$] ;
|
|
: [meta-$/] ( addr u -- ) $meta$ [tag-$/] ;
|
|
: [meta+] ( +-addr +-u -- ) $meta$ [tag+] ;
|
|
: [meta+$] ( addr u +-addr +-u -- ) $meta$ [tag+$] ;
|
|
: [meta+$/] ( addr u +-addr +-u -- ) $meta$ [tag+$/] ;
|
|
: $body$ ( -- ) s" body" ;
|
|
: [body] ( -- ) $body$ [tag] ;
|
|
: [/body] ( -- ) $body$ [/tag] ;
|
|
: [body/] ( -- ) $body$ [tag/] ;
|
|
: [body-$] ( addr u -- ) $body$ [tag-$] ;
|
|
: [body-$/] ( addr u -- ) $body$ [tag-$/] ;
|
|
: [body+] ( +-addr +-u -- ) $body$ [tag+] ;
|
|
: [body+$] ( addr u +-addr +-u -- ) $body$ [tag+$] ;
|
|
: [body+$/] ( addr u +-addr +-u -- ) $body$ [tag+$/] ;
|
|
: $h1$ ( -- ) s" h1" ;
|
|
: [h1] ( -- ) $h1$ [tag] ;
|
|
: [/h1] ( -- ) $h1$ [/tag] ;
|
|
: [h1/] ( -- ) $h1$ [tag/] ;
|
|
: [h1-$] ( addr u -- ) $h1$ [tag-$] ;
|
|
: [h1-$/] ( addr u -- ) $h1$ [tag-$/] ;
|
|
: [h1+] ( +-addr +-u -- ) $h1$ [tag+] ;
|
|
: [h1+$] ( addr u +-addr +-u -- ) $h1$ [tag+$] ;
|
|
: [h1+$/] ( addr u +-addr +-u -- ) $h1$ [tag+$/] ;
|
|
: $h2$ ( -- ) s" h2" ;
|
|
: [h2] ( -- ) $h2$ [tag] ;
|
|
: [/h2] ( -- ) $h2$ [/tag] ;
|
|
: [h2/] ( -- ) $h2$ [tag/] ;
|
|
: [h2-$] ( addr u -- ) $h2$ [tag-$] ;
|
|
: [h2-$/] ( addr u -- ) $h2$ [tag-$/] ;
|
|
: [h2+] ( +-addr +-u -- ) $h2$ [tag+] ;
|
|
: [h2+$] ( addr u +-addr +-u -- ) $h2$ [tag+$] ;
|
|
: [h2+$/] ( addr u +-addr +-u -- ) $h2$ [tag+$/] ;
|
|
: $h3$ ( -- ) s" h3" ;
|
|
: [h3] ( -- ) $h3$ [tag] ;
|
|
: [/h3] ( -- ) $h3$ [/tag] ;
|
|
: [h3/] ( -- ) $h3$ [tag/] ;
|
|
: [h3-$] ( addr u -- ) $h3$ [tag-$] ;
|
|
: [h3-$/] ( addr u -- ) $h3$ [tag-$/] ;
|
|
: [h3+] ( +-addr +-u -- ) $h3$ [tag+] ;
|
|
: [h3+$] ( addr u +-addr +-u -- ) $h3$ [tag+$] ;
|
|
: [h3+$/] ( addr u +-addr +-u -- ) $h3$ [tag+$/] ;
|
|
: $h4$ ( -- ) s" h4" ;
|
|
: [h4] ( -- ) $h4$ [tag] ;
|
|
: [/h4] ( -- ) $h4$ [/tag] ;
|
|
: [h4/] ( -- ) $h4$ [tag/] ;
|
|
: [h4-$] ( addr u -- ) $h4$ [tag-$] ;
|
|
: [h4-$/] ( addr u -- ) $h4$ [tag-$/] ;
|
|
: [h4+] ( +-addr +-u -- ) $h4$ [tag+] ;
|
|
: [h4+$] ( addr u +-addr +-u -- ) $h4$ [tag+$] ;
|
|
: [h4+$/] ( addr u +-addr +-u -- ) $h4$ [tag+$/] ;
|
|
: $h5$ ( -- ) s" h5" ;
|
|
: [h5] ( -- ) $h5$ [tag] ;
|
|
: [/h5] ( -- ) $h5$ [/tag] ;
|
|
: [h5/] ( -- ) $h5$ [tag/] ;
|
|
: [h5-$] ( addr u -- ) $h5$ [tag-$] ;
|
|
: [h5-$/] ( addr u -- ) $h5$ [tag-$/] ;
|
|
: [h5+] ( +-addr +-u -- ) $h5$ [tag+] ;
|
|
: [h5+$] ( addr u +-addr +-u -- ) $h5$ [tag+$] ;
|
|
: [h5+$/] ( addr u +-addr +-u -- ) $h5$ [tag+$/] ;
|
|
: $h6$ ( -- ) s" h6" ;
|
|
: [h6] ( -- ) $h6$ [tag] ;
|
|
: [/h6] ( -- ) $h6$ [/tag] ;
|
|
: [h6/] ( -- ) $h6$ [tag/] ;
|
|
: [h6-$] ( addr u -- ) $h6$ [tag-$] ;
|
|
: [h6-$/] ( addr u -- ) $h6$ [tag-$/] ;
|
|
: [h6+] ( +-addr +-u -- ) $h6$ [tag+] ;
|
|
: [h6+$] ( addr u +-addr +-u -- ) $h6$ [tag+$] ;
|
|
: [h6+$/] ( addr u +-addr +-u -- ) $h6$ [tag+$/] ;
|
|
: $p$ ( -- ) s" p" ;
|
|
: [p] ( -- ) $p$ [tag] ;
|
|
: [/p] ( -- ) $p$ [/tag] ;
|
|
: [p/] ( -- ) $p$ [tag/] ;
|
|
: [p-$] ( addr u -- ) $p$ [tag-$] ;
|
|
: [p-$/] ( addr u -- ) $p$ [tag-$/] ;
|
|
: [p+] ( +-addr +-u -- ) $p$ [tag+] ;
|
|
: [p+$] ( addr u +-addr +-u -- ) $p$ [tag+$] ;
|
|
: [p+$/] ( addr u +-addr +-u -- ) $p$ [tag+$/] ;
|
|
: $strong$ ( -- ) s" strong" ;
|
|
: [strong] ( -- ) $strong$ [tag] ;
|
|
: [/strong] ( -- ) $strong$ [/tag] ;
|
|
: [strong/] ( -- ) $strong$ [tag/] ;
|
|
: [strong-$] ( addr u -- ) $strong$ [tag-$] ;
|
|
: [strong-$/] ( addr u -- ) $strong$ [tag-$/] ;
|
|
: [strong+] ( +-addr +-u -- ) $strong$ [tag+] ;
|
|
: [strong+$] ( addr u +-addr +-u -- ) $strong$ [tag+$] ;
|
|
: [strong+$/] ( addr u +-addr +-u -- ) $strong$ [tag+$/] ;
|
|
: $em$ ( -- ) s" em" ;
|
|
: [em] ( -- ) $em$ [tag] ;
|
|
: [/em] ( -- ) $em$ [/tag] ;
|
|
: [em/] ( -- ) $em$ [tag/] ;
|
|
: [em-$] ( addr u -- ) $em$ [tag-$] ;
|
|
: [em-$/] ( addr u -- ) $em$ [tag-$/] ;
|
|
: [em+] ( +-addr +-u -- ) $em$ [tag+] ;
|
|
: [em+$] ( addr u +-addr +-u -- ) $em$ [tag+$] ;
|
|
: [em+$/] ( addr u +-addr +-u -- ) $em$ [tag+$/] ;
|
|
: $ul$ ( -- ) s" ul" ;
|
|
: [ul] ( -- ) $ul$ [tag] ;
|
|
: [/ul] ( -- ) $ul$ [/tag] ;
|
|
: [ul/] ( -- ) $ul$ [tag/] ;
|
|
: [ul-$] ( addr u -- ) $ul$ [tag-$] ;
|
|
: [ul-$/] ( addr u -- ) $ul$ [tag-$/] ;
|
|
: [ul+] ( +-addr +-u -- ) $ul$ [tag+] ;
|
|
: [ul+$] ( addr u +-addr +-u -- ) $ul$ [tag+$] ;
|
|
: [ul+$/] ( addr u +-addr +-u -- ) $ul$ [tag+$/] ;
|
|
: $ol$ ( -- ) s" ol" ;
|
|
: [ol] ( -- ) $ol$ [tag] ;
|
|
: [/ol] ( -- ) $ol$ [/tag] ;
|
|
: [ol/] ( -- ) $ol$ [tag/] ;
|
|
: [ol-$] ( addr u -- ) $ol$ [tag-$] ;
|
|
: [ol-$/] ( addr u -- ) $ol$ [tag-$/] ;
|
|
: [ol+] ( +-addr +-u -- ) $ol$ [tag+] ;
|
|
: [ol+$] ( addr u +-addr +-u -- ) $ol$ [tag+$] ;
|
|
: [ol+$/] ( addr u +-addr +-u -- ) $ol$ [tag+$/] ;
|
|
: $li$ ( -- ) s" li" ;
|
|
: [li] ( -- ) $li$ [tag] ;
|
|
: [/li] ( -- ) $li$ [/tag] ;
|
|
: [li/] ( -- ) $li$ [tag/] ;
|
|
: [li-$] ( addr u -- ) $li$ [tag-$] ;
|
|
: [li-$/] ( addr u -- ) $li$ [tag-$/] ;
|
|
: [li+] ( +-addr +-u -- ) $li$ [tag+] ;
|
|
: [li+$] ( addr u +-addr +-u -- ) $li$ [tag+$] ;
|
|
: [li+$/] ( addr u +-addr +-u -- ) $li$ [tag+$/] ;
|
|
: $dl$ ( -- ) s" dl" ;
|
|
: [dl] ( -- ) $dl$ [tag] ;
|
|
: [/dl] ( -- ) $dl$ [/tag] ;
|
|
: [dl/] ( -- ) $dl$ [tag/] ;
|
|
: [dl-$] ( addr u -- ) $dl$ [tag-$] ;
|
|
: [dl-$/] ( addr u -- ) $dl$ [tag-$/] ;
|
|
: [dl+] ( +-addr +-u -- ) $dl$ [tag+] ;
|
|
: [dl+$] ( addr u +-addr +-u -- ) $dl$ [tag+$] ;
|
|
: [dl+$/] ( addr u +-addr +-u -- ) $dl$ [tag+$/] ;
|
|
: $dt$ ( -- ) s" dt" ;
|
|
: [dt] ( -- ) $dt$ [tag] ;
|
|
: [/dt] ( -- ) $dt$ [/tag] ;
|
|
: [dt/] ( -- ) $dt$ [tag/] ;
|
|
: [dt-$] ( addr u -- ) $dt$ [tag-$] ;
|
|
: [dt-$/] ( addr u -- ) $dt$ [tag-$/] ;
|
|
: [dt+] ( +-addr +-u -- ) $dt$ [tag+] ;
|
|
: [dt+$] ( addr u +-addr +-u -- ) $dt$ [tag+$] ;
|
|
: [dt+$/] ( addr u +-addr +-u -- ) $dt$ [tag+$/] ;
|
|
: $dd$ ( -- ) s" dd" ;
|
|
: [dd] ( -- ) $dd$ [tag] ;
|
|
: [/dd] ( -- ) $dd$ [/tag] ;
|
|
: [dd/] ( -- ) $dd$ [tag/] ;
|
|
: [dd-$] ( addr u -- ) $dd$ [tag-$] ;
|
|
: [dd-$/] ( addr u -- ) $dd$ [tag-$/] ;
|
|
: [dd+] ( +-addr +-u -- ) $dd$ [tag+] ;
|
|
: [dd+$] ( addr u +-addr +-u -- ) $dd$ [tag+$] ;
|
|
: [dd+$/] ( addr u +-addr +-u -- ) $dd$ [tag+$/] ;
|
|
: $table$ ( -- ) s" table" ;
|
|
: [table] ( -- ) $table$ [tag] ;
|
|
: [/table] ( -- ) $table$ [/tag] ;
|
|
: [table/] ( -- ) $table$ [tag/] ;
|
|
: [table-$] ( addr u -- ) $table$ [tag-$] ;
|
|
: [table-$/] ( addr u -- ) $table$ [tag-$/] ;
|
|
: [table+] ( +-addr +-u -- ) $table$ [tag+] ;
|
|
: [table+$] ( addr u +-addr +-u -- ) $table$ [tag+$] ;
|
|
: [table+$/] ( addr u +-addr +-u -- ) $table$ [tag+$/] ;
|
|
: $thead$ ( -- ) s" thead" ;
|
|
: [thead] ( -- ) $thead$ [tag] ;
|
|
: [/thead] ( -- ) $thead$ [/tag] ;
|
|
: [thead/] ( -- ) $thead$ [tag/] ;
|
|
: [thead-$] ( addr u -- ) $thead$ [tag-$] ;
|
|
: [thead-$/] ( addr u -- ) $thead$ [tag-$/] ;
|
|
: [thead+] ( +-addr +-u -- ) $thead$ [tag+] ;
|
|
: [thead+$] ( addr u +-addr +-u -- ) $thead$ [tag+$] ;
|
|
: [thead+$/] ( addr u +-addr +-u -- ) $thead$ [tag+$/] ;
|
|
: $tbody$ ( -- ) s" tbody" ;
|
|
: [tbody] ( -- ) $tbody$ [tag] ;
|
|
: [/tbody] ( -- ) $tbody$ [/tag] ;
|
|
: [tbody/] ( -- ) $tbody$ [tag/] ;
|
|
: [tbody-$] ( addr u -- ) $tbody$ [tag-$] ;
|
|
: [tbody-$/] ( addr u -- ) $tbody$ [tag-$/] ;
|
|
: [tbody+] ( +-addr +-u -- ) $tbody$ [tag+] ;
|
|
: [tbody+$] ( addr u +-addr +-u -- ) $tbody$ [tag+$] ;
|
|
: [tbody+$/] ( addr u +-addr +-u -- ) $tbody$ [tag+$/] ;
|
|
: $tr$ ( -- ) s" tr" ;
|
|
: [tr] ( -- ) $tr$ [tag] ;
|
|
: [/tr] ( -- ) $tr$ [/tag] ;
|
|
: [tr/] ( -- ) $tr$ [tag/] ;
|
|
: [tr-$] ( addr u -- ) $tr$ [tag-$] ;
|
|
: [tr-$/] ( addr u -- ) $tr$ [tag-$/] ;
|
|
: [tr+] ( +-addr +-u -- ) $tr$ [tag+] ;
|
|
: [tr+$] ( addr u +-addr +-u -- ) $tr$ [tag+$] ;
|
|
: [tr+$/] ( addr u +-addr +-u -- ) $tr$ [tag+$/] ;
|
|
: $th$ ( -- ) s" th" ;
|
|
: [th] ( -- ) $th$ [tag] ;
|
|
: [/th] ( -- ) $th$ [/tag] ;
|
|
: [th/] ( -- ) $th$ [tag/] ;
|
|
: [th-$] ( addr u -- ) $th$ [tag-$] ;
|
|
: [th-$/] ( addr u -- ) $th$ [tag-$/] ;
|
|
: [th+] ( +-addr +-u -- ) $th$ [tag+] ;
|
|
: [th+$] ( addr u +-addr +-u -- ) $th$ [tag+$] ;
|
|
: [th+$/] ( addr u +-addr +-u -- ) $th$ [tag+$/] ;
|
|
: $td$ ( -- ) s" td" ;
|
|
: [td] ( -- ) $td$ [tag] ;
|
|
: [/td] ( -- ) $td$ [/tag] ;
|
|
: [td/] ( -- ) $td$ [tag/] ;
|
|
: [td-$] ( addr u -- ) $td$ [tag-$] ;
|
|
: [td-$/] ( addr u -- ) $td$ [tag-$/] ;
|
|
: [td+] ( +-addr +-u -- ) $td$ [tag+] ;
|
|
: [td+$] ( addr u +-addr +-u -- ) $td$ [tag+$] ;
|
|
: [td+$/] ( addr u +-addr +-u -- ) $td$ [tag+$/] ;
|
|
: $a$ ( -- ) s" a" ;
|
|
: [a] ( -- ) $a$ [tag] ;
|
|
: [/a] ( -- ) $a$ [/tag] ;
|
|
: [a/] ( -- ) $a$ [tag/] ;
|
|
: [a-$] ( addr u -- ) $a$ [tag-$] ;
|
|
: [a-$/] ( addr u -- ) $a$ [tag-$/] ;
|
|
: [a+] ( +-addr +-u -- ) $a$ [tag+] ;
|
|
: [a+$] ( addr u +-addr +-u -- ) $a$ [tag+$] ;
|
|
: [a+$/] ( addr u +-addr +-u -- ) $a$ [tag+$/] ;
|