blob: 4b038378a68bf774752801c86ebd3cce61934ee3 (
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
|
(;module:
lux
(lux (control monad)
(data text/format)
[macro #+ Monad<Lux> "Lux/" Monad<Lux>]
[host #+ jvm-import])
(luxc ["&" base]
(lang ["la" analysis]
["ls" synthesis])
["&;" analyser]
["&;" synthesizer]
(generator ["&;" common]
["&;" primitive]
["&;" structure])))
(def: #export (generate synthesis)
(-> ls;Synthesis (Lux Unit))
(case synthesis
#ls;Unit
&primitive;generate-unit
(^template [<tag> <generator>]
(<tag> value)
(<generator> value))
([#ls;Bool &primitive;generate-bool]
[#ls;Nat &primitive;generate-nat]
[#ls;Int &primitive;generate-int]
[#ls;Deg &primitive;generate-deg]
[#ls;Real &primitive;generate-real]
[#ls;Char &primitive;generate-char]
[#ls;Text &primitive;generate-text])
(#ls;Variant tag tail? member)
(&structure;generate-variant generate tag tail? member)
(#ls;Tuple members)
(&structure;generate-tuple generate members)
_
(macro;fail "Unrecognized synthesis.")))
## (def: (eval type code)
## &;Eval
## (undefined))
## (def: analyse
## &;Analyser
## (&analyser;analyser eval))
## (def: #export (generate input)
## (-> Code (Lux Unit))
## (do Monad<Lux>
## [analysis (analyse input)
## #let [synthesis (&synthesizer;synthesize analysis)]]
## (generate-synthesis synthesis)))
|
