funcity 0.2.0 → 0.3.0

package/dist/index.mjs

@@ -1,17 +1,225 @@
+const emptyLocation = {
+  line: 0,
+  column: 0
+};
+const emptyRange = {
+  start: emptyLocation,
+  end: emptyLocation
+};
+const specialFunctionMarker = /* @__PURE__ */ Symbol("$$special$$");
+const makeFunCityFunction = (f) => {
+  f[specialFunctionMarker] = true;
+  return f;
+};
+const isFunCityFunction = (f) => {
+  var _a;
+  return (_a = f[specialFunctionMarker]) != null ? _a : false;
+};
+const isConditionalTrue = (v) => {
+  if (v === void 0 || v === null) {
+    return false;
+  }
+  switch (typeof v) {
+    case "boolean":
+      return v;
+    case "number":
+    case "bigint":
+      return v !== 0;
+    default:
+      return true;
+  }
+};
+const asIterable = (v) => {
+  if (typeof v[Symbol.iterator] === "function") {
+    return v;
+  } else {
+    return void 0;
+  }
+};
+const combineVariables = (...variablesList) => {
+  const variables = /* @__PURE__ */ new Map();
+  const appendVariables = (vs) => vs.forEach((v, k) => variables.set(k, v));
+  const appendRecord = (vs) => Object.keys(vs).forEach((k) => variables.set(k, vs[k]));
+  variablesList.forEach((vs) => {
+    if (vs["forEach"] !== void 0) {
+      appendVariables(vs);
+    } else {
+      appendRecord(vs);
+    }
+  });
+  return variables;
+};
+const fromError = (error) => {
+  var _a;
+  if (error.message) {
+    return error.message;
+  } else if (typeof error.toString === "function") {
+    return (_a = error.toString()) != null ? _a : "unknown";
+  } else {
+    return "unknown";
+  }
+};
+const widerRange = (...ranges) => {
+  let start = emptyRange.start;
+  let end = emptyRange.end;
+  for (const range of ranges) {
+    if (range.start.line >= 1 && range.start.column >= 1) {
+      if (start.line === 0 || start.column === 0) {
+        start = range.start;
+      } else if (range.start.line < start.line) {
+        start = range.start;
+      } else if (range.start.line === start.line && range.start.column < start.column) {
+        start = range.start;
+      }
+      if (end.line === 0 || end.column === 0) {
+        end = range.end;
+      } else if (range.end.line > end.line) {
+        end = range.end;
+      } else if (range.end.line === end.line && range.end.column > end.column) {
+        end = range.end;
+      }
+    }
+  }
+  return { start, end };
+};
+const locationEquals = (lhs, rhs) => lhs.line === rhs.line && lhs.column === rhs.column;
+const getLocationString = (range) => locationEquals(range.start, range.end) ? `${range.start.line}:${range.start.column}` : `${range.start.line}:${range.start.column}:${range.end.line}:${range.end.column}`;
+const printErrorString = (path, error) => {
+  switch (error.type) {
+    case "warning":
+      console.warn(
+        `${path}:${getLocationString(error.range)}: warning: ${error.description}`
+      );
+      break;
+    case "error":
+      console.error(
+        `${path}:${getLocationString(error.range)}: error: ${error.description}`
+      );
+      return true;
+  }
+  return false;
+};
+const outputErrors = (path, errors) => {
+  let isError = false;
+  for (const error of errors) {
+    const result = printErrorString(path, error);
+    isError || (isError = result);
+  }
+  return isError;
+};
+const funcIds = /* @__PURE__ */ new WeakMap();
+let nextId = 1;
+const getFuncId = (fn) => {
+  const cached = funcIds.get(fn);
+  if (cached) {
+    return cached;
+  }
+  const id = nextId++;
+  funcIds.set(fn, id);
+  return id;
+};
+const convertToString = (v) => {
+  switch (v) {
+    case void 0:
+      return "(undefined)";
+    case null:
+      return "(null)";
+    default:
+      switch (typeof v) {
+        case "string":
+          return v;
+        case "boolean":
+          return v ? "true" : "false";
+        case "number":
+        case "bigint":
+        case "symbol":
+          return v.toString();
+        case "function":
+          if (v.name) {
+            return `fun<${v.name}:#${getFuncId(v)}>`;
+          } else {
+            return `fun<#${getFuncId(v)}>`;
+          }
+        default:
+          if (Array.isArray(v)) {
+            return JSON.stringify(v);
+          }
+          const iterable = asIterable(v);
+          if (iterable) {
+            const arr = Array.from(iterable);
+            return JSON.stringify(arr);
+          } else if (v instanceof Date) {
+            return v.toISOString();
+          } else if (v instanceof Error) {
+            return `${v.name}: ${v.message}`;
+          } else if (v instanceof URL) {
+            return v.origin;
+          } else {
+            return JSON.stringify(v);
+          }
+      }
+  }
+};
+const stringEscapeMap = {
+  f: "\f",
+  n: "\n",
+  r: "\r",
+  t: "	",
+  v: "\v",
+  "0": "\0",
+  "'": "'",
+  "\\": "\\"
+};
 const tokenizeString = (context) => {
   const start = context.cursor.location("start");
   context.cursor.skip(1);
-  let value = context.cursor.getUntil("'");
-  if (value !== void 0) {
+  let value = "";
+  let closed = false;
+  while (!context.cursor.eot()) {
+    const ch = context.cursor.getChar();
+    if (ch === "'") {
+      context.cursor.skip(1);
+      closed = true;
+      break;
+    }
+    if (ch === "\\") {
+      const escapeStart = context.cursor.location("start");
+      context.cursor.skip(1);
+      if (context.cursor.eot()) {
+        context.errors.push({
+          type: "error",
+          description: "invalid escape sequence: \\\\",
+          range: { start: escapeStart, end: context.cursor.location("end") }
+        });
+        value += "\\";
+        break;
+      }
+      const escape = context.cursor.getChar();
+      const mapped = stringEscapeMap[escape];
+      if (mapped !== void 0) {
+        value += mapped;
+        context.cursor.skip(1);
+        continue;
+      }
+      context.cursor.skip(1);
+      context.errors.push({
+        type: "error",
+        description: `invalid escape sequence: \\${escape}`,
+        range: { start: escapeStart, end: context.cursor.location("end") }
+      });
+      value += `\\${escape}`;
+      continue;
+    }
+    value += ch;
     context.cursor.skip(1);
-  } else {
+  }
+  if (!closed) {
     const location = context.cursor.location("start");
     context.errors.push({
       type: "error",
       description: "string close quote is not found",
       range: { start: location, end: location }
     });
-    value = "";
   }
   return {
     kind: "string",
@@ -348,115 +556,6 @@ const runTokenizer = (script, errors) => {
   }
   return tokens;
 };
-const emptyLocation = {
-  line: 0,
-  column: 0
-};
-const emptyRange = {
-  start: emptyLocation,
-  end: emptyLocation
-};
-const specialFunctionMarker = /* @__PURE__ */ Symbol("$$special$$");
-const makeSpecialFunction = (f) => {
-  f[specialFunctionMarker] = true;
-  return f;
-};
-const isSpecialFunction = (f) => {
-  var _a;
-  return (_a = f[specialFunctionMarker]) != null ? _a : false;
-};
-const isConditionalTrue = (v) => {
-  if (v === void 0 || v === null) {
-    return false;
-  }
-  switch (typeof v) {
-    case "boolean":
-      return v;
-    case "number":
-    case "bigint":
-      return v !== 0;
-    default:
-      return true;
-  }
-};
-const asIterable = (v) => {
-  if (typeof v[Symbol.iterator] === "function") {
-    return v;
-  } else {
-    return void 0;
-  }
-};
-const combineVariables = (...variablesList) => {
-  const variables = /* @__PURE__ */ new Map();
-  const appendVariables = (vs) => vs.forEach((v, k) => variables.set(k, v));
-  const appendRecord = (vs) => Object.keys(vs).forEach((k) => variables.set(k, vs[k]));
-  variablesList.forEach((vs) => {
-    if (vs["forEach"] !== void 0) {
-      appendVariables(vs);
-    } else {
-      appendRecord(vs);
-    }
-  });
-  return variables;
-};
-const fromError = (error) => {
-  var _a;
-  if (error.message) {
-    return error.message;
-  } else if (typeof error.toString === "function") {
-    return (_a = error.toString()) != null ? _a : "unknown";
-  } else {
-    return "unknown";
-  }
-};
-const widerRange = (...ranges) => {
-  let start = emptyRange.start;
-  let end = emptyRange.end;
-  for (const range of ranges) {
-    if (range.start.line >= 1 && range.start.column >= 1) {
-      if (start.line === 0 || start.column === 0) {
-        start = range.start;
-      } else if (range.start.line < start.line) {
-        start = range.start;
-      } else if (range.start.line === start.line && range.start.column < start.column) {
-        start = range.start;
-      }
-      if (end.line === 0 || end.column === 0) {
-        end = range.end;
-      } else if (range.end.line > end.line) {
-        end = range.end;
-      } else if (range.end.line === end.line && range.end.column > end.column) {
-        end = range.end;
-      }
-    }
-  }
-  return { start, end };
-};
-const locationEquals = (lhs, rhs) => lhs.line === rhs.line && lhs.column === rhs.column;
-const getLocationString = (range) => locationEquals(range.start, range.end) ? `${range.start.line}:${range.start.column}` : `${range.start.line}:${range.start.column}:${range.end.line}:${range.end.column}`;
-const printErrorString = (path, error) => {
-  switch (error.type) {
-    case "warning":
-      console.warn(
-        `${path}:${getLocationString(error.range)}: warning: ${error.description}`
-      );
-      break;
-    case "error":
-      console.error(
-        `${path}:${getLocationString(error.range)}: error: ${error.description}`
-      );
-      return true;
-  }
-  return false;
-};
-const outputErrors = (path, errors) => {
-  let isError = false;
-  for (const error of errors) {
-    const result = printErrorString(path, error);
-    isError || (isError = result);
-  }
-  return isError;
-};
 const parseNumber = (cursor, _errors) => {
   const token = cursor.takeToken();
   return {
@@ -1197,38 +1296,6 @@ const parseBlock = (cursor, errors) => {
             }
             break;
           }
-          case "set": {
-            cursor.skipToken();
-            const args = parseStatementArguments(cursor, errors);
-            if (args.length !== 2) {
-              errors.push({
-                type: "error",
-                description: "Required `set` bind identity and expression",
-                range: widerRange(
-                  token.range,
-                  ...args.map((node) => node.range)
-                )
-              });
-              break;
-            }
-            const bindNode = args[0];
-            if (bindNode.kind !== "variable") {
-              errors.push({
-                type: "error",
-                description: "Required `set` bind identity",
-                range: bindNode.range
-              });
-              break;
-            }
-            const exprNode = args[1];
-            pushNode(statementStates, {
-              kind: "set",
-              name: bindNode,
-              expr: exprNode,
-              range: widerRange(token.range, bindNode.range, exprNode.range)
-            });
-            break;
-          }
           default: {
             const node = parseExpression(cursor, errors);
             if (node) {
@@ -1371,6 +1438,7 @@ const fromLambda = (context, lambda) => {
   };
 };
 const reduceExpressionNode = async (context, node) => {
+  var _a;
   switch (node.kind) {
     case "number":
     case "string": {
@@ -1380,6 +1448,7 @@ const reduceExpressionNode = async (context, node) => {
       return traverseVariable(context, node);
     }
     case "apply": {
+      (_a = context.abortSignal) == null ? void 0 : _a.throwIfAborted();
       const func = await reduceExpressionNode(context, node.func);
       if (typeof func !== "function") {
         context.appendError({
@@ -1389,28 +1458,26 @@ const reduceExpressionNode = async (context, node) => {
         });
         return void 0;
       }
+      const args = isFunCityFunction(func) ? node.args : await Promise.all(
+        node.args.map(async (argNode) => {
+          const arg = await reduceExpressionNode(context, argNode);
+          return arg;
+        })
+      );
       const thisProxy = context.createFunctionContext(node);
-      if (isSpecialFunction(func)) {
-        const value = await func.call(thisProxy, ...node.args);
-        return value;
-      } else {
-        const args = await Promise.all(
-          node.args.map(async (argNode) => {
-            try {
-              const arg = await reduceExpressionNode(context, argNode);
-              return arg;
-            } catch (e) {
-              context.appendError({
-                type: "error",
-                description: fromError(e),
-                range: argNode.range
-              });
-              return void 0;
-            }
-          })
-        );
+      try {
         const value = await func.call(thisProxy, ...args);
         return value;
+      } catch (e) {
+        if (e instanceof Error && e.name === "AbortError") {
+          throw e;
+        }
+        context.appendError({
+          type: "error",
+          description: fromError(e),
+          range: node.range
+        });
+        return void 0;
       }
     }
     case "lambda": {
@@ -1422,11 +1489,6 @@ const reduceExpressionNode = async (context, node) => {
       );
       return results;
     }
-    case "set": {
-      const expr = await reduceExpressionNode(context, node.expr);
-      context.setValue(node.name.name, expr);
-      return void 0;
-    }
     case "scope": {
       if (node.nodes.length === 0) {
         return [];
@@ -1508,32 +1570,76 @@ const reduceNode = async (context, node) => {
     }
   }
 };
-const createReducerContext = (variables, errors) => {
-  let vs = variables;
-  let mvs;
-  let variablesProxy;
+const createScopedReducerContext = (parent) => {
+  let thisVars;
+  let thisContext;
+  const getValue = (name) => {
+    var _a;
+    (_a = parent.abortSignal) == null ? void 0 : _a.throwIfAborted();
+    if (thisVars == null ? void 0 : thisVars.has(name)) {
+      return { value: thisVars.get(name), isFound: true };
+    } else {
+      return parent.getValue(name);
+    }
+  };
+  const setValue = (name, value) => {
+    var _a;
+    (_a = parent.abortSignal) == null ? void 0 : _a.throwIfAborted();
+    if (!thisVars) {
+      thisVars = /* @__PURE__ */ new Map();
+    }
+    thisVars.set(name, value);
+  };
+  const createFunctionContext = (thisNode) => {
+    const newContext = {
+      thisNode,
+      abortSignal: parent.abortSignal,
+      getValue,
+      setValue,
+      isFailed: parent.isFailed,
+      appendError: parent.appendError,
+      reduce: (node) => {
+        var _a;
+        (_a = parent.abortSignal) == null ? void 0 : _a.throwIfAborted();
+        return reduceExpressionNode(thisContext, node);
+      }
+    };
+    return newContext;
+  };
+  thisContext = {
+    abortSignal: parent.abortSignal,
+    getValue,
+    setValue,
+    isFailed: parent.isFailed,
+    appendError: parent.appendError,
+    newScope: () => {
+      var _a;
+      (_a = parent.abortSignal) == null ? void 0 : _a.throwIfAborted();
+      return createScopedReducerContext(thisContext);
+    },
+    createFunctionContext
+  };
+  return thisContext;
+};
+const createReducerContext = (variables, errors, signal) => {
+  let thisVars;
+  let thisContext;
   const getValue = (name) => {
-    if (vs.has(name)) {
-      return { value: vs.get(name), isFound: true };
+    signal == null ? void 0 : signal.throwIfAborted();
+    if (thisVars == null ? void 0 : thisVars.has(name)) {
+      return { value: thisVars.get(name), isFound: true };
+    } else if (variables.has(name)) {
+      return { value: variables.get(name), isFound: true };
     } else {
       return { value: void 0, isFound: false };
     }
   };
   const setValue = (name, value) => {
-    if (!mvs) {
-      mvs = new Map(vs);
-      vs = mvs;
-    }
-    mvs.set(name, value);
-    if (variablesProxy !== void 0) {
-      Object.defineProperty(variablesProxy, name, {
-        get() {
-          return vs.get(name);
-        },
-        configurable: true,
-        enumerable: true
-      });
+    signal == null ? void 0 : signal.throwIfAborted();
+    if (!thisVars) {
+      thisVars = /* @__PURE__ */ new Map();
     }
+    thisVars.set(name, value);
   };
   const appendError = (error) => {
     errors.push(error);
@@ -1541,47 +1647,37 @@ const createReducerContext = (variables, errors) => {
   const isFailed = () => {
     return errors.some((error) => error.type === "error");
   };
-  const newScope = () => {
-    const newContext = createReducerContext(vs, errors);
-    return newContext;
-  };
-  let context;
-  const reduceByProxy = (node) => reduceExpressionNode(context, node);
-  const getVariablesFromProxy = () => {
-    if (variablesProxy === void 0) {
-      variablesProxy = {};
-      for (const key of vs.keys()) {
-        Object.defineProperty(variablesProxy, key, {
-          get: () => vs.get(key),
-          configurable: true,
-          enumerable: true
-        });
-      }
-    }
-    return variablesProxy;
-  };
   const createFunctionContext = (thisNode) => {
-    return {
-      get variables() {
-        return getVariablesFromProxy();
-      },
+    const newContext = {
       thisNode,
+      abortSignal: signal,
+      getValue,
+      setValue,
+      isFailed,
       appendError,
-      reduce: reduceByProxy
+      reduce: (node) => {
+        signal == null ? void 0 : signal.throwIfAborted();
+        return reduceExpressionNode(thisContext, node);
+      }
     };
+    return newContext;
   };
-  context = {
+  thisContext = {
+    abortSignal: signal,
     getValue,
     setValue,
     appendError,
     isFailed,
-    newScope,
+    newScope: () => {
+      signal == null ? void 0 : signal.throwIfAborted();
+      return createScopedReducerContext(thisContext);
+    },
     createFunctionContext
   };
-  return context;
+  return thisContext;
 };
-async function runReducer(nodes, variables, errors) {
-  const context = createReducerContext(variables, errors);
+async function runReducer(nodes, variables, errors, signal) {
+  const context = createReducerContext(variables, errors, signal);
   const resultList = [];
   for (const node of nodes) {
     const results = await reduceNode(context, node);
@@ -1593,7 +1689,15 @@ async function runReducer(nodes, variables, errors) {
   }
   return resultList;
 }
-const _cond = makeSpecialFunction(async function(arg0, arg1, arg2) {
+const _cond = makeFunCityFunction(async function(arg0, arg1, arg2) {
+  if (!arg0 || !arg1 || !arg2) {
+    this.appendError({
+      type: "error",
+      description: "Required `cond` condition, true and false expressions",
+      range: this.thisNode.range
+    });
+    return void 0;
+  }
   const cond = await this.reduce(arg0);
   if (isConditionalTrue(cond)) {
     return await this.reduce(arg1);
@@ -1601,6 +1705,27 @@ const _cond = makeSpecialFunction(async function(arg0, arg1, arg2) {
     return await this.reduce(arg2);
   }
 });
+const _set = makeFunCityFunction(async function(arg0, arg1, ...rest) {
+  if (!arg0 || !arg1 || rest.length !== 0) {
+    this.appendError({
+      type: "error",
+      description: "Required `set` bind identity and expression",
+      range: this.thisNode.range
+    });
+    return void 0;
+  }
+  if (arg0.kind !== "variable") {
+    this.appendError({
+      type: "error",
+      description: "Required `set` bind identity",
+      range: arg0.range
+    });
+    return void 0;
+  }
+  const value = await this.reduce(arg1);
+  this.setValue(arg0.name, value);
+  return void 0;
+});
 const _typeof = async (arg0) => {
   if (arg0 === null) {
     return "null";
@@ -1614,54 +1739,33 @@ const _typeof = async (arg0) => {
     return typeof arg0;
   }
 };
-const funcIds = /* @__PURE__ */ new WeakMap();
-let nextId = 1;
-const getFuncId = (fn) => {
-  const cached = funcIds.get(fn);
-  if (cached) return cached;
-  const id = nextId++;
-  funcIds.set(fn, id);
-  return id;
-};
 const _toString = async (...args) => {
-  const results = args.map((arg0) => {
-    switch (arg0) {
-      case void 0:
-        return "(undefined)";
-      case null:
-        return "(null)";
-      default:
-        switch (typeof arg0) {
-          case "string":
-            return arg0;
-          case "boolean":
-            return arg0 ? "true" : "false";
-          case "number":
-          case "bigint":
-          case "symbol":
-            return arg0.toString();
-          case "function":
-            if (arg0.name) {
-              return `fun<${arg0.name}:#${getFuncId(arg0)}>`;
-            } else {
-              return `fun<#${getFuncId(arg0)}>`;
-            }
-          default:
-            if (Array.isArray(arg0)) {
-              return JSON.stringify(arg0);
-            }
-            const iterable = asIterable(arg0);
-            if (iterable) {
-              const arr = Array.from(iterable);
-              return JSON.stringify(arr);
-            } else {
-              return JSON.stringify(arg0);
-            }
-        }
-    }
-  });
+  const results = args.map((arg0) => convertToString(arg0));
   return results.join(",");
 };
+const _toBoolean = async (arg0) => {
+  const r = isConditionalTrue(arg0);
+  return r;
+};
+const _toNumber = async (arg0) => {
+  const r = Number(arg0);
+  return r;
+};
+const _toBigInt = async (arg0) => {
+  switch (typeof arg0) {
+    case "number":
+    case "bigint":
+    case "string":
+    case "boolean": {
+      const r = BigInt(arg0);
+      return r;
+    }
+    default: {
+      const r = BigInt(await _toString(arg0));
+      return r;
+    }
+  }
+};
 const _add = async (arg0, ...args) => {
   const r = args.reduce((v0, v) => v0 + Number(v), Number(arg0));
   return r;
@@ -1759,20 +1863,40 @@ const _length = async (arg0) => {
   }
   return 0;
 };
-const _and = async (...args) => {
+const _and = makeFunCityFunction(async function(...args) {
   if (args.length === 0) {
-    throw new Error("empty arguments");
+    this.appendError({
+      type: "error",
+      description: "empty arguments",
+      range: this.thisNode.range
+    });
+    return void 0;
   }
-  const r = args.reduce((v0, v) => v0 && isConditionalTrue(v), true);
-  return r;
-};
-const _or = async (...args) => {
+  for (const arg of args) {
+    const value = await this.reduce(arg);
+    if (!isConditionalTrue(value)) {
+      return false;
+    }
+  }
+  return true;
+});
+const _or = makeFunCityFunction(async function(...args) {
   if (args.length === 0) {
-    throw new Error("empty arguments");
+    this.appendError({
+      type: "error",
+      description: "empty arguments",
+      range: this.thisNode.range
+    });
+    return void 0;
   }
-  const r = args.reduce((v0, v) => v0 || isConditionalTrue(v), false);
-  return r;
-};
+  for (const arg of args) {
+    const value = await this.reduce(arg);
+    if (isConditionalTrue(value)) {
+      return true;
+    }
+  }
+  return false;
+});
 const _not = async (arg0) => {
   return !isConditionalTrue(arg0);
 };
@@ -1934,13 +2058,24 @@ const _bind = async (arg0, ...args) => {
   const predicate = arg0;
   return predicate.bind(void 0, ...args);
 };
+const _url = async (arg0, arg1) => {
+  const url = new URL(
+    convertToString(arg0),
+    arg1 !== void 0 ? convertToString(arg1) : void 0
+  );
+  return url;
+};
 const standardVariables = Object.freeze({
   undefined: void 0,
   null: null,
   true: true,
   false: false,
   cond: _cond,
+  set: _set,
   toString: _toString,
+  toBoolean: _toBoolean,
+  toNumber: _toNumber,
+  toBigInt: _toBigInt,
   typeof: _typeof,
   add: _add,
   sub: _sub,
@@ -1972,30 +2107,32 @@ const standardVariables = Object.freeze({
   match: _match,
   replace: _replace,
   regex: _regex,
-  bind: _bind
+  bind: _bind,
+  url: _url
 });
 const buildCandidateVariables = (...variablesList) => {
   return combineVariables(standardVariables, ...variablesList);
 };
-const runScriptOnce = async (script, variables, errors = []) => {
+const runScriptOnce = async (script, variables, errors = [], signal) => {
   const blocks = runTokenizer(script, errors);
   const nodes = runParser(blocks, errors);
-  const results = await runReducer(nodes, variables, errors);
-  const text = results.join("");
+  const results = await runReducer(nodes, variables, errors, signal);
+  const text = results.map((result) => convertToString(result)).join("");
   return text;
 };
 export {
   asIterable,
   buildCandidateVariables,
   combineVariables,
+  convertToString,
   createParserCursor,
   createReducerContext,
   emptyLocation,
   emptyRange,
   fromError,
   isConditionalTrue,
-  isSpecialFunction,
-  makeSpecialFunction,
+  isFunCityFunction,
+  makeFunCityFunction,
   outputErrors,
   parseBlock,
   parseExpression,