module ownership comment

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@763 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d

1 files changed, 59 insertions, 12 deletions

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
+					]
+				)