UNPKG

mini-program-cljs

Version:

437 lines (402 loc) 19.8 kB
goog.provide('cljs.reader'); goog.require('cljs.core'); goog.require('goog.object'); goog.require('cljs.tools.reader'); goog.require('cljs.tools.reader.edn'); goog.require('goog.string.StringBuffer'); cljs.reader.zero_fill_right_and_truncate = (function cljs$reader$zero_fill_right_and_truncate(s,width){ if(cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(width,cljs.core.count(s))){ return s; } else { if((width < cljs.core.count(s))){ return cljs.core.subs.cljs$core$IFn$_invoke$arity$3(s,(0),width); } else { var b = (new goog.string.StringBuffer(s)); while(true){ if((b.getLength() < width)){ var G__33567 = b.append("0"); b = G__33567; continue; } else { return b.toString(); } break; } } } }); cljs.reader.divisible_QMARK_ = (function cljs$reader$divisible_QMARK_(num,div){ return (cljs.core.mod(num,div) === (0)); }); cljs.reader.indivisible_QMARK_ = (function cljs$reader$indivisible_QMARK_(num,div){ return (!(cljs.reader.divisible_QMARK_(num,div))); }); cljs.reader.leap_year_QMARK_ = (function cljs$reader$leap_year_QMARK_(year){ return ((cljs.reader.divisible_QMARK_(year,(4))) && (((cljs.reader.indivisible_QMARK_(year,(100))) || (cljs.reader.divisible_QMARK_(year,(400)))))); }); cljs.reader.days_in_month = (function (){var dim_norm = new cljs.core.PersistentVector(null, 13, 5, cljs.core.PersistentVector.EMPTY_NODE, [null,(31),(28),(31),(30),(31),(30),(31),(31),(30),(31),(30),(31)], null); var dim_leap = new cljs.core.PersistentVector(null, 13, 5, cljs.core.PersistentVector.EMPTY_NODE, [null,(31),(29),(31),(30),(31),(30),(31),(31),(30),(31),(30),(31)], null); return (function (month,leap_year_QMARK_){ return cljs.core.get.cljs$core$IFn$_invoke$arity$2((cljs.core.truth_(leap_year_QMARK_)?dim_leap:dim_norm),month); }); })(); cljs.reader.timestamp_regex = /(\d\d\d\d)(?:-(\d\d)(?:-(\d\d)(?:[T](\d\d)(?::(\d\d)(?::(\d\d)(?:[.](\d+))?)?)?)?)?)?(?:[Z]|([-+])(\d\d):(\d\d))?/; cljs.reader.parse_int = (function cljs$reader$parse_int(s){ var n = parseInt(s,(10)); if(cljs.core.not(isNaN(n))){ return n; } else { return null; } }); cljs.reader.check = (function cljs$reader$check(low,n,high,msg){ if((((low <= n)) && ((n <= high)))){ } else { throw (new Error([cljs.core.str.cljs$core$IFn$_invoke$arity$1(msg)," Failed: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(low),"<=",cljs.core.str.cljs$core$IFn$_invoke$arity$1(n),"<=",cljs.core.str.cljs$core$IFn$_invoke$arity$1(high)].join(''))); } return n; }); cljs.reader.parse_and_validate_timestamp = (function cljs$reader$parse_and_validate_timestamp(s){ var vec__33501 = cljs.core.re_matches(cljs.reader.timestamp_regex,s); var _ = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33501,(0),null); var years = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33501,(1),null); var months = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33501,(2),null); var days = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33501,(3),null); var hours = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33501,(4),null); var minutes = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33501,(5),null); var seconds = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33501,(6),null); var fraction = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33501,(7),null); var offset_sign = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33501,(8),null); var offset_hours = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33501,(9),null); var offset_minutes = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33501,(10),null); var v = vec__33501; if(cljs.core.not(v)){ throw (new Error(["Unrecognized date/time syntax: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(s)].join(''))); } else { var years__$1 = cljs.reader.parse_int(years); var months__$1 = (function (){var or__4185__auto__ = cljs.reader.parse_int(months); if(cljs.core.truth_(or__4185__auto__)){ return or__4185__auto__; } else { return (1); } })(); var days__$1 = (function (){var or__4185__auto__ = cljs.reader.parse_int(days); if(cljs.core.truth_(or__4185__auto__)){ return or__4185__auto__; } else { return (1); } })(); var hours__$1 = (function (){var or__4185__auto__ = cljs.reader.parse_int(hours); if(cljs.core.truth_(or__4185__auto__)){ return or__4185__auto__; } else { return (0); } })(); var minutes__$1 = (function (){var or__4185__auto__ = cljs.reader.parse_int(minutes); if(cljs.core.truth_(or__4185__auto__)){ return or__4185__auto__; } else { return (0); } })(); var seconds__$1 = (function (){var or__4185__auto__ = cljs.reader.parse_int(seconds); if(cljs.core.truth_(or__4185__auto__)){ return or__4185__auto__; } else { return (0); } })(); var fraction__$1 = (function (){var or__4185__auto__ = cljs.reader.parse_int(cljs.reader.zero_fill_right_and_truncate(fraction,(3))); if(cljs.core.truth_(or__4185__auto__)){ return or__4185__auto__; } else { return (0); } })(); var offset_sign__$1 = ((cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(offset_sign,"-"))?(-1):(1)); var offset_hours__$1 = (function (){var or__4185__auto__ = cljs.reader.parse_int(offset_hours); if(cljs.core.truth_(or__4185__auto__)){ return or__4185__auto__; } else { return (0); } })(); var offset_minutes__$1 = (function (){var or__4185__auto__ = cljs.reader.parse_int(offset_minutes); if(cljs.core.truth_(or__4185__auto__)){ return or__4185__auto__; } else { return (0); } })(); var offset = (offset_sign__$1 * ((offset_hours__$1 * (60)) + offset_minutes__$1)); return new cljs.core.PersistentVector(null, 8, 5, cljs.core.PersistentVector.EMPTY_NODE, [years__$1,cljs.reader.check((1),months__$1,(12),"timestamp month field must be in range 1..12"),cljs.reader.check((1),days__$1,cljs.reader.days_in_month(months__$1,cljs.reader.leap_year_QMARK_(years__$1)),"timestamp day field must be in range 1..last day in month"),cljs.reader.check((0),hours__$1,(23),"timestamp hour field must be in range 0..23"),cljs.reader.check((0),minutes__$1,(59),"timestamp minute field must be in range 0..59"),cljs.reader.check((0),seconds__$1,((cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(minutes__$1,(59)))?(60):(59)),"timestamp second field must be in range 0..60"),cljs.reader.check((0),fraction__$1,(999),"timestamp millisecond field must be in range 0..999"),offset], null); } }); cljs.reader.parse_timestamp = (function cljs$reader$parse_timestamp(ts){ var temp__5733__auto__ = cljs.reader.parse_and_validate_timestamp(ts); if(cljs.core.truth_(temp__5733__auto__)){ var vec__33504 = temp__5733__auto__; var years = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33504,(0),null); var months = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33504,(1),null); var days = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33504,(2),null); var hours = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33504,(3),null); var minutes = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33504,(4),null); var seconds = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33504,(5),null); var ms = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33504,(6),null); var offset = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33504,(7),null); return (new Date((Date.UTC(years,(months - (1)),days,hours,minutes,seconds,ms) - ((offset * (60)) * (1000))))); } else { throw (new Error(["Unrecognized date/time syntax: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(ts)].join(''))); } }); cljs.reader.read_date = (function cljs$reader$read_date(s){ if(typeof s === 'string'){ return cljs.reader.parse_timestamp(s); } else { throw (new Error("Instance literal expects a string for its timestamp.")); } }); cljs.reader.read_queue = (function cljs$reader$read_queue(elems){ if(cljs.core.vector_QMARK_(elems)){ return cljs.core.into.cljs$core$IFn$_invoke$arity$2(cljs.core.PersistentQueue.EMPTY,elems); } else { throw (new Error("Queue literal expects a vector for its elements.")); } }); cljs.reader.read_js = (function cljs$reader$read_js(form){ if(cljs.core.vector_QMARK_(form)){ var arr = []; var seq__33513_33585 = cljs.core.seq(form); var chunk__33514_33586 = null; var count__33515_33587 = (0); var i__33516_33588 = (0); while(true){ if((i__33516_33588 < count__33515_33587)){ var x_33589 = chunk__33514_33586.cljs$core$IIndexed$_nth$arity$2(null,i__33516_33588); arr.push(x_33589); var G__33590 = seq__33513_33585; var G__33591 = chunk__33514_33586; var G__33592 = count__33515_33587; var G__33593 = (i__33516_33588 + (1)); seq__33513_33585 = G__33590; chunk__33514_33586 = G__33591; count__33515_33587 = G__33592; i__33516_33588 = G__33593; continue; } else { var temp__5735__auto___33594 = cljs.core.seq(seq__33513_33585); if(temp__5735__auto___33594){ var seq__33513_33595__$1 = temp__5735__auto___33594; if(cljs.core.chunked_seq_QMARK_(seq__33513_33595__$1)){ var c__4609__auto___33596 = cljs.core.chunk_first(seq__33513_33595__$1); var G__33597 = cljs.core.chunk_rest(seq__33513_33595__$1); var G__33598 = c__4609__auto___33596; var G__33599 = cljs.core.count(c__4609__auto___33596); var G__33600 = (0); seq__33513_33585 = G__33597; chunk__33514_33586 = G__33598; count__33515_33587 = G__33599; i__33516_33588 = G__33600; continue; } else { var x_33601 = cljs.core.first(seq__33513_33595__$1); arr.push(x_33601); var G__33602 = cljs.core.next(seq__33513_33595__$1); var G__33603 = null; var G__33604 = (0); var G__33605 = (0); seq__33513_33585 = G__33602; chunk__33514_33586 = G__33603; count__33515_33587 = G__33604; i__33516_33588 = G__33605; continue; } } else { } } break; } return arr; } else { if(cljs.core.map_QMARK_(form)){ var obj = ({}); var seq__33522_33606 = cljs.core.seq(form); var chunk__33523_33607 = null; var count__33524_33608 = (0); var i__33525_33609 = (0); while(true){ if((i__33525_33609 < count__33524_33608)){ var vec__33532_33610 = chunk__33523_33607.cljs$core$IIndexed$_nth$arity$2(null,i__33525_33609); var k_33611 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33532_33610,(0),null); var v_33612 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33532_33610,(1),null); goog.object.set(obj,cljs.core.name(k_33611),v_33612); var G__33613 = seq__33522_33606; var G__33614 = chunk__33523_33607; var G__33615 = count__33524_33608; var G__33616 = (i__33525_33609 + (1)); seq__33522_33606 = G__33613; chunk__33523_33607 = G__33614; count__33524_33608 = G__33615; i__33525_33609 = G__33616; continue; } else { var temp__5735__auto___33617 = cljs.core.seq(seq__33522_33606); if(temp__5735__auto___33617){ var seq__33522_33618__$1 = temp__5735__auto___33617; if(cljs.core.chunked_seq_QMARK_(seq__33522_33618__$1)){ var c__4609__auto___33619 = cljs.core.chunk_first(seq__33522_33618__$1); var G__33620 = cljs.core.chunk_rest(seq__33522_33618__$1); var G__33621 = c__4609__auto___33619; var G__33622 = cljs.core.count(c__4609__auto___33619); var G__33623 = (0); seq__33522_33606 = G__33620; chunk__33523_33607 = G__33621; count__33524_33608 = G__33622; i__33525_33609 = G__33623; continue; } else { var vec__33535_33624 = cljs.core.first(seq__33522_33618__$1); var k_33625 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33535_33624,(0),null); var v_33626 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__33535_33624,(1),null); goog.object.set(obj,cljs.core.name(k_33625),v_33626); var G__33627 = cljs.core.next(seq__33522_33618__$1); var G__33628 = null; var G__33629 = (0); var G__33630 = (0); seq__33522_33606 = G__33627; chunk__33523_33607 = G__33628; count__33524_33608 = G__33629; i__33525_33609 = G__33630; continue; } } else { } } break; } return obj; } else { throw (new Error(["JS literal expects a vector or map containing ","only string or unqualified keyword keys"].join(''))); } } }); cljs.reader.read_uuid = (function cljs$reader$read_uuid(uuid){ if(typeof uuid === 'string'){ return cljs.core.uuid(uuid); } else { throw (new Error("UUID literal expects a string as its representation.")); } }); cljs.reader._STAR_default_data_reader_fn_STAR_ = cljs.core.atom.cljs$core$IFn$_invoke$arity$1(null); cljs.reader._STAR_tag_table_STAR_ = cljs.core.atom.cljs$core$IFn$_invoke$arity$1(cljs.core.merge.cljs$core$IFn$_invoke$arity$variadic(cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([new cljs.core.PersistentArrayMap(null, 4, [new cljs.core.Symbol(null,"inst","inst",-2008473268,null),cljs.reader.read_date,new cljs.core.Symbol(null,"uuid","uuid",-504564192,null),cljs.reader.read_uuid,new cljs.core.Symbol(null,"queue","queue",-1198599890,null),cljs.reader.read_queue,new cljs.core.Symbol(null,"js","js",-886355190,null),cljs.reader.read_js], null),cljs.core.PersistentArrayMap.EMPTY], 0))); /** * Reads the first object from an cljs.tools.reader.reader-types/IPushbackReader. * Returns the object read. If EOF, throws if eof-error? is true otherwise returns eof. * If no reader is provided, *in* will be used. * * Reads data in the edn format (subset of Clojure data): * http://edn-format.org * * cljs.tools.reader.edn/read doesn't depend on dynamic Vars, all configuration * is done by passing an opt map. * * opts is a map that can include the following keys: * :eof - value to return on end-of-file. When not supplied, eof throws an exception. * :readers - a map of tag symbols to data-reader functions to be considered before default-data-readers. * When not supplied, only the default-data-readers will be used. * :default - A function of two args, that will, if present and no reader is found for a tag, * be called with the tag and the value. */ cljs.reader.read = (function cljs$reader$read(var_args){ var G__33543 = arguments.length; switch (G__33543) { case 1: return cljs.reader.read.cljs$core$IFn$_invoke$arity$1((arguments[(0)])); break; case 2: return cljs.reader.read.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; case 4: return cljs.reader.read.cljs$core$IFn$_invoke$arity$4((arguments[(0)]),(arguments[(1)]),(arguments[(2)]),(arguments[(3)])); break; default: throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join(''))); } }); (cljs.reader.read.cljs$core$IFn$_invoke$arity$1 = (function (reader){ return cljs.tools.reader.edn.read.cljs$core$IFn$_invoke$arity$2(new cljs.core.PersistentArrayMap(null, 3, [new cljs.core.Keyword(null,"readers","readers",-2118263030),cljs.core.deref(cljs.reader._STAR_tag_table_STAR_),new cljs.core.Keyword(null,"default","default",-1987822328),cljs.core.deref(cljs.reader._STAR_default_data_reader_fn_STAR_),new cljs.core.Keyword(null,"eof","eof",-489063237),null], null),reader); })); (cljs.reader.read.cljs$core$IFn$_invoke$arity$2 = (function (p__33546,reader){ var map__33547 = p__33546; var map__33547__$1 = (((((!((map__33547 == null))))?(((((map__33547.cljs$lang$protocol_mask$partition0$ & (64))) || ((cljs.core.PROTOCOL_SENTINEL === map__33547.cljs$core$ISeq$))))?true:false):false))?cljs.core.apply.cljs$core$IFn$_invoke$arity$2(cljs.core.hash_map,map__33547):map__33547); var opts = map__33547__$1; var eof = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__33547__$1,new cljs.core.Keyword(null,"eof","eof",-489063237)); return cljs.tools.reader.edn.read.cljs$core$IFn$_invoke$arity$2(cljs.core.update.cljs$core$IFn$_invoke$arity$3(cljs.core.merge.cljs$core$IFn$_invoke$arity$variadic(cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([opts,new cljs.core.PersistentArrayMap(null, 1, [new cljs.core.Keyword(null,"default","default",-1987822328),cljs.core.deref(cljs.reader._STAR_default_data_reader_fn_STAR_)], null)], 0)),new cljs.core.Keyword(null,"readers","readers",-2118263030),(function (m){ return cljs.core.merge.cljs$core$IFn$_invoke$arity$variadic(cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([cljs.core.deref(cljs.reader._STAR_tag_table_STAR_),m], 0)); })),reader); })); (cljs.reader.read.cljs$core$IFn$_invoke$arity$4 = (function (reader,eof_error_QMARK_,eof,opts){ return cljs.tools.reader.edn.read.cljs$core$IFn$_invoke$arity$4(reader,eof_error_QMARK_,eof,cljs.core.update.cljs$core$IFn$_invoke$arity$3(cljs.core.merge.cljs$core$IFn$_invoke$arity$variadic(cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([opts,new cljs.core.PersistentArrayMap(null, 1, [new cljs.core.Keyword(null,"default","default",-1987822328),cljs.core.deref(cljs.reader._STAR_default_data_reader_fn_STAR_)], null)], 0)),new cljs.core.Keyword(null,"readers","readers",-2118263030),(function (m){ return cljs.core.merge.cljs$core$IFn$_invoke$arity$variadic(cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([cljs.core.deref(cljs.reader._STAR_tag_table_STAR_),m], 0)); }))); })); (cljs.reader.read.cljs$lang$maxFixedArity = 4); /** * Reads one object from the string s. * Returns nil when s is nil or empty. * * Reads data in the edn format (subset of Clojure data): * http://edn-format.org * * opts is a map as per cljs.tools.reader.edn/read */ cljs.reader.read_string = (function cljs$reader$read_string(var_args){ var G__33551 = arguments.length; switch (G__33551) { case 1: return cljs.reader.read_string.cljs$core$IFn$_invoke$arity$1((arguments[(0)])); break; case 2: return cljs.reader.read_string.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; default: throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join(''))); } }); (cljs.reader.read_string.cljs$core$IFn$_invoke$arity$1 = (function (s){ return cljs.tools.reader.edn.read_string.cljs$core$IFn$_invoke$arity$2(new cljs.core.PersistentArrayMap(null, 3, [new cljs.core.Keyword(null,"readers","readers",-2118263030),cljs.core.deref(cljs.reader._STAR_tag_table_STAR_),new cljs.core.Keyword(null,"default","default",-1987822328),cljs.core.deref(cljs.reader._STAR_default_data_reader_fn_STAR_),new cljs.core.Keyword(null,"eof","eof",-489063237),null], null),s); })); (cljs.reader.read_string.cljs$core$IFn$_invoke$arity$2 = (function (opts,s){ return cljs.tools.reader.edn.read_string.cljs$core$IFn$_invoke$arity$2(cljs.core.update.cljs$core$IFn$_invoke$arity$3(cljs.core.merge.cljs$core$IFn$_invoke$arity$variadic(cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([new cljs.core.PersistentArrayMap(null, 1, [new cljs.core.Keyword(null,"default","default",-1987822328),cljs.core.deref(cljs.reader._STAR_default_data_reader_fn_STAR_)], null),opts], 0)),new cljs.core.Keyword(null,"readers","readers",-2118263030),(function (m){ return cljs.core.merge.cljs$core$IFn$_invoke$arity$variadic(cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([cljs.core.deref(cljs.reader._STAR_tag_table_STAR_),m], 0)); })),s); })); (cljs.reader.read_string.cljs$lang$maxFixedArity = 2); cljs.reader.register_tag_parser_BANG_ = (function cljs$reader$register_tag_parser_BANG_(tag,f){ var old_parser = cljs.core.get.cljs$core$IFn$_invoke$arity$2(cljs.core.deref(cljs.reader._STAR_tag_table_STAR_),tag); cljs.core.swap_BANG_.cljs$core$IFn$_invoke$arity$4(cljs.reader._STAR_tag_table_STAR_,cljs.core.assoc,tag,f); return old_parser; }); cljs.reader.deregister_tag_parser_BANG_ = (function cljs$reader$deregister_tag_parser_BANG_(tag){ var old_parser = cljs.core.get.cljs$core$IFn$_invoke$arity$2(cljs.core.deref(cljs.reader._STAR_tag_table_STAR_),tag); cljs.core.swap_BANG_.cljs$core$IFn$_invoke$arity$3(cljs.reader._STAR_tag_table_STAR_,cljs.core.dissoc,tag); return old_parser; }); cljs.reader.register_default_tag_parser_BANG_ = (function cljs$reader$register_default_tag_parser_BANG_(f){ var old_parser = cljs.core.deref(cljs.reader._STAR_default_data_reader_fn_STAR_); cljs.core.swap_BANG_.cljs$core$IFn$_invoke$arity$2(cljs.reader._STAR_default_data_reader_fn_STAR_,(function (_){ return f; })); return old_parser; }); cljs.reader.deregister_default_tag_parser_BANG_ = (function cljs$reader$deregister_default_tag_parser_BANG_(){ var old_parser = cljs.core.deref(cljs.reader._STAR_default_data_reader_fn_STAR_); cljs.core.swap_BANG_.cljs$core$IFn$_invoke$arity$2(cljs.reader._STAR_default_data_reader_fn_STAR_,(function (_){ return null; })); return old_parser; }); //# sourceMappingURL=cljs.reader.js.map