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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
/*
module owner: Ronny Wichers Schreur
*/
module cocl
import StdEnv
import coclmain
import frontend
import StdDebug
// Start :: *World -> *World
Start world
# world = trace_n "hello from cocl!\n" world
# world
= coclMain testArgs world
= trace_n "bye from cocl!\n" 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
]
)
|
