m3-json-schema 1.0.0-beta1

package/m3.format.js

@@ -0,0 +1,301 @@
+var $CLJS = require("./cljs_env");
+var $jscomp = $CLJS.$jscomp;
+var COMPILED = false;
+require("./cljs.core.js");
+require("./cljc.java_time.local_date.js");
+require("./cljc.java_time.offset_date_time.js");
+require("./cljc.java_time.offset_time.js");
+require("./clojure.string.js");
+require("./m3.util.js");
+require("./m3.ecma.js");
+require("./m3.pattern.js");
+require("./m3.idn_hostname.js");
+var cljc=$CLJS.cljc || ($CLJS.cljc = {});
+var m3=$CLJS.m3 || ($CLJS.m3 = {});
+var clojure=$CLJS.clojure || ($CLJS.clojure = {});
+var cljs=$CLJS.cljs || ($CLJS.cljs = {});
+var java=$CLJS.java || ($CLJS.java = {});
+var shadow=$CLJS.shadow || ($CLJS.shadow = {});
+var goog=$CLJS.goog || ($CLJS.goog = {});
+var module$shadow_js_shim_module$$js_joda$core=$CLJS.module$shadow_js_shim_module$$js_joda$core || ($CLJS.module$shadow_js_shim_module$$js_joda$core = {});
+var module$shadow_js_shim_module$punycode=$CLJS.module$shadow_js_shim_module$punycode || ($CLJS.module$shadow_js_shim_module$punycode = {});
+
+$CLJS.SHADOW_ENV.setLoaded("m3.format.js");
+
+goog.provide('m3.format');
+m3.format.match = (function m3$format$match(format,pattern,_c2,p2,m2,p1,m1){
+if(cljs.core.truth_(cljs.core.re_find(pattern,m1))){
+return null;
+} else {
+return new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [m3.util.make_error(["format: not a valid ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(format)].join(''),p2,m2,p1,m1)], null);
+}
+});
+m3.format.check_pattern = (function m3$format$check_pattern(pattern,format,c2,p2,m2){
+return (function (_c1,p1,m1){
+return m3.format.match(format,pattern,c2,p2,m2,p1,m1);
+});
+});
+m3.format.check_parse = (function m3$format$check_parse(p,f,_c2,p2,m2){
+return (function (_c1,p1,m1){
+try{(p.cljs$core$IFn$_invoke$arity$1 ? p.cljs$core$IFn$_invoke$arity$1(m1) : p.call(null,m1));
+
+return null;
+}catch (e21993){if((e21993 instanceof Error)){
+var e = e21993;
+return new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [m3.util.make_error(["format: not a valid ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(f),": ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(cljs.core.ex_message(e))].join(''),p2,m2,p1,m1)], null);
+} else {
+throw e21993;
+
+}
+}});
+});
+m3.format.json_duration_QMARK_ = (function m3$format$json_duration_QMARK_(s){
+return cljs.core.boolean$((function (){var temp__5825__auto__ = cljs.core.re_find(m3.pattern.json_duration_pattern,s);
+if(cljs.core.truth_(temp__5825__auto__)){
+var vec__22000 = temp__5825__auto__;
+var _p_t_or_w = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22000,(0),null);
+var _ymdthms_or_w = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22000,(1),null);
+var ymd = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22000,(2),null);
+var _y = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22000,(3),null);
+var _m = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22000,(4),null);
+var _d = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22000,(5),null);
+var thms = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22000,(6),null);
+var _h = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22000,(7),null);
+var _m__$1 = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22000,(8),null);
+var _s = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22000,(9),null);
+var w = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22000,(10),null);
+return (!(((((cljs.core.empty_QMARK_(ymd)) && (((cljs.core.empty_QMARK_(thms)) && (cljs.core.empty_QMARK_(w)))))) || (cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2("T",thms)))));
+} else {
+return null;
+}
+})());
+});
+m3.format.parse_int = (function m3$format$parse_int(s){
+return parseInt(s,(10));
+});
+m3.format.leap_second_time_re = /^(\d{2}):(\d{2}):(60(?:\.\d+)?)(z|([+-])(\d{2}):(\d{2}))$/i;
+/**
+ * Returns true if s is a valid leap-second time, false if it contains :60 but
+ * is invalid, nil if it does not contain :60 (not a leap second).
+ */
+m3.format.valid_leap_second_time_QMARK_ = (function m3$format$valid_leap_second_time_QMARK_(s){
+var temp__5825__auto__ = cljs.core.re_find(m3.format.leap_second_time_re,s);
+if(cljs.core.truth_(temp__5825__auto__)){
+var vec__22025 = temp__5825__auto__;
+var _ = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22025,(0),null);
+var hh = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22025,(1),null);
+var mm = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22025,(2),null);
+var _ss = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22025,(3),null);
+var _tz = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22025,(4),null);
+var tz_sign = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22025,(5),null);
+var tz_hh = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22025,(6),null);
+var tz_mm = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22025,(7),null);
+var h = m3.format.parse_int(hh);
+var m = m3.format.parse_int(mm);
+var and__5023__auto__ = ((((0) <= h)) && ((h <= (23))));
+if(and__5023__auto__){
+var and__5023__auto____$1 = ((((0) <= m)) && ((m <= (59))));
+if(and__5023__auto____$1){
+if((tz_sign == null)){
+return ((cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(h,(23))) && (cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(m,(59))));
+} else {
+var oh = m3.format.parse_int(tz_hh);
+var om = m3.format.parse_int(tz_mm);
+var and__5023__auto____$2 = ((((0) <= oh)) && ((oh <= (23))));
+if(and__5023__auto____$2){
+var and__5023__auto____$3 = ((((0) <= om)) && ((om <= (59))));
+if(and__5023__auto____$3){
+var local_min = ((h * (60)) + m);
+var off_min = (((cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(tz_sign,"+"))?(1):(-1)) * ((oh * (60)) + om));
+var utc_min = cljs.core.mod((local_min - off_min),(1440));
+return cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(utc_min,(1439));
+} else {
+return and__5023__auto____$3;
+}
+} else {
+return and__5023__auto____$2;
+}
+}
+} else {
+return and__5023__auto____$1;
+}
+} else {
+return and__5023__auto__;
+}
+} else {
+return null;
+}
+});
+m3.format.date_time_split_re = /^(\d{4}-\d{2}-\d{2})t(.+)$/i;
+m3.format.check_format_host_name = (function m3$format$check_format_host_name(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.hostname_pattern,"host-name",_c2,p2,m2);
+});
+m3.format.check_format_ip_address = (function m3$format$check_format_ip_address(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.ip_address_pattern,"ip-address",_c2,p2,m2);
+});
+m3.format.css_color_names = new cljs.core.PersistentHashSet(null, new cljs.core.PersistentArrayMap(null, 17, ["aqua",null,"blue",null,"white",null,"silver",null,"purple",null,"orange",null,"lime",null,"gray",null,"fuchsia",null,"yellow",null,"teal",null,"olive",null,"navy",null,"green",null,"red",null,"maroon",null,"black",null], null), null);
+m3.format.check_format_color = (function m3$format$check_format_color(_c2,p2,m2){
+return (function (_c1,p1,m1){
+if(cljs.core.truth_((function (){var or__5025__auto__ = cljs.core.re_find(m3.pattern.color_pattern,m1);
+if(cljs.core.truth_(or__5025__auto__)){
+return or__5025__auto__;
+} else {
+var G__22030 = clojure.string.lower_case(m1);
+return (m3.format.css_color_names.cljs$core$IFn$_invoke$arity$1 ? m3.format.css_color_names.cljs$core$IFn$_invoke$arity$1(G__22030) : m3.format.css_color_names.call(null,G__22030));
+}
+})())){
+return null;
+} else {
+return new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [m3.util.make_error("format: not a valid color",p2,m2,p1,m1)], null);
+}
+});
+});
+m3.format.check_format_style = (function m3$format$check_format_style(_c2,_p2,_m2){
+return cljs.core.constantly(null);
+});
+m3.format.check_format_phone = (function m3$format$check_format_phone(_c2,_p2,_m2){
+return cljs.core.constantly(null);
+});
+m3.format.check_format_utc_millisec = (function m3$format$check_format_utc_millisec(_c2,_p2,_m2){
+return cljs.core.constantly(null);
+});
+m3.format.check_format_email = (function m3$format$check_format_email(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.email_pattern,"email",_c2,p2,m2);
+});
+m3.format.check_format_ipv4 = (function m3$format$check_format_ipv4(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.ipv4_pattern,"ipv4",_c2,p2,m2);
+});
+m3.format.check_format_ipv6 = (function m3$format$check_format_ipv6(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.ipv6_pattern,"ipv6",_c2,p2,m2);
+});
+m3.format.check_format_hostname = (function m3$format$check_format_hostname(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.hostname_pattern,"hostname",_c2,p2,m2);
+});
+m3.format.check_format_date_time = (function m3$format$check_format_date_time(_c2,p2,m2){
+var normal_check = m3.format.check_parse(cljc.java_time.offset_date_time.parse,"date-time",_c2,p2,m2);
+return (function (_c1,p1,m1){
+var temp__5823__auto__ = cljs.core.re_find(m3.format.date_time_split_re,m1);
+if(cljs.core.truth_(temp__5823__auto__)){
+var vec__22036 = temp__5823__auto__;
+var _ = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22036,(0),null);
+var date_part = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22036,(1),null);
+var time_part = cljs.core.nth.cljs$core$IFn$_invoke$arity$3(vec__22036,(2),null);
+var G__22039 = m3.format.valid_leap_second_time_QMARK_(time_part);
+if(cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(true,G__22039)){
+try{cljc.java_time.local_date.parse.cljs$core$IFn$_invoke$arity$1(date_part);
+
+return null;
+}catch (e22040){if((e22040 instanceof Error)){
+var e = e22040;
+return new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [m3.util.make_error(["format: not a valid date-time: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(cljs.core.ex_message(e))].join(''),p2,m2,p1,m1)], null);
+} else {
+throw e22040;
+
+}
+}} else {
+if(cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(false,G__22039)){
+return new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [m3.util.make_error("format: not a valid date-time",p2,m2,p1,m1)], null);
+} else {
+return normal_check(_c1,p1,m1);
+
+}
+}
+} else {
+return normal_check(_c1,p1,m1);
+}
+});
+});
+m3.format.check_format_date = (function m3$format$check_format_date(_c2,p2,m2){
+return m3.format.check_parse(cljc.java_time.local_date.parse,"date",_c2,p2,m2);
+});
+m3.format.check_format_time_pattern = (function m3$format$check_format_time_pattern(c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.time_pattern,"time",c2,p2,m2);
+});
+m3.format.check_format_time_parse = (function m3$format$check_format_time_parse(_c2,p2,m2){
+var normal_check = m3.format.check_parse(cljc.java_time.offset_time.parse,"time",_c2,p2,m2);
+return (function (_c1,p1,m1){
+var G__22045 = m3.format.valid_leap_second_time_QMARK_(m1);
+if(cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(true,G__22045)){
+return null;
+} else {
+if(cljs.core._EQ_.cljs$core$IFn$_invoke$arity$2(false,G__22045)){
+return new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [m3.util.make_error("format: not a valid time",p2,m2,p1,m1)], null);
+} else {
+return normal_check(_c1,p1,m1);
+
+}
+}
+});
+});
+m3.format.check_format_json_pointer = (function m3$format$check_format_json_pointer(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.json_pointer_pattern,"json-pointer",_c2,p2,m2);
+});
+m3.format.check_format_relative_json_pointer = (function m3$format$check_format_relative_json_pointer(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.relative_pointer_pattern,"relative-json-pointer",_c2,p2,m2);
+});
+m3.format.check_format_uri = (function m3$format$check_format_uri(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.uri_pattern,"uri",_c2,p2,m2);
+});
+m3.format.check_format_uri_reference = (function m3$format$check_format_uri_reference(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.uri_reference_pattern,"uri-reference",_c2,p2,m2);
+});
+m3.format.check_format_uri_template = (function m3$format$check_format_uri_template(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.uri_template_pattern,"uri-template",_c2,p2,m2);
+});
+m3.format.check_format_idn_email = (function m3$format$check_format_idn_email(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.idn_email_pattern,"idn-email",_c2,p2,m2);
+});
+m3.format.check_format_idn_hostname = (function m3$format$check_format_idn_hostname(_c2,p2,m2){
+return (function (_c1,p1,m1){
+if(cljs.core.truth_(m3.idn_hostname.json_idn_hostname_QMARK_(m1))){
+return null;
+} else {
+return new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [m3.util.make_error("format: not a valid idn-hostname:",p2,m2,p1,m1)], null);
+}
+});
+});
+m3.format.check_format_iri = (function m3$format$check_format_iri(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.iri_pattern,"iri",_c2,p2,m2);
+});
+m3.format.check_format_iri_reference = (function m3$format$check_format_iri_reference(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.iri_reference_pattern,"iri-reference",_c2,p2,m2);
+});
+m3.format.check_format_uuid = (function m3$format$check_format_uuid(_c2,p2,m2){
+return m3.format.check_pattern(m3.pattern.uuid_pattern,"uuid",_c2,p2,m2);
+});
+m3.format.check_format_duration = (function m3$format$check_format_duration(_c2,p2,m2){
+return (function (_c1,p1,m1){
+if(m3.format.json_duration_QMARK_(m1)){
+return null;
+} else {
+return new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [m3.util.make_error("format: not a valid duration:",p2,m2,p1,m1)], null);
+}
+});
+});
+m3.format.check_format_regex = (function m3$format$check_format_regex(_c2,p2,m2){
+return m3.format.check_parse(m3.ecma.ecma_pattern,"regex",_c2,p2,m2);
+});
+m3.format.lookbehind_re = /\(\?<[=!]/;
+m3.format.check_format_regex_draft3 = (function m3$format$check_format_regex_draft3(_c2,p2,m2){
+var base_check = m3.format.check_format_regex(_c2,p2,m2);
+return (function (_c1,p1,m1){
+if(cljs.core.truth_(cljs.core.re_find(m3.format.lookbehind_re,m1))){
+return new cljs.core.PersistentVector(null, 1, 5, cljs.core.PersistentVector.EMPTY_NODE, [m3.util.make_error("format: not a valid regex (lookbehind not supported)",p2,m2,p1,m1)], null);
+} else {
+return base_check(_c1,p1,m1);
+}
+});
+});
+m3.format.check_format_unknown = (function m3$format$check_format_unknown(_c2,_p2,_m2){
+return cljs.core.constantly(null);
+});
+m3.format.draft3_format__GT_checker = cljs.core.PersistentHashMap.fromArrays(["ip-address","host-name","uri","regex","ipv6","email","style","utc-millisec","time","date-time","phone","date","color"],[m3.format.check_format_ip_address,m3.format.check_format_host_name,m3.format.check_format_uri,m3.format.check_format_regex_draft3,m3.format.check_format_ipv6,m3.format.check_format_email,m3.format.check_format_style,m3.format.check_format_utc_millisec,m3.format.check_format_time_pattern,m3.format.check_format_date_time,m3.format.check_format_phone,m3.format.check_format_date,m3.format.check_format_color]);
+m3.format.draft4_format__GT_checker = cljs.core.assoc.cljs$core$IFn$_invoke$arity$variadic(cljs.core.dissoc.cljs$core$IFn$_invoke$arity$variadic(m3.format.draft3_format__GT_checker,"color",cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2(["date","phone","style","utc-millisec","host-name","ip-address","time"], 0)),"hostname",m3.format.check_format_hostname,cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2(["ipv4",m3.format.check_format_ipv4,"unknown",m3.format.check_format_unknown], 0));
+m3.format.draft6_format__GT_checker = cljs.core.assoc.cljs$core$IFn$_invoke$arity$variadic(m3.format.draft4_format__GT_checker,"json-pointer",m3.format.check_format_json_pointer,cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2(["uri-reference",m3.format.check_format_uri_reference,"uri-template",m3.format.check_format_uri_template], 0));
+m3.format.draft7_format__GT_checker = cljs.core.assoc.cljs$core$IFn$_invoke$arity$variadic(m3.format.draft6_format__GT_checker,"date",m3.format.check_format_date,cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2(["idn-email",m3.format.check_format_idn_email,"idn-hostname",m3.format.check_format_idn_hostname,"iri",m3.format.check_format_iri,"iri-reference",m3.format.check_format_iri_reference,"relative-json-pointer",m3.format.check_format_relative_json_pointer,"time",m3.format.check_format_time_parse], 0));
+m3.format.draft2019_09_format__GT_checker = cljs.core.assoc.cljs$core$IFn$_invoke$arity$variadic(m3.format.draft7_format__GT_checker,"duration",m3.format.check_format_duration,cljs.core.prim_seq.cljs$core$IFn$_invoke$arity$2(["uuid",m3.format.check_format_uuid], 0));
+m3.format.draft2020_12_format__GT_checker = m3.format.draft2019_09_format__GT_checker;
+m3.format.draft_next_format__GT_checker = m3.format.draft2019_09_format__GT_checker;
+m3.format.draft__GT_format__GT_checker = new cljs.core.PersistentArrayMap(null, 7, [new cljs.core.Keyword(null,"draft3","draft3",-292494828),m3.format.draft3_format__GT_checker,new cljs.core.Keyword(null,"draft4","draft4",1928305297),m3.format.draft4_format__GT_checker,new cljs.core.Keyword(null,"draft6","draft6",223691613),m3.format.draft6_format__GT_checker,new cljs.core.Keyword(null,"draft7","draft7",427992330),m3.format.draft7_format__GT_checker,new cljs.core.Keyword(null,"draft2019-09","draft2019-09",2035136926),m3.format.draft2019_09_format__GT_checker,new cljs.core.Keyword(null,"draft2020-12","draft2020-12",-836724574),m3.format.draft2020_12_format__GT_checker,new cljs.core.Keyword(null,"draft-next","draft-next",-519216993),m3.format.draft_next_format__GT_checker], null);
+
+//# sourceMappingURL=m3.format.js.map

package/m3.format.js.map

@@ -0,0 +1 @@
+{"version":3,"sources":["m3/format.cljc"],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;AAgCA,kBAAA,lBAAMA,4CAAOC,OAAOC,QAAQC,IAAIC,GAAGC,GAAGC,GAAGC;AAAzC,AACE,oBAAU,AAACC,kBAAQN,QAAQK;AAA3B;;AAAA,AAAA,0FACG,AAACE,mBAAW,CAAA,mEAA4BR,kBAAQG,GAAGC,GAAGC,GAAGC;;;AAE9D,0BAAA,1BAAMG,4DAAeR,QAAQD,OAAOU,GAAGP,GAAGC;AAA1C,AACE,kBAAKO,IAAIN,GAAGC;AAAZ,AACE,OAACP,gBAAMC,OAAOC,QAAQS,GAAGP,GAAGC,GAAGC,GAAGC;;;AAEtC,wBAAA,xBAAMM,wDAAaC,EAAEC,EAAEZ,IAAIC,GAAGC;AAA9B,AACE,kBAAKO,IAAIN,GAAGC;AAAZ,AACE,IAAA,AACE,CAACO,kCAAAA,sCAAAA,NAAEP,kBAAAA;;AADL;gBAAA,GAAA,CAAAS,kBAGkBC;AAHlB,QAAAD,JAG2CE;AAH3C,AAAA,0FAIK,AAACT,mBAAW,CAAA,sEAAA,HAA4BM,oDAAO,AAACI,qBAAWD,cAAId,GAAGC,GAAGC,GAAGC;;AAJ7E,AAAA,MAAAS;;;;;AAMJ,iCAAA,jCAAMI,0EAAgBC;AAAtB,AACE,OAACC,mBACA,iBAAAC,qBAAkE,AAACf,kBAAQ4B,iCAAsBf;AAAjG,AAAA,oBAAAE;AAAA,AAAA,IAAAC,aAAAD;gBAAA,AAAAE,4CAAAD,WAAA,IAAA,vEAAYE;oBAAZ,AAAAD,4CAAAD,WAAA,IAAA,3EAAsBG;UAAtB,AAAAF,4CAAAD,WAAA,IAAA,jEAAoCI;SAApC,AAAAH,4CAAAD,WAAA,IAAA,hEAAwCK;SAAxC,AAAAJ,4CAAAD,WAAA,IAAA,hEAA2CM;SAA3C,AAAAL,4CAAAD,WAAA,IAAA,hEAA8CO;WAA9C,AAAAN,4CAAAD,WAAA,IAAA,lEAAiDQ;SAAjD,AAAAP,4CAAAD,WAAA,IAAA,hEAAsDS;aAAtD,AAAAR,4CAAAD,WAAA,IAAA,pEAAyDM;SAAzD,AAAAL,4CAAAD,WAAA,IAAA,hEAA4DU;QAA5D,AAAAT,4CAAAD,WAAA,KAAA,hEAA+DW;AAA/D,AACE,UACC,EACC,mCAAA,jCAAK,AAACE,uBAAOT,YAAK,AAACS,uBAAOL,WAAM,AAACK,uBAAOF,YACxC,6CAAA,7CAACG,iDAAMN;;AAJX;;;;AAMH,sBAAA,tBAAgBO,oDAAWlB;AAA3B,AACqC,kBAAA,XAACmB,SAAYnB;;AAElD,gCAAA,hCAAeoB;AAGf;;;;0CAAA,1CAAgBC,4FAGbrB;AAHH,AAIE,IAAAE,qBAAiD,AAACf,kBAAQiC,8BAAoBpB;AAA9E,AAAA,oBAAAE;AAAA,AAAA,IAAAoB,aAAApB;QAAA,AAAAE,4CAAAkB,WAAA,IAAA,/DAAYC;SAAZ,AAAAnB,4CAAAkB,WAAA,IAAA,hEAAcE;SAAd,AAAApB,4CAAAkB,WAAA,IAAA,hEAAiBG;UAAjB,AAAArB,4CAAAkB,WAAA,IAAA,jEAAoBI;UAApB,AAAAtB,4CAAAkB,WAAA,IAAA,jEAAwBK;cAAxB,AAAAvB,4CAAAkB,WAAA,IAAA,rEAA4BM;YAA5B,AAAAxB,4CAAAkB,WAAA,IAAA,nEAAoCO;YAApC,AAAAzB,4CAAAkB,WAAA,IAAA,nEAA0CQ;AAA1C,AACE,IAAMC,IAAE,AAACb,oBAAUM;IACbQ,IAAE,AAACd,oBAAUO;AADnB,AAEE,IAAAQ,oBAAK,EAAA,CAAA,eAAA,MAAA,dAAMF,SAAAA;AAAX,AAAA,GAAAE;AAAA,IAAAA,wBACK,EAAA,CAAA,eAAA,MAAA,dAAMD,SAAAA;AADX,AAAA,GAAAC;AAEK,GAAI,YAAA,XAAML;AACR,SAAK,+CAAA,/CAACX,6CAAEc,aAAM,+CAAA,/CAACd,6CAAEe;;AACjB,IAAME,KAAG,AAAChB,oBAAUW;IACdM,KAAG,AAACjB,oBAAUY;AADpB,AAEE,IAAAG,wBAAK,EAAA,CAAA,gBAAA,OAAA,hBAAMC,UAAAA;AAAX,AAAA,GAAAD;AAAA,IAAAA,wBACK,EAAA,CAAA,gBAAA,OAAA,hBAAME,UAAAA;AADX,AAAA,GAAAF;AAEK,IAAMG,YAAU,CAAG,KAAA,JAAGL,YAAMC;IACtBK,UAAQ,CAAG,6DAAA,IAAA,/DAAI,qDAAA,rDAACpB,6CAAEW,0BAAmB,CAAG,MAAA,LAAGM,aAAOC;IAClDG,UAAQ,oCAAA,pCAACC,cAAI,CAAGH,YAAUC;AAFhC,AAGE,4DAAA,rDAACpB,6CAAEqB;;AALVL;;;AAAAA;;;;AANTA;;;AAAAA;;;AAHJ;;;AAgBF,+BAAA,/BAAeO;AAKf,mCAAA,nCAAMC,8EAAwB3D,IAAIC,GAAGC;AAArC,AACE,2DAAA,pDAACK,wBAAcqD,wCAA6B5D,IAAIC,GAAGC;;AAErD,oCAAA,pCAAM2D,gFAAyB7D,IAAIC,GAAGC;AAAtC,AACE,6DAAA,tDAACK,wBAAcuD,2CAAgC9D,IAAIC,GAAGC;;AAExD,4BAAA,kFAAA,YAAA,YAAA,aAAA,cAAA,cAAA,cAAA,YAAA,YAAA,eAAA,cAAA,YAAA,aAAA,YAAA,aAAA,WAAA,cAAA,7TAAe6D;AAIf,+BAAA,/BAAMC,sEAAoBhE,IAAIC,GAAGC;AAAjC,AACE,kBAAKO,IAAIN,GAAGC;AAAZ,AACE,oBAAU,iBAAA6D,mBAAI,AAAC5D,kBAAQ6D,yBAAc9D;AAA3B,AAAA,oBAAA6D;AAAAA;;AACI,IAAAE,WAAiB,AAACC,0BAAehE;AAAjC,AAAA,0HAAA+D,gDAAAA,lKAACJ,0DAAAA,oEAAAA;;;AADf;;AAAA,AAAA,0FAEG,mBAAA,nBAACzD,+CAAuCL,GAAGC,GAAGC,GAAGC;;;;AAExD,+BAAA,/BAAMiE,sEAAoBrE,IAAIsE,IAAIC;AAAlC,AAEE,4BAAA,rBAACC;;AAEH,+BAAA,/BAAMC,sEAAoBzE,IAAIsE,IAAIC;AAAlC,AAEE,4BAAA,rBAACC;;AAEH,sCAAA,tCAAME,oFAA2B1E,IAAIsE,IAAIC;AAAzC,AAEE,4BAAA,rBAACC;;AAEH,+BAAA,/BAAMG,sEAAoB3E,IAAIC,GAAGC;AAAjC,AACE,wDAAA,jDAACK,wBAAcqE,iCAAsB5E,IAAIC,GAAGC;;AAE9C,8BAAA,9BAAM2E,oEAAmB7E,IAAIC,GAAGC;AAAhC,AACE,uDAAA,hDAACK,wBAAcuE,+BAAoB9E,IAAIC,GAAGC;;AAE5C,8BAAA,9BAAM6E,oEAAmB/E,IAAIC,GAAGC;AAAhC,AACE,uDAAA,hDAACK,wBAAcyE,+BAAoBhF,IAAIC,GAAGC;;AAE5C,kCAAA,lCAAM+E,4EAAuBjF,IAAIC,GAAGC;AAApC,AACE,2DAAA,pDAACK,wBAAcqD,uCAA4B5D,IAAIC,GAAGC;;AAEpD,mCAAA,nCAAMgF,8EAAwBlF,IAAIC,GAAGC;AAArC,AACE,IAAMiF,eAAa,4DAAA,5DAACzE,sBAAY0E,kDAAmCpF,IAAIC,GAAGC;AAA1E,AACE,kBAAKO,IAAIN,GAAGC;AAAZ,AACE,IAAAiF,qBAAiC,AAAChF,kBAAQqD,6BAAmBtD;AAA7D,AAAA,oBAAAiF;AAAA,IAAAC,aAAAD;QAAA,AAAA/D,4CAAAgE,WAAA,IAAA,/DAAU7C;gBAAV,AAAAnB,4CAAAgE,WAAA,IAAA,vEAAYC;gBAAZ,AAAAjE,4CAAAgE,WAAA,IAAA,vEAAsBE;AAAtB,AACE,IAAAC,WAAM,AAAClD,wCAAwBiD;AAA/B,AAAA,GAAA,AAAArD,6CAAA,KAAAsD;AACO,IAAA,AACE,AAACE,8DAAiBJ;;AADpB;gBAAA,GAAA,CAAAG,kBAGkB5E;AAHlB,QAAA4E,JAG2C3E;AAH3C,AAAA,0FAIK,AAACT,mBAAW,CAAA,8EAAuC,AAACU,qBAAWD,cAAId,GAAGC,GAAGC,GAAGC;;AAJjF,AAAA,MAAAsF;;;;AADP,GAAA,AAAAvD,6CAAA,MAAAsD;AAAA,0FAMS,mBAAA,nBAACnF,mDAA2CL,GAAGC,GAAGC,GAAGC;;AAN9D,AAOE,OAAC+E,aAAa1E,IAAIN,GAAGC;;;;;AACvB,OAAC+E,aAAa1E,IAAIN,GAAGC;;;;AAE7B,8BAAA,9BAAMwF,oEAAmB5F,IAAIC,GAAGC;AAAhC,AACE,6DAAA,tDAACQ,sBAAYmF,uCAAwB7F,IAAIC,GAAGC;;AAE9C,sCAAA,tCAAM4F,oFAA2BtF,GAAGP,GAAGC;AAAvC,AACE,uDAAA,hDAACK,wBAAcwF,+BAAoBvF,GAAGP,GAAGC;;AAE3C,oCAAA,pCAAM8F,gFAAyBhG,IAAIC,GAAGC;AAAtC,AACE,IAAMiF,eAAa,uDAAA,vDAACzE,sBAAYuF,wCAAyBjG,IAAIC,GAAGC;AAAhE,AACE,kBAAKO,IAAIN,GAAGC;AAAZ,AACE,IAAA8F,WAAM,AAAC3D,wCAAwBnC;AAA/B,AAAA,GAAA,AAAA+B,6CAAA,KAAA+D;AAAA;;AAAA,GAAA,AAAA/D,6CAAA,MAAA+D;AAAA,0FAES,mBAAA,nBAAC5F,8CAAsCL,GAAGC,GAAGC,GAAGC;;AAFzD,AAGE,OAAC+E,aAAa1E,IAAIN,GAAGC;;;;;;AAE7B,sCAAA,tCAAM+F,oFAA2BnG,IAAIC,GAAGC;AAAxC,AACE,+DAAA,xDAACK,wBAAc6F,+CAAoCpG,IAAIC,GAAGC;;AAE5D,+CAAA,/CAAMmG,sGAAoCrG,IAAIC,GAAGC;AAAjD,AACE,mEAAA,5DAACK,wBAAc+F,4DAAiDtG,IAAIC,GAAGC;;AAEzE,6BAAA,7BAAMqG,kEAAkBvG,IAAIC,GAAGC;AAA/B,AACE,sDAAA,/CAACK,wBAAciG,6BAAkBxG,IAAIC,GAAGC;;AAE1C,uCAAA,vCAAMuG,sFAA4BzG,IAAIC,GAAGC;AAAzC,AACE,gEAAA,zDAACK,wBAAcmG,iDAAsC1G,IAAIC,GAAGC;;AAE9D,sCAAA,tCAAMyG,oFAA2B3G,IAAIC,GAAGC;AAAxC,AACE,+DAAA,xDAACK,wBAAcqG,+CAAoC5G,IAAIC,GAAGC;;AAE5D,mCAAA,nCAAM2G,8EAAwB7G,IAAIC,GAAGC;AAArC,AACE,4DAAA,rDAACK,wBAAcuG,yCAA8B9G,IAAIC,GAAGC;;AAEtD,sCAAA,tCAAM6G,oFAA2B/G,IAAIC,GAAGC;AAAxC,AACE,kBAAKO,IAAIN,GAAGC;AAAZ,AACE,oBAAU,AAAC4G,yCAAmB5G;AAA9B;;AAAA,AAAA,0FACG,mBAAA,nBAACE,uDAA+CL,GAAGC,GAAGC,GAAGC;;;;AAEhE,6BAAA,7BAAM6G,kEAAkBjH,IAAIC,GAAGC;AAA/B,AACE,sDAAA,/CAACK,wBAAc2G,6BAAkBlH,IAAIC,GAAGC;;AAE1C,uCAAA,vCAAMiH,sFAA4BnH,IAAIC,GAAGC;AAAzC,AACE,gEAAA,zDAACK,wBAAc6G,iDAAsCpH,IAAIC,GAAGC;;AAE9D,8BAAA,9BAAMmH,oEAAmBrH,IAAIC,GAAGC;AAAhC,AACE,uDAAA,hDAACK,wBAAc+G,+BAAoBtH,IAAIC,GAAGC;;AAE5C,kCAAA,lCAAMqH,4EAAuBvH,IAAIC,GAAGC;AAApC,AACE,kBAAKO,IAAIN,GAAGC;AAAZ,AACE,GAAU,AAACa,+BAAeb;AAA1B;;AAAA,AAAA,0FACG,mBAAA,nBAACE,mDAA2CL,GAAGC,GAAGC,GAAGC;;;;AAE5D,+BAAA,/BAAMoH,sEAAoBxH,IAAIC,GAAGC;AAAjC,AACE,kDAAA,3CAACQ,sBAAY+G,6BAAqBzH,IAAIC,GAAGC;;AAE3C,0BAAA,1BAAewH;AAEf,sCAAA,tCAAMC,oFAA2B3H,IAAIC,GAAGC;AAAxC,AACE,IAAM0H,aAAW,AAACJ,6BAAmBxH,IAAIC,GAAGC;AAA5C,AACE,kBAAKO,IAAIN,GAAGC;AAAZ,AACE,oBAAI,AAACC,kBAAQqH,wBAActH;AAA3B,0FACG,mBAAA,nBAACE,0EAAkEL,GAAGC,GAAGC,GAAGC;;AAC7E,OAACwH,WAAWnH,IAAIN,GAAGC;;;;AAE3B,iCAAA,jCAAMyH,0EAAsB7H,IAAIsE,IAAIC;AAApC,AACE,4BAAA,rBAACC;;AAIH,sCAAA,wCAAA,aAAA,YAAA,MAAA,QAAA,OAAA,QAAA,QAAA,eAAA,OAAA,YAAA,QAAA,OAAA,7LAAKsD,ikBACa9D,5BACA4B,9DACAV,lIACAP,5HACAhB,lCACAE,kIACAkB,+LACAN,nOACAkD,6FACAtD,iEACAyB,zLACAS,qJACA7B;AAGlB,AAAKqD,iJACCD,tDACA,0FAAA,0DAAA,OAAA,QAAA,QAAA,eAAA,YAAA,aAAA,nNAACE,rDASD,qRAAA,6FAAA,mCAAA,rZAACC,gSACWhD,yFACAJ,sCACAgD;AAElB,AAAKK,sCACH,yFAAA,qGAAA,qDAAA,nPAACD,qDACAF,mDACgB5B,sGACAM,oDACAE;AAEnB,AAAKwB,sCACH,yFAAA,qFAAA,6CAAA,mDAAA,iCAAA,qDAAA,qEAAA,zaAACF,qDACAC,2CACwBtC,0FACAiB,gDACAE,0CACAE,2CACAE,6DACAd,oDACAL;AAE3B,AAAKoC,4CACH,yFAAA,6FAAA,tLAACH,qDACAE,+CACWZ,yFACAF;AAEd,AAAKgB,4CAA6BD;AAElC,AAAKE,0CAA2BF;AAEhC,yCAAA,2CAAA,6FAAA,6FAAA,4FAAA,4FAAA,+GAAA,+GAAA,pqBAAKG,6IACaT,6FACAC,4FACAG,4FACAC,yGACAC,+GACAC,2GACAC","names":["m3.format/match","format","pattern","_c2","p2","m2","p1","m1","cljs.core/re-find","m3.util/make-error","m3.format/check-pattern","c2","_c1","m3.format/check-parse","p","f","e21993","js/Error","e","cljs.core/ex-message","m3.format/json-duration?","s","cljs.core/boolean","temp__5825__auto__","vec__22000","cljs.core.nth","_p-t-or-w","_ymdthms-or-w","ymd","_y","_m","_d","thms","_h","_s","w","m3.pattern/json-duration-pattern","cljs.core/empty?","cljs.core._EQ_","m3.format/parse-int","js/parseInt","m3.format/leap-second-time-re","m3.format/valid-leap-second-time?","vec__22025","_","hh","mm","_ss","_tz","tz-sign","tz-hh","tz-mm","h","m","and__5023__auto__","oh","om","local-min","off-min","utc-min","cljs.core/mod","m3.format/date-time-split-re","m3.format/check-format-host-name","m3.pattern/hostname-pattern","m3.format/check-format-ip-address","m3.pattern/ip-address-pattern","m3.format/css-color-names","m3.format/check-format-color","or__5025__auto__","m3.pattern/color-pattern","G__22030","clojure.string/lower-case","m3.format/check-format-style","_p2","_m2","cljs.core/constantly","m3.format/check-format-phone","m3.format/check-format-utc-millisec","m3.format/check-format-email","m3.pattern/email-pattern","m3.format/check-format-ipv4","m3.pattern/ipv4-pattern","m3.format/check-format-ipv6","m3.pattern/ipv6-pattern","m3.format/check-format-hostname","m3.format/check-format-date-time","normal-check","cljc.java-time.offset-date-time/parse","temp__5823__auto__","vec__22036","date-part","time-part","G__22039","e22040","cljc.java_time.local_date.parse","m3.format/check-format-date","cljc.java-time.local-date/parse","m3.format/check-format-time-pattern","m3.pattern/time-pattern","m3.format/check-format-time-parse","cljc.java-time.offset-time/parse","G__22045","m3.format/check-format-json-pointer","m3.pattern/json-pointer-pattern","m3.format/check-format-relative-json-pointer","m3.pattern/relative-pointer-pattern","m3.format/check-format-uri","m3.pattern/uri-pattern","m3.format/check-format-uri-reference","m3.pattern/uri-reference-pattern","m3.format/check-format-uri-template","m3.pattern/uri-template-pattern","m3.format/check-format-idn-email","m3.pattern/idn-email-pattern","m3.format/check-format-idn-hostname","m3.idn-hostname/json-idn-hostname?","m3.format/check-format-iri","m3.pattern/iri-pattern","m3.format/check-format-iri-reference","m3.pattern/iri-reference-pattern","m3.format/check-format-uuid","m3.pattern/uuid-pattern","m3.format/check-format-duration","m3.format/check-format-regex","m3.ecma/ecma-pattern","m3.format/lookbehind-re","m3.format/check-format-regex-draft3","base-check","m3.format/check-format-unknown","m3.format/draft3-format->checker","m3.format/draft4-format->checker","cljs.core.dissoc","cljs.core.assoc","m3.format/draft6-format->checker","m3.format/draft7-format->checker","m3.format/draft2019-09-format->checker","m3.format/draft2020-12-format->checker","m3.format/draft-next-format->checker","m3.format/draft->format->checker"],"sourcesContent":[";; Copyright 2025 Julian Gosnell\n;;\n;; Licensed under the Apache License, Version 2.0 (the \"License\");\n;; you may not use this file except in compliance with the License.\n;; You may obtain a copy of the License at\n;;\n;;     http://www.apache.org/licenses/LICENSE-2.0\n;;\n;; Unless required by applicable law or agreed to in writing, software\n;; distributed under the License is distributed on an \"AS IS\" BASIS,\n;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\n;; See the License for the specific language governing permissions and\n;; limitations under the License.\n\n(ns m3.format\n  (:require\n   [cljc.java-time.local-date :refer [parse] :rename {parse local-date-parse}]\n   [cljc.java-time.offset-date-time :refer [parse] :rename {parse offset-date-time-parse}]\n   [cljc.java-time.offset-time :refer [parse] :rename {parse offset-time-parse}]\n   [clojure.string :as str]\n   [m3.util :refer [make-error]]\n   [m3.ecma :refer [ecma-pattern]]\n   [m3.pattern :refer [email-pattern ipv4-pattern ipv6-pattern hostname-pattern\n                       json-pointer-pattern relative-pointer-pattern uri-pattern\n                       uri-reference-pattern uri-template-pattern idn-email-pattern\n                       iri-pattern iri-reference-pattern uuid-pattern json-duration-pattern\n                       time-pattern ip-address-pattern color-pattern]]\n   [m3.idn-hostname :refer [json-idn-hostname?]]))\n\n;;------------------------------------------------------------------------------\n;; Helper functions\n\n(defn match [format pattern _c2 p2 m2 p1 m1]\n  (when-not (re-find pattern m1)\n    [(make-error (str \"format: not a valid \" format) p2 m2 p1 m1)]))\n\n(defn check-pattern [pattern format c2 p2 m2]\n  (fn [_c1 p1 m1]\n    (match format pattern c2 p2 m2 p1 m1)))\n\n(defn check-parse [p f _c2 p2 m2]\n  (fn [_c1 p1 m1]\n    (try\n      (p m1)\n      nil\n      (catch #?(:cljs js/Error :clj Exception) e\n        [(make-error (str \"format: not a valid \" f \": \" (ex-message e)) p2 m2 p1 m1)]))))\n\n(defn json-duration? [s]\n  (boolean\n   (when-let [[_p-t-or-w _ymdthms-or-w ymd _y _m _d thms _h _m _s w] (re-find json-duration-pattern s)]\n     (not\n      (or\n       (and (empty? ymd) (empty? thms) (empty? w))\n       (= \"T\" thms))))))\n\n(defn ^:private parse-int [s]\n  #?(:clj (Integer/parseInt s) :cljs (js/parseInt s 10)))\n\n(def ^:private leap-second-time-re\n  #\"(?i)^(\\d{2}):(\\d{2}):(60(?:\\.\\d+)?)(z|([+-])(\\d{2}):(\\d{2}))$\")\n\n(defn ^:private valid-leap-second-time?\n  \"Returns true if s is a valid leap-second time, false if it contains :60 but\n   is invalid, nil if it does not contain :60 (not a leap second).\"\n  [s]\n  (when-let [[_ hh mm _ss _tz tz-sign tz-hh tz-mm] (re-find leap-second-time-re s)]\n    (let [h (parse-int hh)\n          m (parse-int mm)]\n      (and (<= 0 h 23)\n           (<= 0 m 59)\n           (if (nil? tz-sign)\n             (and (= h 23) (= m 59))\n             (let [oh (parse-int tz-hh)\n                   om (parse-int tz-mm)]\n               (and (<= 0 oh 23)\n                    (<= 0 om 59)\n                    (let [local-min (+ (* h 60) m)\n                          off-min (* (if (= tz-sign \"+\") 1 -1) (+ (* oh 60) om))\n                          utc-min (mod (- local-min off-min) 1440)]\n                      (= utc-min 1439)))))))))\n\n(def ^:private date-time-split-re #\"(?i)^(\\d{4}-\\d{2}-\\d{2})t(.+)$\")\n\n;;------------------------------------------------------------------------------\n;; Individual format checker functions\n\n(defn check-format-host-name [_c2 p2 m2]\n  (check-pattern hostname-pattern \"host-name\" _c2 p2 m2))\n\n(defn check-format-ip-address [_c2 p2 m2]\n  (check-pattern ip-address-pattern \"ip-address\" _c2 p2 m2))\n\n(def ^:private css-color-names\n  #{\"aqua\" \"black\" \"blue\" \"fuchsia\" \"gray\" \"green\" \"lime\" \"maroon\"\n    \"navy\" \"olive\" \"orange\" \"purple\" \"red\" \"silver\" \"teal\" \"white\" \"yellow\"})\n\n(defn check-format-color [_c2 p2 m2]\n  (fn [_c1 p1 m1]\n    (when-not (or (re-find color-pattern m1)\n                  (css-color-names (str/lower-case m1)))\n      [(make-error \"format: not a valid color\" p2 m2 p1 m1)])))\n\n(defn check-format-style [_c2 _p2 _m2]\n  ;; Draft-03 specific, not validated\n  (constantly nil))\n\n(defn check-format-phone [_c2 _p2 _m2]\n  ;; Draft-03 specific, not validated\n  (constantly nil))\n\n(defn check-format-utc-millisec [_c2 _p2 _m2]\n  ;; Draft-03 specific, not validated\n  (constantly nil))\n\n(defn check-format-email [_c2 p2 m2]\n  (check-pattern email-pattern \"email\" _c2 p2 m2))\n\n(defn check-format-ipv4 [_c2 p2 m2]\n  (check-pattern ipv4-pattern \"ipv4\" _c2 p2 m2))\n\n(defn check-format-ipv6 [_c2 p2 m2]\n  (check-pattern ipv6-pattern \"ipv6\" _c2 p2 m2))\n\n(defn check-format-hostname [_c2 p2 m2]\n  (check-pattern hostname-pattern \"hostname\" _c2 p2 m2))\n\n(defn check-format-date-time [_c2 p2 m2]\n  (let [normal-check (check-parse offset-date-time-parse \"date-time\" _c2 p2 m2)]\n    (fn [_c1 p1 m1]\n      (if-let [[_ date-part time-part] (re-find date-time-split-re m1)]\n        (case (valid-leap-second-time? time-part)\n          true (try\n                 (local-date-parse date-part)\n                 nil\n                 (catch #?(:cljs js/Error :clj Exception) e\n                   [(make-error (str \"format: not a valid date-time: \" (ex-message e)) p2 m2 p1 m1)]))\n          false [(make-error \"format: not a valid date-time\" p2 m2 p1 m1)]\n          (normal-check _c1 p1 m1))\n        (normal-check _c1 p1 m1)))))\n\n(defn check-format-date [_c2 p2 m2]\n  (check-parse local-date-parse \"date\" _c2 p2 m2))\n\n(defn check-format-time-pattern [c2 p2 m2]\n  (check-pattern time-pattern \"time\" c2 p2 m2))\n\n(defn check-format-time-parse [_c2 p2 m2]\n  (let [normal-check (check-parse offset-time-parse \"time\" _c2 p2 m2)]\n    (fn [_c1 p1 m1]\n      (case (valid-leap-second-time? m1)\n        true nil\n        false [(make-error \"format: not a valid time\" p2 m2 p1 m1)]\n        (normal-check _c1 p1 m1)))))\n\n(defn check-format-json-pointer [_c2 p2 m2]\n  (check-pattern json-pointer-pattern \"json-pointer\" _c2 p2 m2))\n\n(defn check-format-relative-json-pointer [_c2 p2 m2]\n  (check-pattern relative-pointer-pattern \"relative-json-pointer\" _c2 p2 m2))\n\n(defn check-format-uri [_c2 p2 m2]\n  (check-pattern uri-pattern \"uri\" _c2 p2 m2))\n\n(defn check-format-uri-reference [_c2 p2 m2]\n  (check-pattern uri-reference-pattern \"uri-reference\" _c2 p2 m2))\n\n(defn check-format-uri-template [_c2 p2 m2]\n  (check-pattern uri-template-pattern \"uri-template\" _c2 p2 m2))\n\n(defn check-format-idn-email [_c2 p2 m2]\n  (check-pattern idn-email-pattern \"idn-email\" _c2 p2 m2))\n\n(defn check-format-idn-hostname [_c2 p2 m2]\n  (fn [_c1 p1 m1]\n    (when-not (json-idn-hostname? m1)\n      [(make-error \"format: not a valid idn-hostname:\" p2 m2 p1 m1)])))\n\n(defn check-format-iri [_c2 p2 m2]\n  (check-pattern iri-pattern \"iri\" _c2 p2 m2))\n\n(defn check-format-iri-reference [_c2 p2 m2]\n  (check-pattern iri-reference-pattern \"iri-reference\" _c2 p2 m2))\n\n(defn check-format-uuid [_c2 p2 m2]\n  (check-pattern uuid-pattern \"uuid\" _c2 p2 m2))\n\n(defn check-format-duration [_c2 p2 m2]\n  (fn [_c1 p1 m1]\n    (when-not (json-duration? m1)\n      [(make-error \"format: not a valid duration:\" p2 m2 p1 m1)])))\n\n(defn check-format-regex [_c2 p2 m2]\n  (check-parse ecma-pattern \"regex\" _c2 p2 m2))\n\n(def ^:private lookbehind-re #\"\\(\\?<[=!]\")\n\n(defn check-format-regex-draft3 [_c2 p2 m2]\n  (let [base-check (check-format-regex _c2 p2 m2)]\n    (fn [_c1 p1 m1]\n      (if (re-find lookbehind-re m1)\n        [(make-error \"format: not a valid regex (lookbehind not supported)\" p2 m2 p1 m1)]\n        (base-check _c1 p1 m1)))))\n\n(defn check-format-unknown [_c2 _p2 _m2]\n  (constantly nil))\n\n;;------------------------------------------------------------------------------\n\n(def draft3-format->checker\n  {\"color\"        check-format-color\n   \"date\"         check-format-date\n   \"date-time\"    check-format-date-time\n   \"email\"        check-format-email\n   \"host-name\"    check-format-host-name    ; renamed to \"hostname\" in draft-04\n   \"ip-address\"   check-format-ip-address   ; renamed to \"ipv4\" in draft-04\n   \"ipv6\"         check-format-ipv6\n   \"phone\"        check-format-phone        ; dropped in draft-04\n   \"regex\"        check-format-regex-draft3\n   \"style\"        check-format-style        ; dropped in draft-04\n   \"time\"         check-format-time-pattern ; uses pattern check in draft-03\n   \"uri\"          check-format-uri\n   \"utc-millisec\" check-format-utc-millisec ; dropped in draft-04\n   })\n\n(def draft4-format->checker\n  (-> draft3-format->checker\n      (dissoc\n       \"color\"\n       \"date\"\n       \"phone\"\n       \"style\"\n       \"utc-millisec\"\n       \"host-name\"\n       \"ip-address\"\n       \"time\")\n      (assoc\n       \"hostname\" check-format-hostname\n       \"ipv4\"     check-format-ipv4\n       \"unknown\"  check-format-unknown)))\n\n(def draft6-format->checker\n  (assoc\n   draft4-format->checker\n   \"json-pointer\"  check-format-json-pointer\n   \"uri-reference\" check-format-uri-reference\n   \"uri-template\"  check-format-uri-template))\n\n(def draft7-format->checker\n  (assoc\n   draft6-format->checker\n   \"date\"                  check-format-date\n   \"idn-email\"             check-format-idn-email\n   \"idn-hostname\"          check-format-idn-hostname\n   \"iri\"                   check-format-iri\n   \"iri-reference\"         check-format-iri-reference\n   \"relative-json-pointer\" check-format-relative-json-pointer\n   \"time\"                  check-format-time-parse))\n\n(def draft2019-09-format->checker\n  (assoc\n   draft7-format->checker\n   \"duration\" check-format-duration\n   \"uuid\"     check-format-uuid))\n\n(def draft2020-12-format->checker draft2019-09-format->checker)\n\n(def draft-next-format->checker draft2019-09-format->checker)\n\n(def draft->format->checker\n  {:draft3        draft3-format->checker\n   :draft4        draft4-format->checker\n   :draft6        draft6-format->checker\n   :draft7        draft7-format->checker\n   :draft2019-09  draft2019-09-format->checker\n   :draft2020-12  draft2020-12-format->checker\n   :draft-next    draft-next-format->checker})\n"]}