datahike 0.7.1630

package/hasch.core.js

@@ -0,0 +1,188 @@
+var $CLJS = require("./cljs_env");
+var $jscomp = $CLJS.$jscomp;
+var COMPILED = false;
+require("./cljs.core.js");
+require("./hasch.benc.js");
+require("./hasch.base64.js");
+require("./hasch.platform.js");
+var environ=$CLJS.environ || ($CLJS.environ = {});
+var fress=$CLJS.fress || ($CLJS.fress = {});
+var datahike=$CLJS.datahike || ($CLJS.datahike = {});
+var clojure=$CLJS.clojure || ($CLJS.clojure = {});
+var hasch=$CLJS.hasch || ($CLJS.hasch = {});
+var tailrecursion=$CLJS.tailrecursion || ($CLJS.tailrecursion = {});
+var superv=$CLJS.superv || ($CLJS.superv = {});
+var geheimnis=$CLJS.geheimnis || ($CLJS.geheimnis = {});
+var is=$CLJS.is || ($CLJS.is = {});
+var cljs=$CLJS.cljs || ($CLJS.cljs = {});
+var cljs_node_io=$CLJS.cljs_node_io || ($CLJS.cljs_node_io = {});
+var goog=$CLJS.goog || ($CLJS.goog = {});
+var konserve=$CLJS.konserve || ($CLJS.konserve = {});
+var datalog=$CLJS.datalog || ($CLJS.datalog = {});
+var spec_tools=$CLJS.spec_tools || ($CLJS.spec_tools = {});
+var taoensso=$CLJS.taoensso || ($CLJS.taoensso = {});
+var incognito=$CLJS.incognito || ($CLJS.incognito = {});
+var medley=$CLJS.medley || ($CLJS.medley = {});
+var me=$CLJS.me || ($CLJS.me = {});
+
+$CLJS.SHADOW_ENV.setLoaded("hasch.core.js");
+
+goog.provide('hasch.core');
+hasch.core.uuid4 = hasch.platform.uuid4;
+hasch.core.uuid5 = hasch.platform.uuid5;
+hasch.core.hash__GT_str = hasch.platform.hash__GT_str;
+/**
+ * Hash an edn value with SHA-512 by default or a compatible hash function of choice.
+ * 
+ *   Please use the write-handlers only in legacy cases and rather extend the PHashCoercion
+ *   protocol to your own types.
+ */
+hasch.core.edn_hash = (function hasch$core$edn_hash(var_args){
+var G__26440 = arguments.length;
+switch (G__26440) {
+case 1:
+return hasch.core.edn_hash.cljs$core$IFn$_invoke$arity$1((arguments[(0)]));
+
+break;
+case 2:
+return hasch.core.edn_hash.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)]));
+
+break;
+case 3:
+return hasch.core.edn_hash.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)]));
+
+break;
+default:
+throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join('')));
+
+}
+});
+
+(hasch.core.edn_hash.cljs$core$IFn$_invoke$arity$1 = (function (val){
+return hasch.core.edn_hash.cljs$core$IFn$_invoke$arity$2(val,cljs.core.PersistentArrayMap.EMPTY);
+}));
+
+(hasch.core.edn_hash.cljs$core$IFn$_invoke$arity$2 = (function (val,write_handlers){
+return hasch.core.edn_hash.cljs$core$IFn$_invoke$arity$3(val,hasch.platform.sha512_message_digest,write_handlers);
+}));
+
+(hasch.core.edn_hash.cljs$core$IFn$_invoke$arity$3 = (function (val,md_create_fn,write_handlers){
+return cljs.core.map.cljs$core$IFn$_invoke$arity$2((function (p1__26435_SHARP_){
+if((p1__26435_SHARP_ < (0))){
+return (p1__26435_SHARP_ + (256));
+} else {
+return p1__26435_SHARP_;
+}
+}),hasch.benc.digest(hasch.benc._coerce(val,md_create_fn,(function (){var or__5002__auto__ = write_handlers;
+if(cljs.core.truth_(or__5002__auto__)){
+return or__5002__auto__;
+} else {
+return cljs.core.PersistentArrayMap.EMPTY;
+}
+})()),md_create_fn));
+}));
+
+(hasch.core.edn_hash.cljs$lang$maxFixedArity = 3);
+
+/**
+ * Creates random UUID-4 without argument or UUID-5 for the argument value.
+ * 
+ *   Optionally an incognito-style write-handlers map can be supplied,
+ *   which describes record serialization in terms of Clojure data
+ *   structures.
+ */
+hasch.core.uuid = (function hasch$core$uuid(var_args){
+var G__26452 = arguments.length;
+switch (G__26452) {
+case 0:
+return hasch.core.uuid.cljs$core$IFn$_invoke$arity$0();
+
+break;
+default:
+var args_arr__5751__auto__ = [];
+var len__5726__auto___26477 = arguments.length;
+var i__5727__auto___26478 = (0);
+while(true){
+if((i__5727__auto___26478 < len__5726__auto___26477)){
+args_arr__5751__auto__.push((arguments[i__5727__auto___26478]));
+
+var G__26479 = (i__5727__auto___26478 + (1));
+i__5727__auto___26478 = G__26479;
+continue;
+} else {
+}
+break;
+}
+
+var argseq__5752__auto__ = ((((1) < args_arr__5751__auto__.length))?(new cljs.core.IndexedSeq(args_arr__5751__auto__.slice((1)),(0),null)):null);
+return hasch.core.uuid.cljs$core$IFn$_invoke$arity$variadic((arguments[(0)]),argseq__5752__auto__);
+
+}
+});
+
+(hasch.core.uuid.cljs$core$IFn$_invoke$arity$0 = (function (){
+return (hasch.core.uuid4.cljs$core$IFn$_invoke$arity$0 ? hasch.core.uuid4.cljs$core$IFn$_invoke$arity$0() : hasch.core.uuid4.call(null, ));
+}));
+
+(hasch.core.uuid.cljs$core$IFn$_invoke$arity$variadic = (function (val,p__26454){
+var map__26455 = p__26454;
+var map__26455__$1 = cljs.core.__destructure_map(map__26455);
+var write_handlers = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__26455__$1,new cljs.core.Keyword(null,"write-handlers","write-handlers",-2097288911));
+var G__26456 = hasch.core.edn_hash.cljs$core$IFn$_invoke$arity$2(val,write_handlers);
+return (hasch.core.uuid5.cljs$core$IFn$_invoke$arity$1 ? hasch.core.uuid5.cljs$core$IFn$_invoke$arity$1(G__26456) : hasch.core.uuid5.call(null, G__26456));
+}));
+
+/** @this {Function} */
+(hasch.core.uuid.cljs$lang$applyTo = (function (seq26448){
+var G__26449 = cljs.core.first(seq26448);
+var seq26448__$1 = cljs.core.next(seq26448);
+var self__5711__auto__ = this;
+return self__5711__auto__.cljs$core$IFn$_invoke$arity$variadic(G__26449,seq26448__$1);
+}));
+
+(hasch.core.uuid.cljs$lang$maxFixedArity = (1));
+
+/**
+ * Calculates a sequential UUID as described in
+ *   https://github.com/clojure-cookbook/clojure-cookbook/blob/master/01_primitive-data/1-24_uuids.asciidoc
+ */
+hasch.core.squuid = (function hasch$core$squuid(var_args){
+var G__26468 = arguments.length;
+switch (G__26468) {
+case 0:
+return hasch.core.squuid.cljs$core$IFn$_invoke$arity$0();
+
+break;
+case 1:
+return hasch.core.squuid.cljs$core$IFn$_invoke$arity$1((arguments[(0)]));
+
+break;
+default:
+throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join('')));
+
+}
+});
+
+(hasch.core.squuid.cljs$core$IFn$_invoke$arity$0 = (function (){
+return hasch.core.squuid.cljs$core$IFn$_invoke$arity$1((hasch.core.uuid4.cljs$core$IFn$_invoke$arity$0 ? hasch.core.uuid4.cljs$core$IFn$_invoke$arity$0() : hasch.core.uuid4.call(null, )));
+}));
+
+(hasch.core.squuid.cljs$core$IFn$_invoke$arity$1 = (function (uuid){
+var time = (new Date()).getTime();
+var secs = cljs.core.quot(time,(1000));
+var prefix = secs.toString((16));
+return cljs.core.uuid([cljs.core.str.cljs$core$IFn$_invoke$arity$1(prefix),cljs.core.subs.cljs$core$IFn$_invoke$arity$2(cljs.core.str.cljs$core$IFn$_invoke$arity$1(uuid),(8))].join(''));
+}));
+
+(hasch.core.squuid.cljs$lang$maxFixedArity = 1);
+
+/**
+ * Provides a base64 encoded string of the edn-hash of a value val. This contains
+ *   all bits of the hash compared to 128 bits for the UUID-5. Both should be safe,
+ *   but b64-hash is safer towards collisions.
+ */
+hasch.core.b64_hash = (function hasch$core$b64_hash(val){
+return hasch.base64.encode(cljs.core.clj__GT_js(hasch.core.edn_hash.cljs$core$IFn$_invoke$arity$1(val)));
+});
+
+//# sourceMappingURL=hasch.core.js.map

package/hasch.core.js.map

@@ -0,0 +1 @@
+{"version":3,"sources":["hasch/core.cljc"],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAOA,AAAKA,mBAAMC;AACX,AAAKC,mBAAMC;AACX,AAAKC,0BAAUC;AAEf,AAAA;;;;;;sBAAA,8BAAAC,pDAAME;AAAN,AAAA,IAAAD,WAAA,AAAA;AAAA,AAAA,QAAAA;KAAA;AAAA,OAAAC,kDAAA,CAAA,UAAA;;;KAAA;AAAA,OAAAA,kDAAA,CAAA,UAAA,MAAA,CAAA,UAAA;;;KAAA;AAAA,OAAAA,kDAAA,CAAA,UAAA,MAAA,CAAA,UAAA,MAAA,CAAA,UAAA;;;;AAAA,MAAA,KAAAC,MAAA,CAAA,8DAAA,AAAA;;;;;AAAA,CAAA,oDAAA,pDAAMD,+DAKFE;AALJ,AAKS,6DAAA,tDAACC,kDAASD;;;AALnB,CAAA,oDAAA,pDAAMF,+DAMFE,IAAIE;AANR,AAMwB,OAACD,kDAASD,IAAIG,qCAAqCD;;;AAN3E,CAAA,oDAAA,pDAAMJ,+DAOFE,IAAII,aAAaF;AAPrB,AAQG,mDAAA,WAAAG,vDAACC;AAAD,AAAM,GAAI,CAAAD,mBAAA;AAAS,QAAAA,mBAAA;;AAAbA;;GACD,AAACE,kBAAO,AAACC,mBAAQR,IAAII,aAAa,iBAAAK,mBAAIP;AAAJ,AAAA,oBAAAO;AAAAA;;AAAA;;MAAwBL;;;AATlE,CAAA,8CAAA,9CAAMN;;AAAN,AAWA,AAAA;;;;;;;kBAAA,0BAAAF,5CAAMe;AAAN,AAAA,IAAAD,WAAA,AAAA;AAAA,AAAA,QAAAA;KAAA;AAAA,OAAAC;;;;AAAA,IAAAC,yBAAA;AAAA,AAAA,IAAAC,0BAAA,AAAA;AAAA,AAAA,IAAAC,wBAAA;;AAAA,AAAA,GAAA,CAAAA,wBAAAD;AAAA,AAAA,AAAAD,4BAAA,CAAA,UAAAE;;AAAA,eAAA,CAAAA,wBAAA;;;;AAAA;;;;AAAA,IAAAC,uBAAA,EAAA,CAAA,MAAA,AAAAH,gCAAA,AAAA,KAAAI,qBAAA,AAAAJ,6BAAA,KAAA,IAAA,OAAA;AAAA,AAAA,OAAAD,qDAAA,CAAA,UAAA,MAAAI;;;;;AAAA,CAAA,gDAAA,hDAAMJ;AAAN,AAMM,QAACrB,iDAAAA,mDAAAA;;;AANP,AAAA,CAAA,uDAAA,eAAA2B,tEAAMN,kEAOFX;AAPJ,AAAA,IAAAkB,aAAAD;IAAAC,iBAAA,AAAAC,4BAAAD;qBAAA,AAAAE,4CAAAF,eAAA,5EAOkBhB;AAPlB,AAOoC,IAAAwB,6DAAI1B,lDAAI,AAACC,sDAASC;AAAlB,AAAA,wGAAAwB,wCAAAA,xIAAkClC,iDAAAA,2DAAAA;;;AAPtE;AAAA,CAAA,oCAAA,WAAA6B,/CAAMV;AAAN,AAAA,IAAAW,WAAA,AAAAC,gBAAAF;IAAAA,eAAA,AAAAG,eAAAH;AAAA,AAAA,IAAAI,qBAAA;AAAA,AAAA,OAAAA,wDAAAH,SAAAD;;;AAAA,CAAA,0CAAA,1CAAMV;;AAAN,AASA,AAAA;;;;oBAAA,4BAAAf,hDAAMgC;AAAN,AAAA,IAAAD,WAAA,AAAA;AAAA,AAAA,QAAAA;KAAA;AAAA,OAAAC;;;KAAA;AAAA,OAAAA,gDAAA,CAAA,UAAA;;;;AAAA,MAAA,KAAA7B,MAAA,CAAA,8DAAA,AAAA;;;;;AAAA,CAAA,kDAAA,lDAAM6B;AAAN,AAGM,OAACC,gDAAO,CAACvC,iDAAAA,mDAAAA;;;AAHf,CAAA,kDAAA,lDAAMsC,6DAIFE;AAJJ,AAcM,IAAMC,OAAK,AAAU,KAAAC;IACfC,OAAK,oBAAA,pBAACC,eAAKH;IACXI,SAAO,cAAA,dAAWF;AAFxB,AAGE,OAACG,eAAe,6CAAKD,QAAO,+FAAA,/FAACE,6CAAK,4CAAKP;;;AAjB/C,CAAA,4CAAA,5CAAMF;;AAAN,AAmBA;;;;;sBAAA,tBAAMU,oDAIHtC;AAJH,AAKE,OAACuC,oBAAW,AAA0BC,qBAAS,AAACvC,kDAASD","names":["hasch.core/uuid4","hasch.platform/uuid4","hasch.core/uuid5","hasch.platform/uuid5","hasch.core/hash->str","hasch.platform/hash->str","var_args","G__26440","hasch.core/edn-hash","js/Error","val","hasch.core.edn_hash","write-handlers","hasch.platform/sha512-message-digest","md-create-fn","p1__26435#","cljs.core.map","hasch.benc/digest","hasch.benc/-coerce","or__5002__auto__","G__26452","hasch.core/uuid","args-arr__5751__auto__","len__5726__auto__","i__5727__auto__","argseq__5752__auto__","cljs.core/IndexedSeq","p__26454","map__26455","cljs.core/--destructure-map","cljs.core.get","seq26448","G__26449","cljs.core/first","cljs.core/next","self__5711__auto__","G__26456","G__26468","hasch.core/squuid","hasch.core.squuid","uuid","time","js/Date","secs","cljs.core/quot","prefix","cljs.core/uuid","cljs.core.subs","hasch.core/b64-hash","hasch.base64/encode","cljs.core/clj->js"],"sourcesContent":["(ns hasch.core\n  \"Hashing functions for EDN.\"\n  #?(:cljs (:refer-clojure :exclude [uuid]))\n  (:require [hasch.benc :refer [PHashCoercion -coerce digest]]\n            [hasch.base64 :as b64]\n            [hasch.platform :as platform]))\n\n(def uuid4 platform/uuid4)\n(def uuid5 platform/uuid5)\n(def hash->str platform/hash->str)\n\n(defn edn-hash\n  \"Hash an edn value with SHA-512 by default or a compatible hash function of choice.\n\n  Please use the write-handlers only in legacy cases and rather extend the PHashCoercion\n  protocol to your own types.\"\n  ([val] (edn-hash val {}))\n  ([val write-handlers] (edn-hash val hasch.platform/sha512-message-digest write-handlers))\n  ([val md-create-fn write-handlers]\n   (map #(if (neg? %) (+ % 256) %) ;; make unsigned\n        (digest (-coerce val md-create-fn (or write-handlers {})) md-create-fn))))\n\n(defn uuid\n  \"Creates random UUID-4 without argument or UUID-5 for the argument value.\n\n  Optionally an incognito-style write-handlers map can be supplied,\n  which describes record serialization in terms of Clojure data\n  structures.\"\n  ([] (uuid4))\n  ([val & {:keys [write-handlers]}] (-> val (edn-hash write-handlers) uuid5)))\n\n(defn squuid\n  \"Calculates a sequential UUID as described in\n  https://github.com/clojure-cookbook/clojure-cookbook/blob/master/01_primitive-data/1-24_uuids.asciidoc\"\n  ([] (squuid (uuid4)))\n  ([uuid]\n   #?(:clj\n      (let [time (System/currentTimeMillis)\n            secs (quot time 1000)\n            lsb (.getLeastSignificantBits ^java.util.UUID uuid)\n            msb (.getMostSignificantBits ^java.util.UUID uuid)\n            timed-msb (bit-or (bit-shift-left secs 32)\n                              (bit-and 0x00000000ffffffff msb))]\n        (java.util.UUID. timed-msb lsb))\n      :cljs\n      (let [time (.getTime (js/Date.))\n            secs (quot time 1000)\n            prefix (.toString secs 16)]\n        (cljs.core/uuid (str prefix (subs (str uuid) 8)))))))\n\n(defn b64-hash\n  \"Provides a base64 encoded string of the edn-hash of a value val. This contains\n  all bits of the hash compared to 128 bits for the UUID-5. Both should be safe,\n  but b64-hash is safer towards collisions.\"\n  [val]\n  (b64/encode (#?(:clj byte-array :cljs clj->js) (edn-hash val))))\n"],"x_google_ignoreList":[0]}

package/hasch.platform.js

@@ -0,0 +1,221 @@
+var $CLJS = require("./cljs_env");
+var $jscomp = $CLJS.$jscomp;
+var COMPILED = false;
+require("./cljs.core.js");
+require("./cljs.reader.js");
+require("./clojure.string.js");
+require("./incognito.base.js");
+require("./hasch.benc.js");
+var environ=$CLJS.environ || ($CLJS.environ = {});
+var fress=$CLJS.fress || ($CLJS.fress = {});
+var datahike=$CLJS.datahike || ($CLJS.datahike = {});
+var clojure=$CLJS.clojure || ($CLJS.clojure = {});
+var hasch=$CLJS.hasch || ($CLJS.hasch = {});
+var tailrecursion=$CLJS.tailrecursion || ($CLJS.tailrecursion = {});
+var superv=$CLJS.superv || ($CLJS.superv = {});
+var geheimnis=$CLJS.geheimnis || ($CLJS.geheimnis = {});
+var is=$CLJS.is || ($CLJS.is = {});
+var cljs=$CLJS.cljs || ($CLJS.cljs = {});
+var cljs_node_io=$CLJS.cljs_node_io || ($CLJS.cljs_node_io = {});
+var goog=$CLJS.goog || ($CLJS.goog = {});
+var konserve=$CLJS.konserve || ($CLJS.konserve = {});
+var datalog=$CLJS.datalog || ($CLJS.datalog = {});
+var spec_tools=$CLJS.spec_tools || ($CLJS.spec_tools = {});
+var taoensso=$CLJS.taoensso || ($CLJS.taoensso = {});
+var incognito=$CLJS.incognito || ($CLJS.incognito = {});
+var medley=$CLJS.medley || ($CLJS.medley = {});
+var me=$CLJS.me || ($CLJS.me = {});
+
+$CLJS.SHADOW_ENV.setLoaded("hasch.platform.js");
+
+goog.provide('hasch.platform');
+hasch.platform.uuid4 = cljs.core.random_uuid;
+hasch.platform.byte__GT_hex = (function hasch$platform$byte__GT_hex(b){
+return ((b & (255)) + (256)).toString((16)).substring((1));
+});
+hasch.platform.hash__GT_str = (function hasch$platform$hash__GT_str(bytes){
+return cljs.core.apply.cljs$core$IFn$_invoke$arity$2(cljs.core.str,cljs.core.map.cljs$core$IFn$_invoke$arity$2(hasch.platform.byte__GT_hex,bytes));
+});
+hasch.platform._STAR_use_legacy_utf8_conversion_STAR_ = false;
+/**
+ * Encodes a string as UTF-8 in an unsigned js array.
+ */
+hasch.platform.legacy_utf8 = (function hasch$platform$legacy_utf8(s){
+return cljs.core.into_array.cljs$core$IFn$_invoke$arity$1(cljs.core.mapcat.cljs$core$IFn$_invoke$arity$variadic((function (pos){
+var c = s.charCodeAt(pos);
+if((c <= (127))){
+return new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [(c & (255))], null);
+} else {
+if((c <= (2047))){
+return new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [((192) | (c >> (6))),((128) | (c & (63)))], null);
+} else {
+if((c <= (65535))){
+return new cljs.core.PersistentVector(null, 3, 5, cljs.core.PersistentVector.EMPTY_NODE, [((224) | (c >> (12))),((128) | ((c >> (6)) & (63))),((128) | (c & (63)))], null);
+} else {
+var j = (function (){var j = (4);
+while(true){
+if(((c >> (j * (6))) > (0))){
+var G__26136 = (j + (1));
+j = G__26136;
+continue;
+} else {
+return j;
+}
+break;
+}
+})();
+var init = ((((65280) >> j) & (255)) | (c >> ((6) * (j - (1)))));
+return cljs.core.conj.cljs$core$IFn$_invoke$arity$2(cljs.core.map.cljs$core$IFn$_invoke$arity$2((function (p1__26047_SHARP_){
+return ((128) | ((c >> ((6) * p1__26047_SHARP_)) & (63)));
+}),cljs.core.reverse(cljs.core.range.cljs$core$IFn$_invoke$arity$1((j - (1))))),init);
+
+}
+}
+}
+}),cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2([cljs.core.range.cljs$core$IFn$_invoke$arity$1(s.length)], 0)));
+});
+hasch.platform.utf8 = (function hasch$platform$utf8(s){
+if(cljs.core.truth_(hasch.platform._STAR_use_legacy_utf8_conversion_STAR_)){
+return hasch.platform.legacy_utf8(s);
+} else {
+return goog.crypt.stringToUtf8ByteArray(s);
+}
+});
+/**
+ * Generates a uuid5 from a sha-1 hash byte sequence.
+ * Our hash version is coded in first 2 bits.
+ */
+hasch.platform.uuid5 = (function hasch$platform$uuid5(sha_hash){
+var vec__26048 = sha_hash;
+var hb1 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(0),null);
+var hb2 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(1),null);
+var hb3 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(2),null);
+var hb4 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(3),null);
+var hb5 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(4),null);
+var hb6 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(5),null);
+var hb7 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(6),null);
+var hb8 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(7),null);
+var lb1 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(8),null);
+var lb2 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(9),null);
+var lb3 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(10),null);
+var lb4 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(11),null);
+var lb5 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(12),null);
+var lb6 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(13),null);
+var lb7 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(14),null);
+var lb8 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__26048,(15),null);
+return cljs.core.uuid((function (s){
+return [cljs.core.str.cljs$core$IFn$_invoke$arity$1(cljs.core.apply.cljs$core$IFn$_invoke$arity$2(cljs.core.str,cljs.core.take.cljs$core$IFn$_invoke$arity$2((8),s))),"-",cljs.core.str.cljs$core$IFn$_invoke$arity$1(cljs.core.apply.cljs$core$IFn$_invoke$arity$2(cljs.core.str,cljs.core.take.cljs$core$IFn$_invoke$arity$2((4),cljs.core.drop.cljs$core$IFn$_invoke$arity$2((8),s)))),"-",cljs.core.str.cljs$core$IFn$_invoke$arity$1(cljs.core.apply.cljs$core$IFn$_invoke$arity$2(cljs.core.str,cljs.core.take.cljs$core$IFn$_invoke$arity$2((4),cljs.core.drop.cljs$core$IFn$_invoke$arity$2((12),s)))),"-",cljs.core.str.cljs$core$IFn$_invoke$arity$1(cljs.core.apply.cljs$core$IFn$_invoke$arity$2(cljs.core.str,cljs.core.take.cljs$core$IFn$_invoke$arity$2((4),cljs.core.drop.cljs$core$IFn$_invoke$arity$2((16),s)))),"-",cljs.core.str.cljs$core$IFn$_invoke$arity$1(cljs.core.apply.cljs$core$IFn$_invoke$arity$2(cljs.core.str,cljs.core.drop.cljs$core$IFn$_invoke$arity$2((20),s)))].join('');
+})(hasch.platform.hash__GT_str(new cljs.core.PersistentVector(null, 16, 5, cljs.core.PersistentVector.EMPTY_NODE, [((hb1 & ~(1 << (7))) & ~(1 << (6))),hb2,hb3,hb4,hb5,hb6,((80) | ((95) & hb7)),hb8,((lb1 | (1 << (7))) & ~(1 << (6))),lb2,lb3,lb4,lb5,lb6,lb7,lb8], null))));
+});
+hasch.platform.sha512_message_digest = (function hasch$platform$sha512_message_digest(){
+return (new goog.crypt.Sha512());
+});
+hasch.platform.md5_message_digest = (function hasch$platform$md5_message_digest(){
+return (new goog.crypt.Md5());
+});
+hasch.platform.encode = (function hasch$platform$encode(magic,a){
+return [magic].concat(a);
+});
+hasch.platform.str__GT_utf8 = (function hasch$platform$str__GT_utf8(x){
+return hasch.platform.utf8(cljs.core.str.cljs$core$IFn$_invoke$arity$1(x));
+});
+(hasch.benc.PHashCoercion["null"] = true);
+
+(hasch.benc._coerce["null"] = (function (this$,md_create_fn,write_handlers){
+return hasch.platform.encode(new cljs.core.Keyword(null,"nil","nil",99600501).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),[]);
+}));
+
+(hasch.benc.PHashCoercion["boolean"] = true);
+
+(hasch.benc._coerce["boolean"] = (function (this$,md_create_fn,write_handlers){
+return hasch.platform.encode(new cljs.core.Keyword(null,"boolean","boolean",-1919418404).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),[((this$)?(41):(40))]);
+}));
+
+(Date.prototype.hasch$benc$PHashCoercion$ = cljs.core.PROTOCOL_SENTINEL);
+
+(Date.prototype.hasch$benc$PHashCoercion$_coerce$arity$3 = (function (this$,md_create_fn,write_handlers){
+var this$__$1 = this;
+return hasch.platform.encode(new cljs.core.Keyword(null,"inst","inst",645962501).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.platform.str__GT_utf8(this$__$1.getTime()));
+}));
+
+(cljs.core.Keyword.prototype.hasch$benc$PHashCoercion$ = cljs.core.PROTOCOL_SENTINEL);
+
+(cljs.core.Keyword.prototype.hasch$benc$PHashCoercion$_coerce$arity$3 = (function (this$,md_create_fn,write_handlers){
+var this$__$1 = this;
+return hasch.platform.encode(new cljs.core.Keyword(null,"keyword","keyword",811389747).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.benc.encode_safe(hasch.platform.str__GT_utf8(this$__$1),md_create_fn));
+}));
+
+(hasch.benc.PHashCoercion["number"] = true);
+
+(hasch.benc._coerce["number"] = (function (this$,md_create_fn,write_handlers){
+return hasch.platform.encode(new cljs.core.Keyword(null,"number","number",1570378438).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.platform.str__GT_utf8(this$));
+}));
+
+(hasch.benc.PHashCoercion["_"] = true);
+
+(hasch.benc._coerce["_"] = (function (this$,md_create_fn,write_handlers){
+if((this$ instanceof incognito.base.IncognitoTaggedLiteral)){
+var map__26076 = this$;
+var map__26076__$1 = cljs.core.__destructure_map(map__26076);
+var tag = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__26076__$1,new cljs.core.Keyword(null,"tag","tag",-1290361223));
+var value = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__26076__$1,new cljs.core.Keyword(null,"value","value",305978217));
+return hasch.platform.encode(new cljs.core.Keyword(null,"literal","literal",1664775605).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.benc.coerce_seq(new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [tag,value], null),md_create_fn,write_handlers));
+} else {
+if((((!((this$ == null))))?(((((this$.cljs$lang$protocol_mask$partition0$ & (67108864))) || ((cljs.core.PROTOCOL_SENTINEL === this$.cljs$core$IRecord$))))?true:(((!this$.cljs$lang$protocol_mask$partition0$))?cljs.core.native_satisfies_QMARK_(cljs.core.IRecord,this$):false)):cljs.core.native_satisfies_QMARK_(cljs.core.IRecord,this$))){
+var map__26087 = incognito.base.incognito_writer(write_handlers,this$);
+var map__26087__$1 = cljs.core.__destructure_map(map__26087);
+var tag = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__26087__$1,new cljs.core.Keyword(null,"tag","tag",-1290361223));
+var value = cljs.core.get.cljs$core$IFn$_invoke$arity$2(map__26087__$1,new cljs.core.Keyword(null,"value","value",305978217));
+return hasch.platform.encode(new cljs.core.Keyword(null,"literal","literal",1664775605).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.benc.coerce_seq(new cljs.core.PersistentVector(null, 2, 5, cljs.core.PersistentVector.EMPTY_NODE, [tag,value], null),md_create_fn,write_handlers));
+} else {
+if((((!((this$ == null))))?(((((this$.cljs$lang$protocol_mask$partition0$ & (64))) || ((cljs.core.PROTOCOL_SENTINEL === this$.cljs$core$ISeq$))))?true:(((!this$.cljs$lang$protocol_mask$partition0$))?cljs.core.native_satisfies_QMARK_(cljs.core.ISeq,this$):false)):cljs.core.native_satisfies_QMARK_(cljs.core.ISeq,this$))){
+return hasch.platform.encode(new cljs.core.Keyword(null,"seq","seq",-1817803783).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.benc.coerce_seq(this$,md_create_fn,write_handlers));
+} else {
+if((((!((this$ == null))))?(((((this$.cljs$lang$protocol_mask$partition0$ & (16384))) || ((cljs.core.PROTOCOL_SENTINEL === this$.cljs$core$IVector$))))?true:(((!this$.cljs$lang$protocol_mask$partition0$))?cljs.core.native_satisfies_QMARK_(cljs.core.IVector,this$):false)):cljs.core.native_satisfies_QMARK_(cljs.core.IVector,this$))){
+return hasch.platform.encode(new cljs.core.Keyword(null,"vector","vector",1902966158).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.benc.coerce_seq(this$,md_create_fn,write_handlers));
+} else {
+if((((!((this$ == null))))?(((((this$.cljs$lang$protocol_mask$partition0$ & (1024))) || ((cljs.core.PROTOCOL_SENTINEL === this$.cljs$core$IMap$))))?true:(((!this$.cljs$lang$protocol_mask$partition0$))?cljs.core.native_satisfies_QMARK_(cljs.core.IMap,this$):false)):cljs.core.native_satisfies_QMARK_(cljs.core.IMap,this$))){
+return hasch.platform.encode(new cljs.core.Keyword(null,"map","map",1371690461).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.benc.xor_hashes(cljs.core.map.cljs$core$IFn$_invoke$arity$2((function (p1__26051_SHARP_){
+return hasch.benc._coerce(p1__26051_SHARP_,md_create_fn,write_handlers);
+}),cljs.core.seq(this$))));
+} else {
+if((((!((this$ == null))))?(((((this$.cljs$lang$protocol_mask$partition0$ & (4096))) || ((cljs.core.PROTOCOL_SENTINEL === this$.cljs$core$ISet$))))?true:(((!this$.cljs$lang$protocol_mask$partition0$))?cljs.core.native_satisfies_QMARK_(cljs.core.ISet,this$):false)):cljs.core.native_satisfies_QMARK_(cljs.core.ISet,this$))){
+return hasch.platform.encode(new cljs.core.Keyword(null,"set","set",304602554).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.benc.xor_hashes(cljs.core.map.cljs$core$IFn$_invoke$arity$2((function (p1__26052_SHARP_){
+return hasch.benc.digest(hasch.benc._coerce(p1__26052_SHARP_,md_create_fn,write_handlers),md_create_fn);
+}),cljs.core.seq(this$))));
+} else {
+if((this$ instanceof Uint8Array)){
+return hasch.platform.encode(new cljs.core.Keyword(null,"binary","binary",-1802232288).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.benc.encode_safe(Array.prototype.slice.call(this$),md_create_fn));
+} else {
+throw cljs.core.ex_info.cljs$core$IFn$_invoke$arity$2("Cannot hash unknown type, you can extend PHashCoercion protocol for:",new cljs.core.PersistentArrayMap(null, 2, [new cljs.core.Keyword(null,"type","type",1174270348),cljs.core.type(this$),new cljs.core.Keyword(null,"value","value",305978217),this$], null));
+
+}
+}
+}
+}
+}
+}
+}
+}));
+
+(hasch.benc.PHashCoercion["string"] = true);
+
+(hasch.benc._coerce["string"] = (function (this$,md_create_fn,write_handlers){
+return hasch.platform.encode(new cljs.core.Keyword(null,"string","string",-1989541586).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.benc.encode_safe(hasch.platform.str__GT_utf8(this$),md_create_fn));
+}));
+
+(cljs.core.Symbol.prototype.hasch$benc$PHashCoercion$ = cljs.core.PROTOCOL_SENTINEL);
+
+(cljs.core.Symbol.prototype.hasch$benc$PHashCoercion$_coerce$arity$3 = (function (this$,md_create_fn,write_handlers){
+var this$__$1 = this;
+return hasch.platform.encode(new cljs.core.Keyword(null,"symbol","symbol",-1038572696).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.benc.encode_safe(hasch.platform.str__GT_utf8(this$__$1),md_create_fn));
+}));
+
+(cljs.core.UUID.prototype.hasch$benc$PHashCoercion$ = cljs.core.PROTOCOL_SENTINEL);
+
+(cljs.core.UUID.prototype.hasch$benc$PHashCoercion$_coerce$arity$3 = (function (this$,md_create_fn,write_handlers){
+var this$__$1 = this;
+return hasch.platform.encode(new cljs.core.Keyword(null,"uuid","uuid",-2145095719).cljs$core$IFn$_invoke$arity$1(hasch.benc.magics),hasch.platform.str__GT_utf8(this$__$1.uuid));
+}));
+
+//# sourceMappingURL=hasch.platform.js.map

package/hasch.platform.js.map

@@ -0,0 +1 @@
+{"version":3,"sources":["hasch/platform.cljs"],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAeA,AAAKA,uBAAMC;AAEX,8BAAA,9BAAMC,oEAAWC;AAAjB,SACMA,DACA,KAAA,NACA,eAAA,fACA,+BAAA,tCACA,sDAAA;;AAEN,8BAAA,9BAAMC,oEAAWC;AAAjB,AACE,OAACC,8CAAMC,cAAI,AAACC,4CAAIN,4BAAUG;;AAE5B,wDAAA,xDAAeI;AAQf;;;6BAAA,7BAAOC,kEAEJC;AAFH,AAGE,OAACC,mDACA,AAACC,sDACA,WAAKC;AAAL,AACE,IAAMC,IAAE,AAAaJ,aAAEG;AAAvB,AACE,GAAM,MAAA,LAAIC;AAAV,0FAAmB,KAAA,JAASA;;AAA5B,GACM,MAAA,LAAIA;AADV,0FACoB,CAAA,QAAa,MAAA,LAAiBA,WAC9B,CAAA,QAAa,KAAA,JAASA;;AAF1C,GAGM,MAAA,LAAIA;AAHV,0FAGqB,CAAA,QAAa,MAAA,LAAiBA,YAC9B,CAAA,QAAa,cAAA,bAAS,MAAA,LAAiBA,mBACvC,CAAA,QAAa,KAAA,JAASA;;AAL3C,AAMe,IAAMC,IAAE,qBAAA,JAAOA;;AAAP,AACE,GAAI,oBAAA,nBAAM,CAAiBD,KAAE,KAAA,JAAGC;AAC9B,eAAO,KAAA,JAAKA;;;;AACZA;;;;;IACNC,OAAK,CAAQ,kBAAA,jBAAS,CAAA,WAAwBD,cACjC,CAAiBD,KAAE,CAAA,MAAK,KAAA,JAAKC;AALhD,AAME,OAACE,6CAEU,4CAAA,WAAAG,vDAACb;AAAD,AAAM,QAAA,QACQ,mCAAA,lCAAS,CAAiBO,KAAE,CAAA,MAAAM;qBAH1C,AAACF,8CAAM,KAAA,JAAKH,jEACZI,AACA,6EAGLH;;;;;qDAC3B,AAACE,8CAAM,AAAUR;;AAIrB,sBAAA,tBAAMW,oDACHX;AADH,AAEE,oBAAIF;AACF,OAACC,2BAAYC;;AACb,OAACY,iCAAiCZ;;;AAEtC;;;;uBAAA,vBAAMa,sDAGHC;AAHH,AAIE,IAAAC,aACwCD;UADxC,AAAAE,4CAAAD,WAAA,IAAA,jEAAOE;UAAP,AAAAD,4CAAAD,WAAA,IAAA,jEAAWG;UAAX,AAAAF,4CAAAD,WAAA,IAAA,jEAAeI;UAAf,AAAAH,4CAAAD,WAAA,IAAA,jEAAmBK;UAAnB,AAAAJ,4CAAAD,WAAA,IAAA,jEAAuBM;UAAvB,AAAAL,4CAAAD,WAAA,IAAA,jEAA2BO;UAA3B,AAAAN,4CAAAD,WAAA,IAAA,jEAA+BQ;UAA/B,AAAAP,4CAAAD,WAAA,IAAA,jEAAmCS;UAAnC,AAAAR,4CAAAD,WAAA,IAAA,jEACOU;UADP,AAAAT,4CAAAD,WAAA,IAAA,jEACWW;UADX,AAAAV,4CAAAD,WAAA,KAAA,lEACeY;UADf,AAAAX,4CAAAD,WAAA,KAAA,lEACmBa;UADnB,AAAAZ,4CAAAD,WAAA,KAAA,lEACuBc;UADvB,AAAAb,4CAAAD,WAAA,KAAA,lEAC2Be;UAD3B,AAAAd,4CAAAD,WAAA,KAAA,lEAC+BgB;UAD/B,AAAAf,4CAAAD,WAAA,KAAA,lEACmCiB;AADnC,AAEE,sBAGI,AAAC,WAAKhC,1BAKNmC;AALC,AAAQ,sKAAA,oNAAA,qNAAA,qNAAA,hvBAAK,AAACxC,8CAAMC,cAAI,6CAAA,7CAACqC,iDAAOjC,qDACf,AAACL,8CAAMC,cAAI,6CAAA,7CAACqC,iDAAO,6CAAA,7CAACC,iDAAOlC,sDAC3B,AAACL,8CAAMC,cAAI,6CAAA,7CAACqC,iDAAO,6CAAA,7CAACC,kDAAQlC,sDAC5B,AAACL,8CAAMC,cAAI,6CAAA,7CAACqC,iDAAO,6CAAA,7CAACC,kDAAQlC,sDAC5B,AAACL,8CAAMC,cAAI,6CAAA,7CAACsC,kDAAQlC;mHAPrC,8BAAA,7BAAW,cAAA,bAAWiB,kCAAUC,IAAIC,IAAIC,IAAIC,IAAIC,IAAI,CAAA,OAAa,CAAA,OAAcC,MAAMC,IACrF,6BAAA,5BAAW,aAAA,ZAASC,iCAAUC,IAAIC,IAAIC,IAAIC,IAAIC,IAAIC,IAAIC,7PACvDvC,AACA,4BAAA;;AAOR,uCAAA,vCAAM2C;AAAN,AACE,YAAAC;;AAEF,oCAAA,pCAAMC;AAAN,AACE,YAAAC;;AAEF,wBAAA,xBAAMC,wDAAQC,MAAMC;AAApB,AACE,OAAA,CAAcD,cAAOC;;AAEvB,8BAAA,9BAAOC,oEAAWC;AAAlB,AACE,2BAAA,4CAAIA,hEAAMjC;;AAEZ,AAAA,AAAA,CAAAkC,yBAAA,UAAA;;AAAA,CAAAC,mBAAA,UAEE,WAAUE,MAAKC,aAAaC;AAA5B,AACE,+HAAA,xHAACV,sBAAO,AAAA,+EAAMW;;;AAHlB,AAAA,CAAAN,yBAAA,aAAA;;AAAA,CAAAC,mBAAA,aAAA,WAMYE,MAAKC,aAAaC;AAN9B,AAOI,0IAAA,nIAACV,sBAAO,AAAA,0FAAUW,oBAAa,SAAA,KAAA,ZAAIH;;;AAPvC,AAAA,CAAA,AAAA,2CAAAD,3CAkBEM;;AAlBF,CAAA,AAAA,AAkBEA,0DACA,WAAUL,MAAKC,aAAaC;AAA5B,AAAA,gBAAA,ZAAUF;AAAV,AAEE,OAACR,sBAAO,AAAA,kFAAOW,mBAAQ,AAACR,4BAAU,AAAUK;;;AArBhD,AAAA,CAAA,AAAA,wDAAAD,xDA+BES;;AA/BF,CAAA,AAAA,AA+BEA,uEACA,WAAUR,MAAKC,aAAaC;AAA5B,AAAA,gBAAA,ZAAUF;AAAV,AACE,OAACR,sBAAO,AAAA,wFAAUW,mBAAQ,AAACC,uBAAY,AAACT,4BAAUK,WAAMC;;;AAjC5D,AAAA,CAAAJ,yBAAA,YAAA;;AAAA,CAAAC,mBAAA,YAAA,WAcYE,MAAKC,aAAaC;AAd9B,AAgBI,OAACV,sBAAO,AAAA,uFAASW,mBAAQ,AAACR,4BAAUK;;;AAhBxC,AAAA,CAAAH,yBAAA,OAAA;;AAAA,CAAAC,mBAAA,OAoCE,WAAUE,MAAKC,aAAaC;AAA5B,AACE,GAAM,kBAAWO,jBAA0BT;AACrC,IAAAU,aAA0BV;IAA1BU,iBAAA,AAAAC,4BAAAD;UAAA,AAAAE,4CAAAF,eAAA,jEAAcG;YAAd,AAAAD,4CAAAF,eAAA,nEAAkBI;AAAlB,AACE,OAACtB,sBAAO,AAAA,yFAAUW,mBAAQ,sBAAA,tBAACY,yGAAYF,IAAIC,cAAOb,aAAaC;;AAFvE,GAIM,EAAA,GAAA,UAAA,SAAA,EAAA,EAAA,CAAA,4CAAA,iBAAA,CAAAH,gCAAA,6BAAA,KAAA,EAAA,EAAA,4CAAA,AAAAiB,2DAAA,QAAA,AAAAA,jCAAYC,mEAAAA,5SAAQjB,uBAAAA,8FAAAA,sCAAAA,gGAAAA,mEAAAA;AACpB,IAAAkB,aAA0B,AAACC,gCAAoBjB,eAAeF;IAA9DkB,iBAAA,AAAAP,4BAAAO;UAAA,AAAAN,4CAAAM,eAAA,jEAAcL;YAAd,AAAAD,4CAAAM,eAAA,nEAAkBJ;AAAlB,AACE,OAACtB,sBAAO,AAAA,yFAAUW,mBAAQ,sBAAA,tBAACY,yGAAYF,IAAIC,cAAOb,aAAaC;;AANvE,GAQM,EAAA,GAAA,UAAA,SAAA,EAAA,EAAA,CAAA,4CAAA,WAAA,CAAAH,gCAAA,0BAAA,KAAA,EAAA,EAAA,4CAAA,AAAAiB,wDAAA,QAAA,AAAAA,9BAAYI,gEAAAA,hSAAKpB,uBAAAA,wFAAAA,mCAAAA,6FAAAA,gEAAAA;AACjB,OAACR,sBAAO,AAAA,kFAAMW,mBAAQ,AAACY,sBAAWf,MAAKC,aAAaC;;AAT1D,GAWM,EAAA,GAAA,UAAA,SAAA,EAAA,EAAA,CAAA,4CAAA,cAAA,CAAAH,gCAAA,6BAAA,KAAA,EAAA,EAAA,4CAAA,AAAAiB,2DAAA,QAAA,AAAAA,jCAAYK,mEAAAA,zSAAQrB,uBAAAA,2FAAAA,sCAAAA,gGAAAA,mEAAAA;AACpB,OAACR,sBAAO,AAAA,uFAASW,mBAAQ,AAACY,sBAAWf,MAAKC,aAAaC;;AAZ7D,GAcM,EAAA,GAAA,UAAA,SAAA,EAAA,EAAA,CAAA,4CAAA,aAAA,CAAAH,gCAAA,0BAAA,KAAA,EAAA,EAAA,4CAAA,AAAAiB,wDAAA,QAAA,AAAAA,9BAAYM,gEAAAA,lSAAKtB,uBAAAA,0FAAAA,mCAAAA,6FAAAA,gEAAAA;AACjB,OAACR,sBAAO,AAAA,iFAAMW,mBAAQ,AAACoB,sBAAW,4CAAA,WAAAC,vDAAC3E;AAAD,AAAM,0BAAA2E,nBAAC1B,oCAAUG,aAAaC;GACzB,AAACuB,cAAIzB;;AAhBlD,GAkBM,EAAA,GAAA,UAAA,SAAA,EAAA,EAAA,CAAA,4CAAA,aAAA,CAAAD,gCAAA,0BAAA,KAAA,EAAA,EAAA,4CAAA,AAAAiB,wDAAA,QAAA,AAAAA,9BAAYU,gEAAAA,lSAAK1B,uBAAAA,0FAAAA,mCAAAA,6FAAAA,gEAAAA;AACjB,OAACR,sBAAO,AAAA,gFAAMW,mBAAQ,AAACoB,sBAAW,4CAAA,WAAAI,vDAAC9E;AAAD,AAAM,OAAC+E,kBAAO,mBAAAD,nBAAC7B,oCAAUG,aAAaC,gBACxBD;GACT,AAACwB,cAAIzB;;AArBlD,GAuBM,kBAAW6B,jBAAc7B;AACzB,OAACR,sBAAO,AAAA,wFAASW,mBAAQ,AAACC,uBAAY,AAAC0B,2BAA8B9B,OAAMC;;AAxBjF,AA2BM,MAAO,gDAAA,uEAAA,2CAAA,2EAAA,7OAAC8B,uNACe,AAACC,eAAKhC,6DACLA;;;;;;;;;;;AAlElC,AAAA,CAAAH,yBAAA,YAAA;;AAAA,CAAAC,mBAAA,YAUE,WAAUE,MAAKC,aAAaC;AAA5B,AACE,OAACV,sBAAO,AAAA,wFAASW,mBAAQ,AAACC,uBAAY,AAACT,4BAAUK,OAAMC;;;AAX3D,AAAA,CAAA,AAAA,uDAAAF,vDA2BEQ;;AA3BF,CAAA,AAAA,AA2BEA,sEACA,WAAUP,MAAKC,aAAaC;AAA5B,AAAA,gBAAA,ZAAUF;AAAV,AACE,OAACR,sBAAO,AAAA,wFAASW,mBAAQ,AAACC,uBAAY,AAACT,4BAAUK,WAAMC;;;AA7B3D,AAAA,CAAA,AAAA,qDAAAF,rDAuBEO;;AAvBF,CAAA,AAAA,AAuBEA,oEACA,WAAUN,MAAKC,aAAaC;AAA5B,AAAA,gBAAA,ZAAUF;AAAV,AACE,OAACR,sBAAO,AAAA,oFAAOW,mBAAQ,AAACR,4BAAU,AAAQK;;AA2C9C","names":["hasch.platform/uuid4","cljs.core/random-uuid","hasch.platform/byte->hex","b","hasch.platform/hash->str","bytes","cljs.core.apply","cljs.core/str","cljs.core.map","hasch.platform/*use-legacy-utf8-conversion*","hasch.platform/legacy-utf8","s","cljs.core.into_array","cljs.core.mapcat","pos","c","j","init","cljs.core.conj","cljs.core.range","cljs.core/reverse","p1__26047#","hasch.platform/utf8","goog.crypt/stringToUtf8ByteArray","hasch.platform/uuid5","sha-hash","vec__26048","cljs.core.nth","hb1","hb2","hb3","hb4","hb5","hb6","hb7","hb8","lb1","lb2","lb3","lb4","lb5","lb6","lb7","lb8","cljs.core.take","cljs.core.drop","cljs.core/uuid","hasch.platform/sha512-message-digest","js/goog.crypt.Sha512","hasch.platform/md5-message-digest","js/goog.crypt.Md5","hasch.platform/encode","magic","a","hasch.platform/str->utf8","x","hasch.benc/PHashCoercion","hasch.benc/-coerce","cljs.core/PROTOCOL_SENTINEL","this","md-create-fn","write-handlers","hasch.benc/magics","hasch.benc/encode-safe","js/Date","cljs.core/UUID","cljs.core/Symbol","cljs.core/Keyword","incognito.base/IncognitoTaggedLiteral","map__26076","cljs.core/--destructure-map","cljs.core.get","tag","value","hasch.benc/coerce-seq","cljs.core/native-satisfies?","cljs.core/IRecord","map__26087","incognito.base/incognito-writer","cljs.core/ISeq","cljs.core/IVector","cljs.core/IMap","hasch.benc/xor-hashes","p1__26051#","cljs.core/seq","cljs.core/ISet","p1__26052#","hasch.benc/digest","js/Uint8Array","js/Array.prototype.slice.call","cljs.core.ex_info","cljs.core/type"],"sourcesContent":["(ns hasch.platform\n  (:require [goog.crypt]\n            [goog.crypt.Sha512]\n            [cljs.reader :as reader]\n            [clojure.string]\n            [incognito.base :as ib]\n            [hasch.benc :refer [magics PHashCoercion -coerce\n                                digest coerce-seq xor-hashes encode-safe]]))\n\n#_(do\n    (ns dev)\n    (def repl-env (reset! cemerick.austin.repls/browser-repl-env\n                          (cemerick.austin/repl-env)))\n    (cemerick.austin.repls/cljs-repl repl-env))\n\n(def uuid4 random-uuid)\n\n(defn byte->hex [b]\n  (-> b\n      (bit-and 0xff)\n      (+ 0x100)\n      (.toString 16)\n      (.substring 1)))\n\n(defn hash->str [bytes]\n  (apply str (map byte->hex bytes)))\n\n(def ^:dynamic *use-legacy-utf8-conversion* false)\n\n;; taken from http://jsperf.com/uint8array-vs-array-encode-to-utf8/2\n;; which is taken from //http://user1.matsumoto.ne.jp/~goma/js/utf.js\n;; verified against: \"\u5c0f\u9ce9\u3061\u3083\u3093\u304b\u308f\u3044\u3044\u306a\u3041\"\n;; Note that this variant is broken for higher planes of unicode. For\n;; backwards compatibility, you can enable `*use-legacy-utf8-conversion*`\n;; to keep using the old improper conversion method.\n(defn- legacy-utf8\n  \"Encodes a string as UTF-8 in an unsigned js array.\"\n  [s]\n  (into-array\n   (mapcat\n    (fn [pos]\n      (let [c (.charCodeAt s pos)]\n        (cond (<= c 0x7F) [(bit-and c 0xFF)]\n              (<= c 0x7FF) [(bit-or 0xC0 (bit-shift-right c 6))\n                            (bit-or 0x80 (bit-and c 0x3F))]\n              (<= c 0xFFFF) [(bit-or 0xE0 (bit-shift-right c 12))\n                             (bit-or 0x80 (bit-and (bit-shift-right c 6) 0x3F))\n                             (bit-or 0x80 (bit-and c 0x3F))]\n              :default (let [j (loop [j 4]\n                                 (if (pos? (bit-shift-right c (* j 6)))\n                                   (recur (inc j))\n                                   j))\n                             init (bit-or (bit-and (bit-shift-right 0xFF00 j) 0xFF)\n                                          (bit-shift-right c (* 6 (dec j))))]\n                         (conj (->> (range (dec j))\n                                    reverse\n                                    (map #(bit-or 0x80\n                                                  (bit-and (bit-shift-right c (* 6 %))\n                                                           0x3F))))\n                               init)))))\n    (range (.-length s)))))\n\n#_(utf8 \"\u5c0f\u9ce9\u3061\u3083\u3093\u304b\u308f\u3044\u3044\u306a\u3041\")\n\n(defn utf8\n  [s]\n  (if *use-legacy-utf8-conversion*\n    (legacy-utf8 s)\n    (goog.crypt/stringToUtf8ByteArray s)))\n\n(defn uuid5\n  \"Generates a uuid5 from a sha-1 hash byte sequence.\nOur hash version is coded in first 2 bits.\"\n  [sha-hash]\n  (let [[hb1 hb2 hb3 hb4 hb5 hb6 hb7 hb8\n         lb1 lb2 lb3 lb4 lb5 lb6 lb7 lb8] sha-hash]\n    (-> [(bit-clear (bit-clear hb1 7) 6) hb2 hb3 hb4 hb5 hb6 (bit-or 0x50 (bit-and 0x5f hb7)) hb8\n         (bit-clear (bit-set lb1 7) 6) lb2 lb3 lb4 lb5 lb6 lb7 lb8]\n        hash->str\n        ((fn [s] (str (apply str (take 8 s))\n                      \"-\" (apply str (take 4 (drop 8 s)))\n                      \"-\" (apply str (take 4 (drop 12 s)))\n                      \"-\" (apply str (take 4 (drop 16 s)))\n                      \"-\" (apply str (drop 20 s)))))\n        uuid)))\n\n(defn sha512-message-digest []\n  (goog.crypt.Sha512.))\n\n(defn md5-message-digest []\n  (goog.crypt.Md5.))\n\n(defn encode [magic a]\n  (.concat #js [magic] a))\n\n(defn- str->utf8 [x]\n  (-> x str utf8))\n\n(extend-protocol PHashCoercion\n  nil\n  (-coerce [this md-create-fn write-handlers]\n    (encode (:nil magics) #js[]))\n\n  boolean\n  (-coerce [this md-create-fn write-handlers]\n    (encode (:boolean magics) #js [(if this 41 40)]))\n\n  string\n  (-coerce [this md-create-fn write-handlers]\n    (encode (:string magics) (encode-safe (str->utf8 this) md-create-fn)))\n\n  number\n  (-coerce [this md-create-fn write-handlers]\n    ;; utf8 is not needed, can be optimized\n    (encode (:number magics) (str->utf8 this)))\n\n  js/Date\n  (-coerce [this md-create-fn write-handlers]\n    ;; utf8 is not needed, can be optimized\n    (encode (:inst magics) (str->utf8 (.getTime this))))\n\n  cljs.core/UUID\n  (-coerce [this md-create-fn write-handlers]\n    (encode (:uuid magics) (str->utf8 (.-uuid this))))\n\n  cljs.core/Symbol\n  (-coerce [this md-create-fn write-handlers]\n    (encode (:symbol magics) (encode-safe (str->utf8 this) md-create-fn)))\n\n  cljs.core/Keyword\n  (-coerce [this md-create-fn write-handlers]\n    (encode (:keyword magics) (encode-safe (str->utf8 this) md-create-fn)))\n\n  default\n  (-coerce [this md-create-fn write-handlers]\n    (cond (instance? ib/IncognitoTaggedLiteral this)\n          (let [{:keys [tag value]} this]\n            (encode (:literal magics) (coerce-seq [tag value] md-create-fn write-handlers)))\n\n          (satisfies? IRecord this)\n          (let [{:keys [tag value]} (ib/incognito-writer write-handlers this)]\n            (encode (:literal magics) (coerce-seq [tag value] md-create-fn write-handlers)))\n\n          (satisfies? ISeq this)\n          (encode (:seq magics) (coerce-seq this md-create-fn write-handlers))\n\n          (satisfies? IVector this)\n          (encode (:vector magics) (coerce-seq this md-create-fn write-handlers))\n\n          (satisfies? IMap this)\n          (encode (:map magics) (xor-hashes (map #(-coerce % md-create-fn write-handlers)\n                                                 (seq this))))\n\n          (satisfies? ISet this)\n          (encode (:set magics) (xor-hashes (map #(digest (-coerce % md-create-fn write-handlers)\n                                                          md-create-fn)\n                                                 (seq this))))\n\n          (instance? js/Uint8Array this)\n          (encode (:binary magics) (encode-safe (js/Array.prototype.slice.call this) md-create-fn))\n\n          :else\n          (throw (ex-info \"Cannot hash unknown type, you can extend PHashCoercion protocol for:\"\n                          {:type (type this)\n                           :value this})))))\n\n(comment\n  (js/Array.prototype.slice.call (js/Uint8Array. #js [1 2 3]))\n  (.log js/console (-coerce (js/Uint8Array. #js [1 2 3]) (sha512-message-digest) sha512-message-digest))\n\n  (do\n    (def datom-vector (doall (vec (repeat 10000 {:db/id 18239\n                                                 :person/name \"Frederic\"\n                                                 :person/familyname \"Johanson\"\n                                                 :person/street \"Fifty-First Street 53\"\n                                                 :person/postal 38237\n                                                 :person/telefon \"02343248474\"\n                                                 :person/weeight 0.3823}))))\n    nil)\n\n  (time (-coerce datom-vector sha512-message-digest))\n\n  (coerce-seq (sha512-message-digest) sha512-message-digest [:foo {:a \"b\"}])\n\n  ;; quick & dirty js advanced compilation benchmark\n  (enable-console-print!)\n\n  (def datom-vector (doall (vec (repeat 10000 {:db/id 18239\n                                               :person/name \"Frederic\"\n                                               :person/familyname \"Johanson\"\n                                               :person/street \"Fifty-First Street 53\"\n                                               :person/postal 38237\n                                               :person/telefon \"02343248474\"\n                                               :person/weeight 0.3823}))))\n\n  (.log js/console \"benchmarking: \" (time (-coerce datom-vector sha512-message-digest))))\n"],"x_google_ignoreList":[0]}