" $* "

$nl" if (( tbl_fd == 3 )) then print -r -u$tbl_fd -- "

$*" ;; *) mm_AF_cur="${mm_AF_cur}
$*" ;; esac ;; .AL|.VL)type[++lists]=.AL list[lists]=DIV print -r -- "

" case $op in .AL) case $1 in '') type[++lists]=.al list[lists]=OL print -r -- "

" ;; [0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ]) type[++lists]=.al list[lists]=OL print -r -- "

" ;; esac ;; .VL) case $1 in ?*) type[++lists]=.al list[lists]=DL print -r -- "

" ;; esac ;; esac ;; .AS|.H|.HU|.SH|.SS|.ce|.CE) if ((nf)) then nf=0 print -r -- "" fi if ((ce)) then ce=0 print -r -- "" fi if (( lists > pp )) then case ${type[@]:0:lists} in *.[Aa][Ll]*|*.[IiTt][Pp]*) while : do case ${type[lists]} in .[Aa][Ll]|.[IiTt][Pp]) print -rn -- "" case ${type[lists]} in .AL|.IP|.TP)break ;; esac ;; *) break ;; esac done ;; esac fi (( pp = lists )) print -r -- "
" end= case ${mm.title} in ?*) mm_H1="
" case ${mm_AU}${mm.author}${mm.keywords} in ?*) print -r -- "" ;; esac for i in ${html.H1} do case $i in align=center) beg="$beg" end="$end" ;; color=*|face=*) beg="$beg" end="$end" ;; esac done print -r -- "<$H>$beg${mm.title}$end" 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 print -r -- "$x
" done ;; esac case $mm_AU in ?*) print -r -- "$mm_AU" case $mm_AF_cur in ?*) mm_AF="${mm_AF_cur}" ;; esac case $mm_AF in ?*) print -r -- "$mm_AF" ;; esac ;; esac case ${mm_AU}${mm.author}${mm.keywords} in ?*) print -r -- "" ;; esac ;; esac case $op in .AS) print -r -- "

" heading $op Abstract ;; .ce) case $# in 0) count=1 ;; *) count=$1 ;; esac print -r -- "

" while (( count-- > 0 )) && read -r data do print -r -- "$data
" done print -r -- "" ;; .CE) if [[ $1 != 0 ]] then ce=1 print -r -- "" fi ;; .S[HS]) setmacros man while (( lists > 0 )) do [[ $op == .SS && ${type[lists]} == .[IRS][EH] ]] && break print -r -- "" [[ ${type[lists--]} == $op ]] && break done type[++lists]=$op list[lists]=DIV n=IN i=FI case $op in .SH) Sh=$* if [[ $macros == man && $* == DESCRIPTION && ${html.labels} != 0 ]] then index fi heading .H 2 "$@" if [[ $* == SYNOPSIS ]] then i=HI fi ;; *) heading .H 3 "$@" ;; esac print -r -- "

" [[ $op == .SH && $* == NAME ]] && print -nr "" ;; *) 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 mm_AF="${mm_AF_cur}" mm_AF_cur="" ;; esac mm_AU="${mm_AU}
$1" ;; .BL|.bL|.sL) 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 print -r -- "

" fi 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 print -r -- "

" done if (( center )) then print "

"
			fi
			;;
		.DT)	case $macros in
			man)	;;
			*)	print -r -- "${ds[Dt]}" ;;
			esac
			;;
		.EE|.eE)while	(( lists > 0 ))
			do	print -r -- ""
				case ${type[lists--]} in
				.EX)	break ;;
				esac
			done
			if	((nf))
			then	nf=0
				print -r -- "

$fg

" if ((!nf)) then nf=1 print -r -- "

"
			else	print "
"
			fi
			case $# in
			2)	fg="Figure $1: $2" ;;
			*)	fg= ;;
			esac
			;;
		.FE)	print -r -- ' ] '
			;;
		.FG)	print -r -- "Figure $figure: $*"
			(( figure++ ))
			;;
		.FS)	print -r -- ' [ '
			;;
		.FT)	: ignore $op :
			;;
		.H[01234])
			if	[[ $macros == man ]]
			then	: optget --nroff : .Hlevel label :
				n=${op#.H}
				while	[[ ${type[lists]} == .H[01234] ]]
				do	m=${type[lists]#.H}
					(( m <= n )) && break
					print -r -- ""
				done
				if	[[ ${type[lists]} != $op ]]
				then	type[++lists]=$op
					list[lists]=DL
					print -r -- ""
				fi
				print -r -- "$*
"$(nohang "$*")
			else	warning "$op: unknown op"
			fi
			;;
		.HP|.LP|.P|.PP)
			if	(( lists > pp ))
			then	case ${type[@]:0:lists} in
				*.[Aa][Ll]*|*.[IiTt][Pp]*)
					while	:
					do	case ${type[lists]} in
						.[Aa][Ll]|.[IiTt][Pp])
							print -rn -- ""
							case ${type[lists]} in
							.AL|.IP|.TP)break ;;
							esac
							;;
						*)	break
							;;
						esac
					done
					;;
				esac
			fi
			(( pp = lists ))
			print -r -- ""
			;;
		.HY)	: ignore $op
			;;
		.IP|.LI|.TF|.TP|.bI|.sI)
			case $macros:$op in
			mm:.TP)	continue ;;
			esac
			case $op in
			.IP|.LP|.TF|.TP)
				if	[[ ${type[lists]} != $op ]]
				then	type[++lists]=$op
					list[lists]=DL
					print -r -- "
"
				fi
				case $op in
				.IP|.LP|.TF)
					set -- "$*"
					;;
				.TP)	getline
					;;
				esac
				;;
			esac
			case ${list[lists]} in
			"")	warning "$op: no current list"
				;;
			DL)	case $# in
				0)	getline ;;
				esac
				if	[[ ${pd} && ! ${hung} ]]
				then	print -rn -- "${pd}"
				fi
				hung=$(nohang "$*")
				print -r -- "$*
$hung"
				;;
			*)	case $op in
				.bI|.sI)print -r -- "" ;;
				esac
				print -r -- "
$*"
				;;
			esac
			;;
		.[IR]S)	case $macros:$op in
			mm:.RS) references="$references$nl[$reference]
"$(nohang "[$reference]")
				while	getline
				do	case $1 in
					.RF)	break ;;
					esac
					references="$references$nl$*"
				done
				(( reference++ ))
				ds[Rf]="[$reference]"
				continue
				;;
			esac
			type[++lists]=${op%S}E
			list[lists]=DIV
			print -r -- ""
			;;
		.[IR]E) while	(( lists > 0 ))
			do	print -r -- ""
				case ${type[lists--]} in
				$op)	break ;;
				esac
			done
			print "
"
			;;
		.IX)	: ignore $op
			;;
		.LE|.bE|.sE|.El)
			case ${type[@]} in
			*.[Aa][Ll]*)
				while	(( lists > 0 ))
				do	print -r -- ""
					case ${type[lists--]} in
					.AL)	break ;;
					esac
				done
				;;
			*)	warning "$op: no current list type"
				;;
			esac
			;;
		.LX)	: ignore $op
			;;
		.ME)	if	[[ $macros == man ]]
			then	print -r -- "
"
			fi
			;;
		.MT)	if	[[ $macros == man ]]
			then	x="$*"
				getline
				print -nr -- "$*" "$x"
			else	setmacros mm
			fi
			;;
		.ND|.Dd)ds[Dt]=$*
			;;
		.NL)	type[++lists]=.AL
			list[lists]=OL
			print -r -- ""
			;;
		.OK)	mm.keywords="$*"
			;;
		.OP)	case $macros in
			man)	if	(( man_SY ))
				then	: .OP flag [value] :
					print -nr -- " [$1"
					if	(( $# > 1 ))
					then	shift
						print -nr -- " $*"
					fi
					print -nr -- "]"
				else	: optget --nroff : .OP flag long types argument :
					while	[[ ${type[lists]}  == .H[01234] ]]
					do	print -r -- ""
					done
					if	[[ ${type[lists]} != $op ]]
					then	type[++lists]=$op
						list[lists]=DL
						print -r -- ""
					fi
					x=""
					if	[[ $1 != - ]]
					then	x="$x-$1"
					fi
					if	[[ $2 != - ]]
					then	if	[[ $1 != - ]]
						then	x="$x, "
						fi
						x="$x--$2"
						if	[[ $4 != - ]]
						then	if	[[ $3 == *optional* ]]
							then	x="$x[=$4]"
							else	x="$x=$4"
							fi
						fi
					elif	[[ $4 != - ]]
					then	if	[[ $3 == *optional* ]]
						then	x="$x [$4]"
						else	x="$x $4"
						fi
					fi
					x="$x
"$(nohang "$x")
				fi
				;;
			*)	: .OP opt arg arg-append arg-prepend
				x="$4-$1$2"
				case $3 in
				'[]')	x="[ $x ]" ;;
				?*)	x="$x$3" ;;
				esac
				;;
			esac
			print -r -- "$x"
			;;
		.PM|.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
			?*)	case $op in
				.pM)	pm="${pm}" ;;
				*)	pm="
<$H>${pm}" ;;
				esac
				;;
			esac
			;;
		.PU)	: ignore $op
			;;
		.SA)	: ignore $op
			;;
		.SU)	: ignore $op
			;;
		.SY)	if	[[ $macros == man ]]
			then	man_SY=1
				print -nr -- "$1 "
			fi
			;;
		.TH|.TL|.Dt)
			: .TL junk junk
			: .TH item section foot_center foot_left head_center
			: .Dt item section volume
			case $macros:$op in
			:.TL)	setmacros mm ;;
			:.TH)	setmacros man ;;
			:.Dt)	setmacros man mandoc ;;
			esac
			case ${html.title} in
			?*)	title=${html.title}
				;;
			*)	case $title in
				'')	title="$document $macros document" ;;
				esac
				title="$package $title"
				;;
			esac
			title $title
			case $op in
			.TH|.Dt)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
				if	[[ $frame ]]
				then	TOP="target=_top "
				else	TOP=
				fi
				MAN="$1($2)"
				print -r -- ""
				print -r -- "$MAN $sec $MAN"
				print -r -- ""
				;;
			.TL)	getline || break
				case ${html.title} in
				'')	mm.title=$* ;;
				esac
				;;
			esac
			;;
		.TM)	: ignore $op
			;;
		.TS)	# undent ...

	case $1 in
	H)	tbl_tmp=/tmp/m2h$$tbl
		(( tbl_fd=3 ))
		trap "rm -f $tbl_tmp" 0 1 2 3
		eval exec "$tbl_fd>$tbl_tmp"
		;;
	esac
	unset opts
	eval "opts=${html.TABLE}"
	unset opts.width opts.align
	tbl_ns=3
	tbl_sp='  '
	tab=$'\t'
	(( augment=0 ))
	while	:
	do	(( row=0 ))
		while	getline
		do	set -- ${@//[-\|_=]/ }
			case $# in
			0)	continue ;;
			esac
			case $1 in
			'.T&'*)	continue
				;;
			.TE)	if	(( tbl_fd != 1 ))
				then	warning ".TS H without .TH"
					eval "exec $tbl_fd>&-"
					(( tbl_fd=1 ))
					rm -f $tbl_tmp
					tbl_tmp=
					trap - 0 1 2 3
					if	(( augment ))
					then	print -r -u$tbl_fd -- ""
					fi
				fi
				continue 3
				;;
			esac
			(( row++ ))
			tbl[row]=${@//..*/.}
			case $* in
			*";"*)	(( row=0 ))
				for i in ${@//[,\;]/ }
				do	case $i in
					center)	opts.align=center
						;;
					expand)	opts.align=center opts.width="99%"
						;;
					allbox)	opts.border=1
						opts.frame="box"
						opts.rules="all"
						;;
					box)	opts.border=
						opts.frame="void"
						opts.rules="none"
						;;
					doublebox)
						opts.border=2
						opts.frame="box"
						opts.rules="none"
						;;
					linesize'('*')')
						opts.border=${i//*'('@(*)')'*/\1}
						;;
					tab'('*')'*)
						tab=${i//*'('@(*)')'*/\1}
						;;
					tab'(')	case $* in
						*'tab(,'*)	tab=',' ;;
						*'tab(;'*)	tab=';' ;;
						*'tab( '*)	tab=' ' ;;
						*)		tab=$'\t' ;;
						esac
						;;
					esac
				done
				;;
			*".")	break
				;;
			esac
		done
		case ${opts.border} in
		0)	opts.cellpadding=0
			opts.cellspacing=0
			unset opts.bgcolor
			;;
		*)	case ${opts.cellpadding} in
			'')	opts.cellpadding=2 ;;
			esac
			case ${opts.cellspacing} in
			'')	opts.cellspacing=2 ;;
			esac
			;;
		esac
		case ${opts.border} in
		'')	opts.border=0 ;;
		esac
		if	((!augment))
		then	(( augment=1 ))
			print -r -- ""
			else	print -r -u$tbl_fd -- ""
			fi
		fi
		for ((n = 1; n < row; n++))
		do	getline || break
			case $1 in
			[_=]*)	((n--)); continue ;;
			esac
			print -rn -u$tbl_fd -- ""
			IFS=$tab
			set -- $*
			IFS=$ifs
			set -A Q ${tbl[n]}
			(( q=0 ))
			(( s=1 ))
			while	:
			do	i=${Q[q++]}
				case $i in
				''|.)	break
					;;
				*[0-9]*)x=${i//[pvw]*([()0-9.inm])/}
					x=${i//[[:alpha:]]/}
					case $x in
					+([0-9]))
						if	(( $x > tbl_ns ))
						then	tbl_ns=$x
							tbl_sp=''
							for ((m=(tbl_ns+1)/2; m>0; m--))
							do	tbl_sp=${tbl_sp}' '
							done

						fi
					esac
					;;
				esac
				a=
				case $q in
				1)		b='' ;;
				*)		b=$tbl_sp ;;
				esac
				case ${Q[q]}:$# in
				:*|*:[01])	e='' ;;
				*)		e=$tbl_sp ;;
				esac
				case $i in
				[sS]*)	(( s++ )); continue ;;
				esac
				tbl_attributes "$i"
				while	[[ ${Q[q]} == *s* ]]
				do	(( s++ ))
					(( q++ ))
				done
				if	(( s > 1 ))
				then	a="$a colspan=$s"
					(( s=1 ))
				fi
				v=$1
				case $i in
				*'*'*)	case $v in
					*'=>'*)	v="'}\">${v%'=>'}" ;;
					*)	v="$v" ;;
					esac
				esac
				print -rn -u$tbl_fd -- "$b$v$e"
				case $# in
				0|1)	break ;;
				esac
				shift
			done
			print -r -u$tbl_fd -- ""
		done
		prev=
		set -A Q ${tbl[n]}
		while	getline
		do	case $1 in
			'.T&'*)	(( augment=1 ))
				continue 2
				;;
			.TH*)	if	(( tbl_fd != 1 ))
				then	print -r -u$tbl_fd -- ""
					if	(( tbl_no == 1 || $# == 1 )) || [[ $2 != N ]]
					then	cat $tbl_tmp
					fi
					eval "exec $tbl_fd>&-"
					(( tbl_fd=1 ))
					rm -f $tbl_tmp
					tbl_tmp=
					trap - 0 1 2 3
				fi
				print -r -u$tbl_fd -- ""
				continue
				;;
			.TE)	(( tbl_no++ ))
				if	(( tbl_fd != 1 ))
				then	warning ".TS H without .TH"
					eval "exec $tbl_fd>&-"
					(( tbl_fd=1 ))
					rm -f $tbl_tmp
					tbl_tmp=
					trap - 0 1 2 3
					print -r -u$tbl_fd -- ""
				fi
				break
				;;
			esac
			IFS=$tab
			set -- $*
			IFS=$ifs
			case $* in
			*"\\")	prev=$prev$'\n'${*/"\\"/}
				;;
			*)	print -rn -u$tbl_fd -- ""
				IFS=$'\t'
				set -- $prev$'\n'$*
				IFS=$ifs
				case $* in
				$'\n_')	rule=1
					set -- '_'
					;;
				$'\n=')	rule=1
					set -- '='
					;;
				*)	rule=0
					;;
				esac
				(( q=0 ))
				while	:
				do	i=${Q[q++]}
					case $i in
					''|.)	break
						;;
					*[0-9]*)x=${i//[pvw]*([()0-9.inm])/}
						x=${i//[[:alpha:]]/}
						case $x in
						+([0-9]))
							if	(( $x > tbl_ns ))
							then	tbl_ns=$x
								tbl_sp=''
								for ((m=(tbl_ns+1)/2; m>0; m--))
								do	tbl_sp=${tbl_sp}' '
								done

							fi
						esac
						;;
					esac
					a=
					case $q in
					1)		b='' ;;
					*)		b=$tbl_sp ;;
					esac
					case ${Q[q]}:$# in
					:*|*:[01])	e='' ;;
					*)		e=$tbl_sp ;;
					esac
					case $1 in
					$'\n_'|'_')
						print -rn -u$tbl_fd -- ""
						;;
					$'\n='|'=')
						print -rn -u$tbl_fd -- ""
						;;
					*)	tbl_attributes "$i"
						print -rn -u$tbl_fd -- "$b$1$e"
						;;
					esac
					((rule)) && continue
					case $# in
					0|1)	break ;;
					esac
					shift
				done
				print -r -u$tbl_fd -- ""
				prev=
				;;
			esac
		done
		break
	done
	print -r -- "$nl"
			if	(( tbl_fd == 3 ))
			then	print -r -u$tbl_fd -- "
"

			# ... indent
			;;
		.TX)	: ignore $op
			;;
		.UC)	: ignore $op
			;;
		.UE)	if	[[ $1 ]]
			then	getline
			fi
			print -r -- "$*"
			;;
		.UR)	x="$*"
			getline
			print -nr -- "$*" "$x"
			;;
		.VE)	: ignore $op
			;;
		.VS)	: ignore $op
			;;
		.YS)	if	(( man_SY ))
			then	man_SY=0
				getline
				print -r -- "$*"
			fi
			;;
		.ad)	: ignore $op
			;;
		.al)	: ignore $op
			;;
		.bd)	: ignore $op
			;;
		.br|.)	if	[[ $Sh == SYNOPSIS ]]
			then	print ""
			else	print "
"
			fi
			;;
		.cp)	: ignore $op
			;;
		.cs)	: ignore $op
			;;
		.da|.di)x=$1
			t=
			while	getline
			do	case $1:$2 in
				$op:)	break ;;
				esac
				t=$t$nl$*
			done
			if	[[ $op == .di || ! ${ds[$x]} ]]
			then	ds[$x]=${t#?}
			else	ds[$x]=${ds[$x]}$t
			fi
			;;
		.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
			;;
		.do)	: ignore $op
			;;
		.ds)	op=$1
			shift
			ds[$op]=$*
			;;
		.ec)	: ignore $op
			;;
		.eo)	: ignore $op
			;;
		.f[tBILPR])
			case $op in
			.f[BILPR])
				set -- ${op#.f}
				;;
			esac
			case $1 in
			5|TT)	font=TT
				print -n -r -- "<$font>"
				;;
			[BI])	font=$1
				print -n -r -- "<$font>"
				;;
			*)	case $font in
				?*)	print -n -r -- ""
					font=
					;;
				esac
				;;
			esac
			;;
		.fc)	: ignore $op
			;;
		.fp)	: ignore $op
			;;
		.hc)	: ignore $op
			;;
		.hw)	: ignore $op
			;;
		.hy)	: ignore $op
			;;
		.in)	case $1 in
			-*|"")	while	(( lists > 0 ))
				do	print -r -- ""
					case ${type[lists--]} in
					.in)	break ;;
					esac
				done
				;;
			+*)	type[++lists]=$op
				list[lists]=DIV
				print -r -- "
"
				;;
			esac
			print "
"
			;;
		.lf)	: ignore $op
			;;
		.ll)	: ignore $op
			;;
		.na)	: ignore $op
			;;
		.ne)	: ignore $op
			;;
		.nh)	: ignore $op
			;;
		.nr)	op=$1
			shift
			nr[$op]=$*
			;;
		.ns)	: ignore $op
			;;
		.pl)	: ignore $op
			;;
		.ps|.pS)case $1 in
			[-+][0123456789])
				print -r -- ""
				;;
			esac
			;;
		.rn)	: ignore $op
			;;
		.sh)	case $HTMLPATH in
			'')	;;
			*)	(( fd = so + soff ))
				file=/tmp/m2h$$
				#( eval PATH=$HTMLPATH "$*" ) > $file
				$SHELL -c "PATH=$HTMLPATH $*" > $file
				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	cat "$d$1"
					continue 2
				fi
			done
			warning "$1: $op cannot read"
			;;
		.sp|.SP|.Sp)
			while	[[ ${type[lists]}  == .H[01234] ]]
			do	print -r -- ""
			done
			case $1 in
			[0123456789]*)
				count=$1
				while	(( count >= 0 ))
				do	(( count-- ))
					print -r -- "
"
				done
				;;
			*)	print -r -- ""
				;;
			esac
			;;
		.ta)	: ignore $op
			;;
		.ti)	: ignore $op
			;;
		.tr)	x=$1
			while	[[ $x ]]
			do	if	[[ $x == '\('??* ]]
				then	f=${x:0:4}
					x=${x#????}
				else	f=${x:0:1}
					x=${x#?}
				fi
				i=${x#?}
				t=${x%$i}
				x=$i
				tr[$f]=${t:-' '}
				tr_chars+=\\$f
			done
			;;
		.ul)	: ignore $op
			;;
		.vs)	: ignore $op
			;;
		.vG)	vg=$1
			inch=" "
			set +o noglob
			rm -f [0123456789][0123456789].html index.html outline.html
			set -o noglob
			exec > $page.html
			outline[$page]=$2
			header=''
			title "${2//\<*([!>])\>/}"
			print ""
			print "${pm}
"
			print "
$2

"
			case $# in
			0|1|2)	;;
			*)	shift 2
				for name
				do	[[ $name == "-" ]] && name=""
					print -- "
$name"
				done
				;;
			esac
			print ""
			print ""
			;;
		.vH)	print -r -- "



 $1 


"
			;;
		.vP)	while	(( lists > 0 ))
			do	print -r -- ""
			done
			print -r -- "${trailer}
"
			((page++))
			exec > $page.html
			outline[$page]=$1
			trailer=
			title "${1//\<*([!>])\>/}"
			print ""
			print "${pm}"
			print "
$1"
			print ""
			print ""
			;;
		.nS)	print -r -- "
"
			;;
		.tS)	print -r -- ""
			;;
		.nE|.tE)print -r -- ""
			;;
		.A[cdoqrt]|.B[coqx]|.C[dm]|.D[coqvx]|.E[mrvx]|.F[acdlnotx]|.I[cnx]|.L[bi]|.N[ox]|.Ox|.P[acfoq]|.Q[cloq]|.Rv|.S[coqty]|.T[an]|.Ux|.V[at]|.Xo)
			mandoc -space ${op#.} "$@"
			;;
		.An)	case $1 in
			-split)	An_sep=-line
				;;
			-nosplit)
				An_sep=-space
				;;
			-*)	;;
			*)	if	(( $# >= 2 ))
				then	print -nr -- "$1 $2 "
					shift 2
					mandoc $An_sep "$@"
				else	print -r -- "$1"
				fi
				;;
			esac
			;;
		.Bk)	: mandoc :
			;;
		.Bl)	i=
			for o
			do	case $o in
				-bullet)	i="type=disc" ;;
				-dash|-hyphen)	i="type=box" ;;
				-enum)		i=OL ;;
				esac
			done
			case $i in
			OL)	type[++lists]=.AL
				list[lists]=OL
				print -r -- ""
				;;
			*=*)	type[++lists]=.AL
				list[lists]=UL
				print -r -- ""
				;;
			*)	type[++lists]=.AL
				list[lists]=DIV
				print -r -- ""
				type[++lists]=.al
				list[lists]=DL
				print -r -- ""
				;;
			esac
			;;
		.D1)	(( $# )) || getline
			print -r -- "
$*"
			;;
		.Dl)	(( $# )) || getline
			print -r -- "
$*"
			;;
		.Ek)	: mandoc :
			;;
		.Id)	meta="$meta$nl"
			;;
		.It)	if	(( $# ))
			then	mandoc label "$@"
				set -A text -- .LI "$label"
			elif	[[ ${list[lists]} == DL ]]
			then	getline
				if	[[ $1 == .[[:upper:]][[:lower:]] ]]
				then	x=$1
					shift
					set -- "${x#.}" "$@"
				fi
				mandoc label "$@"
				set -A text -- .LI "$label"
			else	set -A text -- .LI
			fi
			peek=1
			;;
		.Nd)	print -nr -- "-" "$@" ""
			;;
		.Nm)	[[ $1 ]] && ds[Nm]=$1
			[[ $Sh == SYNOPSIS ]] && print "
"
			print -nr -- "${ds[Nm]} "
			;;
		.Oo)	mandoc -space ${op#.} "$@"
			;;
		.O[cp])	mandoc - ${op#.} "$@"
			;;
		.Os)	: mandoc :
			;;
		.Pp)	print -r -- ""
			;;
		.Re)	print -r -- ".
"
			;;
		.Rs)	print -r -- "
"
			Rs_sep=''
			;;
		.Sm)	case $1 in
			on)	Sm=" " ;;
			off)	Sm="" ;;
			*)	case $Sm in
				" ")	Sm="" ;;
				"")	Sm=" " ;;
				esac
				;;
			esac
			;;
		.Sx)	print -r -- "$1$2"
			;;
		.Xr)	print -r -- "$1($2)$3"
			;;
		.%A)	print -nr -- "$Rs_sep$*"
			Rs_sep=", "
			;;
		.%D)	print -nr -- "$Rs_sep$*"
			Rs_sep=", "
			;;
		.%N)	print -nr -- "$Rs_sep$*"
			Rs_sep=", "
			;;
		.%O)	print -nr -- "$Rs_sep$*"
			Rs_sep=", "
			;;
		.%T)	print -nr -- "$Rs_sep$*"
			Rs_sep=", "
			;;
		*)	warning "$op: unknown op"
			;;
		esac
		;;
	[\ \	]*)
		case $macros in
		man)	leading=1
			prefix="
"
			blank=
			while	:
			do	case $1 in
				*([\ \	]))
					case $leading in
					1)	leading= ;;
					*)	blank=$'\n' ;;
					esac
					;;
				[\ \	]*)
					print -r -- "$prefix$blank$inch$*"
					blank=
					leading=
					prefix=
					;;
				*)	(( peek = 1 ))
					break
					;;
				esac
				getline || break
			done
			case $prefix in
			"")	print -r -- "" ;;
			esac
			;;
		*)	print -r -- "$*"
			;;
		esac
		;;
	"")	case $macros in
		man)	print -r -- "" ;;
		*)	print -r -- "$*" ;;
		esac
		;;
	*)	print -r -- "$*"
		;;
	esac
done
while	(( lists > 0 ))
do	print -r -- ""
done
case $references in
?*)	heading .H 1 References
	print "
"
	print "
"
	print -r -- "$references"
	print ""
	;;
esac
if	(( faq ))
then	print -r "

show all answers
hide all answers

"
fi
print -r -- ""
print -r -- "
"
print -r -- ""
integer dls=0 dcs=0 drs=0
typeset d dl dc dr
case ${html.ident} in
1)	case ${license.author} in
	?*)	IFS=',+'
		set -- ${license.author}
		IFS=$ifs
		d=""
		sp=""
		for a
		do	v=${contributor[$a]}
			case $v in
			?*)	a=$v ;;
			esac
			IFS='<>'
			set -- $a
			IFS=$ifs
			case $2 in
			?*)	d="$d$sp"
				sp=", "
				set -- $1
				d="$d$*"
				;;
			esac
		done
		[[ $d ]] && dr[++drs]=$d
		;;
	*)	case ${html.MAILTO} in
		?*)	dr[++drs]="${html.MAILTO}" ;;
		esac
		;;
	esac
	for i in "${license.organization}" "${license.corporation} ${license.company}" "${license.address}" "${license.location}" "${license.phone}"
	do	case $i in
		''|' ')	;;
		*)	dr[++drs]="${i//\&/\&\;}" ;;
		esac
	done
	;;
esac
dr[++drs]="${ds[Dt]}"
(( drs < dls )) && (( drs = dls ))
for (( dls = 1; dls <= drs; dls++ ))
do	print -r -- "$nl$nl$nl$nl"
done
print -r -- "${dl[dls]} ${dc[dls]} ${dr[dls]}"
print -r -- ""
case ${html.footing} in
?*)	html.toolbar=
	hit=
	if	[[ -f ${html.footing} ]]
	then	hit=${html.footing}
	elif	[[ -f $HOME/${html.footing} ]]
	then	hit=$HOME/${html.footing}
	else	IFS=:
		set "" $HOME $PATH
		IFS=$ifs
		for i
		do	if	[[ -f ${i%/bin}/lib/${html.footing} ]]
			then	hit=${i%/bin}/lib/${html.footing}
				break
			fi
		done
	fi
	case $hit in
	"")	print -u2 "$command: ${html.footing}: cannot read"
		code=1
		;;
	*)	eval "cat <"
print -r -- "$trailer"
case $frame in
?*)	if	[[ ! $framelink && ${html.labels} != 0 ]] && (( labels > 1 ))
	then	if	[[ $macros == man ]]
		then	mv $framebody $frame-man.html
			frameref=${frame##*/}
			{
				ident
				print -r -- "$file table of contents"
				[[ ${html.menu.style} ]] && print -r -- "${html.menu.style}"
				[[ ${html.menu.script} ]] && print -r -- "${html.menu.script}"
				print -r -- ""
				print -r -- ""
				[[ ${html.menu.id} ]] && print -r -- "
"
				print -r -- ""
				(( lev = level[0] ))
				for ((n = 0; n < labels; n++))
				do	while	(( lev < level[n] ))
					do	(( lev++ ))
						print -r -- ""
					done
					while	(( lev > level[n] ))
					do	(( lev-- ))
						print -r -- ""
					done
					print -r -- "${label[n]}"
				done
				while	(( lev > level[0] ))
				do	(( lev-- ))
					print -r -- ""
				done
				print -r -- ""
				[[ ${html.menu.id} ]] && print -r -- ""
				print -r -- ""
				print -r -- ""
			} > $frame-toc.html
			{
				ident
				print -r -- "$file frame sets$nl"
				print -r -- ""
				print -r -- ""
				print -r -- ""
				print -r -- ""
				print -r -- ""
				print -r -- ""
				print -r -- ""
			} > $framebody
		else	exec > $frame-temp.html || exit
			print -r -- ""
			print -r -- ""
			for ((n = 0; n < labels; n++))
			do	print -r -- ""
			done
			print -r -- "${label[n]}"
			print -r -- ""
			exec > /dev/null || exit
			ed $framebody </r $frame-temp.html
w
q
!
			rm $frame-temp.html
		fi
	fi
	case $index in
	?*)	case $index in
		local)	exec > $frame-index.html || exit ;;
		global)	exec > index.html || exit ;;
		esac
		unset html.FRAMESET.rows html.FRAMESET.cols
		ident
		case $framelink in
		'')	framelink=$frame.html ;;
		esac
		print -r -- "$title$framerefs
"
		if	[[ ${html.frameindex} && -f ${html.frameindex} ]]
		then	sed "s,\${INDEX},${framelink}," ${html.frameindex}
		else	print -r -- " 
	
	
"
		fi
		print -r -- ""
		;;
	esac
	;;
*)	if	[[ $redirect_old ]]
	then	eval "exec 1>&$redirect_old $redirect_old>&-"
	fi
	if	[[ ${html.labels} != 0 ]] && (( labels > 1 ))
	then	if	[[ ${html.labels} != +([0-9]) || ${html.labels} == 1 ]]
		then	html.labels=7
		fi
		print -r -- ""
		print -r -- ""
		print -r -- ""
		for ((n = 0; n < labels; n++))
		do	print -r -- ""
			if	(( (n + 1) < labels && !( (n + 1) % ${html.labels} ) ))
			then	print -r -- ""
			fi
		done
		print -r -- "${label[n]}
"
		print -r -- ""
		print -r -- ""
	fi
	if	[[ $redirect_new ]]
	then	eval "cat <&$redirect_new"
	fi
	;;
esac
case $vg in
?*)	frame=$vg
	trailer=
	pages=${page#0}
	exec > index.html
	title "${outline[01]//\<*([!>])\>/}"
	print -r -- "
  
  
  

"
	exec > outline.html
	title "${title} outline"
	print -r -- "
${pm}

outline

"
	for ((page=1; page <= pages; page++))
	do	print ""
	done
	print "${outline[$page]}


"
	;;
esac
exit $code

$fg

Figure $figure: $*

$MAN$sec$MAN

$2

$1

$1

outline

$MAN $sec $MAN