@dawnlit/outlook-bridge 1.1.1 → 2.0.0

package/dist/mac/run.d.ts

@@ -1,20 +1,27 @@
+import { type RunBudget } from '../runtime';
 /**
- * Run an AppleScript via a temp file (avoids arg-length and quoting limits).
+ * Run a script from a temp file (no argument-length or quoting limits) and
+ * return what it printed, minus the newline osascript appends.
  *
- * `AS_HANDLERS` is prepended here rather than by each caller — the Windows runner
- * already owns its UTF-8 prelude the same way. It matters more on this side: a
- * script missing a handler fails at COMPILE time for the WHOLE script, with a
- * message pointing nowhere near the omission, so "remember to paste the handlers"
- * was a footgun every new script had to survive.
- *
- * `timeout` overrides the configured default for this one call; see `configure()`
- * for that and for the stdout cap.
+ * `AS_HANDLERS` is prepended here rather than by each caller: a script missing
+ * a handler fails to compile as a WHOLE, with an error pointing nowhere near the
+ * omission, so it can't be left to each script to remember.
+ */
+export declare function runOsaScript(source: string, budget: RunBudget): Promise<string>;
+/**
+ * Escape text for the inside of an AppleScript double-quoted literal.
+ * AppleScript strings never interpolate, so escaping the quote, the backslash
+ * and line breaks is the whole job.
  */
-export declare function runOsaScript(source: string, timeout?: number): Promise<string>;
-/** Escape a string for embedding inside an AppleScript double-quoted literal. */
-export declare function asEscape(s: string): string;
+export declare function asEscape(text: string): string;
+/** Text as an AppleScript string literal. */
+export declare function asString(text: string): string;
 /** AppleScript's boolean literals. */
 export declare function asBool(value: boolean): string;
+/** A whole number for a script; anything else is refused before it becomes code. */
+export declare function asInt(value: number): string;
+/** Message ids (already validated as integers) as an AppleScript list literal. */
+export declare function asIdList(ids: readonly string[]): string;
 export declare const FIELD_SEP = "\u001F";
 export declare const RECORD_SEP = "\u001E";
 export declare const LIST_SEP = "\u001D";
@@ -23,42 +30,31 @@ export declare const AS_FIELD_SEP = "(character id 31)";
 export declare const AS_RECORD_SEP = "(character id 30)";
 export declare const AS_LIST_SEP = "(character id 29)";
 /**
- * Emit one record: the AppleScript expressions in `fields`, separated and
- * terminated so `splitRecords`/`splitFields` can take them apart again.
- *
- * Every field goes through `sanitize`, which is what makes the framing safe
- * rather than merely unlikely to break. A field holding a LIST must be built
- * with `my sanitizeList(...)`, which cleans the elements instead — `sanitize`
- * deliberately leaves the list separator alone.
+ * One record: the AppleScript expressions in `fields`, separated and terminated
+ * so `splitRecords`/`splitFields` can take them apart again. A field holding a
+ * LIST must be built with `my sanitizeList(...)`, which cleans the elements —
+ * `sanitize` deliberately leaves the list separator alone.
  */
 export declare function asRow(fields: readonly string[]): string;
 /**
- * The AppleScript handlers every script here relies on. Called with `my` from
- * inside a `tell` block.
+ * The handlers every script relies on, called with `my` from inside a `tell`.
  *
- * `isoDate` produces the zero-padded 'yyyy-MM-dd HH:mm' both platforms' readers
- * return; `sanitize` strips the framing characters; `joinList` and `replaceText`
- * are the text-item-delimiter dance nobody should write twice.
+ * `isoDate` produces the zero-padded 'yyyy-MM-dd HH:mm' both platforms return;
+ * `sanitize` strips the framing characters; `joinList` and `replaceText` are the
+ * text-item-delimiter dance nobody should write twice.
  */
-export declare const AS_HANDLERS = "\non pad2(n)\n    set s to (n as integer) as string\n    if (length of s) < 2 then set s to \"0\" & s\n    return s\nend pad2\n\non isoDate(d)\n    if d is missing value then return \"\"\n    return (year of d as string) & \"-\" & pad2(month of d as integer) & \"-\" & pad2(day of d) & \" \" & pad2(hours of d) & \":\" & pad2(minutes of d)\nend isoDate\n\non joinList(lst, sep)\n    set saved to AppleScript's text item delimiters\n    set AppleScript's text item delimiters to sep\n    set out to lst as string\n    set AppleScript's text item delimiters to saved\n    return out\nend joinList\n\non replaceText(t, findWhat, replaceWith)\n    set saved to AppleScript's text item delimiters\n    set AppleScript's text item delimiters to findWhat\n    set parts to text items of t\n    set AppleScript's text item delimiters to replaceWith\n    set out to parts as string\n    set AppleScript's text item delimiters to saved\n    return out\nend replaceText\n\n-- Strips the FIELD and RECORD separators only. The LIST separator is left\n-- alone on purpose: a field may legitimately BE a list, and stripping 29 here\n-- collapsed every such field into one run-on string.\non sanitize(v)\n    if v is missing value then return \"\"\n    set t to v as string\n    repeat with codePoint in {30, 31}\n        set marker to (character id (codePoint as integer))\n        if t contains marker then set t to my replaceText(t, marker, \" \")\n    end repeat\n    return t\nend sanitize\n\n-- A list field: each element loses all three separators, then they are joined\n-- with the LIST separator that splitList() takes them apart on.\non sanitizeList(lst)\n    set cleaned to {}\n    repeat with item_ in lst\n        set t to my sanitize(item_)\n        repeat with codePoint in {29}\n            set marker to (character id (codePoint as integer))\n            if t contains marker then set t to my replaceText(t, marker, \" \")\n        end repeat\n        set end of cleaned to t\n    end repeat\n    return my joinList(cleaned, (character id 29))\nend sanitizeList\n\non insertAboveQuoted(c, ins)\n    if c is missing value then return ins\n    set c to c as string\n    if (length of c) is 0 then return ins\n    -- Outlook builds a reply as a document whose own empty paragraph sits inside\n    -- WordSection1; inserting straight after that tag puts the new text where the\n    -- user's cursor would have been. Anything else falls back to just inside <body>.\n    -- 'at' is a reserved AppleScript parameter name, so the cut point cannot be\n    -- called that however naturally it reads.\n    set cutPoint to my tagEnd(c, \"WordSection1>\")\n    if cutPoint is 0 then set cutPoint to my tagEnd(c, \"<body\")\n    if cutPoint is 0 then return ins & c\n    if cutPoint is (length of c) then return c & ins\n    return (text 1 thru cutPoint of c) & ins & (text (cutPoint + 1) thru -1 of c)\nend insertAboveQuoted\n\n-- 'rest' is an AppleScript term (rest of list), so the remainder cannot be\n-- called that: assigning to it compiles and then fails at run time.\non tagEnd(c, marker)\n    set ix to offset of marker in c\n    if ix is 0 then return 0\n    if marker ends with \">\" then return ix + (length of marker) - 1\n    set tailText to text ix thru -1 of c\n    set gt to offset of \">\" in tailText\n    if gt is 0 then return 0\n    return ix + gt - 1\nend tagEnd\n";
-/** Split a script's output into records, dropping the trailing empty one. */
+export declare const AS_HANDLERS = "\non pad2(n)\n    set s to (n as integer) as string\n    if (length of s) < 2 then set s to \"0\" & s\n    return s\nend pad2\n\non isoDate(d)\n    if d is missing value then return \"\"\n    return (year of d as string) & \"-\" & pad2(month of d as integer) & \"-\" & pad2(day of d) & \" \" & pad2(hours of d) & \":\" & pad2(minutes of d)\nend isoDate\n\non joinList(lst, sep)\n    set saved to AppleScript's text item delimiters\n    set AppleScript's text item delimiters to sep\n    set out to lst as string\n    set AppleScript's text item delimiters to saved\n    return out\nend joinList\n\non replaceText(t, findWhat, replaceWith)\n    set saved to AppleScript's text item delimiters\n    set AppleScript's text item delimiters to findWhat\n    set parts to text items of t\n    set AppleScript's text item delimiters to replaceWith\n    set out to parts as string\n    set AppleScript's text item delimiters to saved\n    return out\nend replaceText\n\n-- Strips the FIELD and RECORD separators only. The LIST separator is left\n-- alone on purpose: a field may legitimately BE a list.\non sanitize(v)\n    if v is missing value then return \"\"\n    set t to v as string\n    repeat with codePoint in {30, 31}\n        set marker to (character id (codePoint as integer))\n        if t contains marker then set t to my replaceText(t, marker, \" \")\n    end repeat\n    return t\nend sanitize\n\n-- A list field: each element loses all three separators, then they are joined\n-- with the LIST separator that splitList() takes them apart on.\non sanitizeList(lst)\n    set cleaned to {}\n    repeat with item_ in lst\n        set t to my sanitize(item_)\n        set marker to (character id 29)\n        if t contains marker then set t to my replaceText(t, marker, \" \")\n        set end of cleaned to t\n    end repeat\n    return my joinList(cleaned, (character id 29))\nend sanitizeList\n\non insertAboveQuoted(c, ins)\n    if c is missing value then return ins\n    set c to c as string\n    if (length of c) is 0 then return ins\n    -- A reply's own empty paragraph sits inside WordSection1; inserting straight\n    -- after that tag puts the new text where the cursor would be. Anything else\n    -- falls back to just inside <body>. ('at' is a reserved parameter name, so\n    -- the cut point can't be called that.)\n    set cutPoint to my tagEnd(c, \"WordSection1>\")\n    if cutPoint is 0 then set cutPoint to my tagEnd(c, \"<body\")\n    if cutPoint is 0 then return ins & c\n    if cutPoint is (length of c) then return c & ins\n    return (text 1 thru cutPoint of c) & ins & (text (cutPoint + 1) thru -1 of c)\nend insertAboveQuoted\n\n-- 'rest' is an AppleScript term, so the remainder can't be called that:\n-- assigning to it compiles and then fails at run time.\non tagEnd(c, marker)\n    set ix to offset of marker in c\n    if ix is 0 then return 0\n    if marker ends with \">\" then return ix + (length of marker) - 1\n    set tailText to text ix thru -1 of c\n    set gt to offset of \">\" in tailText\n    if gt is 0 then return 0\n    return ix + gt - 1\nend tagEnd\n";
+/** A script's output as records, without the trailing empty one. */
 export declare function splitRecords(raw: string): string[];
-/** Split one record into its fields. */
+/** One record's fields. */
 export declare function splitFields(record: string): string[];
-/** Split one field that carries a list. */
+/** A field that carries a list. */
 export declare function splitList(value: string | undefined): string[];
-/** A field by position — a missing field reads as ''. */
+/** A field by position; a missing field reads as ''. */
 export declare function field(fields: readonly string[], index: number): string;
-/**
- * The fields of a script's ONE summary record — the shape every mutation here
- * returns (counts first, then any per-item failures as further records).
- */
+/** The fields of a script's first record — the summary a mutation returns ahead of any per-item rows. */
 export declare function summaryFields(raw: string): string[];
-/** A numeric field, defaulting to `fallback` when absent or unparsable. */
+/** A numeric field, `fallback` when absent or unparsable. */
 export declare function intField(fields: readonly string[], index: number, fallback?: number): number;
-/**
- * A boolean field. AppleScript renders booleans as the bare words `true`/`false`,
- * so this is the counterpart of `shared/json.ts`'s coercions for the framed
- * output — the Windows side gets those free from ConvertFrom-Json.
- */
+/** A boolean field; AppleScript renders booleans as the bare words true/false. */
 export declare function boolField(fields: readonly string[], index: number): boolean;

package/dist/mac/run.js

@@ -6,7 +6,10 @@ Object.defineProperty(exports, "__esModule", { value: true });
 exports.AS_HANDLERS = exports.AS_LIST_SEP = exports.AS_RECORD_SEP = exports.AS_FIELD_SEP = exports.LIST_SEP = exports.RECORD_SEP = exports.FIELD_SEP = void 0;
 exports.runOsaScript = runOsaScript;
 exports.asEscape = asEscape;
+exports.asString = asString;
 exports.asBool = asBool;
+exports.asInt = asInt;
+exports.asIdList = asIdList;
 exports.asRow = asRow;
 exports.splitRecords = splitRecords;
 exports.splitFields = splitFields;
@@ -17,100 +20,104 @@ exports.intField = intField;
 exports.boolField = boolField;
 // Getting a generated AppleScript to osascript and its output back.
 //
-// The macOS counterpart of windows/run.ts: the run itself, the escaping rules,
-// and the record framing every reader here shares.
-const child_process_1 = require("child_process");
+// The macOS counterpart of windows/run.ts: running a script, the escaping
+// rules, and the record framing every reader here shares.
 const fs_1 = __importDefault(require("fs"));
 const runtime_1 = require("../runtime");
+const exec_1 = require("../shared/exec");
 const errors_1 = require("../errors");
 const replyBody_1 = require("../shared/replyBody");
 const RUNNER = 'osascript';
 /**
- * Run an AppleScript via a temp file (avoids arg-length and quoting limits).
- *
- * `AS_HANDLERS` is prepended here rather than by each caller — the Windows runner
- * already owns its UTF-8 prelude the same way. It matters more on this side: a
- * script missing a handler fails at COMPILE time for the WHOLE script, with a
- * message pointing nowhere near the omission, so "remember to paste the handlers"
- * was a footgun every new script had to survive.
+ * osascript's report of a script error: "<file>:<start>:<end>: execution error:
+ * <message> (<number>)". Only the message is worth showing — these reach people
+ * in per-item failure lists — and -2700 is the number AppleScript gives every
+ * `error "…"` a script raises itself.
+ */
+function parseFailure(stderr) {
+    const message = stderr
+        .replace(/^(?:.*?:)?\d+:\d+:\s*execution error:\s*/m, '')
+        .replace(/\s*\(-2700\)\s*$/, '')
+        .trim();
+    return { message };
+}
+/**
+ * Run a script from a temp file (no argument-length or quoting limits) and
+ * return what it printed, minus the newline osascript appends.
  *
- * `timeout` overrides the configured default for this one call; see `configure()`
- * for that and for the stdout cap.
+ * `AS_HANDLERS` is prepended here rather than by each caller: a script missing
+ * a handler fails to compile as a WHOLE, with an error pointing nowhere near the
+ * omission, so it can't be left to each script to remember.
  */
-function runOsaScript(source, timeout) {
-    // The full text is what osascript compiled, so it is also what the error's
-    // line numbers refer to and what the debug hook and ScriptError must carry.
+async function runOsaScript(source, budget) {
+    // The full text is what osascript compiles, so it is also what error offsets
+    // refer to and what the debug hook and errors carry.
     const script = exports.AS_HANDLERS + source;
-    const scriptFile = (0, runtime_1.tempFile)('osa', 'applescript');
-    fs_1.default.writeFileSync(scriptFile, script, 'utf-8');
-    const { timeoutMs, maxBufferBytes, signal } = (0, runtime_1.getConfig)();
-    const effectiveTimeout = timeout ?? timeoutMs;
-    const startedAt = Date.now();
-    return new Promise((resolve, reject) => {
-        (0, child_process_1.execFile)('osascript', [scriptFile], { maxBuffer: maxBufferBytes, timeout: effectiveTimeout, signal }, (error, stdout, stderr) => {
-            const durationMs = Date.now() - startedAt;
-            try {
-                fs_1.default.unlinkSync(scriptFile);
-            }
-            catch { /* ignore */
-            }
-            if (error) {
-                // Running from a file, osascript prefixes the script path:
-                // "/tmp/outlook-bridge-osa-1.applescript:12:34: execution error:
-                // Microsoft Outlook got an error: … (-1728)". Keep just the human
-                // part — these strings reach the user in per-email failure lists.
-                const msg = (stderr || error.message)
-                    .replace(/^(?:.*?:)?\d+:\d+:\s*execution error:\s*/m, '')
-                    .trim();
-                const failure = (0, errors_1.classifyRunFailure)({
-                    runner: RUNNER,
-                    script,
-                    stderr: msg,
-                    durationMs,
-                    nodeError: error,
-                    timeoutMs: effectiveTimeout,
-                    signal,
-                });
-                (0, runtime_1.reportRun)({ runner: RUNNER, script, durationMs, error: failure.message });
-                reject(failure);
-            }
-            else {
-                (0, runtime_1.reportRun)({ runner: RUNNER, script, durationMs });
-                resolve(stdout.replace(/\n$/, ''));
-            }
+    const file = (0, runtime_1.tempFile)('osa', 'applescript');
+    fs_1.default.writeFileSync(file, script, 'utf8');
+    try {
+        const { stdout } = await (0, exec_1.runScriptProcess)({
+            runner: RUNNER,
+            command: 'osascript',
+            args: [file],
+            script,
+            budget,
+            parseFailure,
         });
-    });
+        return stdout.replace(/\n$/, '');
+    }
+    finally {
+        (0, runtime_1.removeTempFile)(file);
+    }
 }
-/** Escape a string for embedding inside an AppleScript double-quoted literal. */
-function asEscape(s) {
-    return s
+/**
+ * Escape text for the inside of an AppleScript double-quoted literal.
+ * AppleScript strings never interpolate, so escaping the quote, the backslash
+ * and line breaks is the whole job.
+ */
+function asEscape(text) {
+    return text
         .replace(/\\/g, '\\\\')
         .replace(/"/g, '\\"')
         .replace(/\r\n|\r|\n/g, '\\n');
 }
+/** Text as an AppleScript string literal. */
+function asString(text) {
+    return `"${asEscape(text)}"`;
+}
 /** AppleScript's boolean literals. */
 function asBool(value) {
     return value ? 'true' : 'false';
 }
-// Control characters as separators: subjects and bodies contain tabs, newlines
-// and commas, but never these. Every emitted field also passes through the
-// `sanitize` handler below, which is what makes the framing safe rather than
-// merely unlikely to break.
-exports.FIELD_SEP = '\u001f';
-exports.RECORD_SEP = '\u001e';
-exports.LIST_SEP = '\u001d';
+/** A whole number for a script; anything else is refused before it becomes code. */
+function asInt(value) {
+    if (!Number.isSafeInteger(value)) {
+        throw new errors_1.InvalidRequestError(`Expected a whole number, got ${String(value)}.`);
+    }
+    return String(value);
+}
+/** Message ids (already validated as integers) as an AppleScript list literal. */
+function asIdList(ids) {
+    return `{${ids.map(id => asInt(Number(id))).join(', ')}}`;
+}
+// ── Record framing ───────────────────────────────────────────────────────
+//
+// Control characters separate fields, records and list items: subjects and
+// bodies contain tabs, newlines and commas, but never these — and every emitted
+// field passes through the `sanitize` handler, which makes the framing safe
+// rather than merely unlikely to break.
+exports.FIELD_SEP = '';
+exports.RECORD_SEP = '';
+exports.LIST_SEP = '';
 /** The same three, as AppleScript expressions. */
 exports.AS_FIELD_SEP = '(character id 31)';
 exports.AS_RECORD_SEP = '(character id 30)';
 exports.AS_LIST_SEP = '(character id 29)';
 /**
- * Emit one record: the AppleScript expressions in `fields`, separated and
- * terminated so `splitRecords`/`splitFields` can take them apart again.
- *
- * Every field goes through `sanitize`, which is what makes the framing safe
- * rather than merely unlikely to break. A field holding a LIST must be built
- * with `my sanitizeList(...)`, which cleans the elements instead — `sanitize`
- * deliberately leaves the list separator alone.
+ * One record: the AppleScript expressions in `fields`, separated and terminated
+ * so `splitRecords`/`splitFields` can take them apart again. A field holding a
+ * LIST must be built with `my sanitizeList(...)`, which cleans the elements —
+ * `sanitize` deliberately leaves the list separator alone.
  */
 function asRow(fields) {
     return fields
@@ -118,12 +125,11 @@ function asRow(fields) {
         .join(` & ${exports.AS_FIELD_SEP} & `) + ` & ${exports.AS_RECORD_SEP}`;
 }
 /**
- * The AppleScript handlers every script here relies on. Called with `my` from
- * inside a `tell` block.
+ * The handlers every script relies on, called with `my` from inside a `tell`.
  *
- * `isoDate` produces the zero-padded 'yyyy-MM-dd HH:mm' both platforms' readers
- * return; `sanitize` strips the framing characters; `joinList` and `replaceText`
- * are the text-item-delimiter dance nobody should write twice.
+ * `isoDate` produces the zero-padded 'yyyy-MM-dd HH:mm' both platforms return;
+ * `sanitize` strips the framing characters; `joinList` and `replaceText` are the
+ * text-item-delimiter dance nobody should write twice.
  */
 exports.AS_HANDLERS = `
 on pad2(n)
@@ -156,8 +162,7 @@ on replaceText(t, findWhat, replaceWith)
 end replaceText
 
 -- Strips the FIELD and RECORD separators only. The LIST separator is left
--- alone on purpose: a field may legitimately BE a list, and stripping 29 here
--- collapsed every such field into one run-on string.
+-- alone on purpose: a field may legitimately BE a list.
 on sanitize(v)
     if v is missing value then return ""
     set t to v as string
@@ -174,10 +179,8 @@ on sanitizeList(lst)
     set cleaned to {}
     repeat with item_ in lst
         set t to my sanitize(item_)
-        repeat with codePoint in {29}
-            set marker to (character id (codePoint as integer))
-            if t contains marker then set t to my replaceText(t, marker, " ")
-        end repeat
+        set marker to (character id 29)
+        if t contains marker then set t to my replaceText(t, marker, " ")
         set end of cleaned to t
     end repeat
     return my joinList(cleaned, (character id 29))
@@ -187,11 +190,10 @@ on insertAboveQuoted(c, ins)
     if c is missing value then return ins
     set c to c as string
     if (length of c) is 0 then return ins
-    -- Outlook builds a reply as a document whose own empty paragraph sits inside
-    -- WordSection1; inserting straight after that tag puts the new text where the
-    -- user's cursor would have been. Anything else falls back to just inside <body>.
-    -- 'at' is a reserved AppleScript parameter name, so the cut point cannot be
-    -- called that however naturally it reads.
+    -- A reply's own empty paragraph sits inside WordSection1; inserting straight
+    -- after that tag puts the new text where the cursor would be. Anything else
+    -- falls back to just inside <body>. ('at' is a reserved parameter name, so
+    -- the cut point can't be called that.)
     set cutPoint to my tagEnd(c, "${replyBody_1.WORD_SECTION_ANCHOR}")
     if cutPoint is 0 then set cutPoint to my tagEnd(c, "<body")
     if cutPoint is 0 then return ins & c
@@ -199,8 +201,8 @@ on insertAboveQuoted(c, ins)
     return (text 1 thru cutPoint of c) & ins & (text (cutPoint + 1) thru -1 of c)
 end insertAboveQuoted
 
--- 'rest' is an AppleScript term (rest of list), so the remainder cannot be
--- called that: assigning to it compiles and then fails at run time.
+-- 'rest' is an AppleScript term, so the remainder can't be called that:
+-- assigning to it compiles and then fails at run time.
 on tagEnd(c, marker)
     set ix to offset of marker in c
     if ix is 0 then return 0
@@ -211,39 +213,32 @@ on tagEnd(c, marker)
     return ix + gt - 1
 end tagEnd
 `;
-/** Split a script's output into records, dropping the trailing empty one. */
+/** A script's output as records, without the trailing empty one. */
 function splitRecords(raw) {
     return raw.split(exports.RECORD_SEP).filter(record => record.trim() !== '');
 }
-/** Split one record into its fields. */
+/** One record's fields. */
 function splitFields(record) {
     return record.split(exports.FIELD_SEP);
 }
-/** Split one field that carries a list. */
+/** A field that carries a list. */
 function splitList(value) {
     return (value || '').split(exports.LIST_SEP).filter(Boolean);
 }
-/** A field by position — a missing field reads as ''. */
+/** A field by position; a missing field reads as ''. */
 function field(fields, index) {
     return fields[index] ?? '';
 }
-/**
- * The fields of a script's ONE summary record — the shape every mutation here
- * returns (counts first, then any per-item failures as further records).
- */
+/** The fields of a script's first record — the summary a mutation returns ahead of any per-item rows. */
 function summaryFields(raw) {
     return splitFields(splitRecords(raw)[0] ?? '');
 }
-/** A numeric field, defaulting to `fallback` when absent or unparsable. */
+/** A numeric field, `fallback` when absent or unparsable. */
 function intField(fields, index, fallback = 0) {
     const parsed = Number.parseInt(field(fields, index), 10);
     return Number.isNaN(parsed) ? fallback : parsed;
 }
-/**
- * A boolean field. AppleScript renders booleans as the bare words `true`/`false`,
- * so this is the counterpart of `shared/json.ts`'s coercions for the framed
- * output — the Windows side gets those free from ConvertFrom-Json.
- */
+/** A boolean field; AppleScript renders booleans as the bare words true/false. */
 function boolField(fields, index) {
     return field(fields, index).trim() === 'true';
 }

package/dist/mac/run.js.map

@@ -1 +1 @@
-{"version":3,"file":"run.js","sourceRoot":"","sources":["../../src/mac/run.ts"],"names":[],"mappings":";;;;;;AAwBA,oCA8CC;AAGD,4BAKC;AAGD,wBAEC;AAwBD,sBAIC;AAkGD,oCAEC;AAGD,kCAEC;AAGD,8BAEC;AAGD,sBAEC;AAMD,sCAEC;AAGD,4BAGC;AAOD,8BAEC;AAzPD,oEAAoE;AACpE,EAAE;AACF,+EAA+E;AAC/E,mDAAmD;AACnD,iDAAyC;AACzC,4CAAoB;AACpB,wCAA4D;AAC5D,sCAA+C;AAC/C,mDAA0D;AAE1D,MAAM,MAAM,GAAG,WAAoB,CAAC;AAEpC;;;;;;;;;;;GAWG;AACH,SAAgB,YAAY,CAAC,MAAc,EAAE,OAAgB;IACzD,2EAA2E;IAC3E,4EAA4E;IAC5E,MAAM,MAAM,GAAG,mBAAW,GAAG,MAAM,CAAC;IACpC,MAAM,UAAU,GAAG,IAAA,kBAAQ,EAAC,KAAK,EAAE,aAAa,CAAC,CAAC;IAClD,YAAE,CAAC,aAAa,CAAC,UAAU,EAAE,MAAM,EAAE,OAAO,CAAC,CAAC;IAC9C,MAAM,EAAE,SAAS,EAAE,cAAc,EAAE,MAAM,EAAE,GAAG,IAAA,mBAAS,GAAE,CAAC;IAC1D,MAAM,gBAAgB,GAAG,OAAO,IAAI,SAAS,CAAC;IAC9C,MAAM,SAAS,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC;IAC7B,OAAO,IAAI,OAAO,CAAC,CAAC,OAAO,EAAE,MAAM,EAAE,EAAE;QACnC,IAAA,wBAAQ,EACJ,WAAW,EACX,CAAC,UAAU,CAAC,EACZ,EAAE,SAAS,EAAE,cAAc,EAAE,OAAO,EAAE,gBAAgB,EAAE,MAAM,EAAE,EAChE,CAAC,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,EAAE;YACtB,MAAM,UAAU,GAAG,IAAI,CAAC,GAAG,EAAE,GAAG,SAAS,CAAC;YAC1C,IAAI,CAAC;gBACD,YAAE,CAAC,UAAU,CAAC,UAAU,CAAC,CAAC;YAC9B,CAAC;YAAC,MAAM,CAAC,CAAC,YAAY;YACtB,CAAC;YACD,IAAI,KAAK,EAAE,CAAC;gBACR,2DAA2D;gBAC3D,iEAAiE;gBACjE,kEAAkE;gBAClE,kEAAkE;gBAClE,MAAM,GAAG,GAAG,CAAC,MAAM,IAAI,KAAK,CAAC,OAAO,CAAC;qBAChC,OAAO,CAAC,2CAA2C,EAAE,EAAE,CAAC;qBACxD,IAAI,EAAE,CAAC;gBACZ,MAAM,OAAO,GAAG,IAAA,2BAAkB,EAAC;oBAC/B,MAAM,EAAE,MAAM;oBACd,MAAM;oBACN,MAAM,EAAE,GAAG;oBACX,UAAU;oBACV,SAAS,EAAE,KAAK;oBAChB,SAAS,EAAE,gBAAgB;oBAC3B,MAAM;iBACT,CAAC,CAAC;gBACH,IAAA,mBAAS,EAAC,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,UAAU,EAAE,KAAK,EAAE,OAAO,CAAC,OAAO,EAAE,CAAC,CAAC;gBAC1E,MAAM,CAAC,OAAO,CAAC,CAAC;YACpB,CAAC;iBAAM,CAAC;gBACJ,IAAA,mBAAS,EAAC,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,UAAU,EAAE,CAAC,CAAC;gBAClD,OAAO,CAAC,MAAM,CAAC,OAAO,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,CAAC;YACvC,CAAC;QACL,CAAC,CACJ,CAAC;IACN,CAAC,CAAC,CAAC;AACP,CAAC;AAED,iFAAiF;AACjF,SAAgB,QAAQ,CAAC,CAAS;IAC9B,OAAO,CAAC;SACH,OAAO,CAAC,KAAK,EAAE,MAAM,CAAC;SACtB,OAAO,CAAC,IAAI,EAAE,KAAK,CAAC;SACpB,OAAO,CAAC,aAAa,EAAE,KAAK,CAAC,CAAC;AACvC,CAAC;AAED,sCAAsC;AACtC,SAAgB,MAAM,CAAC,KAAc;IACjC,OAAO,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO,CAAC;AACpC,CAAC;AAED,+EAA+E;AAC/E,2EAA2E;AAC3E,6EAA6E;AAC7E,4BAA4B;AACf,QAAA,SAAS,GAAG,QAAQ,CAAC;AACrB,QAAA,UAAU,GAAG,QAAQ,CAAC;AACtB,QAAA,QAAQ,GAAG,QAAQ,CAAC;AAEjC,kDAAkD;AACrC,QAAA,YAAY,GAAG,mBAAmB,CAAC;AACnC,QAAA,aAAa,GAAG,mBAAmB,CAAC;AACpC,QAAA,WAAW,GAAG,mBAAmB,CAAC;AAE/C;;;;;;;;GAQG;AACH,SAAgB,KAAK,CAAC,MAAyB;IAC3C,OAAO,MAAM;SACR,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,eAAe,CAAC,GAAG,CAAC;SAC7B,IAAI,CAAC,MAAM,oBAAY,KAAK,CAAC,GAAG,MAAM,qBAAa,EAAE,CAAC;AAC/D,CAAC;AAED;;;;;;;GAOG;AACU,QAAA,WAAW,GAAG;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;oCAmES,+BAAmB;;;;;;;;;;;;;;;;;;CAkBtD,CAAC;AAEF,6EAA6E;AAC7E,SAAgB,YAAY,CAAC,GAAW;IACpC,OAAO,GAAG,CAAC,KAAK,CAAC,kBAAU,CAAC,CAAC,MAAM,CAAC,MAAM,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,EAAE,KAAK,EAAE,CAAC,CAAC;AACxE,CAAC;AAED,wCAAwC;AACxC,SAAgB,WAAW,CAAC,MAAc;IACtC,OAAO,MAAM,CAAC,KAAK,CAAC,iBAAS,CAAC,CAAC;AACnC,CAAC;AAED,2CAA2C;AAC3C,SAAgB,SAAS,CAAC,KAAyB;IAC/C,OAAO,CAAC,KAAK,IAAI,EAAE,CAAC,CAAC,KAAK,CAAC,gBAAQ,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC;AACzD,CAAC;AAED,yDAAyD;AACzD,SAAgB,KAAK,CAAC,MAAyB,EAAE,KAAa;IAC1D,OAAO,MAAM,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC;AAC/B,CAAC;AAED;;;GAGG;AACH,SAAgB,aAAa,CAAC,GAAW;IACrC,OAAO,WAAW,CAAC,YAAY,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;AACnD,CAAC;AAED,2EAA2E;AAC3E,SAAgB,QAAQ,CAAC,MAAyB,EAAE,KAAa,EAAE,QAAQ,GAAG,CAAC;IAC3E,MAAM,MAAM,GAAG,MAAM,CAAC,QAAQ,CAAC,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC,EAAE,EAAE,CAAC,CAAC;IACzD,OAAO,MAAM,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAC;AACpD,CAAC;AAED;;;;GAIG;AACH,SAAgB,SAAS,CAAC,MAAyB,EAAE,KAAa;IAC9D,OAAO,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC,CAAC,IAAI,EAAE,KAAK,MAAM,CAAC;AAClD,CAAC"}
+{"version":3,"file":"run.js","sourceRoot":"","sources":["../../src/mac/run.ts"],"names":[],"mappings":";;;;;;AAkCA,oCAmBC;AAOD,4BAKC;AAGD,4BAEC;AAGD,wBAEC;AAGD,sBAKC;AAGD,4BAEC;AAuBD,sBAIC;AA6FD,oCAEC;AAGD,kCAEC;AAGD,8BAEC;AAGD,sBAEC;AAGD,sCAEC;AAGD,4BAGC;AAGD,8BAEC;AAjPD,oEAAoE;AACpE,EAAE;AACF,0EAA0E;AAC1E,0DAA0D;AAC1D,4CAAoB;AACpB,wCAAsE;AACtE,yCAAkD;AAClD,sCAAgD;AAChD,mDAA0D;AAE1D,MAAM,MAAM,GAAG,WAAoB,CAAC;AAEpC;;;;;GAKG;AACH,SAAS,YAAY,CAAC,MAAc;IAChC,MAAM,OAAO,GAAG,MAAM;SACjB,OAAO,CAAC,2CAA2C,EAAE,EAAE,CAAC;SACxD,OAAO,CAAC,kBAAkB,EAAE,EAAE,CAAC;SAC/B,IAAI,EAAE,CAAC;IACZ,OAAO,EAAC,OAAO,EAAC,CAAC;AACrB,CAAC;AAED;;;;;;;GAOG;AACI,KAAK,UAAU,YAAY,CAAC,MAAc,EAAE,MAAiB;IAChE,6EAA6E;IAC7E,qDAAqD;IACrD,MAAM,MAAM,GAAG,mBAAW,GAAG,MAAM,CAAC;IACpC,MAAM,IAAI,GAAG,IAAA,kBAAQ,EAAC,KAAK,EAAE,aAAa,CAAC,CAAC;IAC5C,YAAE,CAAC,aAAa,CAAC,IAAI,EAAE,MAAM,EAAE,MAAM,CAAC,CAAC;IACvC,IAAI,CAAC;QACD,MAAM,EAAC,MAAM,EAAC,GAAG,MAAM,IAAA,uBAAgB,EAAC;YACpC,MAAM,EAAE,MAAM;YACd,OAAO,EAAE,WAAW;YACpB,IAAI,EAAE,CAAC,IAAI,CAAC;YACZ,MAAM;YACN,MAAM;YACN,YAAY;SACf,CAAC,CAAC;QACH,OAAO,MAAM,CAAC,OAAO,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;IACrC,CAAC;YAAS,CAAC;QACP,IAAA,wBAAc,EAAC,IAAI,CAAC,CAAC;IACzB,CAAC;AACL,CAAC;AAED;;;;GAIG;AACH,SAAgB,QAAQ,CAAC,IAAY;IACjC,OAAO,IAAI;SACN,OAAO,CAAC,KAAK,EAAE,MAAM,CAAC;SACtB,OAAO,CAAC,IAAI,EAAE,KAAK,CAAC;SACpB,OAAO,CAAC,aAAa,EAAE,KAAK,CAAC,CAAC;AACvC,CAAC;AAED,6CAA6C;AAC7C,SAAgB,QAAQ,CAAC,IAAY;IACjC,OAAO,IAAI,QAAQ,CAAC,IAAI,CAAC,GAAG,CAAC;AACjC,CAAC;AAED,sCAAsC;AACtC,SAAgB,MAAM,CAAC,KAAc;IACjC,OAAO,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO,CAAC;AACpC,CAAC;AAED,oFAAoF;AACpF,SAAgB,KAAK,CAAC,KAAa;IAC/B,IAAI,CAAC,MAAM,CAAC,aAAa,CAAC,KAAK,CAAC,EAAE,CAAC;QAC/B,MAAM,IAAI,4BAAmB,CAAC,gCAAgC,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC;IACpF,CAAC;IACD,OAAO,MAAM,CAAC,KAAK,CAAC,CAAC;AACzB,CAAC;AAED,kFAAkF;AAClF,SAAgB,QAAQ,CAAC,GAAsB;IAC3C,OAAO,IAAI,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,CAAC,KAAK,CAAC,MAAM,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC;AAC9D,CAAC;AAED,4EAA4E;AAC5E,EAAE;AACF,2EAA2E;AAC3E,gFAAgF;AAChF,4EAA4E;AAC5E,wCAAwC;AAC3B,QAAA,SAAS,GAAG,GAAG,CAAC;AAChB,QAAA,UAAU,GAAG,GAAG,CAAC;AACjB,QAAA,QAAQ,GAAG,GAAG,CAAC;AAE5B,kDAAkD;AACrC,QAAA,YAAY,GAAG,mBAAmB,CAAC;AACnC,QAAA,aAAa,GAAG,mBAAmB,CAAC;AACpC,QAAA,WAAW,GAAG,mBAAmB,CAAC;AAE/C;;;;;GAKG;AACH,SAAgB,KAAK,CAAC,MAAyB;IAC3C,OAAO,MAAM;SACR,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,eAAe,CAAC,GAAG,CAAC;SAC7B,IAAI,CAAC,MAAM,oBAAY,KAAK,CAAC,GAAG,MAAM,qBAAa,EAAE,CAAC;AAC/D,CAAC;AAED;;;;;;GAMG;AACU,QAAA,WAAW,GAAG;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;oCA+DS,+BAAmB;;;;;;;;;;;;;;;;;;CAkBtD,CAAC;AAEF,oEAAoE;AACpE,SAAgB,YAAY,CAAC,GAAW;IACpC,OAAO,GAAG,CAAC,KAAK,CAAC,kBAAU,CAAC,CAAC,MAAM,CAAC,MAAM,CAAC,EAAE,CAAC,MAAM,CAAC,IAAI,EAAE,KAAK,EAAE,CAAC,CAAC;AACxE,CAAC;AAED,2BAA2B;AAC3B,SAAgB,WAAW,CAAC,MAAc;IACtC,OAAO,MAAM,CAAC,KAAK,CAAC,iBAAS,CAAC,CAAC;AACnC,CAAC;AAED,mCAAmC;AACnC,SAAgB,SAAS,CAAC,KAAyB;IAC/C,OAAO,CAAC,KAAK,IAAI,EAAE,CAAC,CAAC,KAAK,CAAC,gBAAQ,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC;AACzD,CAAC;AAED,wDAAwD;AACxD,SAAgB,KAAK,CAAC,MAAyB,EAAE,KAAa;IAC1D,OAAO,MAAM,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC;AAC/B,CAAC;AAED,yGAAyG;AACzG,SAAgB,aAAa,CAAC,GAAW;IACrC,OAAO,WAAW,CAAC,YAAY,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;AACnD,CAAC;AAED,6DAA6D;AAC7D,SAAgB,QAAQ,CAAC,MAAyB,EAAE,KAAa,EAAE,QAAQ,GAAG,CAAC;IAC3E,MAAM,MAAM,GAAG,MAAM,CAAC,QAAQ,CAAC,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC,EAAE,EAAE,CAAC,CAAC;IACzD,OAAO,MAAM,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAC;AACpD,CAAC;AAED,kFAAkF;AAClF,SAAgB,SAAS,CAAC,MAAyB,EAAE,KAAa;IAC9D,OAAO,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC,CAAC,IAAI,EAAE,KAAK,MAAM,CAAC;AAClD,CAAC","sourcesContent":["// Getting a generated AppleScript to osascript and its output back.\n//\n// The macOS counterpart of windows/run.ts: running a script, the escaping\n// rules, and the record framing every reader here shares.\nimport fs from 'fs';\nimport { removeTempFile, type RunBudget, tempFile } from '../runtime';\nimport { runScriptProcess } from '../shared/exec';\nimport { InvalidRequestError } from '../errors';\nimport { WORD_SECTION_ANCHOR } from '../shared/replyBody';\n\nconst RUNNER = 'osascript' as const;\n\n/**\n * osascript's report of a script error: \"<file>:<start>:<end>: execution error:\n * <message> (<number>)\". Only the message is worth showing — these reach people\n * in per-item failure lists — and -2700 is the number AppleScript gives every\n * `error \"…\"` a script raises itself.\n */\nfunction parseFailure(stderr: string): { message: string } {\n    const message = stderr\n        .replace(/^(?:.*?:)?\\d+:\\d+:\\s*execution error:\\s*/m, '')\n        .replace(/\\s*\\(-2700\\)\\s*$/, '')\n        .trim();\n    return {message};\n}\n\n/**\n * Run a script from a temp file (no argument-length or quoting limits) and\n * return what it printed, minus the newline osascript appends.\n *\n * `AS_HANDLERS` is prepended here rather than by each caller: a script missing\n * a handler fails to compile as a WHOLE, with an error pointing nowhere near the\n * omission, so it can't be left to each script to remember.\n */\nexport async function runOsaScript(source: string, budget: RunBudget): Promise<string> {\n    // The full text is what osascript compiles, so it is also what error offsets\n    // refer to and what the debug hook and errors carry.\n    const script = AS_HANDLERS + source;\n    const file = tempFile('osa', 'applescript');\n    fs.writeFileSync(file, script, 'utf8');\n    try {\n        const {stdout} = await runScriptProcess({\n            runner: RUNNER,\n            command: 'osascript',\n            args: [file],\n            script,\n            budget,\n            parseFailure,\n        });\n        return stdout.replace(/\\n$/, '');\n    } finally {\n        removeTempFile(file);\n    }\n}\n\n/**\n * Escape text for the inside of an AppleScript double-quoted literal.\n * AppleScript strings never interpolate, so escaping the quote, the backslash\n * and line breaks is the whole job.\n */\nexport function asEscape(text: string): string {\n    return text\n        .replace(/\\\\/g, '\\\\\\\\')\n        .replace(/\"/g, '\\\\\"')\n        .replace(/\\r\\n|\\r|\\n/g, '\\\\n');\n}\n\n/** Text as an AppleScript string literal. */\nexport function asString(text: string): string {\n    return `\"${asEscape(text)}\"`;\n}\n\n/** AppleScript's boolean literals. */\nexport function asBool(value: boolean): string {\n    return value ? 'true' : 'false';\n}\n\n/** A whole number for a script; anything else is refused before it becomes code. */\nexport function asInt(value: number): string {\n    if (!Number.isSafeInteger(value)) {\n        throw new InvalidRequestError(`Expected a whole number, got ${String(value)}.`);\n    }\n    return String(value);\n}\n\n/** Message ids (already validated as integers) as an AppleScript list literal. */\nexport function asIdList(ids: readonly string[]): string {\n    return `{${ids.map(id => asInt(Number(id))).join(', ')}}`;\n}\n\n// ── Record framing ───────────────────────────────────────────────────────\n//\n// Control characters separate fields, records and list items: subjects and\n// bodies contain tabs, newlines and commas, but never these — and every emitted\n// field passes through the `sanitize` handler, which makes the framing safe\n// rather than merely unlikely to break.\nexport const FIELD_SEP = '\u001f';\nexport const RECORD_SEP = '\u001e';\nexport const LIST_SEP = '\u001d';\n\n/** The same three, as AppleScript expressions. */\nexport const AS_FIELD_SEP = '(character id 31)';\nexport const AS_RECORD_SEP = '(character id 30)';\nexport const AS_LIST_SEP = '(character id 29)';\n\n/**\n * One record: the AppleScript expressions in `fields`, separated and terminated\n * so `splitRecords`/`splitFields` can take them apart again. A field holding a\n * LIST must be built with `my sanitizeList(...)`, which cleans the elements —\n * `sanitize` deliberately leaves the list separator alone.\n */\nexport function asRow(fields: readonly string[]): string {\n    return fields\n        .map(f => `my sanitize(${f})`)\n        .join(` & ${AS_FIELD_SEP} & `) + ` & ${AS_RECORD_SEP}`;\n}\n\n/**\n * The handlers every script relies on, called with `my` from inside a `tell`.\n *\n * `isoDate` produces the zero-padded 'yyyy-MM-dd HH:mm' both platforms return;\n * `sanitize` strips the framing characters; `joinList` and `replaceText` are the\n * text-item-delimiter dance nobody should write twice.\n */\nexport const AS_HANDLERS = `\non pad2(n)\n    set s to (n as integer) as string\n    if (length of s) < 2 then set s to \"0\" & s\n    return s\nend pad2\n\non isoDate(d)\n    if d is missing value then return \"\"\n    return (year of d as string) & \"-\" & pad2(month of d as integer) & \"-\" & pad2(day of d) & \" \" & pad2(hours of d) & \":\" & pad2(minutes of d)\nend isoDate\n\non joinList(lst, sep)\n    set saved to AppleScript's text item delimiters\n    set AppleScript's text item delimiters to sep\n    set out to lst as string\n    set AppleScript's text item delimiters to saved\n    return out\nend joinList\n\non replaceText(t, findWhat, replaceWith)\n    set saved to AppleScript's text item delimiters\n    set AppleScript's text item delimiters to findWhat\n    set parts to text items of t\n    set AppleScript's text item delimiters to replaceWith\n    set out to parts as string\n    set AppleScript's text item delimiters to saved\n    return out\nend replaceText\n\n-- Strips the FIELD and RECORD separators only. The LIST separator is left\n-- alone on purpose: a field may legitimately BE a list.\non sanitize(v)\n    if v is missing value then return \"\"\n    set t to v as string\n    repeat with codePoint in {30, 31}\n        set marker to (character id (codePoint as integer))\n        if t contains marker then set t to my replaceText(t, marker, \" \")\n    end repeat\n    return t\nend sanitize\n\n-- A list field: each element loses all three separators, then they are joined\n-- with the LIST separator that splitList() takes them apart on.\non sanitizeList(lst)\n    set cleaned to {}\n    repeat with item_ in lst\n        set t to my sanitize(item_)\n        set marker to (character id 29)\n        if t contains marker then set t to my replaceText(t, marker, \" \")\n        set end of cleaned to t\n    end repeat\n    return my joinList(cleaned, (character id 29))\nend sanitizeList\n\non insertAboveQuoted(c, ins)\n    if c is missing value then return ins\n    set c to c as string\n    if (length of c) is 0 then return ins\n    -- A reply's own empty paragraph sits inside WordSection1; inserting straight\n    -- after that tag puts the new text where the cursor would be. Anything else\n    -- falls back to just inside <body>. ('at' is a reserved parameter name, so\n    -- the cut point can't be called that.)\n    set cutPoint to my tagEnd(c, \"${WORD_SECTION_ANCHOR}\")\n    if cutPoint is 0 then set cutPoint to my tagEnd(c, \"<body\")\n    if cutPoint is 0 then return ins & c\n    if cutPoint is (length of c) then return c & ins\n    return (text 1 thru cutPoint of c) & ins & (text (cutPoint + 1) thru -1 of c)\nend insertAboveQuoted\n\n-- 'rest' is an AppleScript term, so the remainder can't be called that:\n-- assigning to it compiles and then fails at run time.\non tagEnd(c, marker)\n    set ix to offset of marker in c\n    if ix is 0 then return 0\n    if marker ends with \">\" then return ix + (length of marker) - 1\n    set tailText to text ix thru -1 of c\n    set gt to offset of \">\" in tailText\n    if gt is 0 then return 0\n    return ix + gt - 1\nend tagEnd\n`;\n\n/** A script's output as records, without the trailing empty one. */\nexport function splitRecords(raw: string): string[] {\n    return raw.split(RECORD_SEP).filter(record => record.trim() !== '');\n}\n\n/** One record's fields. */\nexport function splitFields(record: string): string[] {\n    return record.split(FIELD_SEP);\n}\n\n/** A field that carries a list. */\nexport function splitList(value: string | undefined): string[] {\n    return (value || '').split(LIST_SEP).filter(Boolean);\n}\n\n/** A field by position; a missing field reads as ''. */\nexport function field(fields: readonly string[], index: number): string {\n    return fields[index] ?? '';\n}\n\n/** The fields of a script's first record — the summary a mutation returns ahead of any per-item rows. */\nexport function summaryFields(raw: string): string[] {\n    return splitFields(splitRecords(raw)[0] ?? '');\n}\n\n/** A numeric field, `fallback` when absent or unparsable. */\nexport function intField(fields: readonly string[], index: number, fallback = 0): number {\n    const parsed = Number.parseInt(field(fields, index), 10);\n    return Number.isNaN(parsed) ? fallback : parsed;\n}\n\n/** A boolean field; AppleScript renders booleans as the bare words true/false. */\nexport function boolField(fields: readonly string[], index: number): boolean {\n    return field(fields, index).trim() === 'true';\n}\n"]}