1 #include "a.h"
2 
3 /*
4  * Section 6 - line length and indenting.
5  */
6 
7 /* set line length */
8 void
9 ll(int v)
10 {
11 	if(v == 0)
12 		v = getnr(L(".l0"));
13 	nr(L(".l0"), getnr(L(".l")));
14 	nr(L(".l"), v);
15 }
16 void
17 r_ll(int argc, Rune **argv)
18 {
19 	if(argc < 2)
20 		ll(0);
21 	else if(argv[1][0] == '+')
22 		ll(getnr(L(".l"))+evalscale(argv[1]+1, 'v'));
23 	else if(argv[1][0] == '-')
24 		ll(getnr(L(".l"))-evalscale(argv[1]+1, 'v'));
25 	else
26 		ll(evalscale(argv[1], 'm'));
27 	if(argc > 2)
28 		warn("extra arguments to .ll");
29 }
30 
31 void
32 in(int v)
33 {
34 	nr(L(".i0"), getnr(L(".i")));
35 	nr(L(".i"), v);
36 	nr(L(".ti"), 0);
37 	/* XXX */
38 }
39 void
40 r_in(int argc, Rune **argv)
41 {
42 	br();
43 	if(argc < 2)
44 		in(getnr(L(".i0")));
45 	else if(argv[1][0] == '+')
46 		in(getnr(L(".i"))+evalscale(argv[1]+1, 'm'));
47 	else if(argv[1][0] == '-')
48 		in(getnr(L(".i"))-evalscale(argv[1]+1, 'm'));
49 	else
50 		in(evalscale(argv[1], 'm'));
51 	if(argc > 3)
52 		warn("extra arguments to .in");
53 }
54 
55 void
56 ti(int v)
57 {
58 	nr(L(".ti"), v);
59 }
60 void
61 r_ti(int argc, Rune **argv)
62 {
63 	USED(argc);
64 	br();
65 	ti(evalscale(argv[1], 'm'));
66 }
67 
68 void
69 t6init(void)
70 {
71 	addreq(L("ll"), r_ll, -1);
72 	addreq(L("in"), r_in, -1);
73 	addreq(L("ti"), r_ti, 1);
74 
75 	nr(L(".l"), eval(L("6.5i")));
76 }