|
process Pal(in {char} p, out {char} q,
out {int} answ, in {int} bnsw) {
int w;
char x, y;
p?y;
w= 1;
answ!w;
while (1) {
p?x;
answ!(w && (x == y));
q!x;
bnsw?w;
}
}
|
|
|
void Spawn(void) {
channel c[4]
Pal(c[2], c[3], c[1], c[0]);
Pal(c[3], c[2], c[0], c[1]);
}
# Automatically generated Makefile
MCC=mcc
MCCFLAGS=
out: main.o procs/palin/pal.o spawn.o
${MCC} ${MCCFLAGS} main.o procs/palin/pal.o spawn.o -o out
main.o:
procs/palin/pal.o:
spawn.o:
clean:
-rm -f *.o
.SUFFIXES: .m .o
.m.o:
${MCC} ${MCCFLAGS} -c $^ $@
|
|
|
# Make mcc -c main.m -o main.o mcc -c spawn.m -o spawn.o mcc ./procs/stack/buffy.o main.o ./procs/stack/hofstee.o ./procs/stack/hoffcap.o spawn.o ./procs/stack/hoffeed.o -o out # Run ./out popped: in popped: this popped: order Program terminated with 5 process(es) left. |