X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=contrib%2Fdemo.f0;h=84dcd4ac1c6e3926fed84598d10c90a2f0359059;hb=b1ccdbab38d0c60a084df048883a41d8ac6e97f0;hp=824f9e6d82fdede5c135b22f6678de53cb7e03ce;hpb=cb691390d68a386e88e37d4c627eeec16d58cca2;p=fleet.git

diff --git a/contrib/demo.f0 b/contrib/demo.f0
index 824f9e6..84dcd4a 100644
--- a/contrib/demo.f0
+++ b/contrib/demo.f0
@@ -1,39 +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
-  while alu.out > 3 {
-    3 --> 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