@forthix/forthic 0.11.0 → 0.13.0

package/dist/esm/forthic/modules/standard/record_module.js

@@ -12,7 +12,13 @@ Record (object/dictionary) manipulation operations for working with key-value da
 
 ## Categories
 - Core: REC, REC@, |REC@, <REC!
-- Transform: RELABEL, INVERT-KEYS, REC-DEFAULTS, <DEL
+- Path access (jq-style): JQ@, JQ!, JQ-DEL
+- Construct: ENTRIES>REC
+- Disassemble: REC>ENTRIES
+- Combine: MERGE
+- Subset: PICK, OMIT
+- Predicate: HAS-KEY?
+- Transform: DELETE
 - Access: KEYS, VALUES
 `);
     }
@@ -36,24 +42,34 @@ Record (object/dictionary) manipulation operations for working with key-value da
         }
         return result === undefined ? null : result;
     }
-    async REC(key_vals) {
-        let _key_vals = key_vals;
-        if (!_key_vals)
-            _key_vals = [];
+    /**
+     * Build a record from an array of [key, value] pairs.
+     * Each pair must be an array of exactly 2 elements; otherwise a descriptive
+     * error is thrown that identifies the offending pair.
+     * @param key_vals - Array of [key, value] pairs (null/undefined treated as empty)
+     * @param wordName - Name of the calling word, used in error messages
+     */
+    static build_record(key_vals, wordName) {
+        const _key_vals = key_vals || [];
         const result = {};
-        _key_vals.forEach((pair) => {
-            let key = null;
-            let val = null;
-            if (pair) {
-                if (pair.length >= 1)
-                    key = pair[0];
-                if (pair.length >= 2)
-                    val = pair[1];
+        _key_vals.forEach((pair, index) => {
+            if (!Array.isArray(pair)) {
+                throw new Error(`${wordName} requires each pair to be a [key, value] array with exactly 2 elements; ` +
+                    `pair at index ${index} is not an array (got ${typeof pair}).`);
+            }
+            if (pair.length !== 2) {
+                const key = pair.length >= 1 ? JSON.stringify(pair[0]) : "(none)";
+                throw new Error(`${wordName} requires each pair to be a [key, value] array with exactly 2 elements; ` +
+                    `pair at index ${index} has ${pair.length} element(s) (key: ${key}).`);
             }
+            const [key, val] = pair;
             result[key] = val;
         });
         return result;
     }
+    async REC(key_vals) {
+        return RecordModule.build_record(key_vals, "REC");
+    }
     async REC_at(rec, field) {
         if (!rec)
             return null;
@@ -95,53 +111,262 @@ Record (object/dictionary) manipulation operations for working with key-value da
         cur_rec[fields[fields.length - 1]] = value;
         return _rec;
     }
-    async RELABEL(container, old_keys, new_keys) {
-        if (!container)
+    // ========================================
+    // JQ-style path access
+    // ========================================
+    static parse_jq_path(path) {
+        if (Array.isArray(path)) {
+            return path.map((p) => {
+                if (typeof p === "number")
+                    return { kind: "index", n: p };
+                return { kind: "field", name: String(p) };
+            });
+        }
+        let s = String(path ?? "");
+        if (s === "" || s === ".")
+            return [];
+        if (s.startsWith("."))
+            s = s.slice(1);
+        const segments = [];
+        let i = 0;
+        while (i < s.length) {
+            const ch = s[i];
+            if (ch === ".") {
+                i++;
+                continue;
+            }
+            if (ch === "[") {
+                i++;
+                if (i >= s.length) {
+                    throw new Error(`JQ path: unclosed '[' in "${path}"`);
+                }
+                if (s[i] === "]") {
+                    segments.push({ kind: "iterate" });
+                    i++;
+                }
+                else if (s[i] === '"' || s[i] === "'") {
+                    const quote = s[i];
+                    i++;
+                    let name = "";
+                    while (i < s.length && s[i] !== quote) {
+                        name += s[i];
+                        i++;
+                    }
+                    if (i >= s.length) {
+                        throw new Error(`JQ path: unclosed quote in "${path}"`);
+                    }
+                    i++;
+                    if (s[i] !== "]") {
+                        throw new Error(`JQ path: expected ']' after quoted key in "${path}"`);
+                    }
+                    i++;
+                    segments.push({ kind: "field", name });
+                }
+                else {
+                    let num = "";
+                    while (i < s.length && s[i] !== "]") {
+                        num += s[i];
+                        i++;
+                    }
+                    if (i >= s.length) {
+                        throw new Error(`JQ path: unclosed '[' in "${path}"`);
+                    }
+                    i++;
+                    const n = parseInt(num, 10);
+                    if (isNaN(n)) {
+                        throw new Error(`JQ path: invalid index "${num}" in "${path}"`);
+                    }
+                    segments.push({ kind: "index", n });
+                }
+            }
+            else {
+                let name = "";
+                while (i < s.length && s[i] !== "." && s[i] !== "[") {
+                    name += s[i];
+                    i++;
+                }
+                if (name)
+                    segments.push({ kind: "field", name });
+            }
+        }
+        return segments;
+    }
+    static jq_get(container, segments) {
+        if (segments.length === 0)
+            return container ?? null;
+        if (container == null)
+            return null;
+        const [first, ...rest] = segments;
+        if (first.kind === "iterate") {
+            let items;
+            if (Array.isArray(container)) {
+                items = container;
+            }
+            else if (typeof container === "object") {
+                items = Object.keys(container)
+                    .sort()
+                    .map((k) => container[k]);
+            }
+            else {
+                return [];
+            }
+            const rest_iterates = rest.some((s) => s.kind === "iterate");
+            const result = [];
+            for (const item of items) {
+                if (rest.length === 0) {
+                    result.push(item);
+                }
+                else {
+                    const r = RecordModule.jq_get(item, rest);
+                    if (rest_iterates && Array.isArray(r)) {
+                        result.push(...r);
+                    }
+                    else {
+                        result.push(r);
+                    }
+                }
+            }
+            return result;
+        }
+        if (first.kind === "field") {
+            const next = container[first.name];
+            return RecordModule.jq_get(next, rest);
+        }
+        // index
+        if (Array.isArray(container)) {
+            const n = first.n < 0 ? container.length + first.n : first.n;
+            if (n < 0 || n >= container.length)
+                return null;
+            return RecordModule.jq_get(container[n], rest);
+        }
+        if (typeof container === "object") {
+            const keys = Object.keys(container).sort();
+            const n = first.n < 0 ? keys.length + first.n : first.n;
+            if (n < 0 || n >= keys.length)
+                return null;
+            return RecordModule.jq_get(container[keys[n]], rest);
+        }
+        return null;
+    }
+    static seg_key(seg) {
+        if (seg.kind === "field")
+            return seg.name;
+        if (seg.kind === "index")
+            return seg.n;
+        throw new Error("JQ: [] iteration not supported here");
+    }
+    static jq_set(container, segments, value) {
+        let cur = container;
+        for (let i = 0; i < segments.length - 1; i++) {
+            const seg = segments[i];
+            const next = segments[i + 1];
+            const key = RecordModule.seg_key(seg);
+            let child = cur[key];
+            if (child == null || typeof child !== "object") {
+                child = next.kind === "index" ? [] : {};
+                cur[key] = child;
+            }
+            cur = child;
+        }
+        const last_key = RecordModule.seg_key(segments[segments.length - 1]);
+        cur[last_key] = value;
+        return container;
+    }
+    static jq_del(container, segments) {
+        let cur = container;
+        for (let i = 0; i < segments.length - 1; i++) {
+            const key = RecordModule.seg_key(segments[i]);
+            if (cur == null || typeof cur !== "object")
+                return container;
+            cur = cur[key];
+        }
+        if (cur == null || typeof cur !== "object")
             return container;
-        if (old_keys.length !== new_keys.length) {
-            throw new Error("RELABEL: old_keys and new_keys must be same length");
+        const last = segments[segments.length - 1];
+        if (last.kind === "field") {
+            delete cur[last.name];
         }
-        const new_to_old = {};
-        for (let i = 0; i < old_keys.length; i++) {
-            new_to_old[new_keys[i]] = old_keys[i];
+        else if (last.kind === "index") {
+            if (Array.isArray(cur)) {
+                const n = last.n < 0 ? cur.length + last.n : last.n;
+                if (n >= 0 && n < cur.length)
+                    cur.splice(n, 1);
+            }
+            else {
+                delete cur[last.n];
+            }
         }
-        let result;
-        if (container instanceof Array) {
-            result = [];
-            Object.keys(new_to_old)
-                .sort()
-                .forEach((k) => result.push(container[new_to_old[k]]));
+        return container;
+    }
+    async JQ_at(container, path) {
+        const segments = RecordModule.parse_jq_path(path);
+        return RecordModule.jq_get(container, segments);
+    }
+    async JQ_bang(container, value, path) {
+        const segments = RecordModule.parse_jq_path(path);
+        if (segments.some((s) => s.kind === "iterate")) {
+            throw new Error("JQ!: [] iteration not supported in set paths");
         }
-        else {
-            result = {};
-            Object.keys(new_to_old).forEach((k) => (result[k] = container[new_to_old[k]]));
+        if (segments.length === 0)
+            return value;
+        let _container = container;
+        if (_container == null || typeof _container !== "object") {
+            _container = segments[0].kind === "index" ? [] : {};
+        }
+        return RecordModule.jq_set(_container, segments, value);
+    }
+    async ["JQ-DEL"](container, path) {
+        const segments = RecordModule.parse_jq_path(path);
+        if (segments.some((s) => s.kind === "iterate")) {
+            throw new Error("JQ-DEL: [] iteration not supported in delete paths");
+        }
+        if (segments.length === 0 || container == null)
+            return container;
+        return RecordModule.jq_del(container, segments);
+    }
+    async ENTRIES_to_REC(pairs) {
+        return RecordModule.build_record(pairs, "ENTRIES>REC");
+    }
+    async REC_to_ENTRIES(rec) {
+        if (!rec || typeof rec !== "object" || Array.isArray(rec))
+            return [];
+        const keys = Object.keys(rec).sort();
+        return keys.map((k) => [k, rec[k]]);
+    }
+    async MERGE(rec1, rec2) {
+        const a = rec1 && typeof rec1 === "object" && !Array.isArray(rec1) ? rec1 : {};
+        const b = rec2 && typeof rec2 === "object" && !Array.isArray(rec2) ? rec2 : {};
+        return { ...a, ...b };
+    }
+    async PICK(rec, keys) {
+        if (!rec || typeof rec !== "object" || Array.isArray(rec))
+            return {};
+        const ks = Array.isArray(keys) ? keys : [];
+        const result = {};
+        for (const k of ks) {
+            if (Object.prototype.hasOwnProperty.call(rec, k)) {
+                result[k] = rec[k];
+            }
         }
         return result;
     }
-    async INVERT_KEYS(record) {
+    async OMIT(rec, keys) {
+        if (!rec || typeof rec !== "object" || Array.isArray(rec))
+            return {};
+        const drop = new Set(Array.isArray(keys) ? keys : []);
         const result = {};
-        Object.keys(record).forEach((first_key) => {
-            const sub_record = record[first_key];
-            Object.keys(sub_record).forEach((second_key) => {
-                const value = sub_record[second_key];
-                if (!result[second_key])
-                    result[second_key] = {};
-                result[second_key][first_key] = value;
-            });
-        });
+        for (const k of Object.keys(rec)) {
+            if (!drop.has(k))
+                result[k] = rec[k];
+        }
         return result;
     }
-    async REC_DEFAULTS(record, key_vals) {
-        key_vals.forEach((key_val) => {
-            const key = key_val[0];
-            const value = record[key];
-            if (value === undefined || value === null || value === "") {
-                record[key] = key_val[1];
-            }
-        });
-        return record;
+    async HAS_KEY(rec, key) {
+        if (!rec || typeof rec !== "object" || Array.isArray(rec))
+            return false;
+        return Object.prototype.hasOwnProperty.call(rec, key);
     }
-    async l_DEL(container, key) {
+    async DELETE(container, key) {
         if (!container)
             return container;
         if (container instanceof Array) {
@@ -196,17 +421,35 @@ __decorate([
     ForthicWord("( rec:any value:any field:any -- rec:any )", "Set value in record at field path", "<REC!")
 ], RecordModule.prototype, "l_REC_bang", null);
 __decorate([
-    ForthicWord("( container:any old_keys:any[] new_keys:any[] -- container:any )", "Rename record keys")
-], RecordModule.prototype, "RELABEL", null);
+    ForthicWord("( container:any path:any -- value:any )", "Get value at jq-style path (e.g., .users[].name). Returns null on miss; [] iterates and flattens. Path arrays accepted for dynamic keys.", "JQ@")
+], RecordModule.prototype, "JQ_at", null);
+__decorate([
+    ForthicWord("( container:any value:any path:any -- container:any )", "Set value at jq-style path. Auto-creates missing intermediates (record for field, array for index). [] iteration not supported.", "JQ!")
+], RecordModule.prototype, "JQ_bang", null);
+__decorate([
+    ForthicWord("( container:any path:any -- container:any )", "Delete value at jq-style path. No-op if path doesn't exist. [] iteration not supported.", "JQ-DEL")
+], RecordModule.prototype, "JQ-DEL", null);
+__decorate([
+    ForthicWord("( pairs:any[] -- rec:any )", "Build a record from an array of [key, value] pairs. Alias of REC, surfaced for symmetry with REC>ENTRIES.", "ENTRIES>REC")
+], RecordModule.prototype, "ENTRIES_to_REC", null);
+__decorate([
+    ForthicWord("( rec:any -- pairs:any[] )", "Convert a record to an array of [key, value] pairs (sorted by key for stability). Inverse of ENTRIES>REC / REC.", "REC>ENTRIES")
+], RecordModule.prototype, "REC_to_ENTRIES", null);
+__decorate([
+    ForthicWord("( rec1:any rec2:any -- merged:any )", "Shallow merge two records. Keys present in rec2 override rec1.", "MERGE")
+], RecordModule.prototype, "MERGE", null);
+__decorate([
+    ForthicWord("( rec:any keys:any[] -- rec:any )", "Return a new record containing only the listed keys (missing keys are skipped).", "PICK")
+], RecordModule.prototype, "PICK", null);
 __decorate([
-    ForthicWord("( record:any -- inverted:any )", "Invert two-level nested record structure", "INVERT-KEYS")
-], RecordModule.prototype, "INVERT_KEYS", null);
+    ForthicWord("( rec:any keys:any[] -- rec:any )", "Return a new record without the listed keys.", "OMIT")
+], RecordModule.prototype, "OMIT", null);
 __decorate([
-    ForthicWord("( record:any key_vals:any[] -- record:any )", "Set default values for missing/empty fields", "REC-DEFAULTS")
-], RecordModule.prototype, "REC_DEFAULTS", null);
+    ForthicWord("( rec:any key:any -- bool:boolean )", "Returns true if rec has the given key (own property). Distinct from REC@ NULL == — handles intentional null values correctly.", "HAS-KEY?")
+], RecordModule.prototype, "HAS_KEY", null);
 __decorate([
-    ForthicWord("( container:any key:any -- container:any )", "Delete key from record or index from array", "<DEL")
-], RecordModule.prototype, "l_DEL", null);
+    ForthicWord("( container:any key:any -- container:any )", "Delete key from record or index from array", "DELETE")
+], RecordModule.prototype, "DELETE", null);
 __decorate([
     ForthicWord("( container:any -- keys:any[] )", "Get keys from record or indices from array")
 ], RecordModule.prototype, "KEYS", null);

package/dist/esm/forthic/modules/standard/record_module.js.map

@@ -1 +1 @@
-{"version":3,"file":"record_module.js","sourceRoot":"","sources":["../../../../../src/forthic/modules/standard/record_module.ts"],"names":[],"mappings":";;;;;;AAAA,OAAO,EAAE,eAAe,EAAE,WAAW,EAAE,iBAAiB,EAAE,MAAM,0BAA0B,CAAC;AAE3F,MAAM,OAAO,YAAa,SAAQ,eAAe;IAC/C;QACE,iBAAiB,CAAC,YAAY,EAAE;;;;;;;CAOnC,CAAC,CAAC;IACD,CAAC;IAED,SAAS,CAAS;IAElB;QACE,KAAK,CAAC,QAAQ,CAAC,CAAC;QAChB,IAAI,CAAC,SAAS,GAAG,QAAQ,CAAC;IAC5B,CAAC;IAED;;;;;OAKG;IACK,MAAM,CAAC,eAAe,CAAC,MAAW,EAAE,MAAgB;QAC1D,IAAI,MAAM,GAAG,MAAM,CAAC;QACpB,KAAK,MAAM,KAAK,IAAI,MAAM,EAAE,CAAC;YAC3B,IAAI,MAAM,IAAI,IAAI;gBAAE,OAAO,IAAI,CAAC;YAChC,MAAM,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC;QACzB,CAAC;QACD,OAAO,MAAM,KAAK,SAAS,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,MAAM,CAAC;IAC9C,CAAC;IAIK,AAAN,KAAK,CAAC,GAAG,CAAC,QAAe;QACvB,IAAI,SAAS,GAAG,QAAQ,CAAC;QACzB,IAAI,CAAC,SAAS;YAAE,SAAS,GAAG,EAAE,CAAC;QAE/B,MAAM,MAAM,GAAQ,EAAE,CAAC;QACvB,SAAS,CAAC,OAAO,CAAC,CAAC,IAAI,EAAE,EAAE;YACzB,IAAI,GAAG,GAAG,IAAI,CAAC;YACf,IAAI,GAAG,GAAG,IAAI,CAAC;YACf,IAAI,IAAI,EAAE,CAAC;gBACT,IAAI,IAAI,CAAC,MAAM,IAAI,CAAC;oBAAE,GAAG,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;gBACpC,IAAI,IAAI,CAAC,MAAM,IAAI,CAAC;oBAAE,GAAG,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;YACtC,CAAC;YACD,MAAM,CAAC,GAAG,CAAC,GAAG,GAAG,CAAC;QACpB,CAAC,CAAC,CAAC;QAEH,OAAO,MAAM,CAAC;IAChB,CAAC;IAGK,AAAN,KAAK,CAAC,MAAM,CAAC,GAAQ,EAAE,KAAU;QAC/B,IAAI,CAAC,GAAG;YAAE,OAAO,IAAI,CAAC;QAEtB,IAAI,MAAM,GAAG,CAAC,KAAK,CAAC,CAAC;QACrB,IAAI,KAAK,YAAY,KAAK;YAAE,MAAM,GAAG,KAAK,CAAC;QAE3C,MAAM,MAAM,GAAG,YAAY,CAAC,eAAe,CAAC,GAAG,EAAE,MAAM,CAAC,CAAC;QACzD,OAAO,MAAM,CAAC;IAChB,CAAC;IAGK,AAAN,KAAK,CAAC,WAAW,CAAC,OAAY,EAAE,KAAU;QACxC,sDAAsD;QACtD,IAAI,CAAC,MAAM,CAAC,UAAU,CAAC,OAAO,CAAC,CAAC;QAChC,MAAM,IAAI,CAAC,MAAM,CAAC,GAAG,CAAC,IAAI,IAAI,CAAC,SAAS,CAAC,KAAK,CAAC,YAAY,CAAC,CAAC;QAC7D,OAAO,SAAS,CAAC,CAAC,mCAAmC;IACvD,CAAC;IAGK,AAAN,KAAK,CAAC,UAAU,CAAC,GAAQ,EAAE,KAAU,EAAE,KAAU;QAC/C,IAAI,IAAI,GAAG,GAAG,CAAC;QACf,IAAI,CAAC,IAAI;YAAE,IAAI,GAAG,EAAE,CAAC;QAErB,IAAI,MAAM,GAAa,EAAE,CAAC;QAC1B,IAAI,KAAK,YAAY,KAAK;YAAE,MAAM,GAAG,KAAK,CAAC;;YACtC,MAAM,GAAG,CAAC,KAAK,CAAC,CAAC;QAEtB,SAAS,YAAY,CAAC,GAAQ,EAAE,KAAa;YAC3C,IAAI,GAAG,GAAG,GAAG,CAAC,KAAK,CAAC,CAAC;YACrB,IAAI,GAAG,KAAK,SAAS,EAAE,CAAC;gBACtB,GAAG,GAAG,EAAE,CAAC;gBACT,GAAG,CAAC,KAAK,CAAC,GAAG,GAAG,CAAC;YACnB,CAAC;YACD,OAAO,GAAG,CAAC;QACb,CAAC;QAED,IAAI,OAAO,GAAG,IAAI,CAAC;QACnB,qCAAqC;QACrC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YAC3C,OAAO,GAAG,YAAY,CAAC,OAAO,EAAE,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC;QAC7C,CAAC;QAED,8CAA8C;QAC9C,OAAO,CAAC,MAAM,CAAC,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC;QAE3C,OAAO,IAAI,CAAC;IACd,CAAC;IAIK,AAAN,KAAK,CAAC,OAAO,CAAC,SAAc,EAAE,QAAe,EAAE,QAAe;QAC5D,IAAI,CAAC,SAAS;YAAE,OAAO,SAAS,CAAC;QAEjC,IAAI,QAAQ,CAAC,MAAM,KAAK,QAAQ,CAAC,MAAM,EAAE,CAAC;YACxC,MAAM,IAAI,KAAK,CAAC,oDAAoD,CAAC,CAAC;QACxE,CAAC;QAED,MAAM,UAAU,GAAQ,EAAE,CAAC;QAC3B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,QAAQ,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;YACzC,UAAU,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,GAAG,QAAQ,CAAC,CAAC,CAAC,CAAC;QACxC,CAAC;QAED,IAAI,MAAW,CAAC;QAChB,IAAI,SAAS,YAAY,KAAK,EAAE,CAAC;YAC/B,MAAM,GAAG,EAAE,CAAC;YACZ,MAAM,CAAC,IAAI,CAAC,UAAU,CAAC;iBACpB,IAAI,EAAE;iBACN,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,SAAS,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QAC3D,CAAC;aAAM,CAAC;YACN,MAAM,GAAG,EAAE,CAAC;YACZ,MAAM,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,GAAG,SAAS,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACjF,CAAC;QAED,OAAO,MAAM,CAAC;IAChB,CAAC;IAGK,AAAN,KAAK,CAAC,WAAW,CAAC,MAAW;QAC3B,MAAM,MAAM,GAAQ,EAAE,CAAC;QACvB,MAAM,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,OAAO,CAAC,CAAC,SAAS,EAAE,EAAE;YACxC,MAAM,UAAU,GAAG,MAAM,CAAC,SAAS,CAAC,CAAC;YACrC,MAAM,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC,OAAO,CAAC,CAAC,UAAU,EAAE,EAAE;gBAC7C,MAAM,KAAK,GAAG,UAAU,CAAC,UAAU,CAAC,CAAC;gBACrC,IAAI,CAAC,MAAM,CAAC,UAAU,CAAC;oBAAE,MAAM,CAAC,UAAU,CAAC,GAAG,EAAE,CAAC;gBACjD,MAAM,CAAC,UAAU,CAAC,CAAC,SAAS,CAAC,GAAG,KAAK,CAAC;YACxC,CAAC,CAAC,CAAC;QACL,CAAC,CAAC,CAAC;QAEH,OAAO,MAAM,CAAC;IAChB,CAAC;IAGK,AAAN,KAAK,CAAC,YAAY,CAAC,MAAW,EAAE,QAAe;QAC7C,QAAQ,CAAC,OAAO,CAAC,CAAC,OAAO,EAAE,EAAE;YAC3B,MAAM,GAAG,GAAG,OAAO,CAAC,CAAC,CAAC,CAAC;YACvB,MAAM,KAAK,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC;YAC1B,IAAI,KAAK,KAAK,SAAS,IAAI,KAAK,KAAK,IAAI,IAAI,KAAK,KAAK,EAAE,EAAE,CAAC;gBAC1D,MAAM,CAAC,GAAG,CAAC,GAAG,OAAO,CAAC,CAAC,CAAC,CAAC;YAC3B,CAAC;QACH,CAAC,CAAC,CAAC;QAEH,OAAO,MAAM,CAAC;IAChB,CAAC;IAGK,AAAN,KAAK,CAAC,KAAK,CAAC,SAAc,EAAE,GAAQ;QAClC,IAAI,CAAC,SAAS;YAAE,OAAO,SAAS,CAAC;QAEjC,IAAI,SAAS,YAAY,KAAK,EAAE,CAAC;YAC/B,SAAS,CAAC,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC;QAC3B,CAAC;aAAM,CAAC;YACN,OAAO,SAAS,CAAC,GAAG,CAAC,CAAC;QACxB,CAAC;QAED,OAAO,SAAS,CAAC;IACnB,CAAC;IAIK,AAAN,KAAK,CAAC,IAAI,CAAC,SAAc;QACvB,IAAI,UAAU,GAAG,SAAS,CAAC;QAC3B,IAAI,CAAC,UAAU;YAAE,UAAU,GAAG,EAAE,CAAC;QAEjC,IAAI,MAAW,CAAC;QAChB,IAAI,UAAU,YAAY,KAAK,EAAE,CAAC;YAChC,MAAM,GAAG,EAAE,CAAC;YACZ,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,UAAU,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;gBAC3C,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;YACjB,CAAC;QACH,CAAC;aAAM,CAAC;YACN,MAAM,GAAG,MAAM,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC;QACnC,CAAC;QAED,OAAO,MAAM,CAAC;IAChB,CAAC;IAGK,AAAN,KAAK,CAAC,MAAM,CAAC,SAAc;QACzB,IAAI,UAAU,GAAG,SAAS,CAAC;QAC3B,IAAI,CAAC,UAAU;YAAE,UAAU,GAAG,EAAE,CAAC;QAEjC,IAAI,MAAW,CAAC;QAChB,IAAI,UAAU,YAAY,KAAK,EAAE,CAAC;YAChC,MAAM,GAAG,UAAU,CAAC;QACtB,CAAC;aAAM,CAAC;YACN,MAAM,GAAG,EAAE,CAAC;YACZ,MAAM,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACrE,CAAC;QAED,OAAO,MAAM,CAAC;IAChB,CAAC;CACF;AA1KO;IADL,WAAW,CAAC,+BAA+B,EAAE,4CAA4C,CAAC;uCAiB1F;AAGK;IADL,WAAW,CAAC,oCAAoC,EAAE,mDAAmD,EAAE,MAAM,CAAC;0CAS9G;AAGK;IADL,WAAW,CAAC,yCAAyC,EAAE,gCAAgC,EAAE,OAAO,CAAC;+CAMjG;AAGK;IADL,WAAW,CAAC,4CAA4C,EAAE,mCAAmC,EAAE,OAAO,CAAC;8CA4BvG;AAIK;IADL,WAAW,CAAC,kEAAkE,EAAE,oBAAoB,CAAC;2CAyBrG;AAGK;IADL,WAAW,CAAC,gCAAgC,EAAE,0CAA0C,EAAE,aAAa,CAAC;+CAaxG;AAGK;IADL,WAAW,CAAC,6CAA6C,EAAE,6CAA6C,EAAE,cAAc,CAAC;gDAWzH;AAGK;IADL,WAAW,CAAC,4CAA4C,EAAE,4CAA4C,EAAE,MAAM,CAAC;yCAW/G;AAIK;IADL,WAAW,CAAC,iCAAiC,EAAE,4CAA4C,CAAC;wCAgB5F;AAGK;IADL,WAAW,CAAC,mCAAmC,EAAE,+CAA+C,CAAC;0CAcjG"}
+{"version":3,"file":"record_module.js","sourceRoot":"","sources":["../../../../../src/forthic/modules/standard/record_module.ts"],"names":[],"mappings":";;;;;;AAAA,OAAO,EAAE,eAAe,EAAE,WAAW,EAAE,iBAAiB,EAAE,MAAM,0BAA0B,CAAC;AAO3F,MAAM,OAAO,YAAa,SAAQ,eAAe;IAC/C;QACE,iBAAiB,CAAC,YAAY,EAAE;;;;;;;;;;;;;CAanC,CAAC,CAAC;IACD,CAAC;IAED,SAAS,CAAS;IAElB;QACE,KAAK,CAAC,QAAQ,CAAC,CAAC;QAChB,IAAI,CAAC,SAAS,GAAG,QAAQ,CAAC;IAC5B,CAAC;IAED;;;;;OAKG;IACK,MAAM,CAAC,eAAe,CAAC,MAAW,EAAE,MAAgB;QAC1D,IAAI,MAAM,GAAG,MAAM,CAAC;QACpB,KAAK,MAAM,KAAK,IAAI,MAAM,EAAE,CAAC;YAC3B,IAAI,MAAM,IAAI,IAAI;gBAAE,OAAO,IAAI,CAAC;YAChC,MAAM,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC;QACzB,CAAC;QACD,OAAO,MAAM,KAAK,SAAS,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,MAAM,CAAC;IAC9C,CAAC;IAGD;;;;;;OAMG;IACK,MAAM,CAAC,YAAY,CAAC,QAAe,EAAE,QAAgB;QAC3D,MAAM,SAAS,GAAG,QAAQ,IAAI,EAAE,CAAC;QAEjC,MAAM,MAAM,GAAQ,EAAE,CAAC;QACvB,SAAS,CAAC,OAAO,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,EAAE;YAChC,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,EAAE,CAAC;gBACzB,MAAM,IAAI,KAAK,CACb,GAAG,QAAQ,0EAA0E;oBACnF,iBAAiB,KAAK,yBAAyB,OAAO,IAAI,IAAI,CACjE,CAAC;YACJ,CAAC;YACD,IAAI,IAAI,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;gBACtB,MAAM,GAAG,GAAG,IAAI,CAAC,MAAM,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,SAAS,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC;gBAClE,MAAM,IAAI,KAAK,CACb,GAAG,QAAQ,0EAA0E;oBACnF,iBAAiB,KAAK,QAAQ,IAAI,CAAC,MAAM,qBAAqB,GAAG,IAAI,CACxE,CAAC;YACJ,CAAC;YACD,MAAM,CAAC,GAAG,EAAE,GAAG,CAAC,GAAG,IAAI,CAAC;YACxB,MAAM,CAAC,GAAG,CAAC,GAAG,GAAG,CAAC;QACpB,CAAC,CAAC,CAAC;QAEH,OAAO,MAAM,CAAC;IAChB,CAAC;IAIK,AAAN,KAAK,CAAC,GAAG,CAAC,QAAe;QACvB,OAAO,YAAY,CAAC,YAAY,CAAC,QAAQ,EAAE,KAAK,CAAC,CAAC;IACpD,CAAC;IAGK,AAAN,KAAK,CAAC,MAAM,CAAC,GAAQ,EAAE,KAAU;QAC/B,IAAI,CAAC,GAAG;YAAE,OAAO,IAAI,CAAC;QAEtB,IAAI,MAAM,GAAG,CAAC,KAAK,CAAC,CAAC;QACrB,IAAI,KAAK,YAAY,KAAK;YAAE,MAAM,GAAG,KAAK,CAAC;QAE3C,MAAM,MAAM,GAAG,YAAY,CAAC,eAAe,CAAC,GAAG,EAAE,MAAM,CAAC,CAAC;QACzD,OAAO,MAAM,CAAC;IAChB,CAAC;IAGK,AAAN,KAAK,CAAC,WAAW,CAAC,OAAY,EAAE,KAAU;QACxC,sDAAsD;QACtD,IAAI,CAAC,MAAM,CAAC,UAAU,CAAC,OAAO,CAAC,CAAC;QAChC,MAAM,IAAI,CAAC,MAAM,CAAC,GAAG,CAAC,IAAI,IAAI,CAAC,SAAS,CAAC,KAAK,CAAC,YAAY,CAAC,CAAC;QAC7D,OAAO,SAAS,CAAC,CAAC,mCAAmC;IACvD,CAAC;IAGK,AAAN,KAAK,CAAC,UAAU,CAAC,GAAQ,EAAE,KAAU,EAAE,KAAU;QAC/C,IAAI,IAAI,GAAG,GAAG,CAAC;QACf,IAAI,CAAC,IAAI;YAAE,IAAI,GAAG,EAAE,CAAC;QAErB,IAAI,MAAM,GAAa,EAAE,CAAC;QAC1B,IAAI,KAAK,YAAY,KAAK;YAAE,MAAM,GAAG,KAAK,CAAC;;YACtC,MAAM,GAAG,CAAC,KAAK,CAAC,CAAC;QAEtB,SAAS,YAAY,CAAC,GAAQ,EAAE,KAAa;YAC3C,IAAI,GAAG,GAAG,GAAG,CAAC,KAAK,CAAC,CAAC;YACrB,IAAI,GAAG,KAAK,SAAS,EAAE,CAAC;gBACtB,GAAG,GAAG,EAAE,CAAC;gBACT,GAAG,CAAC,KAAK,CAAC,GAAG,GAAG,CAAC;YACnB,CAAC;YACD,OAAO,GAAG,CAAC;QACb,CAAC;QAED,IAAI,OAAO,GAAG,IAAI,CAAC;QACnB,qCAAqC;QACrC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YAC3C,OAAO,GAAG,YAAY,CAAC,OAAO,EAAE,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC;QAC7C,CAAC;QAED,8CAA8C;QAC9C,OAAO,CAAC,MAAM,CAAC,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC;QAE3C,OAAO,IAAI,CAAC;IACd,CAAC;IAED,2CAA2C;IAC3C,uBAAuB;IACvB,2CAA2C;IAEnC,MAAM,CAAC,aAAa,CAAC,IAAS;QACpC,IAAI,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,EAAE,CAAC;YACxB,OAAO,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE;gBACpB,IAAI,OAAO,CAAC,KAAK,QAAQ;oBAAE,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC,EAAE,CAAC,EAAiB,CAAC;gBACzE,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,MAAM,CAAC,CAAC,CAAC,EAAiB,CAAC;YAC3D,CAAC,CAAC,CAAC;QACL,CAAC;QAED,IAAI,CAAC,GAAG,MAAM,CAAC,IAAI,IAAI,EAAE,CAAC,CAAC;QAC3B,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,GAAG;YAAE,OAAO,EAAE,CAAC;QAErC,IAAI,CAAC,CAAC,UAAU,CAAC,GAAG,CAAC;YAAE,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;QAEtC,MAAM,QAAQ,GAAkB,EAAE,CAAC;QACnC,IAAI,CAAC,GAAG,CAAC,CAAC;QAEV,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,EAAE,CAAC;YACpB,MAAM,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;YAChB,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;gBACf,CAAC,EAAE,CAAC;gBACJ,SAAS;YACX,CAAC;YACD,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;gBACf,CAAC,EAAE,CAAC;gBACJ,IAAI,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,CAAC;oBAClB,MAAM,IAAI,KAAK,CAAC,6BAA6B,IAAI,GAAG,CAAC,CAAC;gBACxD,CAAC;gBACD,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;oBACjB,QAAQ,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,SAAS,EAAE,CAAC,CAAC;oBACnC,CAAC,EAAE,CAAC;gBACN,CAAC;qBAAM,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;oBACxC,MAAM,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;oBACnB,CAAC,EAAE,CAAC;oBACJ,IAAI,IAAI,GAAG,EAAE,CAAC;oBACd,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,KAAK,EAAE,CAAC;wBACtC,IAAI,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;wBACb,CAAC,EAAE,CAAC;oBACN,CAAC;oBACD,IAAI,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,CAAC;wBAClB,MAAM,IAAI,KAAK,CAAC,+BAA+B,IAAI,GAAG,CAAC,CAAC;oBAC1D,CAAC;oBACD,CAAC,EAAE,CAAC;oBACJ,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;wBACjB,MAAM,IAAI,KAAK,CAAC,8CAA8C,IAAI,GAAG,CAAC,CAAC;oBACzE,CAAC;oBACD,CAAC,EAAE,CAAC;oBACJ,QAAQ,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,CAAC,CAAC;gBACzC,CAAC;qBAAM,CAAC;oBACN,IAAI,GAAG,GAAG,EAAE,CAAC;oBACb,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;wBACpC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;wBACZ,CAAC,EAAE,CAAC;oBACN,CAAC;oBACD,IAAI,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,CAAC;wBAClB,MAAM,IAAI,KAAK,CAAC,6BAA6B,IAAI,GAAG,CAAC,CAAC;oBACxD,CAAC;oBACD,CAAC,EAAE,CAAC;oBACJ,MAAM,CAAC,GAAG,QAAQ,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC;oBAC5B,IAAI,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC;wBACb,MAAM,IAAI,KAAK,CAAC,2BAA2B,GAAG,SAAS,IAAI,GAAG,CAAC,CAAC;oBAClE,CAAC;oBACD,QAAQ,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC,EAAE,CAAC,CAAC;gBACtC,CAAC;YACH,CAAC;iBAAM,CAAC;gBACN,IAAI,IAAI,GAAG,EAAE,CAAC;gBACd,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;oBACpD,IAAI,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;oBACb,CAAC,EAAE,CAAC;gBACN,CAAC;gBACD,IAAI,IAAI;oBAAE,QAAQ,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,EAAE,CAAC,CAAC;YACnD,CAAC;QACH,CAAC;QAED,OAAO,QAAQ,CAAC;IAClB,CAAC;IAEO,MAAM,CAAC,MAAM,CAAC,SAAc,EAAE,QAAuB;QAC3D,IAAI,QAAQ,CAAC,MAAM,KAAK,CAAC;YAAE,OAAO,SAAS,IAAI,IAAI,CAAC;QACpD,IAAI,SAAS,IAAI,IAAI;YAAE,OAAO,IAAI,CAAC;QAEnC,MAAM,CAAC,KAAK,EAAE,GAAG,IAAI,CAAC,GAAG,QAAQ,CAAC;QAElC,IAAI,KAAK,CAAC,IAAI,KAAK,SAAS,EAAE,CAAC;YAC7B,IAAI,KAAY,CAAC;YACjB,IAAI,KAAK,CAAC,OAAO,CAAC,SAAS,CAAC,EAAE,CAAC;gBAC7B,KAAK,GAAG,SAAS,CAAC;YACpB,CAAC;iBAAM,IAAI,OAAO,SAAS,KAAK,QAAQ,EAAE,CAAC;gBACzC,KAAK,GAAG,MAAM,CAAC,IAAI,CAAC,SAAS,CAAC;qBAC3B,IAAI,EAAE;qBACN,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC;YAC9B,CAAC;iBAAM,CAAC;gBACN,OAAO,EAAE,CAAC;YACZ,CAAC;YAED,MAAM,aAAa,GAAG,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,SAAS,CAAC,CAAC;YAC7D,MAAM,MAAM,GAAU,EAAE,CAAC;YACzB,KAAK,MAAM,IAAI,IAAI,KAAK,EAAE,CAAC;gBACzB,IAAI,IAAI,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;oBACtB,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;gBACpB,CAAC;qBAAM,CAAC;oBACN,MAAM,CAAC,GAAG,YAAY,CAAC,MAAM,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC;oBAC1C,IAAI,aAAa,IAAI,KAAK,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC;wBACtC,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC;oBACpB,CAAC;yBAAM,CAAC;wBACN,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;oBACjB,CAAC;gBACH,CAAC;YACH,CAAC;YACD,OAAO,MAAM,CAAC;QAChB,CAAC;QAED,IAAI,KAAK,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;YAC3B,MAAM,IAAI,GAAG,SAAS,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC;YACnC,OAAO,YAAY,CAAC,MAAM,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC;QACzC,CAAC;QAED,QAAQ;QACR,IAAI,KAAK,CAAC,OAAO,CAAC,SAAS,CAAC,EAAE,CAAC;YAC7B,MAAM,CAAC,GAAG,KAAK,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC,MAAM,GAAG,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC;YAC7D,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,SAAS,CAAC,MAAM;gBAAE,OAAO,IAAI,CAAC;YAChD,OAAO,YAAY,CAAC,MAAM,CAAC,SAAS,CAAC,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC;QACjD,CAAC;QACD,IAAI,OAAO,SAAS,KAAK,QAAQ,EAAE,CAAC;YAClC,MAAM,IAAI,GAAG,MAAM,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC,IAAI,EAAE,CAAC;YAC3C,MAAM,CAAC,GAAG,KAAK,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,MAAM,GAAG,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC;YACxD,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,IAAI,CAAC,MAAM;gBAAE,OAAO,IAAI,CAAC;YAC3C,OAAO,YAAY,CAAC,MAAM,CAAC,SAAS,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC;QACvD,CAAC;QACD,OAAO,IAAI,CAAC;IACd,CAAC;IAEO,MAAM,CAAC,OAAO,CAAC,GAAgB;QACrC,IAAI,GAAG,CAAC,IAAI,KAAK,OAAO;YAAE,OAAO,GAAG,CAAC,IAAI,CAAC;QAC1C,IAAI,GAAG,CAAC,IAAI,KAAK,OAAO;YAAE,OAAO,GAAG,CAAC,CAAC,CAAC;QACvC,MAAM,IAAI,KAAK,CAAC,qCAAqC,CAAC,CAAC;IACzD,CAAC;IAEO,MAAM,CAAC,MAAM,CAAC,SAAc,EAAE,QAAuB,EAAE,KAAU;QACvE,IAAI,GAAG,GAAG,SAAS,CAAC;QACpB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,QAAQ,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YAC7C,MAAM,GAAG,GAAG,QAAQ,CAAC,CAAC,CAAC,CAAC;YACxB,MAAM,IAAI,GAAG,QAAQ,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;YAC7B,MAAM,GAAG,GAAG,YAAY,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC;YAEtC,IAAI,KAAK,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;YACrB,IAAI,KAAK,IAAI,IAAI,IAAI,OAAO,KAAK,KAAK,QAAQ,EAAE,CAAC;gBAC/C,KAAK,GAAG,IAAI,CAAC,IAAI,KAAK,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;gBACxC,GAAG,CAAC,GAAG,CAAC,GAAG,KAAK,CAAC;YACnB,CAAC;YACD,GAAG,GAAG,KAAK,CAAC;QACd,CAAC;QAED,MAAM,QAAQ,GAAG,YAAY,CAAC,OAAO,CAAC,QAAQ,CAAC,QAAQ,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC;QACrE,GAAG,CAAC,QAAQ,CAAC,GAAG,KAAK,CAAC;QAEtB,OAAO,SAAS,CAAC;IACnB,CAAC;IAEO,MAAM,CAAC,MAAM,CAAC,SAAc,EAAE,QAAuB;QAC3D,IAAI,GAAG,GAAG,SAAS,CAAC;QACpB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,QAAQ,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YAC7C,MAAM,GAAG,GAAG,YAAY,CAAC,OAAO,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC;YAC9C,IAAI,GAAG,IAAI,IAAI,IAAI,OAAO,GAAG,KAAK,QAAQ;gBAAE,OAAO,SAAS,CAAC;YAC7D,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;QACjB,CAAC;QACD,IAAI,GAAG,IAAI,IAAI,IAAI,OAAO,GAAG,KAAK,QAAQ;YAAE,OAAO,SAAS,CAAC;QAE7D,MAAM,IAAI,GAAG,QAAQ,CAAC,QAAQ,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;QAC3C,IAAI,IAAI,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;YAC1B,OAAO,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QACxB,CAAC;aAAM,IAAI,IAAI,CAAC,IAAI,KAAK,OAAO,EAAE,CAAC;YACjC,IAAI,KAAK,CAAC,OAAO,CAAC,GAAG,CAAC,EAAE,CAAC;gBACvB,MAAM,CAAC,GAAG,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC;gBACpD,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,GAAG,CAAC,MAAM;oBAAE,GAAG,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;YACjD,CAAC;iBAAM,CAAC;gBACN,OAAO,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;YACrB,CAAC;QACH,CAAC;QAED,OAAO,SAAS,CAAC;IACnB,CAAC;IAOK,AAAN,KAAK,CAAC,KAAK,CAAC,SAAc,EAAE,IAAS;QACnC,MAAM,QAAQ,GAAG,YAAY,CAAC,aAAa,CAAC,IAAI,CAAC,CAAC;QAClD,OAAO,YAAY,CAAC,MAAM,CAAC,SAAS,EAAE,QAAQ,CAAC,CAAC;IAClD,CAAC;IAOK,AAAN,KAAK,CAAC,OAAO,CAAC,SAAc,EAAE,KAAU,EAAE,IAAS;QACjD,MAAM,QAAQ,GAAG,YAAY,CAAC,aAAa,CAAC,IAAI,CAAC,CAAC;QAClD,IAAI,QAAQ,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,SAAS,CAAC,EAAE,CAAC;YAC/C,MAAM,IAAI,KAAK,CAAC,8CAA8C,CAAC,CAAC;QAClE,CAAC;QACD,IAAI,QAAQ,CAAC,MAAM,KAAK,CAAC;YAAE,OAAO,KAAK,CAAC;QAExC,IAAI,UAAU,GAAG,SAAS,CAAC;QAC3B,IAAI,UAAU,IAAI,IAAI,IAAI,OAAO,UAAU,KAAK,QAAQ,EAAE,CAAC;YACzD,UAAU,GAAG,QAAQ,CAAC,CAAC,CAAC,CAAC,IAAI,KAAK,OAAO,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;QACtD,CAAC;QAED,OAAO,YAAY,CAAC,MAAM,CAAC,UAAU,EAAE,QAAQ,EAAE,KAAK,CAAC,CAAC;IAC1D,CAAC;IAOK,AAAN,KAAK,CAAC,CAAC,QAAQ,CAAC,CAAC,SAAc,EAAE,IAAS;QACxC,MAAM,QAAQ,GAAG,YAAY,CAAC,aAAa,CAAC,IAAI,CAAC,CAAC;QAClD,IAAI,QAAQ,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,SAAS,CAAC,EAAE,CAAC;YAC/C,MAAM,IAAI,KAAK,CAAC,oDAAoD,CAAC,CAAC;QACxE,CAAC;QACD,IAAI,QAAQ,CAAC,MAAM,KAAK,CAAC,IAAI,SAAS,IAAI,IAAI;YAAE,OAAO,SAAS,CAAC;QAEjE,OAAO,YAAY,CAAC,MAAM,CAAC,SAAS,EAAE,QAAQ,CAAC,CAAC;IAClD,CAAC;IAQK,AAAN,KAAK,CAAC,cAAc,CAAC,KAAY;QAC/B,OAAO,YAAY,CAAC,YAAY,CAAC,KAAK,EAAE,aAAa,CAAC,CAAC;IACzD,CAAC;IAOK,AAAN,KAAK,CAAC,cAAc,CAAC,GAAQ;QAC3B,IAAI,CAAC,GAAG,IAAI,OAAO,GAAG,KAAK,QAAQ,IAAI,KAAK,CAAC,OAAO,CAAC,GAAG,CAAC;YAAE,OAAO,EAAE,CAAC;QACrE,MAAM,IAAI,GAAG,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC;QACrC,OAAO,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACtC,CAAC;IAOK,AAAN,KAAK,CAAC,KAAK,CAAC,IAAS,EAAE,IAAS;QAC9B,MAAM,CAAC,GAAG,IAAI,IAAI,OAAO,IAAI,KAAK,QAAQ,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC;QAC/E,MAAM,CAAC,GAAG,IAAI,IAAI,OAAO,IAAI,KAAK,QAAQ,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC;QAC/E,OAAO,EAAE,GAAG,CAAC,EAAE,GAAG,CAAC,EAAE,CAAC;IACxB,CAAC;IAOK,AAAN,KAAK,CAAC,IAAI,CAAC,GAAQ,EAAE,IAAW;QAC9B,IAAI,CAAC,GAAG,IAAI,OAAO,GAAG,KAAK,QAAQ,IAAI,KAAK,CAAC,OAAO,CAAC,GAAG,CAAC;YAAE,OAAO,EAAE,CAAC;QACrE,MAAM,EAAE,GAAG,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC;QAC3C,MAAM,MAAM,GAAwB,EAAE,CAAC;QACvC,KAAK,MAAM,CAAC,IAAI,EAAE,EAAE,CAAC;YACnB,IAAI,MAAM,CAAC,SAAS,CAAC,cAAc,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,CAAC,EAAE,CAAC;gBACjD,MAAM,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC;YACrB,CAAC;QACH,CAAC;QACD,OAAO,MAAM,CAAC;IAChB,CAAC;IAOK,AAAN,KAAK,CAAC,IAAI,CAAC,GAAQ,EAAE,IAAW;QAC9B,IAAI,CAAC,GAAG,IAAI,OAAO,GAAG,KAAK,QAAQ,IAAI,KAAK,CAAC,OAAO,CAAC,GAAG,CAAC;YAAE,OAAO,EAAE,CAAC;QACrE,MAAM,IAAI,GAAG,IAAI,GAAG,CAAC,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;QACtD,MAAM,MAAM,GAAwB,EAAE,CAAC;QACvC,KAAK,MAAM,CAAC,IAAI,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC;YACjC,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC;gBAAE,MAAM,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC;QACvC,CAAC;QACD,OAAO,MAAM,CAAC;IAChB,CAAC;IAOK,AAAN,KAAK,CAAC,OAAO,CAAC,GAAQ,EAAE,GAAQ;QAC9B,IAAI,CAAC,GAAG,IAAI,OAAO,GAAG,KAAK,QAAQ,IAAI,KAAK,CAAC,OAAO,CAAC,GAAG,CAAC;YAAE,OAAO,KAAK,CAAC;QACxE,OAAO,MAAM,CAAC,SAAS,CAAC,cAAc,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;IACxD,CAAC;IAGK,AAAN,KAAK,CAAC,MAAM,CAAC,SAAc,EAAE,GAAQ;QACnC,IAAI,CAAC,SAAS;YAAE,OAAO,SAAS,CAAC;QAEjC,IAAI,SAAS,YAAY,KAAK,EAAE,CAAC;YAC/B,SAAS,CAAC,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC;QAC3B,CAAC;aAAM,CAAC;YACN,OAAO,SAAS,CAAC,GAAG,CAAC,CAAC;QACxB,CAAC;QAED,OAAO,SAAS,CAAC;IACnB,CAAC;IAIK,AAAN,KAAK,CAAC,IAAI,CAAC,SAAc;QACvB,IAAI,UAAU,GAAG,SAAS,CAAC;QAC3B,IAAI,CAAC,UAAU;YAAE,UAAU,GAAG,EAAE,CAAC;QAEjC,IAAI,MAAW,CAAC;QAChB,IAAI,UAAU,YAAY,KAAK,EAAE,CAAC;YAChC,MAAM,GAAG,EAAE,CAAC;YACZ,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,UAAU,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;gBAC3C,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;YACjB,CAAC;QACH,CAAC;aAAM,CAAC;YACN,MAAM,GAAG,MAAM,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC;QACnC,CAAC;QAED,OAAO,MAAM,CAAC;IAChB,CAAC;IAGK,AAAN,KAAK,CAAC,MAAM,CAAC,SAAc;QACzB,IAAI,UAAU,GAAG,SAAS,CAAC;QAC3B,IAAI,CAAC,UAAU;YAAE,UAAU,GAAG,EAAE,CAAC;QAEjC,IAAI,MAAW,CAAC;QAChB,IAAI,UAAU,YAAY,KAAK,EAAE,CAAC;YAChC,MAAM,GAAG,UAAU,CAAC;QACtB,CAAC;aAAM,CAAC;YACN,MAAM,GAAG,EAAE,CAAC;YACZ,MAAM,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACrE,CAAC;QAED,OAAO,MAAM,CAAC;IAChB,CAAC;CACF;AArZO;IADL,WAAW,CAAC,+BAA+B,EAAE,4CAA4C,CAAC;uCAG1F;AAGK;IADL,WAAW,CAAC,oCAAoC,EAAE,mDAAmD,EAAE,MAAM,CAAC;0CAS9G;AAGK;IADL,WAAW,CAAC,yCAAyC,EAAE,gCAAgC,EAAE,OAAO,CAAC;+CAMjG;AAGK;IADL,WAAW,CAAC,4CAA4C,EAAE,mCAAmC,EAAE,OAAO,CAAC;8CA4BvG;AAiMK;IALL,WAAW,CACV,yCAAyC,EACzC,0IAA0I,EAC1I,KAAK,CACN;yCAIA;AAOK;IALL,WAAW,CACV,uDAAuD,EACvD,iIAAiI,EACjI,KAAK,CACN;2CAcA;AAOK;IALL,WAAW,CACV,6CAA6C,EAC7C,yFAAyF,EACzF,QAAQ,CACT;2BACM,QAAQ,OAQd;AAQK;IALL,WAAW,CACV,4BAA4B,EAC5B,2GAA2G,EAC3G,aAAa,CACd;kDAGA;AAOK;IALL,WAAW,CACV,4BAA4B,EAC5B,iHAAiH,EACjH,aAAa,CACd;kDAKA;AAOK;IALL,WAAW,CACV,qCAAqC,EACrC,gEAAgE,EAChE,OAAO,CACR;yCAKA;AAOK;IALL,WAAW,CACV,mCAAmC,EACnC,iFAAiF,EACjF,MAAM,CACP;wCAWA;AAOK;IALL,WAAW,CACV,mCAAmC,EACnC,8CAA8C,EAC9C,MAAM,CACP;wCASA;AAOK;IALL,WAAW,CACV,qCAAqC,EACrC,+HAA+H,EAC/H,UAAU,CACX;2CAIA;AAGK;IADL,WAAW,CAAC,4CAA4C,EAAE,4CAA4C,EAAE,QAAQ,CAAC;0CAWjH;AAIK;IADL,WAAW,CAAC,iCAAiC,EAAE,4CAA4C,CAAC;wCAgB5F;AAGK;IADL,WAAW,CAAC,mCAAmC,EAAE,+CAA+C,CAAC;0CAcjG"}

package/dist/esm/forthic/modules/standard/string_module.d.ts

@@ -1,22 +1,30 @@
-import { Interpreter } from "../../interpreter.js";
 import { DecoratedModule } from "../../decorators/word.js";
 export declare class StringModule extends DecoratedModule {
     constructor();
-    CONCAT(interp: Interpreter): Promise<void>;
+    CONCAT(strings: any[]): Promise<string>;
+    STR_LENGTH(str: any): Promise<number>;
     to_STR(item: any): Promise<any>;
     SPLIT(string: string, sep: string): Promise<string[]>;
     JOIN(strings: string[], sep: string): Promise<string>;
     slash_N(): Promise<string>;
-    slash_R(): Promise<string>;
     slash_T(): Promise<string>;
+    STARTS_WITH(str: any, prefix: any): Promise<boolean>;
+    ENDS_WITH(str: any, suffix: any): Promise<boolean>;
+    TRIM_PREFIX(str: any, prefix: any): Promise<any>;
+    TRIM_SUFFIX(str: any, suffix: any): Promise<any>;
+    RE_MATCH_TEST(str: any, pattern: any): Promise<boolean>;
     LOWERCASE(string: string): Promise<string>;
     UPPERCASE(string: string): Promise<string>;
     ASCII(string: string): Promise<string>;
     STRIP(string: string): Promise<string>;
     REPLACE(string: string, text: string, replace: string): Promise<string>;
+    RE_REPLACE(string: string, pattern: string, replace: string): Promise<string>;
     RE_MATCH(string: string, pattern: string): Promise<any>;
     RE_MATCH_ALL(string: string, pattern: string): Promise<string[]>;
-    RE_MATCH_GROUP(match: any, num: number): Promise<any>;
-    URL_ENCODE(str: string): Promise<string>;
-    URL_DECODE(urlencoded: string): Promise<string>;
+    LINES(str: any): Promise<string[]>;
+    UNLINES(lines: any): Promise<string>;
+    GREP(strings: any, pattern: any): Promise<any[]>;
+    GREP_V(strings: any, pattern: any): Promise<any[]>;
+    SED(strings: any, pattern: any, repl: any): Promise<any[]>;
+    CUT(strings: any, sep: any, field: any): Promise<string[]>;
 }