mirror of
https://github.com/DeusData/codebase-memory-mcp.git
synced 2026-11-08 08:53:43 +08:00
Chialisp (.clsp/.clib/.clinc) is the Chia smart-coin language. The only
public grammar, Quexington/tree-sitter-chialisp, cannot parse it: on the five
reference files from chia-blockchain@main it produced 3-34 ERROR nodes each.
Three defects account for all of them, and each desynchronised the rest of the
file rather than losing one node:
* comments were `/;.*\r\n/` -- CRLF-only, while real files are LF;
* `(include foo.clib)` was rejected because of the dot in the filename;
* `(defconstant NAME <expr>)` accepted only a primitive after the name.
So the grammar is written here instead, in tools/tree-sitter-chialisp/, and
files as first-party: its vendored LICENSE is the project's own, byte-identical
to the repository root, carrying no third-party copyright.
It is deliberately GENERIC -- source_file / list / symbol / string / number /
hex / dot / comment, modelling the clvm_tools reader rather than the Chialisp
form vocabulary. `mod`, `defun`, `defconstant` and `include` are ordinary head
symbols; which lists are definitions is decided in extract_defs.c. A dialect
that adds a form (cl-21 -> cl-23 -> cl-26 each added several) therefore needs
no regenerated parser. Acceptance: all five reference files parse with zero
ERROR and zero MISSING nodes; the three defects above are pinned as tests.
Extraction, and the four decisions in it:
* `Constant` is admitted to the cross-file name registry
(cbm_label_is_registry_symbol). Chialisp's condition codes live as
`(defconstant ...)` in a shared .clib and are referenced by name from every
puzzle; labelled but unregistered they are seeded nowhere, and roughly half
of a Chialisp graph would be present as nodes yet never the target of an
edge. All three registry-seeding sites route through that one predicate, so
they cannot diverge. No other language emits `Constant`, so the blast radius
is exactly Chialisp. Pinned by a two-file graph test that goes red when the
label is removed from the predicate.
* `export` / `namespace` are NOT definition heads. `(export foo)` names a
function already defined in the same file, so treating it as a def head
mints a second node for one symbol. They stay in the not-a-call filter.
* A parameter list is a `list` too, but it binds rather than invokes. Without
that gate `(defun check_conditions (HEIGHTLOCK conditions) ...)` mints a
phantom call to HEIGHTLOCK, and real Chialisp is mostly such definitions.
* `(include *standard-cl-26*)` is a dialect directive, not a file dependency;
recording it would invent a dependency on a file that does not exist.
Three helpers that the defs, calls and unified walks all need -- the quote-data
gate, comment-skipping named-child access, and the Chialisp def-head set -- live
in helpers.c rather than being copied per translation unit. They previously
existed as byte-identical duplicates that had already drifted: extract_defs.c
skipped comments when reading a def head while its mirror in extract_unified.c
did not, so a comment between a head and its name desynchronised defs from call
scope. Both now use the same accessor.
Ledger: 161 -> 162 grammars across the seven published surfaces, ABI-14 86 -> 87,
first-party 13 -> 14, CBM_LANG_COUNT 164 -> 165.
Distilled from PR #919 by darkverbito, whose extraction logic -- the CLVM
not-a-call vocabulary, the quoted-data gate, the filename-derived `mod` name and
the include/embed import handling -- is kept and is the substance of this change.
The grammar that PR vendored is not used.
Co-authored-by: darkverbito <8049985+darkverbito@users.noreply.github.com>
Signed-off-by: Martin Vogel <martin.vogel.tech@gmail.com>
250 lines
10 KiB
Python
Executable File
250 lines
10 KiB
Python
Executable File
#!/usr/bin/env python3
|
|
"""Byte-identity audit: compare every vendored license file against upstream.
|
|
|
|
Verdicts:
|
|
IDENTICAL byte-equal to the upstream default-branch license
|
|
IDENTICAL@PINNED byte-equal to the license at the manifest's pinned commit
|
|
FIRST-PARTY-OK byte-equal to the project root LICENSE
|
|
FIRST-PARTY-VAR first-party but text differs from root LICENSE (inspect)
|
|
DIFFERS no byte-equal upstream candidate found (inspect)
|
|
ERROR upstream fetch failed
|
|
"""
|
|
import base64
|
|
import hashlib
|
|
import json
|
|
import os
|
|
import re
|
|
import subprocess
|
|
import sys
|
|
|
|
ROOT = os.path.dirname(os.path.dirname(os.path.abspath(__file__)))
|
|
GRAMMARS = os.path.join(ROOT, "internal/cbm/vendored/grammars")
|
|
|
|
# Grammars authored in this repository. This is a REGISTRATION, not an
|
|
# exemption: membership only routes the check -- the audit still requires the
|
|
# vendored LICENSE to be byte-equal to the project root LICENSE, and reports
|
|
# FIRST-PARTY-VAR (a failing verdict) when it is not.
|
|
FIRST_PARTY = {"chialisp", "cobol", "form", "janet", "magma", "protobuf", "wolfram"}
|
|
FORKS = { # self-maintained forks: vendored LICENSE must match the original upstream
|
|
# arkts: our own ArkTS fork of tree-sitter-typescript. The vendored LICENSE is
|
|
# upstream's MIT verbatim, which is what MIT requires of a derivative; our own
|
|
# copyright and the fork's provenance live where our SOURCE is (grammar.js
|
|
# header, MANIFEST.md, THIRD_PARTY.md) rather than inside upstream's notice.
|
|
# This is a routing entry, NOT an exemption -- check_upstream still byte-verifies
|
|
# against the real upstream repository.
|
|
"arkts": "tree-sitter/tree-sitter-typescript",
|
|
"cfml": "cfmleditor/tree-sitter-cfml",
|
|
"cfscript": "cfmleditor/tree-sitter-cfml",
|
|
"dotenv": "pnx/tree-sitter-dotenv",
|
|
"qml": "yuja/tree-sitter-qmljs",
|
|
}
|
|
SPECIAL_NOTICE = {
|
|
"assembly": "RETAINED-MIT (upstream RubixDev/tree-sitter-assembly deleted from GitHub)",
|
|
"pine": "PROVENANCE-NOTICE (upstream kvarenzn/tree-sitter-pine declares ISC, ships no license file)",
|
|
}
|
|
DISAGREEMENT = {
|
|
"jinja2": "dbt-labs/tree-sitter-jinja2",
|
|
"just": "casey/tree-sitter-just",
|
|
"move": "tzakian/tree-sitter-move",
|
|
"sshconfig": "ObserverOfTime/tree-sitter-ssh-config",
|
|
"zsh": "georgeharker/tree-sitter-zsh",
|
|
}
|
|
LIBS = {
|
|
"vendored/mimalloc": ("microsoft/mimalloc", None),
|
|
"vendored/tre": ("laurikari/tre", None),
|
|
"vendored/xxhash": ("Cyan4973/xxHash", None),
|
|
"vendored/yyjson": ("ibireme/yyjson", None),
|
|
"internal/cbm/vendored/lz4": ("lz4/lz4", "lib/LICENSE"),
|
|
"internal/cbm/vendored/zstd": ("facebook/zstd", None),
|
|
"internal/cbm/vendored/simplecpp": ("danmar/simplecpp", None),
|
|
"internal/cbm/vendored/verstable": ("JacksonAllan/Verstable", None),
|
|
"internal/cbm/vendored/wyhash": ("wangyi-fudan/wyhash", None),
|
|
"internal/cbm/vendored/ts_runtime": ("tree-sitter/tree-sitter", None),
|
|
"internal/cbm/vendored/common": ("tree-sitter/tree-sitter-html", None),
|
|
"internal/cbm/vendored/common/tree_sitter": ("tree-sitter/tree-sitter", None),
|
|
}
|
|
CANDIDATE_NAMES = ["LICENSE", "LICENSE.md", "LICENSE.txt", "COPYING",
|
|
"COPYING.txt", "LICENSE-MIT", "UNLICENSE", "LICENCE",
|
|
"license", "License.txt", "NOTICE"]
|
|
|
|
|
|
def gh_api(path):
|
|
r = subprocess.run(["gh", "api", path], capture_output=True, text=True)
|
|
if r.returncode != 0:
|
|
return None
|
|
return r.stdout
|
|
|
|
|
|
def upstream_default_license(repo):
|
|
out = gh_api(f"repos/{repo}/license")
|
|
if not out:
|
|
return None
|
|
try:
|
|
d = json.loads(out)
|
|
return base64.b64decode(d.get("content", "")).decode("utf-8", "replace")
|
|
except Exception:
|
|
return None
|
|
|
|
|
|
def upstream_file(repo, path, ref=None):
|
|
url = f"repos/{repo}/contents/{path}"
|
|
if ref:
|
|
url += f"?ref={ref}"
|
|
out = gh_api(url)
|
|
if not out:
|
|
return None
|
|
try:
|
|
d = json.loads(out)
|
|
if isinstance(d, dict) and d.get("content"):
|
|
return base64.b64decode(d["content"]).decode("utf-8", "replace")
|
|
except Exception:
|
|
pass
|
|
return None
|
|
|
|
|
|
def local_license(dirpath):
|
|
if not os.path.isdir(dirpath):
|
|
return None, None
|
|
for f in sorted(os.listdir(dirpath)):
|
|
if re.match(r"^(LICENSE|LICENCE|COPYING|UNLICENSE)", f, re.I):
|
|
p = os.path.join(dirpath, f)
|
|
with open(p, encoding="utf-8", errors="replace") as fh:
|
|
return f, fh.read()
|
|
return None, None
|
|
|
|
|
|
def parse_manifest():
|
|
"""grammar -> (repo, pinned_commit) from the verified-upstream table."""
|
|
out = {}
|
|
with open(os.path.join(GRAMMARS, "MANIFEST.md"), encoding="utf-8") as fh:
|
|
for line in fh:
|
|
m = re.match(
|
|
r"^\| (\w[\w.+-]*) \| \d+ \| ([\w.-]+/[\w.-]+) \| `([^`]+)` \|", line)
|
|
if m:
|
|
out[m.group(1)] = (m.group(2), m.group(3))
|
|
return out
|
|
|
|
|
|
def main():
|
|
with open(os.path.join(ROOT, "LICENSE"), encoding="utf-8") as fh:
|
|
root_license = fh.read()
|
|
|
|
manifest = parse_manifest()
|
|
results = {}
|
|
|
|
def check_upstream(key, dirpath, repo, pinned=None, exact_path=None):
|
|
fname, ours = local_license(dirpath)
|
|
if ours is None:
|
|
results[key] = ("NO-LOCAL-LICENSE", "")
|
|
return
|
|
# 1) exact upstream path (e.g. lz4 lib/LICENSE), at HEAD then pinned
|
|
if exact_path:
|
|
for ref in (None, pinned):
|
|
up = upstream_file(repo, exact_path, ref)
|
|
if up is not None and up == ours:
|
|
results[key] = ("IDENTICAL" if ref is None else "IDENTICAL@PINNED",
|
|
f"{repo}:{exact_path}")
|
|
return
|
|
# 2) default-branch detected license
|
|
up = upstream_default_license(repo)
|
|
if up is not None and up == ours:
|
|
results[key] = ("IDENTICAL", f"{repo} (default branch)")
|
|
return
|
|
# 3) pinned-commit candidates by filename
|
|
if pinned:
|
|
tried = [fname] + [c for c in CANDIDATE_NAMES if c != fname]
|
|
for cand in tried:
|
|
up2 = upstream_file(repo, cand, pinned)
|
|
if up2 is not None and up2 == ours:
|
|
results[key] = ("IDENTICAL@PINNED", f"{repo}:{cand}@{pinned}")
|
|
return
|
|
# 4) HEAD candidates by filename
|
|
for cand in CANDIDATE_NAMES:
|
|
up3 = upstream_file(repo, cand)
|
|
if up3 is not None and up3 == ours:
|
|
results[key] = ("IDENTICAL", f"{repo}:{cand} (default branch)")
|
|
return
|
|
results[key] = ("DIFFERS" if up is not None else "ERROR", f"{repo}")
|
|
|
|
# Libraries
|
|
for rel, (repo, exact) in LIBS.items():
|
|
check_upstream(rel, os.path.join(ROOT, rel), repo, exact_path=exact)
|
|
|
|
# Special: nomic = canonical Apache-2.0 text; sqlite3 = first-party notice
|
|
#
|
|
# This used to `curl` https://www.apache.org/licenses/LICENSE-2.0.txt at
|
|
# gate time and byte-compare. A gating verdict must not depend on a live
|
|
# HTTP request: any fetch failure yielded an empty string, compared unequal,
|
|
# and reported DIFFERS -- indistinguishable from a real licence change. That
|
|
# is what reddened `security / license-gate` on PR #1337 for over two weeks,
|
|
# on a branch touching three CLI files and no licence at all.
|
|
#
|
|
# The canonical Apache-2.0 text is immutable and versioned, so it is pinned
|
|
# by digest instead. Verified byte-identical to the upstream text at the time
|
|
# of pinning (11358 bytes). A mismatch now means our vendored copy changed --
|
|
# which is exactly, and only, what this audit is meant to detect.
|
|
APACHE_2_0_SHA256 = "cfc7749b96f63bd31c3c42b5c471bf756814053e847c10f3eb003417bc523d30"
|
|
fname, ours = local_license(os.path.join(ROOT, "vendored/nomic"))
|
|
ours_digest = hashlib.sha256(ours.encode("utf-8")).hexdigest() if ours is not None else None
|
|
results["vendored/nomic"] = (
|
|
"IDENTICAL" if ours_digest == APACHE_2_0_SHA256 else "DIFFERS",
|
|
"canonical Apache-2.0 text, pinned by sha256")
|
|
results["vendored/sqlite3"] = ("FIRST-PARTY-NOTICE",
|
|
"own public-domain notice (sqlite has no upstream LICENSE)")
|
|
|
|
# Grammars
|
|
for g in sorted(os.listdir(GRAMMARS)):
|
|
d = os.path.join(GRAMMARS, g)
|
|
if not os.path.isdir(d):
|
|
continue
|
|
key = f"grammars/{g}"
|
|
if g in FIRST_PARTY:
|
|
fname, ours = local_license(d)
|
|
if ours == root_license:
|
|
results[key] = ("FIRST-PARTY-OK", "== project root LICENSE")
|
|
else:
|
|
results[key] = ("FIRST-PARTY-VAR", f"{fname}: differs from root LICENSE")
|
|
continue
|
|
if g in FORKS:
|
|
check_upstream(key, d, FORKS[g])
|
|
continue
|
|
if g in SPECIAL_NOTICE:
|
|
results[key] = ("MANUAL-VERIFIED", SPECIAL_NOTICE[g])
|
|
continue
|
|
if g in DISAGREEMENT:
|
|
check_upstream(key, d, DISAGREEMENT[g])
|
|
continue
|
|
if g in manifest:
|
|
repo, pinned = manifest[g]
|
|
check_upstream(key, d, repo, pinned=pinned)
|
|
continue
|
|
results[key] = ("NO-MANIFEST-ENTRY", "")
|
|
|
|
# Report
|
|
from collections import Counter
|
|
counts = Counter(v[0] for v in results.values())
|
|
print("=== verdict histogram ===")
|
|
for k, v in counts.most_common():
|
|
print(f" {k}: {v}")
|
|
print()
|
|
print("=== everything that is NOT byte-identical ===")
|
|
for key in sorted(results):
|
|
verdict, detail = results[key]
|
|
if verdict not in ("IDENTICAL", "IDENTICAL@PINNED", "FIRST-PARTY-OK"):
|
|
print(f" {key}: {verdict} [{detail}]")
|
|
json.dump({k: list(v) for k, v in results.items()},
|
|
open("/tmp/audit_licenses_results.json", "w"), indent=1)
|
|
print("\nfull results: /tmp/audit_licenses_results.json")
|
|
|
|
accepted = {"IDENTICAL", "IDENTICAL@PINNED", "FIRST-PARTY-OK",
|
|
"FIRST-PARTY-NOTICE", "MANUAL-VERIFIED"}
|
|
bad = {k: v for k, v in results.items() if v[0] not in accepted}
|
|
if bad:
|
|
print(f"\nPROVENANCE AUDIT FAILED: {len(bad)} unexplained verdict(s)")
|
|
sys.exit(1)
|
|
print("\nPROVENANCE AUDIT PASSED: every vendored license accounted for")
|
|
|
|
|
|
if __name__ == "__main__":
|
|
main()
|