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. |