Mercurial > repos > rhope

changeset 73:6a1a7d5cc2d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add some error checking, cleanup output and add a bad test file
author Mike Pavone <pavone@retrodev.com>
date Sat, 19 Jun 2010 23:13:41 -0400
parents f7bcf3db1342
children a844c623c7df
files nworker.rhope parser_old.rhope testbad.fc
diffstat 3 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/nworker.rhope	Fri Jun 18 17:00:50 2010 -0400
+++ b/nworker.rhope	Sat Jun 19 23:13:41 2010 -0400
@@ -376,6 +376,7 @@
 			If[[[node]Type >>] = ["output"]]
 			{
 				out <- nodelist
+
 			}{
 				[node]Has Input Types?
 				{
--- a/parser_old.rhope	Fri Jun 18 17:00:50 2010 -0400
+++ b/parser_old.rhope	Sat Jun 19 23:13:41 2010 -0400
@@ -1308,6 +1308,7 @@
 
 Register Workers Compile[prog, worker, name:out]
 {
+	Print[["Registering "]Append[name]]
 	If[[ Type Of[[worker]Trees >>] ] = ["Foreign Lib"]]
 	{ convention <- Val[[[worker]Trees >>]Language >>] }
 	{ convention <- "rhope" }
@@ -1327,6 +1328,7 @@
 			]Library <<[ [[worker]Trees >>]Name >> ]
 			
 		}{
+			Print[["Transforming "]Append[name]]
 			trees, nworker, refs <- Add List to Worker[[worker]Trees >>, [NWorker["rhope"]]Uses[[worker]Uses Stores >>], prog, worker, Dictionary[]]
 			final nworker <- Fold[[["Add Wires Helper"]Set Input[3, worker]]Set Input[4, refs], nworker, trees]
 		}
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/testbad.fc	Sat Jun 19 23:13:41 2010 -0400
@@ -0,0 +1,7 @@
+B = R(A, L(B, R(C,D)))
+C = R(B, R(C, D))
+X = L(X, L(A, L(B, R(C,D))))
+A = L(X, L(A, L(B, R(C,D))))
+E = L(E, L(C, D))
+D = R(E, L(C, D))
+