@yuneta/gobj-js 7.16.6 → 7.22.0

package/dist/gobj-js.umd.js

@@ -197,7 +197,7 @@
 	*
 	*      Licence: MIT (http://www.opensource.org/licenses/mit-license)
 	*      Copyright (c) 2014,2024 Niyamaka.
-	*      Copyright (c) 2025, ArtGins.
+	*      Copyright (c) 2025-2026, ArtGins.
 	*********************************************************************************/
 	/**************************************************************************
 	*        Constants
@@ -432,6 +432,7 @@
 		TRACE_URING_TIME: 536870912,
 		TRACE_COMMANDS: 1073741824
 	});
+	var TRACE_USER_LEVEL = 65535;
 	var TRACE_GLOBAL_LEVEL1 = 268369920;
 	var s_global_trace_level = [
 		[
@@ -513,17 +514,28 @@
 	var __global_trace_level__ = 0;
 	var __global_trace_no_level__ = 0;
 	var __deep_trace__ = 0;
-	function level2bit(level) {
+	function level2bit(level, s_user_trace_level) {
 		for (const [name, bit] of s_global_trace_level) if (name === level) return bit;
+		if (Array.isArray(s_user_trace_level)) {
+			for (let i = 0; i < s_user_trace_level.length && i < 16; i++) if (s_user_trace_level[i] && s_user_trace_level[i][0] === level) return 1 << i;
+		}
 		return 0;
 	}
-	function trace_bitmask(level, who) {
-		if (empty_string(level)) return TRACE_GLOBAL_LEVEL1;
+	function bit2level(bitmask, s_user_trace_level) {
+		let levels = [];
+		for (const [name, bit] of s_global_trace_level) if (bitmask & bit) levels.push(name);
+		if (Array.isArray(s_user_trace_level)) {
+			for (let i = 0; i < s_user_trace_level.length && i < 16; i++) if (s_user_trace_level[i] && bitmask & 1 << i) levels.push(s_user_trace_level[i][0]);
+		}
+		return levels;
+	}
+	function trace_bitmask(level, who, s_user_trace_level) {
+		if (empty_string(level)) return s_user_trace_level === void 0 ? TRACE_GLOBAL_LEVEL1 : TRACE_USER_LEVEL;
 		if (/^[0-9]+$/.test(String(level))) {
 			const n = Number(level);
 			if (n) return n;
 		}
-		const bit = level2bit(String(level));
+		const bit = level2bit(String(level), s_user_trace_level);
 		if (!bit) {
 			log_error(`${who}: trace level NOT FOUND: ${level}`);
 			return 0;
@@ -552,32 +564,30 @@
 		}
 		return bitmask;
 	}
-	function legacy_yuno_trace_bits() {
-		if (!__yuno__ || !__yuno__.jn_attrs) return 0;
-		let bits = 0;
-		if (gobj_has_attr(__yuno__, "tracing")) {
-			const tracing = Number(gobj_read_attr(__yuno__, "tracing")) || 0;
-			if (tracing >= 1) bits |= trace_level_t.TRACE_MACHINE;
-			if (tracing >= 2) bits |= trace_level_t.TRACE_EV_KW;
-		}
-		if (gobj_has_attr(__yuno__, "trace_timer") && gobj_read_attr(__yuno__, "trace_timer")) bits |= trace_level_t.TRACE_TIMER;
-		if (gobj_has_attr(__yuno__, "trace_creation") && gobj_read_attr(__yuno__, "trace_creation")) bits |= trace_level_t.TRACE_CREATE_DELETE;
-		if (gobj_has_attr(__yuno__, "trace_start_stop") && gobj_read_attr(__yuno__, "trace_start_stop")) bits |= trace_level_t.TRACE_START_STOP;
-		return bits;
-	}
 	function __trace_gobj_create_delete__(gobj) {
-		return (gobj_trace_level(gobj) | legacy_yuno_trace_bits()) & trace_level_t.TRACE_CREATE_DELETE;
+		return gobj_trace_level(gobj) & trace_level_t.TRACE_CREATE_DELETE;
+	}
+	function __trace_gobj_subscriptions__(gobj) {
+		return gobj_trace_level(gobj) & trace_level_t.TRACE_SUBSCRIPTIONS;
 	}
 	function __trace_gobj_start_stop__(gobj) {
-		return (gobj_trace_level(gobj) | legacy_yuno_trace_bits()) & trace_level_t.TRACE_START_STOP;
+		return gobj_trace_level(gobj) & trace_level_t.TRACE_START_STOP;
 	}
 	function __trace_gobj_ev_kw__(gobj) {
-		return (gobj_trace_level(gobj) | legacy_yuno_trace_bits()) & trace_level_t.TRACE_EV_KW;
+		return gobj_trace_level(gobj) & trace_level_t.TRACE_EV_KW;
 	}
 	function __trace_gobj_states__(gobj) {
 		return gobj_trace_level(gobj) & trace_level_t.TRACE_STATES;
 	}
 	/************************************************************
+	*  Must trace a command? — the C kernel's is_commands_tracing()
+	************************************************************/
+	function is_commands_tracing(gobj) {
+		if (__deep_trace__ > 1) return true;
+		if (!gobj) return false;
+		return gobj_trace_level(gobj) & trace_level_t.TRACE_COMMANDS ? true : false;
+	}
+	/************************************************************
 	*  Must trace? — the C kernel's is_machine_tracing(), including
 	*  the two event-specific levels: `timer` and `timer_periodic`
 	*  light up only for their own event.
@@ -585,7 +595,7 @@
 	function is_machine_tracing(gobj, event) {
 		if (__deep_trace__ > 1) return true;
 		if (!gobj) return false;
-		const level = gobj_trace_level(gobj) | legacy_yuno_trace_bits();
+		const level = gobj_trace_level(gobj);
 		return level & trace_level_t.TRACE_MACHINE || level & trace_level_t.TRACE_TIMER_PERIODIC && event === "EV_TIMEOUT_PERIODIC" || level & trace_level_t.TRACE_TIMER && event === "EV_TIMEOUT" ? true : false;
 	}
 	/************************************************************
@@ -618,6 +628,49 @@
 	function gobj_global_trace_level() {
 		return __global_trace_level__;
 	}
+	function gobj_global_trace_no_level() {
+		return __global_trace_no_level__;
+	}
+	function gobj_set_global_trace2(bitmask, set) {
+		if (set) __global_trace_level__ = (__global_trace_level__ | bitmask) >>> 0;
+		else __global_trace_level__ = (__global_trace_level__ & ~bitmask) >>> 0;
+		return 0;
+	}
+	function gobj_set_global_no_trace2(bitmask, set) {
+		if (set) __global_trace_no_level__ = (__global_trace_no_level__ | bitmask) >>> 0;
+		else __global_trace_no_level__ = (__global_trace_no_level__ & ~bitmask) >>> 0;
+		return 0;
+	}
+	function gobj_get_global_trace_level() {
+		return bit2level(__global_trace_level__, null);
+	}
+	function gobj_get_global_trace_no_level() {
+		return bit2level(__global_trace_no_level__, null);
+	}
+	function gobj_get_gclass_trace_level(gclass) {
+		const gclass_ = is_string(gclass) ? gclass_find_by_name(gclass) : gclass;
+		if (!gclass_) {
+			log_error(`gobj_get_gclass_trace_level: gclass NOT FOUND: ${gclass}`);
+			return [];
+		}
+		return bit2level(gclass_.trace_level | __global_trace_level__, gclass_.s_user_trace_level);
+	}
+	function gobj_get_gclass_trace_level2(gclass) {
+		const gclass_ = is_string(gclass) ? gclass_find_by_name(gclass) : gclass;
+		if (!gclass_) {
+			log_error(`gobj_get_gclass_trace_level2: gclass NOT FOUND: ${gclass}`);
+			return [];
+		}
+		return bit2level(gclass_.trace_level, gclass_.s_user_trace_level);
+	}
+	function gobj_get_gclass_trace_no_level(gclass) {
+		const gclass_ = is_string(gclass) ? gclass_find_by_name(gclass) : gclass;
+		if (!gclass_) {
+			log_error(`gobj_get_gclass_trace_no_level: gclass NOT FOUND: ${gclass}`);
+			return [];
+		}
+		return bit2level(gclass_.no_trace_level, gclass_.s_user_trace_level);
+	}
 	function gobj_set_deep_trace(value) {
 		__deep_trace__ = Number(value) || 0;
 		return 0;
@@ -628,7 +681,7 @@
 			log_error(`gobj_set_gclass_trace: gclass NOT FOUND: ${gclass}`);
 			return -1;
 		}
-		const bitmask = trace_bitmask(level, "gobj_set_gclass_trace");
+		const bitmask = level === null ? 4294967295 : trace_bitmask(level, "gobj_set_gclass_trace", gclass_.s_user_trace_level || null);
 		if (!bitmask) return -1;
 		if (set) gclass_.trace_level |= bitmask;
 		else gclass_.trace_level &= ~bitmask;
@@ -639,7 +692,7 @@
 			log_error(`gobj_set_gobj_trace: gobj NULL`);
 			return -1;
 		}
-		const bitmask = trace_bitmask(level, "gobj_set_gobj_trace");
+		const bitmask = trace_bitmask(level, "gobj_set_gobj_trace", gobj.gclass && gobj.gclass.s_user_trace_level || null);
 		if (!bitmask) return -1;
 		if (set) gobj.trace_level |= bitmask;
 		else gobj.trace_level &= ~bitmask;
@@ -651,7 +704,7 @@
 			log_error(`gobj_set_gclass_no_trace: gclass NOT FOUND: ${gclass}`);
 			return -1;
 		}
-		const bitmask = trace_bitmask(level, "gobj_set_gclass_no_trace");
+		const bitmask = level === null ? 4294967295 : trace_bitmask(level, "gobj_set_gclass_no_trace", gclass_.s_user_trace_level || null);
 		if (!bitmask) return -1;
 		if (set) gclass_.no_trace_level |= bitmask;
 		else gclass_.no_trace_level &= ~bitmask;
@@ -662,7 +715,7 @@
 			log_error(`gobj_set_gobj_no_trace: gobj NULL`);
 			return -1;
 		}
-		const bitmask = trace_bitmask(level, "gobj_set_gobj_no_trace");
+		const bitmask = trace_bitmask(level, "gobj_set_gobj_no_trace", gobj.gclass && gobj.gclass.s_user_trace_level || null);
 		if (!bitmask) return -1;
 		if (set) gobj.no_trace_level |= bitmask;
 		else gobj.no_trace_level &= ~bitmask;
@@ -2666,7 +2719,7 @@
 		if (kw_get_int(gobj, subs, "subs_flag", null, kw_flag_t.KW_REQUIRED) & subs_flag_t.__hard_subscription__ ? 1 : 0) {
 			if (!force) return -1;
 		}
-		if (__yuno__ && gobj_read_bool_attr(__yuno__, "trace_subscriptions")) {
+		if (__trace_gobj_subscriptions__(subscriber) || __trace_gobj_subscriptions__(publisher)) {
 			trace_machine(sprintf("💜💜👎 unsubscribing event '%s': publisher %s, subscriber'%s'", event ? event : "", gobj_short_name(publisher), gobj_short_name(subscriber)));
 			trace_json(subs);
 		}
@@ -2737,7 +2790,7 @@
 		}
 		json_array_append(publisher.dl_subscriptions, subs);
 		json_array_append(subscriber.dl_subscribings, subs);
-		if (__yuno__ && gobj_read_bool_attr(__yuno__, "trace_subscriptions")) {
+		if (__trace_gobj_subscriptions__(subscriber) || __trace_gobj_subscriptions__(publisher)) {
 			trace_machine(sprintf("💜💜👍 subscribing event '%s', publisher '%s', subscriber %s", event ? event : "", gobj_short_name(publisher), gobj_short_name(subscriber)));
 			if (kw) trace_json(kw);
 		}
@@ -2875,7 +2928,7 @@
 				return -1;
 			}
 		}
-		let tracea = __yuno__ && gobj_read_bool_attr(__yuno__, "trace_subscriptions");
+		let tracea = (__trace_gobj_subscriptions__(publisher) || is_machine_tracing(publisher, event)) && !is_machine_not_tracing(publisher, event);
 		if (tracea) {
 			if (__trace_machine_format__ === 1) trace_machine(sprintf("🔝🔝 %s %s%s %s", event ? event : "", !publisher.running ? "!!" : "", gobj_short_name(publisher), publisher.current_state.state_name));
 			else trace_machine(sprintf("🔝🔝 mach(%s%s^%s), st: %s, ev: %s%s%s", !publisher.running ? "!!" : "", gobj_gclass_name(publisher), gobj_name(publisher), publisher.current_state.state_name, "", event ? event : "", ""));
@@ -2953,10 +3006,9 @@
 			log_error("gobj NULL or DESTROYED");
 			return -1;
 		}
-		let tracea = __yuno__ && gobj_read_integer_attr(__yuno__, "tracing");
-		if (tracea) {
+		if (is_commands_tracing(gobj) || is_machine_tracing(gobj, null) && !is_machine_not_tracing(src, null)) {
 			trace_machine(sprintf("🌀🌀 mach(%s%s), cmd: %s, src: %s", !gobj_is_running(gobj) ? "!!" : "", gobj_short_name(gobj), command, gobj_short_name(src)));
-			if (tracea > 1) trace_json(kw);
+			if (__trace_gobj_ev_kw__(gobj)) trace_json(kw);
 		}
 		if (gobj.gclass.gmt.mt_command_parser) return gobj.gclass.gmt.mt_command_parser(gobj, command, kw, src);
 		if (gobj.gclass.command_table) {
@@ -4024,10 +4076,18 @@
 	- list of strings [s,...]
 	- list of dicts [{},...]
 	- dict of dicts {id:{},...}
-	return a **NEW** list of incref (clone) kw filtering the rows by `jn_filter` (where),
-	and matching the ids.
-	If match_fn is 0 then kw_match_simple is used.
-	NOTE Using JSON_INCREF/JSON_DECREF HACK
+	return a NEW list holding the rows that match `ids` and the
+	`jn_filter` (where). If match_fn is 0 then kw_match_simple is used.
+	
+	WARNING the LIST is new; its elements are THE SAME objects, not
+	copies. The C twin increfs each one and says "clone", which this
+	comment repeated for years: javascript has no refcount, so a write
+	through a collected row writes into `kw`. Copy what you mean to
+	modify.
+	
+	Returns null -- not an empty list -- for a `kw` that is neither a
+	list nor a dict, so a caller that reads `.length` off the answer
+	must check it first (kwid_find_one_record does).
 	*************************************************************/
 	function kwid_collect(gobj, kw, ids, jn_filter, match_fn) {
 		if (gobj && !is_gobj(gobj)) log_error(`GObj bad instanceof`);
@@ -4056,12 +4116,17 @@
 	}
 	/*************************************************************
 	Utility for databases.
-	Return a new dict from a "dict of records" or "list of records"
-	WARNING the "id" of a dict's record is hardcorded to their key.
+	Return a dict from a "dict of records" or "list of records".
+	WARNING the "id" of a dict's record is hardcoded to its key.
 	Convention:
-	- all arrays are list of records (dicts) with "id" field as primary key
+	- all arrays are lists of records (dicts) with "id" as primary key
 	- delimiter is '`' and '.'
 	If path is empty then use kw
+	
+	WARNING "new" is the C twin's word, where it means a new REFERENCE:
+	handed a dict, both return THAT dict and not a copy of it. Only the
+	list case builds something new, and even then the records inside it
+	are the same objects.
 	*************************************************************/
 	function kwid_new_dict(gobj, kw, path) {
 		if (gobj && !is_gobj(gobj)) log_error(`GObj bad instanceof`);
@@ -4070,20 +4135,59 @@
 		if (is_object(kw)) new_dict = kw;
 		else if (is_array(kw)) for (let i = 0; i < kw.length; i++) {
 			let kv = kw[i];
-			let id = kw_get_str(gobj, kv, "id", "", 0);
+			let id = kw_get_str(gobj, kv, "id", "", kw_flag_t.KW_REQUIRED);
 			if (!empty_string(id)) new_dict[id] = kv;
 		}
 		else log_error(`${gobj_short_name(gobj)} kwid_new_dict: data type unknown`);
 		return new_dict;
 	}
 	/*************************************************************
+	Utility for databases.
+	Return a list from a "dict of records" or "list of records".
+	The NORMALIZING function of this family: whatever shape the data
+	arrives in, what comes back is the shape a table indexed and
+	sorted by `id` wants.
+	Convention:
+	- all arrays are lists of records (dicts) with "id" as primary key
+	- delimiter is '`' and '.'
+	If path is empty then use kw
+	
+	WARNING handed a DICT it writes each record's key into the record
+	as its `id`, OVERWRITING one that differs -- in the source records,
+	which it does not copy. That is the C twin's behaviour
+	(`json_object_set_new(v, "id", ...)` in kwid.c) and it is the point:
+	a dict keyed by id whose records disagree with their own key is
+	exactly what this is for. Handed a LIST it returns that same list,
+	untouched, as C returns a new reference to it.
+	*************************************************************/
+	function kwid_new_list(gobj, kw, path) {
+		if (gobj && !is_gobj(gobj)) log_error(`GObj bad instanceof`);
+		if (!empty_string(path)) kw = kw_find_path(gobj, kw, path);
+		if (is_array(kw)) return kw;
+		if (is_object(kw)) {
+			let new_list = [];
+			for (let id of Object.keys(kw)) {
+				let record = kw[id];
+				if (!is_object(record)) {
+					log_error(`${gobj_short_name(gobj)} kwid_new_list: not a record: '${id}'`);
+					continue;
+				}
+				record["id"] = id;
+				new_list.push(record);
+			}
+			return new_list;
+		}
+		log_error(`${gobj_short_name(gobj)} kwid_new_list: wrong type for list`);
+		return [];
+	}
+	/*************************************************************
 	*  Utility for databases. See kwid_collect parameters
 	*************************************************************/
 	function kwid_find_one_record(gobj, kw, ids, jn_filter, match_fn) {
 		if (gobj && !is_gobj(gobj)) log_error(`GObj bad instanceof`);
 		let list = kwid_collect(gobj, kw, ids, jn_filter, match_fn);
-		if (list.length > 0) return list[0];
-		else return null;
+		if (!list || list.length === 0) return null;
+		return list[0];
 	}
 	/*************************************************************
 	Utility for databases.
@@ -5988,7 +6092,7 @@
 	*
 	*          The default yuno in js
 	*
-	*          Copyright (c) 2025, ArtGins.
+	*          Copyright (c) 2025-2026, ArtGins.
 	*          All Rights Reserved. ****************************************************************************/
 	/***************************************************************
 	*              Constants
@@ -6011,15 +6115,9 @@
 		SDATA(data_type_t.DTP_STRING, "yuno_version", 0, "", "Yuno version (APP_VERSION)"),
 		SDATA(data_type_t.DTP_STRING, "yuneta_version", 0, YUNETA_VERSION, "Yuneta version"),
 		SDATA(data_type_t.DTP_LIST, "required_services", 0, "[]", "Required services"),
-		SDATA(data_type_t.DTP_INTEGER, "tracing", 0, 0, "Tracing level"),
-		SDATA(data_type_t.DTP_BOOLEAN, "trace_timer", 0, 0, "Trace timers"),
-		SDATA(data_type_t.DTP_BOOLEAN, "trace_inter_event", 0, 0, "Trace traffic"),
-		SDATA(data_type_t.DTP_POINTER, "trace_ievent_callback", 0, null, "Trace traffic callback"),
-		SDATA(data_type_t.DTP_BOOLEAN, "trace_creation", 0, 0, "Trace creation"),
-		SDATA(data_type_t.DTP_BOOLEAN, "trace_start_stop", 0, 0, "Trace start/stop"),
-		SDATA(data_type_t.DTP_BOOLEAN, "trace_subscriptions", 0, 0, "Trace subscription"),
-		SDATA(data_type_t.DTP_BOOLEAN, "trace_i18n", 0, 0, "Trace i18n"),
-		SDATA(data_type_t.DTP_BOOLEAN, "no_poll", 0, 0, "no poll"),
+		SDATA(data_type_t.DTP_DICT, "trace_levels", sdata_flag_t.SDF_PERSIST, "{}", "Trace levels"),
+		SDATA(data_type_t.DTP_DICT, "no_trace_levels", sdata_flag_t.SDF_PERSIST, "{}", "No trace levels"),
+		SDATA(data_type_t.DTP_POINTER, "trace_ievent_callback", 0, null, "Where the traffic trace goes (C_IEVENT_CLI levels ievents/ievents2); console when null"),
 		SDATA(data_type_t.DTP_BOOLEAN, "developer", 0, false, "Developer mode enabled"),
 		SDATA(data_type_t.DTP_INTEGER, "periodic_timeout", 0, "1000", "Timeout periodic, in miliseconds."),
 		SDATA_END()
@@ -6038,6 +6136,8 @@
 		gobj_write_str_attr(gobj, "node_uuid", node_uuid());
 		gobj.priv.gobj_timer = gobj_create_pure_child(gobj_name(gobj), "C_TIMER", {}, gobj);
 		priv.periodic_timeout = gobj_read_attr(gobj, "periodic_timeout");
+		set_user_gclass_traces(gobj);
+		set_user_gclass_no_traces(gobj);
 	}
 	/***************************************************************
 	*          Framework Method: Writing
@@ -6082,8 +6182,135 @@
 	*      Local Methods
 	***************************/
 	/***************************************************************
+	*  Restore the trace levels the user persisted.
 	*
+	*  A saved scope REPLACES what is in force: main() sets its defaults
+	*  (gobj_set_global_no_trace("timer_periodic"), a gclass it wants quiet)
+	*  before the yuno is created, and a default the user turned off must
+	*  stay off. A scope is saved whole, empty included (save_global_trace());
+	*  a scope never saved keeps main()'s. The C kernel's C_YUNO does the same.
+	***************************************************************/
+	function set_user_gclass_traces(gobj) {
+		let jn_trace_levels = gobj_read_attr(gobj, "trace_levels");
+		if (!is_object(jn_trace_levels)) return 0;
+		let jn_global = jn_trace_levels["__global_trace__"];
+		if (is_array(jn_global)) {
+			gobj_set_global_trace2(4294967295, false);
+			for (let level of jn_global) gobj_set_global_trace(level, true);
+		}
+		for (const [name, jn_levels] of Object.entries(jn_trace_levels)) {
+			let gclass = gclass_find_by_name(name);
+			if (!gclass) continue;
+			if (!is_array(jn_levels)) {
+				log_error(`${gobj_name(gobj)}: trace_levels of ${name} MUST be a list`);
+				continue;
+			}
+			gobj_set_gclass_trace(gclass, null, false);
+			for (let level of jn_levels) gobj_set_gclass_trace(gclass, level, true);
+		}
+		return 0;
+	}
+	/***************************************************************
+	*  Restore the no-trace levels, see set_user_gclass_traces()
+	***************************************************************/
+	function set_user_gclass_no_traces(gobj) {
+		let jn_no_trace_levels = gobj_read_attr(gobj, "no_trace_levels");
+		if (!is_object(jn_no_trace_levels)) return 0;
+		let jn_global = jn_no_trace_levels["__global_no_trace__"];
+		if (is_array(jn_global)) {
+			gobj_set_global_no_trace2(4294967295, false);
+			for (let level of jn_global) gobj_set_global_no_trace(level, true);
+		}
+		for (const [name, jn_levels] of Object.entries(jn_no_trace_levels)) {
+			let gclass = gclass_find_by_name(name);
+			if (!gclass) continue;
+			if (!is_array(jn_levels)) {
+				log_error(`${gobj_name(gobj)}: no_trace_levels of ${name} MUST be a list`);
+				continue;
+			}
+			gobj_set_gclass_no_trace(gclass, null, false);
+			for (let level of jn_levels) gobj_set_gclass_no_trace(gclass, level, true);
+		}
+		return 0;
+	}
+	/***************************************************************
+	*  Save a scope WHOLE, from the levels in force (see
+	*  set_user_gclass_traces()): a saved scope replaces main()'s, so it
+	*  has to carry everything that must be in force.
+	***************************************************************/
+	function save_trace_scope(gobj, attr, scope, levels) {
+		let jn_levels = gobj_read_attr(gobj, attr);
+		if (!is_object(jn_levels)) jn_levels = {};
+		jn_levels[scope] = levels;
+		gobj_write_attr(gobj, attr, jn_levels);
+		return gobj_save_persistent_attrs(gobj, attr);
+	}
+	/***************************************************************
+	*  "set" as the C command reads it: TRUE / set / 1, FALSE / reset / 0
 	***************************************************************/
+	function parse_set(value) {
+		if (value === true || value === false) return value;
+		let v = String(value === void 0 || value === null ? "" : value).toLowerCase();
+		if (v === "true" || v === "set") return true;
+		if (v === "false" || v === "reset") return false;
+		if (v === "" || isNaN(Number(v))) return null;
+		return Number(v) ? true : false;
+	}
+	function yuno_prefix() {
+		return `${gobj_yuno_role()}^${gobj_yuno_name()}`;
+	}
+	/***************************
+	*      Commands
+	***************************/
+	/***************************************************************
+	*  The trace commands of the C kernel's C_YUNO, same names and same
+	*  parameters (`level`, `set`, `gclass_name` / `gclass`). Setting a
+	*  level saves its scope.
+	***************************************************************/
+	function mt_command_parser(gobj, command, kw, src) {
+		kw = kw || {};
+		switch (command) {
+			case "get-global-trace": return build_command_response(gobj, 0, null, null, gobj_get_global_trace_level());
+			case "get-global-no-trace": return build_command_response(gobj, 0, null, null, gobj_get_global_trace_no_level());
+			case "set-global-trace":
+			case "set-global-no-trace": {
+				let no = command === "set-global-no-trace";
+				let level = kw.level;
+				let set = parse_set(kw.set);
+				if (!level) return build_command_response(gobj, -1, `${yuno_prefix()}: what level?`, null, null);
+				if (set === null) return build_command_response(gobj, -1, `${yuno_prefix()}: bitmask set or re-set?`, null, null);
+				if ((no ? gobj_set_global_no_trace(level, set) : gobj_set_global_trace(level, set)) < 0) return build_command_response(gobj, -1, `${yuno_prefix()}: global trace level not found: ${level}`, null, null);
+				if (no) {
+					save_trace_scope(gobj, "no_trace_levels", "__global_no_trace__", gobj_get_global_trace_no_level());
+					return build_command_response(gobj, 0, null, null, gobj_get_global_trace_no_level());
+				}
+				save_trace_scope(gobj, "trace_levels", "__global_trace__", gobj_get_global_trace_level());
+				return build_command_response(gobj, 0, null, null, gobj_get_global_trace_level());
+			}
+			case "get-gclass-trace":
+			case "get-gclass-no-trace":
+			case "set-gclass-trace":
+			case "set-gclass-no-trace": {
+				let no = command.indexOf("no-trace") >= 0;
+				let gclass_name = kw.gclass_name || kw.gclass || "";
+				let gclass = gclass_find_by_name(gclass_name);
+				if (!gclass) return build_command_response(gobj, -1, `${yuno_prefix()}: what gclass is '${gclass_name}'?`, null, null);
+				if (command.indexOf("get-") === 0) return build_command_response(gobj, 0, null, null, no ? gobj_get_gclass_trace_no_level(gclass) : gobj_get_gclass_trace_level(gclass));
+				let level = kw.level;
+				let set = parse_set(kw.set);
+				if (!level) return build_command_response(gobj, -1, `${yuno_prefix()}: what level?`, null, null);
+				if (set === null) return build_command_response(gobj, -1, `${yuno_prefix()}: bitmask set or re-set?`, null, null);
+				if ((no ? gobj_set_gclass_no_trace(gclass, level, set) : gobj_set_gclass_trace(gclass, level, set)) < 0) return build_command_response(gobj, -1, `${yuno_prefix()}: trace level of ${gclass_name} not found: ${level}`, null, null);
+				if (no) {
+					save_trace_scope(gobj, "no_trace_levels", gclass_name, gobj_get_gclass_trace_no_level(gclass));
+					return build_command_response(gobj, 0, null, null, gobj_get_gclass_trace_no_level(gclass));
+				}
+				save_trace_scope(gobj, "trace_levels", gclass_name, gobj_get_gclass_trace_level2(gclass));
+				return build_command_response(gobj, 0, null, null, gobj_get_gclass_trace_level(gclass));
+			}
+			default: return build_command_response(gobj, -1, `${yuno_prefix()}: command not available: ${command}`, null, null);
+		}
+	}
 	/***************************
 	*      Actions
 	***************************/
@@ -6104,7 +6331,8 @@
 		mt_stop: mt_stop$1,
 		mt_destroy: mt_destroy$1,
 		mt_play,
-		mt_pause
+		mt_pause,
+		mt_command_parser
 	};
 	/***************************************************************
 	*          Create the GClass
@@ -6140,7 +6368,7 @@
 	*
 	*      Licence: MIT (http://www.opensource.org/licenses/mit-license)
 	*      Copyright (c) 2014,2024 Niyamaka.
-	*      Copyright (c) 2025, ArtGins.
+	*      Copyright (c) 2025-2026, ArtGins.
 	**************************************************************************/
 	/***************************************************************
 	*              Constants
@@ -6170,6 +6398,14 @@
 		SDATA(data_type_t.DTP_POINTER, "subscriber", 0, 0, "subscriber of output-events. If null then subscriber is the parent"),
 		SDATA_END()
 	];
+	var s_user_trace_level = [
+		["ievents", "Trace inter-events with metadata of kw"],
+		["ievents2", "Trace inter-events with full kw"],
+		["identity-card", "Trace identity_card messages"]
+	];
+	function is_traffic_tracing(gobj) {
+		return gobj_trace_level(gobj) & 3 ? true : false;
+	}
 	var PRIVATE_DATA = {
 		url: null,
 		remote_yuno_name: null,
@@ -6432,7 +6668,7 @@
 	function send_iev(gobj, iev) {
 		let priv = gobj.priv;
 		let msg = JSON.stringify(iev);
-		if (gobj_read_bool_attr(gobj_yuno(), "trace_inter_event")) {
+		if (is_traffic_tracing(gobj)) {
 			let url = gobj_read_str_attr(gobj, "url");
 			let prefix = gobj_name(gobj_yuno()) + " ==> " + url;
 			let trace_ievent_callback = gobj_read_attr(gobj_yuno(), "trace_ievent_callback");
@@ -6726,7 +6962,7 @@
 	function ac_on_message(gobj, event, kw, src) {
 		let url = gobj.priv.url;
 		let iev_msg = iev_create_from_json(gobj, kw.data);
-		if (gobj_read_bool_attr(gobj_yuno(), "trace_inter_event")) {
+		if (is_traffic_tracing(gobj)) {
 			let prefix = gobj_name(gobj_yuno()) + " <== " + url;
 			let size = kw.data.length;
 			let trace_ievent_callback = gobj_read_attr(gobj_yuno(), "trace_ievent_callback");
@@ -6899,7 +7135,7 @@
 			["EV_ON_OPEN_ERROR", event_flag_t.EVF_OUTPUT_EVENT | event_flag_t.EVF_NO_WARN_SUBS],
 			["EV_TIMEOUT", 0],
 			[null, 0]
-		], states, gmt, 0, attrs_table, PRIVATE_DATA, 0, 0, 0, gclass_flag_t.gcflag_no_check_output_events);
+		], states, gmt, 0, attrs_table, PRIVATE_DATA, 0, 0, s_user_trace_level, gclass_flag_t.gcflag_no_check_output_events);
 		if (!__gclass__) return -1;
 		return 0;
 	}
@@ -6991,7 +7227,13 @@
 	exports.gobj_flag_t = gobj_flag_t;
 	exports.gobj_full_name = gobj_full_name;
 	exports.gobj_gclass_name = gobj_gclass_name;
+	exports.gobj_get_gclass_trace_level = gobj_get_gclass_trace_level;
+	exports.gobj_get_gclass_trace_level2 = gobj_get_gclass_trace_level2;
+	exports.gobj_get_gclass_trace_no_level = gobj_get_gclass_trace_no_level;
+	exports.gobj_get_global_trace_level = gobj_get_global_trace_level;
+	exports.gobj_get_global_trace_no_level = gobj_get_global_trace_no_level;
 	exports.gobj_global_trace_level = gobj_global_trace_level;
+	exports.gobj_global_trace_no_level = gobj_global_trace_no_level;
 	exports.gobj_has_attr = gobj_has_attr;
 	exports.gobj_has_event = gobj_has_event;
 	exports.gobj_has_output_event = gobj_has_output_event;
@@ -7033,7 +7275,9 @@
 	exports.gobj_set_gclass_no_trace = gobj_set_gclass_no_trace;
 	exports.gobj_set_gclass_trace = gobj_set_gclass_trace;
 	exports.gobj_set_global_no_trace = gobj_set_global_no_trace;
+	exports.gobj_set_global_no_trace2 = gobj_set_global_no_trace2;
 	exports.gobj_set_global_trace = gobj_set_global_trace;
+	exports.gobj_set_global_trace2 = gobj_set_global_trace2;
 	exports.gobj_set_gobj_no_trace = gobj_set_gobj_no_trace;
 	exports.gobj_set_gobj_trace = gobj_set_gobj_trace;
 	exports.gobj_set_trace_machine_format = gobj_set_trace_machine_format;
@@ -7131,6 +7375,7 @@
 	exports.kwid_get_ids = kwid_get_ids;
 	exports.kwid_match_id = kwid_match_id;
 	exports.kwid_new_dict = kwid_new_dict;
+	exports.kwid_new_list = kwid_new_list;
 	exports.list2options = list2options;
 	exports.load_json_file = load_json_file;
 	exports.log_debug = log_debug;