1 c42a1d3d 2006-02-21 devnull #include "a.h"
4 c42a1d3d 2006-02-21 devnull * Section 6 - line length and indenting.
7 c42a1d3d 2006-02-21 devnull /* set line length */
11 c42a1d3d 2006-02-21 devnull if(v == 0)
12 c42a1d3d 2006-02-21 devnull v = getnr(L(".l0"));
13 c42a1d3d 2006-02-21 devnull nr(L(".l0"), getnr(L(".l")));
14 c42a1d3d 2006-02-21 devnull nr(L(".l"), v);
17 c42a1d3d 2006-02-21 devnull r_ll(int argc, Rune **argv)
19 c42a1d3d 2006-02-21 devnull if(argc < 2)
21 c42a1d3d 2006-02-21 devnull else if(argv[1][0] == '+')
22 c42a1d3d 2006-02-21 devnull ll(getnr(L(".l"))+evalscale(argv[1]+1, 'v'));
23 c42a1d3d 2006-02-21 devnull else if(argv[1][0] == '-')
24 c42a1d3d 2006-02-21 devnull ll(getnr(L(".l"))-evalscale(argv[1]+1, 'v'));
26 c42a1d3d 2006-02-21 devnull ll(evalscale(argv[1], 'm'));
27 c42a1d3d 2006-02-21 devnull if(argc > 2)
28 c42a1d3d 2006-02-21 devnull warn("extra arguments to .ll");
32 c42a1d3d 2006-02-21 devnull in(int v)
34 c42a1d3d 2006-02-21 devnull nr(L(".i0"), getnr(L(".i")));
35 c42a1d3d 2006-02-21 devnull nr(L(".i"), v);
36 b3178f6f 2006-05-20 devnull nr(L(".ti"), 0);
37 c42a1d3d 2006-02-21 devnull /* XXX */
40 c42a1d3d 2006-02-21 devnull r_in(int argc, Rune **argv)
43 c42a1d3d 2006-02-21 devnull if(argc < 2)
44 c42a1d3d 2006-02-21 devnull in(getnr(L(".i0")));
45 c42a1d3d 2006-02-21 devnull else if(argv[1][0] == '+')
46 c42a1d3d 2006-02-21 devnull in(getnr(L(".i"))+evalscale(argv[1]+1, 'm'));
47 c42a1d3d 2006-02-21 devnull else if(argv[1][0] == '-')
48 c42a1d3d 2006-02-21 devnull in(getnr(L(".i"))-evalscale(argv[1]+1, 'm'));
50 c42a1d3d 2006-02-21 devnull in(evalscale(argv[1], 'm'));
51 c42a1d3d 2006-02-21 devnull if(argc > 3)
52 c42a1d3d 2006-02-21 devnull warn("extra arguments to .in");
56 c42a1d3d 2006-02-21 devnull ti(int v)
58 c42a1d3d 2006-02-21 devnull nr(L(".ti"), v);
61 c42a1d3d 2006-02-21 devnull r_ti(int argc, Rune **argv)
63 c42a1d3d 2006-02-21 devnull USED(argc);
65 c42a1d3d 2006-02-21 devnull ti(evalscale(argv[1], 'm'));
69 c42a1d3d 2006-02-21 devnull t6init(void)
71 c42a1d3d 2006-02-21 devnull addreq(L("ll"), r_ll, -1);
72 c42a1d3d 2006-02-21 devnull addreq(L("in"), r_in, -1);
73 c42a1d3d 2006-02-21 devnull addreq(L("ti"), r_ti, 1);
75 c42a1d3d 2006-02-21 devnull nr(L(".l"), eval(L("6.5i")));