21 files changed, 119 insertions, 12 deletions
diff --git a/backend/backendconvert.dcl b/backend/backendconvert.dcl
index 30625e7..83711e7 100644
--- a/backend/backendconvert.dcl
+++ b/backend/backendconvert.dcl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 definition module backendconvert
 
 from backend import BackEnd
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl
index 51a58f6..351e34c 100644
--- a/backend/backendconvert.icl
+++ b/backend/backendconvert.icl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 implementation module backendconvert
 
 import code from library "backend_library"
diff --git a/backend/backendinterface.dcl b/backend/backendinterface.dcl
index bfb12e2..20dde99 100644
--- a/backend/backendinterface.dcl
+++ b/backend/backendinterface.dcl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 definition module backendinterface
 
 import frontend
diff --git a/backend/backendinterface.icl b/backend/backendinterface.icl
index a177a2a..d16fb84 100644
--- a/backend/backendinterface.icl
+++ b/backend/backendinterface.icl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 implementation module backendinterface
 
 import StdEnv
diff --git a/backend/backendpreprocess.dcl b/backend/backendpreprocess.dcl
index 41d76d5..8b43eff 100644
--- a/backend/backendpreprocess.dcl
+++ b/backend/backendpreprocess.dcl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 definition module backendpreprocess
 
 import checksupport
diff --git a/backend/backendpreprocess.icl b/backend/backendpreprocess.icl
index 2462600..aebce27 100644
--- a/backend/backendpreprocess.icl
+++ b/backend/backendpreprocess.icl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 implementation module backendpreprocess
 
 // assign sequence numbers to all variables in the syntax tree
diff --git a/backend/backendsupport.dcl b/backend/backendsupport.dcl
index 7b46470..df885f8 100644
--- a/backend/backendsupport.dcl
+++ b/backend/backendsupport.dcl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 definition module backendsupport
 
 //1.3
diff --git a/backend/backendsupport.icl b/backend/backendsupport.icl
index fe5d8a3..ae3c873 100644
--- a/backend/backendsupport.icl
+++ b/backend/backendsupport.icl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 implementation module backendsupport
 
 import StdArray
diff --git a/frontend/convertcases.dcl b/frontend/convertcases.dcl
index 372a3a7..b89dc04 100644
--- a/frontend/convertcases.dcl
+++ b/frontend/convertcases.dcl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 definition module convertcases
 
 import syntax, transform, trans
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl
index 0194b10..28fecb0 100644
--- a/frontend/convertcases.icl
+++ b/frontend/convertcases.icl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 implementation module convertcases
 
 import syntax, transform, checksupport, StdCompare, check, utilities, trans, general //, RWSDebug
diff --git a/frontend/frontend.dcl b/frontend/frontend.dcl
index 5f9f71d..8fa0abc 100644
--- a/frontend/frontend.dcl
+++ b/frontend/frontend.dcl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 definition module frontend
 
 from scanner import SearchPaths
diff --git a/frontend/frontend.icl b/frontend/frontend.icl
index 67ebfc3..eb412d2 100644
--- a/frontend/frontend.icl
+++ b/frontend/frontend.icl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 implementation module frontend
 
 import scanner, parse, postparse, check, type, trans, convertcases, overloading, utilities, convertDynamics,
diff --git a/frontend/mergecases.dcl b/frontend/mergecases.dcl
index 1b5099a..b4a0178 100644
--- a/frontend/mergecases.dcl
+++ b/frontend/mergecases.dcl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 definition module mergecases
 
 import syntax, checksupport
diff --git a/frontend/mergecases.icl b/frontend/mergecases.icl
index b74b2f1..6286013 100644
--- a/frontend/mergecases.icl
+++ b/frontend/mergecases.icl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 implementation module mergecases
 
 import syntax, check, StdCompare, utilities; //, RWSDebug
diff --git a/main/Version.dcl b/main/Version.dcl
index e70f420..f6d6aa4 100644
--- a/main/Version.dcl
+++ b/main/Version.dcl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 definition module Version
 
 :: VersionInfo =
diff --git a/main/Version.icl b/main/Version.icl
index 71ab761..d53aba2 100644
--- a/main/Version.icl
+++ b/main/Version.icl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 implementation module Version
 
 import StdInt, StdClass
diff --git a/main/cocl.icl b/main/cocl.icl
index d72ad5f..6620be2 100644
--- a/main/cocl.icl
+++ b/main/cocl.icl
@@ -1,30 +1,77 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 module cocl
 
-import coclmain
 
 import StdEnv
+import coclmain
+
 import frontend
 
-Start :: *World -> *World
+// Start :: *World -> *World
 Start world
-	=	coclMain testArgs world
+	=	(testArgs, coclMain testArgs world)
 	where
 		testArgs
 			=	[
-					// main module			
-					"t.icl"
-					// list all types
+					// main module
+					testDir +++ "t"
+//				,	// unknown option
+//					"-xxx"
+//					// list all types
 				,	"-lat"
 					// generate readable abc code
 				,	"-d"
+					// time profiling
+				,	"-pt"
+					// reuse unique nodes
+				,	"-ou"
 					// redirect out
-				,	"-RO", "messages.txt"	
+//				,	"-RO", "messages.txt"	
 					// redirect errors
-				,	"-RE", "errors.txt"
+//				,	"-RE", "errors.txt"
 					// paths
-				,	"-P", testDir +++ ";" +++ clean20Dir +++ "StdEnv" +++ ";" +++ clean20Dir +++ "IOInterface"
+				,	"-P", testDir +++ ";" +++ io08Dir +++ ";" +++ stdenvDir
+//				,	"-P", paths
 				]
+
+		baseDir
+			=	"d:\\Users\\Ronny\\Develop\\"
 		testDir
-			=	"e:\\Users\\Ronny\\Develop\\Clean Programs\\"
-		clean20Dir
-			=	"e:\\Users\\Ronny\\Develop\\Clean 2.0\\"
+			=	baseDir +++ "Clean Programs\\" +++ "testes\\" 
+
+		coclDir
+			=	baseDir +++ "CleanSystem\\cocl\\"
+
+		cleanSystemDir
+			=	baseDir +++ "CleanSystem\\"
+
+		cleanVersion
+			=	"2.0 repository\\"
+
+		stdenvDir
+			=	cleanSystemDir +++ cleanVersion +++ "\\StdEnv\\"
+
+		io08Dir
+//			=	cleanSystemDir +++ cleanVersion +++ "\\IOInterface\\"
+			=	"d:\\Users\\Ronny\\Profile\\Desktop\\test\\IOInterface 0.8.2\\"
+		paths
+			=	foldl  (\a b -> a +++ ";" +++ b) ""
+				(
+					[	coclDir +++ path
+					\\	path <-
+						[	""
+						,	"compiler"
+						,	"main"
+						,	"main/Windows"
+						,	"backend"
+						,	"backendCModules"
+						,	"ArgEnvWindows"
+						,	"WrapDebug"
+						]
+					]
+				++
+					[	stdenvDir
+					]
+				)
diff --git a/main/coclmain.dcl b/main/coclmain.dcl
index 6366623..f0a9254 100644
--- a/main/coclmain.dcl
+++ b/main/coclmain.dcl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 definition module coclmain
 
 /*
diff --git a/main/coclmain.icl b/main/coclmain.icl
index f6deba6..4e6d3ca 100644
--- a/main/coclmain.icl
+++ b/main/coclmain.icl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 implementation module coclmain
 
 CoclMainVersion :== 0
diff --git a/main/compile.dcl b/main/compile.dcl
index cf96858..4c5b628 100644
--- a/main/compile.dcl
+++ b/main/compile.dcl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 definition module compile
 
 from StdFile import Files
diff --git a/main/compile.icl b/main/compile.icl
index bdde6e7..bd5721f 100644
--- a/main/compile.icl
+++ b/main/compile.icl
@@ -1,3 +1,6 @@
+/*
+	module owner: Ronny Wichers Schreur
+*/
 implementation module compile
 
 import StdEnv