1 c42a1d3d 2006-02-21 devnull #include "a.h"
4 c42a1d3d 2006-02-21 devnull * 5. Vertical spacing.
7 c42a1d3d 2006-02-21 devnull /* set vertical baseline spacing */
11 c42a1d3d 2006-02-21 devnull if(v == 0)
12 c42a1d3d 2006-02-21 devnull v = getnr(L(".v0"));
13 c42a1d3d 2006-02-21 devnull nr(L(".v0"), getnr(L(".v")));
14 c42a1d3d 2006-02-21 devnull nr(L(".v"), v);
18 c42a1d3d 2006-02-21 devnull r_vs(int argc, Rune **argv)
20 c42a1d3d 2006-02-21 devnull if(argc < 2)
21 c42a1d3d 2006-02-21 devnull vs(eval(L("12p")));
22 c42a1d3d 2006-02-21 devnull else if(argv[1][0] == '+')
23 c42a1d3d 2006-02-21 devnull vs(getnr(L(".v"))+evalscale(argv[1]+1, 'p'));
24 c42a1d3d 2006-02-21 devnull else if(argv[1][0] == '-')
25 c42a1d3d 2006-02-21 devnull vs(getnr(L(".v"))-evalscale(argv[1]+1, 'p'));
27 c42a1d3d 2006-02-21 devnull vs(evalscale(argv[1], 'p'));
30 c42a1d3d 2006-02-21 devnull /* set line spacing */
32 c42a1d3d 2006-02-21 devnull ls(int v)
34 c42a1d3d 2006-02-21 devnull if(v == 0)
35 c42a1d3d 2006-02-21 devnull v = getnr(L(".ls0"));
36 c42a1d3d 2006-02-21 devnull nr(L(".ls0"), getnr(L(".ls")));
37 c42a1d3d 2006-02-21 devnull nr(L(".ls"), v);
40 c42a1d3d 2006-02-21 devnull r_ls(int argc, Rune **argv)
42 c42a1d3d 2006-02-21 devnull ls(argc < 2 ? 0 : eval(argv[1]));
45 c42a1d3d 2006-02-21 devnull /* .sp - space vertically */
46 c42a1d3d 2006-02-21 devnull /* .sv - save a contiguous vertical block */
48 c42a1d3d 2006-02-21 devnull sp(int v)
50 c42a1d3d 2006-02-21 devnull Rune buf[100];
51 c42a1d3d 2006-02-21 devnull double fv;
54 c42a1d3d 2006-02-21 devnull fv = v * 1.0/UPI;
55 c42a1d3d 2006-02-21 devnull if(fv > 5)
56 c42a1d3d 2006-02-21 devnull fv = eval(L("1v")) * 1.0/UPI;
57 c42a1d3d 2006-02-21 devnull runesnprint(buf, nelem(buf), "<p style=\"margin-top: 0; margin-bottom: %.2fin\"></p>\n", fv);
58 c42a1d3d 2006-02-21 devnull outhtml(buf);
61 c42a1d3d 2006-02-21 devnull r_sp(int argc, Rune **argv)
63 c42a1d3d 2006-02-21 devnull if(getnr(L(".ns")))
65 c42a1d3d 2006-02-21 devnull if(argc < 2)
66 c42a1d3d 2006-02-21 devnull sp(eval(L("1v")));
68 c42a1d3d 2006-02-21 devnull if(argv[1][0] == '|'){
69 c42a1d3d 2006-02-21 devnull /* XXX if there's no output yet, do the absolute! */
70 c42a1d3d 2006-02-21 devnull if(verbose)
71 c42a1d3d 2006-02-21 devnull warn("ignoring absolute .sp %d", eval(argv[1]+1));
74 c42a1d3d 2006-02-21 devnull sp(evalscale(argv[1], 'v'));
79 c42a1d3d 2006-02-21 devnull r_ns(int argc, Rune **argv)
81 c42a1d3d 2006-02-21 devnull USED(argc);
82 c42a1d3d 2006-02-21 devnull USED(argv);
83 c42a1d3d 2006-02-21 devnull nr(L(".ns"), 1);
87 c42a1d3d 2006-02-21 devnull r_rs(int argc, Rune **argv)
89 c42a1d3d 2006-02-21 devnull USED(argc);
90 c42a1d3d 2006-02-21 devnull USED(argv);
91 c42a1d3d 2006-02-21 devnull nr(L(".ns"), 0);
95 c42a1d3d 2006-02-21 devnull t5init(void)
97 c42a1d3d 2006-02-21 devnull addreq(L("vs"), r_vs, -1);
98 c42a1d3d 2006-02-21 devnull addreq(L("ls"), r_ls, -1);
99 c42a1d3d 2006-02-21 devnull addreq(L("sp"), r_sp, -1);
100 c42a1d3d 2006-02-21 devnull addreq(L("sv"), r_sp, -1);
101 c42a1d3d 2006-02-21 devnull addreq(L("os"), r_nop, -1);
102 c42a1d3d 2006-02-21 devnull addreq(L("ns"), r_ns, 0);
103 c42a1d3d 2006-02-21 devnull addreq(L("rs"), r_rs, 0);
105 c42a1d3d 2006-02-21 devnull nr(L(".v"), eval(L("12p")));
106 c42a1d3d 2006-02-21 devnull nr(L(".v0"), eval(L("12p")));
107 c42a1d3d 2006-02-21 devnull nr(L(".ls"), 1);
108 c42a1d3d 2006-02-21 devnull nr(L(".ls0"), 1);