blob: ddc91d2b9401b186e2e1894babfb618eb1d12a84 (
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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
(ns lux.analyser.host
(:require (clojure [template :refer [do-template]])
[clojure.core.match :refer [match]]
(lux [base :as & :refer [exec return fail
try-all-m map-m mapcat-m reduce-m
assert!]]
[parser :as &parser]
[type :as &type]
[host :as &host])
(lux.analyser [base :as &&])))
;; [Utils]
(defn ^:private extract-ident [ident]
(match ident
[::&parser/Ident ?ident]
(return ?ident)
_
(fail "[Analyser Error] Can't extract Ident.")))
;; [Resources]
(do-template [<name> <ident> <output-tag> <wrapper-class>]
(let [elem-type [::&type/Data <wrapper-class>]]
(defn <name> [analyse ?x ?y]
(exec [[=x =y] (&&/analyse-2 analyse ?x ?y)
;; =x-type (&&/expr-type =x)
;; =y-type (&&/expr-type =y)
;; _ (&type/solve elem-type =x-type)
;; _ (&type/solve elem-type =y-type)
]
(return (list [::&&/Expression [<output-tag> =x =y] elem-type])))))
analyse-jvm-iadd "jvm;iadd" ::&&/jvm-iadd "java.lang.Integer"
analyse-jvm-isub "jvm;isub" ::&&/jvm-isub "java.lang.Integer"
analyse-jvm-imul "jvm;imul" ::&&/jvm-imul "java.lang.Integer"
analyse-jvm-idiv "jvm;idiv" ::&&/jvm-idiv "java.lang.Integer"
analyse-jvm-irem "jvm;irem" ::&&/jvm-irem "java.lang.Integer"
analyse-jvm-ladd "jvm;ladd" ::&&/jvm-ladd "java.lang.Long"
analyse-jvm-lsub "jvm;lsub" ::&&/jvm-lsub "java.lang.Long"
analyse-jvm-lmul "jvm;lmul" ::&&/jvm-lmul "java.lang.Long"
analyse-jvm-ldiv "jvm;ldiv" ::&&/jvm-ldiv "java.lang.Long"
analyse-jvm-lrem "jvm;lrem" ::&&/jvm-lrem "java.lang.Long"
analyse-jvm-fadd "jvm;fadd" ::&&/jvm-fadd "java.lang.Float"
analyse-jvm-fsub "jvm;fsub" ::&&/jvm-fsub "java.lang.Float"
analyse-jvm-fmul "jvm;fmul" ::&&/jvm-fmul "java.lang.Float"
analyse-jvm-fdiv "jvm;fdiv" ::&&/jvm-fdiv "java.lang.Float"
analyse-jvm-frem "jvm;frem" ::&&/jvm-frem "java.lang.Float"
analyse-jvm-dadd "jvm;dadd" ::&&/jvm-dadd "java.lang.Double"
analyse-jvm-dsub "jvm;dsub" ::&&/jvm-dsub "java.lang.Double"
analyse-jvm-dmul "jvm;dmul" ::&&/jvm-dmul "java.lang.Double"
analyse-jvm-ddiv "jvm;ddiv" ::&&/jvm-ddiv "java.lang.Double"
analyse-jvm-drem "jvm;drem" ::&&/jvm-drem "java.lang.Double"
)
(defn analyse-jvm-getstatic [analyse ?class ?field]
(exec [=class (&host/full-class-name ?class)
:let [_ (prn 'analyse-jvm-getstatic/=class =class)]
=type (&host/lookup-static-field =class ?field)
:let [_ (prn 'analyse-jvm-getstatic/=type =type)]]
(return (list [::&&/Expression [::&&/jvm-getstatic =class ?field] =type]))))
(defn analyse-jvm-getfield [analyse ?class ?field ?object]
(exec [=class (&host/full-class-name ?class)
=type (&host/lookup-static-field =class ?field)
=object (&&/analyse-1 analyse ?object)]
(return (list [::&&/Expression [::&&/jvm-getfield =class ?field =object] =type]))))
(defn analyse-jvm-invokestatic [analyse ?class ?method ?classes ?args]
(exec [=class (&host/full-class-name ?class)
=classes (map-m &host/extract-jvm-param ?classes)
=return (&host/lookup-virtual-method =class ?method =classes)
=args (mapcat-m analyse ?args)]
(return (list [::&&/Expression [::&&/jvm-invokestatic =class ?method =classes =args] =return]))))
(defn analyse-jvm-invokevirtual [analyse ?class ?method ?classes ?object ?args]
(exec [=class (&host/full-class-name ?class)
:let [_ (prn 'analyse-jvm-invokevirtual/=class =class)]
=classes (map-m &host/extract-jvm-param ?classes)
:let [_ (prn 'analyse-jvm-invokevirtual/=classes =classes)]
[=method-args =return] (&host/lookup-virtual-method =class ?method =classes)
:let [_ (prn 'analyse-jvm-invokevirtual/=return =return)]
=object (&&/analyse-1 analyse ?object)
:let [_ (prn 'analyse-jvm-invokevirtual/=object =object)]
=args (mapcat-m analyse ?args)
:let [_ (prn 'analyse-jvm-invokevirtual/=args =args)]]
(return (list [::&&/Expression [::&&/jvm-invokevirtual =class ?method =classes =object =args] =return]))))
(defn analyse-jvm-new [analyse ?class ?classes ?args]
(exec [=class (&host/full-class-name ?class)
=classes (map-m &host/extract-jvm-param ?classes)
=args (mapcat-m analyse ?args)]
(return (list [::&&/Expression [::&&/jvm-new =class =classes =args] [::&type/Data =class]]))))
(defn analyse-jvm-new-array [analyse ?class ?length]
(exec [=class (&host/full-class-name ?class)]
(return (list [::&&/Expression [::&&/jvm-new-array =class ?length] [::&type/Array [::&type/Data =class]]]))))
(defn analyse-jvm-aastore [analyse ?array ?idx ?elem]
(exec [[=array =elem] (&&/analyse-2 analyse ?array ?elem)
=array-type (&&/expr-type =array)]
(return (list [::&&/Expression [::&&/jvm-aastore =array ?idx =elem] =array-type]))))
(defn analyse-jvm-aaload [analyse ?array ?idx]
(exec [=array (&&/analyse-1 analyse ?array)
=array-type (&&/expr-type =array)]
(return (list [::&&/Expression [::&&/jvm-aaload =array ?idx] =array-type]))))
(defn analyse-jvm-class [analyse ?name ?super-class ?fields]
(exec [?fields (map-m (fn [?field]
(match ?field
[::&parser/Tuple ([[::&parser/Ident ?class] [::&parser/Ident ?field-name]] :seq)]
(return [?class ?field-name])
_
(fail "[Analyser Error] Fields must be Tuple2 of [Ident, Ident]")))
?fields)
:let [=fields (into {} (for [[class field] ?fields]
[field {:access :public
:type class}]))]
$module &/get-module-name]
(return (list [::&&/Statement [::&&/jvm-class $module ?name ?super-class =fields {}]]))))
(defn analyse-jvm-interface [analyse ?name ?members]
;; (prn 'analyse-jvm-interface ?name ?members)
(exec [?members (map-m (fn [member]
(match member
[::&parser/Form ([[::&parser/Ident ":"] [::&parser/Ident ?member-name]
[::&parser/Form ([[::&parser/Ident "->"] [::&parser/Tuple ?inputs] [::&parser/Ident ?output]] :seq)]]
:seq)]
(exec [?inputs (map-m extract-ident ?inputs)]
(return [?member-name [?inputs ?output]]))
_
(fail "[Analyser Error] Invalid method signature!")))
?members)
:let [=methods (into {} (for [[method [inputs output]] ?members]
[method {:access :public
:type [inputs output]}]))]
$module &/get-module-name]
(return (list [::&&/Statement [::&&/jvm-interface $module ?name =methods]]))))
(defn analyse-exec [analyse ?exprs]
(exec [_ (assert! (count ?exprs) "\"exec\" expressions can't have empty bodies.")
=exprs (mapcat-m analyse ?exprs)
=exprs-types (map-m &&/expr-type =exprs)]
(return (list [::&&/Expression [::&&/exec =exprs] (last =exprs-types)]))))
|
