diff options
author | Chouser <chouser@n01se.net> | 2009-01-12 07:54:16 +0000 |
---|---|---|
committer | Chouser <chouser@n01se.net> | 2009-01-12 07:54:16 +0000 |
commit | 2b1e44f04489b5d70faff703bf824f07b74432d2 (patch) | |
tree | 2bc686386c956028744f7411a4404f59efca9115 /clojurescript/repl/repl.js | |
parent | 6e53cf73c313d2bf76f5ee3c9a847548665b32e2 (diff) |
Rearrange ClojureScript code for AOT compilation and its eventual place in clojure.contrib. Also fix major breaking errors for Clojure SVN 1205, but it's not well tested with this latest version.
Diffstat (limited to 'clojurescript/repl/repl.js')
-rw-r--r-- | clojurescript/repl/repl.js | 88 |
1 files changed, 0 insertions, 88 deletions
diff --git a/clojurescript/repl/repl.js b/clojurescript/repl/repl.js deleted file mode 100644 index 11f83d94..00000000 --- a/clojurescript/repl/repl.js +++ /dev/null @@ -1,88 +0,0 @@ -(function(){ -return (clojure.core.in_ns.apply(null,[clojure.core.symbol("jsrepl")]), -clojure.core.refer.apply(null,[clojure.core.symbol("clojure.core")]))}).apply(null,[]); -(function(){ -return (clojure.JS.def(jsrepl,"append_dom",null))}).apply(null,[]); -(function(){ -return (clojure.JS.def(jsrepl,"dom",(function(o_1){ -var sq__3428_7,vec__15_2,body_5,attrs_4,k_9,v_10,tag_3,vec__16_8,elem_6; -return (((clojure.core.coll_QMARK_.apply(null,[o_1]))?(((vec__15_2=o_1), -(tag_3=clojure.core.nth.apply(null,[vec__15_2,(0),null])), -(attrs_4=clojure.core.nth.apply(null,[vec__15_2,(1),null])), -(body_5=clojure.core.nthrest.apply(null,[vec__15_2,(2)])), -((clojure.core.keyword_QMARK_.apply(null,[tag_3]))?(((elem_6=(clojure.JS.resolveVar("document",jsrepl)).createElement(clojure.core.name.apply(null,[tag_3]))), -((clojure.core.map_QMARK_.apply(null,[attrs_4]))?(((function(){var _rtn,_cnt;(sq__3428_7=clojure.core.seq.apply(null,[attrs_4]));do{_cnt=0; -_rtn=((sq__3428_7)?(((vec__16_8=clojure.core.first.apply(null,[sq__3428_7])), -(k_9=clojure.core.nth.apply(null,[vec__16_8,(0),null])), -(v_10=clojure.core.nth.apply(null,[vec__16_8,(1),null])), -((true)?(((true)?(((v_10)?((elem_6).setAttribute(clojure.core.name.apply(null,[k_9]),v_10)):(null))):(null)), -(_cnt=1,_rtn=[clojure.core.rest.apply(null,[sq__3428_7])],sq__3428_7=_rtn[0])):(null)))):(null))}while(_cnt);return _rtn;})())):(null)), -clojure.JS.lit_vector([jsrepl.append_dom.apply(null,[elem_6,((clojure.core.map_QMARK_.apply(null,[attrs_4]))?(body_5):(clojure.core.cons.apply(null,[attrs_4,body_5])))])]))):(clojure.core.mapcat.apply(null,[jsrepl.dom,o_1]))))):(((o_1)?(clojure.JS.lit_vector([(clojure.JS.resolveVar("document",jsrepl)).createTextNode(clojure.core.str.apply(null,[o_1]))])):(null)))))})))}).apply(null,[]); -(function(){ -return (clojure.JS.def(jsrepl,"append_dom",(function(parent_1,v_2){ -var sq__3428_3,i_4; -return (((function(){var _rtn,_cnt;(sq__3428_3=clojure.core.seq.apply(null,[jsrepl.dom.apply(null,[v_2])]));do{_cnt=0; -_rtn=((sq__3428_3)?(((i_4=clojure.core.first.apply(null,[sq__3428_3])), -((true)?(((true)?((parent_1).appendChild(i_4)):(null)), -(_cnt=1,_rtn=[clojure.core.rest.apply(null,[sq__3428_3])],sq__3428_3=_rtn[0])):(null)))):(null))}while(_cnt);return _rtn;})()), -parent_1)})))}).apply(null,[]); -(function(){ -return (clojure.JS.def(jsrepl,"elems",null))}).apply(null,[]); -(function(){ -return (clojure.JS.def(jsrepl,"lastval",null))}).apply(null,[]); -(function(){ -return (clojure.JS.def(jsrepl,"_STAR_print_class_STAR_",null))}).apply(null,[]); -(function(){ -return (clojure.JS.def(jsrepl,"repl_print",(function(text_1){ -var log_2,sq__3428_3,line_4; -return (((log_2=clojure.core.keyword("","log").apply(null,[jsrepl.elems])), -((function(){var _rtn,_cnt;(sq__3428_3=clojure.core.seq.apply(null,[(text_1).split((/\n/))]));do{_cnt=0; -_rtn=((sq__3428_3)?(((line_4=clojure.core.first.apply(null,[sq__3428_3])), -((true)?(((true)?(jsrepl.append_dom.apply(null,[log_2,clojure.JS.lit_vector([clojure.core.keyword("","div"),clojure.core.hash_map(clojure.core.keyword("","class"),clojure.core.str.apply(null,["cg ",((jsrepl._STAR_print_class_STAR_)?(clojure.core.str.apply(null,[" ",jsrepl._STAR_print_class_STAR_])):(null))])),line_4])])):(null)), -(_cnt=1,_rtn=[clojure.core.rest.apply(null,[sq__3428_3])],sq__3428_3=_rtn[0])):(null)))):(null))}while(_cnt);return _rtn;})()), -(log_2.scrollTop=clojure.JS.getOrRun(log_2,"scrollHeight"))))})))}).apply(null,[]); -(function(){ -return (clojure.JS.def(jsrepl,"postexpr",(function(){ -return (jsrepl.append_dom.apply(null,[clojure.core.keyword("","log").apply(null,[jsrepl.elems]),clojure.JS.lit_vector([clojure.core.keyword("","table"),clojure.JS.lit_vector([clojure.core.keyword("","tbody"),clojure.JS.lit_vector([clojure.core.keyword("","tr"),clojure.JS.lit_vector([clojure.core.keyword("","td"),clojure.core.hash_map(clojure.core.keyword("","class"),"cg"),"user=> "]),clojure.JS.lit_vector([clojure.core.keyword("","td"),(clojure.JS.getOrRun(jsrepl.elems.apply(null,[clojure.core.keyword("","input")]),"value")).replace((/\n$/),"")])])])])]), -(jsrepl.elems.apply(null,[clojure.core.keyword("","scripts")]).innerHTML=""), -(jsrepl.elems.apply(null,[clojure.core.keyword("","input")]).value=""))})))}).apply(null,[]); -(function(){ -return (clojure.JS.def(jsrepl,"show_state",(function(url_1){ -return ((jsrepl.elems.apply(null,[clojure.core.keyword("","status")]).src=url_1))})))}).apply(null,[]); -(function(){ -return (clojure.JS.def(jsrepl,"state",(function(status_1,msg_2){ -return (((clojure.lang.Util.equal(status_1,"incomplete"))?(jsrepl.show_state.apply(null,["dots.png"])):(((clojure.lang.Util.equal(status_1,"done"))?(clojure.core.prn.apply(null,[jsrepl.lastval])):(((clojure.lang.Util.equal(status_1,"error"))?(jsrepl.postexpr.apply(null,[]), -jsrepl.show_state.apply(null,["blank.gif"]), -clojure.lang.Var.pushThreadBindings(clojure.core.hash_map.apply(null,[jsrepl._var__STAR_print_class_STAR_,"err"])), -(function(){try{var _rtn=(clojure.core.println.apply(null,[msg_2]))} -finally{clojure.lang.Var.popThreadBindings()}return _rtn})()):(((clojure.lang.Util.equal(status_1,"compiled"))?(jsrepl.postexpr.apply(null,[]), -clojure.JS.resolveVar("setTimeout",jsrepl).apply(null,[(function(){ -return (jsrepl.show_state.apply(null,["blank.gif"]))}),(0)])):(null)))))))))})))}).apply(null,[]); -(function(){ -return (clojure.JS.def(jsrepl,"err",(function(e_1){ -return (clojure.lang.Var.pushThreadBindings(clojure.core.hash_map.apply(null,[jsrepl._var__STAR_print_class_STAR_,"err"])), -(function(){ -return ((function(){try{var _rtn=(clojure.core.println.apply(null,[e_1]))} -finally{clojure.lang.Var.popThreadBindings()}return _rtn})())}).apply(null,[]), -clojure.core._var__STAR_e.set(e_1))})))}).apply(null,[]); -(function(){ -return (clojure.core._var__STAR_print_length_STAR_.set((103)))}).apply(null,[]); -(function(){ -return ((clojure.JS.resolveVar("window",jsrepl).onload=(function(){ -var iter__3875_1; -return (jsrepl._var_elems.set(clojure.core.into.apply(null,[clojure.lang.PersistentHashMap.EMPTY,((iter__3875_1=(function(s__87_1){ -var n_2,iter__86_0=arguments.callee; -return (((clojure.core.seq.apply(null,[s__87_1]))?(((n_2=clojure.core.first.apply(null,[s__87_1])), -((true)?((new clojure.lang.LazyCons((function(G__89_1){switch(arguments.length){ -case 0:return (clojure.JS.lit_vector([clojure.core.keyword.apply(null,[n_2]),(clojure.JS.resolveVar("document",jsrepl)).getElementById(clojure.core.str.apply(null,[n_2]))]))} -return (iter__86_0.apply(null,[clojure.core.rest.apply(null,[s__87_1])]))})))):(null)))):(null)))})), -iter__3875_1.apply(null,[clojure.JS.lit_list([clojure.core.symbol("log"),clojure.core.symbol("input"),clojure.core.symbol("status"),clojure.core.symbol("scripts")])]))])), -(clojure.JS.resolveVar("window",jsrepl).print=jsrepl.repl_print), -(clojure.core.keyword("","input").apply(null,[jsrepl.elems]).onkeypress=(function(e_1){ -var or__2827_2,e_2; -return (((e_2=((or__2827_2=e_1), -((or__2827_2)?(or__2827_2):(clojure.JS.resolveVar("event",jsrepl))))), -((clojure.lang.Numbers.equiv(clojure.JS.getOrRun(e_2,"keyCode"),(13)))?((jsrepl.elems.apply(null,[clojure.core.keyword("","status")]).src="clojure-logo-anim-03.gif"), -jsrepl.append_dom.apply(null,[clojure.core.keyword("","scripts").apply(null,[jsrepl.elems]),clojure.JS.lit_vector([clojure.core.keyword("","script"),clojure.core.hash_map(clojure.core.keyword("","src"),clojure.core.str.apply(null,["http://clojurescript.n01se.net:8081/?",(clojure.JS.resolveVar("escape",jsrepl).apply(null,[clojure.JS.getOrRun(jsrepl.elems.apply(null,[clojure.core.keyword("","input")]),"value")])).replace((/\+/),"%2b")]))])])):(null))))})), -clojure.core.println.apply(null,["ClojureScript"]), -clojure.JS.getOrRun(clojure.core.keyword("","input").apply(null,[jsrepl.elems]),"focus"))})))}).apply(null,[]); |