From e4b20015a4ee35f1279af4caa983478fa2ff0d4a Mon Sep 17 00:00:00 2001
From: dhuth <derickhuth@gmail.com>
Date: Mon, 6 Oct 2014 11:56:47 -0600
Subject: Added omega to source

---
 omega/examples/old_test/m1.oc-rt | 41 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 omega/examples/old_test/m1.oc-rt

(limited to 'omega/examples/old_test/m1.oc-rt')

diff --git a/omega/examples/old_test/m1.oc-rt b/omega/examples/old_test/m1.oc-rt
new file mode 100644
index 0000000..ad2c49c
--- /dev/null
+++ b/omega/examples/old_test/m1.oc-rt
@@ -0,0 +1,41 @@
+>>> T1:={[i,j]->[i,j,0]};
+>>> T2:={[i,j]->[i,j,1]};
+>>> R1:={[1:9,1:9]};
+>>> R2:={[5,1:9]};
+>>> codegen T1:R1,T2:R2;
+for(t1 = 1; t1 <= 9; t1++) {
+  if (t1 <= 4) {
+    for(t2 = 1; t2 <= 9; t2++) {
+      s1(t1,t2);
+    }
+  }
+  if (t1 == 5) {
+    for(t2 = 1; t2 <= 9; t2++) {
+      s1(5,t2);
+      s2(5,t2);
+    }
+  }
+  if (t1 >= 6) {
+    for(t2 = 1; t2 <= 9; t2++) {
+      s1(t1,t2);
+    }
+  }
+}
+
+>>> codegen 2 T1:R1,T2:R2;
+for(t1 = 1; t1 <= 4; t1++) {
+  for(t2 = 1; t2 <= 9; t2++) {
+    s1(t1,t2);
+  }
+}
+for(t2 = 1; t2 <= 9; t2++) {
+  s1(5,t2);
+  s2(5,t2);
+}
+for(t1 = 6; t1 <= 9; t1++) {
+  for(t2 = 1; t2 <= 9; t2++) {
+    s1(t1,t2);
+  }
+}
+
+
-- 
cgit v1.2.3-70-g09d2