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  * Section 6 - line length and indenting.
 5 c42a1d3d 2006-02-21 devnull  */
 6 c42a1d3d 2006-02-21 devnull 
 7 c42a1d3d 2006-02-21 devnull /* set line length */
 8 c42a1d3d 2006-02-21 devnull void
 9 c42a1d3d 2006-02-21 devnull ll(int v)
10 c42a1d3d 2006-02-21 devnull {
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);
15 c42a1d3d 2006-02-21 devnull }
16 c42a1d3d 2006-02-21 devnull void
17 c42a1d3d 2006-02-21 devnull r_ll(int argc, Rune **argv)
18 c42a1d3d 2006-02-21 devnull {
19 c42a1d3d 2006-02-21 devnull 	if(argc < 2)
20 c42a1d3d 2006-02-21 devnull 		ll(0);
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'));
25 c42a1d3d 2006-02-21 devnull 	else
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");
29 c42a1d3d 2006-02-21 devnull }
30 c42a1d3d 2006-02-21 devnull 
31 c42a1d3d 2006-02-21 devnull void
32 c42a1d3d 2006-02-21 devnull in(int v)
33 c42a1d3d 2006-02-21 devnull {
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 */
38 c42a1d3d 2006-02-21 devnull }
39 c42a1d3d 2006-02-21 devnull void
40 c42a1d3d 2006-02-21 devnull r_in(int argc, Rune **argv)
41 c42a1d3d 2006-02-21 devnull {
42 b3178f6f 2006-05-20 devnull 	br();
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'));
49 c42a1d3d 2006-02-21 devnull 	else
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");
53 c42a1d3d 2006-02-21 devnull }
54 c42a1d3d 2006-02-21 devnull 
55 c42a1d3d 2006-02-21 devnull void
56 c42a1d3d 2006-02-21 devnull ti(int v)
57 c42a1d3d 2006-02-21 devnull {
58 c42a1d3d 2006-02-21 devnull 	nr(L(".ti"), v);
59 c42a1d3d 2006-02-21 devnull }
60 c42a1d3d 2006-02-21 devnull void
61 c42a1d3d 2006-02-21 devnull r_ti(int argc, Rune **argv)
62 c42a1d3d 2006-02-21 devnull {
63 c42a1d3d 2006-02-21 devnull 	USED(argc);
64 b3178f6f 2006-05-20 devnull 	br();
65 c42a1d3d 2006-02-21 devnull 	ti(evalscale(argv[1], 'm'));
66 c42a1d3d 2006-02-21 devnull }
67 c42a1d3d 2006-02-21 devnull 
68 c42a1d3d 2006-02-21 devnull void
69 c42a1d3d 2006-02-21 devnull t6init(void)
70 c42a1d3d 2006-02-21 devnull {
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);
74 fa325e9b 2020-01-10 cross 
75 c42a1d3d 2006-02-21 devnull 	nr(L(".l"), eval(L("6.5i")));
76 c42a1d3d 2006-02-21 devnull }