## Software from the book "Inferno Programming with Limbo"# published by John Wiley & Sons, January 2003.## p. Stanley-Marbell <pip@gemusehaken.org>#implement Test;include "sys.m";include "draw.m";Test : module{ init : fn(nil : ref Draw->Context, nil : list of string);};init(nil : ref Draw->Context, nil : list of string){ channel := chan of int; spawn write(channel); spawn write(channel); spawn read(channel); spawn read(channel);}write(channel : chan of int){ while () alt { channel <-= 1 => ; }}read(channel : chan of int){ while () alt { <-channel => ; }}
#
# Software from the book "Inferno Programming with Limbo"
# published by John Wiley & Sons, January 2003.
#
# p. Stanley-Marbell <pip@gemusehaken.org>
#
implement Test;
include "sys.m";
include "draw.m";
Test : module
{
init : fn(nil : ref Draw->Context, nil : list of string);
};
init(nil : ref Draw->Context, nil : list of string)
{
channel := chan of int;
spawn write(channel);
spawn write(channel);
spawn read(channel);
spawn read(channel);
}
write(channel : chan of int)
{
while ()
alt
{
channel <-= 1 =>
;
}
}
read(channel : chan of int)
{
while ()
alt
{
<-channel =>
;
}
}