forth/tag4thgen.sh

14 lines
581 B
Bash
Raw Permalink Normal View History

2022-02-08 08:14:44 -05:00
#!/bin/sh
for e in html head title style meta body h1 h2 h3 h4 h5 h6 p strong em ul ol li dl dt dd table thead tbody tr th td a div span
do
echo ": \$$e\$ ( -- ) s\" $e\" ;"
echo ": [$e] ( -- ) \$$e\$ [tag] ;"
echo ": [/$e] ( -- ) \$$e\$ [/tag] ;"
echo ": [$e/] ( -- ) \$$e\$ [tag/] ;"
echo ": [$e-$] ( addr u -- ) \$$e\$ [tag-$] ;"
echo ": [$e-$/] ( addr u -- ) \$$e\$ [tag-$/] ;"
echo ": [$e+] ( +-addr +-u -- ) \$$e\$ [tag+] ;"
echo ": [$e+$] ( $-addr $-u +-addr +-u -- ) \$$e\$ [tag+$] ;"
echo ": [$e+$/] ( $-addr $-u +-addr +-u -- ) \$$e\$ [tag+$/] ;"
done