nomen-lang 0.7.1 → 0.9.0

package/core/System/Controls/Control.nm

@@ -26,3 +26,446 @@ pub trait Control {
 	// wrapping, scrolling, etc. Default: call measure with infinity.)
 	func intrinsic_size = (self, out Size)
 }
+
+// ── Native click events (target/action) ──
+//
+// NSButton-family controls (Button, CheckBox, Radio, Toggle — and
+// composites over them) arm a shared action target at construction; the
+// action records the sender's view pointer — which IS the Nomen handle —
+// into a ring queue, and `was_clicked` drains it. That is an
+// edge-triggered click poll with no coordinates and no hit-testing, and it
+// works for controls hosted on a Scrollable's document view. Handlers that
+// need shared app state stay in `App.frame` — a capturing `on_click`
+// closure is not expressible soundly (capturing a control MOVES it; see
+// CLOSURE.md), so the poll form is the ownership-clean equivalent.
+
+// Arm a control's native click action. Called by the button-family
+// constructors; safe to call again (re-sets target/action).
+pub func nomen_control_arm_clicks = (uint64 handle) {
+	```
+	#arch: c
+	#platform: macos
+	#scope: file
+	// The shared click target: NSControl.target/action fires clickAction:
+	// on the main thread; the sender's view pointer is the Nomen handle.
+	static void *nomen_click_target = 0;
+	// Ring queue of clicked handles (64 deep; a click that is never
+	// consumed is stale, so dropping the oldest when full is fine).
+	static unsigned long long nomen_click_queue[64];
+	static int nomen_click_count = 0;
+	static void nomen_click_push(unsigned long long h) {
+		if (nomen_click_count >= 64) return;
+		nomen_click_queue[nomen_click_count++] = h;
+	}
+	static long nomen_click_take(unsigned long long h) {
+		for (int i = 0; i < nomen_click_count; i++) {
+			if (nomen_click_queue[i] == h) {
+				for (int j = i; j < nomen_click_count - 1; j++) {
+					nomen_click_queue[j] = nomen_click_queue[j + 1];
+				}
+				nomen_click_count--;
+				return 1;
+			}
+		}
+		return 0;
+	}
+	static void nomen_click_action(id self, SEL cmd, id sender) {
+		(void)self; (void)cmd;
+		nomen_click_push((unsigned long long)(void *)sender);
+	}
+	static void nomen_click_arm(unsigned long long handle) {
+		Class Tc = objc_getClass("NomenClickTarget");
+		if (!Tc) {
+			Tc = objc_allocateClassPair(objc_getClass("NSObject"), "NomenClickTarget", 0);
+			if (Tc) {
+				class_addMethod(Tc, sel_registerName("clickAction:"), (IMP)nomen_click_action, "v@:@");
+				objc_registerClassPair(Tc);
+			}
+		}
+		if (!nomen_click_target && Tc) {
+			nomen_click_target = (void *)((id(*)(id, SEL))objc_msgSend)((id)Tc, sel_registerName("new"));
+		}
+		if (nomen_click_target) {
+			id control = (id)handle;
+			((void(*)(id, SEL, id))objc_msgSend)(control, sel_registerName("setTarget:"), (id)nomen_click_target);
+			((void(*)(id, SEL, SEL))objc_msgSend)(control, sel_registerName("setAction:"), sel_registerName("clickAction:"));
+		}
+	}
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: macos
+	#scope: file
+	static void *nomen_click_target = 0;
+	static unsigned long long nomen_click_queue[64];
+	static int nomen_click_count = 0;
+	static void nomen_click_push(unsigned long long h) {
+		if (nomen_click_count >= 64) return;
+		nomen_click_queue[nomen_click_count++] = h;
+	}
+	static long nomen_click_take(unsigned long long h) {
+		for (int i = 0; i < nomen_click_count; i++) {
+			if (nomen_click_queue[i] == h) {
+				for (int j = i; j < nomen_click_count - 1; j++) {
+					nomen_click_queue[j] = nomen_click_queue[j + 1];
+				}
+				nomen_click_count--;
+				return 1;
+			}
+		}
+		return 0;
+	}
+	static void nomen_click_action(id self, SEL cmd, id sender) {
+		(void)self; (void)cmd;
+		nomen_click_push((unsigned long long)(void *)sender);
+	}
+	static void nomen_click_arm(unsigned long long handle) {
+		Class Tc = objc_getClass("NomenClickTarget");
+		if (!Tc) {
+			Tc = objc_allocateClassPair(objc_getClass("NSObject"), "NomenClickTarget", 0);
+			if (Tc) {
+				class_addMethod(Tc, sel_registerName("clickAction:"), (IMP)nomen_click_action, "v@:@");
+				objc_registerClassPair(Tc);
+			}
+		}
+		if (!nomen_click_target && Tc) {
+			nomen_click_target = (void *)((id(*)(id, SEL))objc_msgSend)((id)Tc, sel_registerName("new"));
+		}
+		if (nomen_click_target) {
+			id control = (id)handle;
+			((void(*)(id, SEL, id))objc_msgSend)(control, sel_registerName("setTarget:"), (id)nomen_click_target);
+			((void(*)(id, SEL, SEL))objc_msgSend)(control, sel_registerName("setAction:"), sel_registerName("clickAction:"));
+		}
+	}
+	```
+	```
+	#arch: c
+	#platform: macos
+	nomen_click_arm(handle);
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: macos
+	nomen_click_arm(handle);
+	```
+	```
+	#arch: c
+	#platform: ios
+	/* TODO: iOS (see #init) */
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: ios
+	/* TODO: iOS (see #init) */
+	```
+}
+
+// Drain a control's click record: true exactly once per click (the record
+// is consumed). Called by the button-family `was_clicked` polls.
+pub func nomen_control_take_click = (uint64 handle, out bool) {
+	```
+	#arch: c
+	#platform: macos
+	extern long nomen_click_take(unsigned long long);
+	return (long)nomen_click_take(handle);
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: macos
+	extern long nomen_click_take(unsigned long long);
+	return (long)nomen_click_take(handle);
+	```
+	```
+	#arch: c
+	#platform: ios
+	return 0;
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: ios
+	return 0;
+	```
+}
+
+// Arm a control's native selection action — the on_select plumbing for the
+// ACTION family (Select, Segmented, ComboBox: NSControls whose target/action
+// fires on a user-driven selection change). The DELEGATE family (Tabs,
+// ListView, Table, OutlineView) pushes into the same record from its
+// selection delegate instead. Called by those constructors; safe to call
+// again (re-sets target/action). A control carries ONE target/action, so a
+// control arms clicks OR selects, never both — the families are disjoint.
+pub func nomen_control_arm_selects = (uint64 handle) {
+	```
+	#arch: c
+	#platform: macos
+	#scope: file
+	// The shared selection record: the click ring's shape, fed by both
+	// families — the target's selectAction: (the sender's view pointer is
+	// the Nomen handle) and the delegate family's selection callbacks
+	// (nomen_select_push is EXTERNAL: Tabs/ListView/Table/OutlineView
+	// delegates in other files push into this ring).
+	static unsigned long long nomen_select_queue[64];
+	static int nomen_select_count = 0;
+	void nomen_select_push(unsigned long long h) {
+		if (nomen_select_count >= 64) return;
+		nomen_select_queue[nomen_select_count++] = h;
+	}
+	long nomen_select_take(unsigned long long h) {
+		for (int i = 0; i < nomen_select_count; i++) {
+			if (nomen_select_queue[i] == h) {
+				for (int j = i; j < nomen_select_count - 1; j++) {
+					nomen_select_queue[j] = nomen_select_queue[j + 1];
+				}
+				nomen_select_count--;
+				return 1;
+			}
+		}
+		return 0;
+	}
+	static void *nomen_select_target = 0;
+	static void nomen_select_action(id self, SEL cmd, id sender) {
+		(void)self; (void)cmd;
+		nomen_select_push((unsigned long long)(void *)sender);
+	}
+	static void nomen_select_arm(unsigned long long handle) {
+		Class Tc = objc_getClass("NomenSelectTarget");
+		if (!Tc) {
+			Tc = objc_allocateClassPair(objc_getClass("NSObject"), "NomenSelectTarget", 0);
+			if (Tc) {
+				class_addMethod(Tc, sel_registerName("selectAction:"), (IMP)nomen_select_action, "v@:@");
+				objc_registerClassPair(Tc);
+			}
+		}
+		if (!nomen_select_target && Tc) {
+			nomen_select_target = (void *)((id(*)(id, SEL))objc_msgSend)((id)Tc, sel_registerName("new"));
+		}
+		if (nomen_select_target) {
+			id control = (id)handle;
+			((void(*)(id, SEL, id))objc_msgSend)(control, sel_registerName("setTarget:"), (id)nomen_select_target);
+			((void(*)(id, SEL, SEL))objc_msgSend)(control, sel_registerName("setAction:"), sel_registerName("selectAction:"));
+		}
+	}
+	```
+	```
+	#arch: c
+	#platform: macos
+	nomen_select_arm(handle);
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: macos
+	#scope: file
+	static unsigned long long nomen_select_queue[64];
+	static int nomen_select_count = 0;
+	void nomen_select_push(unsigned long long h) {
+		if (nomen_select_count >= 64) return;
+		nomen_select_queue[nomen_select_count++] = h;
+	}
+	long nomen_select_take(unsigned long long h) {
+		for (int i = 0; i < nomen_select_count; i++) {
+			if (nomen_select_queue[i] == h) {
+				for (int j = i; j < nomen_select_count - 1; j++) {
+					nomen_select_queue[j] = nomen_select_queue[j + 1];
+				}
+				nomen_select_count--;
+				return 1;
+			}
+		}
+		return 0;
+	}
+	static void *nomen_select_target = 0;
+	static void nomen_select_action(id self, SEL cmd, id sender) {
+		(void)self; (void)cmd;
+		nomen_select_push((unsigned long long)(void *)sender);
+	}
+	static void nomen_select_arm(unsigned long long handle) {
+		Class Tc = objc_getClass("NomenSelectTarget");
+		if (!Tc) {
+			Tc = objc_allocateClassPair(objc_getClass("NSObject"), "NomenSelectTarget", 0);
+			if (Tc) {
+				class_addMethod(Tc, sel_registerName("selectAction:"), (IMP)nomen_select_action, "v@:@");
+				objc_registerClassPair(Tc);
+			}
+		}
+		if (!nomen_select_target && Tc) {
+			nomen_select_target = (void *)((id(*)(id, SEL))objc_msgSend)((id)Tc, sel_registerName("new"));
+		}
+		if (nomen_select_target) {
+			id control = (id)handle;
+			((void(*)(id, SEL, id))objc_msgSend)(control, sel_registerName("setTarget:"), (id)nomen_select_target);
+			((void(*)(id, SEL, SEL))objc_msgSend)(control, sel_registerName("setAction:"), sel_registerName("selectAction:"));
+		}
+	}
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: macos
+	nomen_select_arm(handle);
+	```
+	```
+	#arch: c
+	#platform: ios
+	/* TODO: iOS (see #init) */
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: ios
+	/* TODO: iOS (see #init) */
+	```
+}
+
+// Arm a text field's native commit action — the on_submit plumbing for the
+// single-line fields (TextBox, SecureField, SearchField). NSTextField
+// sends its target/action exactly on the USER commit (Return), so one
+// shared target serves every field: the field editor maps back to the
+// editing control (the on_focus mapping), and the action's sender IS the
+// field's handle. The record is the submit ring — the selection ring's
+// shape, one entry per committed field, consumed by the field's
+// take_submit drain. Called by those constructors; safe to call again.
+pub func nomen_control_arm_submits = (uint64 handle) {
+	```
+	#arch: c
+	#platform: macos
+	#scope: file
+	// The shared submit record: the selection ring's shape. The commit is
+	// USER-driven only (the field's action; programmatic set_string_value
+	// stays silent).
+	static unsigned long long nomen_submit_queue[64];
+	static int nomen_submit_count = 0;
+	void nomen_submit_push(unsigned long long h) {
+		if (nomen_submit_count >= 64) return;
+		nomen_submit_queue[nomen_submit_count++] = h;
+	}
+	long nomen_submit_take(unsigned long long h) {
+		for (int i = 0; i < nomen_submit_count; i++) {
+			if (nomen_submit_queue[i] == h) {
+				for (int j = i; j < nomen_submit_count - 1; j++) {
+					nomen_submit_queue[j] = nomen_submit_queue[j + 1];
+				}
+				nomen_submit_count--;
+				return 1;
+			}
+		}
+		return 0;
+	}
+	static void *nomen_submit_target = 0;
+	static void nomen_submit_action(id self, SEL cmd, id sender) {
+		(void)self; (void)cmd;
+		nomen_submit_push((unsigned long long)(void *)sender);
+	}
+	static void nomen_submit_arm(unsigned long long handle) {
+		Class Tc = objc_getClass("NomenSubmitTarget");
+		if (!Tc) {
+			Tc = objc_allocateClassPair(objc_getClass("NSObject"), "NomenSubmitTarget", 0);
+			if (Tc) {
+				class_addMethod(Tc, sel_registerName("submitAction:"), (IMP)nomen_submit_action, "v@:@");
+				objc_registerClassPair(Tc);
+			}
+		}
+		if (!nomen_submit_target && Tc) {
+			nomen_submit_target = (void *)((id(*)(id, SEL))objc_msgSend)((id)Tc, sel_registerName("new"));
+		}
+		if (nomen_submit_target) {
+			id control = (id)handle;
+			((void(*)(id, SEL, id))objc_msgSend)(control, sel_registerName("setTarget:"), (id)nomen_submit_target);
+			((void(*)(id, SEL, SEL))objc_msgSend)(control, sel_registerName("setAction:"), sel_registerName("submitAction:"));
+		}
+	}
+	```
+	```
+	#arch: c
+	#platform: macos
+	nomen_submit_arm(handle);
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: macos
+	#scope: file
+	static unsigned long long nomen_submit_queue[64];
+	static int nomen_submit_count = 0;
+	void nomen_submit_push(unsigned long long h) {
+		if (nomen_submit_count >= 64) return;
+		nomen_submit_queue[nomen_submit_count++] = h;
+	}
+	long nomen_submit_take(unsigned long long h) {
+		for (int i = 0; i < nomen_submit_count; i++) {
+			if (nomen_submit_queue[i] == h) {
+				for (int j = i; j < nomen_submit_count - 1; j++) {
+					nomen_submit_queue[j] = nomen_submit_queue[j + 1];
+				}
+				nomen_submit_count--;
+				return 1;
+			}
+		}
+		return 0;
+	}
+	static void *nomen_submit_target = 0;
+	static void nomen_submit_action(id self, SEL cmd, id sender) {
+		(void)self; (void)cmd;
+		nomen_submit_push((unsigned long long)(void *)sender);
+	}
+	static void nomen_submit_arm(unsigned long long handle) {
+		Class Tc = objc_getClass("NomenSubmitTarget");
+		if (!Tc) {
+			Tc = objc_allocateClassPair(objc_getClass("NSObject"), "NomenSubmitTarget", 0);
+			if (Tc) {
+				class_addMethod(Tc, sel_registerName("submitAction:"), (IMP)nomen_submit_action, "v@:@");
+				objc_registerClassPair(Tc);
+			}
+		}
+		if (!nomen_submit_target && Tc) {
+			nomen_submit_target = (void *)((id(*)(id, SEL))objc_msgSend)((id)Tc, sel_registerName("new"));
+		}
+		if (nomen_submit_target) {
+			id control = (id)handle;
+			((void(*)(id, SEL, id))objc_msgSend)(control, sel_registerName("setTarget:"), (id)nomen_submit_target);
+			((void(*)(id, SEL, SEL))objc_msgSend)(control, sel_registerName("setAction:"), sel_registerName("submitAction:"));
+		}
+	}
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: macos
+	nomen_submit_arm(handle);
+	```
+	```
+	#arch: c
+	#platform: ios
+	/* TODO: iOS (see #init) */
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: ios
+	/* TODO: iOS (see #init) */
+	```
+}
+
+// Drain a control's selection record: true exactly once per selection
+// change (the record is consumed). Called by the selection-family
+// `take_select` drains — the on_select desugar's arm primitive. The
+// payload is NOT stashed here: the handler body reads it through the
+// control's own selected_index() / selected_row().
+pub func nomen_control_take_select = (uint64 handle, out bool) {
+	```
+	#arch: c
+	#platform: macos
+	extern long nomen_select_take(unsigned long long);
+	return (long)nomen_select_take(handle);
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: macos
+	extern long nomen_select_take(unsigned long long);
+	return (long)nomen_select_take(handle);
+	```
+	```
+	#arch: c
+	#platform: ios
+	return 0;
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: ios
+	return 0;
+	```
+}