From 5d4f91e692e1f6397476997ef206304cfd4d8f4b Mon Sep 17 00:00:00 2001
From: ronny
Date: Wed, 19 Jun 2002 08:03:20 +0000
Subject: Removed test arguments.

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1120 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 main/cocl.icl | 67 +----------------------------------------------------------
 1 file changed, 1 insertion(+), 66 deletions(-)

(limited to 'main/cocl.icl')

diff --git a/main/cocl.icl b/main/cocl.icl
index c9d8037..5dd407d 100644
--- a/main/cocl.icl
+++ b/main/cocl.icl
@@ -12,69 +12,4 @@ import StdDebug
 
 Start :: *World -> *World
 Start world
-	=	coclMain []/*testArgs*/ world
-	where
-	/*
-		testArgs
-			=	[
-					// 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"	
-					// redirect errors
-//				,	"-RE", "errors.txt"
-					// paths
-				,	"-P", testDir +++ ";" +++ io08Dir +++ ";" +++ stdenvDir
-//				,	"-P", paths
-				]
-
-		baseDir
-			=	"d:\\Users\\Ronny\\Develop\\"
-		testDir
-			=	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
-					]
-				)
-	*/
+	=	coclMain [] world
-- 
cgit v1.2.3