1 #include "a.h"
2 
3 /*
4  * 20. Miscellaneous
5  */
6 
7 /* .mc - margin character */
8 /* .ig - ignore; treated like a macro in t7.c */
9 
10 /* .pm - print macros and strings */
11 
12 void
13 r_pm(int argc, Rune **argv)
14 {
15 	int i;
16 
17 	if(argc == 1){
18 		printds(0);
19 		return;
20 	}
21 	if(runestrcmp(argv[1], L("t")) == 0){
22 		printds(1);
23 		return;
24 	}
25 	for(i=1; i<argc; i++)
26 		fprint(2, "%S: %S\n", argv[i], getds(argv[i]));
27 }
28 
29 void
30 r_tm(Rune *name)
31 {
32 	Rune *line;
33 
34 	USED(name);
35 
36 	line = readline(CopyMode);
37 	fprint(2, "%S\n", line);
38 	free(line);
39 }
40 
41 void
42 r_ab(Rune *name)
43 {
44 	USED(name);
45 
46 	r_tm(L("ab"));
47 	exits(".ab");
48 }
49 
50 void
51 r_lf(int argc, Rune **argv)
52 {
53 	if(argc == 1)
54 		return;
55 	if(argc == 2)
56 		setlinenumber(nil, eval(argv[1]));
57 	if(argc == 3)
58 		setlinenumber(argv[2], eval(argv[1]));
59 }
60 
61 void
62 r_fl(int argc, Rune **argv)
63 {
64 	USED(argc);
65 	USED(argv);
66 	Bflush(&bout);
67 }
68 
69 void
70 t20init(void)
71 {
72 	addreq(L("mc"), r_warn, -1);
73 	addraw(L("tm"), r_tm);
74 	addraw(L("ab"), r_ab);
75 	addreq(L("lf"), r_lf, -1);
76 	addreq(L("pm"), r_pm, -1);
77 	addreq(L("fl"), r_fl, 0);
78 }