goog.provide('edamame.impl.read_fn'); /** * Preserves metadata, unlike clojure.walk/walk. */ edamame.impl.read_fn.walk_STAR_ = (function edamame$impl$read_fn$walk_STAR_(inner,outer,form){ if(cljs.core.list_QMARK_(form)){ return cljs.core.with_meta((function (){var G__39285 = cljs.core.apply.cljs$core$IFn$_invoke$arity$2(cljs.core.list,cljs.core.map.cljs$core$IFn$_invoke$arity$2(inner,form)); return (outer.cljs$core$IFn$_invoke$arity$1 ? outer.cljs$core$IFn$_invoke$arity$1(G__39285) : outer.call(null,G__39285)); })(),cljs.core.meta(form)); } else { if(cljs.core.map_entry_QMARK_(form)){ var G__39291 = (new cljs.core.MapEntry((function (){var G__39293 = cljs.core.key(form); return (inner.cljs$core$IFn$_invoke$arity$1 ? inner.cljs$core$IFn$_invoke$arity$1(G__39293) : inner.call(null,G__39293)); })(),(function (){var G__39294 = cljs.core.val(form); return (inner.cljs$core$IFn$_invoke$arity$1 ? inner.cljs$core$IFn$_invoke$arity$1(G__39294) : inner.call(null,G__39294)); })(),null)); return (outer.cljs$core$IFn$_invoke$arity$1 ? outer.cljs$core$IFn$_invoke$arity$1(G__39291) : outer.call(null,G__39291)); } else { if(cljs.core.seq_QMARK_(form)){ return cljs.core.with_meta((function (){var G__39295 = cljs.core.doall.cljs$core$IFn$_invoke$arity$1(cljs.core.map.cljs$core$IFn$_invoke$arity$2(inner,form)); return (outer.cljs$core$IFn$_invoke$arity$1 ? outer.cljs$core$IFn$_invoke$arity$1(G__39295) : outer.call(null,G__39295)); })(),cljs.core.meta(form)); } else { if(cljs.core.record_QMARK_(form)){ var G__39297 = cljs.core.reduce.cljs$core$IFn$_invoke$arity$3((function (r,x){ return cljs.core.conj.cljs$core$IFn$_invoke$arity$2(r,(inner.cljs$core$IFn$_invoke$arity$1 ? inner.cljs$core$IFn$_invoke$arity$1(x) : inner.call(null,x))); }),form,form); return (outer.cljs$core$IFn$_invoke$arity$1 ? outer.cljs$core$IFn$_invoke$arity$1(G__39297) : outer.call(null,G__39297)); } else { if(cljs.core.coll_QMARK_(form)){ var G__39301 = cljs.core.into.cljs$core$IFn$_invoke$arity$2(cljs.core.empty(form),cljs.core.map.cljs$core$IFn$_invoke$arity$2(inner,form)); return (outer.cljs$core$IFn$_invoke$arity$1 ? outer.cljs$core$IFn$_invoke$arity$1(G__39301) : outer.call(null,G__39301)); } else { return (outer.cljs$core$IFn$_invoke$arity$1 ? outer.cljs$core$IFn$_invoke$arity$1(form) : outer.call(null,form)); } } } } } }); /** * Preserves metadata, unlike clojure.walk/postwalk. */ edamame.impl.read_fn.postwalk_STAR_ = (function edamame$impl$read_fn$postwalk_STAR_(f,form){ return edamame.impl.read_fn.walk_STAR_(cljs.core.partial.cljs$core$IFn$_invoke$arity$2(edamame.impl.read_fn.postwalk_STAR_,f),f,form); }); edamame.impl.read_fn.read_fn = (function edamame$impl$read_fn$read_fn(expr){ var state = cljs.core.volatile_BANG_(new cljs.core.PersistentArrayMap(null, 2, [new cljs.core.Keyword(null,"max-fixed","max-fixed",166770124),(0),new cljs.core.Keyword(null,"var-args?","var-args?",-1630678710),false], null)); var expr__$1 = edamame.impl.read_fn.postwalk_STAR_((function (elt){ if((elt instanceof cljs.core.Symbol)){ var temp__5821__auto__ = cljs.core.re_matches(/^%(.*)/,cljs.core.name(elt)); if(cljs.core.truth_(temp__5821__auto__)){ var vec__39312 = temp__5821__auto__; var _ = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__39312,(0),null); var m = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__39312,(1),null); if(cljs.core.empty_QMARK_(m)){ state.cljs$core$IVolatile$_vreset_BANG_$arity$2(null,cljs.core.update.cljs$core$IFn$_invoke$arity$4(state.cljs$core$IDeref$_deref$arity$1(null),new cljs.core.Keyword(null,"max-fixed","max-fixed",166770124),cljs.core.max,(1))); return new cljs.core.Symbol(null,"%1","%1",1309450150,null); } else { if(cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2("&",m)){ state.cljs$core$IVolatile$_vreset_BANG_$arity$2(null,cljs.core.assoc.cljs$core$IFn$_invoke$arity$3(state.cljs$core$IDeref$_deref$arity$1(null),new cljs.core.Keyword(null,"var-args?","var-args?",-1630678710),true)); return elt; } else { var n_39325 = parseInt(m); state.cljs$core$IVolatile$_vreset_BANG_$arity$2(null,cljs.core.update.cljs$core$IFn$_invoke$arity$4(state.cljs$core$IDeref$_deref$arity$1(null),new cljs.core.Keyword(null,"max-fixed","max-fixed",166770124),cljs.core.max,n_39325)); return elt; } } } else { return elt; } } else { return elt; } }),expr); var map__39311 = cljs.core.deref(state); var map__39311__$1 = cljs.core.__destructure_map(map__39311); var max_fixed = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__39311__$1,new cljs.core.Keyword(null,"max-fixed","max-fixed",166770124)); var var_args_QMARK_ = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__39311__$1,new cljs.core.Keyword(null,"var-args?","var-args?",-1630678710)); var fixed_names = cljs.core.map.cljs$core$IFn$_invoke$arity$2((function (p1__39309_SHARP_){ return cljs.core.symbol.cljs$core$IFn$_invoke$arity$1(["%",cljs.core.str.cljs$core$IFn$_invoke$arity$1(p1__39309_SHARP_)].join('')); }),cljs.core.range.cljs$core$IFn$_invoke$arity$2((1),(max_fixed + (1)))); var var_args_sym = new cljs.core.Symbol(null,"%&","%&",-728707069,null); var arg_list = cljs.core.vec(cljs.core.concat.cljs$core$IFn$_invoke$arity$2(fixed_names,(cljs.core.truth_(var_args_QMARK_)?new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [new cljs.core.Symbol(null,"&","&",-2144855648,null),var_args_sym], null):null))); var form = (new cljs.core.List(null,new cljs.core.Symbol(null,"fn*","fn*",-752876845,null),(new cljs.core.List(null,arg_list,(new cljs.core.List(null,expr__$1,null,(1),null)),(2),null)),(3),null)); return form; }); //# sourceMappingURL=edamame.impl.read_fn.js.map