ref: d3da2e1b89f30f404c3d11053680098f1b7bf677
dir: /appl/alphabet/main/read.b/
implement Read,Mainmodule; include "sys.m"; sys: Sys; include "draw.m"; include "sh.m"; include "alphabet/reports.m"; reports: Reports; Report, report: import reports; include "alphabet.m"; alphabet: Alphabet; Value: import alphabet; Read: module{}; typesig(): string { return "fs"; } init() { sys = load Sys Sys->PATH; alphabet = load Alphabet Alphabet->PATH; reports = load Reports Reports->PATH; } quit() { } run(nil: ref Draw->Context, r: ref Reports->Report, errorc: chan of string, nil: list of (int, list of ref Alphabet->Value), args: list of ref Alphabet->Value): ref Alphabet->Value { f := chan of ref Sys->FD; file := (hd args).s().i; if((fd0 := sys->open(file, Sys->OREAD)) == nil){ report(errorc, sys->sprint("cannot open %q: %r", file)); return nil; } spawn readproc(f, fd0, r.start("read")); return ref Value.Vf(f); } readproc(f: chan of ref Sys->FD, fd0: ref Sys->FD, errorc: chan of string) { f <-= fd0; fd1 := <-f; if(fd1 == nil) reports->quit(errorc); buf := array[8192] of byte; while((n := sys->read(fd0, buf, len buf)) > 0) sys->write(fd1, buf, n); sys->write(fd1, array[0] of byte, 0); reports->quit(errorc); }