ref: e3583a0837891ab2059b91f6500c88baf34982dc
dir: /sys/src/cmd/jam/acid.lib/
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");