: mm2bb - convert mm/man subset to bb markups
command=mm2bb
version='mm2bb (AT&T Research) 2010-05-28'
LC_NUMERIC=C
case $(getopts '[-][123:xyz]' opt --xyz 2>/dev/null; echo 0$opt) in
0123) ARGV0="-a $command"
USAGE=$'
[-?
@(#)$Id: mm2bb (AT&T Research) 2010-05-28 $
]
'$USAGE_LICENSE$'
[+NAME?mm2bb - convert mm/man subset to bb markups]
[+DESCRIPTION?\bmm2bb\b is a \bsed\b(1)/\bksh\b(1) script (yes!) that
converts input \bmm\b(1) or \bman\b(1) documents to a \bbb\b markups
document on the standard output. If \afile\a is omitted then the
standard input is read. \adir\a operands and directory components
of \afile\a operands are added to the included file search list.
The default \bbb\b markup style is [\aop\a]]\adata\a[/\aop\a]].]
[t:texish?\b\\foo\b{\adata\a} \bbb\b markup style]
[ file ... ]
[+SEE ALSO?\bmm2html\b(1)]
'
;;
*) ARGV0=""
USAGE=' [ file ... ]'
;;
esac
set -o noglob
integer count row n s ndirs=0 nfiles=0 tex=0
integer fd=0 head=2 line=0 lists=0 nest=0 peek=0 pp=0 so=0 soff=4
integer labels=0 reference=1 ce=0 nf=0 augment=0 tbl_ns=0 tbl_no=1 tbl_fd=1
typeset -Z2 page=01
typeset -u upper
typeset -x -l OP
typeset -x -A ds map nr outline
typeset cond dirs files fg frame label list prev text title type
typeset license html meta nl mm index authors vg references
typeset mm_AF mm_AF_cur mm_AF_old mm_AU tt
nl=$'\n'
html=(
H1=(
align=center
)
home=(
href=
)
index=(
left=
top=
)
logo=(
src=
)
width=96%
)
code=0
figure=1
file=
font=
frame=
framebody=
framelink=
framerefs=
hp=
ifs=${IFS-'
'}
inch=" "
indent=
indent_prev=
macros=
pd="$nl"
pm=
primary=".BL|.LI|.IX"
top=
vg_ps=20
usage()
{
OPTIND=0
getopts $ARGV0 "$USAGE" OPT '-?'
exit 2
}
while getopts $ARGV0 "$USAGE" OPT
do case $OPT in
t) tex=1 ;;
*) usage ;;
esac
done
shift OPTIND-1
case $# in
1) file=$1
if [[ ! -f $file ]]
then print -u2 $command: $file: cannot read
exit 1
fi
x="-m $file"
;;
*) x=
;;
esac
ds[Cr]='©'
ds[Dt]=$(date -f "%B %d, %Y" $x)
ds[Rf]="[$reference]"
ds[Rg]='®'
ds[CM]='©'
ds[RM]='®'
if (( tex ))
then
ds[SM]='\-1{\b{SM}}'
ds[TM]='\-1{\b{TM}}'
tt='font{courier new\,courier,'
dd='{'
else
size_small=9
size_normal=12
size_big=18
ds[SM]="[size=$size_small][b]SM[/b][/size]"
ds[TM]="[size=$size_small][b]TM[/b][/size]"
tt=code
dd=
fi
map[.Cs]=.EX
map[.Ce]=.EE
map[.Sh]=.SH
map[.Ss]=.SS
map[.Tp]=.TP
H=H$(( head + 1 ))
function warning
{
print -u2 "$command: warning: ${file:+"$file: "}line $line:" "$@"
}
function getfiles
{
sed \
-e 's%\\".*%%' \
-e 's%\\(>=%>=%g' \
-e 's%\\(<=%<=%g' \
-e 's%\\'\''%'\''%g' \
-e 's%\\`%`%g' \
-e 's%\\+%+%g' \
-e 's%\\0% %g' \
-e 's%\\|% %g' \
-e 's%\\\^% %g' \
-e 's%\\ % %g' \
-e 's%\\(+-%\±%g' \
-e 's%\\(-%=%g' \
-e 's%\\(ap%~%g' \
-e 's%\\(bu%\·%g' \
-e 's%\\(bv%|%g' \
-e 's%\\(co%\©%g' \
-e 's%\\(dg%\§%g' \
-e 's%\\(fm%'\''%g' \
-e 's%\\(rg%\®%g' \
-e 's%\\(sq%\¤%g' \
-e 's%\\(\*\([*`'\'']\)%\1%g' \
-e 's%\\\*\([*`'\'']\)%\1%g' \
-e 's%\\d\([^\\]*\)\\u%\1%g' \
-e 's%\\u\([^\\]*\)\\d%\1%g' \
-e 's%\\v\(.\)-\([^\\]*\)\1\(.*\)\\v\1+*\2\1%\3%g' \
-e 's%\\v\(.\)+*\([^\\]*\)\1\(.*\)\\v\1-\2\1%\3%g' \
-e 's%\\h'\''0\*\\w"\([abcdefghijklmnopqrstuvwxyz]*:[^"]*\)"'\''\([^'\'']*\)\\h'\''0'\''%[url=\1]\2[/url]%g' \
-e 's%\\h'\''0\*\\w"\(/[^"]*\)"'\''\([^'\'']*\)\\h'\''0'\''%[url=\1]\2[/url]%g' \
-e 's%\\h'\''0\*\\w"\([^"]*\)"'\''\([^'\'']*\)\\h'\''0'\''%[url=\1]\2[/url]%g' \
-e 's%\\h'\''0\*1'\''\([^:/'\'']*\)\\h'\''0'\''%[url=\1]\1[/url]%g' \
-e 's%\\h'\''0\*1'\''\([abcdefghijklmnopqrstuvwxyz]*:[^'\'']*\)\\h'\''0'\''%[url=\1]\1[/url]%g' \
-e 's%\\h'\''0\*1'\''\(/[^'\'']*\)\\h'\''0'\''%[url=\1]\1[/url]%g' \
-e 's%\\h'\''0\*1'\''\([^'\'']*\)\\h'\''0'\''%[url=\1]\1[/url]%g' \
-e 's%\\h'\''0/\\w"\([^"]*\)"'\''\([^'\'']*\)\\h'\''0'\''%[url=\1]\2[/url]%g' \
-e 's%\\h'\''0/1'\''\([^'\'']*\)\\h'\''0'\''%[url=\1]\1[/url]%g' \
-e 's%\\s+\(.\)\([^\\]*\)\\s-\1%[size='$size_big']\2[/size]%g' \
-e 's%\\s+\(.\)\([^\\]*\)\\s0%[size='$size_big']\2[/size]%g' \
-e 's%\\s-\(.\)\([^\\]*\)\\s+\1%[size='$size_small']\2[/size]%g' \
-e 's%\\s-\(.\)\([^\\]*\)\\s0%[size='$size_small']\2[/size]%g' \
-e 's%\\f(\(..\)\([^\\]*\)%<\1>\2</\1>%g' \
-e 's%\\f[PR]%\\fZ%g' \
-e 's%\\f\(.\)\([^\\]*\)%<\1>\2</\1>%g' \
-e 's%<\([abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789][-._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*@[abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_.]*\)>%[size='$size_small']\<[url=mailto:\1]\1[/url]\>[/size]%g' \
-e 's%\[[ABCDEFGHIJKLMNOPQRSTUVWXYZ][ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]*[0123456789][0123456789][abcdefghijklmnopqrstuvwxyz]*]%[b]&[/b]%g' \
-e 's%</*Z>%%g' \
-e 's%<[146789]>%%g' \
-e 's%</[146789]>%%g' \
-e 's%<2>%[i]%g' \
-e 's%</2>%[/i]%g' \
-e 's%<3>%[b]%g' \
-e 's%</3>%[/b]%g' \
-e 's%<5>%[code]%g' \
-e 's%</5>%[/code]%g' \
-e 's%<B>%[b]%g' \
-e 's%</B>%[/b]%g' \
-e 's%<I>%[i]%g' \
-e 's%</I>%[/i]%g' \
-e 's%<L>%[code]%g' \
-e 's%</L>%[/code]%g' \
-e 's%<X>%[code]%g' \
-e 's%</X>%[/code]%g' \
-e 's%<CW>%[code]%g' \
-e 's%</CW>%[/code]%g' \
-e 's%<i>\([^<]*\)</i>(\([0123456789]\))%[url=../man\2/\1.html][i]\1[/i][/url]\2%g' \
-e 's%<b>\([^<]*\)</b>(\([0123456789]\))%[url=../man\2/\1.html][b]\1[/b][/url]\2%g' \
-e 's%\\s+\(.\)\(.*\)\\s-\1%[size='$size_big']\2[/size]%g' \
-e 's%\\s-\(.\)\(.*\)\\s+\1%[size='$size_small']\2[/size]%g' \
-e 's%\\e%\\%g' \
-e '/^'\''[abcdefghijklmnopqrstuvwxyz][abcdefghijklmnopqrstuvwxyz]\>/s%.%.%' \
-e '/^\..*".*\\/s%\\[^\*][^(]%\\&%g' \
"$@"
}
fill=
spaced=1
function space
{
flush
if (( !spaced ))
then spaced=1
print
fi
}
function flush
{
if [[ $fill ]]
then print -r -- "${fill#?}"
fill=
spaced=0
fi
}
function puttext
{
if ((nf))
then print -r -- "$*"
spaced=0
elif [[ $1 ]]
then fill="$fill $*"
else flush
space
fi
}
function putop
{
flush
if (( $# ))
then print -r -- "$*"
spaced=0
fi
}
function putopn
{
flush
if (( $# ))
then print -r -n -- "$*"
spaced=1
fi
}
function putopt
{
if [[ $1 ]]
then fill="$fill$*"
fi
}
function getline
{
integer i n
typeset data a c d q v x d
if (( peek ))
then (( peek = 0 ))
trap 'set -- "${text[@]}"' 0
return
fi
while :
do data=
while :
do IFS= read -r -u$fd a || {
if (( so > 0 ))
then eval exec $fd'>&-'
if (( ( fd = --so + soff ) == soff ))
then (( fd = 0 ))
fi
file=${so_file[so]}
line=${so_line[so]}
continue
fi
return 1
}
(( line++ ))
case $a in
*\\) x=${a%%+(\\)}
a=${a#"$x"}
if (( ! ( ${#a} & 1 ) ))
then data=$data$x$a
break
fi
data=$data$x${a%?}
;;
*\\\}) data=$data${a%??}
break
;;
*) data=$data$a
break
;;
esac
done
case $data in
*\\[n\*]*)
a= i=0
while :
do c=${data:i++:1}
case $c in
"") break
;;
\\) x=${data:i:1}
case $x in
[n\*]) (( i++ ))
c=${data:i++:1}
case $c in
\() c=${data:i:2}
(( i += 2 ))
;;
\[) c=${data:i}
c=${c%%]*}
(( i += ${#c} + 1 ))
x='*'
;;
esac
case $x in
n) a=$a${nr[$c]} ;;
*) a=$a${ds[$c]} ;;
esac
continue
;;
\\) a=$a$c
while :
do c=${data:i++:1}
case $c in
\\) ;;
*) break ;;
esac
a=$a$c
done
;;
esac
;;
esac
a=$a$c
done
data=$a
;;
esac
case $data in
.?*) case $data in
*[\"]*)
unset v
a= i=0 n=0 q=
while :
do c=${data:i++:1}
case $c in
"") break ;;
esac
case $c in
$q) q=
case $c in
\>) ;;
*) continue
;;
esac
;;
[\"\<]) case $q in
"") case $c in
\<) q=\>
;;
*) q=$c
continue
;;
esac
;;
esac
;;
\ |\ )
case $q in
"") case $a in
?*) v[n++]=$a
a=
;;
esac
continue
;;
esac
;;
esac
a=$a$c
done
case $a in
?*) v[n++]=$a ;;
esac
set -A text -- "${v[@]}"
;;
*) set -A text -- $data
;;
esac
case ${text[0]} in
.el|.ie|.if)
set -- "${text[@]}"
shift
x=$1
shift
case ${text[0]} in
.e*) if (( nest <= 0 ))
then warning "unmatched ${text[0]}"
n=0
else n=$(( ! ${cond[nest--]} ))
fi
;;
.i*) case $x in
!*) x=${x#?}
n=1
;;
*) n=0
;;
esac
case $x in
t|\'@(*)\'\1\'|+([\-+0123456789])=\1)
(( n = ! n ))
;;
+([\-+0123456789])=+([\-+0123456789]))
;;
[0123456789]*[0123456789])
(( n = $x ))
;;
esac
case ${text[0]} in
.ie) cond[++nest]=$n ;;
esac
;;
esac
if (( ! n ))
then case $@ in
\\\{*) while read -r -u$fd data
do (( line++ ))
case $data in
*\\\}) break ;;
esac
done
;;
esac
continue
fi
set -A text -- "$@"
case ${text[0]} in
\\\{*) text[0]=${text[0]#??} ;;
esac
;;
.so) x=${text[1]}
for d in "${dirs[@]}"
do if [[ -f "$d$x" ]]
then (( fd = so + soff ))
tmp=/tmp/m2h$$
getfiles "$d$x" > $tmp
eval exec $fd'< $tmp'
rm $tmp
so_file[so]=$file
file=$d$x
so_line[so]=$line
(( line = 0 ))
(( so++ ))
continue 2
fi
done
warning "$x: $op cannot read"
continue
;;
.xx) data=
set -- "${text[@]}"
shift
while :
do case $# in
0) break ;;
esac
nam=${1%%=*}
case $nam in
no?*) nam=${nam#no} val=0 ;;
*) val=${1#*=} ;;
esac
shift
case $nam in
label|link*|ref)
case $val in
*' '*)
url=${val%%' '*}
txt=${val#*' '}
;;
*'\\t'*)
url=${val%%'\\t'*}
txt=${val#*'\\t'}
;;
*) url=$val
txt=$val
;;
esac
case $url in
*[:/.]*) pfx= ;;
*) pfx='#' ;;
esac
case $url in
*'${html.'*'}'*)
eval url=\"$url\"
;;
esac
case $nam in
label) if (( labels >= 0 ))
then nam=name
label[labels++]=$txt
if (( tex ))
then puttext '\newurl{'$url,$txt'}'
else puttext "[url=$url]$txt[/url]"
fi
fi
;;
link*) tar=
case $nam in
link) case $frame$top$vg in
?*) case $url in
*([abcdefghijklmnopqrstuvwxyz]):*|/*)
tar=" target=_top"
;;
esac
;;
esac
;;
esac
nam=href
if (( tex ))
then data="${data}\\newurl{$pfx$url,$txt}"
else data="${data}[url=$pfx$url]$txt[/url]"
fi
;;
esac
;;
esac
done
case $data in
'') continue ;;
esac
set -A text -- "$data"
break
;;
esac
case ${text[0]} in
@($primary))
: primary macros take precedence
;;
.[BILMRUX]?([BILMRUX])|.F|.FR|.MW|.RF)
case $macros:${text[0]} in
mm:.RF) break ;;
esac
typeset font1 font2 op
set -- "${text[@]}"
op=$1
shift
case $op in
.[BIL]R)case $#:$2 in
2':('[0123456789]')'*([,.?!:;]))
x=${2#'('*')'}
y=${2%$x}
n=$y
if (( tex ))
then
case $op in
.B*) font1='\b{' ;;
.L*) font1='\'$tt ;;
*) font1='\i{' ;;
esac
case $macros in
man) set -A text -- "\\newurl{../man$n/$1.html,$font1$1}}$y$x" ;;
*) set -A text -- "\\newurl{${html.man:=../man}/man$n/$1.html,$font1$1}$y$x" ;;
esac
else
case $op in
.B*) font1=b ;;
.L*) font1=$tt ;;
*) font1=i ;;
esac
case $macros in
man) set -A text -- "[url=../man$n/$1.html][$font1]$1[/$font1][/url]$y$x" ;;
*) set -A text -- "[url=${html.man:=../man}/man$n/$1.html][$font1]$1[/$font1][/url]$y$x" ;;
esac
fi
break
;;
esac
;;
.F) op=.L ;;
.FR) op=.LR ;;
.MW) op=.L ;;
.RF) op=.RL ;;
esac
case $#:$macros:$op in
0:*) ;;
*:man:.?)
set -- "$*"
;;
esac
case $# in
0) getline
set -- "$*"
;;
esac
set -- "$indent""$@"
case $font in
"") data=
;;
?*) if (( tex ))
then data="}"
else data="[/$font]"
fi
font=
;;
esac
font1=${op#.}
case $font1 in
?) font2=R
;;
*) font2=${font1#?}
font1=${font1%?}
;;
esac
case $font1 in
B) font1=b$dd ;;
I) font1=i$dd ;;
[LMX]) font1=$tt ;;
R) font1= ;;
esac
case $font2 in
B) font2=b$dd ;;
I) font2=i$dd ;;
[LMX]) font2=$tt ;;
R) font2= ;;
esac
font=$font2
while :
do case $# in
0) break ;;
esac
case $font in
$font2) font=$font1 ;;
*) font=$font2 ;;
esac
if (( tex ))
then
case $1 in
"") ;;
*'\-'[1-9]*|*'\'[1-9]*)
case $font in
"") data="$data$1" ;;
*) data="$data\\$font$1}" ;;
esac
;;
*) case "$1 $2" in
*'\\-'[1-9]*|*'\'[1-9]*)
case $font in
"") data="$data$1 $2" ;;
*) data="$data\\$font$1 $2}" ;;
esac
shift
;;
*) case $font in
"") data="$data$1" ;;
*) data="$data\\$font$1}" ;;
esac
;;
esac
;;
esac
else
case $1 in
"") ;;
*"[size"*)
case $font in
"") data="$data$1" ;;
*) data="$data[$font]$1[/$font]" ;;
esac
;;
*) case "$1 $2" in
*"[size"*)
case $font in
"") data="$data$1 $2" ;;
*) data="$data[$font]$1 $2[/$font]" ;;
esac
shift
;;
*) case $font in
"") data="$data$1" ;;
*) data="$data[$font]$1[/$font]" ;;
esac
;;
esac
;;
esac
fi
shift
done
font=
set -A text -- $data
;;
.PD) case $1 in
0) pd= ;;
*) pd=$nl ;;
esac
continue
;;
.PF|.PH)continue
;;
.SB) set -- "${text[@]}"
shift
case $# in
0) getline ;;
esac
if (( tex ))
then set -A text -- "\\-1{\\b{""$@""}}"
else set -A text -- "[size=$size_small][b]""$@""[/b][/size]"
fi
;;
.SG) continue
;;
.SM) set -- "${text[@]}"
shift
case $# in
0) getline ;;
esac
if (( tex ))
then set -A text -- "\\-1{""$@""}"
else set -A text -- "[size=$size_small]""$@""[/size]"
fi
;;
*) x=${map[${text[0]}]}
case $x in
?*) text[0]=$x ;;
esac
;;
esac
;;
*) set -A text -- "$data"
;;
esac
break
done
trap 'set -- "${text[@]}"' 0
}
function heading
{
typeset op=$1 i o options beg end
integer count
shift
case $op in
.H) case $# in
0) count=1 ;;
*) count=$1; shift ;;
esac
options=
;;
.H*|.AS)count=1
;;
*) count=2
;;
esac
case $* in
"") putop
;;
*) if (( count == 1 ))
then if (( tex ))
then beg="$beg\\red{\\1{"
end="}}$end"
else beg="$beg[color=red][size=$size_big]"
end="[/size][/color]$end"
fi
fi
space
putop "$beg $* $end"
space
;;
esac
}
function tbl_attributes
{
typeset d f i u x
typeset -F0 w
case $1 in
[aAcC]*)a="$a align=center" ;;
[lL]*) a="$a align=left" ;;
[nN]*) a="$a align=right char=." ;;
[rR]*) a="$a align=right" ;;
esac
case $i in
*[wW]\(+([0-9.])*\)*)
x=${i##*[wW]\(}
x=${x%%\)*}
u=${x##+([0-9.])}
x=${x%$u}
case $u in
c) (( w=x*75/2.54 )) ;;
i) (( w=x*75 )) ;;
m) (( w=x*75*12/72 )) ;;
n) (( w=x*75*12/72/2 )) ;;
p) (( w=x*75/72 )) ;;
P) (( w=x*75/6 )) ;;
*) (( w=x*75*12/72/2 )) ;;
esac
a="$a width=$w"
;;
esac
case $i in
*[bB]*) if (( tex ))
then b="$b\\b{" e="}$e"
else b="$b[b]" e="[/b]$e"
fi
;;
esac
case X$i in
*[!0-9.][iI]*)
if (( tex ))
then b="$b\\i{" e="}$e"
else b="$b[i]" e="[/i]$e"
fi
;;
esac
}
dirs[++ndirs]=""
for i
do if [[ -d $i ]]
then dirs[++ndirs]=$i/
else files[++nfiles]=$i
if [[ $i == */* ]]
then dirs[++ndirs]=${i%/*}/
fi
fi
done
document="${files[@]}"
getfiles "${files[@]}" |
while :
do getline || {
[[ $title != '' ]] && break
set -- .TL
}
case $1 in
.) : comment
;;
.*) op=$1
shift
case $op in
.AC) : ignore $op
;;
.AE) : ignore $op
;;
.AF) case $mm_AF_cur in
"") mm_AF_cur="[i]$*" ;;
*) mm_AF_cur="${mm_AF_cur}${nl}$*" ;;
esac
;;
.AL|.[IR]S|.VL)
case $macros:$op in
mm:.RS) if (( tex ))
then Rf="\\+{[$reference]}"
references="$references$nl\\list{[$reference]}"
else Rf="\\u[$reference]\\d"
references="$references$nl[list][$reference][/list]"
fi
while getline
do case $1 in
.RF) break ;;
esac
references="$references$nl$*"
done
(( reference++ ))
continue
;;
esac
type[++lists]=.AL
list[lists]=DL
case $op in
.AL) case $1 in
'') type[++lists]=.al
list[lists]=OL
;;
[0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ])
type[++lists]=.al
list[lists]=OL
;;
esac
if (( tex ))
then putopn '\olist{'
else putop '[list]'
fi
;;
.[IR]S) if (( tex ))
then putopn '\list{'
else putop '[list]'
fi
;;
.VL) case $1 in
?*) type[++lists]=.al
list[lists]=DL
;;
esac
if (( tex ))
then putopn '\list{'
else putop '[list]'
fi
;;
esac
;;
.AS|.H|.HU|.SH|.SS|.ce|.CE)
if ((nf))
then nf=0
putop "}"
fi
if ((ce))
then ce=0
fi
case $hp in
?*) indent=${indent#$hp}
hp=
;;
esac
if (( lists > pp ))
then case ${type[@]:0:lists} in
*.[Aa][Ll]*|*.[IiTt][Pp]*)
while :
do case ${type[lists]} in
.[Aa][Ll]|.[IiTt][Pp])
case ${type[lists]} in
.AL|.IP|.TP)break ;;
esac
;;
*) break
;;
esac
done
;;
esac
fi
(( pp = lists ))
end=
case ${mm.title} in
?*) if (( tex ))
then beg="$beg\\1{\\blue{"
end="}}$end"
else beg="$beg[size=$size_big][color=blue]"
end="[/color][/size]$end"
fi
space
putop "$beg ${mm.title} $end"
space
mm.title=
case ${mm.author} in
?*) IFS=:
set -- ${mm.author#:} : "$@"
IFS=$ifs
while :
do case $# in
0) break ;;
esac
x=$1
shift
case $x in
:) break ;;
esac
putop "$x"
done
;;
esac
case $mm_AU in
?*) putop "${mm_AU#?}"
case $mm_AF_cur in
?*) if (( tex ))
then mm_AF="${mm_AF_cur}[/i]"
else mm_AF="${mm_AF_cur}[/i]"
fi
;;
esac
case $mm_AF in
?*) putop "$mm_AF" ;;
esac
;;
esac
;;
esac
case $op in
.AS) heading $op Abstract
;;
.ce) case $# in
0) count=1 ;;
*) count=$1 ;;
esac
while (( count-- > 0 )) && read -r data
do putop "$data"
done
;;
.CE) ;;
.S[HS]) macros=man
while (( lists > 0 ))
do case ${type[lists--]} in
.S[HS]) break ;;
esac
done
type[++lists]=$op
list[lists]=DL
case $op in
.SS) type[++lists]=.XX
list[lists]=DL
;;
esac
case $op in
.SH) heading .H 2 "$@" ;;
*) heading .H 3 "$@" ;;
esac
type[++lists]=.XX
list[lists]=DL
;;
*) heading $op "$@"
;;
esac
;;
.AT) : ignore $op
;;
.AU) case $mm_AF_cur in
?*) case $mm_AF in
?*) case $mm_AU in
?*) mm_AU="${mm_AU}${mm_AF}" ;;
esac
;;
esac
if (( tex ))
then mm_AF="${mm_AF_cur}}"
else mm_AF="${mm_AF_cur}[/i]"
fi
mm_AF_cur=""
;;
esac
mm_AU="${mm_AU}$nl$1"
;;
.BL) i=
for ((n = 1; n <= lists; n++))
do i=$i${list[n]}
done
case $i in
*UL*UL*)i=disc ;;
*UL*) i=circle ;;
*) i=square ;;
esac
type[++lists]=.AL
list[lists]=UL
if (( tex ))
then putopn '\list{'
else putop "[list]"
fi
;;
.BP) unset parm
while [[ $1 == *=* ]]
do eval parm="( ${1%%=*}='${1#*=}' )"
shift
done
unset oparm
oparm=$parm
i=$1
if [[ $i == *.@(gif|png) ]]
then for i
do f=
for d in "${dirs[@]}"
do if [[ -f "$d$i" ]]
then f=$d$i
break
fi
done
if [[ ! $f ]]
then print -u2 "$command: warning: $i: data file not found"
fi
if [[ ! ${oparm.alt} ]]
then u=${i##*/}
u=${i%.*}
parm=( alt=$u )
fi
if [[ ! ${oparm.title} ]]
then u=${i##*/}
u=${i%.*}
if [[ ${parm.category} ]]
then u="${parm.category} $u"
elif [[ ${oparm.category} ]]
then u="${oparm.category} $u"
fi
parm=( title=$u )
fi
putop "[img=\"$i\"]"
done
else i=${i%.*}.gif
case $frame in
?*) [[ -f $frame-$i ]] && i=$frame-$i ;;
esac
f=
for d in "${dirs[@]}"
do if [[ -f "$d$1" ]]
then f=$d$1
break
fi
done
if [[ ! $f ]]
then print -u2 "$command: $1: data file not found"
elif [[ $f -nt $i ]]
then ps2gif $f $i
fi
putop "[img=\"$i\"]"
fi
;;
.CT) : ignore $op
;;
.DE|.fi)
if ((nf))
then nf=0
if (( tex ))
then putop "}</PRE>"
else putop "[/code]"
fi
fi
;;
.DF|.DS|.nf)
if ((!nf))
then nf=1
if (( tex ))
then putop "<PRE>\\$tt"
else putop "[code]"
fi
fi
;;
.DT) case $macros in
man) ;;
*) putop "${ds[Dt]}" ;;
esac
;;
.EE)if ((nf))
then nf=0
if (( tex ))
then putop "}</PRE>"
else putop "[/code]"
fi
fi
if [[ $fg ]]
then if (( tex ))
then putop "\\blue{$fg}"
else putop "[color=blue]$fg[/color]"
fi
fi
indent=${indent#$inch}
;;
.EX)if ((!nf))
then nf=1
if (( tex ))
then putop "<PRE>\\$tt"
else putop "[code]"
fi
fi
indent=$inch$indent
case $# in
2) fg="Figure $1: $2" ;;
*) fg= ;;
esac
;;
.FE) putop " ] "
;;
.FG) if (( tex ))
then putop "\\blue{Figure $figure: $*}"
else putop "[color=blue]Figure $figure: $*[/color]"
fi
(( figure++ ))
;;
.FS) putop " [ "
;;
.HP|.LP|.P|.PP)
case $hp in
?*) indent=${indent#$hp}
hp=
;;
esac
if (( lists > pp ))
then case ${type[@]:0:lists} in
*.[Aa][Ll]*|*.[IiTt][Pp]*)
while :
do case ${type[lists]} in
.[Aa][Ll]|.[IiTt][Pp])
case ${type[lists]} in
.AL|.IP|.TP)break ;;
esac
;;
*) break
;;
esac
done
;;
esac
fi
(( pp = lists ))
space
;;
.HY) : ignore $op
;;
.IP|.LI|.TF|.TP)
case $macros:$op in
mm:.TP) continue ;;
esac
case $op in
.IP|.LP|.TF|.TP)OP=$op
case ${type[lists]} in
$op|$OP);;
*) type[++lists]=$op
list[lists]=DL
putop
;;
esac
case $op in
.IP|.LP|.TF)
if (( tex ))
then set -- "<PRE>\\$tt$*}</PRE>"
else set -- "[code]$*[/code]"
fi
;;
.TP) getline
;;
esac
;;
esac
if [[ ${list[lists]} ]]
then if [[ ${list[lists]} == DL ]] && (( ! $# ))
then getline
fi
if (( tex ))
then case $* in
'') putopn ;;
'\b{'*) putopn "$* " ;;
*) putopn "\\b{$*} " ;;
esac
else case $* in
'['*']'[[:alpnum:]]*) putopn "[*]$* " ;;
'['*) putopn "[*]$*: " ;;
'') putopn "[*] " ;;
[[:alpnum:]]*) putopn "[*][b]$*[/b] " ;;
*) putopn "[*][b]$*[/b]: " ;;
esac
fi
else warning "$op: no current list"
fi
;;
.IX) : ignore $op
;;
.LE|.[IR]E)
if [[ $op == ".LE" ]]
then if (( tex ))
then putopt '}'
else putop '[/list]'
fi
fi
case ${type[@]} in
*.[Aa][Ll]*)
if (( tex ))
then flush
else space
fi
while (( lists > 0 ))
do case ${type[lists--]} in
.AL) break ;;
esac
done
;;
*) warning "$op: no current list type"
;;
esac
if (( !tex ))
then case $op:$pd in
.[IR]E:?*) putop ;;
esac
fi
;;
.LX) : ignore $op
;;
.MT) macros=mm
;;
.ND|.Dt)ds[Dt]=$*
;;
.NL) type[++lists]=.AL
list[lists]=OL
if (( tex ))
then putopn '\olist{'
else putop '[list]'
fi
;;
.OK) mm.keywords="$*"
;;
.OP) : .OP opt arg arg-append arg-prepend
if (( tex ))
then x="$4\\b{-$1}\\i{$2}"
else x="$4[b]-$1[/b][i]$2[/i]"
fi
case $3 in
'[]') x="[ $x ]" ;;
?*) x="$x$3" ;;
esac
putop "$x"
;;
.PM) case ${html.company} in
'') pm= ;;
*) pm="${html.company//\&/&\;} " ;;
esac
case $1 in
'') pm= ;;
C|NDA) pm="${pm}CONFIDENTIAL" ;;
RG) pm="${pm}PROPRIETARY (REGISTERED)" ;;
RS) pm="${pm}PROPRIETARY (RESTRICTED)" ;;
*) pm="${pm}PROPRIETARY" ;;
esac
case $pm in
?*) if (( tex ))
then pm="\\blue{${pm}}"
else pm="[color=blue]${pm}[/color]"
fi
esac
;;
.PU) : ignore $op
;;
.SA) : ignore $op
;;
.SU) : ignore $op
;;
.TH|.TL): .TL junk junk
: .TH item section foot_center foot_left head_center
title=1
case $macros:$op in
:.TH) macros=man ;;
:.TL) macros=mm ;;
esac
case $op in
.TH) case $3 in
?*) dc[++dcs]=$3 ;;
esac
case $4 in
?*) dl[++dls]=$4 ;;
esac
case $5 in
'') sec=$(set --'???'MAN=$2 2>&1)
sec=$ver$msc$cmp$sec
;;
*) sec=$5
;;
esac
mm.title="$sec -- $1($2)"
;;
.TL) getline || break
case ${html.title} in
'') mm.title=$* ;;
esac
;;
esac
;;
.TM) : ignore $op
;;
.TX) : ignore $op
;;
.UC) : ignore $op
;;
.VE) : ignore $op
;;
.VS) : ignore $op
;;
.al) : ignore $op
;;
.bd) : ignore $op
;;
.br) putop
;;
.de|.am.ig)
end=..
case $#:$op in
0:*) ;;
*:.ig) end=$1 ;;
esac
: ignore $op to $end
while getline
do case $1 in
$end) break ;;
esac
done
;;
.ds) op=$1
shift
ds[$op]=$*
;;
.f[tBILPR])
case $op in
.f[BILPR])
set -- ${op#.f}
;;
esac
case $1 in
5|TT) font=$tt
;;
B) font=b$dd
;;
I) font=i$dd
;;
*) case $font in
?*) if (( tex ))
then puttext "}"
else puttext "[/$font]"
fi
font=
;;
esac
;;
esac
if [[ $font ]]
then if (( tex ))
then puttext "\\$font"
else puttext "[$font]"
fi
fi
;;
.fp) : ignore $op
;;
.hc) : ignore $op
;;
.hw) : ignore $op
;;
.hy) : ignore $op
;;
.in) indent_prev=$indent
case $1 in
"") i=$indent_prev; indent_prev=$indent; indent=$i ;;
-*) indent=${indent#$inch} ;;
+*) indent=$inch$indent ;;
*) indent=$inch ;;
esac
;;
.lf) : ignore $op
;;
.ll) : ignore $op
;;
.ne) : ignore $op
;;
.nh) : ignore $op
;;
.nr) op=$1
shift
nr[$op]=$*
;;
.ns) : ignore $op
;;
.ps) case $1 in
-*) if (( tex ))
then putop "\\-{"
else putop "[size=$size_small]"
fi
;;
+*) if (( tex ))
then putop "\\+{"
else putop "[size=$size_big]"
fi
esac
;;
.sh) case $HTMLPATH in
'') ;;
*) (( fd = so + soff ))
file=/tmp/m2h$$
path=$PATH
eval PATH=$HTMLPATH "$*" > $file
PATH=$path
eval exec $fd'< $file'
rm $file
so_file[so]=$file
file=$1
so_line[so]=$line
(( line = 0 ))
(( so++ ))
;;
esac
;;
.sn) for d in "${dirs[@]}"
do if [[ -f "$d$1" ]]
then expand "$d$1"
continue 2
fi
done
warning "$1: $op cannot read"
;;
.sp|.SP)space
;;
.ta) : ignore $op
;;
.ti) : ignore $op
;;
.ul) : ignore $op
;;
*) warning "$op: unknown op"
;;
esac
;;
""|[\ \ ]*)
case $macros in
man) leading=1
if (( tex ))
then prefix="<PRE>\\$tt"
else prefix="[code]"
fi
blank=
while :
do case $1 in
*([\ \ ]))
case $leading in
1) leading= ;;
*) blank=$'\n' ;;
esac
;;
[\ \ ]*)
puttext "$prefix$blank$inch$indent$*"
blank=
leading=
prefix=
;;
*) (( peek = 1 ))
break
;;
esac
getline || break
done
case $prefix in
"") if (( tex ))
then putop "}</PRE>"
else putop "[/code]"
fi
;;
esac
;;
*) puttext "$indent$*"
;;
esac
;;
*) puttext "$indent$*"
;;
esac
done
flush
case $references in
?*) heading .H 1 References
puttext "$references"
flush
;;
esac
exit $code
