1*426d2b71SDavid du Colombier #include "a.h"
2*426d2b71SDavid du Colombier
3*426d2b71SDavid du Colombier /*
4*426d2b71SDavid du Colombier * Section 3 - page control (mostly irrelevant).
5*426d2b71SDavid du Colombier */
6*426d2b71SDavid du Colombier
7*426d2b71SDavid du Colombier /* page offset */
8*426d2b71SDavid du Colombier void
po(int o)9*426d2b71SDavid du Colombier po(int o)
10*426d2b71SDavid du Colombier {
11*426d2b71SDavid du Colombier nr(L(".o0"), getnr(L(".o")));
12*426d2b71SDavid du Colombier nr(L(".o"), o);
13*426d2b71SDavid du Colombier }
14*426d2b71SDavid du Colombier
15*426d2b71SDavid du Colombier void
r_po(int argc,Rune ** argv)16*426d2b71SDavid du Colombier r_po(int argc, Rune **argv)
17*426d2b71SDavid du Colombier {
18*426d2b71SDavid du Colombier if(argc == 1){
19*426d2b71SDavid du Colombier po(getnr(L(".o0")));
20*426d2b71SDavid du Colombier return;
21*426d2b71SDavid du Colombier }
22*426d2b71SDavid du Colombier if(argv[1][0] == '+')
23*426d2b71SDavid du Colombier po(getnr(L(".o"))+evalscale(argv[1]+1, 'v'));
24*426d2b71SDavid du Colombier else if(argv[1][0] == '-')
25*426d2b71SDavid du Colombier po(getnr(L(".o"))-evalscale(argv[1]+1, 'v'));
26*426d2b71SDavid du Colombier else
27*426d2b71SDavid du Colombier po(evalscale(argv[1], 'v'));
28*426d2b71SDavid du Colombier }
29*426d2b71SDavid du Colombier
30*426d2b71SDavid du Colombier /* .ne - need vertical space */
31*426d2b71SDavid du Colombier /* .mk - mark current vertical place */
32*426d2b71SDavid du Colombier /* .rt - return upward */
33*426d2b71SDavid du Colombier
34*426d2b71SDavid du Colombier void
t3init(void)35*426d2b71SDavid du Colombier t3init(void)
36*426d2b71SDavid du Colombier {
37*426d2b71SDavid du Colombier nr(L(".o"), eval(L("1i")));
38*426d2b71SDavid du Colombier nr(L(".o0"), eval(L("1i")));
39*426d2b71SDavid du Colombier nr(L(".p"), eval(L("11i")));
40*426d2b71SDavid du Colombier
41*426d2b71SDavid du Colombier addreq(L("pl"), r_warn, -1);
42*426d2b71SDavid du Colombier addreq(L("bp"), r_nop, -1);
43*426d2b71SDavid du Colombier addreq(L("pn"), r_warn, -1);
44*426d2b71SDavid du Colombier addreq(L("po"), r_po, -1);
45*426d2b71SDavid du Colombier addreq(L("ne"), r_nop, -1);
46*426d2b71SDavid du Colombier addreq(L("mk"), r_nop, -1);
47*426d2b71SDavid du Colombier addreq(L("rt"), r_warn, -1);
48*426d2b71SDavid du Colombier }
49*426d2b71SDavid du Colombier
50