1 c42a1d3d 2006-02-21 devnull #include "a.h"
4 c42a1d3d 2006-02-21 devnull * 20. Miscellaneous
7 c42a1d3d 2006-02-21 devnull /* .mc - margin character */
8 c42a1d3d 2006-02-21 devnull /* .ig - ignore; treated like a macro in t7.c */
10 c42a1d3d 2006-02-21 devnull /* .pm - print macros and strings */
13 c42a1d3d 2006-02-21 devnull r_pm(int argc, Rune **argv)
17 c42a1d3d 2006-02-21 devnull if(argc == 1){
18 c42a1d3d 2006-02-21 devnull printds(0);
21 c42a1d3d 2006-02-21 devnull if(runestrcmp(argv[1], L("t")) == 0){
22 c42a1d3d 2006-02-21 devnull printds(1);
25 c42a1d3d 2006-02-21 devnull for(i=1; i<argc; i++)
26 c42a1d3d 2006-02-21 devnull fprint(2, "%S: %S\n", argv[i], getds(argv[i]));
30 c42a1d3d 2006-02-21 devnull r_tm(Rune *name)
32 c42a1d3d 2006-02-21 devnull Rune *line;
34 c42a1d3d 2006-02-21 devnull USED(name);
36 c42a1d3d 2006-02-21 devnull line = readline(CopyMode);
37 c42a1d3d 2006-02-21 devnull fprint(2, "%S\n", line);
38 c42a1d3d 2006-02-21 devnull free(line);
42 c42a1d3d 2006-02-21 devnull r_ab(Rune *name)
44 c42a1d3d 2006-02-21 devnull USED(name);
46 c42a1d3d 2006-02-21 devnull r_tm(L("ab"));
47 c42a1d3d 2006-02-21 devnull exits(".ab");
51 c42a1d3d 2006-02-21 devnull r_lf(int argc, Rune **argv)
53 c42a1d3d 2006-02-21 devnull if(argc == 1)
55 c42a1d3d 2006-02-21 devnull if(argc == 2)
56 c42a1d3d 2006-02-21 devnull setlinenumber(nil, eval(argv[1]));
57 c42a1d3d 2006-02-21 devnull if(argc == 3)
58 c42a1d3d 2006-02-21 devnull setlinenumber(argv[2], eval(argv[1]));
62 c42a1d3d 2006-02-21 devnull r_fl(int argc, Rune **argv)
64 c42a1d3d 2006-02-21 devnull USED(argc);
65 c42a1d3d 2006-02-21 devnull USED(argv);
66 c42a1d3d 2006-02-21 devnull Bflush(&bout);
70 c42a1d3d 2006-02-21 devnull t20init(void)
72 c42a1d3d 2006-02-21 devnull addreq(L("mc"), r_warn, -1);
73 c42a1d3d 2006-02-21 devnull addraw(L("tm"), r_tm);
74 c42a1d3d 2006-02-21 devnull addraw(L("ab"), r_ab);
75 c42a1d3d 2006-02-21 devnull addreq(L("lf"), r_lf, -1);
76 c42a1d3d 2006-02-21 devnull addreq(L("pm"), r_pm, -1);
77 c42a1d3d 2006-02-21 devnull addreq(L("fl"), r_fl, 0);