YourKit has given an open source license for their profiler, greatly simplifying the profiling of ClojureScript performance.
YourKit supports open source projects with its full-featured Java Profiler.
YourKit, LLC is the creator of YourKit Java Profiler
and YourKit .NET Profiler,
innovative and intelligent tools for profiling Java and .NET applications.
## License ##
Copyright (c) Rich Hickey. All rights reserved. The use and
distribution terms for this software are covered by the Eclipse
Public License 1.0 (https://opensource.org/license/epl-1-0/)
which can be found in the file epl-v10.html at the root of this
distribution. By using this software in any fashion, you are
agreeing to be bound by the terms of this license. You must
not remove this notice, or any other, from this software.
================================================
FILE: appveyor.yml
================================================
image: Visual Studio 2017
environment:
nodejs_version: "6"
platform:
- x64
configuration:
- Release
matrix:
allow_failures:
- platform: x64
configuration: Release
cache:
- '%UserProfile%\.m2'
install:
# these need to have a line in between because of Windows line endings
- ps: >-
New-Item c:\scripts -type directory
$env:Path += ";C:\scripts"
Invoke-WebRequest -Uri https://raw.githubusercontent.com/technomancy/leiningen/stable/bin/lein.bat -OutFile "C:\scripts\lein.bat"
lein self-install
lein version
- ps: Install-Product node $env:nodejs_version x64
- ps: wget 'http://ftp.mozilla.org/pub/firefox/nightly/latest-mozilla-central/jsshell-win64.zip' -OutFile "$pwd\jsshell.zip"
- ps: 7z x "-o$pwd\jsshell" jsshell.zip -r
- ps: wget 'https://aka.ms/chakracore/cc_windows_all_1_8_1' -OutFile "$pwd\chakra-core.zip"
- ps: 7z x "-o$pwd\chakra-core" chakra-core.zip -r
- ps: .\script\bootstrap.ps1
- ps: "[Console]::OutputEncoding = [Text.UTF8Encoding]::UTF8"
- ps: $env:SPIDERMONKEY_HOME = "$pwd/jsshell"
- ps: $SPIDERMONKEY_HOME = "$pwd/jsshell"
- ps: $env:CHAKRACORE_HOME = "$pwd/chakra-core/x64_release"
- ps: $CHAKRACORE_HOME = "$pwd/chakra-core/x64_release"
test_script:
- cmd: lein test
- cmd: powershell -noninteractive -noprofile -command .\script\test.ps1 > test-out.txt
- cmd: type test-out.txt
# Since tests are currently only run in 2 JavaScript environments, look for exactly 2 counts of "0 failures, 0 errors."
- cmd: powershell -noninteractive -noprofile -command if (-not ((sls -Pattern '0 failures, 0 errors.' -SimpleMatch test-out.txt).count -eq 2)) { exit 1 }
# Don't actually build (MSBuild).
build: off
================================================
FILE: ast-ref/ast-ref.edn
================================================
{:all-keys
[[:op "The node op"]
[:form "The ClojureScript form from which the node originated"]
[:env "The environment map"]
[:context "Either :expr, :return or :statement."]
^:optional
[:children "A vector of keywords, representing the children nodes of this node, in order of evaluation"]
; ^:optional
; [:raw-forms "If this node's :form has been macroexpanded, a sequence of all the intermediate forms from the original form to the macroexpanded form"]
;^:optional
;[:top-level "`true` if this is the root node"]
[:tag "The tag this expression is required to have"]
; [:o-tag "The tag of this expression, based on the node's children"]
; ^:optional
; [:ignore-tag "`true` if this node returns a statement rather than an expression"]
; ^:optional
; [:loops "A set of the loop-ids that might cause this node to recur"]
]
:node-keys
[{:op :binding
:doc "Node for a binding symbol"
:keys [[:form "The binding symbol"]
[:name "The binding symbol"]
[:local "One of :arg, :catch, :fn, :let, :letfn, :loop or :field"]
^:optional
[:variadic? "When :local is :arg, a boolean indicating whether this parameter binds to a variable number of arguments"]
^:optional ^:children
[:init "When :local is :let, :letfn or :loop, an AST node representing the bound value"]
^:optional ;^:children
[:shadow "When this binding shadows another local binding, an AST node representing the shadowed local"]
]}
{:op :case
:doc "Node for a case* special-form expression"
:keys [[:form "`(case* expr shift maks default case-map switch-type test-type skip-check?)`"]
^:children
[:test "The AST node for the expression to test against"]
^:children
[:nodes "A vector of :case-node AST nodes representing the test/then clauses of the case* expression"]
^:children
[:default "An AST node representing the default value of the case expression"]
]}
{:op :case-node
:doc "Grouping node for tests/then expressions in a case* expression"
:keys [^:children
[:tests "A vector of :case-test AST nodes representing the test values"]
^:children
[:then "A :case-then AST node representing the value the case expression will evaluate to when one of the :tests expressions matches the :case :test value"]]}
{:op :case-test
:doc "Node for a test value in a case* expression"
:keys [^:children
[:test "A :const AST node representing the test value"]
#_[:hash]]}
{:op :case-then
:doc "Node for a then expression in a case* expression"
:keys [^:children
[:then "An AST node representing the expression the case will evaluate to when the :test expression matches this node's corresponding :case-test value"]
#_[:hash]]}
{:op :const
:doc "Node for a constant literal or a quoted collection literal"
:keys [[:form "A constant literal or a quoted collection literal"]
[:literal? "`true`"]
[:type "one of :nil, :bool, :keyword, :symbol, :string, :number, :type, :record, :map, :vector, :set, :seq, :char, :regex, :class, :var, or :unknown"]
[:val "The value of the constant node"]
;^:optional ^:children
;; FIXME
;[:meta "An AST node representing the metadata of the constant value, if present. The node will be either a :map node or a :const node with :type :map"]
;
;^:optional
;[:id "A numeric id for the constant value, will be the same for every instance of this constant inside the same compilation unit, not present if :type is :nil or :bool"]
]}
{:op :def
:doc "Node for a def special-form expression"
:keys [[:form "`(def name docstring? init?)`"]
[:name "The var symbol to define in the current namespace"]
;[:var "The Var object created (or found, if it already existed) named by the symbol :name in the current namespace"]
;^:optional ^:children
;[:meta "An AST node representing the metadata attached to :name, if present. The node will be either a :map node or a :const node with :type :map"]
^:optional ^:children
[:init "An AST node representing the initial value of the var"]
^:children
[:the-var "A :the-var AST node representing the return of this :def."]
;^:optional
;[:doc "The docstring for this var"]
]}
{:op :defrecord
:doc "Node for a defrecord* special-form expression"
:keys [[:form "`(deftype* name class.name [arg*] :implements [interface*] method*)`"]
;[:interfaces "A set of the interfaces implemented by the type"]
[:t "The symbol name of the defrecord."]
^:children
[:body "An AST node containing method implementations for this record."]
;^:children
;[:fields "A vector of :binding AST nodes with :local :field representing the deftype fields"]
]}
{:op :deftype
:doc "Node for a deftype* special-form expression"
:keys [[:form "`(deftype* name class.name [arg*] :implements [interface*] method*)`"]
;[:interfaces "A set of the interfaces implemented by the type"]
[:t "The symbol name of the deftype"]
;[:class-name "A class for the deftype, should *never* be instantiated or used on instance? checks as this will not be the same class the deftype will evaluate to after compilation"]
^:children
[:body "An AST node containing method implemented for this type."]
;^:children
;[:fields "A vector of :binding AST nodes with :local :field representing the deftype fields"]
]}
{:op :do
:doc "Node for a do special-form expression or for another special-form's body"
:keys [[:form "`(do statement* ret)`"]
^:children
[:statements "A vector of AST nodes representing all but the last expression in the do body"]
^:children
[:ret "An AST node representing the last expression in the do body (the block's return value)"]
^:optional
[:body? "`true` if this node is a synthetic body"]]}
{:op :fn
:doc "Node for a fn* special-form expression"
:keys [[:form "`(fn* name? [arg*] body*)` or `(fn* name? method*)`"]
[:variadic? "`true` if this function contains a variadic arity method"]
[:max-fixed-arity "The number of arguments taken by the fixed-arity method taking the most arguments"]
^:optional ^:children
[:local "A :binding AST node with :local :fn representing the function's local name, if one is supplied"]
^:children
[:methods "A vector of :fn-method AST nodes representing the fn method arities"]
]}
{:op :fn-method
:doc "Node for an arity method in a fn* expression"
:keys [[:form "`([arg*] body*)`"]
[:variadic? "`true` if this fn-method takes a variable number of arguments"]
^:children
[:params "A vector of :binding AST nodes with :local :arg representing this fn-method args"]
[:fixed-arity "The number of non-variadic args this fn-method takes"]
^:children
[:body "Synthetic :do node (with :body? `true`) representing the body of this fn-method"]]}
{:op :host-call
:doc "Node for a host interop call"
:keys [[:form "`(.method target arg*)`"]
[:method "Symbol naming the method to call"]
^:children
[:target "An AST node representing the target object"]
^:children
[:args "A vector of AST nodes representing the args passed to the method call"]]}
{:op :host-field
:doc "Node for a host interop field access"
:keys [[:form "`(.-field target)`"]
[:field "Symbol naming the field to access"]
^:children
[:target "An AST node representing the target object"]]}
{:op :if
:doc "Node for an if special-form expression"
:keys [[:form "`(if test then else?)`"]
^:children
[:test "An AST node representing the test expression"]
^:children
[:then "An AST node representing the expression's return value if :test evaluated to a truthy value"]
^:children
[:else "An AST node representing the expression's return value if :test evaluated to a falsey value, if not supplied it will default to a :const node representing nil"]]}
{:op :invoke
:doc "Node for an invoke expression"
:keys [[:form "`(f arg*)`"]
^:children
[:fn "An AST node representing the function to invoke"]
^:children
[:args "A vector of AST nodes representing the args to the function"]
;FIXME
;^:optional
;[:meta "Map of metadata attached to the invoke :form"]
]}
{:op :js
:doc "Node for a js* special-form expression"
:keys [[:form "`(js* js-string arg*)`"]
[:segs "A vector of js strings that delimit the compiled args"]
^:children
[:args "A vector of AST nodes representing the cljs expressions that will be interposed with the strings in segs"]]}
{:op :js-array
:doc "Node for a js array literal"
:keys [[:form "`#js [item*]`"]
^:children
[:items "A vector of AST nodes representing the items of the js array"]]}
{:op :js-object
:doc "Node for a js object literal"
:keys [[:form "`#js {[key value]*}`"]
[:keys "A vector of values representing the keys of the js object"]
^:children
[:vals "A vector of AST nodes representing the vals of the js object"]]}
{:op :js-var
:doc "Node for a js-var symbol"
:keys [[:form "A symbol naming the js-var in the form: `js/foo`, `js-ns/foo` or `js-var`"]
[:ns "The namespace symbol for this js-var."]
[:name "The fully qualified symbol naming this js-var."]
]}
{:op :let
:doc "Node for a let* special-form expression"
:keys [[:form "`(let* [binding*] body*)`"]
^:children
[:bindings "A vector of :binding AST nodes with :local :let"]
^:children
[:body "Synthetic :do node (with :body? `true`) representing the body of the let expression"]]}
{:op :letfn
:doc "Node for a letfn* special-form expression"
:keys [[:form "`(letfn* [binding*] body*)`"]
^:children
[:bindings "A vector of :binding AST nodes with :local :letfn"]
^:children
[:body "Synthetic :do node (with :body? `true`) representing the body of the letfn expression"]]}
{:op :local
:doc "Node for a local symbol"
:keys [[:form "The local symbol"]
[:name "The uniquified local symbol"]
[:local "One of :arg, :catch, :fn, :let, :letfn, :loop, :field or :this"]
]}
{:op :loop
:doc "Node a loop* special-form expression"
:keys [[:form "`(loop* [binding*] body*)`"]
^:children
[:bindings "A vector of :binding AST nodes with :local :loop"]
^:children
[:body "Synthetic :do node (with :body? `true`) representing the body of the loop expression"]]}
{:op :map
:doc "Node for a map literal with attached metadata and/or non literal elements"
:keys [[:form "`{[key val]*}`"]
^:children
[:keys "A vector of AST nodes representing the keys of the map"]
^:children
[:vals "A vector of AST nodes representing the vals of the map"]]}
{:op :new
:doc "Node for a new special-form expression"
:keys [[:form "`(new Class arg*)`"]
^:children
[:class "A :const AST node with :type :class representing the Class to instantiate"]
^:children
[:args "A vector of AST nodes representing the arguments passed to the Class constructor"]
]}
{:op :no-op
:doc "Node for a no-op"
:keys [
]}
{:op :ns
:doc "Node for a clojure.core/ns form."
:keys [
]}
{:op :ns*
:doc "Node for a special file-loading form."
:keys [
]}
{:op :quote
:doc "Node for a quote special-form expression"
:keys [[:form "`(quote expr)`"]
^:children
[:expr "A :const AST node representing the quoted value"]
[:literal? "`true`"]]}
{:op :recur
:doc "Node for a recur special-form expression"
:keys [[:form "`(recur expr*)`"]
^:children
[:exprs "A vector of AST nodes representing the new bound values for the loop binding on the next loop iteration"]]}
{:op :set
:doc "Node for a set literal with attached metadata and/or non literal elements"
:keys [[:form "`#{item*}`"]
^:children
[:items "A vector of AST nodes representing the items of the set"]]}
{:op :set!
:doc "Node for a set! special-form expression"
:keys [[:form "`(set! target val)`"]
^:children
[:target "An AST node representing the target of the set! expression, must be :assignable?"]
^:children
[:val "An AST node representing the new value for the target"]]}
{:op :the-var
:doc "Node for a var special-form expression"
:keys [[:form "`(var var-name)`"]
^:children
[:var "A :var AST node that this expression refers to"]
^:children
[:sym "An AST node for the quoted fully qualified name of this var."]
^:children
[:meta "A :map AST node of this var's metadata."]
]}
{:op :throw
:doc "Node for a throw special-form statement"
:keys [[:form "`(throw exception)`"]
^:children
[:exception "An AST node representing the exception to throw"]]}
{:op :try
:doc "Node for a try special-form expression"
:keys [[:form "`(try body* catch* finally?)`"]
^:children
[:body "Synthetic :do AST node (with :body? `true`) representing the body of this try expression"]
^:optional
[:name "A binding in scope in :catch. (symbol)"]
^:optional ^:children
[:catch "An AST node representing an unconditional JavaScript catch."]
^:optional ^:children
[:finally "Synthetic :do AST node (with :body? `true`) representing the final clause of this try expression"]]}
{:op :var
:doc "Node for a var symbol"
:keys [[:form "A symbol naming the var"]
[:ns "The namespace symbol this var is defined in."]
[:name "The fully qualified symbol naming this var."]
]}
{:op :vector
:doc "Node for a vector literal with attached metadata and/or non literal elements"
:keys [[:form "`[item*]`"]
^:children
[:items "A vector of AST nodes representing the items of the vector"]]}
{:op :with-meta
:doc "Node for a non quoted collection literal or fn/reify expression with attached metadata"
:keys [[:form "Non quoted collection literal or fn/reify expression with attached metadata"]
^:children
[:meta "An AST node representing the metadata of expression. The node will be either a :map node or a :const node with :type :map"]
^:children
[:expr "The expression this metadata is attached to, :op is one of :vector, :map, :set, :fn or :reify"]]}]}
================================================
FILE: ast-ref/buildref.sh
================================================
#!/bin/sh
java -cp .:`lein cp` clojure.main <$1")
(replace #":([a-zA-Z\?!\-]*)" ":$1")))
(defn build-children [children]
(if (some #(:optional (meta %)) children)
(let [[c & rest] children]
(let [k (build-children rest)
kc (mapv (fn [x] (cons c x)) k)]
(if (:optional (meta c))
(into k kc)
kc)))
(if (seq children)
[children]
[[]])))
(defn children [keys]
(when-let [children (seq (filter #(:children (meta %)) keys))]
(mapv #(mapv first %) (build-children children))))
(def nodes
(apply str (for [{:keys [op doc keys]} (:node-keys tej-ref) :let [op (name op)]]
(str "" "#" op "
" "" doc "
" "- "
"
- :op
-
:" op ""
(apply str (for [[k d :as f] keys]
(str " - " k " " "
- " (if (:optional (meta f)) "optional ") (fix d) " "))) (if-let [c (children keys)] (str "
- :children
- "
(join ", " (mapv (fn [c] (str "
" c "")) c)) " "))
"
- "
(apply str (for [[k d :as f] (:all-keys tej-ref)]
(str "
- " k " " "
- " (if (:optional (meta f)) "optional ") (fix d) " "))) "
Eclipse Public License - v 1.0
THE ACCOMPANYING PROGRAM IS PROVIDED UNDER THE TERMS OF THIS ECLIPSE PUBLIC LICENSE ("AGREEMENT"). ANY USE, REPRODUCTION OR DISTRIBUTION OF THE PROGRAM CONSTITUTES RECIPIENT'S ACCEPTANCE OF THIS AGREEMENT.
1. DEFINITIONS
"Contribution" means:
a) in the case of the initial Contributor, the initial code and documentation distributed under this Agreement, and
b) in the case of each subsequent Contributor:
i) changes to the Program, and
ii) additions to the Program;
where such changes and/or additions to the Program originate from and are distributed by that particular Contributor. A Contribution 'originates' from a Contributor if it was added to the Program by such Contributor itself or anyone acting on such Contributor's behalf. Contributions do not include additions to the Program which: (i) are separate modules of software distributed in conjunction with the Program under their own license agreement, and (ii) are not derivative works of the Program.
"Contributor" means any person or entity that distributes the Program.
"Licensed Patents" mean patent claims licensable by a Contributor which are necessarily infringed by the use or sale of its Contribution alone or when combined with the Program.
"Program" means the Contributions distributed in accordance with this Agreement.
"Recipient" means anyone who receives the Program under this Agreement, including all Contributors.
2. GRANT OF RIGHTS
a) Subject to the terms of this Agreement, each Contributor hereby grants Recipient a non-exclusive, worldwide, royalty-free copyright license to reproduce, prepare derivative works of, publicly display, publicly perform, distribute and sublicense the Contribution of such Contributor, if any, and such derivative works, in source code and object code form.
b) Subject to the terms of this Agreement, each Contributor hereby grants Recipient a non-exclusive, worldwide, royalty-free patent license under Licensed Patents to make, use, sell, offer to sell, import and otherwise transfer the Contribution of such Contributor, if any, in source code and object code form. This patent license shall apply to the combination of the Contribution and the Program if, at the time the Contribution is added by the Contributor, such addition of the Contribution causes such combination to be covered by the Licensed Patents. The patent license shall not apply to any other combinations which include the Contribution. No hardware per se is licensed hereunder.
c) Recipient understands that although each Contributor grants the licenses to its Contributions set forth herein, no assurances are provided by any Contributor that the Program does not infringe the patent or other intellectual property rights of any other entity. Each Contributor disclaims any liability to Recipient for claims brought by any other entity based on infringement of intellectual property rights or otherwise. As a condition to exercising the rights and licenses granted hereunder, each Recipient hereby assumes sole responsibility to secure any other intellectual property rights needed, if any. For example, if a third party patent license is required to allow Recipient to distribute the Program, it is Recipient's responsibility to acquire that license before distributing the Program.
d) Each Contributor represents that to its knowledge it has sufficient copyright rights in its Contribution, if any, to grant the copyright license set forth in this Agreement.
3. REQUIREMENTS
A Contributor may choose to distribute the Program in object code form under its own license agreement, provided that:
a) it complies with the terms and conditions of this Agreement; and
b) its license agreement:
i) effectively disclaims on behalf of all Contributors all warranties and conditions, express and implied, including warranties or conditions of title and non-infringement, and implied warranties or conditions of merchantability and fitness for a particular purpose;
ii) effectively excludes on behalf of all Contributors all liability for damages, including direct, indirect, special, incidental and consequential damages, such as lost profits;
iii) states that any provisions which differ from this Agreement are offered by that Contributor alone and not by any other party; and
iv) states that source code for the Program is available from such Contributor, and informs licensees how to obtain it in a reasonable manner on or through a medium customarily used for software exchange.
When the Program is made available in source code form:
a) it must be made available under this Agreement; and
b) a copy of this Agreement must be included with each copy of the Program.
Contributors may not remove or alter any copyright notices contained within the Program.
Each Contributor must identify itself as the originator of its Contribution, if any, in a manner that reasonably allows subsequent Recipients to identify the originator of the Contribution.
4. COMMERCIAL DISTRIBUTION
Commercial distributors of software may accept certain responsibilities with respect to end users, business partners and the like. While this license is intended to facilitate the commercial use of the Program, the Contributor who includes the Program in a commercial product offering should do so in a manner which does not create potential liability for other Contributors. Therefore, if a Contributor includes the Program in a commercial product offering, such Contributor ("Commercial Contributor") hereby agrees to defend and indemnify every other Contributor ("Indemnified Contributor") against any losses, damages and costs (collectively "Losses") arising from claims, lawsuits and other legal actions brought by a third party against the Indemnified Contributor to the extent caused by the acts or omissions of such Commercial Contributor in connection with its distribution of the Program in a commercial product offering. The obligations in this section do not apply to any claims or Losses relating to any actual or alleged intellectual property infringement. In order to qualify, an Indemnified Contributor must: a) promptly notify the Commercial Contributor in writing of such claim, and b) allow the Commercial Contributor to control, and cooperate with the Commercial Contributor in, the defense and any related settlement negotiations. The Indemnified Contributor may participate in any such claim at its own expense.
For example, a Contributor might include the Program in a commercial product offering, Product X. That Contributor is then a Commercial Contributor. If that Commercial Contributor then makes performance claims, or offers warranties related to Product X, those performance claims and warranties are such Commercial Contributor's responsibility alone. Under this section, the Commercial Contributor would have to defend claims against the other Contributors related to those performance claims and warranties, and if a court requires any other Contributor to pay any damages as a result, the Commercial Contributor must pay those damages.
5. NO WARRANTY
EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. Each Recipient is solely responsible for determining the appropriateness of using and distributing the Program and assumes all risks associated with its exercise of rights under this Agreement , including but not limited to the risks and costs of program errors, compliance with applicable laws, damage to or loss of data, programs or equipment, and unavailability or interruption of operations.
6. DISCLAIMER OF LIABILITY
EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
7. GENERAL
If any provision of this Agreement is invalid or unenforceable under applicable law, it shall not affect the validity or enforceability of the remainder of the terms of this Agreement, and without further action by the parties hereto, such provision shall be reformed to the minimum extent necessary to make such provision valid and enforceable.
If Recipient institutes patent litigation against any entity (including a cross-claim or counterclaim in a lawsuit) alleging that the Program itself (excluding combinations of the Program with other software or hardware) infringes such Recipient's patent(s), then such Recipient's rights granted under Section 2(b) shall terminate as of the date such litigation is filed.
All Recipient's rights under this Agreement shall terminate if it fails to comply with any of the material terms or conditions of this Agreement and does not cure such failure in a reasonable period of time after becoming aware of such noncompliance. If all Recipient's rights under this Agreement terminate, Recipient agrees to cease use and distribution of the Program as soon as reasonably practicable. However, Recipient's obligations under this Agreement and any licenses granted by Recipient relating to the Program shall continue and survive.
Everyone is permitted to copy and distribute copies of this Agreement, but in order to avoid inconsistency the Agreement is copyrighted and may only be modified in the following manner. The Agreement Steward reserves the right to publish new versions (including revisions) of this Agreement from time to time. No one other than the Agreement Steward has the right to modify this Agreement. The Eclipse Foundation is the initial Agreement Steward. The Eclipse Foundation may assign the responsibility to serve as the Agreement Steward to a suitable separate entity. Each new version of the Agreement will be given a distinguishing version number. The Program (including Contributions) may always be distributed subject to the version of the Agreement under which it was received. In addition, after a new version of the Agreement is published, Contributor may elect to distribute the Program (including its Contributions) under the new version. Except as expressly stated in Sections 2(a) and 2(b) above, Recipient receives no rights or licenses to the intellectual property of any Contributor under this Agreement, whether expressly, by implication, estoppel or otherwise. All rights in the Program not expressly granted under this Agreement are reserved.
This Agreement is governed by the laws of the State of New York and the intellectual property laws of the United States of America. No party to this Agreement will bring a legal action under this Agreement more than one year after the cause of action arose. Each party waives its rights to a jury trial in any resulting litigation.
================================================ FILE: pom.template.xml ================================================Hello ClojureScript!
================================================ FILE: samples/hello/hello.html ================================================Hello ClojureScript!
================================================ FILE: samples/hello/src/hello/core.cljs ================================================ (ns hello.core (:require [hello.foo.bar :as bar] [cljs.reader :as reader])) (defn ^{:export greet} greet [n] (str "Hello " n)) (defn ^:export sum [xs] (bar/sum xs)) (defn ^:export let-works? [day month year] (let [hour (first day) minutes (first hour) seconds (last hour)] (.log js/console "Date: " year month day) (str year month day hour minutes seconds))) (defn bailey [proton neutron electron & comedies] (apply + proton neutron electron) (map identity comedies)) (defn videotape [& rainbows] (map :params rainbows)) ================================================ FILE: samples/hello/src/hello/foo/bar.cljs ================================================ (ns hello.foo.bar) (defn sum [xs] (reduce + 0 xs)) ================================================ FILE: samples/hello-js/.gitignore ================================================ out/ hello*.js ================================================ FILE: samples/hello-js/README.md ================================================ *NOTE: this sample is now out of date. Please refer to the Quick Start* Simple ClojureScript Project Example Using an External JavaScript Library One-time Setup ============== - Create a CLOJURESCRIPT_HOME environment variable which points to the ClojureScript root directory. - If you have not already done so, execute $CLOJURESCRIPT_HOME/script/bootstrap - Add $CLOJURESCRIPT_HOME/bin to your PATH. Simple external JavaScript file =============================== Run in Development Mode ----------------------- Development mode allows for each file to be loaded in a separate script tag so that errors can be easily tracked to the offending file. cljsc src > hello-js.js After running the above command, open hello-js-dev.html. Notice that each required JavaScript file has been loaded in its most readable form. Run Optimized JavaScript ------------------------ Once an application is ready for production, a single optimized file can be produced. cljsc src {:optimizations :advanced} > hello-js.js After running the above command, open hello-js.html to view the result. Using an externed JavaScript file ================================= To see how external calls are optimized away, execute the following: cljsc src '{:optimizations :advanced :output-to "hello-extern.js"}' After running the above command, open hello-extern.html to view the result. You should see nothing and possibly a JavaScript error. The solution is to compile the ClojureScript source with a referred externs file as follows: cljsc src '{:optimizations :advanced :output-to "hello-extern.js" :externs ["externs.js"]}' Again after running the above command, open hello-extern.html to view the result. You should see an alert box. ================================================ FILE: samples/hello-js/externed-lib.js ================================================ external = {}; external.lib = { send_alert : function (msg) { alert("Sending Alert via " + msg + "!"); } }; ================================================ FILE: samples/hello-js/externs.js ================================================ var external = {}; external.lib = {}; external.lib.send_alert = function() {}; ================================================ FILE: samples/hello-js/hello-extern.html ================================================Hello Externed JavaScript Library!
================================================ FILE: samples/hello-js/hello-js-dev.html ================================================Hello External JavaScript Library!
================================================ FILE: samples/hello-js/hello-js.html ================================================Hello External JavaScript Library!
================================================ FILE: samples/hello-js/my-external-lib.js ================================================ function send_alert(msg) { alert("Sending Alert via " + msg + "!"); }; ================================================ FILE: samples/hello-js/src/hello-js/core.cljs ================================================ (ns hello-js.core) (defn ^:export popup-msg [msg] (js/send_alert msg)) (popup-msg "ClojureScript calling a global function defined in an external JavaScript library") (popup-msg (str "ClojureScript: the time is now " (js/Date.))) ================================================ FILE: samples/hello-js/src/hello-js/extern-example.cljs ================================================ (ns hello.extern-example) (defn ^:export foo [] 42) (external.lib/send_alert "ClojureScript calling a function defined in an externed JavaScript library") ================================================ FILE: samples/nodehello.cljs ================================================ (ns nodehello (:require [cljs.nodejs :as nodejs])) (defn -main [& args] (println (apply str (map [\space "world" "hello"] [2 0 1])))) (nodejs/enable-util-print!) (set! *main-cli-fn* -main) (comment ; Compile this using a command line like: CLOJURESCRIPT_HOME=".../clojurescript/" \ bin/cljsc samples/nodehello.cljs {:target :nodejs} \ > out/nodehello.js ; Then run using: nodejs out/nodehello.js ) ================================================ FILE: samples/nodels.cljs ================================================ ; This one doesn't yet work with :optimizations :advanced (ns nodels (:require [cljs.nodejs :as nodejs])) (def fs (nodejs/require "fs")) (def path (nodejs/require "path")) (defn file-seq [dir] (tree-seq (fn [f] (.isDirectory (.statSync fs f) ())) (fn [d] (map #(.join path d %) (.readdirSync fs d))) dir)) (defn -main [& paths] (dorun (map println (mapcat file-seq paths)))) (nodejs/enable-util-print!) (set! *main-cli-fn* -main) ================================================ FILE: samples/repl/.gitignore ================================================ out/ main.js ================================================ FILE: samples/repl/README.md ================================================ *NOTE: this sample is now out of date. Please refer to the Quick Start* # ClojureScript REPL Examples The ClojureScript REPL has been updated to work with multiple JavaScript evaluation environments. This readme and the example code in this project show how to use the new REPL. There are now two implemented environments: Rhino and the browser. ## Using the new REPL There are currently four steps in starting a ClojureScript REPL. 1. require cljs.repl 2. require the namespace which implements the desired evaluation environment 3. create a new evaluation environment 4. start the REPL with the created environment ## Evaluating in the Browser A browser-connected REPL works in much the same way as a normal REPL: forms are read from the console, evaluated and return values are printed. A major and useful difference from normal REPL usage is that all side-effects occur in the browser. You can show alerts, manipulate the dom and interact with running applications. The main benefit of using the browser as an evaluation environment is that the REPL is no longer limited to non-browser code. You get all the benefits of a REPL with all of your code. The example below shows how to start a browser-connected REPL with an empty project. The same technique can be used to integrate a REPL into an existing project. In the future there may be an easier way to start a browser-connected REPL without a project. ### Building This sample project contains an HTML file and single ClojureScript file which establishes the connection to the REPL from the browser. These are currently the minimum requirements for starting a browser-connected REPL. To build the project, launch a Clojure REPL from this folder ```bash cd samples/repl ../../script/repl ``` and evaluate the following forms: ```clj (require '[cljs.closure :as cljsc]) (def opts {:output-to "main.js" :output-dir "out"}) (cljsc/build "src" opts) ``` ### Starting the REPL and connecting to the browser Start the REPL using the browser as the evaluator (do it in "samples/repl"): ```clj (require '[cljs.repl :as repl]) (require '[cljs.repl.browser :as browser]) (def env (browser/repl-env)) (repl/repl env) ``` Open http://localhost:9000/ in a browser. When this page is loaded it will connect to the REPL. Alternatively you can serve index.html from your own local webserver. ### Try it out ```clj ;; Evaluate some basic forms. (+ 1 1) {:a :b} "hello" (reduce + [1 2 3 4 5]) (js/alert "Hello World!") ;; Load a file, and use it. (load-file "clojure/string.cljs") (clojure.string/reverse "Hello") ;; Define functions and call them. (defn sum [coll] (reduce + coll)) (sum [2 2 2 2]) ;; Create dom elements. (ns dom.testing (:require [clojure.browser.dom :as dom])) (dom/append (dom/get-element "content") (dom/element "Hello World!")) ``` ================================================ FILE: samples/repl/index.html ================================================
================================================
FILE: samples/repl/repl.clj
================================================
(require '[cljs.closure :as cljsc])
(require '[cljs.repl :as repl])
(require '[cljs.repl.browser :as brepl])
(cljsc/build "src"
{:output-to "main.js"
:verbose true})
(repl/repl (brepl/repl-env)
:repl-verbose true)
================================================
FILE: samples/repl/src/repl/foo.cljs
================================================
(ns repl.foo)
(defn bar [a b]
(+ a b))
================================================
FILE: samples/repl/src/repl/test.cljs
================================================
;; Copyright (c) Rich Hickey. All rights reserved.
;; The use and distribution terms for this software are covered by the
;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
;; which can be found in the file epl-v10.html at the root of this distribution.
;; By using this software in any fashion, you are agreeing to be bound by
;; the terms of this license.
;; You must not remove this notice, or any other, from this software.
(ns repl.test
(:require [clojure.browser.repl :as repl]
;[clojure.reflect :as reflect]
))
(defonce conn
(repl/connect "http://localhost:9000/repl"))
(comment
;; Note: If you would like for the compiler to be aware of
;; everything in a project then delete the 'out' directory before
;; calling build. This will force the compiler to compile the whole
;; project.
;; Compile this project to JavaScript
(use 'cljs.closure)
(def opts {:output-to "samples/repl/main.js"
:output-dir "samples/repl/out"})
(build "samples/repl/src" opts)
;; Start REPL
(do (require '[cljs.repl :as repl])
(require '[cljs.repl.browser :as browser])
(def env (browser/repl-env))
(repl/repl env))
;; Open http://localhost:9000/ in a browser. When this page is loaded
;; it will connect to the REPL. Alternatively you can serve index.html
;; from your own local webserver.
;; Evaluate some basic forms
(+ 1 1)
(string-print "hello")
(prn "foo")
(prn {:a :b})
(println "hello")
(doseq [next (range 20)] (println next))
{:a :b}
"hello"
(reduce + [1 2 3 4 5])
(time (reduce + (range 10000)))
(js/alert "Hello World!")
(load-file "clojure/string.cljs")
(clojure.string/reverse "Hello")
(defn sum [coll] (reduce + coll))
(sum [2 2 2 2])
;; Create dom elements.
(ns dom.testing (:require [clojure.browser.dom :as dom]))
(dom/append (dom/get-element "content")
(dom/element "Hello World!"))
;; Load something we haven't used yet
(ns test.crypt
(:require [goog.crypt :as c]))
(c/stringToByteArray "ClojureScript")
(load-namespace 'goog.date.Date)
(goog.date.Date.)
(ns test.color (:require [goog.color :as c]))
(js->clj (c/parse "#000000"))
)
================================================
FILE: samples/string-requires-npm-deps/.gitignore
================================================
out/
================================================
FILE: samples/string-requires-npm-deps/README.md
================================================
# ClojureScript string-based requires demo
Running:
1. At the root of the ClojureScript repo, run `./script/bootstrap`
2. Switch into this directory: `cd samples/string-requires-npm-deps`
3. Build the project:
``` shell
$ java -cp `ls ../../lib/*.jar | paste -sd ":" -`:../../src/main/cljs:../../src/main/clojure:src clojure.main build.clj
```
4. run the generated JavaScript with `node out/main.js`
================================================
FILE: samples/string-requires-npm-deps/build.clj
================================================
(require '[cljs.build.api :as b])
(b/build "src"
{:output-dir "out"
:output-to "out/main.js"
:optimizations :none
:verbose true
:target :nodejs
:compiler-stats true
:main 'foo.core
:npm-deps {:react "15.6.1"
:react-dom "15.6.1"}
:closure-warnings {:non-standard-jsdoc :off}})
================================================
FILE: samples/string-requires-npm-deps/src/foo/core.cljs
================================================
(ns foo.core
(:require [react :refer [createElement]]
["react-dom/server" :as rds :refer [renderToString]]
"create-react-class"))
(enable-console-print!)
(println "resolves single exports" create-react-class)
(println (renderToString (createElement "div" nil "Hello World!")))
================================================
FILE: samples/twitterbuzz/.gitignore
================================================
out/
twitterbuzz.js
================================================
FILE: samples/twitterbuzz/README.md
================================================
*NOTE: this sample is now out of date. Please refer to the Quick Start*
# ClojureScript "TwitterBuzz" Demo
## One-time Setup
See https://github.com/clojure/clojurescript/wiki/Quick-Start
## Run in Development Mode
Compile the demo:
cljsc src > twitterbuzz.js
After running the above command, open index.html.
## Compile in Development Mode with the REPL (Faster)
* Run `script/repl`
* To run it from Emacs, `C-x d` and nav to the `clojurescript` directory
* `M-x set-variable inferior-lisp-program`
* Set to `"script/repl"`
* `M-x run-lisp`
* Once the REPL is running, evaluate:
(use 'cljs.closure)
(def opts {:output-to "samples/twitterbuzz/twitterbuzz.js" :output-dir "samples/twitterbuzz/out"})
(build "samples/twitterbuzz/src" opts)
The reason we set the `:output-dir` is because the `index.html` script tag is specifically pointing to that directory.
* See `cljs.closure` source for more compilation examples.
## Compile in Advanced Mode
`cljsc` can be run with a Clojure map of compiler options. To compile using `cljsc` and Closure Compiler's "advanced" optimization setting:
cljsc src '{:optimizations :advanced}' > twitterbuzz.js
Because advanced mode results in only one `.js` file, `twitterbuzz.js`, only one `