@chaffjs/lang-en 0.9.0 → 0.10.0

package/dist/lexicons.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"lexicons.d.ts","sourceRoot":"","sources":["../src/lexicons.ts"],"names":[],"mappings":"AAIA,OAAO,KAAK,EAAE,OAAO,EAAgB,MAAM,gBAAgB,CAAC;AAiB5D;;;GAGG;AACH,eAAO,MAAM,YAAY,GAAI,MAAK,MAAY,KAAG,MAAM,CAAC,MAAM,EAAE,OAAO,CAQ7D,CAAC"}
+{"version":3,"file":"lexicons.d.ts","sourceRoot":"","sources":["../src/lexicons.ts"],"names":[],"mappings":"AAIA,OAAO,KAAK,EAAE,OAAO,EAAgB,MAAM,gBAAgB,CAAC;AAoB5D;;;GAGG;AACH,eAAO,MAAM,YAAY,GAAI,MAAK,MAAY,KAAG,MAAM,CAAC,MAAM,EAAE,OAAO,CAQ7D,CAAC"}

package/dist/lexicons.js

@@ -4,6 +4,7 @@ import { dirname, join } from "node:path";
 import { parse } from "yaml";
 const DIR = join(dirname(fileURLToPath(import.meta.url)), "..", "lexicons");
 const isRecord = (value) => typeof value === "object" && value !== null && !Array.isArray(value);
+const POSITIONS = ["before", "after"];
 const toEntry = (raw) => {
     if (!isRecord(raw) || typeof raw["pattern"] !== "string")
         return undefined;
@@ -13,6 +14,7 @@ const toEntry = (raw) => {
         pattern: raw["pattern"],
         weight: typeof weight === "number" ? weight : undefined,
         instead_of: typeof instead === "string" ? instead : undefined,
+        position: POSITIONS.find((position) => position === raw["position"]),
     };
 };
 /**

package/dist/lexicons.js.map

@@ -1 +1 @@
-{"version":3,"file":"lexicons.js","sourceRoot":"","sources":["../src/lexicons.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,YAAY,EAAE,WAAW,EAAE,MAAM,SAAS,CAAC;AACpD,OAAO,EAAE,aAAa,EAAE,MAAM,UAAU,CAAC;AACzC,OAAO,EAAE,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AAC1C,OAAO,EAAE,KAAK,EAAE,MAAM,MAAM,CAAC;AAG7B,MAAM,GAAG,GAAG,IAAI,CAAC,OAAO,CAAC,aAAa,CAAC,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,EAAE,UAAU,CAAC,CAAC;AAE5E,MAAM,QAAQ,GAAG,CAAC,KAAc,EAAoC,EAAE,CAAC,OAAO,KAAK,KAAK,QAAQ,IAAI,KAAK,KAAK,IAAI,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC;AAE5I,MAAM,OAAO,GAAG,CAAC,GAAY,EAA4B,EAAE;IACzD,IAAI,CAAC,QAAQ,CAAC,GAAG,CAAC,IAAI,OAAO,GAAG,CAAC,SAAS,CAAC,KAAK,QAAQ;QAAE,OAAO,SAAS,CAAC;IAC3E,MAAM,MAAM,GAAG,GAAG,CAAC,QAAQ,CAAC,CAAC;IAC7B,MAAM,OAAO,GAAG,GAAG,CAAC,YAAY,CAAC,CAAC;IAClC,OAAO;QACL,OAAO,EAAE,GAAG,CAAC,SAAS,CAAC;QACvB,MAAM,EAAE,OAAO,MAAM,KAAK,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,SAAS;QACvD,UAAU,EAAE,OAAO,OAAO,KAAK,QAAQ,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,SAAS;KAC9D,CAAC;AACJ,CAAC,CAAC;AAEF;;;GAGG;AACH,MAAM,CAAC,MAAM,YAAY,GAAG,CAAC,MAAc,GAAG,EAA2B,EAAE,CACzE,WAAW,CAAC,GAAG,CAAC;KACb,MAAM,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,QAAQ,CAAC,OAAO,CAAC,CAAC;KACxC,MAAM,CAA0B,CAAC,GAAG,EAAE,IAAI,EAAE,EAAE;IAC7C,MAAM,GAAG,GAAY,KAAK,CAAC,YAAY,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,CAAC,EAAE,MAAM,CAAC,CAAC,CAAC;IAClE,IAAI,CAAC,QAAQ,CAAC,GAAG,CAAC,IAAI,OAAO,GAAG,CAAC,IAAI,CAAC,KAAK,QAAQ,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,GAAG,CAAC,SAAS,CAAC,CAAC;QAAE,OAAO,GAAG,CAAC;IAClG,MAAM,OAAO,GAAG,GAAG,CAAC,SAAS,CAAC,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC,MAAM,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,KAAK,KAAK,SAAS,CAAC,CAAC;IACnF,OAAO,EAAE,GAAG,GAAG,EAAE,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,EAAE,OAAO,EAAE,CAAC;AAC1C,CAAC,EAAE,EAAE,CAAC,CAAC"}
+{"version":3,"file":"lexicons.js","sourceRoot":"","sources":["../src/lexicons.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,YAAY,EAAE,WAAW,EAAE,MAAM,SAAS,CAAC;AACpD,OAAO,EAAE,aAAa,EAAE,MAAM,UAAU,CAAC;AACzC,OAAO,EAAE,OAAO,EAAE,IAAI,EAAE,MAAM,WAAW,CAAC;AAC1C,OAAO,EAAE,KAAK,EAAE,MAAM,MAAM,CAAC;AAG7B,MAAM,GAAG,GAAG,IAAI,CAAC,OAAO,CAAC,aAAa,CAAC,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,EAAE,UAAU,CAAC,CAAC;AAE5E,MAAM,QAAQ,GAAG,CAAC,KAAc,EAAoC,EAAE,CAAC,OAAO,KAAK,KAAK,QAAQ,IAAI,KAAK,KAAK,IAAI,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC;AAE5I,MAAM,SAAS,GAAG,CAAC,QAAQ,EAAE,OAAO,CAAU,CAAC;AAE/C,MAAM,OAAO,GAAG,CAAC,GAAY,EAA4B,EAAE;IACzD,IAAI,CAAC,QAAQ,CAAC,GAAG,CAAC,IAAI,OAAO,GAAG,CAAC,SAAS,CAAC,KAAK,QAAQ;QAAE,OAAO,SAAS,CAAC;IAC3E,MAAM,MAAM,GAAG,GAAG,CAAC,QAAQ,CAAC,CAAC;IAC7B,MAAM,OAAO,GAAG,GAAG,CAAC,YAAY,CAAC,CAAC;IAClC,OAAO;QACL,OAAO,EAAE,GAAG,CAAC,SAAS,CAAC;QACvB,MAAM,EAAE,OAAO,MAAM,KAAK,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,SAAS;QACvD,UAAU,EAAE,OAAO,OAAO,KAAK,QAAQ,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,SAAS;QAC7D,QAAQ,EAAE,SAAS,CAAC,IAAI,CAAC,CAAC,QAAQ,EAAE,EAAE,CAAC,QAAQ,KAAK,GAAG,CAAC,UAAU,CAAC,CAAC;KACrE,CAAC;AACJ,CAAC,CAAC;AAEF;;;GAGG;AACH,MAAM,CAAC,MAAM,YAAY,GAAG,CAAC,MAAc,GAAG,EAA2B,EAAE,CACzE,WAAW,CAAC,GAAG,CAAC;KACb,MAAM,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,QAAQ,CAAC,OAAO,CAAC,CAAC;KACxC,MAAM,CAA0B,CAAC,GAAG,EAAE,IAAI,EAAE,EAAE;IAC7C,MAAM,GAAG,GAAY,KAAK,CAAC,YAAY,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,CAAC,EAAE,MAAM,CAAC,CAAC,CAAC;IAClE,IAAI,CAAC,QAAQ,CAAC,GAAG,CAAC,IAAI,OAAO,GAAG,CAAC,IAAI,CAAC,KAAK,QAAQ,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,GAAG,CAAC,SAAS,CAAC,CAAC;QAAE,OAAO,GAAG,CAAC;IAClG,MAAM,OAAO,GAAG,GAAG,CAAC,SAAS,CAAC,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC,MAAM,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,KAAK,KAAK,SAAS,CAAC,CAAC;IACnF,OAAO,EAAE,GAAG,GAAG,EAAE,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,EAAE,OAAO,EAAE,CAAC;AAC1C,CAAC,EAAE,EAAE,CAAC,CAAC"}

package/dist/pos.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"pos.d.ts","sourceRoot":"","sources":["../src/pos.ts"],"names":[],"mappings":"AACA,OAAO,KAAK,EAAE,KAAK,EAAE,MAAM,gBAAgB,CAAC;AA4E5C,eAAO,MAAM,IAAI,GAAI,KAAK,MAAM,KAAG,MAAiE,CAAC;AAkErG,eAAO,MAAM,OAAO,QAAO,IAE1B,CAAC;AAEF,eAAO,MAAM,OAAO,QAAO,OAAoC,CAAC;AAwBhE,eAAO,MAAM,QAAQ,GAAI,MAAM,MAAM,KAAG,KAAK,EAAE,GAAG,SAIjD,CAAC"}
+{"version":3,"file":"pos.d.ts","sourceRoot":"","sources":["../src/pos.ts"],"names":[],"mappings":"AACA,OAAO,KAAK,EAAE,KAAK,EAAE,MAAM,gBAAgB,CAAC;AA+E5C,eAAO,MAAM,IAAI,GAAI,KAAK,MAAM,KAAG,MAAiE,CAAC;AAyFrG,eAAO,MAAM,OAAO,QAAO,IAE1B,CAAC;AAEF,eAAO,MAAM,OAAO,QAAO,OAAoC,CAAC;AAwBhE,eAAO,MAAM,QAAQ,GAAI,MAAM,MAAM,KAAG,KAAK,EAAE,GAAG,SAIjD,CAAC"}

package/dist/pos.js

@@ -1,4 +1,7 @@
 import { createRequire } from "node:module";
+import { loadLexicons } from "./lexicons.js";
+import { properNounChecked } from "./proper-noun.js";
+import { isStativeParticiple, stativeVocabulary } from "./stative-participle.js";
 const require = createRequire(import.meta.url);
 const isRecord = (value) => typeof value === "object" && value !== null;
 const isCallable = (value) => typeof value === "function";
@@ -104,16 +107,32 @@ const inRelativeClause = (tagged, be) => {
     const antecedent = tagged.slice(0, lead).findLast((entry) => entry.pos !== ",");
     return antecedent !== undefined && NOMINAL_TAG.has(antecedent.pos);
 };
+const LEXICONS = loadLexicons();
+const STATIVE = stativeVocabulary(LEXICONS);
 const isPassive = (tagged, at) => {
     if (tagged[at]?.pos !== "VBN")
         return false;
     const be = beBefore(tagged, at);
-    return be !== -1 && !inRelativeClause(tagged, be);
+    return be !== -1 && !inRelativeClause(tagged, be) && !isStativeParticiple(tagged, at, STATIVE);
+};
+const wordsOf = (name) => new Set((LEXICONS[name] ?? []).map((entry) => entry.pattern.toLowerCase()));
+const ARTICLES = wordsOf("article");
+/** 目的語にも所有にもなる語（give her the book / her book）。解析器はいつも PRP$ と付けるので、所有とは言えない。 */
+const OBJECT_OR_POSSESSIVE = wordsOf("object-or-possessive");
+const POSSESSIVE_TAG = new Set(["PRP$", "WP$"]);
+/** 冠詞（PronType=Art）と所有の語（Poss=Yes）は、名詞の前に一つしか立たない。二つ並ぶ our the platform は書き損じ。 */
+const determinerFeatures = (entry) => {
+    if (POSSESSIVE_TAG.has(entry.pos))
+        return OBJECT_OR_POSSESSIVE.has(entry.value.toLowerCase()) ? {} : { features: { Poss: "Yes" } };
+    return entry.pos === "DT" && ARTICLES.has(entry.value.toLowerCase()) ? { features: { PronType: "Art" } } : {};
 };
 /** 過去分詞は VerbForm=Part。Based on the review, のような分詞の導入句を、命令形の並び（fix the parser, ship it）と見分ける。 */
 const featuresOf = (tagged, at) => {
-    if (tagged[at]?.pos !== "VBN")
+    const entry = tagged[at];
+    if (entry === undefined)
         return {};
+    if (entry.pos !== "VBN")
+        return determinerFeatures(entry);
     return { features: isPassive(tagged, at) ? { VerbForm: "Part", Voice: "Pass" } : { VerbForm: "Part" } };
 };
 const state = { ready: undefined };
@@ -133,7 +152,7 @@ const locate = (text, tagged) => tagged.reduce((acc, entry, at) => {
     const token = {
         span: { start, end },
         surface: entry.value,
-        pos: upos(entry.pos),
+        pos: properNounChecked(entry.value, upos(entry.pos)),
         ...(entry.lemma === undefined ? {} : { lemma: entry.lemma }),
         ...featuresOf(tagged, at),
     };

package/dist/pos.js.map

@@ -1 +1 @@
-{"version":3,"file":"pos.js","sourceRoot":"","sources":["../src/pos.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,aAAa,EAAE,MAAM,aAAa,CAAC;AAG5C,MAAM,OAAO,GAAG,aAAa,CAAC,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;AAO/C,MAAM,QAAQ,GAAG,CAAC,KAAc,EAAoC,EAAE,CAAC,OAAO,KAAK,KAAK,QAAQ,IAAI,KAAK,KAAK,IAAI,CAAC;AAEnH,MAAM,UAAU,GAAG,CAAC,KAAc,EAAqD,EAAE,CAAC,OAAO,KAAK,KAAK,UAAU,CAAC;AAEtH,MAAM,QAAQ,GAAG,CAAC,KAAc,EAAmB,EAAE,CAAC,QAAQ,CAAC,KAAK,CAAC,IAAI,OAAO,KAAK,CAAC,OAAO,CAAC,KAAK,QAAQ,IAAI,OAAO,KAAK,CAAC,KAAK,CAAC,KAAK,QAAQ,CAAC;AAEhJ,MAAM,OAAO,GAAG,CAAC,KAAc,EAAsB,EAAE,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;AAE5F,kEAAkE;AAClE,MAAM,UAAU,GAAG,CAAC,KAA8B,EAAE,IAAY,EAAE,IAAwB,EAAW,EAAE;IACrG,MAAM,MAAM,GAAY,KAAK,CAAC,IAAI,CAAC,CAAC;IACpC,IAAI,CAAC,UAAU,CAAC,MAAM,CAAC;QAAE,MAAM,IAAI,KAAK,CAAC,qBAAqB,IAAI,WAAW,CAAC,CAAC;IAC/E,OAAO,OAAO,CAAC,KAAK,CAAC,MAAM,EAAE,KAAK,EAAE,IAAI,CAAC,CAAC;AAC5C,CAAC,CAAC;AAEF,MAAM,KAAK,GAAG,GAAW,EAAE;IACzB,MAAM,OAAO,GAAY,OAAO,CAAC,iBAAiB,CAAC,CAAC;IACpD,IAAI,CAAC,UAAU,CAAC,OAAO,CAAC;QAAE,MAAM,IAAI,KAAK,CAAC,oCAAoC,CAAC,CAAC;IAChF,MAAM,MAAM,GAAY,OAAO,EAAE,CAAC;IAClC,IAAI,CAAC,QAAQ,CAAC,MAAM,CAAC;QAAE,MAAM,IAAI,KAAK,CAAC,oCAAoC,CAAC,CAAC;IAC7E,OAAO,MAAM,CAAC;AAChB,CAAC,CAAC;AAEF;;;GAGG;AACH,MAAM,MAAM,GAAqC;IAC/C,EAAE,EAAE,OAAO;IACX,EAAE,EAAE,KAAK;IACT,EAAE,EAAE,KAAK;IACT,EAAE,EAAE,MAAM;IACV,EAAE,EAAE,GAAG;IACP,EAAE,EAAE,KAAK;IACT,EAAE,EAAE,KAAK;IACT,GAAG,EAAE,KAAK;IACV,GAAG,EAAE,KAAK;IACV,EAAE,EAAE,KAAK;IACT,EAAE,EAAE,MAAM;IACV,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,OAAO;IACZ,IAAI,EAAE,OAAO;IACb,GAAG,EAAE,KAAK;IACV,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,MAAM;IACX,IAAI,EAAE,MAAM;IACZ,EAAE,EAAE,KAAK;IACT,GAAG,EAAE,KAAK;IACV,GAAG,EAAE,KAAK;IACV,EAAE,EAAE,KAAK;IACT,GAAG,EAAE,KAAK;IACV,EAAE,EAAE,MAAM;IACV,EAAE,EAAE,MAAM;IACV,EAAE,EAAE,MAAM;IACV,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,KAAK;IACV,EAAE,EAAE,MAAM;IACV,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,KAAK;CACX,CAAC;AAEF,MAAM,WAAW,GAAG,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC;AAE7E,MAAM,CAAC,MAAM,IAAI,GAAG,CAAC,GAAW,EAAU,EAAE,CAAC,CAAC,WAAW,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,GAAG,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC;AAErG;;;GAGG;AACH;;;;;;GAMG;AACH,MAAM,SAAS,GAAG,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC;AAE3D,MAAM,EAAE,GAAG,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,OAAO,CAAC,CAAC,CAAC;AAE9E,MAAM,IAAI,GAAG,CAAC,KAAa,EAAW,EAAE,CAAC,EAAE,CAAC,GAAG,CAAC,KAAK,CAAC,KAAK,IAAI,KAAK,CAAC,KAAK,CAAC,WAAW,EAAE,CAAC,IAAI,EAAE,CAAC,GAAG,CAAC,KAAK,CAAC,KAAK,CAAC,WAAW,EAAE,CAAC,CAAC;AAE/H,8BAA8B;AAC9B,MAAM,QAAQ,GAAG,CAAC,MAAyB,EAAE,EAAU,EAAU,EAAE;IACjE,MAAM,IAAI,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,aAAa,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,SAAS,CAAC,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC;IACrF,MAAM,KAAK,GAAG,MAAM,CAAC,IAAI,CAAC,CAAC;IAC3B,OAAO,KAAK,KAAK,SAAS,IAAI,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;AACxD,CAAC,CAAC;AAEF;;;;;GAKG;AACH,MAAM,eAAe,GAAG,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,IAAI,CAAC,CAAC,CAAC;AAE5D,MAAM,IAAI,GAAG,IAAI,GAAG,CAAC,CAAC,MAAM,EAAE,KAAK,EAAE,KAAK,EAAE,QAAQ,CAAC,CAAC,CAAC;AAEvD,MAAM,WAAW,GAAG,CAAC,KAAa,EAAW,EAAE,CAAC,eAAe,CAAC,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC,IAAI,IAAI,CAAC,KAAK,CAAC,IAAI,IAAI,CAAC,GAAG,CAAC,KAAK,CAAC,KAAK,CAAC,WAAW,EAAE,CAAC,CAAC;AAErI,wDAAwD;AACxD,MAAM,WAAW,GAAG,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC;AAE7E,MAAM,YAAY,GAAG,IAAI,GAAG,CAAC,CAAC,KAAK,EAAE,IAAI,CAAC,CAAC,CAAC;AAE5C,MAAM,gBAAgB,GAAG,CAAC,MAAyB,EAAE,EAAU,EAAW,EAAE;IAC1E,MAAM,IAAI,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,aAAa,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,WAAW,CAAC,KAAK,CAAC,CAAC,CAAC;IAC/E,MAAM,QAAQ,GAAG,MAAM,CAAC,IAAI,CAAC,CAAC;IAC9B,IAAI,QAAQ,KAAK,SAAS,IAAI,CAAC,YAAY,CAAC,GAAG,CAAC,QAAQ,CAAC,GAAG,CAAC;QAAE,OAAO,KAAK,CAAC;IAC5E,6DAA6D;IAC7D,MAAM,UAAU,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC,QAAQ,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,KAAK,CAAC,GAAG,KAAK,GAAG,CAAC,CAAC;IAChF,OAAO,UAAU,KAAK,SAAS,IAAI,WAAW,CAAC,GAAG,CAAC,UAAU,CAAC,GAAG,CAAC,CAAC;AACrE,CAAC,CAAC;AAEF,MAAM,SAAS,GAAG,CAAC,MAAyB,EAAE,EAAU,EAAW,EAAE;IACnE,IAAI,MAAM,CAAC,EAAE,CAAC,EAAE,GAAG,KAAK,KAAK;QAAE,OAAO,KAAK,CAAC;IAC5C,MAAM,EAAE,GAAG,QAAQ,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC;IAChC,OAAO,EAAE,KAAK,CAAC,CAAC,IAAI,CAAC,gBAAgB,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC;AACpD,CAAC,CAAC;AAEF,iGAAiG;AACjG,MAAM,UAAU,GAAG,CAAC,MAAyB,EAAE,EAAU,EAAmD,EAAE;IAC5G,IAAI,MAAM,CAAC,EAAE,CAAC,EAAE,GAAG,KAAK,KAAK;QAAE,OAAO,EAAE,CAAC;IACzC,OAAO,EAAE,QAAQ,EAAE,SAAS,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,MAAM,EAAE,EAAE,CAAC;AAC1G,CAAC,CAAC;AAEF,MAAM,KAAK,GAAkC,EAAE,KAAK,EAAE,SAAS,EAAE,CAAC;AAElE,MAAM,CAAC,MAAM,OAAO,GAAG,GAAS,EAAE;IAChC,KAAK,CAAC,KAAK,KAAK,KAAK,EAAE,CAAC;AAC1B,CAAC,CAAC;AAEF,MAAM,CAAC,MAAM,OAAO,GAAG,GAAY,EAAE,CAAC,KAAK,CAAC,KAAK,KAAK,SAAS,CAAC;AAEhE;;;GAGG;AACH,MAAM,MAAM,GAAG,CAAC,IAAY,EAAE,MAAyB,EAAW,EAAE,CAClE,MAAM,CAAC,MAAM,CACX,CAAC,GAAG,EAAE,KAAK,EAAE,EAAE,EAAE,EAAE;IACjB,MAAM,KAAK,GAAG,IAAI,CAAC,OAAO,CAAC,KAAK,CAAC,KAAK,EAAE,GAAG,CAAC,MAAM,CAAC,CAAC;IACpD,IAAI,KAAK,KAAK,CAAC,CAAC;QAAE,OAAO,GAAG,CAAC;IAC7B,MAAM,GAAG,GAAG,KAAK,GAAG,KAAK,CAAC,KAAK,CAAC,MAAM,CAAC;IACvC,MAAM,KAAK,GAAG;QACZ,IAAI,EAAE,EAAE,KAAK,EAAE,GAAG,EAAE;QACpB,OAAO,EAAE,KAAK,CAAC,KAAK;QACpB,GAAG,EAAE,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC;QACpB,GAAG,CAAC,KAAK,CAAC,KAAK,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,KAAK,EAAE,KAAK,CAAC,KAAK,EAAE,CAAC;QAC5D,GAAG,UAAU,CAAC,MAAM,EAAE,EAAE,CAAC;KAC1B,CAAC;IACF,OAAO,EAAE,MAAM,EAAE,CAAC,GAAG,GAAG,CAAC,MAAM,EAAE,KAAK,CAAC,EAAE,MAAM,EAAE,GAAG,EAAE,CAAC;AACzD,CAAC,EACD,EAAE,MAAM,EAAE,EAAE,EAAE,MAAM,EAAE,CAAC,EAAE,CAC1B,CAAC,MAAM,CAAC;AAEX,MAAM,CAAC,MAAM,QAAQ,GAAG,CAAC,IAAY,EAAuB,EAAE;IAC5D,MAAM,MAAM,GAAG,KAAK,CAAC,KAAK,CAAC;IAC3B,IAAI,MAAM,KAAK,SAAS;QAAE,OAAO,SAAS,CAAC;IAC3C,OAAO,MAAM,CAAC,IAAI,EAAE,OAAO,CAAC,UAAU,CAAC,MAAM,EAAE,aAAa,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,QAAQ,CAAC,CAAC,CAAC;AAC3F,CAAC,CAAC"}
+{"version":3,"file":"pos.js","sourceRoot":"","sources":["../src/pos.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,aAAa,EAAE,MAAM,aAAa,CAAC;AAE5C,OAAO,EAAE,YAAY,EAAE,MAAM,eAAe,CAAC;AAC7C,OAAO,EAAE,iBAAiB,EAAE,MAAM,kBAAkB,CAAC;AACrD,OAAO,EAAE,mBAAmB,EAAE,iBAAiB,EAAE,MAAM,yBAAyB,CAAC;AAEjF,MAAM,OAAO,GAAG,aAAa,CAAC,MAAM,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;AAO/C,MAAM,QAAQ,GAAG,CAAC,KAAc,EAAoC,EAAE,CAAC,OAAO,KAAK,KAAK,QAAQ,IAAI,KAAK,KAAK,IAAI,CAAC;AAEnH,MAAM,UAAU,GAAG,CAAC,KAAc,EAAqD,EAAE,CAAC,OAAO,KAAK,KAAK,UAAU,CAAC;AAEtH,MAAM,QAAQ,GAAG,CAAC,KAAc,EAAmB,EAAE,CAAC,QAAQ,CAAC,KAAK,CAAC,IAAI,OAAO,KAAK,CAAC,OAAO,CAAC,KAAK,QAAQ,IAAI,OAAO,KAAK,CAAC,KAAK,CAAC,KAAK,QAAQ,CAAC;AAEhJ,MAAM,OAAO,GAAG,CAAC,KAAc,EAAsB,EAAE,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;AAE5F,kEAAkE;AAClE,MAAM,UAAU,GAAG,CAAC,KAA8B,EAAE,IAAY,EAAE,IAAwB,EAAW,EAAE;IACrG,MAAM,MAAM,GAAY,KAAK,CAAC,IAAI,CAAC,CAAC;IACpC,IAAI,CAAC,UAAU,CAAC,MAAM,CAAC;QAAE,MAAM,IAAI,KAAK,CAAC,qBAAqB,IAAI,WAAW,CAAC,CAAC;IAC/E,OAAO,OAAO,CAAC,KAAK,CAAC,MAAM,EAAE,KAAK,EAAE,IAAI,CAAC,CAAC;AAC5C,CAAC,CAAC;AAEF,MAAM,KAAK,GAAG,GAAW,EAAE;IACzB,MAAM,OAAO,GAAY,OAAO,CAAC,iBAAiB,CAAC,CAAC;IACpD,IAAI,CAAC,UAAU,CAAC,OAAO,CAAC;QAAE,MAAM,IAAI,KAAK,CAAC,oCAAoC,CAAC,CAAC;IAChF,MAAM,MAAM,GAAY,OAAO,EAAE,CAAC;IAClC,IAAI,CAAC,QAAQ,CAAC,MAAM,CAAC;QAAE,MAAM,IAAI,KAAK,CAAC,oCAAoC,CAAC,CAAC;IAC7E,OAAO,MAAM,CAAC;AAChB,CAAC,CAAC;AAEF;;;GAGG;AACH,MAAM,MAAM,GAAqC;IAC/C,EAAE,EAAE,OAAO;IACX,EAAE,EAAE,KAAK;IACT,EAAE,EAAE,KAAK;IACT,EAAE,EAAE,MAAM;IACV,EAAE,EAAE,GAAG;IACP,EAAE,EAAE,KAAK;IACT,EAAE,EAAE,KAAK;IACT,GAAG,EAAE,KAAK;IACV,GAAG,EAAE,KAAK;IACV,EAAE,EAAE,KAAK;IACT,EAAE,EAAE,MAAM;IACV,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,OAAO;IACZ,IAAI,EAAE,OAAO;IACb,GAAG,EAAE,KAAK;IACV,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,MAAM;IACX,IAAI,EAAE,MAAM;IACZ,EAAE,EAAE,KAAK;IACT,GAAG,EAAE,KAAK;IACV,GAAG,EAAE,KAAK;IACV,EAAE,EAAE,KAAK;IACT,GAAG,EAAE,KAAK;IACV,EAAE,EAAE,MAAM;IACV,EAAE,EAAE,MAAM;IACV,EAAE,EAAE,MAAM;IACV,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,KAAK;IACV,EAAE,EAAE,MAAM;IACV,GAAG,EAAE,MAAM;IACX,GAAG,EAAE,KAAK;CACX,CAAC;AAEF,MAAM,WAAW,GAAG,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,IAAI,EAAE,IAAI,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC;AAE7E,MAAM,CAAC,MAAM,IAAI,GAAG,CAAC,GAAW,EAAU,EAAE,CAAC,CAAC,WAAW,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,GAAG,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC;AAErG;;;GAGG;AACH;;;;;;GAMG;AACH,MAAM,SAAS,GAAG,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,IAAI,EAAE,GAAG,CAAC,CAAC,CAAC;AAE3D,MAAM,EAAE,GAAG,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,OAAO,CAAC,CAAC,CAAC;AAE9E,MAAM,IAAI,GAAG,CAAC,KAAa,EAAW,EAAE,CAAC,EAAE,CAAC,GAAG,CAAC,KAAK,CAAC,KAAK,IAAI,KAAK,CAAC,KAAK,CAAC,WAAW,EAAE,CAAC,IAAI,EAAE,CAAC,GAAG,CAAC,KAAK,CAAC,KAAK,CAAC,WAAW,EAAE,CAAC,CAAC;AAE/H,8BAA8B;AAC9B,MAAM,QAAQ,GAAG,CAAC,MAAyB,EAAE,EAAU,EAAU,EAAE;IACjE,MAAM,IAAI,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,aAAa,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,SAAS,CAAC,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC;IACrF,MAAM,KAAK,GAAG,MAAM,CAAC,IAAI,CAAC,CAAC;IAC3B,OAAO,KAAK,KAAK,SAAS,IAAI,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;AACxD,CAAC,CAAC;AAEF;;;;;GAKG;AACH,MAAM,eAAe,GAAG,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,IAAI,CAAC,CAAC,CAAC;AAE5D,MAAM,IAAI,GAAG,IAAI,GAAG,CAAC,CAAC,MAAM,EAAE,KAAK,EAAE,KAAK,EAAE,QAAQ,CAAC,CAAC,CAAC;AAEvD,MAAM,WAAW,GAAG,CAAC,KAAa,EAAW,EAAE,CAAC,eAAe,CAAC,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC,IAAI,IAAI,CAAC,KAAK,CAAC,IAAI,IAAI,CAAC,GAAG,CAAC,KAAK,CAAC,KAAK,CAAC,WAAW,EAAE,CAAC,CAAC;AAErI,wDAAwD;AACxD,MAAM,WAAW,GAAG,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC;AAE7E,MAAM,YAAY,GAAG,IAAI,GAAG,CAAC,CAAC,KAAK,EAAE,IAAI,CAAC,CAAC,CAAC;AAE5C,MAAM,gBAAgB,GAAG,CAAC,MAAyB,EAAE,EAAU,EAAW,EAAE;IAC1E,MAAM,IAAI,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,aAAa,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,WAAW,CAAC,KAAK,CAAC,CAAC,CAAC;IAC/E,MAAM,QAAQ,GAAG,MAAM,CAAC,IAAI,CAAC,CAAC;IAC9B,IAAI,QAAQ,KAAK,SAAS,IAAI,CAAC,YAAY,CAAC,GAAG,CAAC,QAAQ,CAAC,GAAG,CAAC;QAAE,OAAO,KAAK,CAAC;IAC5E,6DAA6D;IAC7D,MAAM,UAAU,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC,QAAQ,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,KAAK,CAAC,GAAG,KAAK,GAAG,CAAC,CAAC;IAChF,OAAO,UAAU,KAAK,SAAS,IAAI,WAAW,CAAC,GAAG,CAAC,UAAU,CAAC,GAAG,CAAC,CAAC;AACrE,CAAC,CAAC;AAEF,MAAM,QAAQ,GAAG,YAAY,EAAE,CAAC;AAEhC,MAAM,OAAO,GAAG,iBAAiB,CAAC,QAAQ,CAAC,CAAC;AAE5C,MAAM,SAAS,GAAG,CAAC,MAAyB,EAAE,EAAU,EAAW,EAAE;IACnE,IAAI,MAAM,CAAC,EAAE,CAAC,EAAE,GAAG,KAAK,KAAK;QAAE,OAAO,KAAK,CAAC;IAC5C,MAAM,EAAE,GAAG,QAAQ,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC;IAChC,OAAO,EAAE,KAAK,CAAC,CAAC,IAAI,CAAC,gBAAgB,CAAC,MAAM,EAAE,EAAE,CAAC,IAAI,CAAC,mBAAmB,CAAC,MAAM,EAAE,EAAE,EAAE,OAAO,CAAC,CAAC;AACjG,CAAC,CAAC;AAEF,MAAM,OAAO,GAAG,CAAC,IAAY,EAAuB,EAAE,CAAC,IAAI,GAAG,CAAC,CAAC,QAAQ,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,KAAK,CAAC,OAAO,CAAC,WAAW,EAAE,CAAC,CAAC,CAAC;AAEnI,MAAM,QAAQ,GAAG,OAAO,CAAC,SAAS,CAAC,CAAC;AAEpC,+EAA+E;AAC/E,MAAM,oBAAoB,GAAG,OAAO,CAAC,sBAAsB,CAAC,CAAC;AAE7D,MAAM,cAAc,GAAG,IAAI,GAAG,CAAC,CAAC,MAAM,EAAE,KAAK,CAAC,CAAC,CAAC;AAIhD,kFAAkF;AAClF,MAAM,kBAAkB,GAAG,CAAC,KAAa,EAAY,EAAE;IACrD,IAAI,cAAc,CAAC,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC;QAAE,OAAO,oBAAoB,CAAC,GAAG,CAAC,KAAK,CAAC,KAAK,CAAC,WAAW,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,EAAE,IAAI,EAAE,KAAK,EAAE,EAAE,CAAC;IACnI,OAAO,KAAK,CAAC,GAAG,KAAK,IAAI,IAAI,QAAQ,CAAC,GAAG,CAAC,KAAK,CAAC,KAAK,CAAC,WAAW,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,EAAE,QAAQ,EAAE,KAAK,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;AAChH,CAAC,CAAC;AAEF,iGAAiG;AACjG,MAAM,UAAU,GAAG,CAAC,MAAyB,EAAE,EAAU,EAAY,EAAE;IACrE,MAAM,KAAK,GAAG,MAAM,CAAC,EAAE,CAAC,CAAC;IACzB,IAAI,KAAK,KAAK,SAAS;QAAE,OAAO,EAAE,CAAC;IACnC,IAAI,KAAK,CAAC,GAAG,KAAK,KAAK;QAAE,OAAO,kBAAkB,CAAC,KAAK,CAAC,CAAC;IAC1D,OAAO,EAAE,QAAQ,EAAE,SAAS,CAAC,MAAM,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,MAAM,EAAE,EAAE,CAAC;AAC1G,CAAC,CAAC;AAEF,MAAM,KAAK,GAAkC,EAAE,KAAK,EAAE,SAAS,EAAE,CAAC;AAElE,MAAM,CAAC,MAAM,OAAO,GAAG,GAAS,EAAE;IAChC,KAAK,CAAC,KAAK,KAAK,KAAK,EAAE,CAAC;AAC1B,CAAC,CAAC;AAEF,MAAM,CAAC,MAAM,OAAO,GAAG,GAAY,EAAE,CAAC,KAAK,CAAC,KAAK,KAAK,SAAS,CAAC;AAEhE;;;GAGG;AACH,MAAM,MAAM,GAAG,CAAC,IAAY,EAAE,MAAyB,EAAW,EAAE,CAClE,MAAM,CAAC,MAAM,CACX,CAAC,GAAG,EAAE,KAAK,EAAE,EAAE,EAAE,EAAE;IACjB,MAAM,KAAK,GAAG,IAAI,CAAC,OAAO,CAAC,KAAK,CAAC,KAAK,EAAE,GAAG,CAAC,MAAM,CAAC,CAAC;IACpD,IAAI,KAAK,KAAK,CAAC,CAAC;QAAE,OAAO,GAAG,CAAC;IAC7B,MAAM,GAAG,GAAG,KAAK,GAAG,KAAK,CAAC,KAAK,CAAC,MAAM,CAAC;IACvC,MAAM,KAAK,GAAG;QACZ,IAAI,EAAE,EAAE,KAAK,EAAE,GAAG,EAAE;QACpB,OAAO,EAAE,KAAK,CAAC,KAAK;QACpB,GAAG,EAAE,iBAAiB,CAAC,KAAK,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC;QACpD,GAAG,CAAC,KAAK,CAAC,KAAK,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,KAAK,EAAE,KAAK,CAAC,KAAK,EAAE,CAAC;QAC5D,GAAG,UAAU,CAAC,MAAM,EAAE,EAAE,CAAC;KAC1B,CAAC;IACF,OAAO,EAAE,MAAM,EAAE,CAAC,GAAG,GAAG,CAAC,MAAM,EAAE,KAAK,CAAC,EAAE,MAAM,EAAE,GAAG,EAAE,CAAC;AACzD,CAAC,EACD,EAAE,MAAM,EAAE,EAAE,EAAE,MAAM,EAAE,CAAC,EAAE,CAC1B,CAAC,MAAM,CAAC;AAEX,MAAM,CAAC,MAAM,QAAQ,GAAG,CAAC,IAAY,EAAuB,EAAE;IAC5D,MAAM,MAAM,GAAG,KAAK,CAAC,KAAK,CAAC;IAC3B,IAAI,MAAM,KAAK,SAAS;QAAE,OAAO,SAAS,CAAC;IAC3C,OAAO,MAAM,CAAC,IAAI,EAAE,OAAO,CAAC,UAAU,CAAC,MAAM,EAAE,aAAa,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,QAAQ,CAAC,CAAC,CAAC;AAC3F,CAAC,CAAC"}

package/dist/proper-noun.d.ts

@@ -0,0 +1,6 @@
+/**
+ * 解析器が固有名詞とした語を、表記で確かめる。wink は知らない語を固有名詞にするが、英語の固有名詞は大文字で書く。
+ * 小文字だけで書いた語（linters、json、e.g. の e）は普通名詞、文字の無い語（—、$）は記号。大文字の無い文字（東京）の語は確かめようがないので触れない。
+ */
+export declare const properNounChecked: (surface: string, pos: string) => string;
+//# sourceMappingURL=proper-noun.d.ts.map

package/dist/proper-noun.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"proper-noun.d.ts","sourceRoot":"","sources":["../src/proper-noun.ts"],"names":[],"mappings":"AAYA;;;GAGG;AACH,eAAO,MAAM,iBAAiB,GAAI,SAAS,MAAM,EAAE,KAAK,MAAM,KAAG,MAIhE,CAAC"}

package/dist/proper-noun.js

@@ -0,0 +1,23 @@
+const LETTER = /\p{L}/u;
+const CAPITAL = /\p{Lu}/u;
+const SMALL = /\p{Ll}/u;
+const DIGIT = /\p{N}/u;
+const SYMBOL = /^[\p{Sc}\p{Sm}\p{So}]+$/u;
+/** 文字の無い語の品詞。数字があれば数、通貨や数学の記号は記号、ほかは句読点（— や …）。 */
+const nonWord = (surface) => {
+    if (DIGIT.test(surface))
+        return "NUM";
+    return SYMBOL.test(surface) ? "SYM" : "PUNCT";
+};
+/**
+ * 解析器が固有名詞とした語を、表記で確かめる。wink は知らない語を固有名詞にするが、英語の固有名詞は大文字で書く。
+ * 小文字だけで書いた語（linters、json、e.g. の e）は普通名詞、文字の無い語（—、$）は記号。大文字の無い文字（東京）の語は確かめようがないので触れない。
+ */
+export const properNounChecked = (surface, pos) => {
+    if (pos !== "PROPN")
+        return pos;
+    if (!LETTER.test(surface))
+        return nonWord(surface);
+    return SMALL.test(surface) && !CAPITAL.test(surface) ? "NOUN" : "PROPN";
+};
+//# sourceMappingURL=proper-noun.js.map

package/dist/proper-noun.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"proper-noun.js","sourceRoot":"","sources":["../src/proper-noun.ts"],"names":[],"mappings":"AAAA,MAAM,MAAM,GAAG,QAAQ,CAAC;AACxB,MAAM,OAAO,GAAG,SAAS,CAAC;AAC1B,MAAM,KAAK,GAAG,SAAS,CAAC;AACxB,MAAM,KAAK,GAAG,QAAQ,CAAC;AACvB,MAAM,MAAM,GAAG,0BAA0B,CAAC;AAE1C,mDAAmD;AACnD,MAAM,OAAO,GAAG,CAAC,OAAe,EAAU,EAAE;IAC1C,IAAI,KAAK,CAAC,IAAI,CAAC,OAAO,CAAC;QAAE,OAAO,KAAK,CAAC;IACtC,OAAO,MAAM,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC;AAChD,CAAC,CAAC;AAEF;;;GAGG;AACH,MAAM,CAAC,MAAM,iBAAiB,GAAG,CAAC,OAAe,EAAE,GAAW,EAAU,EAAE;IACxE,IAAI,GAAG,KAAK,OAAO;QAAE,OAAO,GAAG,CAAC;IAChC,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,OAAO,CAAC;QAAE,OAAO,OAAO,CAAC,OAAO,CAAC,CAAC;IACnD,OAAO,KAAK,CAAC,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO,CAAC;AAC1E,CAAC,CAAC"}

package/dist/stative-participle.d.ts

@@ -0,0 +1,19 @@
+import type { Lexicon } from "chaffjs/plugin";
+/** 解析器が返す 1 語。pos は Penn Treebank。 */
+type TaggedWord = {
+    readonly value: string;
+    readonly pos: string;
+};
+/** 状態を表す過去分詞の句（語の並び）と、程度の副詞。どちらも語彙表から引く。 */
+export type StativeVocabulary = {
+    readonly phrases: readonly (readonly string[])[];
+    readonly degreeAdverbs: ReadonlySet<string>;
+};
+export declare const stativeVocabulary: (lexicons: Readonly<Record<string, Lexicon>>) => StativeVocabulary;
+/**
+ * be の後の過去分詞が、誰かのした動作ではなく状態を表しているか。
+ * We are delighted to offer / is based on / are entitled to には名指すべき動作主がいない。
+ */
+export declare const isStativeParticiple: (tagged: readonly TaggedWord[], at: number, vocabulary: StativeVocabulary) => boolean;
+export {};
+//# sourceMappingURL=stative-participle.d.ts.map

package/dist/stative-participle.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"stative-participle.d.ts","sourceRoot":"","sources":["../src/stative-participle.ts"],"names":[],"mappings":"AAAA,OAAO,KAAK,EAAE,OAAO,EAAE,MAAM,gBAAgB,CAAC;AAE9C,sCAAsC;AACtC,KAAK,UAAU,GAAG;IAAE,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAC;IAAC,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAA;CAAE,CAAC;AAEnE,4CAA4C;AAC5C,MAAM,MAAM,iBAAiB,GAAG;IAC9B,QAAQ,CAAC,OAAO,EAAE,SAAS,CAAC,SAAS,MAAM,EAAE,CAAC,EAAE,CAAC;IACjD,QAAQ,CAAC,aAAa,EAAE,WAAW,CAAC,MAAM,CAAC,CAAC;CAC7C,CAAC;AAYF,eAAO,MAAM,iBAAiB,GAAI,UAAU,QAAQ,CAAC,MAAM,CAAC,MAAM,EAAE,OAAO,CAAC,CAAC,KAAG,iBAG9E,CAAC;AAaH;;;GAGG;AACH,eAAO,MAAM,mBAAmB,GAAI,QAAQ,SAAS,UAAU,EAAE,EAAE,IAAI,MAAM,EAAE,YAAY,iBAAiB,KAAG,OACK,CAAC"}

package/dist/stative-participle.js

@@ -0,0 +1,23 @@
+const wordsOf = (lexicon) => (lexicon ?? [])
+    .map((entry) => entry.pattern
+    .toLowerCase()
+    .split(" ")
+    .filter((word) => word !== ""))
+    .filter((words) => words.length > 0);
+export const stativeVocabulary = (lexicons) => ({
+    phrases: wordsOf(lexicons["stative-participle"]),
+    degreeAdverbs: new Set(wordsOf(lexicons["degree-adverb"]).flat()),
+});
+const wordAt = (tagged, at) => tagged[at]?.value.toLowerCase();
+const startsPhrase = (tagged, at, phrase) => phrase.every((word, offset) => wordAt(tagged, at + offset) === word);
+/** very は段階のある形容詞にしか付かない。very surprised は言えても very approved は言えない。 */
+const afterDegreeAdverb = (tagged, at, vocabulary) => {
+    const before = wordAt(tagged, at - 1);
+    return before !== undefined && vocabulary.degreeAdverbs.has(before);
+};
+/**
+ * be の後の過去分詞が、誰かのした動作ではなく状態を表しているか。
+ * We are delighted to offer / is based on / are entitled to には名指すべき動作主がいない。
+ */
+export const isStativeParticiple = (tagged, at, vocabulary) => vocabulary.phrases.some((phrase) => startsPhrase(tagged, at, phrase)) || afterDegreeAdverb(tagged, at, vocabulary);
+//# sourceMappingURL=stative-participle.js.map

package/dist/stative-participle.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"stative-participle.js","sourceRoot":"","sources":["../src/stative-participle.ts"],"names":[],"mappings":"AAWA,MAAM,OAAO,GAAG,CAAC,OAA4B,EAAc,EAAE,CAC3D,CAAC,OAAO,IAAI,EAAE,CAAC;KACZ,GAAG,CAAC,CAAC,KAAK,EAAE,EAAE,CACb,KAAK,CAAC,OAAO;KACV,WAAW,EAAE;KACb,KAAK,CAAC,GAAG,CAAC;KACV,MAAM,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,KAAK,EAAE,CAAC,CACjC;KACA,MAAM,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;AAEzC,MAAM,CAAC,MAAM,iBAAiB,GAAG,CAAC,QAA2C,EAAqB,EAAE,CAAC,CAAC;IACpG,OAAO,EAAE,OAAO,CAAC,QAAQ,CAAC,oBAAoB,CAAC,CAAC;IAChD,aAAa,EAAE,IAAI,GAAG,CAAC,OAAO,CAAC,QAAQ,CAAC,eAAe,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC;CAClE,CAAC,CAAC;AAEH,MAAM,MAAM,GAAG,CAAC,MAA6B,EAAE,EAAU,EAAsB,EAAE,CAAC,MAAM,CAAC,EAAE,CAAC,EAAE,KAAK,CAAC,WAAW,EAAE,CAAC;AAElH,MAAM,YAAY,GAAG,CAAC,MAA6B,EAAE,EAAU,EAAE,MAAyB,EAAW,EAAE,CACrG,MAAM,CAAC,KAAK,CAAC,CAAC,IAAI,EAAE,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,MAAM,EAAE,EAAE,GAAG,MAAM,CAAC,KAAK,IAAI,CAAC,CAAC;AAEvE,sEAAsE;AACtE,MAAM,iBAAiB,GAAG,CAAC,MAA6B,EAAE,EAAU,EAAE,UAA6B,EAAW,EAAE;IAC9G,MAAM,MAAM,GAAG,MAAM,CAAC,MAAM,EAAE,EAAE,GAAG,CAAC,CAAC,CAAC;IACtC,OAAO,MAAM,KAAK,SAAS,IAAI,UAAU,CAAC,aAAa,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;AACtE,CAAC,CAAC;AAEF;;;GAGG;AACH,MAAM,CAAC,MAAM,mBAAmB,GAAG,CAAC,MAA6B,EAAE,EAAU,EAAE,UAA6B,EAAW,EAAE,CACvH,UAAU,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,YAAY,CAAC,MAAM,EAAE,EAAE,EAAE,MAAM,CAAC,CAAC,IAAI,iBAAiB,CAAC,MAAM,EAAE,EAAE,EAAE,UAAU,CAAC,CAAC"}

package/lexicons/article.yaml

@@ -0,0 +1,8 @@
+# The articles. The tagger gives every determiner the same tag (DT), so the adapter marks these PronType=Art, as
+# Universal Dependencies does: a noun takes one article or possessive, and two in a row ("our the platform") is a slip.
+id: article
+language: en
+entries:
+  - pattern: a
+  - pattern: an
+  - pattern: the

package/lexicons/common-acronym.yaml

@@ -0,0 +1,72 @@
+# Acronyms a reader understands without the spelled-out form. Spelling them out would make the text harder to read.
+id: common-acronym
+language: en
+entries:
+  - pattern: OK
+  - pattern: NG
+  - pattern: URL
+  - pattern: API
+  - pattern: CSS
+  - pattern: HTML
+  - pattern: JSON
+  - pattern: YAML
+  - pattern: HTTP
+  - pattern: HTTPS
+  - pattern: PDF
+  - pattern: CPU
+  - pattern: GPU
+  - pattern: RAM
+  - pattern: USB
+  - pattern: AI
+  - pattern: ID
+  - pattern: FAQ
+  - pattern: PR
+  - pattern: OS
+  - pattern: CLI
+  - pattern: UI
+  - pattern: UX
+  - pattern: SQL
+  - pattern: CSV
+  - pattern: XML
+  - pattern: TODO
+  - pattern: NOTE
+  - pattern: TIP
+  # 通信と符号化。技術文書でなくても説明なしで通じる。
+  - pattern: DNS
+  - pattern: IP
+  - pattern: TCP
+  - pattern: UDP
+  - pattern: SSH
+  - pattern: SSL
+  - pattern: TLS
+  - pattern: VPN
+  - pattern: LAN
+  - pattern: UTF
+  - pattern: ASCII
+  # 機器・形式・単位。
+  - pattern: PC
+  - pattern: IT
+  - pattern: SDK
+  - pattern: IDE
+  - pattern: PNG
+  - pattern: JPEG
+  - pattern: GIF
+  - pattern: SVG
+  - pattern: QR
+  - pattern: GPS
+  - pattern: SNS
+  - pattern: TV
+  - pattern: KB
+  - pattern: MB
+  - pattern: GB
+  - pattern: TB
+  # 役職と国・地域。
+  - pattern: CEO
+  - pattern: CTO
+  - pattern: CFO
+  - pattern: US
+  - pattern: USA
+  - pattern: UK
+  - pattern: EU
+  - pattern: UN
+  - pattern: DNA

package/lexicons/comparison-marker.yaml

@@ -0,0 +1,9 @@
+# Words that name what a superlative is measured against. With one in the sentence, "the fastest" is a claim, not a boast.
+id: comparison-marker
+language: en
+entries:
+  - pattern: among
+  - pattern: than
+  - pattern: compared
+  - pattern: based on
+  - pattern: according

package/lexicons/date-stamp-label.yaml

@@ -0,0 +1,15 @@
+# Labels of a page's date stamp. A paragraph holding only one of these and a date is page metadata, not preamble.
+id: date-stamp-label
+language: en
+entries:
+  - pattern: Last updated
+  - pattern: Last updated on
+  - pattern: Updated
+  - pattern: Updated on
+  - pattern: Last modified
+  - pattern: Last reviewed
+  - pattern: Published
+  - pattern: Published on
+  - pattern: Posted
+  - pattern: Posted on
+  - pattern: Date

package/lexicons/definition-marker.yaml

@@ -0,0 +1,14 @@
+# Words written inside brackets before an acronym to define it: Service Level Agreement (hereinafter "SLA"),
+# (the "SLA"), (aka the "GDPR"). They count only when the brackets hold nothing but these words and the acronym.
+# Matched without regard to case.
+id: definition-marker
+language: en
+entries:
+  - pattern: the
+  - pattern: hereinafter
+  - pattern: hereafter
+  - pattern: referred to as
+  - pattern: called
+  - pattern: aka
+  - pattern: a.k.a.
+  - pattern: also known as

package/lexicons/definition-verb.yaml

@@ -0,0 +1,5 @@
+# Words written inside brackets after an acronym to close its definition. English puts the defining words before the
+# acronym (hereinafter "SLA"), so there are none; the list exists so both languages name the same two lists.
+id: definition-verb
+language: en
+entries: []

package/lexicons/degree-adverb.yaml

@@ -0,0 +1,7 @@
+# Adverbs of degree that only a gradable adjective takes: "very surprised" is a state, "very approved" is not English.
+# A past participle right after one of these is not a passive. "more" and "overly" are left out: they also go with a
+# verb ("No issue was more discussed", "The model was overly simplified"), and so does "so" ("to be so owned").
+id: degree-adverb
+language: en
+entries:
+  - pattern: very

package/lexicons/doubled-word.yaml

@@ -0,0 +1,30 @@
+# Word pairs that doubled-word leaves alone: repeats that grammar allows. "had had" is the past perfect of have;
+# "that that" a conjunction and a demonstrative, which the tagger does not always tell apart; "do do" is emphatic do
+# ("We do do manual reviews"); "her her" an object and a possessive ("give her her copy"); "no no" an interjection
+# the tagger reads as two determiners. "is is" is left out: "What it is is a plan" is rare in business text, "The
+# plan is is ready" is a common slip.
+#
+# A phrasal verb's particle followed by the same preposition ("sign in in advance", "set up up to 10") is listed with
+# the words around it, so that "stored in in the folder" and "set up up the environment" are still slips. An entry
+# matches when the sentence has all its words in a row, the pair among them.
+id: doubled-word
+language: en
+entries:
+  - pattern: had had
+  - pattern: that that
+  - pattern: do do
+  - pattern: her her
+  - pattern: no no
+  - pattern: sign in in
+  - pattern: signed in in
+  - pattern: log in in
+  - pattern: logged in in
+  - pattern: opt in in
+  - pattern: opted in in
+  - pattern: check in in
+  - pattern: checked in in
+  - pattern: log on on
+  - pattern: logged on on
+  - pattern: turn on on
+  - pattern: turned on on
+  - pattern: up up to

package/lexicons/lead-in.yaml

@@ -0,0 +1,8 @@
+# Phrases that hand the reader over to the list or table below. A sentence with one is not counted by heading-echo,
+# even when it repeats the heading's words. "the following" is left out: "the following day" hands over nothing.
+id: lead-in
+language: en
+entries:
+  - pattern: as follows
+  - pattern: listed below
+  - pattern: set out below

package/lexicons/object-or-possessive.yaml

@@ -0,0 +1,7 @@
+# Pronouns that are both an object and a possessive: "give her the book", "her book". The tagger tags every "her" as
+# a possessive (PRP$), so the adapter does not mark these Poss=Yes, and "sent her our report" is not read as two
+# determiners in a row.
+id: object-or-possessive
+language: en
+entries:
+  - pattern: her

package/lexicons/stative-participle.yaml

@@ -0,0 +1,25 @@
+# Past participles that, after be, describe a state rather than an action someone did: "We are delighted to offer",
+# "The report is based on a survey", "you are entitled to". There is no hidden actor to name, so agentless-passive
+# leaves them alone. A pattern of several words matches only that phrase: "logged in to" and "located in" are states,
+# "Errors are logged in the console" and "The missing file was located" are passives. Words that are passives in
+# business text as often as states are left out: committed ("an offence was committed"), linked ("documents are
+# linked throughout"), required ("Receipts are required"). "interested" needs no entry: the tagger already reads it
+# as an adjective.
+id: stative-participle
+language: en
+entries:
+  - pattern: delighted
+  - pattern: excited
+  - pattern: surprised
+  - pattern: dissatisfied
+  - pattern: concerned
+  - pattern: nuanced
+  - pattern: gone
+  - pattern: involved
+  - pattern: based
+  - pattern: located in
+  - pattern: entitled
+  - pattern: related
+  - pattern: associated
+  - pattern: focused on
+  - pattern: logged in to

package/lexicons/superlative-scope.yaml

@@ -0,0 +1,10 @@
+# Words that say what a superlative is the most of. position is the side of the superlative they stand on.
+# English puts them after the superlative's noun phrase, with a noun phrase after them: "the best pizza in Chicago",
+# "the most famous of the sculptures".
+id: superlative-scope
+language: en
+entries:
+  - pattern: in
+    position: after
+  - pattern: of
+    position: after

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@chaffjs/lang-en",
-  "version": "0.9.0",
+  "version": "0.10.0",
   "description": "English language adapter for chaff",
   "license": "MIT",
   "author": "isamu",

package/src/lexicons.ts

@@ -8,6 +8,8 @@ const DIR = join(dirname(fileURLToPath(import.meta.url)), "..", "lexicons");
 
 const isRecord = (value: unknown): value is Record<string, unknown> => typeof value === "object" && value !== null && !Array.isArray(value);
 
+const POSITIONS = ["before", "after"] as const;
+
 const toEntry = (raw: unknown): LexiconEntry | undefined => {
   if (!isRecord(raw) || typeof raw["pattern"] !== "string") return undefined;
   const weight = raw["weight"];
@@ -16,6 +18,7 @@ const toEntry = (raw: unknown): LexiconEntry | undefined => {
     pattern: raw["pattern"],
     weight: typeof weight === "number" ? weight : undefined,
     instead_of: typeof instead === "string" ? instead : undefined,
+    position: POSITIONS.find((position) => position === raw["position"]),
   };
 };
 

package/src/pos.ts

@@ -1,5 +1,8 @@
 import { createRequire } from "node:module";
 import type { Token } from "chaffjs/plugin";
+import { loadLexicons } from "./lexicons.ts";
+import { properNounChecked } from "./proper-noun.ts";
+import { isStativeParticiple, stativeVocabulary } from "./stative-participle.ts";
 
 const require = createRequire(import.meta.url);
 
@@ -127,15 +130,38 @@ const inRelativeClause = (tagged: readonly Tagged[], be: number): boolean => {
   return antecedent !== undefined && NOMINAL_TAG.has(antecedent.pos);
 };
 
+const LEXICONS = loadLexicons();
+
+const STATIVE = stativeVocabulary(LEXICONS);
+
 const isPassive = (tagged: readonly Tagged[], at: number): boolean => {
   if (tagged[at]?.pos !== "VBN") return false;
   const be = beBefore(tagged, at);
-  return be !== -1 && !inRelativeClause(tagged, be);
+  return be !== -1 && !inRelativeClause(tagged, be) && !isStativeParticiple(tagged, at, STATIVE);
+};
+
+const wordsOf = (name: string): ReadonlySet<string> => new Set((LEXICONS[name] ?? []).map((entry) => entry.pattern.toLowerCase()));
+
+const ARTICLES = wordsOf("article");
+
+/** 目的語にも所有にもなる語（give her the book / her book）。解析器はいつも PRP$ と付けるので、所有とは言えない。 */
+const OBJECT_OR_POSSESSIVE = wordsOf("object-or-possessive");
+
+const POSSESSIVE_TAG = new Set(["PRP$", "WP$"]);
+
+type Features = { features?: Readonly<Record<string, string>> };
+
+/** 冠詞（PronType=Art）と所有の語（Poss=Yes）は、名詞の前に一つしか立たない。二つ並ぶ our the platform は書き損じ。 */
+const determinerFeatures = (entry: Tagged): Features => {
+  if (POSSESSIVE_TAG.has(entry.pos)) return OBJECT_OR_POSSESSIVE.has(entry.value.toLowerCase()) ? {} : { features: { Poss: "Yes" } };
+  return entry.pos === "DT" && ARTICLES.has(entry.value.toLowerCase()) ? { features: { PronType: "Art" } } : {};
 };
 
 /** 過去分詞は VerbForm=Part。Based on the review, のような分詞の導入句を、命令形の並び（fix the parser, ship it）と見分ける。 */
-const featuresOf = (tagged: readonly Tagged[], at: number): { features?: Readonly<Record<string, string>> } => {
-  if (tagged[at]?.pos !== "VBN") return {};
+const featuresOf = (tagged: readonly Tagged[], at: number): Features => {
+  const entry = tagged[at];
+  if (entry === undefined) return {};
+  if (entry.pos !== "VBN") return determinerFeatures(entry);
   return { features: isPassive(tagged, at) ? { VerbForm: "Part", Voice: "Pass" } : { VerbForm: "Part" } };
 };
 
@@ -160,7 +186,7 @@ const locate = (text: string, tagged: readonly Tagged[]): Token[] =>
       const token = {
         span: { start, end },
         surface: entry.value,
-        pos: upos(entry.pos),
+        pos: properNounChecked(entry.value, upos(entry.pos)),
         ...(entry.lemma === undefined ? {} : { lemma: entry.lemma }),
         ...featuresOf(tagged, at),
       };

package/src/proper-noun.ts

@@ -0,0 +1,21 @@
+const LETTER = /\p{L}/u;
+const CAPITAL = /\p{Lu}/u;
+const SMALL = /\p{Ll}/u;
+const DIGIT = /\p{N}/u;
+const SYMBOL = /^[\p{Sc}\p{Sm}\p{So}]+$/u;
+
+/** 文字の無い語の品詞。数字があれば数、通貨や数学の記号は記号、ほかは句読点（— や …）。 */
+const nonWord = (surface: string): string => {
+  if (DIGIT.test(surface)) return "NUM";
+  return SYMBOL.test(surface) ? "SYM" : "PUNCT";
+};
+
+/**
+ * 解析器が固有名詞とした語を、表記で確かめる。wink は知らない語を固有名詞にするが、英語の固有名詞は大文字で書く。
+ * 小文字だけで書いた語（linters、json、e.g. の e）は普通名詞、文字の無い語（—、$）は記号。大文字の無い文字（東京）の語は確かめようがないので触れない。
+ */
+export const properNounChecked = (surface: string, pos: string): string => {
+  if (pos !== "PROPN") return pos;
+  if (!LETTER.test(surface)) return nonWord(surface);
+  return SMALL.test(surface) && !CAPITAL.test(surface) ? "NOUN" : "PROPN";
+};

package/src/stative-participle.ts

@@ -0,0 +1,43 @@
+import type { Lexicon } from "chaffjs/plugin";
+
+/** 解析器が返す 1 語。pos は Penn Treebank。 */
+type TaggedWord = { readonly value: string; readonly pos: string };
+
+/** 状態を表す過去分詞の句（語の並び）と、程度の副詞。どちらも語彙表から引く。 */
+export type StativeVocabulary = {
+  readonly phrases: readonly (readonly string[])[];
+  readonly degreeAdverbs: ReadonlySet<string>;
+};
+
+const wordsOf = (lexicon: Lexicon | undefined): string[][] =>
+  (lexicon ?? [])
+    .map((entry) =>
+      entry.pattern
+        .toLowerCase()
+        .split(" ")
+        .filter((word) => word !== ""),
+    )
+    .filter((words) => words.length > 0);
+
+export const stativeVocabulary = (lexicons: Readonly<Record<string, Lexicon>>): StativeVocabulary => ({
+  phrases: wordsOf(lexicons["stative-participle"]),
+  degreeAdverbs: new Set(wordsOf(lexicons["degree-adverb"]).flat()),
+});
+
+const wordAt = (tagged: readonly TaggedWord[], at: number): string | undefined => tagged[at]?.value.toLowerCase();
+
+const startsPhrase = (tagged: readonly TaggedWord[], at: number, phrase: readonly string[]): boolean =>
+  phrase.every((word, offset) => wordAt(tagged, at + offset) === word);
+
+/** very は段階のある形容詞にしか付かない。very surprised は言えても very approved は言えない。 */
+const afterDegreeAdverb = (tagged: readonly TaggedWord[], at: number, vocabulary: StativeVocabulary): boolean => {
+  const before = wordAt(tagged, at - 1);
+  return before !== undefined && vocabulary.degreeAdverbs.has(before);
+};
+
+/**
+ * be の後の過去分詞が、誰かのした動作ではなく状態を表しているか。
+ * We are delighted to offer / is based on / are entitled to には名指すべき動作主がいない。
+ */
+export const isStativeParticiple = (tagged: readonly TaggedWord[], at: number, vocabulary: StativeVocabulary): boolean =>
+  vocabulary.phrases.some((phrase) => startsPhrase(tagged, at, phrase)) || afterDegreeAdverb(tagged, at, vocabulary);