@tilua/compiler 2.4.0 → 3.0.1

package/dist/cli.cjs

@@ -1,12 +1,16 @@
 #!/usr/bin/env node
 "use strict";
 
+// node_modules/tsup/assets/cjs_shims.js
+var getImportMetaUrl = () => typeof document === "undefined" ? new URL(`file:${__filename}`).href : document.currentScript && document.currentScript.tagName.toUpperCase() === "SCRIPT" ? document.currentScript.src : new URL("main.js", document.baseURI).href;
+var importMetaUrl = /* @__PURE__ */ getImportMetaUrl();
+
 // src/cli.ts
-var import_node_fs2 = require("fs");
+var import_node_fs3 = require("fs");
 var import_node_path3 = require("path");
 
 // src/bundle.ts
-var import_node_fs = require("fs");
+var import_node_fs2 = require("fs");
 var import_node_path2 = require("path");
 var import_parser3 = require("@tilua/parser");
 var import_luau_parser2 = require("luau-parser");
@@ -34,10 +38,10 @@ var nil = () => ({ type: "NilLiteral", ...span() });
 var boolean = (value) => ({ type: "BooleanLiteral", value, ...span() });
 var number = (value, raw = String(value)) => ({ type: "NumberLiteral", value, raw, ...span() });
 var string = (value) => ({ type: "StringLiteral", value, raw: "", ...span() });
-var member = (object, property) => isLuauName(property) ? { type: "MemberExpression", object, property: identifier(property), ...span() } : index(object, string(property));
-var index = (object, key) => ({ type: "IndexExpression", object, index: key, ...span() });
+var member = (object2, property) => isLuauName(property) ? { type: "MemberExpression", object: object2, property: identifier(property), ...span() } : index(object2, string(property));
+var index = (object2, key) => ({ type: "IndexExpression", object: object2, index: key, ...span() });
 var call = (callee, args2) => ({ type: "CallExpression", callee, arguments: args2, ...span() });
-var methodCall = (object, method, args2) => ({ type: "MethodCallExpression", object, method: identifier(method), arguments: args2, ...span() });
+var methodCall = (object2, method, args2) => ({ type: "MethodCallExpression", object: object2, method: identifier(method), arguments: args2, ...span() });
 var functionExpression = (func) => ({ type: "FunctionExpression", func, ...span() });
 var binary = (operator, left, right) => ({ type: "BinaryExpression", operator, left, right, ...span() });
 var unary = (operator, argument) => ({ type: "UnaryExpression", operator, argument, ...span() });
@@ -152,6 +156,62 @@ var Names = class _Names {
   }
 };
 
+// src/language.ts
+var import_node_fs = require("fs");
+var read = (name) => (0, import_node_fs.readFileSync)(new URL(`../runtime/${name}`, importMetaUrl), "utf8");
+var implemented = (source) => new Set([...source.matchAll(/function __NAME__\.(\w+)/g)].map((m) => m[1]));
+var array = read("array.luau");
+var string2 = read("string.luau");
+var object = read("object.luau");
+var arrayMethods = implemented(array);
+var stringMethods = implemented(string2);
+var objectMethods = implemented(object);
+function every(type, is, seen = /* @__PURE__ */ new Set()) {
+  if (!type || seen.has(type)) return false;
+  seen.add(type);
+  if (type.kind === "union") {
+    return type.types.filter((m) => !(m.kind === "primitive" && m.name === "nil")).every((m) => every(m, is, seen));
+  }
+  if (type.kind === "typeParam") return every(type.constraint, is, seen);
+  return is(type);
+}
+var isArray = (type) => every(type, (t) => t.kind === "array" || t.kind === "tuple");
+var isString = (type) => every(type, (t) => t.kind === "primitive" && t.name === "string" || t.kind === "literal" && t.base === "string" || t.kind === "templateLiteral");
+function objectKeys(type) {
+  const members = type?.kind === "union" ? type.types : type ? [type] : [];
+  const orders = [];
+  let open = false;
+  for (const member2 of members) {
+    const keys = [];
+    for (const part of member2.kind === "intersection" ? member2.types : [member2]) {
+      if (part.kind !== "object") continue;
+      for (const key of part.properties.keys()) if (!keys.includes(key)) keys.push(key);
+      if (part.indexer) open = true;
+    }
+    orders.push(keys);
+  }
+  const order = JSON.stringify(orders[0] ?? []);
+  const known = orders.length && orders.every((keys) => JSON.stringify(keys) === order) ? `{ ${orders[0].map((key) => JSON.stringify(key)).join(", ")} }` : "nil";
+  return { known, open: String(open) };
+}
+var plugin = {
+  runtime: { array, string: string2, object },
+  methodCall({ method, receiver, use }) {
+    if (isString(receiver)) {
+      return stringMethods.has(method) ? { callee: `${use("string")}.${method}` } : void 0;
+    }
+    if (isArray(receiver)) {
+      return arrayMethods.has(method) ? { callee: `${use("array")}.${method}` } : void 0;
+    }
+    if (objectMethods.has(method)) {
+      const keys = objectKeys(receiver);
+      return { callee: `${use("object")}.${method}`, prepend: [keys.known, keys.open] };
+    }
+    return void 0;
+  }
+};
+var languageLowering = { plugin, from: "tilua" };
+
 // src/lower.ts
 function lower(program, scopes, options = {}) {
   return new Lowerer(program, scopes, options).run();
@@ -335,21 +395,34 @@ var Lowerer = class {
     if (id === void 0) return node.name;
     return this.scopes.bindings.get(id)?.kind === "global" ? node.name : void 0;
   }
-  /** What a library says `receiver:method(...)` is. The last library
-   *  loaded is asked first, so a project's own library can answer for a
-   *  method an earlier one also claims; no answer leaves an ordinary Luau
-   *  method call, which is what a value that answers to the method itself
-   *  wants (`text:upper()`). */
+  /** The language's own lowering, then each library's, in load order. A
+   *  runtime is named by its lowering's place here (`loweringRuntime`). */
+  get lowerings() {
+    return this.allLowerings ??= [languageLowering, ...this.options.lowerings ?? []];
+  }
+  allLowerings;
+  /** What `receiver:method(...)` becomes, when Luau alone would not run it.
+   *
+   *  A method the receiver's metatable gave it — the analyzer says so, and
+   *  whose metatable it was (`methodSources`) — is asked of whoever declared
+   *  that metatable, and only them: the language lowers its own
+   *  (`names:filter(f)` becomes a call into its runtime), a library its own,
+   *  and one the program declared is taken at its word. Any other method is
+   *  a member of the receiver's own, which a library may still claim
+   *  (`console:log`), the last library loaded first. No answer leaves an
+   *  ordinary Luau method call: `text:upper()` reaches Lua's own. */
   loweredMethodCall(node) {
-    const lowerings = this.options.lowerings;
-    if (!lowerings?.some((l) => l.plugin.methodCall)) return void 0;
+    const lowerings = this.lowerings;
+    const source = this.options.types?.methodSources.get(node);
+    const asked = source?.origin === "language" ? [0] : source?.origin === "library" ? lowerings.flatMap((l, i) => l.library === source.library ? [i] : []) : source?.origin === "program" ? [] : lowerings.map((_, i) => i).slice(1).reverse();
+    if (!asked.some((i) => lowerings[i].plugin.methodCall)) return void 0;
     const receiver = this.options.types?.typeOf.get(node.object);
     const receiverGlobal = this.globalName(node.object);
     const info = this.lazyArguments(node.arguments);
-    for (let i = lowerings.length - 1; i >= 0; i--) {
-      const plugin = lowerings[i].plugin;
-      if (!plugin.methodCall) continue;
-      const answer = plugin.methodCall({
+    for (const i of asked) {
+      const plugin2 = lowerings[i].plugin;
+      if (!plugin2.methodCall) continue;
+      const answer = plugin2.methodCall({
         method: node.method.name,
         receiver,
         receiverGlobal,
@@ -372,15 +445,15 @@ var Lowerer = class {
   }
   /** What a library says a call to a global — `print(x)` — is. */
   loweredGlobalCall(node) {
-    const lowerings = this.options.lowerings;
+    const lowerings = this.lowerings;
     if (!lowerings?.some((l) => l.plugin.globalCall)) return void 0;
     const name = this.globalName(node.callee);
     if (name === void 0) return void 0;
     const info = this.lazyArguments(node.arguments);
     for (let i = lowerings.length - 1; i >= 0; i--) {
-      const plugin = lowerings[i].plugin;
-      if (!plugin.globalCall) continue;
-      const answer = plugin.globalCall({
+      const plugin2 = lowerings[i].plugin;
+      if (!plugin2.globalCall) continue;
+      const answer = plugin2.globalCall({
         name,
         at: this.callSite(node.callee),
         get arguments() {
@@ -394,7 +467,7 @@ var Lowerer = class {
   }
   /** What a library says a global read as a value — `local p = print` — is. */
   loweredGlobalValue(node) {
-    const lowerings = this.options.lowerings;
+    const lowerings = this.lowerings;
     if (!lowerings?.some((l) => l.plugin.globalValue)) return void 0;
     const name = this.globalName(node);
     if (name === void 0) return void 0;
@@ -424,7 +497,7 @@ var Lowerer = class {
     try {
       return (0, import_luau_parser.parseExpressionFromSource)(source);
     } catch (error) {
-      this.report(node, `'${this.options.lowerings[index2].from}' lowered this to Luau that does not parse: ${JSON.stringify(source)} (${error.message})`);
+      this.report(node, `'${this.lowerings[index2].from}' lowered this to Luau that does not parse: ${JSON.stringify(source)} (${error.message})`);
       return void 0;
     }
   }
@@ -445,8 +518,8 @@ var Lowerer = class {
       ], true)));
     }
     for (const { index: index2, runtime: runtime2, name } of this.loweringUsed) {
-      const { plugin, from } = this.options.lowerings[index2];
-      const source = plugin.runtime?.[runtime2];
+      const { plugin: plugin2, from } = this.lowerings[index2];
+      const source = plugin2.runtime?.[runtime2];
       if (source === void 0) {
         this.diagnostics.push({
           message: `'${from}' asked for a runtime it does not have: '${runtime2}'`,
@@ -781,6 +854,7 @@ var Lowerer = class {
       case "ExportTypeAliasStatement":
       case "DeclareStatement":
       case "DeclareClassStatement":
+      case "DeclareMetatableStatement":
       case "ErrorStatement":
         return [];
       case "VariableDeclaration":
@@ -1381,11 +1455,11 @@ end
   callValues(node) {
     const chain = optionalChain(node);
     if (chain) return this.optionalChainExpression(chain);
-    const object = linkObject(node);
-    if (node.type === "CallExpression" && object.type === "Identifier") {
-      return this.link(node, this.reference(object));
+    const object2 = linkObject(node);
+    if (node.type === "CallExpression" && object2.type === "Identifier") {
+      return this.link(node, this.reference(object2));
     }
-    return this.link(node, this.expression(object));
+    return this.link(node, this.expression(object2));
   }
   /** A call is one value in tilua, and Luau would hand on every value one
    *  returns in the last place of an argument list or a `return`: it is
@@ -1424,16 +1498,16 @@ end
     }))];
   }
   /** One link of an access chain, read from `object`. */
-  link(node, object) {
+  link(node, object2) {
     switch (node.type) {
       case "MemberExpression":
-        return member(object, node.property.name);
+        return member(object2, node.property.name);
       case "IndexExpression":
-        return index(object, this.expression(node.index));
+        return index(object2, this.expression(node.index));
       case "CallExpression": {
         const lowered = this.loweredGlobalCall(node);
         const args2 = this.arguments(node.arguments);
-        if (!lowered) return call(object, args2);
+        if (!lowered) return call(object2, args2);
         return call(calleePath(lowered.callee), [...lowered.prepend, ...args2]);
       }
       case "MethodCallExpression": {
@@ -1442,14 +1516,14 @@ end
         if (lowered) {
           return call(calleePath(lowered.callee), [
             ...lowered.prepend,
-            ...lowered.passReceiver ? [object] : [],
+            ...lowered.passReceiver ? [object2] : [],
             ...args2
           ]);
         }
         if (!isLuauName(node.method.name)) {
           this.report(node.method, `'${node.method.name}' is a Luau keyword and cannot be called with ':'`);
         }
-        return methodCall(object, node.method.name, args2);
+        return methodCall(object2, node.method.name, args2);
       }
     }
   }
@@ -1470,8 +1544,8 @@ end
     }
     return out2;
   }
-  applySegment(segment, object) {
-    return segment.reduce((value, link) => this.link(link, value), object);
+  applySegment(segment, object2) {
+    return segment.reduce((value, link) => this.link(link, value), object2);
   }
   /** `a?.b:m()` as a statement:
    *  `do local ref = a if ref ~= nil then ref.b:m() end end` */
@@ -1547,9 +1621,9 @@ end
     const before = [];
     let target;
     if (node.target.type === "MemberExpression" || node.target.type === "IndexExpression") {
-      const object = this.expression(node.target.object);
+      const object2 = this.expression(node.target.object);
       const objectName = this.names.fresh("target");
-      before.push(local([objectName], [object]));
+      before.push(local([objectName], [object2]));
       if (node.target.type === "MemberExpression") {
         target = member(identifier(objectName), node.target.property.name);
       } else {
@@ -1967,15 +2041,15 @@ async function loadLowerings(modules) {
   for (const module2 of modules) {
     try {
       const loaded = await import((0, import_node_url.pathToFileURL)(module2.file).href);
-      const plugin = loaded.default;
-      if (!plugin || typeof plugin !== "object") {
+      const plugin2 = loaded.default;
+      if (!plugin2 || typeof plugin2 !== "object") {
         problems.push({
           file: module2.file,
           message: `'${module2.from}' lowering module has no default export`
         });
         continue;
       }
-      lowerings.push({ plugin, from: module2.from });
+      lowerings.push({ plugin: plugin2, from: module2.from, library: module2.library });
     } catch (error) {
       problems.push({
         file: module2.file,
@@ -2227,7 +2301,7 @@ ${G} = {
 }
 function stampOf(file) {
   try {
-    const at = (0, import_node_fs.statSync)(file);
+    const at = (0, import_node_fs2.statSync)(file);
     return `${at.size}:${at.mtimeMs}`;
   } catch {
     return void 0;
@@ -2243,7 +2317,7 @@ function parseFile(file, diagnostics, directives) {
   }
   let text;
   try {
-    text = (0, import_node_fs.readFileSync)(file, "utf8");
+    text = (0, import_node_fs2.readFileSync)(file, "utf8");
   } catch {
     diagnostics.push({ file, message: "Cannot read file", line: 1, column: 1, category: "module" });
     return void 0;
@@ -2270,14 +2344,14 @@ var libraryCache = /* @__PURE__ */ new Map();
 function parsedLibrary(file) {
   let stamp;
   try {
-    const at = (0, import_node_fs.statSync)(file);
+    const at = (0, import_node_fs2.statSync)(file);
     stamp = `${at.size}:${at.mtimeMs}`;
   } catch {
     stamp = "";
   }
   const cached = libraryCache.get(file);
   if (cached && cached.stamp === stamp) return cached.program;
-  const program = (0, import_parser3.parse)((0, import_node_fs.readFileSync)(file, "utf8"));
+  const program = (0, import_parser3.parse)((0, import_node_fs2.readFileSync)(file, "utf8"));
   libraryCache.set(file, { stamp, program });
   return program;
 }
@@ -2300,7 +2374,7 @@ function analyzeModules(modules, config2) {
     const done = analyzed.get(file);
     if (done) return done;
     const remembered = moduleAnalyses.get(file);
-    if (remembered && remembered.setting === settingFor && libs.length === remembered.libs.length && remembered.libs.every((lib, i) => lib === libs[i]) && remembered.program === program && [...remembered.read].every(([read, stamp]) => stampOf(read) === stamp)) {
+    if (remembered && remembered.setting === settingFor && libs.length === remembered.libs.length && remembered.libs.every((lib, i) => lib === libs[i]) && remembered.program === program && [...remembered.read].every(([read2, stamp]) => stampOf(read2) === stamp)) {
       analyzed.set(file, remembered.result);
       readWhile.set(file, remembered.read);
       return remembered.result;
@@ -2324,12 +2398,12 @@ function analyzeModules(modules, config2) {
     const result = { types, diagnostics: said };
     if (partials === before) {
       analyzed.set(file, result);
-      const read = readWhile.get(file) ?? /* @__PURE__ */ new Map();
+      const read2 = readWhile.get(file) ?? /* @__PURE__ */ new Map();
       const own = stampOf(file);
-      if (own !== void 0) read.set(file, own);
-      readWhile.set(file, read);
-      if ([...read.values()].every((stamp) => stamp !== void 0)) {
-        moduleAnalyses.set(file, { setting: settingFor, libs: [...libs], program, read, result });
+      if (own !== void 0) read2.set(file, own);
+      readWhile.set(file, read2);
+      if ([...read2.values()].every((stamp) => stamp !== void 0)) {
+        moduleAnalyses.set(file, { setting: settingFor, libs: [...libs], program, read: read2, result });
       }
     }
     return result;
@@ -2338,11 +2412,11 @@ function analyzeModules(modules, config2) {
     const target = (0, import_parser3.resolveModulePath)(file, specifier, config2);
     if (!target) return void 0;
     const noteRead = () => {
-      const read = readWhile.get(file) ?? /* @__PURE__ */ new Map();
-      readWhile.set(file, read);
+      const read2 = readWhile.get(file) ?? /* @__PURE__ */ new Map();
+      readWhile.set(file, read2);
       const stamp = stampOf(target);
-      if (stamp !== void 0) read.set(target, stamp);
-      for (const [below, belowStamp] of readWhile.get(target) ?? []) read.set(below, belowStamp);
+      if (stamp !== void 0) read2.set(target, stamp);
+      for (const [below, belowStamp] of readWhile.get(target) ?? []) read2.set(below, belowStamp);
     };
     if (inProgress.has(target)) {
       partials++;
@@ -2356,7 +2430,7 @@ function analyzeModules(modules, config2) {
     let program = byFile.get(target)?.program;
     if (!program) {
       try {
-        program = (0, import_parser3.parse)((0, import_node_fs.readFileSync)(target, "utf8"));
+        program = (0, import_parser3.parse)((0, import_node_fs2.readFileSync)(target, "utf8"));
       } catch {
         return void 0;
       }
@@ -2436,7 +2510,7 @@ async function main(from) {
     process.exit(1);
   }
   const target = out ?? from.replace(/\.tilua$/, "") + ".luau";
-  (0, import_node_fs2.writeFileSync)(target, result.code);
+  (0, import_node_fs3.writeFileSync)(target, result.code);
   console.log(`${target}: ${result.modules.length} module${result.modules.length === 1 ? "" : "s"}`);
   process.exit(result.diagnostics.length ? 1 : 0);
 }

package/dist/cli.js

@@ -1,7 +1,7 @@
 #!/usr/bin/env node
 import {
   bundle
-} from "./chunk-3ZQ3EITC.js";
+} from "./chunk-X4DM2BX2.js";
 
 // src/cli.ts
 import { writeFileSync } from "fs";