diff options
Diffstat (limited to 'main')
| -rw-r--r-- | main/Version.dcl | 3 | ||||
| -rw-r--r-- | main/Version.icl | 3 | ||||
| -rw-r--r-- | main/cocl.icl | 71 | ||||
| -rw-r--r-- | main/coclmain.dcl | 3 | ||||
| -rw-r--r-- | main/coclmain.icl | 3 | ||||
| -rw-r--r-- | main/compile.dcl | 3 | ||||
| -rw-r--r-- | main/compile.icl | 3 |
7 files changed, 77 insertions, 12 deletions
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 |