Initial revision

1987-02-25 17:14:10 +00:00
parent cc60420184
commit 32be4760cd
11 changed files with 727 additions and 0 deletions
--- a/lang/occam/test/copy.ocm
+++ b/lang/occam/test/copy.ocm
@@ -0,0 +1,26 @@
+def N=10:
+
+proc copy(chan in, out)=
+	var char:
+	seq
+		char:='x'
+		while char<>EOF
+			seq
+				in ? char
+				out ! char
+:
+
+chan junk[N]:
+par
+	copy(input, junk[0])
+
+	par i=[0 FOR N-1]
+		copy(junk[i], junk[i+1])
+
+	var char:
+	seq
+		junk[N-1] ? char
+		while char<>EOF
+			seq
+				output ! char
+				junk[N-1] ? char