blob: ef4a7fc8a24b51d62edc7dad6e63464264175b04 (
plain)
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
82
83
84
85
86
|
(.module:
lux
(lux (control monad
["ex" exception #+ exception:])
[io #+ Process]
(data ["e" error]
[text "text/" Eq<Text>]
text/format)
[macro]
[host]
(world [file #+ File]
[blob #+ Blob])))
(host.import java/lang/String
(new [(Array byte)]))
(def: host-extension Text ".jvm")
(def: lux-extension Text ".lux")
(exception: #export File-Not-Found)
(exception: #export Module-Not-Found)
(def: sanitize
(-> Text Text)
(text.replace-all "/" file.separator))
(def: (find-source dirs path)
(-> (List File) Text (Process [Text File]))
(case dirs
#.Nil
(io.fail (File-Not-Found path))
(#.Cons dir dirs')
(do io.Monad<Process>
[#let [file (format dir file.separator path)]
? (file.exists? file)]
(if ?
(wrap [path file])
(find-source dirs' path)))))
(def: (either left right)
(All [a] (-> (Process a) (Process a) (Process a)))
(do io.Monad<IO>
[?output left]
(case ?output
(#e.Success output)
(wrap (#e.Success output))
(#e.Error error)
right)))
(def: #export (read-module dirs name)
(-> (List File) Text (Process [File Text]))
(do io.Monad<Process>
[[path file] (: (Process [Text File])
($_ either
(find-source dirs (format name host-extension lux-extension))
(find-source dirs (format name lux-extension))
(io.fail (Module-Not-Found name))))
blob (file.read file)]
(wrap [path (String::new blob)])))
(def: (platform-target root-target)
(-> File File)
(format root-target "/" (for {"JVM" "jvm"
"JS" "js"})))
(def: #export (prepare-target target-dir)
(-> File (Process Bool))
(do io.Monad<Process>
[_ (file.make-dir (sanitize target-dir))]
(file.make-dir (sanitize (platform-target target-dir)))))
(def: #export (prepare-module target-dir module-name)
(-> File Text (Process Bool))
(|> module-name
(format (platform-target target-dir) "/")
sanitize
file.make-dir))
(def: #export (write target name content)
(-> File Text Blob (Process Unit))
(|> name
(format (platform-target target) "/")
sanitize
(file.write content)))
|
