21 |
22 |
23 |
26 |
27 |
28 |
--------------------------------------------------------------------------------
/src/test/clojure/cljs/profile.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.profile
10 | (:require [clojure.java.io :as io]
11 | [cljs.env :as env]
12 | [cljs.analyzer :as ana]
13 | [cljs.compiler :as comp]))
14 |
15 | (comment
16 |
17 | ;; ~900ms
18 | (dotimes [_ 20]
19 | (time
20 | (ana/analyze-file (io/resource "cljs/core.cljs"))))
21 |
22 | ;; ~2700ms
23 | ;; after change ~2500
24 | (dotimes [_ 20]
25 | (time
26 | (env/with-compiler-env (env/default-compiler-env)
27 | (comp/compile-file (.getPath (io/resource "cljs/core.cljs")))
28 | (.delete (io/file "src/main/cljs/cljs/core.js")))))
29 |
30 | )
--------------------------------------------------------------------------------
/src/main/cljs/cljs/proxy/impl.cljs:
--------------------------------------------------------------------------------
1 | ; Copyright (c) Rich Hickey. All rights reserved.
2 | ; The use and distribution terms for this software are covered by the
3 | ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ; which can be found in the file epl-v10.html at the root of this distribution.
5 | ; By using this software in any fashion, you are agreeing to be bound by
6 | ; the terms of this license.
7 | ; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.proxy.impl)
10 |
11 | (deftype SimpleCache [^:mutable obj ^:mutable cnt]
12 | Object
13 | (set [this k v]
14 | (when (== cnt 1024)
15 | (.clear this))
16 | (unchecked-set obj k v)
17 | (set! cnt (inc cnt))
18 | v)
19 | (get [this k]
20 | (unchecked-get obj k))
21 | (clear [this]
22 | (set! obj #js {})
23 | (set! cnt 0)))
24 |
25 | (deftype MapIterator [^:mutable iter f]
26 | Object
27 | (next [_]
28 | (let [x (.next iter)]
29 | (if-not ^boolean (. x -done)
30 | #js {:value (f (. x -value))
31 | :done false}
32 | x))))
33 |
--------------------------------------------------------------------------------
/samples/dom/test.html:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
DOM testing
12 |
13 |
14 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
28 |
29 |
30 |
--------------------------------------------------------------------------------
/samples/hello/README.md:
--------------------------------------------------------------------------------
1 | *NOTE: this sample is now out of date. Please refer to the Quick Start*
2 |
3 | Simple ClojureScript Project Example.
4 |
5 | One-time Setup
6 | ==============
7 |
8 | - Create a CLOJURESCRIPT_HOME environment variable which points to the
9 | ClojureScript root directory.
10 |
11 | - If you have not already done so, execute
12 |
13 | $CLOJURESCRIPT_HOME/script/bootstrap
14 |
15 | - Add $CLOJURESCRIPT_HOME/bin to your PATH.
16 |
17 | Run in Development Mode
18 | =======================
19 |
20 | Development mode allows for each file to be loaded in a separate script tag so
21 | that errors can be easily tracked to the offending file.
22 |
23 | cljsc src > hello.js
24 |
25 | After running the above command, open hello-dev.html. Notice that each required
26 | JavaScript file has been loaded in its most readable form.
27 |
28 | Run Optimized JavaScript
29 | ========================
30 |
31 | Once an application is ready for production, a single optimized file can be produced.
32 |
33 | cljsc src {:optimizations :advanced} > hello.js
34 |
35 | After running the above command, open hello.html to view the result.
36 |
37 |
--------------------------------------------------------------------------------
/devnotes/day2.org:
--------------------------------------------------------------------------------
1 | * ClojureScript Day #2
2 | * Welcome Thortech!
3 | ** Eric, Frank and Tom
4 | *** Long time cohorts
5 | * Tips
6 | ** Don't define things in terms of undefined things
7 | *** someone else will just trip over later
8 | ** Test
9 | *** nil
10 | ** Encapsulate use of -methods in a single place
11 | ** Where's the global namespace?
12 | * Where are we at
13 | * Where are we going
14 | ** [[file:corelib.org][Core lib punchlist]]
15 | ** [[file:~/dev/clojurescript/todo.org][To do]]
16 | ** [[https://github.com/relevance/clojurescript/issues][Tickets]]
17 | * Release 1
18 | ** Make goog-compatible libs work
19 | ** Data structures
20 | *** work but are not optimal for large instances
21 | *** persistent guarantees
22 | ** seq library
23 | ** associative library
24 | ** indexed library
25 | ** atoms
26 | ** binding
27 | ** great tooling
28 | *** push button
29 | ** reader?
30 | *** print-read
31 | ** regex
32 | * Release 2
33 | ** DOM manipulation
34 | ** Can I use jQuery?
35 | ** bitops
36 | ** multimethods
37 | ** hierarchy
38 | ** reader + record support
39 | ** unchecked
40 | ** bitops
41 | ** print
42 | ** eventing value add
43 | ** DOM value add
44 | ** UI value add
45 |
--------------------------------------------------------------------------------
/src/test/clojure/cljs/js_deps_tests.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.js-deps-tests
10 | (:require [cljs.js-deps :as js-deps]
11 | [clojure.java.io :as io]
12 | [clojure.test :refer [deftest is run-tests]]))
13 |
14 | (deftest test-parse-js-ns-returns-require-types
15 | (let [ns-info (js-deps/parse-js-ns
16 | (line-seq (io/reader (io/resource "goog/events/eventhandler.js"))))]
17 | (is (true? (contains? ns-info :require-types)))))
18 |
19 | (deftest test-js-dependency-index-has-require-types
20 | (let [deps (js-deps/build-index (js-deps/goog-dependencies*))
21 | ns-info (get deps "goog.events.EventHandler")]
22 | (is (true? (contains? ns-info :require-types)))))
23 |
--------------------------------------------------------------------------------
/src/test/clojure/cljs/transpile_tests.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.transpile-tests
10 | (:require [cljs.closure :as closure :refer [closure-transpile]]
11 | [clojure.java.io :as io]
12 | [clojure.test :refer [deftest is run-tests]]))
13 |
14 | (deftest test-transpile-lang-in-lang-out
15 | (let [source (closure-transpile
16 | (io/resource "goog/async/throttle.js")
17 | {:language-in :es6 :language-out :es6})]
18 | (is (nil? (re-find #"jscomp" source))))
19 | (let [source (closure-transpile
20 | (io/resource "goog/async/throttle.js")
21 | {:language-in :es6 :language-out :es5})]
22 | (is (some? (re-find #"jscomp" source)))))
23 |
--------------------------------------------------------------------------------
/src/test/cljs/cljs/hash_set_test.cljs:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.hash-set-test
10 | (:refer-clojure :exclude [iter])
11 | (:require [cljs.test :refer-macros [deftest testing is]]))
12 |
13 | (deftest test-hash-set-with-duplicate-keys
14 | (testing "Testing duplicate keys in array maps"
15 | ;; runtime
16 | (is (= [:foo] (keys (apply array-map [:foo :foo]))))
17 | (let [sym-a (with-meta 'foo :first)
18 | sym-b (with-meta 'foo :second)]
19 | (is (= #{sym-a} (apply hash-set [sym-a sym-b]))))
20 | ;; compile-time
21 | (is (= {:foo 2} (hash-set :foo :foo)))
22 | (let [sym-a (with-meta 'foo :first)
23 | sym-b (with-meta 'foo :second)]
24 | (is (= #{sym-a} (hash-set sym-a sym-b))))))
25 |
--------------------------------------------------------------------------------
/samples/twitterbuzz/reset.css:
--------------------------------------------------------------------------------
1 | /* Eric Meyer's Reset Reloaded */
2 | html, body, div, span, applet, object, iframe,
3 | h1, h2, h3, h4, h5, h6, p, blockquote, pre,
4 | a, abbr, acronym, address, big, cite, code,
5 | del, dfn, em, font, img, ins, kbd, q, s, samp,
6 | small, strike, strong, sub, sup, tt, var,
7 | dl, dt, dd, ol, ul, li,
8 | fieldset, form, label, legend,
9 | table, caption, tbody, tfoot, thead, tr, th, td {
10 | margin: 0;
11 | padding: 0;
12 | border: 0;
13 | outline: 0;
14 | font-weight: inherit;
15 | font-style: inherit;
16 | font-size: 100%;
17 | font-family: inherit;
18 | vertical-align: baseline;
19 | }
20 | /* remember to define focus styles! */
21 | :focus {
22 | outline: 0;
23 | }
24 | body {
25 | line-height: 1;
26 | color: black;
27 | background: white;
28 | }
29 | ol, ul {
30 | list-style: none;
31 | }
32 | /* tables still need 'cellspacing="0"' in the markup */
33 | table {
34 | border-collapse: separate;
35 | border-spacing: 0;
36 | }
37 | caption, th, td {
38 | text-align: left;
39 | font-weight: normal;
40 | }
41 | blockquote:before, blockquote:after,
42 | q:before, q:after {
43 | content: "";
44 | }
45 | blockquote, q {
46 | quotes: "" "";
47 | }
48 |
49 |
--------------------------------------------------------------------------------
/src/main/cljs/cljs/analyzer/passes.cljc:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.analyzer.passes)
10 |
11 | (defn apply-passes
12 | ([ast passes]
13 | (apply-passes ast passes nil))
14 | ([ast passes opts]
15 | (reduce
16 | (fn [ast pass]
17 | (pass (:env ast) ast opts))
18 | ast passes)))
19 |
20 | (defn walk
21 | ([ast passes]
22 | (walk ast passes nil))
23 | ([ast passes opts]
24 | (reduce
25 | (fn [ast child-k]
26 | (assoc ast
27 | child-k
28 | (let [child (get ast child-k)]
29 | (if (vector? child)
30 | (into [] (map #(walk % passes opts)) child)
31 | (walk child passes opts)))))
32 | (some-> ast (apply-passes passes opts)) (:children ast))))
33 |
--------------------------------------------------------------------------------
/src/main/cljs/cljs/analyzer/passes/lite.cljc:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.analyzer.passes.lite
10 | (:refer-clojure :exclude [var?]))
11 |
12 | (defn var? [ast]
13 | (= :var (:op ast)))
14 |
15 | (def ctor->ctor-lite
16 | '{cljs.core/vector cljs.core/vector-lite
17 | cljs.core/vec cljs.core/vec-lite})
18 |
19 | (defn update-var [{:keys [name] :as ast}]
20 | (let [replacement (get ctor->ctor-lite name)]
21 | (-> ast
22 | (assoc :name replacement)
23 | (assoc-in [:info :name] replacement))))
24 |
25 | (defn replace-var? [ast]
26 | (and (var? ast)
27 | (contains? ctor->ctor-lite (:name ast))))
28 |
29 | (defn use-lite-types
30 | [env ast _]
31 | (cond-> ast
32 | (replace-var? ast) update-var))
33 |
--------------------------------------------------------------------------------
/src/test/cljs/cljs/clojure_alias_test.cljs:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.clojure-alias-test
10 | "Tests requiring via `clojure.*` instead of `cljs.*`"
11 | (:refer-clojure :exclude [use-macros])
12 | (:require-macros clojure.spec.gen.alpha)
13 | ;(:use-macros [clojure.analyzer.macros :only [no-warn]])
14 | (:require [clojure.test :refer [deftest is] :rename {is is?}]
15 | [clojure.spec.alpha :as s :refer [spec? spec] :rename {spec foo}]))
16 |
17 | (deftest normal-test
18 | (is? (= 1 1)))
19 |
20 | (deftest aliases-test
21 | (is? (= spec? clojure.spec.alpha/spec? cljs.spec.alpha/spec?))
22 | (is? (foo number?)))
23 |
24 | (deftest use-macros
25 | (s/def ::even? (s/and number? even?))
26 | (is? (s/valid? ::even? 2)))
27 |
--------------------------------------------------------------------------------
/bin/cljsc.clj:
--------------------------------------------------------------------------------
1 | ; Copyright (c) Rich Hickey. All rights reserved.
2 | ; The use and distribution terms for this software are covered by the
3 | ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ; which can be found in the file epl-v10.html at the root of this distribution.
5 | ; By using this software in any fashion, you are agreeing to be bound by
6 | ; the terms of this license.
7 | ; You must not remove this notice, or any other, from this software.
8 |
9 | (require '[cljs.closure :as closure])
10 |
11 | (defn transform-cl-args
12 | [args]
13 | (let [source (first args)
14 | opts-string (apply str (interpose " " (rest args)))
15 | options (when (> (count opts-string) 1)
16 | (try (read-string opts-string)
17 | (catch Exception e
18 | (binding [*out* *err*]
19 | (println "Failed to parse command line args:" e)))))]
20 | {:source source :options (merge {:output-to :print} options)}))
21 |
22 | (let [args (transform-cl-args *command-line-args*)]
23 | (closure/build (:source args) (:options args))
24 | (.flush *out*)
25 | (shutdown-agents)
26 | (System/exit 0))
27 |
--------------------------------------------------------------------------------
/src/main/cljs/cljs/nodejs.cljs:
--------------------------------------------------------------------------------
1 | ; Copyright (c) Rich Hickey. All rights reserved.
2 | ; The use and distribution terms for this software are covered by the
3 | ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ; which can be found in the file epl-v10.html at the root of this distribution.
5 | ; By using this software in any fashion, you are agreeing to be bound by
6 | ; the terms of this license.
7 | ; You must not remove this notice, or any other, from this software.
8 |
9 | ; Projects compiled with :target :nodejs can 'require' this namespace
10 | ; to get the nodejs globals loaded into cljs.nodejs and get
11 | ; ClojureScript's 'print' set up correctly.
12 | (ns cljs.nodejs
13 | (:refer-clojure :exclude [require]))
14 |
15 | ; Define namespaced references to Node's externed globals:
16 | (def require (js* "require"))
17 | (def process (js* "process"))
18 |
19 | (defn enable-util-print! []
20 | (set! *print-newline* false)
21 | (set-print-fn!
22 | (fn [& args]
23 | (.apply (.-log js/console) js/console (into-array args))))
24 | (set-print-err-fn!
25 | (fn [& args]
26 | (.apply (.-error js/console) js/console (into-array args))))
27 | nil)
28 |
--------------------------------------------------------------------------------
/src/test/cljs/cljs/proxy_test.cljs:
--------------------------------------------------------------------------------
1 | ; Copyright (c) Rich Hickey. All rights reserved.
2 | ; The use and distribution terms for this software are covered by the
3 | ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ; which can be found in the file epl-v10.html at the root of this distribution.
5 | ; By using this software in any fashion, you are agreeing to be bound by
6 | ; the terms of this license.
7 | ; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.proxy-test
10 | (:refer-global :only [Object])
11 | (:require [cljs.test :as test :refer-macros [deftest testing is are]]
12 | [cljs.proxy :refer [builder]]
13 | [goog.object :as gobj]))
14 |
15 | (def proxy (builder))
16 |
17 | (deftest map-proxy
18 | (let [proxied (proxy {:foo 1 :bar 2})]
19 | (is (== 1 (gobj/get proxied "foo")))
20 | (is (== 2 (gobj/get proxied "bar")))
21 | (is (= #{"foo" "bar"} (into #{} (Object/keys proxied))))))
22 |
23 | (deftest vector-proxy
24 | (let [proxied (proxy [1 2 3 4])]
25 | (is (== 4 (alength proxied)))
26 | (is (== 1 (aget proxied 0)))
27 | (is (== 4 (aget proxied 3)))))
28 |
29 | (comment
30 |
31 | (test/run-tests)
32 |
33 | )
34 |
--------------------------------------------------------------------------------
/src/test/cljs/cljs/inference_util.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.inference-util)
10 |
11 | (defmacro truth_-called?
12 | "Returns whether cljs.core/truth_ is called when evaluating a form as the
13 | test of an if."
14 | [form]
15 | `(let [called?# (volatile! false)]
16 | (with-redefs [cljs.core/truth_ (fn [x#]
17 | (vreset! called?# true)
18 | (cljs.core/truth_ x#))]
19 | (if ~form 1 2))
20 | @called?#))
21 |
22 | (defmacro truth_-not-called?
23 | "Returns whether cljs.core/truth_ is not called when evaluating ecah of
24 | forms as the test of an if."
25 | [& forms]
26 | `(do
27 | ~@(map (fn [form]
28 | `(cljs.test/is (not (truth_-called? ~form))))
29 | forms)))
30 |
--------------------------------------------------------------------------------
/src/test/clojure/cljs/instant_tests.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.instant-tests
10 | (:require
11 | [cljs.instant :as inst]
12 | [clojure.test :refer [deftest is]]))
13 |
14 | (deftest read-instant-instant-test
15 | ;; Clojure uses hybrid Julian / Gregorian, while Instant is proleptic Gregorian
16 | (is (not= #inst "1500" (inst/read-instant-instant "1500")))
17 | (is (not= (inst-ms #inst "1500") (inst-ms (inst/read-instant-instant "1500"))))
18 | (is (= -14831769600000 (inst-ms (inst/read-instant-instant "1500"))))
19 | (is (= "#inst \"1500-01-01T00:00:00.123456789-00:00\""
20 | (pr-str (inst/read-instant-instant "1500-01-01T00:00:00.123456789-00:00"))))
21 | (is (= "#inst \"2020-01-01T05:00:00.000000000-00:00\""
22 | (pr-str (inst/read-instant-instant "2020-01-01T00:00:00.000-05:00")))))
23 |
--------------------------------------------------------------------------------
/src/test/cljs/cljs/chunked_seq.cljs:
--------------------------------------------------------------------------------
1 | ; Copyright (c) Rich Hickey. All rights reserved.
2 | ; The use and distribution terms for this software are covered by the
3 | ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ; which can be found in the file epl-v10.html at the root of this distribution.
5 | ; By using this software in any fashion, you are agreeing to be bound by
6 | ; the terms of this license.
7 | ; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.chunked-seq
10 | (:refer-clojure :exclude [iter])
11 | (:require [cljs.test :refer-macros [deftest testing is are]]))
12 |
13 | (deftest test-cljs-2693
14 | (is (chunked-seq? (range 5)))
15 | (is (satisfies? IChunk (chunk-first (range 5))))
16 | (is (nil? (chunk-next (range 32))))
17 | (is (not (chunked-seq? (range 2 -2 0))))
18 | (is (chunked-seq? (range)))
19 | (is (= 5 (count (chunk-first (range 5)))))
20 | (is (= 32 (count (chunk-first (range)))))
21 | (is (= 17 (nth (chunk-first (range 100)) 17)))
22 | (is (= 35 (nth (chunk-first (range 100)) 35)))
23 | (is (= 32 (count (chunk-first (range 100)))))
24 | (is (= 0 (first (range 5))))
25 | (is (= 1 (second (range 5))))
26 | (is (= (range 1 5) (rest (range 5))))
27 | (is (= (range 1 5) (next (range 5)))))
--------------------------------------------------------------------------------
/src/test/cljs/cljs/set_equiv_test.cljs:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.set-equiv-test
10 | (:refer-clojure :exclude [iter])
11 | (:require [cljs.test :refer-macros [deftest testing is]]
12 | [clojure.string :as s]
13 | [clojure.set :as set]))
14 |
15 | (deftest test-set-equality
16 | (testing "Testing set equality"
17 | (is (= (sorted-set 3 2 1) (sorted-set 1 2 3)))
18 | (is (= (hash-set 3 2 1) (sorted-set 1 2 3)))
19 | (is (= (sorted-set :a :b :c) (hash-set :a :b :c)))
20 | (is (= (hash-set :a :b :c) (hash-set :a :b :c))))
21 |
22 | (testing "CLJS-2731 uncomparable values"
23 | (is (not= (sorted-set 3 2 1) (sorted-set :a :b :c)))
24 | (is (not= (hash-set 3 2 1) (sorted-set :a :b :c)))
25 | (is (not= (sorted-set 3 2 1) (hash-set :a :b :c)))
26 | (is (not= (hash-set 3 2 1) (hash-set :a :b :c)))))
27 |
--------------------------------------------------------------------------------
/.github/workflows/release.yml:
--------------------------------------------------------------------------------
1 | name: Release on demand
2 |
3 | on:
4 | workflow_dispatch:
5 | inputs:
6 | deploy:
7 | description: "Deploy to Maven Central"
8 | required: true
9 | default: false
10 | type: boolean
11 |
12 | jobs:
13 | build:
14 | runs-on: ubuntu-latest
15 | steps:
16 | - name: Check out
17 | uses: actions/checkout@v3
18 | with:
19 | fetch-depth: 0
20 | - name: Set Github identity
21 | run: |
22 | git config --global user.name clojure-build
23 | git config --global user.email "clojure-build@users.noreply.github.com"
24 | - name: Set up Java
25 | uses: actions/setup-java@v3
26 | with:
27 | java-version: 21
28 | distribution: 'temurin'
29 | cache: 'maven'
30 | server-id: central
31 | server-username: MAVEN_USERNAME
32 | server-password: MAVEN_PASSWORD
33 | gpg-private-key: ${{ secrets.CENTRAL_GPG_SECRET_KEY }}
34 | gpg-passphrase: GPG_PASSPHRASE
35 | - name: Release
36 | run: script/build
37 | env:
38 | HUDSON: ${{ github.event.inputs.deploy }}
39 | MAVEN_USERNAME: ${{ secrets.CENTRAL_USERNAME }}
40 | MAVEN_PASSWORD: ${{ secrets.CENTRAL_PASSWORD }}
41 | GPG_PASSPHRASE: ${{ secrets.CENTRAL_GPG_SECRET_KEY_PASSWORD }}
42 |
--------------------------------------------------------------------------------
/src/main/clojure/cljs/analyzer/utils.clj:
--------------------------------------------------------------------------------
1 | ; Copyright (c) Rich Hickey. All rights reserved.
2 | ; The use and distribution terms for this software are covered by the
3 | ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ; which can be found in the file epl-v10.html at the root of this distribution.
5 | ; By using this software in any fashion, you are agreeing to be bound by
6 | ; the terms of this license.
7 | ; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.analyzer.utils
10 | (:require [cljs.analyzer :as ana]))
11 |
12 | (defn simplify-env [_ {:keys [op] :as ast}]
13 | (let [env (:env ast)
14 | ast (if (= op :fn)
15 | (assoc ast :methods
16 | (mapv #(simplify-env nil %) (:methods ast)))
17 | ast)]
18 | (assoc (dissoc ast :env)
19 | :env {:context (:context env)})))
20 |
21 | (defn elide-children [_ ast]
22 | (dissoc ast :children))
23 |
24 | (defn to-ast
25 | ([form] (to-ast 'cljs.user form))
26 | ([ns form]
27 | (let [env (assoc-in (ana/empty-env) [:ns :name] ns)]
28 | (binding [ana/*passes*
29 | (or ana/*passes*
30 | [elide-children simplify-env ana/infer-type])]
31 | (ana/analyze env form)))))
32 |
33 | (comment
34 | (require '[clojure.pprint :as pp])
35 | (pp/pprint (to-ast '(defn foo [a b] (+ a b))))
36 | )
37 |
--------------------------------------------------------------------------------
/src/main/clojure/cljs/source_map/base64.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.source-map.base64)
10 |
11 | (def chars64 "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/")
12 | (def char->int (zipmap chars64 (range 0 64)))
13 | (def int->char (zipmap (range 0 64) chars64))
14 |
15 | (defn encode [^long n]
16 | (case n
17 | 0 \A 1 \B 2 \C 3 \D 4 \E 5 \F 6 \G 7 \H 8 \I 9 \J 10 \K 11 \L 12 \M
18 | 13 \N 14 \O 15 \P 16 \Q 17 \R 18 \S 19 \T 20 \U 21 \V 22 \W 23 \X 24 \Y 25 \Z
19 | 26 \a 27 \b 28 \c 29 \d 30 \e 31 \f 32 \g 33 \h 34 \i 35 \j 36 \k 37 \l 38 \m
20 | 39 \n 40 \o 41 \p 42 \q 43 \r 44 \s 45 \t 46 \u 47 \v 48 \w 49 \x 50 \y 51 \z
21 | 52 \0 53 \1 54 \2 55 \3 56 \4 57 \5 58 \6 59 \7 60 \8 61 \9 62 \+ 63 \/
22 | (throw (Error. (str "Must be between 0 and 63: " n)))))
23 |
24 | (defn ^Character decode [c]
25 | (let [e (find char->int c)]
26 | (if e
27 | (second e)
28 | (throw (Error. (str "Not a valid base 64 digit: " c))))))
--------------------------------------------------------------------------------
/src/test/cljs/data_readers_test/records.cljc:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns data-readers-test.records
10 | #?(:cljs (:require-macros [data-readers-test.records])))
11 |
12 | (defrecord Foo [a b])
13 |
14 | (assert (= (Foo. 1 2) #data_readers_test.records.Foo{:a 1 :b 2}))
15 | (assert (= (Foo. 1 2)
16 | '#data_readers_test.records.Foo{:a 1 :b 2}))
17 | (assert (= (Foo. 1 2)
18 | (second ''#data_readers_test.records.Foo{:a 1 :b 2})))
19 | (assert (= (Foo. 'a 'b)
20 | (let [a 1
21 | b 2]
22 | #data_readers_test.records.Foo{:a a :b b}))
23 | (pr-str
24 | (let [a 1
25 | b 2]
26 | #data_readers_test.records.Foo{:a a :b b})))
27 | (assert (= (Foo. 'a 'b)
28 | (let [a 1
29 | b 2]
30 | '#data_readers_test.records.Foo{:a a :b b}))
31 | (pr-str
32 | (let [a 1
33 | b 2]
34 | '#data_readers_test.records.Foo{:a a :b b})))
35 |
--------------------------------------------------------------------------------
/src/test/cljs/cljs/invoke_test.cljs:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.invoke-test
10 | (:require [goog.string :as gstr]))
11 |
12 | (defn variadic-fn [& args])
13 |
14 | (variadic-fn 1 2 3)
15 |
16 | (defn multi-fn
17 | ([a] a)
18 | ([a b] a))
19 |
20 | (defn hof-fn-expr-should-be-bound
21 | [funexpr0 normal-arg]
22 | ((complement funexpr0) normal-arg))
23 |
24 | (defn hof-arg-should-be-bound
25 | [hofinvoke inv-arg0]
26 | (hofinvoke (inv-arg0)))
27 |
28 | (defn hof-fn-expr+args-should-be-bound
29 | [funexpr1 inv-arg1]
30 | ((complement funexpr1) (inv-arg1)))
31 |
32 | ;; A keyword should not be bound in a let:
33 | (def foo (delay
34 | (:dont-bind-this js/x)))
35 |
36 | (multi-fn 2)
37 |
38 | (gstr/urlEncode "foo")
39 |
40 | (js/goog.string.urlDecode "bar")
41 |
42 | (declare ^{:arglists '([a b])} declared-fn)
43 |
44 | (declared-fn 1 2)
45 |
46 | (defrecord Foo [foo-field-a foo-field-b])
47 |
48 | (def foo-record (->Foo 1 2))
49 |
50 | (:foo-field-a foo-record)
51 |
--------------------------------------------------------------------------------
/src/test/cljs/clojure/edn_test.cljs:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns clojure.edn-test
10 | (:require [cljs.test :refer-macros [deftest is testing]]
11 | [clojure.edn :as edn]
12 | [cljs.reader :as reader]
13 | [cljs.tools.reader.reader-types :as reader-types]))
14 |
15 | (defn- test-reader []
16 | (reader-types/string-push-back-reader "[1 2 3]"))
17 |
18 | (deftest test-read
19 | (testing "Mirrors cljs.reader/read"
20 | (is (= (edn/read (test-reader))
21 | (reader/read (test-reader))))
22 | (is (= (edn/read {} (test-reader))
23 | (reader/read {} (test-reader))))
24 | (is (= (edn/read (test-reader) false "EOF" {})
25 | (reader/read (test-reader) false "EOF" {})))))
26 |
27 | (deftest test-read-string
28 | (testing "Mirrors cljs.reader/read-string"
29 | (is (= (edn/read-string "(+ 1 2)")
30 | (reader/read-string "(+ 1 2)")))
31 | (is (= (edn/read-string "{:a #{[1]}}")
32 | (reader/read-string "{:a #{[1]}}")))))
33 |
--------------------------------------------------------------------------------
/src/test/cljs/cljs/pprint_test.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.pprint-test
10 | (:require cljs.test))
11 |
12 | (defmacro simple-tests [name & test-pairs]
13 | `(cljs.test/deftest ~name
14 | ~@(for [[x y] (partition 2 test-pairs)]
15 | `(cond
16 | (cljs.core/regexp? ~y) (cljs.test/is (.exec ~y ~x))
17 | (cljs.core/string? ~y) (cljs.test/is (= ~x ~y))
18 | :else (cljs.test/is (= ~x ~y))))))
19 |
20 | (defmacro code-block
21 | "Read a string then print it with code-dispatch and succeed if it comes out the same"
22 | [test-name & blocks]
23 | `(simple-tests ~test-name
24 | ~@(apply concat
25 | (for [block blocks]
26 | `[(clojure.string/split-lines
27 | (with-out-str
28 | (cljs.pprint/with-pprint-dispatch cljs.pprint/code-dispatch
29 | (cljs.pprint/pprint (cljs.reader/read-string ~block)))))
30 | (clojure.string/split-lines ~block)]))))
31 |
--------------------------------------------------------------------------------
/src/main/clojure/cljs/analyzer/impl.cljc:
--------------------------------------------------------------------------------
1 | ; Copyright (c) Rich Hickey. All rights reserved.
2 | ; The use and distribution terms for this software are covered by the
3 | ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ; which can be found in the file epl-v10.html at the root of this distribution.
5 | ; By using this software in any fashion, you are agreeing to be bound by
6 | ; the terms of this license.
7 | ; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.analyzer.impl)
10 |
11 | (def ANY_SYM 'any)
12 |
13 | (def BOOLEAN_OR_SEQ '#{boolean seq})
14 |
15 | (def BOOLEAN_SYM 'boolean)
16 |
17 | #?(:cljs
18 | (def CLJ_NIL_SYM 'clj-nil))
19 |
20 | #?(:cljs
21 | (def CLJS_CORE_MACROS_SYM 'cljs.core$macros))
22 |
23 | #?(:cljs
24 | (def CLJS_CORE_SYM 'cljs.core))
25 |
26 | #?(:cljs
27 | (def DOT_SYM '.))
28 |
29 | (def IGNORE_SYM 'ignore)
30 |
31 | #?(:cljs
32 | (def JS_STAR_SYM 'js*))
33 |
34 | #?(:cljs
35 | (def NEW_SYM 'new))
36 |
37 | (def NOT_NATIVE '#{clj not-native})
38 |
39 | #?(:cljs
40 | (def NUMBER_SYM 'number))
41 |
42 | #?(:cljs
43 | (def STRING_SYM 'string))
44 |
45 | #?(:cljs
46 | (defn ^boolean cljs-map? [x]
47 | (implements? IMap x)))
48 |
49 | #?(:cljs
50 | (defn ^boolean cljs-seq? [x]
51 | (implements? ISeq x)))
52 |
53 | #?(:cljs
54 | (defn ^boolean cljs-vector? [x]
55 | (implements? IVector x)))
56 |
57 | #?(:cljs
58 | (defn ^boolean cljs-set? [x]
59 | (implements? ISet x)))
60 |
--------------------------------------------------------------------------------
/src/test/cljs/cljs/macro_test.cljs:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.macro-test
10 | (:refer-clojure :exclude [==])
11 | (:require [cljs.test :as test :refer-macros [deftest is]])
12 | (:use-macros [cljs.macro-test.macros :only [== sm-cljs-3027]])
13 | (:require-macros [cljs.macro-test.cljs2852]
14 | [single-seg-macros]))
15 |
16 | (deftest test-macros
17 | (is (= (== 1 1) 2)))
18 |
19 | (deftest macroexpansion
20 | (is (= 1 (macroexpand-1 '1)))
21 | (is (= '(if true (do 1)) (macroexpand-1 '(when true 1))))
22 | (is (= 1 (macroexpand '1)))
23 | (is (= '(if true (do 1)) (macroexpand '(when true 1)))))
24 |
25 | (deftest test-cljs-2283
26 | (is (= ":a" (first (js-keys (js-obj :a 1))))))
27 |
28 | (deftest test-cljs-2852
29 | (is (= '([x])) (cljs.macro-test.cljs2852/beta))
30 | (is (= '([x] [x y])) (cljs.macro-test.cljs2852/delta))
31 | (is (= '([x] [x & xs])) (cljs.macro-test.cljs2852/zeta)))
32 |
33 | (deftest test-cljs-3027
34 | (is (= {"a" "b"} (sm-cljs-3027))))
35 |
36 | (deftest test-cljs-3413
37 | (is (= 5 (single-seg-macros/test-macro 2 3))))
38 |
--------------------------------------------------------------------------------
/src/test/cljs/cljs/npm_deps_test.cljs:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.npm-deps-test
10 | (:refer-clojure :exclude [array vector])
11 | (:require [cljs.test :refer [deftest is]]
12 | ["lodash/array" :as array :refer [slice] :rename {slice slc}]
13 | [calculator :as vector :refer [add] :rename {add plus}]
14 | [es6_calc]
15 | [es6_default_hello :as es6hello]))
16 |
17 | (def array #js [1 2 3])
18 |
19 | (def vector [1])
20 |
21 | (deftest test-module-processing
22 | (is (= (array/nth #js [1 2 3] 1) 2))
23 | ;; rename works
24 | (is (= (array-seq (slc #js [1 2 3] 1)) [2 3])))
25 |
26 | (deftest test-global-exports
27 | (is (= (plus 1 2) 3)))
28 |
29 | (deftest test-cljs-2224
30 | ;; array should be correctly resolved in the current NS (shadows module)
31 | (is (= (array-seq array) [1 2 3]))
32 | ;; same should happen with global-exports
33 | (is (= vector [1])))
34 |
35 | (deftest test-cljs-2286
36 | (is (= 3 (es6_calc/calculator.add 1 2))))
37 |
38 | (deftest test-cljs-1620
39 | (is (= "Hello, world!" (es6hello/default))))
40 |
--------------------------------------------------------------------------------
/src/main/clojure/cljs/env/macros.clj:
--------------------------------------------------------------------------------
1 | ; Copyright (c) Rich Hickey. All rights reserved.
2 | ; The use and distribution terms for this software are covered by the
3 | ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ; which can be found in the file epl-v10.html at the root of this distribution.
5 | ; By using this software in any fashion, you are agreeing to be bound by
6 | ; the terms of this license.
7 | ; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.env.macros
10 | (:refer-clojure :exclude [binding ensure]))
11 |
12 | (defmacro with-compiler-env
13 | "Evaluates [body] with [env] bound as the value of the `*compiler*` var in
14 | this namespace."
15 | [env & body]
16 | `(let [env# ~env
17 | env# (cond
18 | (map? env#) (atom env#)
19 | (and (instance? cljs.core/Atom env#) (map? @env#)) env#
20 | :default
21 | (throw
22 | (js/Error.
23 | (str "Compiler environment must be a map or atom containing a map, not "
24 | (type env#)))))]
25 | (cljs.core/binding [cljs.env/*compiler* env#]
26 | ~@body)))
27 |
28 | (defmacro ensure
29 | [& body]
30 | `(let [val# cljs.env/*compiler*]
31 | (when (nil? val#)
32 | (set! cljs.env/*compiler* (cljs.env/default-compiler-env)))
33 | (try
34 | ~@body
35 | (finally
36 | (when (nil? val#)
37 | (set! cljs.env/*compiler* nil))))))
38 |
--------------------------------------------------------------------------------
/src/test/cljs/cljs/eval_test.cljs:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns cljs.eval-test
10 | (:require [cljs.test :refer [deftest is]]))
11 |
12 | ;;; This test namespace should only be loaded by environments that set up cljs.core/*eval*
13 |
14 | (def addition-list-1 (list + 1 2))
15 | (def addition-list-2 (list + 1 'a))
16 | (def addition-list-3 (list (fn [a b] (+ a b)) 1 2))
17 | (defn square [x] (* x x))
18 | (defn cube [x] (* x x x))
19 |
20 | (deftest test-eval
21 | (is (== 1 (eval 1)))
22 | (is (== 3 (eval '(+ 1 2))))
23 | (is (== 17 (eval '(let [a 10] (+ 3 4 a)))))
24 | (is (= 'a (:name (meta (eval '(def a 3))))))
25 | (is (== 3 (eval 'a)))
26 | (is (== 3 (eval addition-list-1)))
27 | (is (== 4 (eval addition-list-2)))
28 | (is (== 13 (eval (concat addition-list-1 [10]))))
29 | (is (= 'lucky-number (:name (meta (eval (list 'def 'lucky-number (concat addition-list-1 [20])))))))
30 | (is (== 23 (eval 'lucky-number)))
31 | (is (== 64 ((eval (list comp square cube)) 2)))
32 | (is (== 5 ((eval (eval +)) 2 3)))
33 | (is (== 3 (eval addition-list-3)))
34 | (is (== 4 (eval (list #'inc 3)))))
35 |
--------------------------------------------------------------------------------
/src/test/cljs/clojure/walk_test.cljs:
--------------------------------------------------------------------------------
1 | ;; Copyright (c) Rich Hickey. All rights reserved.
2 | ;; The use and distribution terms for this software are covered by the
3 | ;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
4 | ;; which can be found in the file epl-v10.html at the root of this distribution.
5 | ;; By using this software in any fashion, you are agreeing to be bound by
6 | ;; the terms of this license.
7 | ;; You must not remove this notice, or any other, from this software.
8 |
9 | (ns clojure.walk-test
10 | (:require [cljs.test :as test
11 | :refer-macros [deftest is testing]]
12 | [clojure.walk :as w]))
13 |
14 | (defrecord Rec1 [a])
15 |
16 | (defn inc-leaf [x]
17 | (if (number? x)
18 | (inc x)
19 | x))
20 |
21 | (deftest test-api
22 | (testing "Test walking"
23 | (is (= [2 {1 "1", :two 2}] (w/postwalk inc-leaf [1 {0 "1", :two 1}])))
24 | (is (= [(Rec1. 2)] (w/postwalk inc-leaf [(Rec1. 1)])))
25 |
26 | (is (= (map->Rec1 {:a 1, ":a" 1})
27 | (w/prewalk #(if (keyword? %) (str %) %) (Rec1. 1)))
28 | "Mirror Clojure behavior")))
29 |
30 | (deftest test-preserves-meta
31 | (testing "Test preserves meta"
32 | (is (= (-> (w/prewalk identity [1 (with-meta [1 2] {:foo 3})])
33 | (nth 1) meta)
34 | {:foo 3}))
35 | (is (= (-> (w/postwalk identity [1 (with-meta [1 2] {:foo 3})])
36 | (nth 1) meta)
37 | {:foo 3}))))
38 |
39 | (deftest test-map-entry
40 | (is (= [:a 2] (clojure.walk/postwalk #(cond-> % (number? %) inc) (->MapEntry :a 1 nil)))))
41 |
--------------------------------------------------------------------------------
/samples/dom/src/dom/test.cljs:
--------------------------------------------------------------------------------
1 | (ns dom.test
2 | (:require [clojure.browser.event :as event]
3 | [clojure.browser.dom :as dom]))
4 |
5 | (defn log [& args]
6 | (.log js/console (apply pr-str args)))
7 |
8 | (defn log-obj [obj]
9 | (.log js/console obj))
10 |
11 | (defn log-listener-count []
12 | (log "listener count: " (event/total-listener-count)))
13 |
14 | (def source (dom/get-element "source"))
15 | (def destination (dom/get-element "destination"))
16 |
17 | (dom/append source
18 | (dom/element "Testing me ")
19 | (dom/element "out!"))
20 |
21 | (def success-count (atom 0))
22 |
23 | (log-listener-count)
24 |
25 | (event/listen source
26 | :click
27 | (fn [e]
28 | (let [i (swap! success-count inc)
29 | e (dom/element :li
30 | {:id "testing"
31 | :class "test me out please"}
32 | "It worked!")]
33 | (log-obj e)
34 | (log i)
35 | (dom/append destination
36 | e))))
37 |
38 | (log-obj (dom/element "Text node"))
39 | (log-obj (dom/element :li))
40 | (log-obj (dom/element :li {:class "foo"}))
41 | (log-obj (dom/element :li {:class "bar"} "text node"))
42 | (log-obj (dom/element [:ul [:li :li :li]]))
43 | (log-obj (dom/element :ul [:li :li :li]))
44 | (log-obj (dom/element :li {} [:ul {} [:li :li :li]]))
45 | (log-obj (dom/element [:li {:class "baz"} [:li {:class "quux"}]]))
46 |
47 | (log-obj source)
48 | (log-listener-count)
--------------------------------------------------------------------------------
/project.clj:
--------------------------------------------------------------------------------
1 | (defproject org.clojure/clojurescript "0.0-SNAPSHOT"
2 | :description "ClojureScript compiler and core runtime library"
3 | :parent [org.clojure/pom.contrib "1.3.0"]
4 | :url "https://github.com/clojure/clojurescript"
5 | :license {:name "Eclipse Public License"
6 | :url "http://www.eclipse.org/legal/epl-v10.html"}
7 | :jvm-opts ^:replace ["-Dclojure.compiler.direct-linking=true" "-Xmx512m" "-server"]
8 | :source-paths ["src/main/clojure" "src/main/cljs"]
9 | :resource-paths ["src/main/cljs" "resources"]
10 | :test-paths ["src/test/clojure" "src/test/cljs" "src/test/self" "src/test/cljs_build" "src/test/cljs_cp"]
11 | :dependencies [[org.clojure/clojure "1.10.0"]
12 | [org.clojure/spec.alpha "0.1.143"]
13 | [org.clojure/core.specs.alpha "0.1.24"]
14 | [org.clojure/tools.reader "1.3.6"]
15 | [org.clojure/test.check "1.1.1" :scope "test"]
16 | [com.cognitect/transit-java "1.0.362"]
17 | [org.clojure/google-closure-library "0.0-20250515-f04e4c0e"]
18 | [com.google.javascript/closure-compiler "v20250820"]]
19 | :profiles {:1.6 {:dependencies [[org.clojure/clojure "1.6.0"]]}
20 | :uberjar {:aot :all :main cljs.main}
21 | :closure-snapshot {:dependencies [[com.google.javascript/closure-compiler-unshaded "1.0-SNAPSHOT"]]}}
22 | :aliases {"test-all" ["with-profile" "test,1.5:test,1.6" "test"]
23 | "check-all" ["with-profile" "1.5:1.6" "check"]}
24 | :min-lein-version "2.0.0"
25 | :repositories {"sonatype-snapshot" {:url "https://oss.sonatype.org/content/repositories/snapshots"}})
26 |
--------------------------------------------------------------------------------
/src/test/clojure/cljs/compiler/glib_module_test.clj:
--------------------------------------------------------------------------------
1 | (ns cljs.compiler.glib-module-test
2 | (:require [cljs.compiler-tests :as comp-tests]
3 | [cljs.env :as env]
4 | [clojure.test :as test :refer [deftest is testing]]))
5 |
6 | (deftest test-glib-module-compile
7 | (testing "glib modules compiled to Closure Compile expectations"
8 | (let [src (env/with-compiler-env (env/default-compiler-env )
9 | (comp-tests/compile-form-seq
10 | '[(ns test.foo
11 | (:import [goog.module ModuleLoader]))
12 | (def module-loader (ModuleLoader.))]))]
13 | (is (re-find #"goog\.require\('goog\.module\.ModuleLoader'\)" src))
14 | (is (re-find #"test\.foo\.goog\$module\$goog\$module\$ModuleLoader = goog\.module\.get\('goog.module.ModuleLoader'\)" src))
15 | (is (re-find #"test\.foo\.module_loader = \(new test\.foo\.goog\$module\$goog\$module\$ModuleLoader\(\)\)" src)))))
16 |
17 | (deftest cljs-3330-global-goog-object&array
18 | (testing "migration path for goog.module impact on goog.object & goog.array"
19 | (let [src (env/with-compiler-env
20 | (env/default-compiler-env {:global-goog-object&array true})
21 | (comp-tests/compile-form-seq
22 | '[(ns test.foo
23 | (:require [goog.object :as gobj]
24 | [goog.array :as garray]))
25 | (def module-loader (ModuleLoader.))]))]
26 | (is (re-find #"goog\.require\('goog\.object\'\)" src))
27 | (is (re-find #"goog\.require\('goog\.array\'\)" src)))))
28 |
29 | (comment
30 |
31 | (test/run-tests)
32 |
33 | )
34 |
--------------------------------------------------------------------------------
/samples/twitterbuzz/README.md:
--------------------------------------------------------------------------------
1 | *NOTE: this sample is now out of date. Please refer to the Quick Start*
2 |
3 | # ClojureScript "TwitterBuzz" Demo
4 |
5 | ## One-time Setup
6 |
7 | See https://github.com/clojure/clojurescript/wiki/Quick-Start
8 |
9 | ## Run in Development Mode
10 |
11 | Compile the demo:
12 |
13 | cljsc src > twitterbuzz.js
14 |
15 | After running the above command, open index.html.
16 |
17 | ## Compile in Development Mode with the REPL (Faster)
18 |
19 | * Run `script/repl`
20 | * To run it from Emacs, `C-x d` and nav to the `clojurescript` directory
21 | * `M-x set-variable inferior-lisp-program`
22 | * Set to `"script/repl"`
23 | * `M-x run-lisp`
24 |
25 | * Once the REPL is running, evaluate:
26 |
27 | (use 'cljs.closure)
28 | (def opts {:output-to "samples/twitterbuzz/twitterbuzz.js" :output-dir "samples/twitterbuzz/out"})
29 |
30 | (build "samples/twitterbuzz/src" opts)
31 |
32 | The reason we set the `:output-dir` is because the `index.html` script tag is specifically pointing to that directory.
33 |
34 | * See `cljs.closure` source for more compilation examples.
35 |
36 | ## Compile in Advanced Mode
37 |
38 | `cljsc` can be run with a Clojure map of compiler options. To compile using `cljsc` and Closure Compiler's "advanced" optimization setting:
39 |
40 | cljsc src '{:optimizations :advanced}' > twitterbuzz.js
41 |
42 | Because advanced mode results in only one `.js` file, `twitterbuzz.js`, only one `