We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 5865ebb commit 9f4390aCopy full SHA for 9f4390a
src/main/clojure/cljs/externs.clj
@@ -172,12 +172,22 @@
172
externs (index-externs (parse-externs externs-file))))
173
defaults sources))))
174
175
+(defn parsed->defs [externs]
176
+ (reduce
177
+ (fn [m xs]
178
+ (let [sym (last xs)]
179
+ (cond-> m
180
+ (seq xs) (assoc sym (meta sym)))))
181
+ {} externs))
182
+
183
(defn analyze-goog-file [f]
184
(let [rsrc (io/resource f)
185
desc (js-deps/parse-js-ns (line-seq (io/reader rsrc)))]
186
;; TODO: figure out what to do about other provides
- [(first (:provides desc))
- ]))
187
+ {:name (first (:provides desc))
188
+ :defs (parsed->defs
189
+ (parse-externs
190
+ (SourceFile/fromInputStream f (io/input-stream rsrc))))}))
191
192
(comment
193
0 commit comments