1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
defn saminit()
{
if !access("/sys/src/cmd/sam/cmd.acid") then
rc("cd /sys/src/cmd/sam && mk cmd.acid");
include("/sys/src/cmd/sam/cmd.acid");
}
defn printrunestring(addr, len)
{
loop 1,len do {
print(*(addr\r));
addr = addr+2;
}
}
defn runestring(addr, len)
{
local s;
s = "";
loop 1,len do {
s = s + *(addr\r);
addr = addr+2;
}
return s;
}
defn string(s)
{
complex String s;
return runestring(s.s, s.n);
}
defn filemenu(f)
{
complex File f;
local s;
s = "";
if f != *cmd then {
if f.mod then
s = s + "'";
else
s = s + " ";
if f.rasp != 0 then
s = s + "+";
else
s = s + "-";
if f == *curfile then
s = s + ".";
else
s = s + " ";
s = s + " ";
}
s = s + string(f.name);
print("file(", f\X, ") // ", s, "\n");
}
defn files()
{
local i, f, fx, fp;
fx = (List)file;
if fx.nused == 0 then
filemenu(*cmd);
i = 0;
loop 1,fx.nused do {
f = (File)fx.g.filep[i];
filemenu(f);
i = i+1;
}
}
defn range(r)
{
complex Range r;
if r.p1 == r.p2 then
return itoa(r.p1, "#%d");
return itoa(r.p1, "#%d")+"-"+itoa(r.p2, "#%d");
}
defn file(f)
{
complex File f;
filemenu(f);
print("\t$=#", f.nc\D, " .=", range(f.dot.r), " buffer(", f\X, ")\n");
if f == *cmd then {
print("\tcmdpt=#", *cmdpt\D, " cmdptadv=#", *cmdptadv\D, "\n");
}
}
defn buffer(b)
{
complex Buffer b;
print("buffer(", b\X, "): c=", b.c\X, " nc=", b.nc\D, "\n");
print("cache: ==(");
print(runestring(b.c, b.nc));
print(")==\n");
}
print("/sys/lib/acid/sam");
|
