48 #define	DECL_ARGS 	  struct termp *p, \
143 	struct termp		*p;  in terminal_man()  local
148 	p = (struct termp *)arg;  in terminal_man()
150 	if (0 == p->defindent)  in terminal_man()
151 		p->defindent = 7;  in terminal_man()
153 	p->overstep = 0;  in terminal_man()
154 	p->maxrmargin = p->defrmargin;  in terminal_man()
155 	p->tabwidth = term_len(p, 5);  in terminal_man()
157 	if (NULL == p->symtab)  in terminal_man()
158 		p->symtab = mchars_alloc();  in terminal_man()
163 	term_begin(p, print_man_head, print_man_foot, meta);  in terminal_man()
164 	p->flags |= TERMP_NOSPACE;  in terminal_man()
168 	mt.lmargin[mt.lmargincur] = term_len(p, p->defindent);  in terminal_man()
169 	mt.offset = term_len(p, p->defindent);  in terminal_man()
173 		print_man_nodelist(p, &mt, n->child, meta);  in terminal_man()
175 	term_end(p);  in terminal_man()
180 a2height(const struct termp *p, const char *cp)  in a2height()  argument
187 	return(term_vspan(p, &su));  in a2height()
192 a2width(const struct termp *p, const char *cp)  in a2width()  argument
199 	return((int)term_hspan(p, &su));  in a2width()
211 print_bvspace(struct termp *p, const struct man_node *n, int pardist)  in print_bvspace()  argument
215 	term_newln(p);  in print_bvspace()
226 		term_vspace(p);  in print_bvspace()
243 	term_fontrepl(p, TERMFONT_UNDER);  in pre_I()
253 	term_newln(p);  in pre_literal()
265 	if (MAN_HP == n->parent->tok && p->rmargin < p->maxrmargin) {  in pre_literal()
266 		p->offset = p->rmargin;  in pre_literal()
267 		p->rmargin = p->maxrmargin;  in pre_literal()
268 		p->trailspace = 0;  in pre_literal()
269 		p->flags &= ~TERMP_NOBREAK;  in pre_literal()
270 		p->flags |= TERMP_NOSPACE;  in pre_literal()
332 		term_fontrepl(p, font[i]);  in pre_alternate()
335 		print_man_node(p, mt, nn, meta);  in pre_alternate()
337 			p->flags |= TERMP_NOSPACE;  in pre_alternate()
348 	term_fontrepl(p, TERMFONT_BOLD);  in pre_B()
357 	term_word(p, "[");  in pre_OP()
358 	p->flags |= TERMP_NOSPACE;  in pre_OP()
361 		term_fontrepl(p, TERMFONT_BOLD);  in pre_OP()
362 		term_word(p, n->string);  in pre_OP()
365 		term_fontrepl(p, TERMFONT_UNDER);  in pre_OP()
366 		term_word(p, n->next->string);  in pre_OP()
369 	term_fontrepl(p, TERMFONT_NONE);  in pre_OP()
370 	p->flags |= TERMP_NOSPACE;  in pre_OP()
371 	term_word(p, "]");  in pre_OP()
382 		term_fontlast(p);  in pre_ft()
393 		term_fontrepl(p, TERMFONT_BOLD);  in pre_ft()
398 		term_fontrepl(p, TERMFONT_UNDER);  in pre_ft()
401 		term_fontlast(p);  in pre_ft()
408 		term_fontrepl(p, TERMFONT_NONE);  in pre_ft()
424 	term_newln(p);  in pre_in()
427 		p->offset = mt->offset;  in pre_in()
441 	if ((len = a2width(p, ++cp)) < 0)  in pre_in()
447 		p->offset -= p->offset > v ? v : p->offset;  in pre_in()
449 		p->offset += v;  in pre_in()
451 		p->offset = v;  in pre_in()
455 	if (p->offset > p->rmargin)  in pre_in()
456 		p->offset = p->rmargin;  in pre_in()
503 		len = a2height(p, s);  in pre_sp()
508 		term_newln(p);  in pre_sp()
510 		p->skipvsp += len;  in pre_sp()
513 			term_vspace(p);  in pre_sp()
529 		print_bvspace(p, n, mt->pardist);  in pre_HP()
538 		p->flags |= TERMP_NOBREAK;  in pre_HP()
539 		p->trailspace = 2;  in pre_HP()
548 		if ((ival = a2width(p, nn->string)) >= 0)  in pre_HP()
551 	one = term_len(p, 1);  in pre_HP()
555 	p->offset = mt->offset;  in pre_HP()
556 	p->rmargin = mt->offset + len;  in pre_HP()
572 		term_newln(p);  in post_HP()
573 		p->flags &= ~TERMP_NOBREAK;  in post_HP()
574 		p->trailspace = 0;  in post_HP()
575 		p->offset = mt->offset;  in post_HP()
576 		p->rmargin = p->maxrmargin;  in post_HP()
591 		mt->lmargin[mt->lmargincur] = term_len(p, p->defindent);  in pre_PP()
592 		print_bvspace(p, n, mt->pardist);  in pre_PP()
595 		p->offset = mt->offset;  in pre_PP()
613 		p->flags |= TERMP_NOSPACE;  in pre_IP()
616 		p->flags |= TERMP_NOBREAK;  in pre_IP()
617 		p->trailspace = 1;  in pre_IP()
620 		print_bvspace(p, n, mt->pardist);  in pre_IP()
632 			if ((ival = a2width(p, nn->string)) >= 0)  in pre_IP()
639 			len = term_len(p, 1);  in pre_IP()
641 		p->offset = mt->offset;  in pre_IP()
642 		p->rmargin = mt->offset + len;  in pre_IP()
653 			print_man_node(p, mt, n->child, meta);  in pre_IP()
660 		p->offset = mt->offset + len;  in pre_IP()
661 		p->rmargin = p->maxrmargin;  in pre_IP()
678 		term_flushln(p);  in post_IP()
679 		p->flags &= ~TERMP_NOBREAK;  in post_IP()
680 		p->trailspace = 0;  in post_IP()
681 		p->rmargin = p->maxrmargin;  in post_IP()
684 		term_newln(p);  in post_IP()
685 		p->offset = mt->offset;  in post_IP()
703 		p->flags |= TERMP_NOBREAK;  in pre_TP()
704 		p->trailspace = 1;  in pre_TP()
707 		p->flags |= TERMP_NOSPACE;  in pre_TP()
710 		print_bvspace(p, n, mt->pardist);  in pre_TP()
723 			if ((ival = a2width(p, nn->string)) >= 0)  in pre_TP()
730 			len = term_len(p, 1);  in pre_TP()
732 		p->offset = mt->offset;  in pre_TP()
733 		p->rmargin = mt->offset + len;  in pre_TP()
741 				print_man_node(p, mt, nn, meta);  in pre_TP()
750 		p->offset = mt->offset + len;  in pre_TP()
751 		p->rmargin = p->maxrmargin;  in pre_TP()
752 		p->trailspace = 0;  in pre_TP()
753 		p->flags &= ~TERMP_NOBREAK;  in pre_TP()
770 		term_flushln(p);  in post_TP()
773 		term_newln(p);  in post_TP()
774 		p->offset = mt->offset;  in post_TP()
791 		mt->lmargin[mt->lmargincur] = term_len(p, p->defindent);  in pre_SS()
792 		mt->offset = term_len(p, p->defindent);  in pre_SS()
800 			term_vspace(p);  in pre_SS()
803 		term_fontrepl(p, TERMFONT_BOLD);  in pre_SS()
804 		p->offset = term_len(p, 3);  in pre_SS()
807 		p->offset = mt->offset;  in pre_SS()
824 		term_newln(p);  in post_SS()
827 		term_newln(p);  in post_SS()
844 		mt->lmargin[mt->lmargincur] = term_len(p, p->defindent);  in pre_SH()
845 		mt->offset = term_len(p, p->defindent);  in pre_SH()
854 			term_vspace(p);  in pre_SH()
857 		term_fontrepl(p, TERMFONT_BOLD);  in pre_SH()
858 		p->offset = 0;  in pre_SH()
861 		p->offset = mt->offset;  in pre_SH()
878 		term_newln(p);  in post_SH()
881 		term_newln(p);  in post_SH()
897 		term_newln(p);  in pre_RS()
905 	sz = term_len(p, p->defindent);  in pre_RS()
908 		if ((ival = a2width(p, n->string)) >= 0)   in pre_RS()
912 	p->rmargin = p->maxrmargin;  in pre_RS()
913 	p->offset = mt->offset < p->rmargin ? mt->offset : p->rmargin;  in pre_RS()
935 		term_newln(p);  in post_RS()
939 	sz = term_len(p, p->defindent);  in post_RS()
942 		if ((ival = a2width(p, n->string)) >= 0)   in post_RS()
946 	p->offset = mt->offset;  in post_RS()
968 	term_word(p, "<");  in post_UR()
969 	p->flags |= TERMP_NOSPACE;  in post_UR()
972 		print_man_node(p, mt, n->child->child, meta);  in post_UR()
974 	p->flags |= TERMP_NOSPACE;  in post_UR()
975 	term_word(p, ">");  in post_UR()
992 			term_vspace(p);  in print_man_node()
995 			term_newln(p);  in print_man_node()
997 		term_word(p, n->string);  in print_man_node()
1001 		term_eqn(p, n->eqn);  in print_man_node()
1009 			term_newln(p);  in print_man_node()
1010 		term_tbl(p, n->span);  in print_man_node()
1017 		term_fontrepl(p, TERMFONT_NONE);  in print_man_node()
1021 		c = (*termacts[n->tok].pre)(p, mt, n, meta);  in print_man_node()
1024 		print_man_nodelist(p, mt, n->child, meta);  in print_man_node()
1027 		(*termacts[n->tok].post)(p, mt, n, meta);  in print_man_node()
1029 		term_fontrepl(p, TERMFONT_NONE);  in print_man_node()
1039 	if (MANT_LITERAL & mt->fl && ! (TERMP_NOBREAK & p->flags) &&  in print_man_node()
1041 		rm = p->rmargin;  in print_man_node()
1042 		rmax = p->maxrmargin;  in print_man_node()
1043 		p->rmargin = p->maxrmargin = TERM_MAXMARGIN;  in print_man_node()
1044 		p->flags |= TERMP_NOSPACE;  in print_man_node()
1046 			term_flushln(p);  in print_man_node()
1048 			term_newln(p);  in print_man_node()
1050 			p->offset = rm;  in print_man_node()
1051 			p->rmargin = rmax;  in print_man_node()
1053 			p->rmargin = rm;  in print_man_node()
1054 		p->maxrmargin = rmax;  in print_man_node()
1057 		p->flags |= TERMP_SENTENCE;  in print_man_node()
1065 	print_man_node(p, mt, n, meta);  in print_man_nodelist()
1068 	print_man_nodelist(p, mt, n->next, meta);  in print_man_nodelist()
1073 print_man_foot(struct termp *p, const void *arg)  in print_man_foot()  argument
1084 	term_fontrepl(p, TERMFONT_NONE);  in print_man_foot()
1086 	term_vspace(p);  in print_man_foot()
1094 	if ( ! p->mdocstyle) {  in print_man_foot()
1095 		term_vspace(p);  in print_man_foot()
1096 		term_vspace(p);  in print_man_foot()
1103 	datelen = term_strlen(p, meta->date);  in print_man_foot()
1107 	p->flags |= TERMP_NOSPACE | TERMP_NOBREAK;  in print_man_foot()
1108 	p->trailspace = 1;  in print_man_foot()
1109 	p->offset = 0;  in print_man_foot()
1110 	p->rmargin = (p->maxrmargin - datelen + term_len(p, 1)) / 2;  in print_man_foot()
1113 		term_word(p, meta->source);  in print_man_foot()
1114 	term_flushln(p);  in print_man_foot()
1118 	p->flags |= TERMP_NOSPACE;  in print_man_foot()
1119 	p->offset = p->rmargin;  in print_man_foot()
1120 	p->rmargin = p->maxrmargin - term_strlen(p, title);  in print_man_foot()
1121 	if (p->offset + datelen >= p->rmargin)  in print_man_foot()
1122 		p->rmargin = p->offset + datelen;  in print_man_foot()
1124 	term_word(p, meta->date);  in print_man_foot()
1125 	term_flushln(p);  in print_man_foot()
1129 	p->flags &= ~TERMP_NOBREAK;  in print_man_foot()
1130 	p->flags |= TERMP_NOSPACE;  in print_man_foot()
1131 	p->trailspace = 0;  in print_man_foot()
1132 	p->offset = p->rmargin;  in print_man_foot()
1133 	p->rmargin = p->maxrmargin;  in print_man_foot()
1135 	term_word(p, title);  in print_man_foot()
1136 	term_flushln(p);  in print_man_foot()
1141 print_man_head(struct termp *p, const void *arg)  in print_man_head()  argument
1155 	buflen = term_strlen(p, buf);  in print_man_head()
1160 	titlen = term_strlen(p, title);  in print_man_head()
1162 	p->flags |= TERMP_NOBREAK | TERMP_NOSPACE;  in print_man_head()
1163 	p->trailspace = 1;  in print_man_head()
1164 	p->offset = 0;  in print_man_head()
1165 	p->rmargin = 2 * (titlen+1) + buflen < p->maxrmargin ?  in print_man_head()
1166 	    (p->maxrmargin -   in print_man_head()
1167 	     term_strlen(p, buf) + term_len(p, 1)) / 2 :  in print_man_head()
1168 	    p->maxrmargin - buflen;  in print_man_head()
1170 	term_word(p, title);  in print_man_head()
1171 	term_flushln(p);  in print_man_head()
1175 	p->flags |= TERMP_NOSPACE;  in print_man_head()
1176 	p->offset = p->rmargin;  in print_man_head()
1177 	p->rmargin = p->offset + buflen + titlen < p->maxrmargin ?  in print_man_head()
1178 	    p->maxrmargin - titlen : p->maxrmargin;  in print_man_head()
1180 	term_word(p, buf);  in print_man_head()
1181 	term_flushln(p);  in print_man_head()
1185 	p->flags &= ~TERMP_NOBREAK;  in print_man_head()
1186 	p->trailspace = 0;  in print_man_head()
1187 	if (p->rmargin + titlen <= p->maxrmargin) {  in print_man_head()
1188 		p->flags |= TERMP_NOSPACE;  in print_man_head()
1189 		p->offset = p->rmargin;  in print_man_head()
1190 		p->rmargin = p->maxrmargin;  in print_man_head()
1191 		term_word(p, title);  in print_man_head()
1192 		term_flushln(p);  in print_man_head()
1195 	p->flags &= ~TERMP_NOSPACE;  in print_man_head()
1196 	p->offset = 0;  in print_man_head()
1197 	p->rmargin = p->maxrmargin;  in print_man_head()
1205 	term_vspace(p);  in print_man_head()
1206 	if ( ! p->mdocstyle) {  in print_man_head()
1207 		term_vspace(p);  in print_man_head()
1208 		term_vspace(p);  in print_man_head()