├── .gitignore ├── LICENSE ├── README.md ├── project.clj └── src └── cljs_live ├── eval.clj └── eval.cljs /.gitignore: -------------------------------------------------------------------------------- 1 | .idea 2 | target 3 | checkouts 4 | *.log 5 | *.iml 6 | example/resources/public/js/compiled 7 | example/resources/public/styles.css 8 | example/firebase.json 9 | example/node_modules 10 | example/.firebaserc 11 | .planck_cache 12 | .lumo_cache 13 | .lein-repl-history 14 | pom.xml* -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | Mozilla Public License Version 2.0 2 | ================================== 3 | 4 | 1. Definitions 5 | -------------- 6 | 7 | 1.1. "Contributor" 8 | means each individual or legal entity that creates, contributes to 9 | the creation of, or owns Covered Software. 10 | 11 | 1.2. "Contributor Version" 12 | means the combination of the Contributions of others (if any) used 13 | by a Contributor and that particular Contributor's Contribution. 14 | 15 | 1.3. "Contribution" 16 | means Covered Software of a particular Contributor. 17 | 18 | 1.4. "Covered Software" 19 | means Source Code Form to which the initial Contributor has attached 20 | the notice in Exhibit A, the Executable Form of such Source Code 21 | Form, and Modifications of such Source Code Form, in each case 22 | including portions thereof. 23 | 24 | 1.5. "Incompatible With Secondary Licenses" 25 | means 26 | 27 | (a) that the initial Contributor has attached the notice described 28 | in Exhibit B to the Covered Software; or 29 | 30 | (b) that the Covered Software was made available under the terms of 31 | version 1.1 or earlier of the License, but not also under the 32 | terms of a Secondary License. 33 | 34 | 1.6. "Executable Form" 35 | means any form of the work other than Source Code Form. 36 | 37 | 1.7. "Larger Work" 38 | means a work that combines Covered Software with other material, in 39 | a separate file or files, that is not Covered Software. 40 | 41 | 1.8. "License" 42 | means this document. 43 | 44 | 1.9. "Licensable" 45 | means having the right to grant, to the maximum extent possible, 46 | whether at the time of the initial grant or subsequently, any and 47 | all of the rights conveyed by this License. 48 | 49 | 1.10. "Modifications" 50 | means any of the following: 51 | 52 | (a) any file in Source Code Form that results from an addition to, 53 | deletion from, or modification of the contents of Covered 54 | Software; or 55 | 56 | (b) any new file in Source Code Form that contains any Covered 57 | Software. 58 | 59 | 1.11. "Patent Claims" of a Contributor 60 | means any patent claim(s), including without limitation, method, 61 | process, and apparatus claims, in any patent Licensable by such 62 | Contributor that would be infringed, but for the grant of the 63 | License, by the making, using, selling, offering for sale, having 64 | made, import, or transfer of either its Contributions or its 65 | Contributor Version. 66 | 67 | 1.12. "Secondary License" 68 | means either the GNU General Public License, Version 2.0, the GNU 69 | Lesser General Public License, Version 2.1, the GNU Affero General 70 | Public License, Version 3.0, or any later versions of those 71 | licenses. 72 | 73 | 1.13. "Source Code Form" 74 | means the form of the work preferred for making modifications. 75 | 76 | 1.14. "You" (or "Your") 77 | means an individual or a legal entity exercising rights under this 78 | License. For legal entities, "You" includes any entity that 79 | controls, is controlled by, or is under common control with You. For 80 | purposes of this definition, "control" means (a) the power, direct 81 | or indirect, to cause the direction or management of such entity, 82 | whether by contract or otherwise, or (b) ownership of more than 83 | fifty percent (50%) of the outstanding shares or beneficial 84 | ownership of such entity. 85 | 86 | 2. License Grants and Conditions 87 | -------------------------------- 88 | 89 | 2.1. Grants 90 | 91 | Each Contributor hereby grants You a world-wide, royalty-free, 92 | non-exclusive license: 93 | 94 | (a) under intellectual property rights (other than patent or trademark) 95 | Licensable by such Contributor to use, reproduce, make available, 96 | modify, display, perform, distribute, and otherwise exploit its 97 | Contributions, either on an unmodified basis, with Modifications, or 98 | as part of a Larger Work; and 99 | 100 | (b) under Patent Claims of such Contributor to make, use, sell, offer 101 | for sale, have made, import, and otherwise transfer either its 102 | Contributions or its Contributor Version. 103 | 104 | 2.2. Effective Date 105 | 106 | The licenses granted in Section 2.1 with respect to any Contribution 107 | become effective for each Contribution on the date the Contributor first 108 | distributes such Contribution. 109 | 110 | 2.3. Limitations on Grant Scope 111 | 112 | The licenses granted in this Section 2 are the only rights granted under 113 | this License. No additional rights or licenses will be implied from the 114 | distribution or licensing of Covered Software under this License. 115 | Notwithstanding Section 2.1(b) above, no patent license is granted by a 116 | Contributor: 117 | 118 | (a) for any code that a Contributor has removed from Covered Software; 119 | or 120 | 121 | (b) for infringements caused by: (i) Your and any other third party's 122 | modifications of Covered Software, or (ii) the combination of its 123 | Contributions with other software (except as part of its Contributor 124 | Version); or 125 | 126 | (c) under Patent Claims infringed by Covered Software in the absence of 127 | its Contributions. 128 | 129 | This License does not grant any rights in the trademarks, service marks, 130 | or logos of any Contributor (except as may be necessary to comply with 131 | the notice requirements in Section 3.4). 132 | 133 | 2.4. Subsequent Licenses 134 | 135 | No Contributor makes additional grants as a result of Your choice to 136 | distribute the Covered Software under a subsequent version of this 137 | License (see Section 10.2) or under the terms of a Secondary License (if 138 | permitted under the terms of Section 3.3). 139 | 140 | 2.5. Representation 141 | 142 | Each Contributor represents that the Contributor believes its 143 | Contributions are its original creation(s) or it has sufficient rights 144 | to grant the rights to its Contributions conveyed by this License. 145 | 146 | 2.6. Fair Use 147 | 148 | This License is not intended to limit any rights You have under 149 | applicable copyright doctrines of fair use, fair dealing, or other 150 | equivalents. 151 | 152 | 2.7. Conditions 153 | 154 | Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted 155 | in Section 2.1. 156 | 157 | 3. Responsibilities 158 | ------------------- 159 | 160 | 3.1. Distribution of Source Form 161 | 162 | All distribution of Covered Software in Source Code Form, including any 163 | Modifications that You create or to which You contribute, must be under 164 | the terms of this License. You must inform recipients that the Source 165 | Code Form of the Covered Software is governed by the terms of this 166 | License, and how they can obtain a copy of this License. You may not 167 | attempt to alter or restrict the recipients' rights in the Source Code 168 | Form. 169 | 170 | 3.2. Distribution of Executable Form 171 | 172 | If You distribute Covered Software in Executable Form then: 173 | 174 | (a) such Covered Software must also be made available in Source Code 175 | Form, as described in Section 3.1, and You must inform recipients of 176 | the Executable Form how they can obtain a copy of such Source Code 177 | Form by reasonable means in a timely manner, at a charge no more 178 | than the cost of distribution to the recipient; and 179 | 180 | (b) You may distribute such Executable Form under the terms of this 181 | License, or sublicense it under different terms, provided that the 182 | license for the Executable Form does not attempt to limit or alter 183 | the recipients' rights in the Source Code Form under this License. 184 | 185 | 3.3. Distribution of a Larger Work 186 | 187 | You may create and distribute a Larger Work under terms of Your choice, 188 | provided that You also comply with the requirements of this License for 189 | the Covered Software. If the Larger Work is a combination of Covered 190 | Software with a work governed by one or more Secondary Licenses, and the 191 | Covered Software is not Incompatible With Secondary Licenses, this 192 | License permits You to additionally distribute such Covered Software 193 | under the terms of such Secondary License(s), so that the recipient of 194 | the Larger Work may, at their option, further distribute the Covered 195 | Software under the terms of either this License or such Secondary 196 | License(s). 197 | 198 | 3.4. Notices 199 | 200 | You may not remove or alter the substance of any license notices 201 | (including copyright notices, patent notices, disclaimers of warranty, 202 | or limitations of liability) contained within the Source Code Form of 203 | the Covered Software, except that You may alter any license notices to 204 | the extent required to remedy known factual inaccuracies. 205 | 206 | 3.5. Application of Additional Terms 207 | 208 | You may choose to offer, and to charge a fee for, warranty, support, 209 | indemnity or liability obligations to one or more recipients of Covered 210 | Software. However, You may do so only on Your own behalf, and not on 211 | behalf of any Contributor. You must make it absolutely clear that any 212 | such warranty, support, indemnity, or liability obligation is offered by 213 | You alone, and You hereby agree to indemnify every Contributor for any 214 | liability incurred by such Contributor as a result of warranty, support, 215 | indemnity or liability terms You offer. You may include additional 216 | disclaimers of warranty and limitations of liability specific to any 217 | jurisdiction. 218 | 219 | 4. Inability to Comply Due to Statute or Regulation 220 | --------------------------------------------------- 221 | 222 | If it is impossible for You to comply with any of the terms of this 223 | License with respect to some or all of the Covered Software due to 224 | statute, judicial order, or regulation then You must: (a) comply with 225 | the terms of this License to the maximum extent possible; and (b) 226 | describe the limitations and the code they affect. Such description must 227 | be placed in a text file included with all distributions of the Covered 228 | Software under this License. Except to the extent prohibited by statute 229 | or regulation, such description must be sufficiently detailed for a 230 | recipient of ordinary skill to be able to understand it. 231 | 232 | 5. Termination 233 | -------------- 234 | 235 | 5.1. The rights granted under this License will terminate automatically 236 | if You fail to comply with any of its terms. However, if You become 237 | compliant, then the rights granted under this License from a particular 238 | Contributor are reinstated (a) provisionally, unless and until such 239 | Contributor explicitly and finally terminates Your grants, and (b) on an 240 | ongoing basis, if such Contributor fails to notify You of the 241 | non-compliance by some reasonable means prior to 60 days after You have 242 | come back into compliance. Moreover, Your grants from a particular 243 | Contributor are reinstated on an ongoing basis if such Contributor 244 | notifies You of the non-compliance by some reasonable means, this is the 245 | first time You have received notice of non-compliance with this License 246 | from such Contributor, and You become compliant prior to 30 days after 247 | Your receipt of the notice. 248 | 249 | 5.2. If You initiate litigation against any entity by asserting a patent 250 | infringement claim (excluding declaratory judgment actions, 251 | counter-claims, and cross-claims) alleging that a Contributor Version 252 | directly or indirectly infringes any patent, then the rights granted to 253 | You by any and all Contributors for the Covered Software under Section 254 | 2.1 of this License shall terminate. 255 | 256 | 5.3. In the event of termination under Sections 5.1 or 5.2 above, all 257 | end user license agreements (excluding distributors and resellers) which 258 | have been validly granted by You or Your distributors under this License 259 | prior to termination shall survive termination. 260 | 261 | ************************************************************************ 262 | * * 263 | * 6. Disclaimer of Warranty * 264 | * ------------------------- * 265 | * * 266 | * Covered Software is provided under this License on an "as is" * 267 | * basis, without warranty of any kind, either expressed, implied, or * 268 | * statutory, including, without limitation, warranties that the * 269 | * Covered Software is free of defects, merchantable, fit for a * 270 | * particular purpose or non-infringing. The entire risk as to the * 271 | * quality and performance of the Covered Software is with You. * 272 | * Should any Covered Software prove defective in any respect, You * 273 | * (not any Contributor) assume the cost of any necessary servicing, * 274 | * repair, or correction. This disclaimer of warranty constitutes an * 275 | * essential part of this License. No use of any Covered Software is * 276 | * authorized under this License except under this disclaimer. * 277 | * * 278 | ************************************************************************ 279 | 280 | ************************************************************************ 281 | * * 282 | * 7. Limitation of Liability * 283 | * -------------------------- * 284 | * * 285 | * Under no circumstances and under no legal theory, whether tort * 286 | * (including negligence), contract, or otherwise, shall any * 287 | * Contributor, or anyone who distributes Covered Software as * 288 | * permitted above, be liable to You for any direct, indirect, * 289 | * special, incidental, or consequential damages of any character * 290 | * including, without limitation, damages for lost profits, loss of * 291 | * goodwill, work stoppage, computer failure or malfunction, or any * 292 | * and all other commercial damages or losses, even if such party * 293 | * shall have been informed of the possibility of such damages. This * 294 | * limitation of liability shall not apply to liability for death or * 295 | * personal injury resulting from such party's negligence to the * 296 | * extent applicable law prohibits such limitation. Some * 297 | * jurisdictions do not allow the exclusion or limitation of * 298 | * incidental or consequential damages, so this exclusion and * 299 | * limitation may not apply to You. * 300 | * * 301 | ************************************************************************ 302 | 303 | 8. Litigation 304 | ------------- 305 | 306 | Any litigation relating to this License may be brought only in the 307 | courts of a jurisdiction where the defendant maintains its principal 308 | place of business and such litigation shall be governed by laws of that 309 | jurisdiction, without reference to its conflict-of-law provisions. 310 | Nothing in this Section shall prevent a party's ability to bring 311 | cross-claims or counter-claims. 312 | 313 | 9. Miscellaneous 314 | ---------------- 315 | 316 | This License represents the complete agreement concerning the subject 317 | matter hereof. If any provision of this License is held to be 318 | unenforceable, such provision shall be reformed only to the extent 319 | necessary to make it enforceable. Any law or regulation which provides 320 | that the language of a contract shall be construed against the drafter 321 | shall not be used to construe this License against a Contributor. 322 | 323 | 10. Versions of the License 324 | --------------------------- 325 | 326 | 10.1. New Versions 327 | 328 | Mozilla Foundation is the license steward. Except as provided in Section 329 | 10.3, no one other than the license steward has the right to modify or 330 | publish new versions of this License. Each version will be given a 331 | distinguishing version number. 332 | 333 | 10.2. Effect of New Versions 334 | 335 | You may distribute the Covered Software under the terms of the version 336 | of the License under which You originally received the Covered Software, 337 | or under the terms of any subsequent version published by the license 338 | steward. 339 | 340 | 10.3. Modified Versions 341 | 342 | If you create software not governed by this License, and you want to 343 | create a new license for such software, you may create and use a 344 | modified version of this License if you rename the license and remove 345 | any references to the name of the license steward (except to note that 346 | such modified license differs from this License). 347 | 348 | 10.4. Distributing Source Code Form that is Incompatible With Secondary 349 | Licenses 350 | 351 | If You choose to distribute Source Code Form that is Incompatible With 352 | Secondary Licenses under the terms of this version of the License, the 353 | notice described in Exhibit B of this License must be attached. 354 | 355 | Exhibit A - Source Code Form License Notice 356 | ------------------------------------------- 357 | 358 | This Source Code Form is subject to the terms of the Mozilla Public 359 | License, v. 2.0. If a copy of the MPL was not distributed with this 360 | file, You can obtain one at http://mozilla.org/MPL/2.0/. 361 | 362 | If it is not possible or desirable to put the notice in a particular 363 | file, then You may include the notice in a location (such as a LICENSE 364 | file in a relevant directory) where a recipient would be likely to look 365 | for such a notice. 366 | 367 | You may add additional accurate notices of copyright ownership. 368 | 369 | Exhibit B - "Incompatible With Secondary Licenses" Notice 370 | --------------------------------------------------------- 371 | 372 | This Source Code Form is "Incompatible With Secondary Licenses", as 373 | defined by the Mozilla Public License, v. 2.0. 374 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # CLJS-Live 2 | 3 | ## // deprecation notice // 4 | 5 | As of October, 2017, Shadow-CLJS can compile your bootstrap dependencies and help you load them: https://code.thheller.com/blog/shadow-cljs/2017/10/14/bootstrap-support.html 6 | 7 | This means `cljs-live` is no longer necessary! yay 🎉. 8 | 9 | - Example usage of shadow-cljs: https://github.com/mhuebert/shadow-bootstrap-example 10 | 11 | ---- 12 | 13 | **cljs-live** is a small library with some convenience functions for evaluating ClojureScript using the self-hosted compiler. It _previously_ also contained a build script for dependency bundling, but that has been happily superceded by [shadow-cljs](https://github.com/thheller/shadow-cljs/), which recently [added support](https://code.thheller.com/blog/shadow-cljs/2017/10/14/bootstrap-support.html) for compiling and loading dependencies for the self-hosted compiler. 14 | 15 | 16 | 17 | The **cljs-live.eval** namespace contains two main functions: 18 | 19 | * `eval-str` evaluates all of the forms in a given string, and returns the last result. 20 | * `eval` evaluates a single form. 21 | 22 | These functions do the same thing as what you find in `cljs.js`, but include extra information along with the result: 23 | 24 | :value or :error - same as in `cljs.js`, just the evaluation result 25 | :error/position - the 0-indexed position of the error, if present 26 | :compiled-js - javascript source emitted by the compiler 27 | :source - original source string that was evaluated 28 | :source-map - base64-encoded source-map string 29 | :env - a map containing :ns (current namespace) 30 | 31 | (The :env key should probably be renamed/revisited. The current namespace is stored in a compiler-env atom; the `ns` and `in-ns` repl-special functions update this atom whenever the user changes the namespace.) 32 | 33 | ---- 34 | 35 | # Questions & Answers 36 | 37 | _this Q&A was written back when cljs-live still contained a build script for dependency-bundling. it has been left here for info purposes. shadow-cljs now does all the dirty work._ 38 | 39 | ### What is the ClojureScript 'compiler'? 40 | 41 | It's the thing that turns your beautiful ClojureScript code into raw JavaScript code that can run in a browser (or on node.js, etc.). 42 | 43 | ---- 44 | 45 | ### What is a 'self-hosted' compiler? 46 | 47 | It is a compiler written in the same language that it compiles to. Originally, parts of the ClojureScript compiler were written in Java or Clojure (JVM), so you needed a Java environment to produce new ClojureScript code. When ClojureScript got a 'self-hosted' compiler in 2015, it became possible to write and compile ClojureScript without any Java involved at all, meaning we can now have nice development environments to play with in a web browser. 48 | 49 | ---- 50 | 51 | ### What is an analysis cache? 52 | 53 | When Clojure begins compiling a source file to javascript, it begins by 'analyzing' the source, taking note of the name of the namespace, the names of `defs` and `macros` in the namespace, what other namespaces are required or imported, and so on. This info is stored in an ordinary Clojure map in the 'compiler state', under the `:cljs.analyzer/namespaces` key. Clojure needs to use this namespace info to make sense of new code, eg. when you `eval` something at the repl which references a previously defined var. 54 | 55 | After a ClojureScript project is fully converted to javascript, we normally 'throw away' all of this namespace info because it is no longer needed -- we are left with exactly the javascript our app needs to run. _However_, usage of the self-hosted compiler is a special case, because we want to _continue_ evaluating new code, which we expect should 'know' about the structure of the existing codebase. 56 | 57 | So before we can use the self-hosted compiler with existing dependencies, we first need (A) to load the existing code (if it isn't already in the compiled app), and (B) populate the 'compiler state' with all that missing information. 58 | 59 | ---- 60 | 61 | ### Why load files individually, rather than encoding/decoding the entire cache? 62 | 63 | A shortcut you can use for simple uses of the self-hosted compiler is to create a ClojureScript build that contains everything you want available for use, save a transit-encoded snapshot of the compiler state for that project during/after the build process, and then load up that saved cache into the compiler state. 64 | 65 | This shortcut comes with two limitations. 66 | 67 | 1. Startup time. Analysis caches can be very large, and take hundreds of milliseconds to decode in a browser (on a fast computer!), during which the page is unresponsive. Because self-host builds can't use advanced compilation, they are usually very large to begin with -- so these extra delays really add up. 68 | 69 | Instead of one long noticeable delay, we can deserialize and load dependencies on-demand as the user evaluates code which requires them, leading to shorter delays which occur precisely after the user has issued a command. 70 | 71 | 2. Extensibility. We can include analysis caches and source files that were not part of an original build, allowing users to try out new libraries, other than what was initially compiled with the app. Because Google Closure does not maintain dependency information or tracking for 'compiled' builds, we have to do this manually, otherwise namespaces will be 'accidentally' loaded more than once, causing bugs. 72 | 73 | This is why every bundle is broken into small pieces, and contains metadata about what namespaces it has provided. 74 | 75 | -------------------------------------------------------------------------------- /project.clj: -------------------------------------------------------------------------------- 1 | (defproject cljs-live "0.3.1-SNAPSHOT" 2 | :description "Tools for bunding dependencies for self-hosted ClojureScript" 3 | :url "https://github.com/braintripping/cljs-live" 4 | :license {:name "Eclipse Public License" 5 | :url "http://www.eclipse.org/legal/epl-v10.html"} 6 | :min-lein-version "2.7.1" 7 | 8 | :dependencies [[org.clojure/clojure "1.9.0-alpha17"] 9 | [org.clojure/clojurescript "1.9.946"] 10 | [com.cognitect/transit-clj "0.8.300"] 11 | [com.cognitect/transit-cljs "0.8.239"] 12 | [org.clojure/data.json "0.2.6"] 13 | [me.raynes/conch "0.8.0"] 14 | [thheller/shadow-cljs "2.0.8"]] 15 | 16 | :lein-release {:deploy-via :clojars} 17 | 18 | :clean-targets ^{:protect false} ["resources/public/js/compiled/out" ".planck_cache"] 19 | 20 | :source-paths ["src" "script"]) 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /src/cljs_live/eval.clj: -------------------------------------------------------------------------------- 1 | (ns cljs-live.eval) 2 | 3 | (defmacro defspecial 4 | "Define a repl-special function. It will receive current compiler-state and compiler-env as first two args." 5 | [name & body] 6 | (let [docstring (when (string? (first body)) (first body)) 7 | body (cond->> body docstring (drop 1))] 8 | `(do (def ~name (with-meta (fn [c-state# c-env# [~'_ & args#]] 9 | (apply ~(cons 'fn body) c-state# c-env# args#)) 10 | {:doc ~docstring 11 | :name '~(symbol (str *ns*) (str name)) 12 | :arglists '~[(->> (filter vector? body) 13 | (first) 14 | (drop 2) 15 | (vec))]})) 16 | (~'cljs-live.eval/swap-repl-specials! ~'assoc '~name ~name)))) -------------------------------------------------------------------------------- /src/cljs_live/eval.cljs: -------------------------------------------------------------------------------- 1 | (ns cljs-live.eval 2 | (:require [cljs.js :as cljs] 3 | [cljs.tools.reader :as r] 4 | [cljs.tools.reader.reader-types :as rt] 5 | [cljs.analyzer :as ana :refer [*cljs-warning-handlers*]] 6 | [shadow.cljs.bootstrap.browser :as boot] 7 | [goog.object :as gobj] 8 | [clojure.string :as string] 9 | [goog.crypt.base64 :as base64] 10 | [cljs.source-map :as sm]) 11 | (:require-macros [cljs-live.eval :refer [defspecial]])) 12 | 13 | (def ^:dynamic *cljs-warnings* nil) 14 | 15 | (defonce c-state (cljs/empty-state)) 16 | (defonce c-env (atom {:ns (symbol "cljs.user")})) 17 | 18 | (def repl-specials {}) 19 | 20 | (defn swap-repl-specials! 21 | "Mutate repl specials available to the eval fns in this namespace." 22 | [f & args] 23 | (set! repl-specials (apply f repl-specials args))) 24 | 25 | (defn c-opts 26 | [c-state env] 27 | {:load (partial boot/load c-state) 28 | :eval cljs/js-eval 29 | :ns (:ns @env) 30 | :context :expr 31 | :source-map true 32 | :def-emits-var true}) 33 | 34 | (defn get-ns [c-state ns] (get-in @c-state [:cljs.analyzer/namespaces ns])) 35 | 36 | (defn toggle-macros-ns [sym] 37 | (let [s (str sym)] 38 | (symbol 39 | (if (string/ends-with? s "$macros") 40 | (string/replace s "$macros" "") 41 | (str s "$macros"))))) 42 | 43 | (defn resolve-var 44 | ([sym] 45 | (resolve-var c-state c-env sym)) 46 | ([c-state c-env sym] 47 | (binding [cljs.env/*compiler* c-state] 48 | (ana/resolve-var (assoc @cljs.env/*compiler* :ns (get-ns c-state (or (:ns @c-env) 'cljs.user))) sym)))) 49 | 50 | (defn var-value [the-var] 51 | (->> (string/split (:name the-var) #"[\./]") 52 | (map munge) 53 | (to-array) 54 | (apply gobj/getValueByKeys js/window))) 55 | 56 | (defn resolve-symbol 57 | ([sym] (resolve-symbol c-state c-env sym)) 58 | ([c-state c-env sym] 59 | (:name (resolve-var c-state c-env sym)))) 60 | 61 | (declare eval eval-forms) 62 | 63 | (defn ensure-ns! 64 | "Create namespace if it doesn't exist" 65 | [c-state c-env ns] 66 | (when-not (contains? (get @c-state :cljs.analyzer/namespaces) ns) 67 | (eval c-state c-env `(~'ns ~ns)))) 68 | 69 | (defn ->macro-sym [sym] 70 | (let [ns? (namespace sym) 71 | ns (or ns? (name sym)) 72 | name (if ns? (name ns) nil)] 73 | (if (string/ends-with? ns "$macros") 74 | ns 75 | (if ns? (symbol (str ns "$macros") name) 76 | (symbol (str ns "$macros")))))) 77 | 78 | (defn elide-quote [x] 79 | (cond-> x 80 | (and (seq? x) (= 'quote (first x))) (second))) 81 | 82 | (defspecial in-ns 83 | "Switch to namespace" 84 | [c-state c-env namespace] 85 | (let [namespace (elide-quote namespace)] 86 | (when-not (symbol? namespace) (throw (js/Error. "`in-ns` must be passed a symbol."))) 87 | (if (contains? (get @c-state :cljs.analyzer/namespaces) namespace) 88 | {:ns namespace} 89 | (eval c-state c-env `(~'ns ~namespace))))) 90 | 91 | (defspecial ns 92 | "Wraps `ns` to return :ns in result map" 93 | [c-state c-env & body] 94 | (-> (eval c-state c-env (with-meta (cons 'ns body) {::skip-repl-special true})) 95 | (assoc :ns (first body)))) 96 | 97 | (defn repl-special [c-state c-env body] 98 | (let [f (get repl-specials (first body))] 99 | (try (f c-state c-env body) 100 | (catch js/Error e 101 | (prn "repl-special error" body) 102 | (.error js/console e) 103 | {:error e})))) 104 | 105 | (defn dec-pos 106 | "Position information from the ClojureScript reader is 1-indexed - decrement line and column." 107 | [{:keys [line column] :as pos}] 108 | (assoc pos 109 | :line (dec line) 110 | :column (dec column))) 111 | 112 | (defn relative-pos [{target-line :line 113 | target-column :column 114 | :as target} 115 | {start-line :line 116 | start-col :column}] 117 | (if-not start-line 118 | target 119 | (cond-> (update target :line + start-line) 120 | (= target-line start-line) (update :column + start-col)))) 121 | 122 | (defn warning-handler 123 | "Collect warnings in a dynamic var" 124 | [form source warning-type env extra] 125 | ;; note - not including `env` in warnings maps, because it is so large and can't be printed. 126 | ;; also unsure of memory implications. 127 | (some-> *cljs-warnings* 128 | (swap! conj {:type warning-type 129 | :warning-position (relative-pos (-> (select-keys env [:line :column]) 130 | (dec-pos)) 131 | (when (satisfies? IMeta form) (some-> (meta form) 132 | (dec-pos)))) 133 | :extra extra 134 | :source source 135 | :form form}))) 136 | 137 | (defn stack-error-position [error] 138 | (let [[line column] (->> (re-find #":(\d+)(?::(\d+))" (.-stack error)) 139 | (rest) 140 | (map js/parseInt))] 141 | {:line line 142 | :column column})) 143 | 144 | (defn mapped-cljs-position [{:keys [line column]} source-map] 145 | (let [source-map (-> (base64/decodeString source-map) 146 | (js/JSON.parse) 147 | (sm/decode)) 148 | {:keys [line col]} (some-> (get source-map (dec line)) 149 | (subseq <= column) 150 | (last) 151 | (second) 152 | (last))] 153 | {:line line 154 | :column col})) 155 | 156 | 157 | 158 | (defn add-error-position [{:keys [error error/position error/kind start-position source-map] :as result}] 159 | (cond-> result 160 | (and error (nil? position)) (assoc :error/position 161 | (case kind :compile (some-> (ex-cause error) 162 | (ex-data) 163 | (select-keys [:line :column]) 164 | (dec-pos) 165 | (relative-pos start-position)) 166 | :eval (-> (stack-error-position error) 167 | (mapped-cljs-position source-map) 168 | (relative-pos start-position)) 169 | nil)))) 170 | (defonce cljs-cache (atom {})) 171 | 172 | (defn compile-str 173 | ([c-state c-env source] (compile-str c-state c-env source {})) 174 | ([c-state c-env source {:keys [form 175 | file-name 176 | opts 177 | start-position]}] 178 | (let [the-ns (:ns @c-env) 179 | opts (merge (c-opts c-state c-env) opts) 180 | file-name (or file-name (str (string/replace (str the-ns) "." "/") "/" (gensym "cljs_live_") (if (string/ends-with? (str the-ns) "$macros") 181 | ".clj" 182 | ".cljs"))) 183 | result (atom nil)] 184 | (binding [*cljs-warning-handlers* [(partial warning-handler form source)] 185 | r/*data-readers* (conj r/*data-readers* {'js identity})] 186 | (swap! cljs-cache assoc name source) 187 | (cljs/compile-str c-state source file-name opts 188 | (fn [{error :error 189 | compiled-js-with-source-map :value}] 190 | (let [[compiled-js source-map] (clojure.string/split compiled-js-with-source-map #"\n//#\ssourceURL[^;]+;base64,")] 191 | 192 | (->> {:source source 193 | :form form 194 | :start-position start-position} 195 | (merge (if error 196 | {:error error 197 | :error/kind :compile} 198 | {:compiled-js compiled-js 199 | :source-map source-map 200 | :env @c-env})) 201 | (add-error-position) 202 | (reset! result))))) 203 | @result)))) 204 | 205 | (defn eval 206 | "Eval a single form. Arguments: 207 | c-state - a cljs compiler state atom 208 | c-env - an atom for tracking the compiler environment; 209 | must contain an :ns key with the current namespace (as a symbol) 210 | 211 | Updates the `c-env` atom if the current namespace changes during eval. 212 | 213 | Eval returns a map containing: 214 | 215 | :value or :error - depending on the result of evaluation 216 | :error/position - the 0-indexed position of the error, if present 217 | :compiled-js - the javascript source emitted by the compiler 218 | :source - the source code string that was evaluated 219 | :source-map - the base64-encoded source-map string 220 | :env - the compile environment, a map containing :ns (current namespace)" 221 | ([form] (eval c-state c-env form)) 222 | ([c-state c-env form] (eval c-state c-env form {})) 223 | ([c-state c-env form opts] 224 | (let [repl-special? (and (seq? form) 225 | (contains? repl-specials (first form)) 226 | (not (::skip-repl-special (meta form)))) 227 | opts (merge (c-opts c-state c-env) opts) 228 | {:keys [source] :as start-position} (when (satisfies? IMeta form) 229 | (some-> (meta form) (dec-pos))) 230 | {:keys [ns] :as result} (if repl-special? 231 | (repl-special c-state c-env form) 232 | (binding [*cljs-warning-handlers* [(partial warning-handler form source)] 233 | r/*data-readers* (conj r/*data-readers* {'js identity})] 234 | (if source 235 | (let [{:keys [compiled-js 236 | error] :as result} (compile-str c-state c-env source {:form form 237 | :opts opts 238 | :start-position start-position})] 239 | (cond-> result 240 | (not error) (-> (merge (try {:value (js/eval compiled-js)} 241 | (catch js/Error e {:error e 242 | :error/kind :eval}))) 243 | (add-error-position)))) 244 | (let [result (atom nil)] 245 | (cljs/eval c-state form opts #(reset! result %)) 246 | @result))))] 247 | (when (and (some? ns) (not= ns (:ns @c-env))) 248 | (swap! c-env assoc :ns ns)) 249 | result))) 250 | 251 | (defn read-string-indexed 252 | "Read string using indexing-push-back-reader, for errors with location information." 253 | [s] 254 | (when (and s (not= "" s)) 255 | (let [reader (rt/source-logging-push-back-reader s)] 256 | (loop [forms []] 257 | (let [form (r/read {:eof ::eof} reader)] 258 | (if (= form ::eof) 259 | forms 260 | (recur (conj forms form)))))))) 261 | 262 | (defn eval-forms 263 | "Eval a list of forms. Stops at the first error. 264 | 265 | Returns the result of the last form. A vector of earlier results is returned in 266 | the :intermediate-values key." 267 | [c-state c-env forms opts] 268 | (binding [*cljs-warnings* (or *cljs-warnings* (atom []))] 269 | (loop [forms forms 270 | intermediate-values []] 271 | (let [{:keys [error] :as result} (eval c-state c-env (first forms) opts) 272 | remaining (rest forms)] 273 | (if (or error (empty? remaining)) 274 | (assoc result :warnings @*cljs-warnings* 275 | :intermediate-values intermediate-values) 276 | (recur remaining (conj intermediate-values result))))))) 277 | 278 | (defn read-src 279 | "Read src using indexed reader." 280 | [c-state c-env src] 281 | (binding [r/resolve-symbol #(resolve-symbol c-state c-env %) 282 | r/*data-readers* (conj r/*data-readers* {'js identity}) 283 | r/*alias-map* (get-in @c-state [:cljs.analyzer/namespaces (:ns @c-env) :requires]) 284 | *ns* (:ns @c-env)] 285 | (try {:value (read-string-indexed src)} 286 | (catch js/Error e 287 | {:error e 288 | :error/kind :reader})))) 289 | 290 | (defn eval-str 291 | "Eval string by first reading all top-level forms, then eval'ing them one at a time. 292 | Stops at the first error." 293 | ([src] (eval-str c-state c-env src {})) 294 | ([c-state c-env src] (eval-str c-state c-env src {})) 295 | ([c-state c-env src opts] 296 | (let [{:keys [error value] :as result} (read-src c-state c-env src)] 297 | (merge (if error 298 | result 299 | (eval-forms c-state c-env value opts)) 300 | {:source src})))) --------------------------------------------------------------------------------