blob: dede93088b4cdc2e56bd12dc08685a8c11bc2001 (
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
|
(ns cljcc.driver
(:require [clojure.java.shell :refer [sh]]
[clojure.java.io :as io]
[cljcc.compiler :as c]
[cljcc.util :refer [get-os handle-sh mac-aarch64?]]
[cljcc.parser :as p]))
(defn make-file-name
([filename ext]
(str filename "." ext))
([directory filename ext]
(str directory "/" filename "." ext)))
(defn handle-os []
(let [os (get-os)]
(condp = os
:linux (println "running on linux")
:mac (if (mac-aarch64?)
(println "running on mac arch 64")
(println "running on mac"))
:unsupported (throw (Exception. (str os " is not currently supported."))))))
(defn remove-extension [^String filename]
(if (.contains filename ".")
(.substring filename 0 (.lastIndexOf filename "."))
filename))
(defn preprocess [directory filename]
(let [input-file-path (make-file-name directory (remove-extension filename) "c")
preprocessed-file-path (make-file-name directory (remove-extension filename) "i")
output (handle-sh "gcc" "-E" "-P" input-file-path "-o" preprocessed-file-path)]
(if (= 1 (:exit output))
(throw (Exception. ^String (:out output)))
(println (str "Successfully preprocessed file: " preprocessed-file-path)))))
(defn assemble [directory filename]
(let [file-without-ext (remove-extension filename)
assembly-file (make-file-name directory file-without-ext "s")
output-file (str directory "/" file-without-ext)
output (handle-sh "gcc" assembly-file "-o" output-file)]
(println file-without-ext assembly-file output-file output)
(if (= 1 (:exit output))
(throw (Exception. ^String (:out output)))
(println (str "Successfully created executable at: " output-file output)))))
(defn run-compile [directory filename]
(let [preprocessed-file-path (make-file-name directory (remove-extension filename) "i")
file (io/file preprocessed-file-path)
source (slurp file)
_ (if (p/parseable? (p/parse source))
(println "Parsing successfull.")
(throw (Exception. "Failed during parsing")))
assembled-source (c/run-compile source)
out-file-path (make-file-name directory (remove-extension filename) "s")]
(spit out-file-path assembled-source)
(println "succesfully generated .s file" assembled-source)))
(defn cleanup [directory filename]
(let [file-without-ext (remove-extension filename)]
(io/delete-file (make-file-name directory file-without-ext "i") true)
(io/delete-file (make-file-name directory file-without-ext "s") true)))
(defn run
"Runs the compiler driver with the given input source file."
[^String file-path]
(let [file (io/file ^String file-path)
filename (.getName file)
directory (.getParent file)]
(try
(handle-os)
(preprocess directory filename)
(run-compile directory filename)
(assemble directory filename)
(println "Successfully created executable at " directory " for filename " filename)
(catch Exception e
(println "Caught exception: " (.getMessage e))
(cleanup directory filename)
(throw (Exception. "Failed to run compiler.")))
(finally
(cleanup directory filename)))))
(comment
(run "/Users/shagunagrawal/Development/c_tests/ex3.c")
(assemble "/Users/shagunagrawal/Development/c_tests" "ex2.c")
(handle-sh "gcc" "-E" "-P" "/Users/shagunagrawal/Development/c_tests/ex2.c" "-o" "/Users/shagunagrawal/Development/c_tests/out.i")
(sh "gcc" "-E" "-P" "/Users/shagunagrawal/Development/c_tests/ex1.c" "-o" "/Users/shagunagrawal/Development/c_tests/out.i")
,)
|
