@yuneta/gobj-js 7.26.23 → 7.26.25

package/dist/gobj-js.cjs.js

@@ -866,6 +866,112 @@ var JSON_NUMBER_TEXT = /^-?(0|[1-9][0-9]*)(\.[0-9]+)?([eE][+-]?[0-9]+)?$/;
 var INT64_MIN = -(2n ** 63n);
 var INT64_MAX = 2n ** 63n - 1n;
 var REFUSED_TEXT = "a text that does not read as one";
+var JSON_NUMBER_TOKEN = /-?(0|[1-9][0-9]*)(\.[0-9]+)?([eE][+-]?[0-9]+)?/y;
+function is_surrogate_pair(high, low) {
+	return high >= 55296 && high <= 56319 && low >= 56320 && low <= 57343;
+}
+var JSON_MAX_DEPTH = 2048;
+function json_text_refused_by_c(s) {
+	const n = s.length;
+	let i = 0;
+	let depth = 0;
+	const in_object = [];
+	let key_next = false;
+	while (i < n) {
+		const c = s.charCodeAt(i);
+		if (c === 123 || c === 91) {
+			depth++;
+			if (depth > JSON_MAX_DEPTH) return true;
+			in_object.push(c === 123);
+			key_next = c === 123;
+			i++;
+			continue;
+		}
+		if (c === 125 || c === 93) {
+			depth--;
+			in_object.pop();
+			key_next = false;
+			i++;
+			continue;
+		}
+		if (c === 44) {
+			key_next = in_object.length > 0 && in_object[in_object.length - 1];
+			i++;
+			continue;
+		}
+		if (c === 58) {
+			key_next = false;
+			i++;
+			continue;
+		}
+		if (c === 116 || c === 102 || c === 110) {
+			if (depth + 1 > JSON_MAX_DEPTH) return true;
+			i += c === 102 ? 5 : 4;
+			continue;
+		}
+		if (c === 34) {
+			if (!key_next && depth + 1 > JSON_MAX_DEPTH) return true;
+			key_next = false;
+			i++;
+			while (i < n) {
+				const d = s.charCodeAt(i);
+				if (d === 34) {
+					i++;
+					break;
+				}
+				if (d === 92 && s[i + 1] === "u") {
+					const u = parseInt(s.substring(i + 2, i + 6), 16);
+					if (u === 0) return true;
+					if (u >= 55296 && u <= 57343) {
+						if (!is_surrogate_pair(u, s[i + 6] === "\\" && s[i + 7] === "u" ? parseInt(s.substring(i + 8, i + 12), 16) : -1)) return true;
+						i += 12;
+						continue;
+					}
+					i += 6;
+					continue;
+				}
+				if (d === 92) {
+					i += 2;
+					continue;
+				}
+				if (d >= 55296 && d <= 57343) {
+					if (!is_surrogate_pair(d, s.charCodeAt(i + 1))) return true;
+					i += 2;
+					continue;
+				}
+				i++;
+			}
+			continue;
+		}
+		if (c === 45 || c >= 48 && c <= 57) {
+			if (depth + 1 > JSON_MAX_DEPTH) return true;
+			JSON_NUMBER_TOKEN.lastIndex = i;
+			const m = JSON_NUMBER_TOKEN.exec(s);
+			if (!m) return true;
+			const token = m[0];
+			if (/[.eE]/.test(token)) {
+				if (!Number.isFinite(Number(token))) return true;
+			} else {
+				const big = BigInt(token);
+				if (big < INT64_MIN || big > INT64_MAX) return true;
+			}
+			i += token.length;
+			continue;
+		}
+		i++;
+	}
+	return false;
+}
+function parse_json_text_as_c(s) {
+	let jn;
+	try {
+		jn = JSON.parse(s);
+	} catch (e) {
+		return;
+	}
+	if (json_text_refused_by_c(s)) return;
+	return jn;
+}
 function value_has_shape(type, value) {
 	if (DTP_IS_STRING(type)) return is_string(value);
 	if (DTP_IS_DICT(type)) return is_object(value);
@@ -877,7 +983,7 @@ function shape_of_value(value) {
 	if (is_array(value)) return "an array";
 	if (is_object(value)) return "an object";
 	if (is_string(value)) return REFUSED_TEXT;
-	if (typeof value === "number") return Number.isInteger(value) ? "an integer" : "a real";
+	if (typeof value === "number") return Number.isInteger(value) && Math.abs(value) <= 0x8000000000000000 ? "an integer" : "a real";
 	if (typeof value === "boolean") return "a boolean";
 	return "null";
 }
@@ -898,7 +1004,7 @@ function number_as_type(type, value) {
 		value: value ? 1 : 0,
 		refused: null
 	};
-	if (!(value >= -0x8000000000000000 && value < 0x8000000000000000)) return {
+	if (!(value >= -0x8000000000000000 && value <= 0x8000000000000000)) return {
 		value: void 0,
 		refused: "a number out of its range"
 	};
@@ -969,16 +1075,8 @@ function text2parameter(type, s, from_kw) {
 		};
 	}
 	if (DTP_IS_DICT(type) || DTP_IS_LIST(type)) {
-		let jn;
-		try {
-			jn = JSON.parse(s);
-		} catch (e) {
-			return {
-				value: void 0,
-				refused: REFUSED_TEXT
-			};
-		}
-		if (!value_has_shape(type, jn)) return {
+		const jn = parse_json_text_as_c(s);
+		if (jn === void 0 || !value_has_shape(type, jn)) return {
 			value: void 0,
 			refused: REFUSED_TEXT
 		};
@@ -987,12 +1085,12 @@ function text2parameter(type, s, from_kw) {
 			refused: null
 		};
 	}
-	if (DTP_IS_JSON(type)) try {
-		return {
-			value: JSON.parse(s),
+	if (DTP_IS_JSON(type)) {
+		const jn = parse_json_text_as_c(s);
+		if (jn !== void 0) return {
+			value: jn,
 			refused: null
 		};
-	} catch (e) {
 		const t = s.replace(/^[ \t]+/, "");
 		if (t.startsWith("{") || t.startsWith("[") || t.startsWith("\"")) return {
 			value: void 0,
@@ -1067,6 +1165,10 @@ function command_parameter_from_json(type, value) {
 		refused: shape_of_value(value)
 	};
 	if (DTP_IS_NUMBER(type)) return number_as_type(type, value);
+	if (!is_json_value(value)) return {
+		value: void 0,
+		refused: NO_JSON_TEXT
+	};
 	return {
 		value,
 		refused: null
@@ -1085,8 +1187,44 @@ var TYPES_READ = [
 	data_type_t.DTP_LIST,
 	data_type_t.DTP_DICT
 ];
+var LEAVE_NODE = Symbol("leave");
+function is_json_value(value) {
+	const on_path = /* @__PURE__ */ new Set();
+	const stack = [value];
+	while (stack.length) {
+		const v = stack.pop();
+		if (v === LEAVE_NODE) {
+			on_path.delete(stack.pop());
+			continue;
+		}
+		if (typeof v === "bigint") return false;
+		if (v === null || typeof v !== "object") continue;
+		if (on_path.has(v)) return false;
+		const array = Array.isArray(v);
+		if (!array) {
+			const proto = Object.getPrototypeOf(v);
+			if (proto !== Object.prototype && proto !== null) return false;
+		}
+		on_path.add(v);
+		stack.push(v, LEAVE_NODE);
+		if (array) for (let i = 0; i < v.length; i++) stack.push(v[i]);
+		else for (const key of Object.keys(v)) stack.push(v[key]);
+	}
+	return true;
+}
+var NO_JSON_TEXT = "a value with no json text";
+function json_text_of(value) {
+	if (!is_json_value(value)) return;
+	try {
+		const s = JSON.stringify(value);
+		return is_string(s) ? s : void 0;
+	} catch (e) {
+		return;
+	}
+}
 function log_attr_value_refused(gobj, it, value, refused) {
 	const types = {
+		[data_type_t.DTP_STRING]: "a string",
 		[data_type_t.DTP_BOOLEAN]: "a boolean",
 		[data_type_t.DTP_INTEGER]: "an integer",
 		[data_type_t.DTP_REAL]: "a real",
@@ -1096,7 +1234,8 @@ function log_attr_value_refused(gobj, it, value, refused) {
 	let shown;
 	if (it.flag & sdata_flag_t.SDF_SECRET) shown = "********";
 	else {
-		shown = is_string(value) ? value : String(JSON.stringify(value === void 0 ? null : value));
+		shown = is_string(value) ? value : json_text_of(value === void 0 ? null : value);
+		if (shown === void 0) shown = `<${NO_JSON_TEXT}>`;
 		const masked = mask_secrets_inline(shown);
 		if (masked !== null) shown = masked;
 		if (shown.length > ATTR_VALUE_SHOWN) {
@@ -1118,8 +1257,11 @@ function json2item(gobj, sdata, it, jn_value_) {
 			if (jn_value_ === null || jn_value_ === void 0) jn_value2 = "";
 			else if (is_string(jn_value_)) jn_value2 = String(jn_value_);
 			else {
-				let s = JSON.stringify(jn_value_);
-				if (s) jn_value2 = String(s);
+				jn_value2 = json_text_of(jn_value_);
+				if (jn_value2 === void 0) {
+					log_attr_value_refused(gobj, it, jn_value_, NO_JSON_TEXT);
+					return -1;
+				}
 			}
 			break;
 		case data_type_t.DTP_BOOLEAN:
@@ -2567,15 +2709,20 @@ function write_attr_value(gobj, key, value) {
 *  The value a typed writer writes, read as ITS type by the grammar of
 *  json2item() (a C writer takes its C type: a string is never read as a
 *  number there). Return {value} or {refused} (logged): the attr keeps its
-*  value. A string writer never refuses: null and undefined are "", any
-*  other json its text, as a DTP_STRING attr reads them.
+*  value. A string writer takes null and undefined as "", any other json
+*  as its text, as a DTP_STRING attr reads them; it refuses only a value
+*  with no json text (circular, a BigInt).
 ***************************************************************************/
 function typed_writer_value(gobj, name, type, value) {
+	let r;
 	if (DTP_IS_STRING(type)) {
 		if (value === null || value === void 0) return { value: "" };
-		return { value: is_string(value) ? value : String(JSON.stringify(value)) };
-	}
-	const r = command_parameter_from_json(type, value);
+		if (is_string(value)) return { value };
+		r = {
+			value: json_text_of(value),
+			refused: NO_JSON_TEXT
+		};
+	} else r = command_parameter_from_json(type, value);
 	if (r.value === void 0) {
 		let holder = gobj;
 		while (holder && !gobj_has_attr(holder, name)) holder = holder.bottom_gobj;
@@ -3020,9 +3167,9 @@ function gobj_send_event(dst, event, kw, src) {
 		}
 	}
 	const frame = push_dispatch_frame(dst, event, frame_kind_t.FRAME_ACTION);
-	if (event_action.next_state) gobj_change_state(dst, event_action.next_state);
 	let ret = -1;
 	try {
+		if (event_action.next_state) gobj_change_state(dst, event_action.next_state);
 		if (event_action.action) ret = event_action.action(dst, event, kw, src);
 	} catch (e) {
 		__inside__--;
@@ -3046,18 +3193,23 @@ var subs_flag_t = Object.freeze({
 	__own_event__: 4
 });
 /***************************************************************************
-*  The event type of `event_name` in any registered gclass, null if none.
-*  The C kernel's gobj_find_event_type(): any case, gclasses only.
+*  The event type of `event_name` in any registered gclass whose flags
+*  hold one of `event_flag` (0: any), null if none. The C kernel's
+*  gobj_find_event_type(): any case, gclasses only. With `verbose` a miss
+*  is logged, with the name as it was given: never verbose for a name
+*  that came from a peer.
 ***************************************************************************/
-function _find_event_type_in_gclasses(event_name) {
+function gobj_find_event_type(event_name, event_flag, verbose) {
 	let lower = String(event_name).toLowerCase();
 	for (let gclass_name in _gclass_register) {
 		let dl = _gclass_register[gclass_name].dl_events;
 		for (let i = 0; i < dl.length; i++) {
 			let event_type = dl[i];
+			if (event_flag && !(event_type.event_flag & event_flag)) continue;
 			if (event_type.event_name && event_type.event_name.toLowerCase() === lower) return event_type;
 		}
 	}
+	if (verbose) log_error(`EVENT NOT FOUND: ${event_name}`);
 	return null;
 }
 var subscription_desc = [
@@ -3094,7 +3246,7 @@ function _create_subscription(publisher, event, kw, subscriber) {
 			json_object_set_new(subs, "__config__", kw_clone);
 			let renamed_event = kw_get_str(publisher, kw_clone, "__rename_event_name__", "");
 			if (!empty_string(renamed_event)) {
-				let event_type = _find_event_type_in_gclasses(renamed_event);
+				let event_type = gobj_find_event_type(renamed_event, 0, false);
 				if (event_type) {
 					json_object_set_new(subs, "renamed_event", event_type.event_name);
 					delete kw_clone.__rename_event_name__;
@@ -3155,7 +3307,7 @@ function _subscription_match_kw(kw, event) {
 	kw_match.__config__ = config_match;
 	let renamed_event = "";
 	let rename = config_match.__rename_event_name__;
-	let event_type = typeof rename === "string" && !empty_string(rename) ? _find_event_type_in_gclasses(rename) : null;
+	let event_type = typeof rename === "string" && !empty_string(rename) ? gobj_find_event_type(rename, 0, false) : null;
 	if (event_type) {
 		renamed_event = event_type.event_name;
 		delete config_match.__rename_event_name__;
@@ -4021,6 +4173,35 @@ function is_secret_name_tail(str, from, to, names) {
 	}
 	return secret_name_check(str, i, to, true, by_segments);
 }
+function param_name_tail_from(str, from, to) {
+	let bytes = 0;
+	let i = to;
+	while (i > from) {
+		const code = str.charCodeAt(i - 1);
+		let n = 3;
+		let units = 1;
+		if (code < 128) n = 1;
+		else if (code < 2048) n = 2;
+		else if (code >= 56320 && code <= 57343 && i - 2 >= from) {
+			const high = str.charCodeAt(i - 2);
+			if (high >= 55296 && high <= 56319) {
+				n = 4;
+				units = 2;
+			}
+		}
+		if (bytes + n > MASK_MAX_NAME) return -1;
+		if (code === 38 || code === 63 || code === 59) return i;
+		bytes += n;
+		i -= units;
+	}
+	return -1;
+}
+function is_param_name_secret(str, from, to, names) {
+	const tail = names === NAMES_NOW ? param_name_tail_from(str, from, to) : -1;
+	if (tail < 0) return is_secret_name_tail(str, from, to, names);
+	if (is_secret_name_tail(str, from, to, NAMES_7_26_9)) return true;
+	return is_secret_name_tail(str, from, to, NAMES_NOW) && secret_name_check(str, tail, to, false, true);
+}
 /************************************************************
 *  Where an unquoted secret value that begins at `p` ends: at
 *  the end, at the quote that closes an outer quoted value, or
@@ -4318,13 +4499,14 @@ function mark_params(str, value_is_secret, reading, marks, judged) {
 		}
 		const name_from = word;
 		word = p + 1;
-		const secret = is_secret_name_tail(str, name_from, p, names);
-		if (secret && names === NAMES_NOW && !is_secret_name_tail(str, name_from, p, NAMES_7_26_9)) not_7_26_9 = true;
+		const secret = is_param_name_secret(str, name_from, p, names);
+		if (secret && names === NAMES_NOW && !not_7_26_9 && !is_secret_name_tail(str, name_from, p, NAMES_7_26_9)) not_7_26_9 = true;
 		if (!(secret || value_is_secret && p - name_from === 5 && ascii_case_equal(str, name_from, "value"))) {
-			if (judged && query_name_from(str, p) === name_from) judged[p] = 1;
+			if (judged && query_name_from(str, p) === name_from) judged[p] = JUDGED_NOT_SECRET;
 			p++;
 			continue;
 		}
+		if (judged && secret && query_name_from(str, p) === name_from) judged[p] = JUDGED_SECRET;
 		p++;
 		let end;
 		const quote = p < str.length && (str[p] === "\"" || str[p] === "'") ? str[p] : "";
@@ -4387,23 +4569,99 @@ function query_name_from(str, eq) {
 	while (n > 0 && eq - n < MASK_MAX_NAME && is_name_char_code(str.charCodeAt(n - 1))) n--;
 	return n;
 }
+var JUDGED_NOT_SECRET = 1;
+var JUDGED_SECRET = 2;
+function hex_digit_value(code) {
+	if (code >= 48 && code <= 57) return code - 48;
+	if (code >= 97 && code <= 102) return code - 87;
+	if (code >= 65 && code <= 70) return code - 55;
+	return -1;
+}
+function is_written_name_bracket_code(code) {
+	return code === 91 || code === 93 || code === 39 || code === 34;
+}
+function is_written_name_code(code) {
+	return is_name_char_code(code) || code === 37 || is_written_name_bracket_code(code);
+}
+function written_name_is_secret(str, eq) {
+	let n = eq;
+	let plain = -1;
+	while (n > 0 && eq - n < MASK_MAX_NAME && is_written_name_code(str.charCodeAt(n - 1))) {
+		n--;
+		if (plain < 0 && !is_name_char_code(str.charCodeAt(n))) plain = n + 1;
+	}
+	if (plain < 0) return false;
+	const to = str.charCodeAt(plain - 1) === 37 ? eq : plain - 1;
+	let encoded = false;
+	for (let s = n; s < to && !encoded; s++) encoded = str.charCodeAt(s) === 37;
+	let name = str;
+	let from = n;
+	let end = to;
+	if (encoded) {
+		name = "";
+		for (let s = n; s < to; s++) {
+			const hi = str.charCodeAt(s) === 37 && to - s > 2 ? hex_digit_value(str.charCodeAt(s + 1)) : -1;
+			const lo = hi >= 0 ? hex_digit_value(str.charCodeAt(s + 2)) : -1;
+			if (lo >= 0) {
+				name += String.fromCharCode(hi * 16 + lo);
+				s += 2;
+			} else name += str[s];
+		}
+		from = 0;
+		end = name.length;
+	}
+	let seg = from;
+	for (let i = from; i <= end; i++) {
+		if (i < end && !is_written_name_bracket_code(name.charCodeAt(i))) continue;
+		if (i - seg >= 3 && secret_name_check(name, seg, i, true, true)) return true;
+		seg = i + 1;
+	}
+	return false;
+}
+function mark_query_value(str, eq, marks) {
+	const v = eq + 1;
+	if (v < str.length && (str[v] === "\"" || str[v] === "'")) return mark_run(str, v + 1, QUOTE_STOPS[str[v]], marks);
+	mark_scheme_value(str, v, PARAM_VALUE_STOPS, marks);
+	return mark_run(str, v, PARAM_VALUE_STOPS, marks);
+}
+var WRITTEN_NAME_MARKS = /[[\]%'"]/;
 function mark_query_params(str, marks, judged) {
 	let frontier = 0;
-	for (let p = 1; p < str.length; p++) {
-		if (p < frontier) {
-			p = frontier - 1;
-			continue;
-		}
-		if (str.charCodeAt(p) !== 61) continue;
-		if (judged[p]) continue;
-		const n = query_name_from(str, p);
-		if (n === p || !secret_name_check(str, n, p, true, true)) continue;
-		const v = p + 1;
-		if (v < str.length && (str[v] === "\"" || str[v] === "'")) frontier = mark_run(str, v + 1, QUOTE_STOPS[str[v]], marks);
-		else {
-			mark_scheme_value(str, v, PARAM_VALUE_STOPS, marks);
-			frontier = mark_run(str, v, PARAM_VALUE_STOPS, marks);
+	let frontier_written = WRITTEN_NAME_MARKS.test(str) ? 0 : str.length;
+	let p = str.indexOf("=", 1);
+	while (p > 0) {
+		if (p >= frontier) {
+			let secret = judged[p] === JUDGED_SECRET;
+			if (!judged[p]) {
+				const n = query_name_from(str, p);
+				secret = n < p && secret_name_check(str, n, p, true, true);
+			}
+			if (secret) frontier = mark_query_value(str, p, marks);
+		}
+		if (p >= frontier_written && written_name_is_secret(str, p)) frontier_written = mark_query_value(str, p, marks);
+		p = str.indexOf("=", p + 1);
+	}
+}
+var URL_AUTHORITY_STOPS = stop_table("/?#\"'<> 	");
+function mark_url_passwords(str, marks) {
+	let p = str.indexOf("://", 1);
+	while (p > 0) {
+		let next = p + 1;
+		if (is_ascii_alnum_code(str.charCodeAt(p - 1))) {
+			let colon = -1;
+			let at = -1;
+			let e = p + 3;
+			while (e < str.length) {
+				const code = str.charCodeAt(e);
+				if (code < 128 && URL_AUTHORITY_STOPS[code]) break;
+				if (code === 64) at = e;
+				else if (code === 58 && colon < 0) colon = e;
+				e++;
+			}
+			if (colon >= 0 && at > colon) mark_range(marks, colon + 1, at);
+			next = e - 1;
 		}
+		p = str.indexOf("://", next);
 	}
 }
 function mark_shapes(str, marks) {
@@ -4428,7 +4686,7 @@ function mark_labels(str, marks) {
 			p++;
 			continue;
 		}
-		if (!is_secret_name_tail(str, word, p, NAMES_NOW)) {
+		if (!is_param_name_secret(str, word, p, NAMES_NOW)) {
 			p++;
 			word = p;
 			continue;
@@ -4457,6 +4715,50 @@ function inline_value_is_secret(str, names) {
 	}
 	return false;
 }
+function mark_inline_rules_of_now(str, marks) {
+	const value_is_secret = inline_value_is_secret(str, NAMES_NOW);
+	const judged = new Uint8Array(str.length);
+	mark_params(str, value_is_secret, READ_NOW, marks, judged);
+	mark_query_params(str, marks, judged);
+	mark_url_passwords(str, marks);
+	mark_shapes(str, marks);
+	mark_labels(str, marks);
+}
+var MASK_MAX_DECODINGS = 2;
+function encoded_ascii_at(str, p) {
+	if (p + 3 > str.length || str.charCodeAt(p) !== 37) return -1;
+	const hi = hex_digit_value(str.charCodeAt(p + 1));
+	const lo = hi >= 0 ? hex_digit_value(str.charCodeAt(p + 2)) : -1;
+	if (lo < 0) return -1;
+	const c = hi * 16 + lo;
+	return c > 0 && c < 128 ? c : -1;
+}
+function mark_decoded_view(str, marks, decodings) {
+	if (decodings >= MASK_MAX_DECODINGS) return;
+	const pieces = [];
+	let last = 0;
+	let p = str.indexOf("%");
+	while (p >= 0) {
+		const c = encoded_ascii_at(str, p);
+		if (c >= 0) {
+			pieces.push(str.substring(last, p), String.fromCharCode(c));
+			last = p + 3;
+			p = str.indexOf("%", last);
+		} else p = str.indexOf("%", p + 1);
+	}
+	if (pieces.length === 0) return;
+	pieces.push(str.substring(last));
+	const view = pieces.join("");
+	const view_marks = new Uint8Array(view.length);
+	mark_inline_rules_of_now(view, view_marks);
+	mark_decoded_view(view, view_marks, decodings + 1);
+	let q = 0;
+	for (let i = 0; i < view.length; i++) {
+		const n = encoded_ascii_at(str, q) >= 0 ? 3 : 1;
+		if (view_marks[i]) mark_range(marks, q, q + n);
+		q += n;
+	}
+}
 function mark_inline_secrets(str, marks) {
 	const value_is_secret = inline_value_is_secret(str, NAMES_NOW);
 	const value_is_secret_7_26_9 = inline_value_is_secret(str, NAMES_7_26_9);
@@ -4464,8 +4766,10 @@ function mark_inline_secrets(str, marks) {
 	if (mark_params(str, value_is_secret, READ_NOW, marks, judged) || value_is_secret !== value_is_secret_7_26_9) mark_params(str, value_is_secret_7_26_9, READ_AS_7_26_9, marks, null);
 	if (has_shape_js_7_26_20(str)) mark_params(str, value_is_secret, READ_AS_GOBJ_JS_7_26_20, marks, null);
 	mark_query_params(str, marks, judged);
+	mark_url_passwords(str, marks);
 	mark_shapes(str, marks);
 	mark_labels(str, marks);
+	mark_decoded_view(str, marks, 0);
 }
 /************************************************************
 *  A text (a command line) with the secrets that can be told
@@ -4477,13 +4781,14 @@ function mark_inline_secrets(str, marks) {
 *  same for a "name: value", its name in quotes or not (a json, a
 *  header, a label: "password": x, Authorization: Basic x, bearer:
 *  tok); and a JWT or the credential after "Bearer " or "Basic ",
-*  wherever they are, whatever names them. Each rule judges the text
-*  as it came. Return null when there was nothing to mask. As the C
-*  kernel's mask_secrets_inline().
+*  wherever they are, whatever names them; in a URL or a query
+*  %-encoded inside a value, the same read decoded (mark_decoded_view()).
+*  Each rule judges the text as it came. Return null when there was
+*  nothing to mask. As the C kernel's mask_secrets_inline().
 ************************************************************/
 function mask_secrets_inline(str) {
 	if (typeof str !== "string") return null;
-	if (str.indexOf("=") < 0 && str.indexOf(":") < 0 && str.indexOf("eyJ") < 0 && !/bearer|basic/i.test(str)) return null;
+	if (str.indexOf("=") < 0 && str.indexOf(":") < 0 && str.indexOf("%") < 0 && str.indexOf("eyJ") < 0 && !/bearer|basic/i.test(str)) return null;
 	if (str.length > MASK_MAX_BYTES) return MASK_TOO_LARGE;
 	const marks = new Uint8Array(str.length);
 	mark_inline_secrets(str, marks);
@@ -8246,7 +8551,8 @@ var PRIVATE_DATA = {
 	inform_on_close: false,
 	websocket: null,
 	inside_on_open: false,
-	retry_ms: 0
+	retry_ms: 0,
+	retry_ms_before_session: 0
 };
 var __gclass__ = null;
 /******************************
@@ -8297,6 +8603,7 @@ function mt_writing(gobj, path) {
 function mt_start(gobj) {
 	let priv = gobj.priv;
 	priv.retry_ms = 0;
+	priv.retry_ms_before_session = 0;
 	if (gobj_current_state(gobj) !== "ST_DISCONNECTED") {
 		gobj_send_event(gobj, "EV_ON_CLOSE", {
 			url: priv.url,
@@ -8496,13 +8803,33 @@ function close_websocket(gobj, code = 1e3, reason = "") {
 	}
 }
 /***************************************************************
+*  Close the channel for a fault of the server: a message for a role
+*  or a yuno that is not this one, an event out of its place.
+*
+*  Not with 1000: EV_ON_CLOSE would say the session ended well. A
+*  browser closes a WebSocket only with 1000 or 3000-4999 (1002, the
+*  protocol error, throws there), so it is 4002 -- and the server
+*  echoes it, so EV_ON_CLOSE carries it.
+*
+*  And a session the server broke was not a session reached: the
+*  backoff the ack reset is put back, or a server that breaks every
+*  session is reconnected at the first delay for ever, with an
+*  EV_ON_OPEN and an EV_ON_CLOSE in the app per round.
+***************************************************************/
+var CLOSE_PEER_FAULT = 4002;
+function close_for_peer_fault(gobj, reason) {
+	let priv = gobj.priv;
+	if (gobj_current_state(gobj) === "ST_SESSION") priv.retry_ms = priv.retry_ms_before_session;
+	close_websocket(gobj, CLOSE_PEER_FAULT, reason);
+}
+/***************************************************************
 *  A text of the server -- a frame, the name of an event, of a
 *  service, of a role -- as a log shows it: masked, then capped on a
 *  whole character (capped first, a credential the cap cut would
 *  show its first characters). As the C kernel shows the name of an
 *  event that is not public (mask_secrets_inline_capped()).
 ***************************************************************/
-var PEER_NAME_SHOWN = 64;
+var PEER_NAME_SHOWN = 128;
 var PEER_FRAME_SHOWN = 256;
 function peer_text_shown(text, max) {
 	let s = String(text);
@@ -8725,7 +9052,8 @@ function ac_on_close(gobj, event, kw, src) {
 	let url = kw.url;
 	if (kw.ws_seq !== void 0 && kw.ws_seq !== priv.ws_seq) return 0;
 	set_remote_log_functions();
-	if (is_traffic_tracing(gobj)) trace_msg(`${gobj_short_name(gobj)}: WebSocket closed ${url} (Code: ${kw.code}, Reason: "${peer_text_shown(kw.reason, PEER_FRAME_SHOWN)}", Clean: ${kw.was_clean})`);
+	const reason_shown = peer_text_shown(kw.reason === void 0 ? "" : kw.reason, PEER_FRAME_SHOWN);
+	if (is_traffic_tracing(gobj)) trace_msg(`${gobj_short_name(gobj)}: WebSocket closed ${url} (Code: ${kw.code}, Reason: "${reason_shown}", Clean: ${kw.was_clean})`);
 	if (priv.websocket) {
 		priv.websocket.onopen = null;
 		priv.websocket.onmessage = null;
@@ -8735,21 +9063,25 @@ function ac_on_close(gobj, event, kw, src) {
 	}
 	if (priv.inform_on_close) {
 		priv.inform_on_close = false;
+		if ((!kw.was_clean || kw.code !== 1e3 && kw.code !== 1001) && gobj_is_running(gobj)) log_warning(`${gobj_short_name(gobj)}: session closed ${url} (Code: ${kw.code}, Reason: "${reason_shown}", Clean: ${kw.was_clean})`);
 		gobj_publish_event(gobj, "EV_ON_CLOSE", {
 			url,
 			remote_yuno_name: priv.remote_yuno_name,
 			remote_yuno_role: priv.remote_yuno_role,
-			remote_yuno_service: priv.remote_yuno_service
+			remote_yuno_service: priv.remote_yuno_service,
+			code: kw.code,
+			reason: reason_shown,
+			was_clean: kw.was_clean
 		});
 	} else if (!gobj_is_running(gobj)) {} else {
-		log_warning(`${gobj_short_name(gobj)}: EV_ON_OPEN_ERROR cannot open ${url} (Code: ${kw.code}, Reason: "${peer_text_shown(kw.reason, PEER_FRAME_SHOWN)}", Clean: ${kw.was_clean})`);
+		log_warning(`${gobj_short_name(gobj)}: EV_ON_OPEN_ERROR cannot open ${url} (Code: ${kw.code}, Reason: "${reason_shown}", Clean: ${kw.was_clean})`);
 		gobj_publish_event(gobj, "EV_ON_OPEN_ERROR", {
 			url,
 			remote_yuno_name: priv.remote_yuno_name,
 			remote_yuno_role: priv.remote_yuno_role,
 			remote_yuno_service: priv.remote_yuno_service,
 			code: kw.code,
-			reason: kw.reason,
+			reason: reason_shown,
 			was_clean: kw.was_clean
 		});
 	}
@@ -8772,7 +9104,8 @@ function ac_on_close(gobj, event, kw, src) {
 *
 *  Reset to zero when a session is actually reached
 *  (ac_identity_card_ack), so a link that flaps once does not carry a
-*  minute-long penalty into its next real drop.
+*  minute-long penalty into its next real drop -- and put back when the
+*  server breaks that session (close_for_peer_fault()).
 ***************************************************************/
 function next_retry(gobj) {
 	let priv = gobj.priv;
@@ -8822,6 +9155,7 @@ function ac_identity_card_ack(gobj, event, kw, src) {
 	} else {
 		gobj_change_state(gobj, "ST_SESSION");
 		priv.inside_on_open = true;
+		priv.retry_ms_before_session = priv.retry_ms;
 		priv.retry_ms = 0;
 		if (!priv.inform_on_close) {
 			priv.inform_on_close = true;
@@ -8858,19 +9192,26 @@ function ac_on_message(gobj, event, kw, src) {
 	let iev_event = iev_msg.event;
 	let iev_kw = iev_msg.kw;
 	if (gobj_current_state(gobj) !== "ST_SESSION") {
-		if (gobj_has_event(gobj, iev_event, event_flag_t.EVF_PUBLIC_EVENT)) {
-			if (!(gobj_send_event(gobj, iev_event, iev_kw, gobj) < 0)) return 0;
-		} else log_error(`${gobj_short_name(gobj)}: event UNKNOWN in not-session state ${peer_text_shown(iev_event, PEER_NAME_SHOWN)}`);
-		close_websocket(gobj);
+		if (String(iev_event).toLowerCase() === "ev_identity_card_ack") {
+			if (!(gobj_send_event(gobj, "EV_IDENTITY_CARD_ACK", iev_kw, gobj) < 0)) return 0;
+		} else log_warning(`${gobj_short_name(gobj)}: event UNKNOWN in not-session state ${peer_text_shown(iev_event, PEER_NAME_SHOWN)}`);
+		close_for_peer_fault(gobj, "event out of session");
 		return -1;
 	}
 	iev_msg = null;
 	let msg_type = msg_iev_get_msg_type(gobj, iev_kw);
 	let event_id = msg_iev_get_stack(gobj, iev_kw, IEVENT_STACK_ID);
 	let iev_dst_role = kw_get_str(gobj, event_id, "dst_role", "");
-	if (iev_dst_role.toLowerCase() !== gobj_yuno_role().toLowerCase()) {
-		log_error(`"It's not my role, dst_role: ${peer_text_shown(iev_dst_role, PEER_NAME_SHOWN)}, my_role: ${gobj_yuno_role()}`);
-		return 0;
+	if (!empty_string(iev_dst_role) && iev_dst_role.toLowerCase() !== String(gobj_yuno_role()).toLowerCase()) {
+		log_warning(`${gobj_short_name(gobj)}: It's not my role, dst_role: ${peer_text_shown(iev_dst_role, PEER_NAME_SHOWN)}, my_role: ${gobj_yuno_role()}, event: ${peer_text_shown(iev_event, PEER_NAME_SHOWN)}`);
+		close_for_peer_fault(gobj, "not my role");
+		return -1;
+	}
+	let iev_dst_yuno = kw_get_str(gobj, event_id, "dst_yuno", "");
+	if (!empty_string(iev_dst_yuno) && iev_dst_yuno.toLowerCase() !== String(gobj_yuno_name()).toLowerCase()) {
+		log_warning(`${gobj_short_name(gobj)}: It's not my name, dst_yuno: ${peer_text_shown(iev_dst_yuno, PEER_NAME_SHOWN)}, my_name: ${gobj_yuno_name()}, event: ${peer_text_shown(iev_event, PEER_NAME_SHOWN)}`);
+		close_for_peer_fault(gobj, "not my name");
+		return -1;
 	}
 	let iev_dst_service = kw_get_str(gobj, event_id, "dst_service", "");
 	if (msg_type === "__subscribing__") {
@@ -8881,8 +9222,14 @@ function ac_on_message(gobj, event, kw, src) {
 		log_warning(`${gobj_short_name(gobj)}: unsubscription event ignored, I'm client (service: ${peer_text_shown(iev_dst_service, PEER_NAME_SHOWN)}, event: ${peer_text_shown(iev_event, PEER_NAME_SHOWN)})`);
 		return -1;
 	}
-	if (gobj_has_event(gobj, iev_event, event_flag_t.EVF_PUBLIC_EVENT)) {
-		gobj_send_event(gobj, iev_event, iev_kw, gobj);
+	const declared = gobj_find_event_type(iev_event, 0, false);
+	if (declared && gobj_has_event(gobj, declared.event_name, 0)) {
+		const own_event = declared.event_name;
+		if (!gobj_has_event(gobj, own_event, event_flag_t.EVF_PUBLIC_EVENT) || own_event === "EV_IDENTITY_CARD_ACK") {
+			log_warning(`${gobj_short_name(gobj)}: event of the transport itself, or out of its place, DROPPED: ev '${peer_text_shown(iev_event, PEER_NAME_SHOWN)}'`);
+			return -1;
+		}
+		gobj_send_event(gobj, own_event, iev_kw, gobj);
 		return 0;
 	}
 	if (!empty_string(iev_dst_service)) {
@@ -8892,13 +9239,18 @@ function ac_on_message(gobj, event, kw, src) {
 			return 0;
 		}
 		if (!gobj_has_event(gobj_service, iev_event, event_flag_t.EVF_PUBLIC_EVENT)) {
-			log_error(`${gobj_short_name(gobj)}: Service found but no event or not public, service '${gobj_short_name(gobj_service)}', ev '${peer_text_shown(iev_event, PEER_NAME_SHOWN)}'`);
+			log_warning(`${gobj_short_name(gobj)}: Service found but no event or not public, DROPPED: service '${gobj_short_name(gobj_service)}', ev '${peer_text_shown(iev_event, PEER_NAME_SHOWN)}'`);
 			return -1;
 		}
 		gobj_send_event(gobj_service, iev_event, iev_kw, gobj);
 		return 0;
 	}
-	gobj_publish_event(gobj, iev_event, iev_kw);
+	let event_type = gobj_find_event_type(iev_event, event_flag_t.EVF_PUBLIC_EVENT, false);
+	if (!event_type) {
+		log_warning(`${gobj_short_name(gobj)}: event that no gclass declares public, DROPPED: ev '${peer_text_shown(iev_event, PEER_NAME_SHOWN)}'`);
+		return -1;
+	}
+	gobj_publish_event(gobj, event_type.event_name, iev_kw);
 	return 0;
 }
 /***************************************************************************
@@ -9018,7 +9370,7 @@ function create_gclass(gclass_name) {
 	__gclass__ = gclass_create(gclass_name, [
 		["EV_ON_MESSAGE", event_flag_t.EVF_OUTPUT_EVENT],
 		["EV_IDENTITY_CARD_ACK", event_flag_t.EVF_PUBLIC_EVENT],
-		["EV_ON_ID_NAK", event_flag_t.EVF_PUBLIC_EVENT | event_flag_t.EVF_OUTPUT_EVENT],
+		["EV_ON_ID_NAK", event_flag_t.EVF_OUTPUT_EVENT],
 		["EV_MT_STATS", event_flag_t.EVF_PUBLIC_EVENT],
 		["EV_MT_COMMAND", event_flag_t.EVF_PUBLIC_EVENT],
 		["EV_ON_OPEN", event_flag_t.EVF_OUTPUT_EVENT | event_flag_t.EVF_NO_WARN_SUBS],
@@ -9113,6 +9465,7 @@ exports.gobj_default_service = gobj_default_service;
 exports.gobj_deliver_posted_events = gobj_deliver_posted_events;
 exports.gobj_destroy = gobj_destroy;
 exports.gobj_find_child = gobj_find_child;
+exports.gobj_find_event_type = gobj_find_event_type;
 exports.gobj_find_gobj = gobj_find_gobj;
 exports.gobj_find_service = gobj_find_service;
 exports.gobj_find_subscribings = gobj_find_subscribings;