Blame


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