S-expr tokenizer

tokenizer.js

function tokenizeSexpr(src) {
    let curr = "";
    const scopes = [[]];
    const $word = () => {
        if (curr) {
            scopes[scopes.length - 1].push(curr);
            curr = "";
        }
    };
    for(let i = 0; i < src.length; i++) {
        const c = src[i];
        if(c === "(") {
            $word();
            scopes.push([]);
        } else if (c === ")") {
            $word();
            const x = scopes.pop();
            scopes[scopes.length - 1].push(x);
        } else if (/\s/.test(c)) {
            $word();
        } else {
            curr += c;
        }
    }
    $word();
    return scopes[0];
}

tokenize("(+ a1 b1 c1 (* (sum c2:e3) 10))")[0]
// [ '+', 'a1', 'b1', 'c1', [ '*', [ 'sum', 'c2:e3' ], '10' ] ]

tokenize("((fn (a b) (+ a b)) 1 2)")[0]
// [ [ 'fn', [ 'a', 'b' ], [ '+', 'a', 'b' ] ], '1', '2' ]