#!/bin/rc -e rfork E # htwrap -- create standalone HTML document flagfmt='t,C, c charset, d dir, l lang, v doctype' args='[file ...]' if(! ifs=() eval `{aux/getflags $*}){ aux/usage exit usage } switch($flagv){ case 5 echo '' case 4 echo '' case 4s echo '' case x xhtml echo '' case xs xhtmls echo '' case '' echo '' case * echo error: unknown doctype $flagv >[1=2] aux/usage exit usage } echo -n '' if(~ $#flagC 0){ if(! ~ $#flagc 0) echo '' if not echo '' } fn source{ if(! ~ $#* 0) cat $* if not cat } if(! ~ $#flagt 0) # try to retrieve title from

on first line source $* | sed '1s/^

(.)<\/h1>/\1<\/title>\n&/' if not source $ echo '</html>'

on first line source $* | sed '1s/^

(.*)<\/h1>/\1<\/title>\n&/' if not source $* echo '</html>'

(.)<\/h1>/\1<\/title>\n&/' if not source $ echo '</html>'