@yuneta/gobj-js 7.16.6 → 7.22.0

package/README.md

@@ -662,9 +662,27 @@ The trace arrives as `debug`, so **`set_log_callback()` is how you read it** —
 that is how a dev panel shows the machine inside the app, and how
 `doc.yuneta.io/navigation` feeds the panel under each of its demos.
 
-> The yuno attrs `tracing` / `trace_timer` / `trace_creation` /
-> `trace_start_stop` predate this and still work (gobj-ui's dev panel writes
-> them); they fold in as one more source of bits.
+**The yuno persists the levels a user sets**, as a C yuno does: `C_YUNO` has the
+trace commands of the C kernel (`set-global-trace`, `set-global-no-trace`,
+`set-gclass-trace`, `set-gclass-no-trace` and their `get-` forms) and saves
+each scope whole in `trace_levels` / `no_trace_levels`. At start up a saved
+scope **replaces** what `main.js` set before creating the yuno:
+
+```javascript
+gobj_set_global_no_trace("timer_periodic", true);           // main.js default
+let yuno = gobj_create_yuno("app_yuno", "C_YUNO", {...});    // restores the saved scopes
+gobj_command(yuno, "set-global-no-trace", {level: "timer_periodic", set: 0}, yuno);
+// no_trace_levels.__global_no_trace__ = [] -- stays off after a reload
+```
+
+The traffic of the websocket is `C_IEVENT_CLI`'s own level `ievents`; its lines
+go to the yuno attr `trace_ievent_callback`, or to the console.
+
+> The old yuno attrs `tracing`, `trace_timer`, `trace_inter_event`,
+> `trace_creation`, `trace_start_stop`, `trace_subscriptions`, `trace_i18n` and
+> `no_poll` are gone (7.22.0). A `gobj_create_yuno()` that still passes them
+> logs *"GClass Attribute NOT FOUND"* for each: remove them, and turn traces on
+> with the commands above.
 
 ### i18n: `refresh_language` and the `data-i18n-*` family
 

package/dist/gobj-js.cjs.js

@@ -194,7 +194,7 @@ function build_stats_response(gobj, result, comment, schema, data) {
 *
 *      Licence: MIT (http://www.opensource.org/licenses/mit-license)
 *      Copyright (c) 2014,2024 Niyamaka.
-*      Copyright (c) 2025, ArtGins.
+*      Copyright (c) 2025-2026, ArtGins.
 *********************************************************************************/
 /**************************************************************************
 *        Constants
@@ -429,6 +429,7 @@ var trace_level_t = Object.freeze({
 	TRACE_URING_TIME: 536870912,
 	TRACE_COMMANDS: 1073741824
 });
+var TRACE_USER_LEVEL = 65535;
 var TRACE_GLOBAL_LEVEL1 = 268369920;
 var s_global_trace_level = [
 	[
@@ -510,17 +511,28 @@ var s_global_trace_level = [
 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;
@@ -549,32 +561,30 @@ function gobj_trace_no_level(gobj) {
 	}
 	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.
@@ -582,7 +592,7 @@ function __trace_gobj_states__(gobj) {
 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;
 }
 /************************************************************
@@ -615,6 +625,49 @@ function gobj_set_global_no_trace(level, set) {
 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;
@@ -625,7 +678,7 @@ function gobj_set_gclass_trace(gclass, level, set) {
 		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;
@@ -636,7 +689,7 @@ function gobj_set_gobj_trace(gobj, level, set) {
 		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;
@@ -648,7 +701,7 @@ function gobj_set_gclass_no_trace(gclass, level, set) {
 		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;
@@ -659,7 +712,7 @@ function gobj_set_gobj_no_trace(gobj, level, set) {
 		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;
@@ -2663,7 +2716,7 @@ function _delete_subscription(gobj, subs, force, not_inform) {
 	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);
 	}
@@ -2734,7 +2787,7 @@ function gobj_subscribe_event(publisher, event, kw, subscriber) {
 	}
 	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);
 	}
@@ -2872,7 +2925,7 @@ function gobj_publish_event(publisher, event, kw) {
 			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 : "", ""));
@@ -2950,10 +3003,9 @@ function gobj_command(gobj, command, kw, src) {
 		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) {
@@ -4021,10 +4073,18 @@ Being `kw` a:
 - 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`);
@@ -4053,12 +4113,17 @@ function kwid_collect(gobj, kw, ids, jn_filter, match_fn) {
 }
 /*************************************************************
 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`);
@@ -4067,20 +4132,59 @@ function kwid_new_dict(gobj, kw, path) {
 	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.
@@ -5985,7 +6089,7 @@ function clear_timeout(gobj) {
 *
 *          The default yuno in js
 *
-*          Copyright (c) 2025, ArtGins.
+*          Copyright (c) 2025-2026, ArtGins.
 *          All Rights Reserved. ****************************************************************************/
 /***************************************************************
 *              Constants
@@ -6008,15 +6112,9 @@ var attrs_table$1 = [
 	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()
@@ -6035,6 +6133,8 @@ function mt_create$1(gobj) {
 	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
@@ -6079,8 +6179,135 @@ function mt_destroy$1(gobj) {}
 *      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
 ***************************/
@@ -6101,7 +6328,8 @@ var gmt$1 = {
 	mt_stop: mt_stop$1,
 	mt_destroy: mt_destroy$1,
 	mt_play,
-	mt_pause
+	mt_pause,
+	mt_command_parser
 };
 /***************************************************************
 *          Create the GClass
@@ -6137,7 +6365,7 @@ function register_c_yuno() {
 *
 *      Licence: MIT (http://www.opensource.org/licenses/mit-license)
 *      Copyright (c) 2014,2024 Niyamaka.
-*      Copyright (c) 2025, ArtGins.
+*      Copyright (c) 2025-2026, ArtGins.
 **************************************************************************/
 /***************************************************************
 *              Constants
@@ -6167,6 +6395,14 @@ var attrs_table = [
 	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,
@@ -6429,7 +6665,7 @@ function iev_create(event, kw) {
 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");
@@ -6723,7 +6959,7 @@ function ac_identity_card_ack(gobj, event, kw, src) {
 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");
@@ -6896,7 +7132,7 @@ function create_gclass(gclass_name) {
 		["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;
 }
@@ -6988,7 +7224,13 @@ exports.gobj_find_subscriptions = gobj_find_subscriptions;
 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;
@@ -7030,7 +7272,9 @@ exports.gobj_set_deep_trace = gobj_set_deep_trace;
 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;
@@ -7128,6 +7372,7 @@ exports.kwid_find_one_record = kwid_find_one_record;
 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;