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 3 - page control (mostly irrelevant).
 5 c42a1d3d 2006-02-21 devnull  */
 6 c42a1d3d 2006-02-21 devnull 
 7 c42a1d3d 2006-02-21 devnull /* page offset */
 8 c42a1d3d 2006-02-21 devnull void
 9 c42a1d3d 2006-02-21 devnull po(int o)
10 c42a1d3d 2006-02-21 devnull {
11 c42a1d3d 2006-02-21 devnull 	nr(L(".o0"), getnr(L(".o")));
12 c42a1d3d 2006-02-21 devnull 	nr(L(".o"), o);
13 c42a1d3d 2006-02-21 devnull }
14 c42a1d3d 2006-02-21 devnull 
15 c42a1d3d 2006-02-21 devnull void
16 c42a1d3d 2006-02-21 devnull r_po(int argc, Rune **argv)
17 c42a1d3d 2006-02-21 devnull {
18 c42a1d3d 2006-02-21 devnull 	if(argc == 1){
19 c42a1d3d 2006-02-21 devnull 		po(getnr(L(".o0")));
20 c42a1d3d 2006-02-21 devnull 		return;
21 c42a1d3d 2006-02-21 devnull 	}
22 c42a1d3d 2006-02-21 devnull 	if(argv[1][0] == '+')
23 c42a1d3d 2006-02-21 devnull 		po(getnr(L(".o"))+evalscale(argv[1]+1, 'v'));
24 c42a1d3d 2006-02-21 devnull 	else if(argv[1][0] == '-')
25 c42a1d3d 2006-02-21 devnull 		po(getnr(L(".o"))-evalscale(argv[1]+1, 'v'));
26 c42a1d3d 2006-02-21 devnull 	else
27 c42a1d3d 2006-02-21 devnull 		po(evalscale(argv[1], 'v'));
28 c42a1d3d 2006-02-21 devnull }
29 c42a1d3d 2006-02-21 devnull 
30 c42a1d3d 2006-02-21 devnull /* .ne - need vertical space */
31 c42a1d3d 2006-02-21 devnull /* .mk - mark current vertical place */
32 c42a1d3d 2006-02-21 devnull /* .rt - return upward */
33 c42a1d3d 2006-02-21 devnull 
34 c42a1d3d 2006-02-21 devnull void
35 c42a1d3d 2006-02-21 devnull t3init(void)
36 c42a1d3d 2006-02-21 devnull {
37 c42a1d3d 2006-02-21 devnull 	nr(L(".o"), eval(L("1i")));
38 c42a1d3d 2006-02-21 devnull 	nr(L(".o0"), eval(L("1i")));
39 c42a1d3d 2006-02-21 devnull 	nr(L(".p"), eval(L("11i")));
40 fa325e9b 2020-01-10 cross 
41 c42a1d3d 2006-02-21 devnull 	addreq(L("pl"), r_warn, -1);
42 c42a1d3d 2006-02-21 devnull 	addreq(L("bp"), r_nop, -1);
43 c42a1d3d 2006-02-21 devnull 	addreq(L("pn"), r_warn, -1);
44 c42a1d3d 2006-02-21 devnull 	addreq(L("po"), r_po, -1);
45 c42a1d3d 2006-02-21 devnull 	addreq(L("ne"), r_nop, -1);
46 c42a1d3d 2006-02-21 devnull 	addreq(L("mk"), r_nop, -1);
47 c42a1d3d 2006-02-21 devnull 	addreq(L("rt"), r_warn, -1);
48 c42a1d3d 2006-02-21 devnull }