@domorium/validator 1.7.0 → 1.8.0

package/dist/index.esm.js

@@ -107,7 +107,7 @@ var r = /* @__PURE__ */ function(e) {
 		})), n;
 	}
 }, p = /* @__PURE__ */ function(e) {
-	return e.UnknownTag = "VAL001", e.MissingTag = "VAL002", e.MissingValue = "VAL003", e.IncorrectValue = "VAL004", e.ShouldBeSetValue = "VAL005", e.MissingRef = "VAL006", e.ManyOccurrences = "VAL007", e.UndocumentedTag = "VAL008", e.DuplicateDeclaration = "VAL009", e.EmptyEvent = "VAL010", e.UnsupportedVersion = "VAL011", e.UndeterminedVersion = "VAL012", e.SubstitutedVersion = "VAL013", e.ImpossibleDay = "VAL014", e.UnresolvedXref = "unresolved-xref", e.InvalidLevel = "invalid-level", e.Lexer = "LEXER", e.Parser = "PARSER", e;
+	return e.UnknownTag = "VAL001", e.MissingTag = "VAL002", e.MissingValue = "VAL003", e.IncorrectValue = "VAL004", e.ShouldBeSetValue = "VAL005", e.MissingRef = "VAL006", e.ManyOccurrences = "VAL007", e.UndocumentedTag = "VAL008", e.DuplicateDeclaration = "VAL009", e.EmptyEvent = "VAL010", e.UnsupportedVersion = "VAL011", e.UndeterminedVersion = "VAL012", e.SubstitutedVersion = "VAL013", e.ImpossibleDay = "VAL014", e.PersonalAncestralFile = "VAL015", e.UnresolvedXref = "unresolved-xref", e.InvalidLevel = "invalid-level", e.Lexer = "LEXER", e.Parser = "PARSER", e;
 }({});
 //#endregion
 //#region src/parser/lineIndex.ts
@@ -1298,8 +1298,20 @@ function Ze(e) {
 	};
 }
 function Qe(e) {
-	let t = e.find((e) => e.tokens.TAG?.value === "HEAD"), n = ((t?.children.find((e) => e.tokens.TAG?.value === "GEDC"))?.children.find((e) => e.tokens.TAG?.value === "VERS"))?.tokens.VALUE?.range ?? t?.range ?? Xe, r = b(e);
-	if (!r) {
+	let t = (t) => e?.children.findIndex((e) => e.tokens.TAG?.value === t) ?? -1, n = t("SYST");
+	if (n === -1) return;
+	let r = t("GEDC");
+	return r === -1 || n < r ? e?.children[n] : void 0;
+}
+function $e(e) {
+	let t = e.find((e) => e.tokens.TAG?.value === "HEAD"), n = ((t?.children.find((e) => e.tokens.TAG?.value === "GEDC"))?.children.find((e) => e.tokens.TAG?.value === "VERS"))?.tokens.VALUE?.range ?? t?.range ?? Xe, r = Qe(t);
+	if (r) return {
+		kind: "paf",
+		system: r.tokens.VALUE?.value?.trim() ?? "",
+		range: r.tokens.VALUE?.range ?? r.range
+	};
+	let i = b(e);
+	if (!i) {
 		let { scheme: e, dialect: t, requiresSchmaDeclaration: r } = Ye;
 		return {
 			kind: "undetermined",
@@ -1309,13 +1321,13 @@ function Qe(e) {
 			range: n
 		};
 	}
-	let i = Je.find(({ version: e }) => r.startsWith(e));
-	return i ? {
-		...i,
+	let a = Je.find(({ version: e }) => i.startsWith(e));
+	return a ? {
+		...a,
 		range: n
 	} : {
 		kind: "unsupported",
-		version: r,
+		version: i,
 		range: n
 	};
 }
@@ -1326,7 +1338,7 @@ var Z = {
 	months: null,
 	epochs: null,
 	keywords: []
-}, $e = [
+}, et = [
 	"ABT",
 	"CAL",
 	"EST",
@@ -1335,22 +1347,22 @@ var Z = {
 	"BET",
 	"FROM",
 	"TO"
-], et = ["FROM", "TO"], tt = {
+], tt = ["FROM", "TO"], nt = {
 	BET: "AND",
 	FROM: "TO"
-}, nt = [
+}, rt = [
 	"GREGORIAN",
 	"JULIAN",
 	"HEBREW",
 	"FRENCH_R"
-], Q = "GREGORIAN", $ = /^\d+$/u, rt = ["BCE", "B.C."];
-function it(e) {
+], Q = "GREGORIAN", $ = /^\d+$/u, it = ["BCE", "B.C."];
+function at(e) {
 	let t = e.split(/\s+/u).filter(Boolean);
 	return /\s$/u.test(e) ? t : t.slice(0, -1);
 }
-function at(e) {
+function ot(e) {
 	let t = 0, n = Q;
-	e[0] !== void 0 && nt.includes(e[0]) && (n = e[0], t = 1);
+	e[0] !== void 0 && rt.includes(e[0]) && (n = e[0], t = 1);
 	let r = e.slice(t);
 	if (r.length === 0) return {
 		calendars: t === 0,
@@ -1359,7 +1371,7 @@ function at(e) {
 		keywords: [],
 		complete: !1
 	};
-	if (r.some((e) => rt.includes(e))) return {
+	if (r.some((e) => it.includes(e))) return {
 		...Z,
 		complete: !0
 	};
@@ -1382,20 +1394,20 @@ function at(e) {
 		complete: o
 	};
 }
-function ot(e, t) {
-	let n = it(e);
+function st(e, t) {
+	let n = at(e);
 	if (t === "exact") return n.length === 1 ? {
 		...Z,
 		months: Q
 	} : Z;
-	let r = t === "period" ? et : $e;
+	let r = t === "period" ? tt : et;
 	if (n.length === 0) return {
 		calendars: !0,
 		months: Q,
 		epochs: null,
 		keywords: r
 	};
-	let i = r.includes(n[0]) ? n[0] : null, a = i === null ? n : n.slice(1), o = i === null ? void 0 : tt[i], s = o === void 0 ? -1 : a.indexOf(o), c = at(s === -1 ? a : a.slice(s + 1));
+	let i = r.includes(n[0]) ? n[0] : null, a = i === null ? n : n.slice(1), o = i === null ? void 0 : nt[i], s = o === void 0 ? -1 : a.indexOf(o), c = ot(s === -1 ? a : a.slice(s + 1));
 	return {
 		calendars: c.calendars,
 		months: c.months,
@@ -1405,15 +1417,15 @@ function ot(e, t) {
 }
 //#endregion
 //#region src/completion/completion.ts
-var st = /^(\d+)\s+(?:@[^\s@]+@\s+)?([A-Z0-9_]*)$/, ct = /^(\d+)\s+(?:@[^\s@]+@\s+)?([A-Z0-9_]+)\s+(.*)$/;
-function lt(e) {
-	return e.flatMap((e) => [e, ...lt(e.children)]);
-}
+var ct = /^(\d+)\s+(?:@[^\s@]+@\s+)?([A-Z0-9_]*)$/, lt = /^(\d+)\s+(?:@[^\s@]+@\s+)?([A-Z0-9_]+)\s+(.*)$/;
 function ut(e) {
+	return e.flatMap((e) => [e, ...ut(e.children)]);
+}
+function dt(e) {
 	let t = /^\{\d+:(\d+|M)\}$/.exec(e);
 	return t ? t[1] === "M" ? Infinity : Number(t[1]) : null;
 }
-function dt(e, t) {
+function ft(e, t) {
 	let n = e, r = t;
 	for (; n;) {
 		if (n.level !== r || !n.tokens.TAG?.value) return !1;
@@ -1421,12 +1433,12 @@ function dt(e, t) {
 	}
 	return r === -1;
 }
-function ft(e, t) {
+function pt(e, t) {
 	if (t === 0) return {
 		parentType: _(""),
 		siblings: e.nodes
 	};
-	let n = lt(e.nodes).filter((t) => t.range.start.line <= e.position.line), r = n.find((t) => t.range.start.line === e.position.line), i;
+	let n = ut(e.nodes).filter((t) => t.range.start.line <= e.position.line), r = n.find((t) => t.range.start.line === e.position.line), i;
 	if (r) {
 		if (r.level !== t || r.parent?.level !== t - 1) return null;
 		i = r.parent;
@@ -1441,18 +1453,18 @@ function ft(e, t) {
 			}
 		}
 	}
-	if (!i || !dt(i, t - 1)) return null;
+	if (!i || !ft(i, t - 1)) return null;
 	let a = new J(e.scheme, e.pointers).getNodeType(i);
 	return a ? {
 		parentType: a,
 		siblings: i.children
 	} : null;
 }
-function pt(e, t) {
-	let n = ft(e, t);
+function mt(e, t) {
+	let n = pt(e, t);
 	if (!n) return [];
 	let r = Object.entries(e.scheme.substructure[n.parentType] ?? {}).filter(([t, r]) => {
-		let i = ut(r.cardinality);
+		let i = dt(r.cardinality);
 		return i === null || i === Infinity || n.siblings.filter((n) => n.range.start.line !== e.position.line && n.tokens.TAG?.value === t).length < i;
 	}).map(([t, n]) => ({
 		label: g(t),
@@ -1465,7 +1477,7 @@ function pt(e, t) {
 	}));
 	return [...r, ...i];
 }
-var mt = {
+var ht = {
 	"date-v7": "value",
 	date: "value",
 	"date-period-v7": "period",
@@ -1473,8 +1485,8 @@ var mt = {
 	"date-exact-v7": "exact",
 	"date-exact": "exact"
 };
-function ht(e, t, n) {
-	let r = ot(n, t), i = (t) => t === null ? void 0 : e.scheme.calendar[g(t)];
+function gt(e, t, n) {
+	let r = st(n, t), i = (t) => t === null ? void 0 : e.scheme.calendar[g(t)];
 	return [
 		...r.calendars ? Object.keys(e.scheme.calendar) : [],
 		...Object.keys(i(r.months)?.months ?? {}),
@@ -1485,13 +1497,13 @@ function ht(e, t, n) {
 		kind: "enum"
 	}));
 }
-function gt(e, t, n, r) {
-	let i = ft(e, t);
+function _t(e, t, n, r) {
+	let i = pt(e, t);
 	if (!i) return [];
 	let a = e.scheme.substructure[i.parentType]?.[g(n)]?.type;
 	if (!a) return [];
-	let o = new J(e.scheme, e.pointers), s = o.getFieldType(a), c = s.type === null ? void 0 : mt[s.type];
-	if (c) return ht(e, c, r);
+	let o = new J(e.scheme, e.pointers), s = o.getFieldType(a), c = s.type === null ? void 0 : ht[s.type];
+	if (c) return gt(e, c, r);
 	if (s.type === "select" || s.type === "multiselect") return [...new Set(o.getAvailableValues(a) ?? [])].filter(Boolean).map((e) => ({
 		label: e,
 		kind: "enum"
@@ -1505,15 +1517,15 @@ function gt(e, t, n, r) {
 	}
 	return [];
 }
-function _t(e) {
-	let t = e.lineText.slice(0, e.position.character), n = st.exec(t);
-	if (n) return pt(e, Number(n[1]));
-	let r = ct.exec(t);
-	return r ? gt(e, Number(r[1]), r[2], r[3]) : [];
+function vt(e) {
+	let t = e.lineText.slice(0, e.position.character), n = ct.exec(t);
+	if (n) return mt(e, Number(n[1]));
+	let r = lt.exec(t);
+	return r ? _t(e, Number(r[1]), r[2], r[3]) : [];
 }
 //#endregion
 //#region src/document/gedcomDocument.ts
-var vt = /* @__PURE__ */ new Set([p.UnresolvedXref, p.UndocumentedTag]), yt = class {
+var yt = /* @__PURE__ */ new Set([p.UnresolvedXref, p.UndocumentedTag]), bt = class {
 	nodes = [];
 	pointers = /* @__PURE__ */ new Map();
 	xRefs = /* @__PURE__ */ new Map();
@@ -1554,13 +1566,24 @@ var vt = /* @__PURE__ */ new Set([p.UnresolvedXref, p.UndocumentedTag]), yt = cl
 	createDocument(e, t = {}) {
 		let { nodes: n, pointers: r, xrefs: i } = this.parseGedcom(e);
 		this.nodes = n, this.pointers = r, this.xRefs = i, this.errors.push(...this.validateLevels(n));
-		let a = Qe(n);
-		return this.resolution = a, t.fragment && t.dialect && a.kind === "undetermined" ? (this.applyScheme(n, Ze(t.dialect), t), this) : a.kind === "undetermined" ? (this.scheme = a.scheme, this.requiresSchmaDeclaration = a.requiresSchmaDeclaration, this.errors.push({
+		let a = $e(n);
+		if (this.resolution = a, t.fragment && t.dialect && a.kind === "undetermined") return this.applyScheme(n, Ze(t.dialect), t), this;
+		if (a.kind === "undetermined") return this.scheme = a.scheme, this.requiresSchmaDeclaration = a.requiresSchmaDeclaration, this.errors.push({
 			code: p.UndeterminedVersion,
 			message: "No GEDCOM version in HEAD.GEDC.VERS, so the file cannot be checked against a specification",
 			range: a.range,
 			level: "error"
-		}), this) : a.kind === "unsupported" ? (this.errors.push({
+		}), this;
+		if (a.kind === "paf") {
+			let e = a.system ? ` (\`1 SYST ${a.system}\`)` : "";
+			return this.errors.push({
+				code: p.PersonalAncestralFile,
+				message: `The header names a system before GEDC${e}, so this is a Personal Ancestral File and is not checked against a GEDCOM specification`,
+				range: a.range,
+				level: "warning"
+			}), this;
+		}
+		return a.kind === "unsupported" ? (this.errors.push({
 			code: p.UnsupportedVersion,
 			message: `GEDCOM ${a.version} is not supported, so the file cannot be checked against a specification`,
 			range: a.range,
@@ -1577,7 +1600,7 @@ var vt = /* @__PURE__ */ new Set([p.UnresolvedXref, p.UndocumentedTag]), yt = cl
 		let { context: r, errors: i } = le(e, this.requiresSchmaDeclaration, this.scheme);
 		this.extensions = r, this.errors.push(...i);
 		let a = new qe(this.pointers, r, n.fragment ?? !1);
-		this.errors.push(...a.validate(this.nodes, _(""), this.scheme)), n.fragment && (this.errors = this.errors.filter((e) => !vt.has(e.code)));
+		this.errors.push(...a.validate(this.nodes, _(""), this.scheme)), n.fragment && (this.errors = this.errors.filter((e) => !yt.has(e.code)));
 	}
 	validateLevels(e, t = 0) {
 		let n = [];
@@ -1623,7 +1646,7 @@ var vt = /* @__PURE__ */ new Set([p.UnresolvedXref, p.UndocumentedTag]), yt = cl
 		return this.resolution && "dialect" in this.resolution ? this.resolution.dialect : void 0;
 	}
 	getCompletions(e, t) {
-		return this.scheme ? _t({
+		return this.scheme ? vt({
 			nodes: this.nodes,
 			pointers: this.pointers,
 			scheme: this.scheme,
@@ -1644,4 +1667,4 @@ var vt = /* @__PURE__ */ new Set([p.UnresolvedXref, p.UndocumentedTag]), yt = cl
 	}
 };
 //#endregion
-export { yt as GedcomDocument, p as GedcomErrorCode, r as TokenNames };
+export { bt as GedcomDocument, p as GedcomErrorCode, r as TokenNames };

package/dist/types/errors.d.ts

@@ -32,6 +32,8 @@ export declare enum GedcomErrorCode {
     SubstitutedVersion = "VAL013",
     /** A date naming a day its calendar does not have, such as 31 FEB. */
     ImpossibleDay = "VAL014",
+    /** A header naming HEAD.SYST before HEAD.GEDC: the file is PAF. */
+    PersonalAncestralFile = "VAL015",
     /** A pointer whose xref names no record of the required type. */
     UnresolvedXref = "unresolved-xref",
     /** A line whose level cannot follow the line above it. */

package/dist/validator/versionRegistry.d.ts

@@ -20,6 +20,12 @@ export type VersionResolution = ({
     kind: "unsupported";
     version: string;
     range: Range;
+}
+/** The payload of HEAD.SYST, which is the program that wrote the file. */
+ | {
+    kind: "paf";
+    system: string;
+    range: Range;
 } | ({
     kind: "undetermined";
     range: Range;

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@domorium/validator",
-  "version": "1.7.0",
+  "version": "1.8.0",
   "description": "GEDCOM 5.5.1 and 7.0 parser and validator",
   "keywords": [
     "gedcom",
@@ -61,6 +61,6 @@
     "ts-brand": "^0.2.0"
   },
   "devDependencies": {
-    "tsx": "^4.23.1"
+    "tsx": "^4.23.12"
   }
 }