blob: fc088fc0f15d99ae51d61147a8d447c127293260 (
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
|
(ns cljcc.cljcc
(:require
[cljcc.lexer :as lexer]
[cljcc.parser :as parser]
[cljcc.tacky :as tacky]
[cljcc.config :as config]
[cljcc.analyze.core :as analyzer]
[cljcc.compiler :as codegen]
[cljcc.emit :as emit])
(:gen-class))
(def valid-os-targets #{:mac :linux})
(def valid-stages #{:lex :parse :validate :tacky :codegen :emit})
(defn run
"Compiles source input using specified compiler options.
Parameters:
source - Source C file.
options - Map of compiler configuration options.
Options map:
:target - Map of target platform settings
:os - Target OS #{:linux :mac}
:stage - Which stage to generate #{:lex :parse :validate :tacky :codegen :emit}
Returns generated AST for specified stage."
[source & {:keys [options] :or {options {}}}]
(let [default-options {:target {:os :linux}
:stage :emit}
merged-options (merge default-options options)
stage (:stage merged-options)
target-os (:os (:target merged-options))
_ (assert (stage valid-stages) "Invalid stage for compilation.")
_ (assert (target-os valid-os-targets) "Invalid operating system.")
_ (config/set-os target-os)
stages [lexer/lex parser/parse
analyzer/validate tacky/tacky-generate
codegen/assembly emit/emit]
stage-idx (condp = stage
:lex 1
:parse 2
:validate 3
:tacky 4
:codegen 5
:emit 6)
stages-to-run (vec (take stage-idx stages))]
(reduce (fn [acc f] (f acc)) source stages-to-run)))
|
