diff options
| author | ronny | 2002-06-19 08:03:20 +0000 |
|---|---|---|
| committer | ronny | 2002-06-19 08:03:20 +0000 |
| commit | 5d4f91e692e1f6397476997ef206304cfd4d8f4b (patch) | |
| tree | f17524a643fe9ddf9b76f9c0e3161bd13945d8a1 /main/cocl.icl | |
| parent | removed use of strncmp C library function (diff) | |
Removed test arguments.
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1120 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main/cocl.icl')
| -rw-r--r-- | main/cocl.icl | 67 |
1 files changed, 1 insertions, 66 deletions
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 |