xref: /plan9/sys/src/cmd/htmlroff/t14.c (revision 426d2b71458df9b491ba6c167f699b3f1f7b0428)
1 #include "a.h"
2 
3 /*
4  * 14. Three-part titles.
5  */
6 void
r_lt(int argc,Rune ** argv)7 r_lt(int argc, Rune **argv)
8 {
9 	Rune *p;
10 
11 	if(argc < 2)
12 		nr(L(".lt"), evalscale(L("6.5i"), 'm'));
13 	else{
14 		if(argc > 2)
15 			warn("too many arguments for .lt");
16 		p = argv[1];
17 		if(p[0] == '-')
18 			nr(L(".lt"), getnr(L(".lt"))-evalscale(p+1, 'm'));
19 		else if(p[0] == '+')
20 			nr(L(".lt"), getnr(L(".lt"))+evalscale(p+1, 'm'));
21 		else
22 			nr(L(".lt"), evalscale(p, 'm'));
23 	}
24 }
25 
26 void
t14init(void)27 t14init(void)
28 {
29 	addreq(L("tl"), r_warn, -1);
30 	addreq(L("pc"), r_nop, -1);	/* page number char */
31 	addreq(L("lt"), r_lt, -1);
32 }
33 
34