tree-sitter-delphi13 1.0.0

package/LICENSE

@@ -0,0 +1,27 @@
+MIT License
+
+Copyright (c) 2026 Alexander Liberov
+
+Portions derived from tree-sitter-pascal:
+  Copyright (c) Philip Zander
+  Copyright (c) Benjamin Gray (Isopod)
+  https://github.com/Isopod/tree-sitter-pascal
+  (also MIT licensed)
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

package/README.md

@@ -0,0 +1,50 @@
+# tree-sitter-delphi13
+
+Tree-sitter grammar focused on **Delphi 13 (RAD Studio 37.0)** — what the
+modern Delphi compiler accepts, nothing more.
+
+## Why a fresh project?
+
+This is a focused derivation of [Isopod/tree-sitter-pascal][upstream]
+(MIT licensed; see [LICENSE](LICENSE)). The differences in design intent:
+
+| | tree-sitter-pascal (upstream) | tree-sitter-delphi13 (this) |
+|---|---|---|
+| Target | Pascal family (Delphi, FreePascal, FPC variants) | Delphi 13 only |
+| Grammar surface | Many `enable_if(fpc, ...)` branches | Single Delphi-13 surface |
+| Inline asm | Parsed structurally | Treated as opaque (comment-like) |
+| Preprocessor blocks | Token-level `{$IFDEF}` | External scanner consumes whole `{$IF*}...{$END*}` blocks |
+| Non-Pascal corpus files | Counted as failures | Filtered by harness (binary DFM, JCL templates, JEDI interpreter fragments, etc.) |
+| Companion | — | Pairs with separate `tree-sitter-dfm` for form files |
+
+## Status
+
+| Component | State |
+|-----------|-------|
+| Grammar | Delphi-13-focused, all proven fixes from upstream forked in |
+| External scanner | (planned — IFDEF blocks + `^X` char literal disambiguation) |
+| Preprocessor | (planned as separate `delphi13-preprocessor` library, for `{$I X.inc}` expansion) |
+| Harness | Day-1 filtering for non-Delphi files |
+| Corpus | Curated Delphi-13 only (modern projects + RAD Studio 13 RTL/VCL) |
+
+## Build
+
+```powershell
+npm install --ignore-scripts
+.\node_modules\.bin\tree-sitter generate
+node "C:\Program Files\nodejs\node_modules\npm\node_modules\node-gyp\bin\node-gyp.js" rebuild
+```
+
+## Run baseline
+
+```powershell
+pwsh -File tools\run-baseline.ps1
+```
+
+## Credits
+
+- [Philip Zander][isopod-author] — original tree-sitter-pascal grammar
+- [Benjamin Gray (Isopod)][upstream] — current maintainer
+
+[upstream]: https://github.com/Isopod/tree-sitter-pascal
+[isopod-author]: https://github.com/PhilipRoman

package/binding.gyp

@@ -0,0 +1,21 @@
+{
+  "targets": [
+    {
+      "target_name": "tree_sitter_delphi13_binding",
+      "dependencies": [
+        "<!(node -p \"require('node-addon-api').targets\"):node_addon_api_except",
+      ],
+      "include_dirs": [
+        "src",
+      ],
+      "sources": [
+        "bindings/node/binding.cc",
+        "src/parser.c",
+        "src/scanner.c",
+      ],
+      "cflags_c": [
+        "-std=c11",
+      ],
+    }
+  ]
+}

package/bindings/node/binding.cc

@@ -0,0 +1,19 @@
+#include <napi.h>
+
+typedef struct TSLanguage TSLanguage;
+
+extern "C" TSLanguage *tree_sitter_delphi13();
+
+const napi_type_tag LANGUAGE_TYPE_TAG = {
+  0x8AF2E5212AD58ABF, 0xD5006CAD83ABBA16
+};
+
+Napi::Object Init(Napi::Env env, Napi::Object exports) {
+    exports["name"] = Napi::String::New(env, "delphi13");
+    auto language = Napi::External<TSLanguage>::New(env, tree_sitter_delphi13());
+    language.TypeTag(&LANGUAGE_TYPE_TAG);
+    exports["language"] = language;
+    return exports;
+}
+
+NODE_API_MODULE(tree_sitter_delphi13_binding, Init)

package/bindings/node/binding_test.js

@@ -0,0 +1,9 @@
+const assert = require("node:assert");
+const { test } = require("node:test");
+
+const Parser = require("tree-sitter");
+
+test("can load grammar", () => {
+  const parser = new Parser();
+  assert.doesNotThrow(() => parser.setLanguage(require(".")));
+});

package/bindings/node/index.d.ts

@@ -0,0 +1,28 @@
+type BaseNode = {
+  type: string;
+  named: boolean;
+};
+
+type ChildNode = {
+  multiple: boolean;
+  required: boolean;
+  types: BaseNode[];
+};
+
+type NodeInfo =
+  | (BaseNode & {
+      subtypes: BaseNode[];
+    })
+  | (BaseNode & {
+      fields: { [name: string]: ChildNode };
+      children: ChildNode[];
+    });
+
+type Language = {
+  name: string;
+  language: unknown;
+  nodeTypeInfo: NodeInfo[];
+};
+
+declare const language: Language;
+export = language;

package/bindings/node/index.js

@@ -0,0 +1,7 @@
+const root = require("path").join(__dirname, "..", "..");
+
+module.exports = require("node-gyp-build")(root);
+
+try {
+  module.exports.nodeTypeInfo = require("../../src/node-types.json");
+} catch (_) {}