ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /appl/cmd/netstat.b/
implement Netstat; include "sys.m"; sys: Sys; FD, Dir: import sys; fildes, open, fstat, read, dirread, fprint, print, tokenize: import sys; include "draw.m"; Context: import Draw; Netstat: module { init: fn(ctxt: ref Context, argv: list of string); }; stderr: ref FD; init(nil: ref Context, nil: list of string) { sys = load Sys Sys->PATH; stderr = fildes(2); nstat("/net/tcp", 1); nstat("/net/udp", 1); nstat("/net/il", 0); } nstat(file: string, whine: int) { dir: Dir; i, ok: int; fd := open(file, sys->OREAD); if(fd == nil) { if(whine) fprint(stderr, "netstat: %s: %r\n", file); return; } (ok, dir) = fstat(fd); if(ok == -1) { fprint(stderr, "netstat: fstat %s: %r\n", file); fd = nil; return; } if((dir.mode&Sys->DMDIR) == 0) { fprint(stderr, "netstat: not a protocol directory: %s\n", file); return; } for(;;) { (n, d) := dirread(fd); if(n <= 0) break; for(i = 0; i < n; i++) if(d[i].name[0] <= '9') nsprint(file+"/"+d[i].name, d[i].uid); } } fc(file: string): string { fd := open(file, sys->OREAD); if(fd == nil) return "??"; buf := array[64] of byte; n := read(fd, buf, len buf); if(n <= 1) return "??"; if(int buf[n-1] == '\n') n--; return string buf[0:n]; } nsprint(name, user: string) { n: int; s: list of string; sr := fc(name+"/status"); (n, s) = tokenize(sr, " "); print("%-10s %-10s %-12s %-20s %s\n", name[5:], user, hd s, fc(name+"/local"), fc(name+"/remote")); }