blob: 15c62b4e4193482ee72875ed76425343fe10df46 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
module cocl
import coclmain
import StdString
import StdEnv
Start :: *World -> *World
Start world
= coclMain testArgs world
where
testArgs
= [
// main module
// "Dialog1"
"t"
// "typesupport.icl"
// "EdProject.icl"
// list all types
, "-lat"
// generate readable abc code
, "-d"
// redirect out
, "-RO", "messages.txt"
// redirect errors
, "-RE", "errors.txt"
// paths
, "-P", clean20Dir +++ "StdEnv" +++ ";" +++ clean20Dir +++ "IOInterface"
// test specific
+++ ";" +++ testDir
// +++ ";" +++ clean20Dir +++ "test\\Clean 2 Compiler Test"
// +++ ";" +++ ideDir +++ ";" +++ ideDir +++ "Windows\\" +++ ";" +++ ideDir +++ "Util\\"
]
testDir
= "e:\\Users\\Ronny\\Develop\\Clean Programs\\"
clean20Dir
= "e:\\Users\\Ronny\\Develop\\CleanSystem\\2.0\\"
ideDir
= clean20Dir +++ "test\\Clean IDE\\"
|
