blob: 2bc9763fec7f7378231216206f05f054eef6d4a0 (
plain)
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
|
implement Disdump;
include "sys.m";
sys: Sys;
include "draw.m";
include "dis.m";
dis: Dis;
include "bufio.m";
bufio: Bufio;
Iobuf: import bufio;
Disdump: module {
init: fn(nil: ref Draw->Context, argv: list of string);
};
init(nil: ref Draw->Context, argv: list of string)
{
sys = load Sys Sys->PATH;
stderr := sys->fildes(2);
bufio = load Bufio Bufio->PATH;
if (bufio == nil) {
sys->fprint(stderr, "dis: cannot load %s: %r\n", Bufio->PATH);
raise "fail:bad module";
}
dis = load Dis Dis->PATH;
if (dis == nil) {
sys->fprint(stderr, "dis: cannot load %s: %r\n", Dis->PATH);
raise "fail:bad module";
}
if (len argv < 2) {
sys->fprint(stderr, "usage: dis module...\n");
raise "fail:usage";
}
dis->init();
out := bufio->fopen(sys->fildes(1), Sys->OWRITE);
errs := 0;
for (argv = tl argv; argv != nil; argv = tl argv) {
(mod, err) := dis->loadobj(hd argv);
if (mod == nil) {
sys->fprint(stderr, "dis: failed to load %s: %s\n", hd argv, err);
errs++;
continue;
}
for (i := 0; i < len mod.inst; i++)
out.puts(dis->inst2s(mod.inst[i])+"\n");
}
out.close();
if (errs)
raise "fail:errors";
}
|
