@f1studio/form-spec 5.0.0-alpha.165 → 5.0.0-alpha.167

package/src/FormSpec.FS/Interop/Facade/FormItemLookup.ts

@@ -0,0 +1,179 @@
+import { class_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
+import { isNullOrWhiteSpace } from "@fable-org/fable-library-js/String.js";
+import { equals } from "@fable-org/fable-library-js/Util.js";
+import { filter, tryLast, FSharpList, map, toArray } from "@fable-org/fable-library-js/List.js";
+import { Spec_VendorScoreBand, Spec_FormSpec$1, Spec_VendorScore, Spec_FormField$1, Spec_FieldType_$union, Shared_FieldOption } from "../../FormSpec.js";
+import { bind, value, Option, map as map_1 } from "@fable-org/fable-library-js/Option.js";
+import { int32 } from "@fable-org/fable-library-js/Int32.js";
+
+export type ItemKindAuthority = 
+    | "site"
+    | "conduit"
+    | "nobody"
+
+export class ItemKindInfoTS {
+    readonly "label@65": string;
+    readonly "isResolved@65": boolean;
+    readonly "control@65": string;
+    readonly "authority@65": ItemKindAuthority;
+    constructor(control: string, label: string, authority: ItemKindAuthority, isResolved: boolean) {
+        this["control@65"] = control;
+        this["label@65"] = label;
+        this["authority@65"] = authority;
+        this["isResolved@65"] = isResolved;
+    }
+}
+
+export function ItemKindInfoTS_$reflection(): TypeInfo {
+    return class_type("F1.Studio.FormItemLookup.ItemKindInfoTS", undefined, ItemKindInfoTS);
+}
+
+export function ItemKindInfoTS_$ctor_Z4A082755(control: string, label: string, authority: ItemKindAuthority, isResolved: boolean): ItemKindInfoTS {
+    return new ItemKindInfoTS(control, label, authority, isResolved);
+}
+
+/**
+ * The control the vendor renders.
+ */
+export function ItemKindInfoTS__get_control(_: ItemKindInfoTS): string {
+    return _["control@65"];
+}
+
+/**
+ * The source's own words for it, or conduit's where the release states none.
+ */
+export function ItemKindInfoTS__get_label(_: ItemKindInfoTS): string {
+    return _["label@65"];
+}
+
+/**
+ * ⭐ WHOSE WORD THIS IS.
+ */
+export function ItemKindInfoTS__get_authority(_: ItemKindInfoTS): ItemKindAuthority {
+    return _["authority@65"];
+}
+
+/**
+ * ⛔ `false` when nothing states this kind. The item still exists and still has answers — what
+ * is missing is a MEANING, and a screen must say so rather than paint a plausible default.
+ */
+export function ItemKindInfoTS__get_isResolved(_: ItemKindInfoTS): boolean {
+    return _["isResolved@65"];
+}
+
+export class StatedOptionTS {
+    readonly "text@81": string;
+    readonly "optionKey@81": string;
+    constructor(optionKey: string, text: string) {
+        this["optionKey@81"] = optionKey;
+        this["text@81"] = text;
+    }
+}
+
+export function StatedOptionTS_$reflection(): TypeInfo {
+    return class_type("F1.Studio.FormItemLookup.StatedOptionTS", undefined, StatedOptionTS);
+}
+
+export function StatedOptionTS_$ctor_Z384F8060(optionKey: string, text: string): StatedOptionTS {
+    return new StatedOptionTS(optionKey, text);
+}
+
+export function StatedOptionTS__get_optionKey(_: StatedOptionTS): string {
+    return _["optionKey@81"];
+}
+
+export function StatedOptionTS__get_text(_: StatedOptionTS): string {
+    return _["text@81"];
+}
+
+/**
+ * What kind is this item, and whose word is that?
+ * 
+ * ⭐ THE REPLACEMENT FOR `getFieldCoreMRAnchor` + `getBitmaskChoiceAnalysis` in a diagnostics
+ * panel: it answers "what is this field, and can we trust the answer" without naming an
+ * encoding, a bit or a vendor integer.
+ * 
+ * ⛔ An unresolved kind is NAMED (`isResolved = false`), never defaulted. Conduit spells an
+ * unstated kind `unresolved_<code>`; this reads that and says so rather than passing it on as
+ * if it were a control.
+ */
+export function Lookup_getItemKindInfo(control: string, label: string, statedBy: string): ItemKindInfoTS {
+    const authority: ItemKindAuthority = (statedBy === "site") ? "site" : ((statedBy === "conduit") ? "conduit" : "nobody");
+    return ItemKindInfoTS_$ctor_Z4A082755(control, label, authority, (!isNullOrWhiteSpace(control) && !control.startsWith("unresolved_")) && !equals(authority, "nobody"));
+}
+
+/**
+ * The options a field states, as identity + the site's own text.
+ * 
+ * ⭐ THE REPLACEMENT FOR `getFieldBitmaskChoiceTable`. That helper's table had `score` and
+ * `bitPosition` columns; neither is a fact about the option, both are CoreMR's encoding of it.
+ * ⛔ Whether one or several may be chosen is NOT answered here: it is a property of the item's
+ * own stated options, resolved in conduit, and a TypeScript panel has no business re-deciding it.
+ */
+export function Lookup_getStatedOptions(field: Spec_FormField$1<Spec_FieldType_$union>): StatedOptionTS[] {
+    const ofOptions = (options: FSharpList<Shared_FieldOption>): StatedOptionTS[] => toArray<StatedOptionTS>(map<Shared_FieldOption, StatedOptionTS>((o: Shared_FieldOption): StatedOptionTS => StatedOptionTS_$ctor_Z384F8060(o.OptionKey.fields[0], o.Description), options));
+    const matchValue: Spec_FieldType_$union = field.FieldType;
+    switch (matchValue.tag) {
+        case /* Radio */ 12:
+            return ofOptions(matchValue.fields[0].Options);
+        case /* Dropdown */ 14:
+            return ofOptions(matchValue.fields[0].Options);
+        case /* CheckboxList */ 16:
+            return ofOptions(matchValue.fields[0].Options);
+        default:
+            return [];
+    }
+}
+
+/**
+ * Does this field offer options at all?
+ * 
+ * ⭐ STRUCTURAL, per field — never per item type. Measured at St Johns: 21 items of type 20
+ * state no options while 73 of 132 type-140 items DO, so any type-level answer is wrong for
+ * every one of them (conduit `audit/260923-1655`).
+ */
+export function Lookup_fieldStatesOptions(field: Spec_FormField$1<Spec_FieldType_$union>): boolean {
+    return Lookup_getStatedOptions(field).length > 0;
+}
+
+/**
+ * The scale a SOURCE stated for this form, if it stated one.
+ * 
+ * ⛔ `Score` is NOT consulted: that is the f1 designer's authored scale, a different fact with a
+ * different author. ⚠️ And there is no maximum here because nothing states one — CoreMR's
+ * `form_scores` is `id · name · form_name · labels · deleted`.
+ */
+export function Lookup_getVendorScaleName(formSpec: Spec_FormSpec$1<Spec_FieldType_$union>): Option<string> {
+    return map_1<Spec_VendorScore, string>((v: Spec_VendorScore): string => v.ScaleName, formSpec.VendorScore);
+}
+
+/**
+ * The bands a source stated, lowest first, as `[label, minimum]` pairs.
+ * 
+ * ⭐ A band runs from its own minimum to the NEXT band's, and the last is unbounded — which is
+ * why no maximum is carried. Deriving the upper edge at the paint is correct; storing it is how
+ * bands acquire gaps and overlaps nobody stated.
+ */
+export function Lookup_getVendorScaleBands(formSpec: Spec_FormSpec$1<Spec_FieldType_$union>): [string, int32][] {
+    const matchValue: Option<Spec_VendorScore> = formSpec.VendorScore;
+    if (matchValue != null) {
+        return toArray<[string, int32]>(map<Spec_VendorScoreBand, [string, int32]>((b: Spec_VendorScoreBand): [string, int32] => ([b.Label, b.Min] as [string, int32]), value(matchValue).Bands));
+    }
+    else {
+        return [];
+    }
+}
+
+/**
+ * Which stated band a total falls in, or `None` when no source stated a scale.
+ * 
+ * ⛔ REFUSES to guess. If the form carries no stated scale there is no band, and a screen must
+ * show that rather than invent one. This function existing in F# is the whole point: until
+ * 2026-09-23 an importer invented Low/Medium/High at thirds and a CoreMR "Severe" rendered as
+ * "Low Risk" on five published instruments.
+ */
+export function Lookup_getVendorScaleBandFor(formSpec: Spec_FormSpec$1<Spec_FieldType_$union>, total: int32): Option<string> {
+    return map_1<Spec_VendorScoreBand, string>((b_1: Spec_VendorScoreBand): string => b_1.Label, bind<Spec_VendorScore, Spec_VendorScoreBand>((v: Spec_VendorScore): Option<Spec_VendorScoreBand> => tryLast<Spec_VendorScoreBand>(filter<Spec_VendorScoreBand>((b: Spec_VendorScoreBand): boolean => (total >= b.Min), v.Bands)), formSpec.VendorScore));
+}
+
+//# sourceMappingURL=FormItemLookup.ts.map