@brett_lamy/docstream 1.10.0 → 1.12.0

package/dist/strudel/ast/mini.js

@@ -0,0 +1,269 @@
+/* Strudel mini-notation ("bd*2 [~ sd] <c e g>") as a syntax tree with source ranges.
+   Written from the grammar Strudel documents (krill), not from its parser: every node carries `start`/`end`
+   offsets into the string it was parsed from, so tools can rewrite exactly the characters a node covers. */
+export class MiniSyntaxError extends Error {
+    offset;
+    constructor(message, offset) {
+        super(`${message} at ${offset}`);
+        this.offset = offset;
+        this.name = "MiniSyntaxError";
+    }
+}
+const WS = /[ \n\r\t ]/;
+const WORD = /[\p{L}\p{Nl}0-9~\-#.^_]/u;
+const NUMBER = /^-?(?:0|[1-9][0-9]*)(?:\.[0-9]+)?(?:[eE][-+]?[0-9]+)?/;
+/** Parse a mini-notation string. Throws `MiniSyntaxError` (with the offset) on invalid input. */
+export function parseMini(source) {
+    let i = 0;
+    const peek = (n = 0) => source[i + n] ?? "";
+    const skip = () => {
+        while (i < source.length && WS.test(source[i]))
+            i++;
+    };
+    const fail = (what) => {
+        throw new MiniSyntaxError(i < source.length ? `Unexpected "${source[i]}", expected ${what}` : `Expected ${what}`, i);
+    };
+    const expect = (ch) => {
+        skip();
+        if (peek() !== ch)
+            fail(`"${ch}"`);
+        i++;
+    };
+    const number = () => {
+        const m = NUMBER.exec(source.slice(i));
+        if (!m)
+            return null;
+        i += m[0].length;
+        return parseFloat(m[0]);
+    };
+    // A separator `.` (feet) is a lone dot between spaces; inside a word it is part of the word ("0.5", "a.b").
+    const atFeetDot = () => peek() === "." && peek(1) !== "." && (i === 0 || WS.test(source[i - 1])) && (peek(1) === "" || WS.test(peek(1)));
+    function word() {
+        const start = i;
+        while (i < source.length && WORD.test(source[i])) {
+            // ".." starts a range operator, not part of the word.
+            if (source[i] === "." && source[i + 1] === ".")
+                break;
+            i++;
+        }
+        const value = source.slice(start, i);
+        if (!value)
+            return null;
+        if (value === "." || value === "_") {
+            i = start;
+            return null;
+        }
+        return { type: "atom", value, rest: value === "~" || value === "-", start, end: i };
+    }
+    function slice() {
+        skip();
+        const start = i;
+        const ch = peek();
+        if (ch === "[") {
+            i++;
+            const body = group(["]"]);
+            expect("]");
+            return { type: "subcycle", body, start, end: i };
+        }
+        if (ch === "<") {
+            i++;
+            const layers = commaLayers([">"]);
+            expect(">");
+            return { type: "alternation", layers, start, end: i };
+        }
+        if (ch === "{") {
+            i++;
+            const layers = commaLayers(["}"]);
+            expect("}");
+            let steps = null;
+            if (peek() === "%") {
+                i++;
+                steps = bare() ?? fail("a step count after %");
+            }
+            return { type: "polymeter", layers, steps, start, end: i };
+        }
+        if (atFeetDot())
+            return null;
+        return word();
+    }
+    // `*`, `/`, `:`, `..` and `%` take a bare slice: in "bd*2!" the `!` replicates bd, not 2.
+    function bare() {
+        const s = slice();
+        return s && { type: "step", slice: s, ops: [], start: s.start, end: s.end };
+    }
+    // A slice with its operators. `@`, `_` and `!` may stand apart ("a _ _", "a ! !"); the rest attach directly.
+    function step() {
+        const s = slice();
+        if (!s)
+            return null;
+        const ops = [];
+        for (;;) {
+            const before = i;
+            skip();
+            const start = i;
+            const ch = peek();
+            if (ch === "@" || (ch === "_" && !WORD.test(peek(1)))) {
+                i++;
+                ops.push({ op: "weight", amount: ch === "@" ? number() : null, start, end: i });
+                continue;
+            }
+            if (ch === "!") {
+                i++;
+                ops.push({ op: "replicate", count: number(), start, end: i });
+                continue;
+            }
+            i = before;
+            const at = i;
+            const c = peek();
+            if (c === "*" || c === "/") {
+                i++;
+                const amount = bare() ?? fail("an amount");
+                ops.push({ op: c === "*" ? "fast" : "slow", amount, start: at, end: i });
+            }
+            else if (c === "?") {
+                i++;
+                ops.push({ op: "degrade", amount: number(), start: at, end: i });
+            }
+            else if (c === ":") {
+                i++;
+                const value = bare() ?? fail("a value after :");
+                ops.push({ op: "tail", value, start: at, end: i });
+            }
+            else if (c === "." && peek(1) === ".") {
+                i += 2;
+                const to = bare() ?? fail("a range end");
+                ops.push({ op: "range", to, start: at, end: i });
+            }
+            else if (c === "(") {
+                i++;
+                const pulses = step() ?? fail("pulses");
+                expect(",");
+                const steps = step() ?? fail("steps");
+                skip();
+                let rotation = null;
+                if (peek() === ",") {
+                    i++;
+                    rotation = step();
+                }
+                expect(")");
+                ops.push({ op: "euclid", pulses, steps, rotation, start: at, end: i });
+            }
+            else {
+                break;
+            }
+        }
+        return { type: "step", slice: s, ops, start: s.start, end: i };
+    }
+    function sequence(closers) {
+        skip();
+        const start = i;
+        let marked = false;
+        if (peek() === "^") {
+            marked = true;
+            i++;
+        }
+        const steps = [];
+        for (;;) {
+            skip();
+            const ch = peek();
+            if (!ch || closers.includes(ch) || ch === "," || ch === "|" || atFeetDot())
+                break;
+            const s = step();
+            if (!s)
+                fail("a step");
+            steps.push(s);
+        }
+        if (!steps.length)
+            fail("a step");
+        return { type: "sequence", steps, marked, start, end: steps[steps.length - 1].end };
+    }
+    function commaLayers(closers) {
+        const layers = [sequence(closers)];
+        for (;;) {
+            skip();
+            if (peek() !== ",")
+                return layers;
+            i++;
+            layers.push(sequence(closers));
+        }
+    }
+    function group(closers) {
+        const first = sequence(closers);
+        skip();
+        const sep = atFeetDot() ? "." : peek();
+        if (sep !== "," && sep !== "|" && sep !== ".")
+            return first;
+        const type = sep === "," ? "stack" : sep === "|" ? "choose" : "feet";
+        const layers = [first];
+        for (;;) {
+            skip();
+            const next = atFeetDot() ? "." : peek();
+            if (next !== sep)
+                break;
+            i++;
+            layers.push(sequence(closers));
+        }
+        return { type, layers, start: first.start, end: layers[layers.length - 1].end };
+    }
+    const root = group([]);
+    skip();
+    if (i < source.length)
+        fail("end of pattern");
+    return root;
+}
+/**
+ * Every atom in the tree, in source order. `{ ops: false }` skips operator arguments (the 2 in `bd*2`, the 3,8
+ * in `bd(3,8)`), leaving only the values the pattern plays.
+ */
+export function miniAtoms(node, { ops = true } = {}) {
+    const out = [];
+    const visit = (n) => {
+        if (!n)
+            return;
+        if ("op" in n) {
+            if (!ops)
+                return;
+            if (n.op === "fast" || n.op === "slow")
+                visit(n.amount);
+            else if (n.op === "euclid")
+                (visit(n.pulses), visit(n.steps), visit(n.rotation));
+            else if (n.op === "tail")
+                visit(n.value);
+            else if (n.op === "range")
+                visit(n.to);
+            return;
+        }
+        switch (n.type) {
+            case "atom":
+                out.push(n);
+                break;
+            case "step":
+                visit(n.slice);
+                n.ops.forEach(visit);
+                break;
+            case "sequence":
+                n.steps.forEach(visit);
+                break;
+            case "stack":
+            case "choose":
+            case "feet":
+            case "alternation":
+                n.layers.forEach(visit);
+                break;
+            case "polymeter":
+                n.layers.forEach(visit);
+                visit(n.steps);
+                break;
+            case "subcycle":
+                visit(n.body);
+                break;
+        }
+    };
+    visit(node);
+    return out;
+}
+/** The layers of a group: a sequence is one layer. */
+export function miniLayers(group) {
+    return group.type === "sequence" ? [group] : group.layers;
+}
+//# sourceMappingURL=mini.js.map

package/dist/strudel/ast/mini.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"mini.js","sourceRoot":"","sources":["../../../src/strudel/ast/mini.ts"],"names":[],"mappings":"AAAA;;4GAE4G;AAmE5G,MAAM,OAAO,eAAgB,SAAQ,KAAK;IACF;IAAtC,YAAY,OAAe,EAAW,MAAc;QAClD,KAAK,CAAC,GAAG,OAAO,OAAO,MAAM,EAAE,CAAC,CAAA;QADI,WAAM,GAAN,MAAM,CAAQ;QAElD,IAAI,CAAC,IAAI,GAAG,iBAAiB,CAAA;IAC/B,CAAC;CACF;AAED,MAAM,EAAE,GAAG,YAAY,CAAA;AACvB,MAAM,IAAI,GAAG,0BAA0B,CAAA;AACvC,MAAM,MAAM,GAAG,uDAAuD,CAAA;AAEtE,iGAAiG;AACjG,MAAM,UAAU,SAAS,CAAC,MAAc;IACtC,IAAI,CAAC,GAAG,CAAC,CAAA;IACT,MAAM,IAAI,GAAG,CAAC,CAAC,GAAG,CAAC,EAAE,EAAE,CAAC,MAAM,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,CAAA;IAC3C,MAAM,IAAI,GAAG,GAAG,EAAE;QAChB,OAAO,CAAC,GAAG,MAAM,CAAC,MAAM,IAAI,EAAE,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,CAAE,CAAC;YAAE,CAAC,EAAE,CAAA;IACtD,CAAC,CAAA;IACD,MAAM,IAAI,GAAG,CAAC,IAAY,EAAS,EAAE;QACnC,MAAM,IAAI,eAAe,CAAC,CAAC,GAAG,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC,eAAe,MAAM,CAAC,CAAC,CAAC,eAAe,IAAI,EAAE,CAAC,CAAC,CAAC,YAAY,IAAI,EAAE,EAAE,CAAC,CAAC,CAAA;IACtH,CAAC,CAAA;IACD,MAAM,MAAM,GAAG,CAAC,EAAU,EAAE,EAAE;QAC5B,IAAI,EAAE,CAAA;QACN,IAAI,IAAI,EAAE,KAAK,EAAE;YAAE,IAAI,CAAC,IAAI,EAAE,GAAG,CAAC,CAAA;QAClC,CAAC,EAAE,CAAA;IACL,CAAC,CAAA;IACD,MAAM,MAAM,GAAG,GAAkB,EAAE;QACjC,MAAM,CAAC,GAAG,MAAM,CAAC,IAAI,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAA;QACtC,IAAI,CAAC,CAAC;YAAE,OAAO,IAAI,CAAA;QACnB,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAA;QAChB,OAAO,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAA;IACzB,CAAC,CAAA;IACD,4GAA4G;IAC5G,MAAM,SAAS,GAAG,GAAG,EAAE,CAAC,IAAI,EAAE,KAAK,GAAG,IAAI,IAAI,CAAC,CAAC,CAAC,KAAK,GAAG,IAAI,CAAC,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,GAAG,CAAC,CAAE,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,KAAK,EAAE,IAAI,EAAE,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAA;IAEzI,SAAS,IAAI;QACX,MAAM,KAAK,GAAG,CAAC,CAAA;QACf,OAAO,CAAC,GAAG,MAAM,CAAC,MAAM,IAAI,IAAI,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,CAAE,CAAC,EAAE,CAAC;YAClD,sDAAsD;YACtD,IAAI,MAAM,CAAC,CAAC,CAAC,KAAK,GAAG,IAAI,MAAM,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,GAAG;gBAAE,MAAK;YACrD,CAAC,EAAE,CAAA;QACL,CAAC;QACD,MAAM,KAAK,GAAG,MAAM,CAAC,KAAK,CAAC,KAAK,EAAE,CAAC,CAAC,CAAA;QACpC,IAAI,CAAC,KAAK;YAAE,OAAO,IAAI,CAAA;QACvB,IAAI,KAAK,KAAK,GAAG,IAAI,KAAK,KAAK,GAAG,EAAE,CAAC;YACnC,CAAC,GAAG,KAAK,CAAA;YACT,OAAO,IAAI,CAAA;QACb,CAAC;QACD,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,KAAK,GAAG,IAAI,KAAK,KAAK,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE,CAAC,EAAE,CAAA;IACrF,CAAC;IAED,SAAS,KAAK;QACZ,IAAI,EAAE,CAAA;QACN,MAAM,KAAK,GAAG,CAAC,CAAA;QACf,MAAM,EAAE,GAAG,IAAI,EAAE,CAAA;QACjB,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;YACf,CAAC,EAAE,CAAA;YACH,MAAM,IAAI,GAAG,KAAK,CAAC,CAAC,GAAG,CAAC,CAAC,CAAA;YACzB,MAAM,CAAC,GAAG,CAAC,CAAA;YACX,OAAO,EAAE,IAAI,EAAE,UAAU,EAAE,IAAI,EAAE,KAAK,EAAE,GAAG,EAAE,CAAC,EAAE,CAAA;QAClD,CAAC;QACD,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;YACf,CAAC,EAAE,CAAA;YACH,MAAM,MAAM,GAAG,WAAW,CAAC,CAAC,GAAG,CAAC,CAAC,CAAA;YACjC,MAAM,CAAC,GAAG,CAAC,CAAA;YACX,OAAO,EAAE,IAAI,EAAE,aAAa,EAAE,MAAM,EAAE,KAAK,EAAE,GAAG,EAAE,CAAC,EAAE,CAAA;QACvD,CAAC;QACD,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;YACf,CAAC,EAAE,CAAA;YACH,MAAM,MAAM,GAAG,WAAW,CAAC,CAAC,GAAG,CAAC,CAAC,CAAA;YACjC,MAAM,CAAC,GAAG,CAAC,CAAA;YACX,IAAI,KAAK,GAAoB,IAAI,CAAA;YACjC,IAAI,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;gBACnB,CAAC,EAAE,CAAA;gBACH,KAAK,GAAG,IAAI,EAAE,IAAI,IAAI,CAAC,sBAAsB,CAAC,CAAA;YAChD,CAAC;YACD,OAAO,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,EAAE,KAAK,EAAE,KAAK,EAAE,GAAG,EAAE,CAAC,EAAE,CAAA;QAC5D,CAAC;QACD,IAAI,SAAS,EAAE;YAAE,OAAO,IAAI,CAAA;QAC5B,OAAO,IAAI,EAAE,CAAA;IACf,CAAC;IAED,0FAA0F;IAC1F,SAAS,IAAI;QACX,MAAM,CAAC,GAAG,KAAK,EAAE,CAAA;QACjB,OAAO,CAAC,IAAI,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,CAAC,EAAE,GAAG,EAAE,EAAE,EAAE,KAAK,EAAE,CAAC,CAAC,KAAK,EAAE,GAAG,EAAE,CAAC,CAAC,GAAG,EAAE,CAAA;IAC7E,CAAC;IAED,6GAA6G;IAC7G,SAAS,IAAI;QACX,MAAM,CAAC,GAAG,KAAK,EAAE,CAAA;QACjB,IAAI,CAAC,CAAC;YAAE,OAAO,IAAI,CAAA;QACnB,MAAM,GAAG,GAAa,EAAE,CAAA;QACxB,SAAS,CAAC;YACR,MAAM,MAAM,GAAG,CAAC,CAAA;YAChB,IAAI,EAAE,CAAA;YACN,MAAM,KAAK,GAAG,CAAC,CAAA;YACf,MAAM,EAAE,GAAG,IAAI,EAAE,CAAA;YACjB,IAAI,EAAE,KAAK,GAAG,IAAI,CAAC,EAAE,KAAK,GAAG,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;gBACtD,CAAC,EAAE,CAAA;gBACH,GAAG,CAAC,IAAI,CAAC,EAAE,EAAE,EAAE,QAAQ,EAAE,MAAM,EAAE,EAAE,KAAK,GAAG,CAAC,CAAC,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,GAAG,EAAE,CAAC,EAAE,CAAC,CAAA;gBAC/E,SAAQ;YACV,CAAC;YACD,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;gBACf,CAAC,EAAE,CAAA;gBACH,GAAG,CAAC,IAAI,CAAC,EAAE,EAAE,EAAE,WAAW,EAAE,KAAK,EAAE,MAAM,EAAE,EAAE,KAAK,EAAE,GAAG,EAAE,CAAC,EAAE,CAAC,CAAA;gBAC7D,SAAQ;YACV,CAAC;YACD,CAAC,GAAG,MAAM,CAAA;YACV,MAAM,EAAE,GAAG,CAAC,CAAA;YACZ,MAAM,CAAC,GAAG,IAAI,EAAE,CAAA;YAChB,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;gBAC3B,CAAC,EAAE,CAAA;gBACH,MAAM,MAAM,GAAG,IAAI,EAAE,IAAI,IAAI,CAAC,WAAW,CAAC,CAAA;gBAC1C,GAAG,CAAC,IAAI,CAAC,EAAE,EAAE,EAAE,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,MAAM,EAAE,MAAM,EAAE,KAAK,EAAE,EAAE,EAAE,GAAG,EAAE,CAAC,EAAE,CAAC,CAAA;YAC1E,CAAC;iBAAM,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;gBACrB,CAAC,EAAE,CAAA;gBACH,GAAG,CAAC,IAAI,CAAC,EAAE,EAAE,EAAE,SAAS,EAAE,MAAM,EAAE,MAAM,EAAE,EAAE,KAAK,EAAE,EAAE,EAAE,GAAG,EAAE,CAAC,EAAE,CAAC,CAAA;YAClE,CAAC;iBAAM,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;gBACrB,CAAC,EAAE,CAAA;gBACH,MAAM,KAAK,GAAG,IAAI,EAAE,IAAI,IAAI,CAAC,iBAAiB,CAAC,CAAA;gBAC/C,GAAG,CAAC,IAAI,CAAC,EAAE,EAAE,EAAE,MAAM,EAAE,KAAK,EAAE,KAAK,EAAE,EAAE,EAAE,GAAG,EAAE,CAAC,EAAE,CAAC,CAAA;YACpD,CAAC;iBAAM,IAAI,CAAC,KAAK,GAAG,IAAI,IAAI,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;gBACxC,CAAC,IAAI,CAAC,CAAA;gBACN,MAAM,EAAE,GAAG,IAAI,EAAE,IAAI,IAAI,CAAC,aAAa,CAAC,CAAA;gBACxC,GAAG,CAAC,IAAI,CAAC,EAAE,EAAE,EAAE,OAAO,EAAE,EAAE,EAAE,KAAK,EAAE,EAAE,EAAE,GAAG,EAAE,CAAC,EAAE,CAAC,CAAA;YAClD,CAAC;iBAAM,IAAI,CAAC,KAAK,GAAG,EAAE,CAAC;gBACrB,CAAC,EAAE,CAAA;gBACH,MAAM,MAAM,GAAG,IAAI,EAAE,IAAI,IAAI,CAAC,QAAQ,CAAC,CAAA;gBACvC,MAAM,CAAC,GAAG,CAAC,CAAA;gBACX,MAAM,KAAK,GAAG,IAAI,EAAE,IAAI,IAAI,CAAC,OAAO,CAAC,CAAA;gBACrC,IAAI,EAAE,CAAA;gBACN,IAAI,QAAQ,GAAoB,IAAI,CAAA;gBACpC,IAAI,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;oBACnB,CAAC,EAAE,CAAA;oBACH,QAAQ,GAAG,IAAI,EAAE,CAAA;gBACnB,CAAC;gBACD,MAAM,CAAC,GAAG,CAAC,CAAA;gBACX,GAAG,CAAC,IAAI,CAAC,EAAE,EAAE,EAAE,QAAQ,EAAE,MAAM,EAAE,KAAK,EAAE,QAAQ,EAAE,KAAK,EAAE,EAAE,EAAE,GAAG,EAAE,CAAC,EAAE,CAAC,CAAA;YACxE,CAAC;iBAAM,CAAC;gBACN,MAAK;YACP,CAAC;QACH,CAAC;QACD,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,CAAC,EAAE,GAAG,EAAE,KAAK,EAAE,CAAC,CAAC,KAAK,EAAE,GAAG,EAAE,CAAC,EAAE,CAAA;IAChE,CAAC;IAED,SAAS,QAAQ,CAAC,OAAiB;QACjC,IAAI,EAAE,CAAA;QACN,MAAM,KAAK,GAAG,CAAC,CAAA;QACf,IAAI,MAAM,GAAG,KAAK,CAAA;QAClB,IAAI,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;YACnB,MAAM,GAAG,IAAI,CAAA;YACb,CAAC,EAAE,CAAA;QACL,CAAC;QACD,MAAM,KAAK,GAAe,EAAE,CAAA;QAC5B,SAAS,CAAC;YACR,IAAI,EAAE,CAAA;YACN,MAAM,EAAE,GAAG,IAAI,EAAE,CAAA;YACjB,IAAI,CAAC,EAAE,IAAI,OAAO,CAAC,QAAQ,CAAC,EAAE,CAAC,IAAI,EAAE,KAAK,GAAG,IAAI,EAAE,KAAK,GAAG,IAAI,SAAS,EAAE;gBAAE,MAAK;YACjF,MAAM,CAAC,GAAG,IAAI,EAAE,CAAA;YAChB,IAAI,CAAC,CAAC;gBAAE,IAAI,CAAC,QAAQ,CAAC,CAAA;YACtB,KAAK,CAAC,IAAI,CAAC,CAAE,CAAC,CAAA;QAChB,CAAC;QACD,IAAI,CAAC,KAAK,CAAC,MAAM;YAAE,IAAI,CAAC,QAAQ,CAAC,CAAA;QACjC,OAAO,EAAE,IAAI,EAAE,UAAU,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,EAAE,GAAG,EAAE,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAE,CAAC,GAAG,EAAE,CAAA;IACtF,CAAC;IAED,SAAS,WAAW,CAAC,OAAiB;QACpC,MAAM,MAAM,GAAG,CAAC,QAAQ,CAAC,OAAO,CAAC,CAAC,CAAA;QAClC,SAAS,CAAC;YACR,IAAI,EAAE,CAAA;YACN,IAAI,IAAI,EAAE,KAAK,GAAG;gBAAE,OAAO,MAAM,CAAA;YACjC,CAAC,EAAE,CAAA;YACH,MAAM,CAAC,IAAI,CAAC,QAAQ,CAAC,OAAO,CAAC,CAAC,CAAA;QAChC,CAAC;IACH,CAAC;IAED,SAAS,KAAK,CAAC,OAAiB;QAC9B,MAAM,KAAK,GAAG,QAAQ,CAAC,OAAO,CAAC,CAAA;QAC/B,IAAI,EAAE,CAAA;QACN,MAAM,GAAG,GAAG,SAAS,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,CAAA;QACtC,IAAI,GAAG,KAAK,GAAG,IAAI,GAAG,KAAK,GAAG,IAAI,GAAG,KAAK,GAAG;YAAE,OAAO,KAAK,CAAA;QAC3D,MAAM,IAAI,GAAG,GAAG,KAAK,GAAG,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,GAAG,KAAK,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAA;QACpE,MAAM,MAAM,GAAG,CAAC,KAAK,CAAC,CAAA;QACtB,SAAS,CAAC;YACR,IAAI,EAAE,CAAA;YACN,MAAM,IAAI,GAAG,SAAS,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,CAAA;YACvC,IAAI,IAAI,KAAK,GAAG;gBAAE,MAAK;YACvB,CAAC,EAAE,CAAA;YACH,MAAM,CAAC,IAAI,CAAC,QAAQ,CAAC,OAAO,CAAC,CAAC,CAAA;QAChC,CAAC;QACD,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,KAAK,CAAC,KAAK,EAAE,GAAG,EAAE,MAAM,CAAC,MAAM,CAAC,MAAM,GAAG,CAAC,CAAE,CAAC,GAAG,EAAE,CAAA;IAClF,CAAC;IAED,MAAM,IAAI,GAAG,KAAK,CAAC,EAAE,CAAC,CAAA;IACtB,IAAI,EAAE,CAAA;IACN,IAAI,CAAC,GAAG,MAAM,CAAC,MAAM;QAAE,IAAI,CAAC,gBAAgB,CAAC,CAAA;IAC7C,OAAO,IAAI,CAAA;AACb,CAAC;AAED;;;GAGG;AACH,MAAM,UAAU,SAAS,CAAC,IAAc,EAAE,EAAE,GAAG,GAAG,IAAI,KAAwB,EAAE;IAC9E,MAAM,GAAG,GAAe,EAAE,CAAA;IAC1B,MAAM,KAAK,GAAG,CAAC,CAAuC,EAAE,EAAE;QACxD,IAAI,CAAC,CAAC;YAAE,OAAM;QACd,IAAI,IAAI,IAAI,CAAC,EAAE,CAAC;YACd,IAAI,CAAC,GAAG;gBAAE,OAAM;YAChB,IAAI,CAAC,CAAC,EAAE,KAAK,MAAM,IAAI,CAAC,CAAC,EAAE,KAAK,MAAM;gBAAE,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,CAAA;iBAClD,IAAI,CAAC,CAAC,EAAE,KAAK,QAAQ;gBAAE,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,EAAE,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,EAAE,KAAK,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAA;iBAC3E,IAAI,CAAC,CAAC,EAAE,KAAK,MAAM;gBAAE,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,CAAA;iBACnC,IAAI,CAAC,CAAC,EAAE,KAAK,OAAO;gBAAE,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC,CAAA;YACtC,OAAM;QACR,CAAC;QACD,QAAQ,CAAC,CAAC,IAAI,EAAE,CAAC;YACf,KAAK,MAAM;gBACT,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAA;gBACX,MAAK;YACP,KAAK,MAAM;gBACT,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,CAAA;gBACd,CAAC,CAAC,GAAG,CAAC,OAAO,CAAC,KAAK,CAAC,CAAA;gBACpB,MAAK;YACP,KAAK,UAAU;gBACb,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAA;gBACtB,MAAK;YACP,KAAK,OAAO,CAAC;YACb,KAAK,QAAQ,CAAC;YACd,KAAK,MAAM,CAAC;YACZ,KAAK,aAAa;gBAChB,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,KAAK,CAAC,CAAA;gBACvB,MAAK;YACP,KAAK,WAAW;gBACd,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,KAAK,CAAC,CAAA;gBACvB,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,CAAA;gBACd,MAAK;YACP,KAAK,UAAU;gBACb,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,CAAA;gBACb,MAAK;QACT,CAAC;IACH,CAAC,CAAA;IACD,KAAK,CAAC,IAAI,CAAC,CAAA;IACX,OAAO,GAAG,CAAA;AACZ,CAAC;AAED,sDAAsD;AACtD,MAAM,UAAU,UAAU,CAAC,KAAgB;IACzC,OAAO,KAAK,CAAC,IAAI,KAAK,UAAU,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,MAAM,CAAA;AAC3D,CAAC"}

package/dist/strudel/ast/program.d.ts

@@ -0,0 +1,93 @@
+import { type Node as AcornNode } from "acorn";
+import { MiniSyntaxError, type MiniGroup, type Range } from "./mini.js";
+export type { Range };
+export type StrudelArg = Range & ({
+    kind: "number";
+    value: number;
+}
+/** A double-quoted or backtick string: mini-notation. `mini` is null when it doesn't parse (see `error`). */
+ | {
+    kind: "mini";
+    source: string;
+    contentStart: number;
+    mini: MiniGroup | null;
+    error: MiniSyntaxError | null;
+}
+/** A single-quoted string: plain JavaScript text, as in the Strudel REPL. */
+ | {
+    kind: "string";
+    value: string;
+}
+/** A nested pattern or signal expression, e.g. `sine.range(200, 800).slow(4)`. */
+ | {
+    kind: "pattern";
+    chain: StrudelChain;
+} | {
+    kind: "function";
+    text: string;
+} | {
+    kind: "other";
+    text: string;
+});
+export interface StrudelCall extends Range {
+    name: string;
+    nameRange: Range;
+    args: StrudelArg[];
+    /** Between the parentheses (empty for a property access such as `.p1`). */
+    argsRange: Range;
+    /** `.name(args)` including the dot: delete it to remove the method from its chain. */
+    methodRange: Range;
+}
+export interface StrudelChain extends Range {
+    /** The call or identifier the chain starts from (`s("bd")`, `sine`, `"c e"`). */
+    head: StrudelCall | (Range & {
+        name: string;
+        literal?: StrudelArg;
+    });
+    methods: StrudelCall[];
+}
+export type TrackKind = "drums" | "melodic" | "other";
+export interface StrudelTrack extends Range {
+    index: number;
+    /** The `$:`/`name:` label, if the track has one (`$` labels count as unnamed). */
+    label: string | null;
+    /** A `_$:` label: Strudel's own mute. */
+    muted: boolean;
+    chain: StrudelChain;
+    kind: TrackKind;
+    /** The first sound it plays (`s`/`sound`), e.g. "sawtooth" or "bd". */
+    sound: string | null;
+}
+export interface StrudelTempo {
+    /** Cycles per second. */
+    cps: number;
+    unit: "cps" | "cpm";
+    call: StrudelCall;
+}
+export interface StrudelSong {
+    code: string;
+    tempo: StrudelTempo | null;
+    tracks: StrudelTrack[];
+    /** How the tracks are written: `$:` labels, args of one `stack(...)`, or one pattern. */
+    layout: "labels" | "stack" | "single" | "empty";
+    /** Methods applied to the whole `stack(...)`, e.g. `.postgain(.8)`. */
+    master: StrudelCall[];
+    masterChain: StrudelChain | null;
+    /** Every mini-notation string in the program, in source order. */
+    minis: Extract<StrudelArg, {
+        kind: "mini";
+    }>[];
+    /** The ESTree program from acorn, for tools that need the raw JavaScript tree. */
+    program: AcornNode;
+}
+export declare class StrudelSyntaxError extends Error {
+    readonly offset: number;
+    constructor(message: string, offset: number);
+}
+/** Parse Strudel code. Throws `StrudelSyntaxError` when the JavaScript doesn't parse. */
+export declare function parseStrudel(code: string): StrudelSong;
+/** All calls in a chain, head first. */
+export declare function chainCalls(chain: StrudelChain): StrudelCall[];
+/** The last call named `name` in the chain (later calls win in Strudel). */
+export declare function findCall(chain: StrudelChain, name: string): StrudelCall | null;
+//# sourceMappingURL=program.d.ts.map

package/dist/strudel/ast/program.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"program.d.ts","sourceRoot":"","sources":["../../../src/strudel/ast/program.ts"],"names":[],"mappings":"AAIA,OAAO,EAAoB,KAAK,IAAI,IAAI,SAAS,EAAE,MAAM,OAAO,CAAA;AAChE,OAAO,EAAE,eAAe,EAAwB,KAAK,SAAS,EAAE,KAAK,KAAK,EAAE,MAAM,QAAQ,CAAA;AAE1F,YAAY,EAAE,KAAK,EAAE,CAAA;AAOrB,MAAM,MAAM,UAAU,GAAG,KAAK,GAC5B,CACI;IAAE,IAAI,EAAE,QAAQ,CAAC;IAAC,KAAK,EAAE,MAAM,CAAA;CAAE;AACnC,6GAA6G;GAC3G;IAAE,IAAI,EAAE,MAAM,CAAC;IAAC,MAAM,EAAE,MAAM,CAAC;IAAC,YAAY,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,SAAS,GAAG,IAAI,CAAC;IAAC,KAAK,EAAE,eAAe,GAAG,IAAI,CAAA;CAAE;AAC/G,6EAA6E;GAC3E;IAAE,IAAI,EAAE,QAAQ,CAAC;IAAC,KAAK,EAAE,MAAM,CAAA;CAAE;AACnC,kFAAkF;GAChF;IAAE,IAAI,EAAE,SAAS,CAAC;IAAC,KAAK,EAAE,YAAY,CAAA;CAAE,GACxC;IAAE,IAAI,EAAE,UAAU,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAClC;IAAE,IAAI,EAAE,OAAO,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,CAClC,CAAA;AAEH,MAAM,WAAW,WAAY,SAAQ,KAAK;IACxC,IAAI,EAAE,MAAM,CAAA;IACZ,SAAS,EAAE,KAAK,CAAA;IAChB,IAAI,EAAE,UAAU,EAAE,CAAA;IAClB,2EAA2E;IAC3E,SAAS,EAAE,KAAK,CAAA;IAChB,sFAAsF;IACtF,WAAW,EAAE,KAAK,CAAA;CACnB;AAED,MAAM,WAAW,YAAa,SAAQ,KAAK;IACzC,iFAAiF;IACjF,IAAI,EAAE,WAAW,GAAG,CAAC,KAAK,GAAG;QAAE,IAAI,EAAE,MAAM,CAAC;QAAC,OAAO,CAAC,EAAE,UAAU,CAAA;KAAE,CAAC,CAAA;IACpE,OAAO,EAAE,WAAW,EAAE,CAAA;CACvB;AAED,MAAM,MAAM,SAAS,GAAG,OAAO,GAAG,SAAS,GAAG,OAAO,CAAA;AAErD,MAAM,WAAW,YAAa,SAAQ,KAAK;IACzC,KAAK,EAAE,MAAM,CAAA;IACb,kFAAkF;IAClF,KAAK,EAAE,MAAM,GAAG,IAAI,CAAA;IACpB,yCAAyC;IACzC,KAAK,EAAE,OAAO,CAAA;IACd,KAAK,EAAE,YAAY,CAAA;IACnB,IAAI,EAAE,SAAS,CAAA;IACf,uEAAuE;IACvE,KAAK,EAAE,MAAM,GAAG,IAAI,CAAA;CACrB;AAED,MAAM,WAAW,YAAY;IAC3B,yBAAyB;IACzB,GAAG,EAAE,MAAM,CAAA;IACX,IAAI,EAAE,KAAK,GAAG,KAAK,CAAA;IACnB,IAAI,EAAE,WAAW,CAAA;CAClB;AAED,MAAM,WAAW,WAAW;IAC1B,IAAI,EAAE,MAAM,CAAA;IACZ,KAAK,EAAE,YAAY,GAAG,IAAI,CAAA;IAC1B,MAAM,EAAE,YAAY,EAAE,CAAA;IACtB,yFAAyF;IACzF,MAAM,EAAE,QAAQ,GAAG,OAAO,GAAG,QAAQ,GAAG,OAAO,CAAA;IAC/C,uEAAuE;IACvE,MAAM,EAAE,WAAW,EAAE,CAAA;IACrB,WAAW,EAAE,YAAY,GAAG,IAAI,CAAA;IAChC,kEAAkE;IAClE,KAAK,EAAE,OAAO,CAAC,UAAU,EAAE;QAAE,IAAI,EAAE,MAAM,CAAA;KAAE,CAAC,EAAE,CAAA;IAC9C,kFAAkF;IAClF,OAAO,EAAE,SAAS,CAAA;CACnB;AAED,qBAAa,kBAAmB,SAAQ,KAAK;IACd,QAAQ,CAAC,MAAM,EAAE,MAAM;gBAAxC,OAAO,EAAE,MAAM,EAAW,MAAM,EAAE,MAAM;CAIrD;AAOD,yFAAyF;AACzF,wBAAgB,YAAY,CAAC,IAAI,EAAE,MAAM,GAAG,WAAW,CAiOtD;AAoBD,wCAAwC;AACxC,wBAAgB,UAAU,CAAC,KAAK,EAAE,YAAY,GAAG,WAAW,EAAE,CAE7D;AAED,4EAA4E;AAC5E,wBAAgB,QAAQ,CAAC,KAAK,EAAE,YAAY,EAAE,IAAI,EAAE,MAAM,GAAG,WAAW,GAAG,IAAI,CAI9E"}

package/dist/strudel/ast/program.js

@@ -0,0 +1,288 @@
+/* A Strudel program as a song: the JavaScript is parsed with acorn (the parser Strudel's own transpiler uses) and
+   read the way the REPL runs it — `setcps`/`setcpm` set the tempo, `$:` labels or a top-level `stack(...)` hold
+   the tracks, and each track is a method chain (`n("0 2").scale("C:minor").s("sawtooth").lpf(800)`) whose string
+   arguments are parsed as mini-notation. Every node keeps its source range for exact edits (see edit.ts). */
+import { parse as parseJs } from "acorn";
+import { MiniSyntaxError, miniAtoms, parseMini } from "./mini.js";
+export class StrudelSyntaxError extends Error {
+    offset;
+    constructor(message, offset) {
+        super(message);
+        this.offset = offset;
+        this.name = "StrudelSyntaxError";
+    }
+}
+const SYNTHS = new Set(["sine", "triangle", "square", "sawtooth", "saw", "tri", "sin", "sqr", "white", "pink", "brown", "supersaw", "pulse", "noise"]);
+const TEMPO = new Set(["setcps", "setCps", "setcpm", "setCpm"]);
+const SETUP = new Set(["samples", "soundfont", "loadSoundfont", "initHydra", "aliasBank", "registerSound"]);
+const MELODIC_HEADS = new Set(["note", "n", "freq", "chord", "voicing", "arp"]);
+/** Parse Strudel code. Throws `StrudelSyntaxError` when the JavaScript doesn't parse. */
+export function parseStrudel(code) {
+    let program;
+    try {
+        program = parseJs(code, {
+            ecmaVersion: "latest",
+            sourceType: "module",
+            allowAwaitOutsideFunction: true,
+            allowReturnOutsideFunction: true,
+        });
+    }
+    catch (err) {
+        const e = err;
+        throw new StrudelSyntaxError(e.message ?? String(err), e.pos ?? 0);
+    }
+    const text = (n) => code.slice(n.start, n.end);
+    // Keyed by offset: stack arguments are read once as arguments and again as tracks.
+    const minis = new Map();
+    // Constant arithmetic (`120/4`, `-.5`, `(1+2)*3`) counts as a number.
+    function constant(node) {
+        if (node.type === "Literal" && typeof node.value === "number")
+            return node.value;
+        if (node.type === "UnaryExpression" && (node.operator === "-" || node.operator === "+")) {
+            const v = constant(node.argument);
+            return v === null ? null : node.operator === "-" ? -v : v;
+        }
+        if (node.type === "BinaryExpression") {
+            const a = constant(node.left);
+            const b = constant(node.right);
+            if (a === null || b === null)
+                return null;
+            switch (node.operator) {
+                case "+": return a + b;
+                case "-": return a - b;
+                case "*": return a * b;
+                case "/": return a / b;
+                case "%": return a % b;
+                case "**": return a ** b;
+            }
+        }
+        return null;
+    }
+    function arg(node) {
+        const range = { start: node.start, end: node.end };
+        const value = constant(node);
+        if (value !== null)
+            return { kind: "number", value, ...range };
+        const raw = node.type === "Literal" && typeof node.value === "string" ? String(node.raw) : null;
+        const template = node.type === "TemplateLiteral" && !node.expressions.length;
+        if ((raw && raw.startsWith('"')) || template) {
+            const source = raw ? node.value : String(node.quasis[0].value.cooked);
+            // Offsets are into the raw literal; escapes would shift them, so only plain strings map 1:1.
+            let mini = null;
+            let error = null;
+            try {
+                mini = parseMini(source);
+            }
+            catch (err) {
+                if (err instanceof MiniSyntaxError)
+                    error = err;
+                else
+                    throw err;
+            }
+            const out = { kind: "mini", source, contentStart: node.start + 1, mini, error, ...range };
+            minis.set(node.start, out);
+            return out;
+        }
+        if (raw)
+            return { kind: "string", value: node.value, ...range };
+        if (node.type === "ArrowFunctionExpression" || node.type === "FunctionExpression")
+            return { kind: "function", text: text(node), ...range };
+        const c = chain(node);
+        if (c)
+            return { kind: "pattern", chain: c, ...range };
+        return { kind: "other", text: text(node), ...range };
+    }
+    function call(node, name, nameNode, receiverEnd) {
+        const args = node.arguments.map(arg);
+        // The text between the parentheses: from just after "(" to just before ")".
+        const open = code.indexOf("(", nameNode.end);
+        return {
+            name,
+            nameRange: { start: nameNode.start, end: nameNode.end },
+            args,
+            argsRange: { start: open + 1, end: node.end - 1 },
+            methodRange: { start: receiverEnd, end: node.end },
+            start: node.start,
+            end: node.end,
+        };
+    }
+    // Flatten `a(x).b(y).c` into a head and its methods.
+    function chain(node) {
+        const methods = [];
+        let cur = node;
+        for (;;) {
+            if (cur.type === "CallExpression") {
+                const callee = cur.callee;
+                if (callee.type === "MemberExpression" && !callee.computed && callee.property.type === "Identifier") {
+                    const object = callee.object;
+                    const property = callee.property;
+                    methods.unshift(call(cur, property.name, property, object.end));
+                    cur = object;
+                    continue;
+                }
+                if (callee.type === "Identifier") {
+                    return { head: call(cur, callee.name, callee, cur.start), methods, start: node.start, end: node.end };
+                }
+                return null;
+            }
+            if (cur.type === "MemberExpression" && !cur.computed && cur.property.type === "Identifier") {
+                // A getter in the chain, e.g. `.p1` — a method with no arguments or parentheses.
+                const object = cur.object;
+                const property = cur.property;
+                methods.unshift({
+                    name: property.name,
+                    nameRange: { start: property.start, end: property.end },
+                    args: [],
+                    argsRange: { start: cur.end, end: cur.end },
+                    methodRange: { start: object.end, end: cur.end },
+                    start: cur.start,
+                    end: cur.end,
+                });
+                cur = object;
+                continue;
+            }
+            if (cur.type === "Identifier")
+                return { head: { name: cur.name, start: cur.start, end: cur.end }, methods, start: node.start, end: node.end };
+            if ((cur.type === "Literal" && typeof cur.value === "string") || cur.type === "TemplateLiteral") {
+                return { head: { name: "", literal: arg(cur), start: cur.start, end: cur.end }, methods, start: node.start, end: node.end };
+            }
+            return null;
+        }
+    }
+    const calls = (c) => ("args" in c.head ? [c.head, ...c.methods] : c.methods);
+    function soundOf(c) {
+        for (const k of calls(c)) {
+            if (k.name !== "s" && k.name !== "sound")
+                continue;
+            const first = k.args[0];
+            if (first?.kind === "mini" && first.mini) {
+                const atom = miniAtoms(first.mini, { ops: false }).find((a) => !a.rest);
+                if (atom)
+                    return atom.value.split(":")[0];
+            }
+            if (first?.kind === "string")
+                return first.value;
+        }
+        return null;
+    }
+    function kindOf(c, sound) {
+        const names = calls(c).map((k) => k.name);
+        if (names.some((n) => MELODIC_HEADS.has(n)) || names.includes("scale") || (sound && SYNTHS.has(sound)))
+            return "melodic";
+        if (sound)
+            return "drums";
+        return "other";
+    }
+    function track(node, index, label) {
+        const c = chain(node);
+        if (!c)
+            return null;
+        const sound = soundOf(c);
+        const muted = label !== null && label.startsWith("_");
+        const name = label === null ? null : label.replace(/^_/, "");
+        return {
+            index,
+            label: name === "$" || name === "" ? null : name,
+            muted,
+            chain: c,
+            kind: kindOf(c, sound),
+            sound,
+            start: node.start,
+            end: node.end,
+        };
+    }
+    let tempo = null;
+    const labelled = [];
+    let root = null;
+    const unwrap = (n) => (n.type === "AwaitExpression" ? n.argument : n);
+    for (const statement of program.body) {
+        if (statement.type === "LabeledStatement") {
+            const body = statement.body;
+            if (body.type === "ExpressionStatement") {
+                const t = track(body.expression, labelled.length, statement.label.name);
+                if (t)
+                    labelled.push(t);
+            }
+            continue;
+        }
+        if (statement.type !== "ExpressionStatement")
+            continue;
+        const expr = unwrap(statement.expression);
+        const callee = expr.type === "CallExpression" ? expr.callee : null;
+        const name = callee?.type === "Identifier" ? callee.name : null;
+        if (name && TEMPO.has(name)) {
+            const k = call(expr, name, callee, expr.start);
+            const value = k.args[0]?.kind === "number" ? k.args[0].value : NaN;
+            const unit = name.toLowerCase() === "setcpm" ? "cpm" : "cps";
+            tempo = { cps: unit === "cpm" ? value / 60 : value, unit, call: k };
+            continue;
+        }
+        if (name && SETUP.has(name))
+            continue;
+        root = expr;
+    }
+    let tracks = labelled;
+    let layout = labelled.length ? "labels" : "empty";
+    let master = [];
+    let masterChain = null;
+    if (!labelled.length && root) {
+        const c = chain(root);
+        if (c && "args" in c.head && c.head.name === "stack") {
+            layout = "stack";
+            master = c.methods;
+            masterChain = c;
+            tracks = c.head.args
+                .map((a, i) => (a.kind === "pattern" || a.kind === "mini" ? track(nodeAt(program, a.start, a.end), i, null) : null))
+                .filter((t) => !!t);
+        }
+        else if (c) {
+            layout = "single";
+            tracks = [track(root, 0, null)];
+        }
+    }
+    return {
+        code,
+        tempo,
+        tracks,
+        layout,
+        master,
+        masterChain,
+        minis: [...minis.values()].sort((a, b) => a.start - b.start),
+        program: program,
+    };
+}
+// The ESTree node spanning exactly [start, end) (to re-read a stack argument as a track).
+function nodeAt(root, start, end) {
+    let found = null;
+    const visit = (n) => {
+        if (found || !n || typeof n !== "object")
+            return;
+        if (Array.isArray(n))
+            return n.forEach(visit);
+        const node = n;
+        if (typeof node.type === "string" && node.start === start && node.end === end) {
+            found = node;
+            return;
+        }
+        if (typeof node.start === "number" && (node.start > start || node.end < end))
+            return;
+        for (const key of Object.keys(node))
+            if (key !== "type")
+                visit(node[key]);
+    };
+    visit(root);
+    return found;
+}
+/** All calls in a chain, head first. */
+export function chainCalls(chain) {
+    return "args" in chain.head ? [chain.head, ...chain.methods] : chain.methods;
+}
+/** The last call named `name` in the chain (later calls win in Strudel). */
+export function findCall(chain, name) {
+    const all = chainCalls(chain);
+    for (let i = all.length - 1; i >= 0; i--)
+        if (all[i].name === name)
+            return all[i];
+    return null;
+}
+//# sourceMappingURL=program.js.map