// Compiled by ClojureScript 1.9.229 {} goog.provide('devtools.munging'); goog.require('cljs.core'); goog.require('clojure.string'); goog.require('devtools.util'); goog.require('goog.object'); goog.require('goog.string.StringBuffer'); devtools.munging.dollar_replacement = "~\uFE69~"; devtools.munging.max_fixed_arity_to_scan = (64); devtools.munging.js_reserved_QMARK_ = (function devtools$munging$js_reserved_QMARK_(x){ var o__41049__auto__ = (function (){var temp__4657__auto__ = goog.object.get(window,"cljs"); if(cljs.core.truth_(temp__4657__auto__)){ var o__41061__auto__ = temp__4657__auto__; return goog.object.get(o__41061__auto__,"core"); } else { return null; } })(); return goog.object.get(o__41049__auto__,"js_reserved_QMARK_").call(o__41049__auto__,x); }); devtools.munging.get_fn_source_safely = (function devtools$munging$get_fn_source_safely(f){ try{var o__41049__auto__ = f; return goog.object.get(o__41049__auto__,"toString").call(o__41049__auto__); }catch (e41166){var _ = e41166; return ""; }}); devtools.munging.get_fn_fixed_arity = (function devtools$munging$get_fn_fixed_arity(f,n){ return goog.object.get(f,[cljs.core.str("cljs$core$IFn$_invoke$arity$"),cljs.core.str(n)].join('')); }); devtools.munging.get_fn_variadic_arity = (function devtools$munging$get_fn_variadic_arity(f){ return goog.object.get(f,[cljs.core.str("cljs$core$IFn$_invoke$arity$variadic")].join('')); }); devtools.munging.get_fn_max_fixed_arity = (function devtools$munging$get_fn_max_fixed_arity(f){ return goog.object.get(f,"cljs$lang$maxFixedArity"); }); devtools.munging.get_type_name = (function devtools$munging$get_type_name(t){ var sb = (new goog.string.StringBuffer()); var writer = (new cljs.core.StringBufferWriter(sb)); try{var o__41049__auto___41169 = t; goog.object.get(o__41049__auto___41169,"cljs$lang$ctorPrWriter").call(o__41049__auto___41169,t,writer); }catch (e41168){var __41170 = e41168; } cljs.core._flush.call(null,writer); return [cljs.core.str(sb)].join(''); }); /** * Given a character with a single digit converts it into a subscript character. * Zero chracter maps to unicode 'SUBSCRIPT ZERO' (U+2080). */ devtools.munging.char_to_subscript = (function devtools$munging$char_to_subscript(char$){ if(typeof char$ === 'string'){ } else { throw (new Error("Assert failed: (string? char)")); } if(cljs.core._EQ_.call(null,cljs.core.count.call(null,char$),(1))){ } else { throw (new Error("Assert failed: (= (count char) 1)")); } var char_code = (function (){var o__41049__auto__ = (new String(char$)); return goog.object.get(o__41049__auto__,"charCodeAt").call(o__41049__auto__,(0)); })(); var num_code = (char_code - (48)); var subscript_code = ((8320) + num_code); var o__41049__auto__ = String; return goog.object.get(o__41049__auto__,"fromCharCode").call(o__41049__auto__,subscript_code); }); /** * Given a subscript number converts it into a string representation consisting of unicode subscript characters (digits). */ devtools.munging.make_subscript = (function devtools$munging$make_subscript(subscript){ if(typeof subscript === 'number'){ } else { throw (new Error("Assert failed: (number? subscript)")); } return clojure.string.join.call(null,cljs.core.map.call(null,devtools.munging.char_to_subscript,[cljs.core.str(subscript)].join(''))); }); /** * Given a character with a single digit converts it into a superscript character. * Zero chracter maps to unicode 'SUPERSCRIPT ZERO' (U+2070). */ devtools.munging.char_to_superscript = (function devtools$munging$char_to_superscript(char$){ if(typeof char$ === 'string'){ } else { throw (new Error("Assert failed: (string? char)")); } if(cljs.core._EQ_.call(null,cljs.core.count.call(null,char$),(1))){ } else { throw (new Error("Assert failed: (= (count char) 1)")); } var char_code = (function (){var o__41049__auto__ = (new String(char$)); return goog.object.get(o__41049__auto__,"charCodeAt").call(o__41049__auto__,(0)); })(); var num_code = (char_code - (48)); var superscript_code = (function (){var G__41172 = num_code; switch (G__41172) { case (1): return (185); break; case (2): return (178); break; case (3): return (179); break; default: return ((8304) + num_code); } })(); var o__41049__auto__ = String; return goog.object.get(o__41049__auto__,"fromCharCode").call(o__41049__auto__,superscript_code); }); /** * Given a superscript number converts it into a string representation consisting of unicode superscript characters (digits). */ devtools.munging.make_superscript = (function devtools$munging$make_superscript(superscript){ if(typeof superscript === 'number'){ } else { throw (new Error("Assert failed: (number? superscript)")); } return clojure.string.join.call(null,cljs.core.map.call(null,devtools.munging.char_to_superscript,[cljs.core.str(superscript)].join(''))); }); /** * Given a Javascript name answers if the name was likely generated by ClojureScript. * We use a simple heuristic here: * The name must contain at least two separate dollars because we assume two-segment namespaces. */ devtools.munging.cljs_fn_name_QMARK_ = (function devtools$munging$cljs_fn_name_QMARK_(munged_name){ if(typeof munged_name === 'string'){ return cljs.core.some_QMARK_.call(null,cljs.core.re_matches.call(null,/^[^$]*\$[^$]+\$.*$/,munged_name)); } else { return null; } }); /** * Given a function source code parses out [name args]. Note that both strings are still munged. * Suitable for further processing. * * For exampe for input below the function will return ["devtools_sample$core$hello" "name, unused_param"]: * * function devtools_sample$core$hello(name, unused_param){ * return [cljs.core.str("hello, "),cljs.core.str(name),cljs.core.str("!")].join(''); * } * */ devtools.munging.parse_fn_source = (function devtools$munging$parse_fn_source(fn_source){ var temp__4655__auto__ = cljs.core.second.call(null,cljs.core.re_find.call(null,/function\s(.*?)\{/,fn_source)); if(cljs.core.truth_(temp__4655__auto__)){ var meat = temp__4655__auto__; var temp__4655__auto____$1 = cljs.core.re_find.call(null,/(.*?)\((.*)\)/,meat); if(cljs.core.truth_(temp__4655__auto____$1)){ var match = temp__4655__auto____$1; return cljs.core.rest.call(null,match); } else { return null; } } else { return null; } }); devtools.munging.trivial_fn_source_QMARK_ = (function devtools$munging$trivial_fn_source_QMARK_(fn_source){ if(typeof fn_source === 'string'){ } else { throw (new Error("Assert failed: (string? fn-source)")); } return (cljs.core.some_QMARK_.call(null,cljs.core.re_matches.call(null,/function\s*\(\s*\)\s*\{\s*\}\s*/,fn_source))) || (cljs.core.some_QMARK_.call(null,cljs.core.re_matches.call(null,/function.*\(\)\s*\{\s*\[native code\]\s*\}\s*/,fn_source))); }); /** * Given a Javascript function object returns true if the function looks like a ClojureScript function. * * Uses various heuristics: * 1. must be fn? (is javascript function or satisfies Fn and IFn protocols) * 2. and name must be cljs-fn-name? (name can come from f.name or parsed out of function source) * 3. or if anonymous function, must be non-trivial */ devtools.munging.cljs_fn_QMARK_ = (function devtools$munging$cljs_fn_QMARK_(f){ if(cljs.core.truth_((function (){try{return cljs.core.fn_QMARK_.call(null,f); }catch (e41178){var e__41074__auto__ = e41178; return false; }})())){ var name = goog.object.get(f,cljs.core.name); if(!(cljs.core.empty_QMARK_.call(null,name))){ return devtools.munging.cljs_fn_name_QMARK_.call(null,name); } else { var fn_source = devtools.munging.get_fn_source_safely.call(null,f); var vec__41179 = devtools.munging.parse_fn_source.call(null,fn_source); var name__$1 = cljs.core.nth.call(null,vec__41179,(0),null); if(!(cljs.core.empty_QMARK_.call(null,name__$1))){ return devtools.munging.cljs_fn_name_QMARK_.call(null,name__$1); } else { return cljs.core.not.call(null,devtools.munging.trivial_fn_source_QMARK_.call(null,fn_source)); } } } else { return null; } }); /** * Standard cljs.core/demunge is too agresive in replacing dollars. * This wrapper function works around it by leaving dollars intact. */ devtools.munging.dollar_preserving_demunge = (function devtools$munging$dollar_preserving_demunge(munged_name){ return clojure.string.replace.call(null,cljs.core.demunge.call(null,clojure.string.replace.call(null,munged_name,"$",devtools.munging.dollar_replacement)),devtools.munging.dollar_replacement,"$"); }); devtools.munging.revert_reserved = (function devtools$munging$revert_reserved(s){ var or__25130__auto__ = (function (){var temp__4655__auto__ = cljs.core.re_matches.call(null,/(.*)\$/,s); if(cljs.core.truth_(temp__4655__auto__)){ var m = temp__4655__auto__; if(cljs.core.truth_(devtools.munging.js_reserved_QMARK_.call(null,cljs.core.second.call(null,m)))){ return cljs.core.second.call(null,m); } else { return null; } } else { return null; } })(); if(cljs.core.truth_(or__25130__auto__)){ return or__25130__auto__; } else { return s; } }); devtools.munging.reserved_aware_demunge = (function devtools$munging$reserved_aware_demunge(munged_name){ return devtools.munging.revert_reserved.call(null,devtools.munging.dollar_preserving_demunge.call(null,munged_name)); }); devtools.munging.proper_demunge = (function devtools$munging$proper_demunge(munged_name){ return devtools.munging.reserved_aware_demunge.call(null,munged_name); }); devtools.munging.proper_arg_demunge = (function devtools$munging$proper_arg_demunge(munged_arg_name){ return clojure.string.replace.call(null,devtools.munging.proper_demunge.call(null,munged_arg_name),/^-(.*)$/,"_$1"); }); devtools.munging.proper_ns_demunge = (function devtools$munging$proper_ns_demunge(munged_ns_name){ return clojure.string.replace.call(null,devtools.munging.proper_demunge.call(null,munged_ns_name),"$","."); }); devtools.munging.ns_exists_QMARK_ = (function devtools$munging$ns_exists_QMARK_(ns_module_name){ if(typeof ns_module_name === 'string'){ } else { throw (new Error("Assert failed: (string? ns-module-name)")); } var temp__4655__auto__ = (function (){var temp__4657__auto__ = goog.object.get(window,"goog"); if(cljs.core.truth_(temp__4657__auto__)){ var o__41062__auto__ = temp__4657__auto__; var temp__4657__auto____$1 = goog.object.get(o__41062__auto__,"dependencies_"); if(cljs.core.truth_(temp__4657__auto____$1)){ var o__41061__auto__ = temp__4657__auto____$1; return goog.object.get(o__41061__auto__,"nameToPath"); } else { return null; } } else { return null; } })(); if(cljs.core.truth_(temp__4655__auto__)){ var goog_namespaces = temp__4655__auto__; return cljs.core.some_QMARK_.call(null,goog.object.get(goog_namespaces,ns_module_name)); } else { return null; } }); /** * Given a name broken into namespace parts returns [detected-ns remaining-parts], * where detected-ns is a string representing longest detected existing namespace and * remaining-parts is a vector of remaing input parts not included in the detected-ns concatenation. * * For given input ["cljs" "core" "first"] returns ["cljs.core" ["first"]] (asumming cljs.core exists) */ devtools.munging.detect_namespace_prefix = (function devtools$munging$detect_namespace_prefix(var_args){ var args__26212__auto__ = []; var len__26205__auto___41188 = arguments.length; var i__26206__auto___41189 = (0); while(true){ if((i__26206__auto___41189 < len__26205__auto___41188)){ args__26212__auto__.push((arguments[i__26206__auto___41189])); var G__41190 = (i__26206__auto___41189 + (1)); i__26206__auto___41189 = G__41190; continue; } else { } break; } var argseq__26213__auto__ = ((((1) < args__26212__auto__.length))?(new cljs.core.IndexedSeq(args__26212__auto__.slice((1)),(0),null)):null); return devtools.munging.detect_namespace_prefix.cljs$core$IFn$_invoke$arity$variadic((arguments[(0)]),argseq__26213__auto__); }); devtools.munging.detect_namespace_prefix.cljs$core$IFn$_invoke$arity$variadic = (function (tokens,p__41184){ var vec__41185 = p__41184; var ns_detector = cljs.core.nth.call(null,vec__41185,(0),null); var effective_detector = (function (){var or__25130__auto__ = ns_detector; if(cljs.core.truth_(or__25130__auto__)){ return or__25130__auto__; } else { return devtools.munging.ns_exists_QMARK_; } })(); var name_tokens = cljs.core.PersistentVector.EMPTY; var remaining_tokens = tokens; while(true){ if(cljs.core.empty_QMARK_.call(null,remaining_tokens)){ return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, ["",name_tokens], null); } else { var ns_name = clojure.string.join.call(null,".",remaining_tokens); if(cljs.core.truth_(effective_detector.call(null,ns_name))){ return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [ns_name,name_tokens], null); } else { var G__41191 = cljs.core.concat.call(null,new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [cljs.core.last.call(null,remaining_tokens)], null),name_tokens); var G__41192 = cljs.core.butlast.call(null,remaining_tokens); name_tokens = G__41191; remaining_tokens = G__41192; continue; } } break; } }); devtools.munging.detect_namespace_prefix.cljs$lang$maxFixedArity = (1); devtools.munging.detect_namespace_prefix.cljs$lang$applyTo = (function (seq41182){ var G__41183 = cljs.core.first.call(null,seq41182); var seq41182__$1 = cljs.core.next.call(null,seq41182); return devtools.munging.detect_namespace_prefix.cljs$core$IFn$_invoke$arity$variadic(G__41183,seq41182__$1); }); devtools.munging.normalize_arity = (function devtools$munging$normalize_arity(arity_tokens){ if(!(cljs.core.empty_QMARK_.call(null,arity_tokens))){ var arity = cljs.core.first.call(null,arity_tokens); var G__41194 = arity; switch (G__41194) { case "variadic": return arity; break; default: var o__41049__auto__ = window; return goog.object.get(o__41049__auto__,"parseInt").call(o__41049__auto__,arity,(10)); } } else { return null; } }); devtools.munging.strip_arity = (function devtools$munging$strip_arity(tokens){ var vec__41200 = cljs.core.split_with.call(null,(function (p1__41196_SHARP_){ return cljs.core.not_EQ_.call(null,p1__41196_SHARP_,"arity"); }),tokens); var prefix_tokens = cljs.core.nth.call(null,vec__41200,(0),null); var arity_tokens = cljs.core.nth.call(null,vec__41200,(1),null); return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [prefix_tokens,devtools.munging.normalize_arity.call(null,cljs.core.rest.call(null,arity_tokens))], null); }); devtools.munging.parse_protocol = (function devtools$munging$parse_protocol(tokens,detector){ var remaining_tokens = tokens; var name_tokens = cljs.core.PersistentVector.EMPTY; while(true){ if(cljs.core.empty_QMARK_.call(null,remaining_tokens)){ return new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [name_tokens], null); } else { var vec__41206 = devtools.munging.detect_namespace_prefix.call(null,remaining_tokens,detector); var protocol_ns = cljs.core.nth.call(null,vec__41206,(0),null); var name_and_method_tokens = cljs.core.nth.call(null,vec__41206,(1),null); if(cljs.core.empty_QMARK_.call(null,protocol_ns)){ var G__41209 = cljs.core.rest.call(null,remaining_tokens); var G__41210 = cljs.core.conj.call(null,name_tokens,cljs.core.first.call(null,remaining_tokens)); remaining_tokens = G__41209; name_tokens = G__41210; continue; } else { return new cljs.core.PersistentVector(null, 4, 5, cljs.core.PersistentVector.EMPTY_NODE, [name_tokens,protocol_ns,cljs.core.first.call(null,name_and_method_tokens),cljs.core.rest.call(null,name_and_method_tokens)], null); } } break; } }); /** * Given a munged-name from Javascript lands attempts to break it into: * [fn-ns fn-name protocol-ns protocol-name protocol-method arity]. * * Protocol and arity elements are optional. Function elements are always present or "". * * examples for input: * cljs$core$rest => ['cljs.core', 'rest'] * cljs.core.reduce$cljs$core$IFn$_invoke$arity$3 => ['cljs.core' 'reduce' 'cljs.core' 'IFn' '_invoke' 3] */ devtools.munging.break_munged_name = (function devtools$munging$break_munged_name(var_args){ var args41211 = []; var len__26205__auto___41223 = arguments.length; var i__26206__auto___41224 = (0); while(true){ if((i__26206__auto___41224 < len__26205__auto___41223)){ args41211.push((arguments[i__26206__auto___41224])); var G__41225 = (i__26206__auto___41224 + (1)); i__26206__auto___41224 = G__41225; continue; } else { } break; } var G__41213 = args41211.length; switch (G__41213) { case 1: return devtools.munging.break_munged_name.cljs$core$IFn$_invoke$arity$1((arguments[(0)])); break; case 2: return devtools.munging.break_munged_name.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; default: throw (new Error([cljs.core.str("Invalid arity: "),cljs.core.str(args41211.length)].join(''))); } }); devtools.munging.break_munged_name.cljs$core$IFn$_invoke$arity$1 = (function (munged_name){ return devtools.munging.break_munged_name.call(null,munged_name,null); }); devtools.munging.break_munged_name.cljs$core$IFn$_invoke$arity$2 = (function (munged_name,ns_detector){ if(cljs.core.empty_QMARK_.call(null,munged_name)){ return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, ["",""], null); } else { var effective_detector = (function (){var or__25130__auto__ = ns_detector; if(cljs.core.truth_(or__25130__auto__)){ return or__25130__auto__; } else { return devtools.munging.ns_exists_QMARK_; } })(); var tokens = cljs.core.vec.call(null,munged_name.split(/[$.]/)); var vec__41214 = devtools.munging.strip_arity.call(null,tokens); var tokens__$1 = cljs.core.nth.call(null,vec__41214,(0),null); var arity = cljs.core.nth.call(null,vec__41214,(1),null); var vec__41217 = devtools.munging.detect_namespace_prefix.call(null,tokens__$1,effective_detector); var fn_ns = cljs.core.nth.call(null,vec__41217,(0),null); var tokens__$2 = cljs.core.nth.call(null,vec__41217,(1),null); var vec__41220 = devtools.munging.parse_protocol.call(null,tokens__$2,effective_detector); var fn_name_tokens = cljs.core.nth.call(null,vec__41220,(0),null); var protocol_ns = cljs.core.nth.call(null,vec__41220,(1),null); var protocol_name = cljs.core.nth.call(null,vec__41220,(2),null); var protocol_method_tokens = cljs.core.nth.call(null,vec__41220,(3),null); var fn_name = clojure.string.join.call(null,"$",fn_name_tokens); var protocol_method = (cljs.core.truth_(protocol_method_tokens)?clojure.string.join.call(null,"$",protocol_method_tokens):null); return new cljs.core.PersistentVector(null, 6, 5, cljs.core.PersistentVector.EMPTY_NODE, [fn_ns,fn_name,protocol_ns,protocol_name,protocol_method,arity], null); } }); devtools.munging.break_munged_name.cljs$lang$maxFixedArity = 2; /** * Given a munged-name from Javascript lands attempts to break it into a namespace part and remaining short name. * Then applies appropriate demunging on them and returns ClojureScript versions of the names. */ devtools.munging.break_and_demunge_name = (function devtools$munging$break_and_demunge_name(var_args){ var args41227 = []; var len__26205__auto___41233 = arguments.length; var i__26206__auto___41234 = (0); while(true){ if((i__26206__auto___41234 < len__26205__auto___41233)){ args41227.push((arguments[i__26206__auto___41234])); var G__41235 = (i__26206__auto___41234 + (1)); i__26206__auto___41234 = G__41235; continue; } else { } break; } var G__41229 = args41227.length; switch (G__41229) { case 1: return devtools.munging.break_and_demunge_name.cljs$core$IFn$_invoke$arity$1((arguments[(0)])); break; case 2: return devtools.munging.break_and_demunge_name.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; default: throw (new Error([cljs.core.str("Invalid arity: "),cljs.core.str(args41227.length)].join(''))); } }); devtools.munging.break_and_demunge_name.cljs$core$IFn$_invoke$arity$1 = (function (munged_name){ return devtools.munging.break_and_demunge_name.call(null,munged_name,null); }); devtools.munging.break_and_demunge_name.cljs$core$IFn$_invoke$arity$2 = (function (munged_name,ns_detector){ var result = devtools.munging.break_munged_name.call(null,munged_name,ns_detector); var vec__41230 = result; var munged_ns = cljs.core.nth.call(null,vec__41230,(0),null); var munged_name__$1 = cljs.core.nth.call(null,vec__41230,(1),null); var munged_protocol_ns = cljs.core.nth.call(null,vec__41230,(2),null); var munged_protocol_name = cljs.core.nth.call(null,vec__41230,(3),null); var munged_protocol_method = cljs.core.nth.call(null,vec__41230,(4),null); var arity = cljs.core.nth.call(null,vec__41230,(5),null); return new cljs.core.PersistentVector(null, 6, 5, cljs.core.PersistentVector.EMPTY_NODE, [devtools.munging.proper_ns_demunge.call(null,munged_ns),devtools.munging.proper_demunge.call(null,munged_name__$1),(cljs.core.truth_(munged_protocol_ns)?devtools.munging.proper_ns_demunge.call(null,munged_protocol_ns):null),(cljs.core.truth_(munged_protocol_name)?devtools.munging.proper_demunge.call(null,munged_protocol_name):null),(cljs.core.truth_(munged_protocol_method)?devtools.munging.proper_demunge.call(null,munged_protocol_method):null),arity], null); }); devtools.munging.break_and_demunge_name.cljs$lang$maxFixedArity = 2; /** * Given function source code tries to retrieve [ns name & args] on best effort basis, where * ns is demunged namespace part of the function name (or "" if namespace cannot be detected) * name is demunged short name (or "" if function is anonymous or name cannot be retrieved) * args is optional number of demunged argument names. * * Please note that this function always returns a vector with something. In worst cases ["" ""]. * */ devtools.munging.parse_fn_source_info = (function devtools$munging$parse_fn_source_info(fn_source){ var temp__4655__auto__ = devtools.munging.parse_fn_source.call(null,fn_source); if(cljs.core.truth_(temp__4655__auto__)){ var vec__41243 = temp__4655__auto__; var munged_name = cljs.core.nth.call(null,vec__41243,(0),null); var args = cljs.core.nth.call(null,vec__41243,(1),null); var vec__41246 = devtools.munging.break_and_demunge_name.call(null,munged_name); var ns = cljs.core.nth.call(null,vec__41246,(0),null); var name = cljs.core.nth.call(null,vec__41246,(1),null); var demunged_args = cljs.core.map.call(null,cljs.core.comp.call(null,devtools.munging.proper_arg_demunge,clojure.string.trim),clojure.string.split.call(null,args,/,/)); return cljs.core.concat.call(null,new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [ns,name], null),demunged_args); } else { return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, ["",""], null); } }); /** * Given Javascript function object tries to retrieve [ns name & args] as in parse-fn-source-info (on best effort basis). */ devtools.munging.parse_fn_info = (function devtools$munging$parse_fn_info(f){ var fn_source = devtools.munging.get_fn_source_safely.call(null,f); return devtools.munging.parse_fn_source_info.call(null,fn_source); }); /** * Given a Javascript function object tries to retrieve [ns name & args] as in parse-fn-info (on best effort basis). * * The difference from parse-fn-info is that this function prefers to read args from arities if available. * It recurses arbitrary deep following IFn protocol leads. * * If we hit multi-arity situation in leaf, we don't attempt to list arguments and return ::multi-arity placeholder instead. * * The reason for reading arities is that it gives more accurate parameter names in some cases. * We observed that variadic functions don't always contain original parameter names, but individual IFn arity functions do. */ devtools.munging.parse_fn_info_deep = (function devtools$munging$parse_fn_info_deep(f){ var fn_info = devtools.munging.parse_fn_info.call(null,f); var arities = devtools.munging.collect_fn_arities.call(null,f); if(cljs.core.some_QMARK_.call(null,arities)){ if((cljs.core.count.call(null,arities) > (1))){ return cljs.core.concat.call(null,cljs.core.take.call(null,(2),fn_info),new cljs.core.Keyword("devtools.munging","multi-arity","devtools.munging/multi-arity",-2011705837)); } else { return cljs.core.concat.call(null,cljs.core.take.call(null,(2),fn_info),cljs.core.drop.call(null,(2),devtools$munging$parse_fn_info_deep.call(null,cljs.core.second.call(null,cljs.core.first.call(null,arities))))); } } else { return fn_info; } }); /** * Given a demunged ClojureScript parameter name. Tries to detect human readable part and returns the index where it ends. * Returns nil if no prefix can be detected. * * The idea is to convert macro-generated parameters and other generated names to more friendly names. * We observed that param names generated by gensym have prefix followed by big numbers. * Other generated names contain two dashes after prefix (originally probably using underscores). */ devtools.munging.find_index_of_human_prefix = (function devtools$munging$find_index_of_human_prefix(name){ var sep_start = name.indexOf("--"); var num_prefix = cljs.core.count.call(null,cljs.core.second.call(null,cljs.core.re_find.call(null,/(.*?)\d{2,}/,name))); var finds = cljs.core.filter.call(null,cljs.core.pos_QMARK_,new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [sep_start,num_prefix], null)); if(!(cljs.core.empty_QMARK_.call(null,finds))){ return cljs.core.apply.call(null,cljs.core.min,finds); } else { return null; } }); /** * Given a name and intermediate state. Convert name to a human readable version by keeping human readable prefix with * optional subscribt postfix and store it in ::result. Subscript number is picked based on state. State keeps track of * previously assigned subscripts. Returns a new state. */ devtools.munging.humanize_name = (function devtools$munging$humanize_name(state,name){ var index = devtools.munging.find_index_of_human_prefix.call(null,name); var prefix = (((index > (0)))?name.substring((0),index):name); var temp__4655__auto__ = cljs.core.get.call(null,state,prefix); if(cljs.core.truth_(temp__4655__auto__)){ var subscript = temp__4655__auto__; return cljs.core.update.call(null,cljs.core.update.call(null,state,new cljs.core.Keyword("devtools.munging","result","devtools.munging/result",1642759166),cljs.core.conj,[cljs.core.str(prefix),cljs.core.str(devtools.munging.make_subscript.call(null,subscript))].join('')),prefix,cljs.core.inc); } else { return cljs.core.assoc.call(null,cljs.core.update.call(null,state,new cljs.core.Keyword("devtools.munging","result","devtools.munging/result",1642759166),cljs.core.conj,prefix),prefix,(2)); } }); /** * Given a list of names, returns a list of human-readable versions of those names. * It detects human-readable prefix using a simple heuristics. When names repeat it assigns simple subscripts starting with 2. * Subscripts are assigned left-to-right. * * Given ["p--a" "p--b" "x" "p--c"] returns ["p" "p₂" "x" "p₃"] */ devtools.munging.humanize_names = (function devtools$munging$humanize_names(names){ return cljs.core.with_meta.call(null,new cljs.core.Keyword("devtools.munging","result","devtools.munging/result",1642759166).cljs$core$IFn$_invoke$arity$1(cljs.core.reduce.call(null,devtools.munging.humanize_name,new cljs.core.PersistentArrayMap(null, 1, [new cljs.core.Keyword("devtools.munging","result","devtools.munging/result",1642759166),cljs.core.PersistentVector.EMPTY], null),names)),cljs.core.meta.call(null,names)); }); devtools.munging.collect_fn_fixed_arities = (function devtools$munging$collect_fn_fixed_arities(f,max_arity){ var arity = (0); var collection = cljs.core.PersistentArrayMap.EMPTY; while(true){ if((arity > max_arity)){ return collection; } else { var G__41249 = (arity + (1)); var G__41250 = (function (){var temp__4655__auto__ = devtools.munging.get_fn_fixed_arity.call(null,f,arity); if(cljs.core.truth_(temp__4655__auto__)){ var arity_fn = temp__4655__auto__; return cljs.core.assoc.call(null,collection,arity,arity_fn); } else { return collection; } })(); arity = G__41249; collection = G__41250; continue; } break; } }); devtools.munging.collect_fn_variadic_arities = (function devtools$munging$collect_fn_variadic_arities(f){ var temp__4655__auto__ = devtools.munging.get_fn_variadic_arity.call(null,f); if(cljs.core.truth_(temp__4655__auto__)){ var variadic_arity = temp__4655__auto__; return new cljs.core.PersistentArrayMap(null, 1, [new cljs.core.Keyword("devtools.munging","variadic","devtools.munging/variadic",1596047908),variadic_arity], null); } else { return null; } }); devtools.munging.review_arity = (function devtools$munging$review_arity(p__41251){ var vec__41255 = p__41251; var arity = cljs.core.nth.call(null,vec__41255,(0),null); var arity_fn = cljs.core.nth.call(null,vec__41255,(1),null); var sub_arities = devtools.munging.collect_fn_arities.call(null,arity_fn); if(cljs.core.truth_(new cljs.core.Keyword("devtools.munging","variadic","devtools.munging/variadic",1596047908).cljs$core$IFn$_invoke$arity$1(sub_arities))){ return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [new cljs.core.Keyword("devtools.munging","variadic","devtools.munging/variadic",1596047908),arity_fn], null); } else { return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [arity,arity_fn], null); } }); /** * Some arities can be marked as fixed arity but in fact point to a variadic-arity function. We want to detect this case * and turn such improperly categorized arities to ::variadic. */ devtools.munging.review_arities = (function devtools$munging$review_arities(arities){ if(cljs.core.truth_(new cljs.core.Keyword("devtools.munging","variadic","devtools.munging/variadic",1596047908).cljs$core$IFn$_invoke$arity$1(arities))){ return arities; } else { return cljs.core.into.call(null,cljs.core.PersistentArrayMap.EMPTY,cljs.core.map.call(null,devtools.munging.review_arity,arities)); } }); /** * Given a Javascript function object, tries to inspect known arity properties generated by ClojureScript compiler and * collects all available arity functions into a map. Arities are keyed by arity count and variadic arity gets ::variadic key. */ devtools.munging.collect_fn_arities = (function devtools$munging$collect_fn_arities(f){ var max_fixed_arity = devtools.munging.get_fn_max_fixed_arity.call(null,f); var fixed_arities = devtools.munging.collect_fn_fixed_arities.call(null,f,(function (){var or__25130__auto__ = max_fixed_arity; if(cljs.core.truth_(or__25130__auto__)){ return or__25130__auto__; } else { return devtools.munging.max_fixed_arity_to_scan; } })()); var variadic_arities = devtools.munging.collect_fn_variadic_arities.call(null,f); var arities = devtools.munging.review_arities.call(null,cljs.core.merge.call(null,fixed_arities,variadic_arities)); if(!(cljs.core.empty_QMARK_.call(null,arities))){ return arities; } else { return null; } }); /** * ::variadic goes last, other keywords compare by name. */ devtools.munging.arity_keywords_comparator = (function devtools$munging$arity_keywords_comparator(x,y){ if(cljs.core._EQ_.call(null,new cljs.core.Keyword("devtools.munging","variadic","devtools.munging/variadic",1596047908),x)){ return (1); } else { if(cljs.core._EQ_.call(null,new cljs.core.Keyword("devtools.munging","variadic","devtools.munging/variadic",1596047908),y)){ return (-1); } else { return cljs.core.compare.call(null,cljs.core.name.call(null,x),cljs.core.name.call(null,y)); } } }); /** * numbers go first (ordered), then keywords (ordered by name), and then ::variadic sticks last */ devtools.munging.arities_key_comparator = (function devtools$munging$arities_key_comparator(x,y){ var kx_QMARK_ = (x instanceof cljs.core.Keyword); var ky_QMARK_ = (y instanceof cljs.core.Keyword); if((kx_QMARK_) && (ky_QMARK_)){ return devtools.munging.arity_keywords_comparator.call(null,x,y); } else { if(kx_QMARK_){ return (1); } else { if(ky_QMARK_){ return (-1); } else { return cljs.core.compare.call(null,x,y); } } } }); devtools.munging.arities_to_args_lists_STAR_ = (function devtools$munging$arities_to_args_lists_STAR_(arities){ var sorted_keys = cljs.core.sort.call(null,devtools.munging.arities_key_comparator,cljs.core.keys.call(null,arities)); var sorted_fns = cljs.core.map.call(null,((function (sorted_keys){ return (function (p1__41258_SHARP_){ return cljs.core.get.call(null,arities,p1__41258_SHARP_); });})(sorted_keys)) ,sorted_keys); var sorted_infos = cljs.core.map.call(null,devtools.munging.parse_fn_info_deep,sorted_fns); var sorted_args_lists = cljs.core.map.call(null,((function (sorted_keys,sorted_fns,sorted_infos){ return (function (p1__41259_SHARP_){ return cljs.core.drop.call(null,(2),p1__41259_SHARP_); });})(sorted_keys,sorted_fns,sorted_infos)) ,sorted_infos); if(cljs.core._EQ_.call(null,cljs.core.last.call(null,sorted_keys),new cljs.core.Keyword("devtools.munging","variadic","devtools.munging/variadic",1596047908))){ return cljs.core.concat.call(null,cljs.core.butlast.call(null,sorted_args_lists),new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [cljs.core.vary_meta.call(null,cljs.core.last.call(null,sorted_args_lists),cljs.core.assoc,new cljs.core.Keyword("devtools.munging","variadic","devtools.munging/variadic",1596047908),true)], null)); } else { return sorted_args_lists; } }); /** * Given a map of arity functions. Tries to parse individual functions and prepare an arguments list for each arity. * Returned list of arguments list is sorted by arity count, variadic arity goes last if available. * * The function also optionally humanizes argument names in each arguments list if requested. */ devtools.munging.arities_to_args_lists = (function devtools$munging$arities_to_args_lists(var_args){ var args__26212__auto__ = []; var len__26205__auto___41266 = arguments.length; var i__26206__auto___41267 = (0); while(true){ if((i__26206__auto___41267 < len__26205__auto___41266)){ args__26212__auto__.push((arguments[i__26206__auto___41267])); var G__41268 = (i__26206__auto___41267 + (1)); i__26206__auto___41267 = G__41268; continue; } else { } break; } var argseq__26213__auto__ = ((((1) < args__26212__auto__.length))?(new cljs.core.IndexedSeq(args__26212__auto__.slice((1)),(0),null)):null); return devtools.munging.arities_to_args_lists.cljs$core$IFn$_invoke$arity$variadic((arguments[(0)]),argseq__26213__auto__); }); devtools.munging.arities_to_args_lists.cljs$core$IFn$_invoke$arity$variadic = (function (arities,p__41262){ var vec__41263 = p__41262; var humanize_QMARK_ = cljs.core.nth.call(null,vec__41263,(0),null); var args_lists = devtools.munging.arities_to_args_lists_STAR_.call(null,arities); if(cljs.core.truth_(humanize_QMARK_)){ return cljs.core.map.call(null,devtools.munging.humanize_names,args_lists); } else { return args_lists; } }); devtools.munging.arities_to_args_lists.cljs$lang$maxFixedArity = (1); devtools.munging.arities_to_args_lists.cljs$lang$applyTo = (function (seq41260){ var G__41261 = cljs.core.first.call(null,seq41260); var seq41260__$1 = cljs.core.next.call(null,seq41260); return devtools.munging.arities_to_args_lists.cljs$core$IFn$_invoke$arity$variadic(G__41261,seq41260__$1); }); /** * Converts a list of arguments lists into a list of strings suitable for UI presentation. */ devtools.munging.args_lists_to_strings = (function devtools$munging$args_lists_to_strings(args_lists,spacer_symbol,multi_arity_symbol,rest_symbol){ var string_mapper = (function (arg){ var G__41270 = (((arg instanceof cljs.core.Keyword))?arg.fqn:null); switch (G__41270) { case "devtools.munging/multi-arity": return multi_arity_symbol; break; default: return arg; } }); var printer = ((function (string_mapper){ return (function (args_list){ var variadic_QMARK_ = new cljs.core.Keyword("devtools.munging","variadic","devtools.munging/variadic",1596047908).cljs$core$IFn$_invoke$arity$1(cljs.core.meta.call(null,args_list)); var args_strings = cljs.core.map.call(null,string_mapper,args_list); return [cljs.core.str(clojure.string.join.call(null,spacer_symbol,cljs.core.butlast.call(null,args_strings))),cljs.core.str((cljs.core.truth_(variadic_QMARK_)?rest_symbol:spacer_symbol)),cljs.core.str(cljs.core.last.call(null,args_strings))].join(''); });})(string_mapper)) ; return cljs.core.map.call(null,clojure.string.trim,cljs.core.map.call(null,printer,args_lists)); }); devtools.munging.extract_arities = (function devtools$munging$extract_arities(f,humanize_QMARK_,spacer_symbol,multi_arity_symbol,rest_symbol){ return devtools.munging.args_lists_to_strings.call(null,devtools.munging.arities_to_args_lists.call(null,(function (){var or__25130__auto__ = devtools.munging.collect_fn_arities.call(null,f); if(cljs.core.truth_(or__25130__auto__)){ return or__25130__auto__; } else { return new cljs.core.PersistentArrayMap(null, 1, [new cljs.core.Keyword(null,"naked","naked",373474222),f], null); } })(),humanize_QMARK_),spacer_symbol,multi_arity_symbol,rest_symbol); }); devtools.munging.common_protocol_QMARK_ = (function devtools$munging$common_protocol_QMARK_(protocol_ns,protocol_name){ return (cljs.core._EQ_.call(null,protocol_ns,"cljs.core")) && (cljs.core._EQ_.call(null,protocol_name,"IFn")); }); devtools.munging.present_fn_part = (function devtools$munging$present_fn_part(fn_ns,fn_name,include_ns_QMARK_){ return [cljs.core.str((cljs.core.truth_((function (){var and__25118__auto__ = include_ns_QMARK_; if(cljs.core.truth_(and__25118__auto__)){ return !(cljs.core.empty_QMARK_.call(null,fn_ns)); } else { return and__25118__auto__; } })())?[cljs.core.str(fn_ns),cljs.core.str("/")].join(''):null)),cljs.core.str(fn_name)].join(''); }); devtools.munging.present_protocol_part = (function devtools$munging$present_protocol_part(protocol_ns,protocol_name,protocol_method,include_protocol_ns_QMARK_){ return [cljs.core.str((cljs.core.truth_(include_protocol_ns_QMARK_)?protocol_ns:null)),cljs.core.str(((!(cljs.core.empty_QMARK_.call(null,protocol_name)))?[cljs.core.str((cljs.core.truth_(include_protocol_ns_QMARK_)?".":null)),cljs.core.str(protocol_name)].join(''):null)),cljs.core.str(((!(cljs.core.empty_QMARK_.call(null,protocol_method)))?[cljs.core.str((cljs.core.truth_((function (){var or__25130__auto__ = include_protocol_ns_QMARK_; if(cljs.core.truth_(or__25130__auto__)){ return or__25130__auto__; } else { return !(cljs.core.empty_QMARK_.call(null,protocol_name)); } })())?":":null)),cljs.core.str(protocol_method)].join(''):null))].join(''); }); /** * Given javascript function name tries to present it as plain string for display in UI on best effort basis. */ devtools.munging.present_function_name = (function devtools$munging$present_function_name(munged_name,options){ var map__41277 = options; var map__41277__$1 = ((((!((map__41277 == null)))?((((map__41277.cljs$lang$protocol_mask$partition0$ & (64))) || (map__41277.cljs$core$ISeq$))?true:false):false))?cljs.core.apply.call(null,cljs.core.hash_map,map__41277):map__41277); var include_ns_QMARK_ = cljs.core.get.call(null,map__41277__$1,new cljs.core.Keyword(null,"include-ns?","include-ns?",-341372810)); var include_protocol_ns_QMARK_ = cljs.core.get.call(null,map__41277__$1,new cljs.core.Keyword(null,"include-protocol-ns?","include-protocol-ns?",989250951)); var silence_common_protocols_QMARK_ = cljs.core.get.call(null,map__41277__$1,new cljs.core.Keyword(null,"silence-common-protocols?","silence-common-protocols?",2012431893)); var ns_detector = cljs.core.get.call(null,map__41277__$1,new cljs.core.Keyword(null,"ns-detector","ns-detector",-2041592760)); var vec__41278 = devtools.munging.break_and_demunge_name.call(null,munged_name,ns_detector); var fn_ns = cljs.core.nth.call(null,vec__41278,(0),null); var fn_name = cljs.core.nth.call(null,vec__41278,(1),null); var protocol_ns = cljs.core.nth.call(null,vec__41278,(2),null); var protocol_name = cljs.core.nth.call(null,vec__41278,(3),null); var protocol_method = cljs.core.nth.call(null,vec__41278,(4),null); var arity = cljs.core.nth.call(null,vec__41278,(5),null); var arity_str = ((cljs.core.some_QMARK_.call(null,arity))?((cljs.core._EQ_.call(null,arity,"variadic"))?"\u207F":devtools.munging.make_superscript.call(null,arity)):null); if(cljs.core.empty_QMARK_.call(null,fn_name)){ return munged_name; } else { var fn_part = devtools.munging.present_fn_part.call(null,fn_ns,fn_name,include_ns_QMARK_); var protocol_part = (cljs.core.truth_((function (){var and__25118__auto__ = protocol_ns; if(cljs.core.truth_(and__25118__auto__)){ return cljs.core.not.call(null,(function (){var and__25118__auto____$1 = silence_common_protocols_QMARK_; if(cljs.core.truth_(and__25118__auto____$1)){ return devtools.munging.common_protocol_QMARK_.call(null,protocol_ns,protocol_name); } else { return and__25118__auto____$1; } })()); } else { return and__25118__auto__; } })())?devtools.munging.present_protocol_part.call(null,protocol_ns,protocol_name,protocol_method,include_protocol_ns_QMARK_):null); return [cljs.core.str((function (){var or__25130__auto__ = protocol_part; if(cljs.core.truth_(or__25130__auto__)){ return or__25130__auto__; } else { return fn_part; } })()),cljs.core.str(arity_str),cljs.core.str((cljs.core.truth_(protocol_part)?[cljs.core.str(" ("),cljs.core.str(fn_part),cljs.core.str(")")].join(''):null))].join(''); } }); devtools.munging.get_basis = (function devtools$munging$get_basis(f){ var o__41049__auto__ = f; return goog.object.get(o__41049__auto__,"getBasis").call(o__41049__auto__); }); /** * Given a Javascript constructor function tries to retrieve [ns name basis]. Returns nil if not a cljs type. */ devtools.munging.parse_constructor_info = (function devtools$munging$parse_constructor_info(f){ if(cljs.core.truth_((function (){var and__25118__auto__ = goog.isObject(f); if(cljs.core.truth_(and__25118__auto__)){ return goog.object.get(f,"cljs$lang$type"); } else { return and__25118__auto__; } })())){ var type_name = devtools.munging.get_type_name.call(null,f); var parts = type_name.split(/\//); var basis = (function (){try{return devtools.munging.get_basis.call(null,f); }catch (e41283){var e__41074__auto__ = e41283; return cljs.core.PersistentVector.EMPTY; }})(); if((cljs.core.count.call(null,parts) <= (2))){ } else { throw (new Error("Assert failed: (<= (count parts) 2)")); } while(true){ if((cljs.core.count.call(null,parts) < (2))){ parts.unshift(null); continue; } else { } break; } return cljs.core.conj.call(null,cljs.core.vec.call(null,parts),basis); } else { return null; } }); devtools.munging.protocol_path = (function devtools$munging$protocol_path(protocol_selector){ return clojure.string.split.call(null,protocol_selector,/\./); }); devtools.munging.get_protocol_object = (function devtools$munging$get_protocol_object(protocol_selector){ var obj = window; var path = devtools.munging.protocol_path.call(null,protocol_selector); while(true){ if(cljs.core.empty_QMARK_.call(null,path)){ return obj; } else { if(cljs.core.truth_(goog.isObject(obj))){ var G__41284 = goog.object.get(obj,cljs.core.first.call(null,path)); var G__41285 = cljs.core.rest.call(null,path); obj = G__41284; path = G__41285; continue; } else { return null; } } break; } }); devtools.munging.protocol_exists_QMARK_ = (function devtools$munging$protocol_exists_QMARK_(protocol_selector){ return cljs.core.some_QMARK_.call(null,devtools.munging.get_protocol_object.call(null,protocol_selector)); }); devtools.munging.get_protocol_selector = (function devtools$munging$get_protocol_selector(key){ var temp__4655__auto__ = cljs.core.re_matches.call(null,/(.*)\$$/,key); if(cljs.core.truth_(temp__4655__auto__)){ var m = temp__4655__auto__; if(!(clojure.string.includes_QMARK_.call(null,key,"cljs$lang$protocol_mask$partition"))){ var protocol_selector = clojure.string.replace.call(null,cljs.core.second.call(null,m),"$","."); if(cljs.core.truth_(devtools.munging.protocol_exists_QMARK_.call(null,protocol_selector))){ return protocol_selector; } else { return null; } } else { return null; } } else { return null; } }); devtools.munging.demunge_protocol_selector = (function devtools$munging$demunge_protocol_selector(protocol_selector){ var parts = cljs.core.map.call(null,devtools.munging.proper_demunge,devtools.munging.protocol_path.call(null,protocol_selector)); var _ = (((cljs.core.count.call(null,parts) >= (2)))?null:(function(){throw (new Error([cljs.core.str("Assert failed: "),cljs.core.str([cljs.core.str("expected protocol selector to contain at least one dot: '"),cljs.core.str(protocol_selector),cljs.core.str("'")].join('')),cljs.core.str("\n"),cljs.core.str("(>= (count parts) 2)")].join('')))})()); var ns = clojure.string.join.call(null,".",cljs.core.butlast.call(null,parts)); var name = cljs.core.last.call(null,parts); return new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, [ns,name,protocol_selector], null); }); devtools.munging.fast_path_protocols_lookup_table = new cljs.core.PersistentArrayMap(null, 2, [(0),cljs.core.PersistentHashMap.fromArrays([(8192),(4096),(524288),(128),(1048576),(1),(32768),(4),(268435456),(512),(33554432),(32),(256),(1024),(134217728),(16777216),(64),(262144),(2),(4194304),(131072),(67108864),(8388608),(16),(2097152),(1073741824),(2147483648),(2048),(8),(65536),(16384)],[new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IStack","cljs.core.IStack"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ISet","cljs.core.ISet"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IReduce","cljs.core.IReduce"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","INext","cljs.core.INext"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IKVReduce","cljs.core.IKVReduce"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IFn","cljs.core.IFn"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IDeref","cljs.core.IDeref"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IEmptyableCollection","cljs.core.IEmptyableCollection"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ISorted","cljs.core.ISorted"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IAssociative","cljs.core.IAssociative"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IList","cljs.core.IList"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ASeq","cljs.core.ASeq"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ILookup","cljs.core.ILookup"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IMap","cljs.core.IMap"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IReversible","cljs.core.IReversible"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ISequential","cljs.core.ISequential"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ISeq","cljs.core.ISeq"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IWithMeta","cljs.core.IWithMeta"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ICounted","cljs.core.ICounted"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IHash","cljs.core.IHash"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IMeta","cljs.core.IMeta"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IRecord","cljs.core.IRecord"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ISeqable","cljs.core.ISeqable"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IIndexed","cljs.core.IIndexed"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IEquiv","cljs.core.IEquiv"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IWriter","cljs.core.IWriter"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IPrintWithWriter","cljs.core.IPrintWithWriter"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IMapEntry","cljs.core.IMapEntry"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ICollection","cljs.core.ICollection"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IDerefWithTimeout","cljs.core.IDerefWithTimeout"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IVector","cljs.core.IVector"], null)]),(1),cljs.core.PersistentHashMap.fromArrays([(8192),(4096),(128),(1),(32768),(4),(512),(32),(256),(1024),(64),(2),(16),(2048),(8),(65536),(16384)],[new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ICloneable","cljs.core.ICloneable"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","INamed","cljs.core.INamed"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ITransientSet","cljs.core.ITransientSet"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IPending","cljs.core.IPending"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IReset","cljs.core.IReset"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IEditableCollection","cljs.core.IEditableCollection"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IChunkedSeq","cljs.core.IChunkedSeq"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ITransientMap","cljs.core.ITransientMap"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IMultiFn","cljs.core.IMultiFn"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IChunkedNext","cljs.core.IChunkedNext"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ITransientVector","cljs.core.ITransientVector"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IWatchable","cljs.core.IWatchable"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ITransientAssociative","cljs.core.ITransientAssociative"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IComparable","cljs.core.IComparable"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ITransientCollection","cljs.core.ITransientCollection"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","ISwap","cljs.core.ISwap"], null),new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, ["cljs.core","IAtom","cljs.core.IAtom"], null)])], null); devtools.munging.key_for_protocol_partition = (function devtools$munging$key_for_protocol_partition(partition){ return [cljs.core.str("cljs$lang$protocol_mask$partition"),cljs.core.str(partition),cljs.core.str("$")].join(''); }); devtools.munging.scan_fast_path_protocols_partition = (function devtools$munging$scan_fast_path_protocols_partition(obj,partition){ if(typeof partition === 'number'){ } else { throw (new Error("Assert failed: (number? partition)")); } var partition_key = devtools.munging.key_for_protocol_partition.call(null,partition); var partition_bits = (function (){var or__25130__auto__ = goog.object.get(obj,partition_key); if(cljs.core.truth_(or__25130__auto__)){ return or__25130__auto__; } else { return (0); } })(); if((partition_bits > (0))){ var lookup_table = cljs.core.get.call(null,devtools.munging.fast_path_protocols_lookup_table,partition); var _ = ((cljs.core.map_QMARK_.call(null,lookup_table))?null:(function(){throw (new Error([cljs.core.str("Assert failed: "),cljs.core.str([cljs.core.str("fast-path-protocols-lookup-table does not contain lookup table for partition "),cljs.core.str(partition)].join('')),cljs.core.str("\n"),cljs.core.str("(map? lookup-table)")].join('')))})()); var _STAR_ = ((function (lookup_table,_,partition_key,partition_bits){ return (function (accum,p__41290){ var vec__41291 = p__41290; var bit = cljs.core.nth.call(null,vec__41291,(0),null); var protocol = cljs.core.nth.call(null,vec__41291,(1),null); if(((partition_bits & bit) === (0))){ return accum; } else { return cljs.core.conj.call(null,accum,protocol); } });})(lookup_table,_,partition_key,partition_bits)) ; return cljs.core.reduce.call(null,_STAR_,cljs.core.PersistentVector.EMPTY,lookup_table); } else { return null; } }); devtools.munging.scan_fast_path_protocols = (function devtools$munging$scan_fast_path_protocols(obj){ return cljs.core.apply.call(null,cljs.core.concat,cljs.core.map.call(null,cljs.core.partial.call(null,devtools.munging.scan_fast_path_protocols_partition,obj),cljs.core.range.call(null,(2)))); }); devtools.munging.scan_slow_path_protocols = (function devtools$munging$scan_slow_path_protocols(obj){ var keys = goog.object.getKeys(obj); var selectors = cljs.core.keep.call(null,devtools.munging.get_protocol_selector,keys); return cljs.core.map.call(null,devtools.munging.demunge_protocol_selector,selectors); }); devtools.munging.make_protocol_descriptor = (function devtools$munging$make_protocol_descriptor(ns,name,selector,fast_QMARK_){ return new cljs.core.PersistentArrayMap(null, 4, [new cljs.core.Keyword(null,"ns","ns",441598760),ns,new cljs.core.Keyword(null,"name","name",1843675177),name,new cljs.core.Keyword(null,"selector","selector",762528866),selector,new cljs.core.Keyword(null,"fast?","fast?",-1813307150),fast_QMARK_], null); }); devtools.munging.convert_to_protocol_descriptor = (function devtools$munging$convert_to_protocol_descriptor(fast_QMARK_,p__41294){ var vec__41298 = p__41294; var ns = cljs.core.nth.call(null,vec__41298,(0),null); var name = cljs.core.nth.call(null,vec__41298,(1),null); var selector = cljs.core.nth.call(null,vec__41298,(2),null); return devtools.munging.make_protocol_descriptor.call(null,ns,name,selector,fast_QMARK_); }); devtools.munging.protocol_descriptors_comparator = (function devtools$munging$protocol_descriptors_comparator(a,b){ return cljs.core.compare.call(null,new cljs.core.Keyword(null,"name","name",1843675177).cljs$core$IFn$_invoke$arity$1(a),new cljs.core.Keyword(null,"name","name",1843675177).cljs$core$IFn$_invoke$arity$1(b)); }); devtools.munging.scan_protocols = (function devtools$munging$scan_protocols(obj){ var fast_path_protocols = cljs.core.map.call(null,cljs.core.partial.call(null,devtools.munging.convert_to_protocol_descriptor,true),devtools.munging.scan_fast_path_protocols.call(null,obj)); var slow_path_protocols = cljs.core.map.call(null,cljs.core.partial.call(null,devtools.munging.convert_to_protocol_descriptor,false),devtools.munging.scan_slow_path_protocols.call(null,obj)); var all_protocols = cljs.core.concat.call(null,fast_path_protocols,slow_path_protocols); return cljs.core.sort.call(null,devtools.munging.protocol_descriptors_comparator,all_protocols); }); devtools.munging.collect_protocol_methods = (function devtools$munging$collect_protocol_methods(obj,protocol_selector){ var key_prefix = clojure.string.replace.call(null,protocol_selector,/\./,"\\$"); var pattern = cljs.core.re_pattern.call(null,[cljs.core.str("^"),cljs.core.str(key_prefix),cljs.core.str("\\$(.*)\\$arity\\$(\\d+)$")].join('')); var all_keys = goog.object.getKeys(obj); var matches = cljs.core.keep.call(null,cljs.core.partial.call(null,cljs.core.re_matches,pattern),all_keys); var methods$ = cljs.core.group_by.call(null,cljs.core.second,matches); var match_to_arity = ((function (key_prefix,pattern,all_keys,matches,methods$){ return (function (match){ var arity = cljs.core.nth.call(null,match,(2)); var o__41049__auto__ = window; return goog.object.get(o__41049__auto__,"parseInt").call(o__41049__auto__,arity,(10)); });})(key_prefix,pattern,all_keys,matches,methods$)) ; var match_arity_comparator = ((function (key_prefix,pattern,all_keys,matches,methods$,match_to_arity){ return (function (a,b){ return cljs.core.compare.call(null,match_to_arity.call(null,a),match_to_arity.call(null,b)); });})(key_prefix,pattern,all_keys,matches,methods$,match_to_arity)) ; var post_process = ((function (key_prefix,pattern,all_keys,matches,methods$,match_to_arity,match_arity_comparator){ return (function (p__41306){ var vec__41307 = p__41306; var munged_name = cljs.core.nth.call(null,vec__41307,(0),null); var matches__$1 = cljs.core.nth.call(null,vec__41307,(1),null); var name = devtools.munging.proper_demunge.call(null,munged_name); var sorted_matches = cljs.core.sort.call(null,match_arity_comparator,matches__$1); var sorted_fns = cljs.core.map.call(null,((function (name,sorted_matches,vec__41307,munged_name,matches__$1,key_prefix,pattern,all_keys,matches,methods$,match_to_arity,match_arity_comparator){ return (function (p1__41301_SHARP_){ return goog.object.get(obj,cljs.core.first.call(null,p1__41301_SHARP_)); });})(name,sorted_matches,vec__41307,munged_name,matches__$1,key_prefix,pattern,all_keys,matches,methods$,match_to_arity,match_arity_comparator)) ,sorted_matches); return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [name,sorted_fns], null); });})(key_prefix,pattern,all_keys,matches,methods$,match_to_arity,match_arity_comparator)) ; var by_name_comparator = ((function (key_prefix,pattern,all_keys,matches,methods$,match_to_arity,match_arity_comparator,post_process){ return (function (a,b){ return cljs.core.compare.call(null,cljs.core.first.call(null,a),cljs.core.first.call(null,b)); });})(key_prefix,pattern,all_keys,matches,methods$,match_to_arity,match_arity_comparator,post_process)) ; return cljs.core.sort.call(null,by_name_comparator,cljs.core.map.call(null,post_process,methods$)); }); //# sourceMappingURL=munging.js.map?rel=1603199211712