add basics to cljs.compiler/api

Author: dnolen

src/clj/cljs/compiler/api.clj

@@ -16,3 +16,63 @@
             [cljs.env :as env]
             [cljs.analyzer :as ana]
             [cljs.compiler :as comp]))
+
+;; =============================================================================
+;; Main API
+
+(defn emit
+  "Given an AST node generated by the analyzer emit JavaScript as a string."
+  [ast]
+  (with-out-str
+    (comp/emit ast)))
+
+(defn with-core-cljs
+  "Ensure that core.cljs has been loaded."
+  ([] (comp/with-core-cljs nil))
+  ([opts] (comp/with-core-cljs opts (fn [])))
+  ([opts body] (comp/with-core-cljs opts body)))
+
+(defn requires-compilation?
+  "Return true if the src file requires compilation."
+  ([src dest]
+   (comp/requires-compilation? src dest nil))
+  ([src dest opts]
+   (comp/requires-compilation? src dest opts)))
+
+(defn compile-file
+  "Compiles src to a file of the same name, but with a .js extension,
+   in the src file's directory.
+
+   With dest argument, write file to provided location. If the dest
+   argument is a file outside the source tree, missing parent
+   directories will be created. The src file will only be compiled if
+   the dest file has an older modification time.
+
+   Both src and dest may be either a String or a File.
+
+   Returns a map containing {:ns .. :provides .. :requires .. :file ..}.
+   If the file was not compiled returns only {:file ...}"
+  ([src]
+   (comp/compile-file src))
+  ([src dest]
+   (comp/compile-file src dest))
+  ([src dest opts]
+   (comp/compile-file src dest opts)))
+
+(defn cljs-files-in
+  "Return a sequence of all .cljs and .cljc files in the given directory."
+  [dir]
+  (comp/cljs-files-in dir))
+
+(defn compile-root
+  "Looks recursively in src-dir for .cljs files and compiles them to
+   .js files. If target-dir is provided, output will go into this
+   directory mirroring the source directory structure. Returns a list
+   of maps containing information about each file which was compiled
+   in dependency order."
+  ([src-dir]
+   (comp/compile-root src-dir "out"))
+  ([src-dir target-dir]
+   (comp/compile-root src-dir target-dir nil))
+  ([src-dir target-dir opts]
+   (comp/compile-root src-dir target-dir opts)))