// Compiled by ClojureScript 1.11.60 {:static-fns true, :optimize-constants true, :optimizations :advanced} goog.provide('clojure.walk'); goog.require('cljs.core'); goog.require('cljs.core.constants'); /** * Traverses form, an arbitrary data structure. inner and outer are * functions. Applies inner to each element of form, building up a * data structure of the same type, then applies outer to the result. * Recognizes all Clojure data structures. Consumes seqs as with doall. */ clojure.walk.walk = (function clojure$walk$walk(inner,outer,form){ if(cljs.core.list_QMARK_(form)){ var G__10713 = 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__10713) : outer.call(null,G__10713)); } else { if(cljs.core.map_entry_QMARK_(form)){ var G__10714 = (new cljs.core.MapEntry((function (){var G__10715 = cljs.core.key(form); return (inner.cljs$core$IFn$_invoke$arity$1 ? inner.cljs$core$IFn$_invoke$arity$1(G__10715) : inner.call(null,G__10715)); })(),(function (){var G__10716 = cljs.core.val(form); return (inner.cljs$core$IFn$_invoke$arity$1 ? inner.cljs$core$IFn$_invoke$arity$1(G__10716) : inner.call(null,G__10716)); })(),null)); return (outer.cljs$core$IFn$_invoke$arity$1 ? outer.cljs$core$IFn$_invoke$arity$1(G__10714) : outer.call(null,G__10714)); } else { if(cljs.core.seq_QMARK_(form)){ var G__10717 = 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__10717) : outer.call(null,G__10717)); } else { if(cljs.core.record_QMARK_(form)){ var G__10718 = 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__10718) : outer.call(null,G__10718)); } else { if(cljs.core.coll_QMARK_(form)){ var G__10719 = 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__10719) : outer.call(null,G__10719)); } else { return (outer.cljs$core$IFn$_invoke$arity$1 ? outer.cljs$core$IFn$_invoke$arity$1(form) : outer.call(null,form)); } } } } } }); /** * Performs a depth-first, post-order traversal of form. Calls f on * each sub-form, uses f's return value in place of the original. * Recognizes all Clojure data structures. Consumes seqs as with doall. */ clojure.walk.postwalk = (function clojure$walk$postwalk(f,form){ return clojure.walk.walk(cljs.core.partial.cljs$core$IFn$_invoke$arity$2(clojure.walk.postwalk,f),f,form); }); /** * Like postwalk, but does pre-order traversal. */ clojure.walk.prewalk = (function clojure$walk$prewalk(f,form){ return clojure.walk.walk(cljs.core.partial.cljs$core$IFn$_invoke$arity$2(clojure.walk.prewalk,f),cljs.core.identity,(f.cljs$core$IFn$_invoke$arity$1 ? f.cljs$core$IFn$_invoke$arity$1(form) : f.call(null,form))); }); /** * Recursively transforms all map keys from strings to keywords. */ clojure.walk.keywordize_keys = (function clojure$walk$keywordize_keys(m){ var f = (function (p__10720){ var vec__10721 = p__10720; var k = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__10721,(0),null); var v = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__10721,(1),null); if(typeof k === 'string'){ return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [cljs.core.keyword.cljs$core$IFn$_invoke$arity$1(k),v], null); } else { return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [k,v], null); } }); return clojure.walk.postwalk((function (x){ if(cljs.core.map_QMARK_(x)){ return cljs.core.into.cljs$core$IFn$_invoke$arity$2(cljs.core.PersistentArrayMap.EMPTY,cljs.core.map.cljs$core$IFn$_invoke$arity$2(f,x)); } else { return x; } }),m); }); /** * Recursively transforms all map keys from keywords to strings. */ clojure.walk.stringify_keys = (function clojure$walk$stringify_keys(m){ var f = (function (p__10724){ var vec__10725 = p__10724; var k = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__10725,(0),null); var v = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__10725,(1),null); if((k instanceof cljs.core.Keyword)){ return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [cljs.core.name(k),v], null); } else { return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [k,v], null); } }); return clojure.walk.postwalk((function (x){ if(cljs.core.map_QMARK_(x)){ return cljs.core.into.cljs$core$IFn$_invoke$arity$2(cljs.core.PersistentArrayMap.EMPTY,cljs.core.map.cljs$core$IFn$_invoke$arity$2(f,x)); } else { return x; } }),m); }); /** * Recursively transforms form by replacing keys in smap with their * values. Like clojure/replace but works on any data structure. Does * replacement at the root of the tree first. */ clojure.walk.prewalk_replace = (function clojure$walk$prewalk_replace(smap,form){ return clojure.walk.prewalk((function (x){ if(cljs.core.contains_QMARK_(smap,x)){ return (smap.cljs$core$IFn$_invoke$arity$1 ? smap.cljs$core$IFn$_invoke$arity$1(x) : smap.call(null,x)); } else { return x; } }),form); }); /** * Recursively transforms form by replacing keys in smap with their * values. Like clojure/replace but works on any data structure. Does * replacement at the leaves of the tree first. */ clojure.walk.postwalk_replace = (function clojure$walk$postwalk_replace(smap,form){ return clojure.walk.postwalk((function (x){ if(cljs.core.contains_QMARK_(smap,x)){ return (smap.cljs$core$IFn$_invoke$arity$1 ? smap.cljs$core$IFn$_invoke$arity$1(x) : smap.call(null,x)); } else { return x; } }),form); });