Разработка программ в среде операционной платформы Inferno, или "Адское" программирование

while {} {
echo ${recv cmd}
}

while {} {
tk winctl $wid ${recv $wid}
} &

01 implement Targ1;
02
03 include "sys.m";
04 sys: Sys;
05 include "draw.m";
06
07 Targ1: module {
08 init: fn (nil: ref Draw->Context, argv: list of string);
09};
10
11 init (nil: ref Draw->Context, argv: list of string)
12 {
13 sys = load Sys Sys->PATH;
14 n:= len argv;
15 sync:= chan of int;
16 spawn targ (sync, n);
17 # Вывод параметров командной строки с секундной задержкой
18 for (i:= 0; i < n; i++) {
19 sys->print ("%d: %s\n", i, hd argv);
20 argv = tl argv;
21 <-sync;
22 }
23}
24
25 targ (sync: chan of int, n: int)
26 {
27 for (;;) {
28 sys->sleep (1000);
29 sync <-= 1;
30 }
31}

01 implement Targ2;
02
03 include "sys.m";
04 sys: Sys;
05 include "draw.m";
06 draw: Draw;
07 Point, Rect, Display, Image, Font, Screen, Context: import draw;
08
09 Targ2: module {
10 init: fn (ctxt: ref Draw->Context, argv: list of string);
11};
12
13 init (ctxt: ref Draw->Context, argv: list of string)
14 {
15 sys = load Sys Sys->PATH;
16 draw = load Draw Draw->PATH;
17
18 display:= ctxt.display;
19 screen:= ctxt.screen;
20
21 black:= display.color (Draw->Black);
22 grey:= display.rgb (192,192,192);
23 font:= Font.open (display, "*default*");
24 wr:= Rect ((100,100), (325,150));
25 r:= Rect ((125,110), (300,140));
26
27 win:= screen.newwindow (wr, Draw->White);
28
29 n:= len argv;
30 for (i:= 0; i < n; i++) {
31 win.draw (r, grey, nil, r.min);
32 win.text (r.min.add ((5,8)), black, (0,0), font, string i+": "+hd argv);
33 argv = tl argv;
34 sys->sleep (1000);
35 }
36}