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