X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=contrib%2Fdemo.f0;h=84dcd4ac1c6e3926fed84598d10c90a2f0359059;hb=daa7ab3d282553b18a61333a3d122813212939e2;hp=2c4785cb689e6f45025d056032c05b9fc8e0dc2f;hpb=32b0b3682f7e4f94419da2115aef8b286e23f51d;p=fleet.git

diff --git a/contrib/demo.f0 b/contrib/demo.f0
index 2c4785c..84dcd4a 100644
--- a/contrib/demo.f0
+++ b/contrib/demo.f0
@@ -1,36 +1,15 @@
 
-main(x -> out) =
-  alu :: Alu2
-  debug :: Debug
-  fifo1 :: Fifo
-  fifo2 :: Fifo
-  { 0, 1, 2 } --> fifo1.in
-  { 0, 3, 4 } --> fifo2.in
-  fifo1.out --> alu.inOp, alu.in1, alu.in2
-  alu.out   --> debug.in
-  ;;
-  fifo2.out --> alu.inOp, alu.in1, alu.in2
-  alu.out   --> debug.in
-
-/*
-double(a -> out) =
-  alu :: Alu2
-  a       --> alu.in1, alu.in2
-  0       --> alu.inOp
-  alu.out --> out
-
-
-half(a -> out) =
-  shift :: Shift
-  a            --> shift.in
-  1            --> shift.inAmount
-  shift.out    --> out
-
-thrice(a -> out) =
-  alu :: Alu2
-  a         -->    alu.in1, alu.in2, alu.in2
-  0         -[2]-> alu.inOp
-  { alu.out -->    alu.in2
-    alu.out -->    alu.out
-  }
-*/
+main(a,b -> x,y) =
+  alu    :: Alu2
+  debug  :: Debug
+  fifo1  :: Fifo
+  fifo2  :: Fifo
+
+  { 0, 1 } --> fifo1.in
+  
+  fifo1.out --> fifo1.in, fifo1.in
+  fifo1.out --> fifo1.in, fifo1.in
+  fifo1.out --> debug.in
+  fifo1.out --> debug.in
+  fifo1.out --> debug.in
+  fifo1.out --> debug.in