hiski-mcp 0.1.0

package/dist/encoding.js

@@ -0,0 +1,21 @@
+const latin1 = new TextDecoder("latin1");
+/** Hiski serves its pages as ISO-8859-1. */
+export function decodeLatin1(data) {
+    return latin1.decode(data);
+}
+const CLOUDFLARE_SKRIPTI = /<script>[^<]*__CF\$cv\$params[^]*?<\/script>/;
+const CLOUDFLARE_SAHKOPOSTI = /<A HREF="\/cdn-cgi\/l\/email-protection#[0-9a-f]*"><span class="__cf_email__" data-cfemail="[0-9a-f]*">(\[email&#160;protected\])<\/span><\/A>/gi;
+/**
+ * Removes what Cloudflare adds to every Hiski page with a per-request value:
+ * the challenge script and the obfuscated e-mail link. Otherwise saved
+ * fixtures would change on every download.
+ * Works on raw bytes: Node's "latin1" maps each byte to one character and back.
+ */
+export function poistaCloudflareLisaykset(sivu) {
+    const teksti = Buffer.from(sivu)
+        .toString("latin1")
+        .replace(CLOUDFLARE_SKRIPTI, "")
+        .replace(CLOUDFLARE_SAHKOPOSTI, "$1");
+    return new Uint8Array(Buffer.from(teksti, "latin1"));
+}
+//# sourceMappingURL=encoding.js.map

package/dist/encoding.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"encoding.js","sourceRoot":"","sources":["../src/encoding.ts"],"names":[],"mappings":"AAAA,MAAM,MAAM,GAAG,IAAI,WAAW,CAAC,QAAQ,CAAC,CAAC;AAEzC,4CAA4C;AAC5C,MAAM,UAAU,YAAY,CAAC,IAA8B;IACzD,OAAO,MAAM,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;AAC7B,CAAC;AAED,MAAM,kBAAkB,GAAG,8CAA8C,CAAC;AAC1E,MAAM,qBAAqB,GACzB,kJAAkJ,CAAC;AAErJ;;;;;GAKG;AACH,MAAM,UAAU,yBAAyB,CAAC,IAAgB;IACxD,MAAM,MAAM,GAAG,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC;SAC7B,QAAQ,CAAC,QAAQ,CAAC;SAClB,OAAO,CAAC,kBAAkB,EAAE,EAAE,CAAC;SAC/B,OAAO,CAAC,qBAAqB,EAAE,IAAI,CAAC,CAAC;IACxC,OAAO,IAAI,UAAU,CAAC,MAAM,CAAC,IAAI,CAAC,MAAM,EAAE,QAAQ,CAAC,CAAC,CAAC;AACvD,CAAC"}

package/dist/hakutulos.js

@@ -0,0 +1,206 @@
+import * as cheerio from "cheerio";
+import { SEURAKUNNAT } from "./parishes.js";
+import { jasennaSolu } from "./solu.js";
+import { siisti } from "./teksti.js";
+export const HISKI_URL = "https://hiski.genealogia.fi/hiski";
+const KIRJAT_OTSIKOSTA = {
+    kastetut: "kastetut",
+    vihityt: "vihityt",
+    haudatut: "haudatut",
+    sisäänmuuttaneet: "smuutt",
+    poismuuttaneet: "umuutt",
+};
+const LOHKON_OTSIKKO = /<FONT SIZE="\+2"><B>([^<]*)<\/B><\/FONT>/gi;
+const TAULUKKO = /<TABLE BORDER=1[^>]*>[^]*?<\/TABLE>/gi;
+const TAPAHTUMALINKKI = /\/hiski\?fi\+(\d{4})\+([a-z]+)\+(\d+)$/;
+const EI_TIETOKANNASSA = "hakutekstiä ei löydy tietokannasta";
+const MUUTON_SARAKKEET = [
+    "lahtopaiva",
+    "saapumispaiva",
+    "kyla",
+    "talo",
+    "henkilo",
+    "toinen_paikka",
+];
+/** Which event field each result column holds, per book. */
+const SARAKKEET = {
+    kastetut: ["syntynyt", "kastettu", "kyla", "talo", "isa", "aiti", "lapsi"],
+    vihityt: [
+        "kuulutettu",
+        "vihitty",
+        "miehen_kyla",
+        "miehen_talo",
+        "mies",
+        "vaimo",
+        "vaimon_kyla",
+        "vaimon_talo",
+    ],
+    haudatut: [
+        "kuollut",
+        "haudattu",
+        "kyla",
+        "talo",
+        "henkilo",
+        "kuolinsyy",
+        "ika.vuodet",
+        "ika.kuukaudet",
+        "ika.viikot",
+        "ika.paivat",
+    ],
+    smuutt: MUUTON_SARAKKEET,
+    umuutt: MUUTON_SARAKKEET,
+};
+/** A trailing number or range after a person, e.g. the mother's age "25" or "25-30". */
+const IKA_LOPUSSA = /^(.*?)\s*\b(\d+(?:-\d+)?)$/;
+/** Parses a Hiski search result page into per-parish, per-book blocks. */
+export function parseHakutulos(html) {
+    const otsikot = [...html.matchAll(LOHKON_OTSIKKO)];
+    // In an all-books search over several parishes Hiski leaves out the first
+    // parish's heading, so tables before the first heading form a block too.
+    const ennenOtsikoita = parseLohko(undefined, html.slice(0, otsikot[0]?.index ?? html.length));
+    const lohkot = otsikot.flatMap((otsikko, i) => {
+        const alku = otsikko.index + otsikko[0].length;
+        const loppu = otsikot[i + 1]?.index ?? html.length;
+        return parseLohko(otsikko[1], html.slice(alku, loppu));
+    });
+    const yhteensa = /Seurakunnista löytyi yhteensä (\d+) tapahtumaa/.exec(html)?.[1];
+    return {
+        lohkot: [...ennenOtsikoita, ...lohkot],
+        ...(yhteensa && { yhteensa: Number(yhteensa) }),
+    };
+}
+/**
+ * One heading may hold several tables: the "kaikki" search prints one per
+ * book. Each table becomes its own block.
+ */
+function parseLohko(otsikko, sisalto) {
+    const erotin = otsikko?.lastIndexOf(" - ") ?? -1;
+    const otsikonNimi = erotin >= 0 ? otsikko.slice(0, erotin) : otsikko;
+    const otsikonKirja = erotin >= 0 ? KIRJAT_OTSIKOSTA[otsikko.slice(erotin + 3)] : undefined;
+    const { hakutermit, huomautukset } = parseHakutermit(sisalto);
+    const taulukot = [...sisalto.matchAll(TAULUKKO)];
+    return taulukot.map((taulukko, i) => {
+        const perassa = sisalto.slice(taulukko.index + taulukko[0].length, taulukot[i + 1]?.index ?? sisalto.length);
+        const lomake = cheerio.load(perassa);
+        const kentta = (nimi) => lomake(`input[name="${nimi}" i]`).attr("value");
+        const kirja = kentta("kirja") ?? otsikonKirja;
+        const koodi = kentta("srk");
+        if (!kirja || !koodi) {
+            throw new Error(`Hakutuloksen lohkoa "${otsikko ?? "ilman otsikkoa"}" ei tunnistettu`);
+        }
+        // A block without a heading gets its name from the bundled parish list.
+        const nimi = otsikonNimi ?? SEURAKUNNAT.find((s) => s.koodi === koodi)?.koko_nimi ?? koodi;
+        const loytyiNoin = /Tapahtumia löytyi noin (\d+)/.exec(perassa)?.[1];
+        const jatkokohta = kentta("hakupos");
+        return {
+            seurakunta: { koodi, nimi },
+            kirja,
+            hakutermit,
+            ...(huomautukset.length > 0 && { huomautukset }),
+            tapahtumat: parseTapahtumat(taulukko[0]),
+            katkaistu: /Loppuja tapahtumista ei näytetty/.test(perassa),
+            ...(loytyiNoin && { loytyi_noin: Number(loytyiNoin) }),
+            ...(jatkokohta && { jatkokohta }),
+        };
+    });
+}
+function parseHakutermit(sisalto) {
+    const hakutermit = [];
+    const huomautukset = [];
+    const $ = cheerio.load(sisalto.slice(0, sisalto.search(TAULUKKO)));
+    $("li").each((_, li) => {
+        const rivi = siisti($(li).text());
+        if (!rivi)
+            return;
+        const termi = /^(.+?): (.+?) => (.*)$/.exec(rivi);
+        if (!termi) {
+            huomautukset.push(rivi);
+            return;
+        }
+        const [, kentta, haku, muodot] = termi;
+        hakutermit.push(muodot === EI_TIETOKANNASSA
+            ? { kentta, haku, ei_tietokannassa: true }
+            : { kentta, haku, muodot: muodot.split(", ") });
+    });
+    return { hakutermit, huomautukset };
+}
+function parseTapahtumat(taulukko) {
+    const $ = cheerio.load(taulukko);
+    const tapahtumat = [];
+    $("tr").each((_, rivi) => {
+        const tapahtuma = parseTapahtumarivi($, rivi);
+        if (tapahtuma) {
+            tapahtumat.push(tapahtuma);
+            return;
+        }
+        const edellinen = tapahtumat.at(-1);
+        if (edellinen)
+            liitaLisarivi($, rivi, edellinen);
+    });
+    return tapahtumat;
+}
+function parseTapahtumarivi($, rivi) {
+    const solut = $(rivi).children("td");
+    const href = solut.first().children("a").attr("href");
+    const linkki = href && TAPAHTUMALINKKI.exec(href);
+    if (!linkki)
+        return undefined;
+    const kirja = linkki[2];
+    const tapahtuma = {
+        kirja,
+        numero: Number(linkki[3]),
+        url: `${HISKI_URL}?fi+${linkki[1]}+${linkki[2]}+${linkki[3]}`,
+    };
+    const kenttakommentit = {};
+    SARAKKEET[kirja].forEach((kentta, i) => {
+        const { arvo, kommentit } = jasennaSolu($, solut.eq(i));
+        if (kommentit.length > 0)
+            kenttakommentit[kentta] = kommentit;
+        if (!arvo)
+            return;
+        // "ika.vuodet" etc. go into a nested object.
+        const [ylempi, alempi] = kentta.split(".");
+        if (alempi)
+            (tapahtuma[ylempi] ??= {})[alempi] = arvo;
+        else
+            tapahtuma[kentta] = arvo;
+    });
+    if (Object.keys(kenttakommentit).length > 0)
+        tapahtuma.kenttakommentit = kenttakommentit;
+    if (kirja === "kastetut")
+        erotaAidinIka(tapahtuma);
+    return tapahtuma;
+}
+function erotaAidinIka(tapahtuma) {
+    const osat = tapahtuma.aiti && IKA_LOPUSSA.exec(tapahtuma.aiti);
+    if (!osat)
+        return;
+    const aiti = siisti(osat[1]);
+    if (aiti)
+        tapahtuma.aiti = aiti;
+    else
+        delete tapahtuma.aiti;
+    tapahtuma.aidin_ika = osat[2];
+}
+/**
+ * Attaches a row printed below an event to it: a comment row
+ * ("alkup - ALKUPKOMM: …") or, for burials, the relative ("omainen: …").
+ */
+function liitaLisarivi($, rivi, tapahtuma) {
+    const otsake = $(rivi).find("font").first();
+    const otsakkeenTeksti = siisti(otsake.text());
+    if (otsakkeenTeksti === "omainen:" && tapahtuma.kirja === "haudatut") {
+        const ilmanOtsaketta = $(rivi).clone();
+        ilmanOtsaketta.find("font").remove();
+        const omainen = siisti(ilmanOtsaketta.text());
+        if (omainen)
+            tapahtuma.omainen = omainen;
+        return;
+    }
+    const merkinta = /^(\S+) - (.+?):$/.exec(otsakkeenTeksti ?? "");
+    const teksti = siisti($(rivi).find("small").first().text());
+    if (!merkinta || !teksti)
+        return;
+    (tapahtuma.kommentit ??= []).push({ tyyppi: merkinta[1], alikentta: merkinta[2], teksti });
+}
+//# sourceMappingURL=hakutulos.js.map

package/dist/hakutulos.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"hakutulos.js","sourceRoot":"","sources":["../src/hakutulos.ts"],"names":[],"mappings":"AAAA,OAAO,KAAK,OAAO,MAAM,SAAS,CAAC;AAEnC,OAAO,EAAE,WAAW,EAAE,MAAM,eAAe,CAAC;AAC5C,OAAO,EAAE,WAAW,EAAE,MAAM,WAAW,CAAC;AACxC,OAAO,EAAE,MAAM,EAAE,MAAM,aAAa,CAAC;AAErC,MAAM,CAAC,MAAM,SAAS,GAAG,mCAAmC,CAAC;AAuG7D,MAAM,gBAAgB,GAA8B;IAClD,QAAQ,EAAE,UAAU;IACpB,OAAO,EAAE,SAAS;IAClB,QAAQ,EAAE,UAAU;IACpB,gBAAgB,EAAE,QAAQ;IAC1B,cAAc,EAAE,QAAQ;CACzB,CAAC;AAEF,MAAM,cAAc,GAAG,4CAA4C,CAAC;AACpE,MAAM,QAAQ,GAAG,uCAAuC,CAAC;AACzD,MAAM,eAAe,GAAG,wCAAwC,CAAC;AACjE,MAAM,gBAAgB,GAAG,oCAAoC,CAAC;AAE9D,MAAM,gBAAgB,GAAG;IACvB,YAAY;IACZ,eAAe;IACf,MAAM;IACN,MAAM;IACN,SAAS;IACT,eAAe;CACP,CAAC;AAEX,4DAA4D;AAC5D,MAAM,SAAS,GAAyC;IACtD,QAAQ,EAAE,CAAC,UAAU,EAAE,UAAU,EAAE,MAAM,EAAE,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,OAAO,CAAC;IAC1E,OAAO,EAAE;QACP,YAAY;QACZ,SAAS;QACT,aAAa;QACb,aAAa;QACb,MAAM;QACN,OAAO;QACP,aAAa;QACb,aAAa;KACd;IACD,QAAQ,EAAE;QACR,SAAS;QACT,UAAU;QACV,MAAM;QACN,MAAM;QACN,SAAS;QACT,WAAW;QACX,YAAY;QACZ,eAAe;QACf,YAAY;QACZ,YAAY;KACb;IACD,MAAM,EAAE,gBAAgB;IACxB,MAAM,EAAE,gBAAgB;CACzB,CAAC;AAEF,wFAAwF;AACxF,MAAM,WAAW,GAAG,4BAA4B,CAAC;AAEjD,0EAA0E;AAC1E,MAAM,UAAU,cAAc,CAAC,IAAY;IACzC,MAAM,OAAO,GAAG,CAAC,GAAG,IAAI,CAAC,QAAQ,CAAC,cAAc,CAAC,CAAC,CAAC;IACnD,0EAA0E;IAC1E,yEAAyE;IACzE,MAAM,cAAc,GAAG,UAAU,CAAC,SAAS,EAAE,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,OAAO,CAAC,CAAC,CAAC,EAAE,KAAK,IAAI,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC;IAC9F,MAAM,MAAM,GAAG,OAAO,CAAC,OAAO,CAAC,CAAC,OAAO,EAAE,CAAC,EAAE,EAAE;QAC5C,MAAM,IAAI,GAAG,OAAO,CAAC,KAAK,GAAG,OAAO,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC;QAC/C,MAAM,KAAK,GAAG,OAAO,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,KAAK,IAAI,IAAI,CAAC,MAAM,CAAC;QACnD,OAAO,UAAU,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,IAAI,CAAC,KAAK,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC;IACzD,CAAC,CAAC,CAAC;IACH,MAAM,QAAQ,GAAG,gDAAgD,CAAC,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAClF,OAAO;QACL,MAAM,EAAE,CAAC,GAAG,cAAc,EAAE,GAAG,MAAM,CAAC;QACtC,GAAG,CAAC,QAAQ,IAAI,EAAE,QAAQ,EAAE,MAAM,CAAC,QAAQ,CAAC,EAAE,CAAC;KAChD,CAAC;AACJ,CAAC;AAED;;;GAGG;AACH,SAAS,UAAU,CAAC,OAA2B,EAAE,OAAe;IAC9D,MAAM,MAAM,GAAG,OAAO,EAAE,WAAW,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC;IACjD,MAAM,WAAW,GAAG,MAAM,IAAI,CAAC,CAAC,CAAC,CAAC,OAAQ,CAAC,KAAK,CAAC,CAAC,EAAE,MAAM,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC;IACtE,MAAM,YAAY,GAAG,MAAM,IAAI,CAAC,CAAC,CAAC,CAAC,gBAAgB,CAAC,OAAQ,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC;IAC5F,MAAM,EAAE,UAAU,EAAE,YAAY,EAAE,GAAG,eAAe,CAAC,OAAO,CAAC,CAAC;IAC9D,MAAM,QAAQ,GAAG,CAAC,GAAG,OAAO,CAAC,QAAQ,CAAC,QAAQ,CAAC,CAAC,CAAC;IACjD,OAAO,QAAQ,CAAC,GAAG,CAAC,CAAC,QAAQ,EAAE,CAAC,EAAE,EAAE;QAClC,MAAM,OAAO,GAAG,OAAO,CAAC,KAAK,CAC3B,QAAQ,CAAC,KAAK,GAAG,QAAQ,CAAC,CAAC,CAAC,CAAC,MAAM,EACnC,QAAQ,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,KAAK,IAAI,OAAO,CAAC,MAAM,CACzC,CAAC;QACF,MAAM,MAAM,GAAG,OAAO,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC;QACrC,MAAM,MAAM,GAAG,CAAC,IAAY,EAAE,EAAE,CAAC,MAAM,CAAC,eAAe,IAAI,MAAM,CAAC,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC;QACjF,MAAM,KAAK,GAAI,MAAM,CAAC,OAAO,CAA2B,IAAI,YAAY,CAAC;QACzE,MAAM,KAAK,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC;QAC5B,IAAI,CAAC,KAAK,IAAI,CAAC,KAAK,EAAE,CAAC;YACrB,MAAM,IAAI,KAAK,CAAC,wBAAwB,OAAO,IAAI,gBAAgB,kBAAkB,CAAC,CAAC;QACzF,CAAC;QACD,wEAAwE;QACxE,MAAM,IAAI,GAAG,WAAW,IAAI,WAAW,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,KAAK,KAAK,KAAK,CAAC,EAAE,SAAS,IAAI,KAAK,CAAC;QAC3F,MAAM,UAAU,GAAG,8BAA8B,CAAC,IAAI,CAAC,OAAO,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;QACrE,MAAM,UAAU,GAAG,MAAM,CAAC,SAAS,CAAC,CAAC;QACrC,OAAO;YACL,UAAU,EAAE,EAAE,KAAK,EAAE,IAAI,EAAE;YAC3B,KAAK;YACL,UAAU;YACV,GAAG,CAAC,YAAY,CAAC,MAAM,GAAG,CAAC,IAAI,EAAE,YAAY,EAAE,CAAC;YAChD,UAAU,EAAE,eAAe,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;YACxC,SAAS,EAAE,kCAAkC,CAAC,IAAI,CAAC,OAAO,CAAC;YAC3D,GAAG,CAAC,UAAU,IAAI,EAAE,WAAW,EAAE,MAAM,CAAC,UAAU,CAAC,EAAE,CAAC;YACtD,GAAG,CAAC,UAAU,IAAI,EAAE,UAAU,EAAE,CAAC;SAClC,CAAC;IACJ,CAAC,CAAC,CAAC;AACL,CAAC;AAED,SAAS,eAAe,CAAC,OAAe;IACtC,MAAM,UAAU,GAAgB,EAAE,CAAC;IACnC,MAAM,YAAY,GAAa,EAAE,CAAC;IAClC,MAAM,CAAC,GAAG,OAAO,CAAC,IAAI,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,EAAE,OAAO,CAAC,MAAM,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;IACnE,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE;QACrB,MAAM,IAAI,GAAG,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;QAClC,IAAI,CAAC,IAAI;YAAE,OAAO;QAClB,MAAM,KAAK,GAAG,wBAAwB,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;QAClD,IAAI,CAAC,KAAK,EAAE,CAAC;YACX,YAAY,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;YACxB,OAAO;QACT,CAAC;QACD,MAAM,CAAC,EAAE,MAAM,EAAE,IAAI,EAAE,MAAM,CAAC,GAAG,KAAoD,CAAC;QACtF,UAAU,CAAC,IAAI,CACb,MAAM,KAAK,gBAAgB;YACzB,CAAC,CAAC,EAAE,MAAM,EAAE,IAAI,EAAE,gBAAgB,EAAE,IAAI,EAAE;YAC1C,CAAC,CAAC,EAAE,MAAM,EAAE,IAAI,EAAE,MAAM,EAAE,MAAM,CAAC,KAAK,CAAC,IAAI,CAAC,EAAE,CACjD,CAAC;IACJ,CAAC,CAAC,CAAC;IACH,OAAO,EAAE,UAAU,EAAE,YAAY,EAAE,CAAC;AACtC,CAAC;AAED,SAAS,eAAe,CAAC,QAAgB;IACvC,MAAM,CAAC,GAAG,OAAO,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;IACjC,MAAM,UAAU,GAAgB,EAAE,CAAC;IACnC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,EAAE;QACvB,MAAM,SAAS,GAAG,kBAAkB,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC;QAC9C,IAAI,SAAS,EAAE,CAAC;YACd,UAAU,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;YAC3B,OAAO;QACT,CAAC;QACD,MAAM,SAAS,GAAG,UAAU,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;QACpC,IAAI,SAAS;YAAE,aAAa,CAAC,CAAC,EAAE,IAAI,EAAE,SAAS,CAAC,CAAC;IACnD,CAAC,CAAC,CAAC;IACH,OAAO,UAAU,CAAC;AACpB,CAAC;AAED,SAAS,kBAAkB,CAAC,CAAqB,EAAE,IAAa;IAC9D,MAAM,KAAK,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,QAAQ,CAAC,IAAI,CAAC,CAAC;IACrC,MAAM,IAAI,GAAG,KAAK,CAAC,KAAK,EAAE,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;IACtD,MAAM,MAAM,GAAG,IAAI,IAAI,eAAe,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IAClD,IAAI,CAAC,MAAM;QAAE,OAAO,SAAS,CAAC;IAC9B,MAAM,KAAK,GAAG,MAAM,CAAC,CAAC,CAAc,CAAC;IACrC,MAAM,SAAS,GAA4B;QACzC,KAAK;QACL,MAAM,EAAE,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;QACzB,GAAG,EAAE,GAAG,SAAS,OAAO,MAAM,CAAC,CAAC,CAAC,IAAI,MAAM,CAAC,CAAC,CAAC,IAAI,MAAM,CAAC,CAAC,CAAC,EAAE;KAC9D,CAAC;IACF,MAAM,eAAe,GAA6B,EAAE,CAAC;IACrD,SAAS,CAAC,KAAK,CAAC,CAAC,OAAO,CAAC,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE;QACrC,MAAM,EAAE,IAAI,EAAE,SAAS,EAAE,GAAG,WAAW,CAAC,CAAC,EAAE,KAAK,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;QACxD,IAAI,SAAS,CAAC,MAAM,GAAG,CAAC;YAAE,eAAe,CAAC,MAAM,CAAC,GAAG,SAAS,CAAC;QAC9D,IAAI,CAAC,IAAI;YAAE,OAAO;QAClB,6CAA6C;QAC7C,MAAM,CAAC,MAAM,EAAE,MAAM,CAAC,GAAG,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC;QAC3C,IAAI,MAAM;YAAG,CAAC,SAAS,CAAC,MAAO,CAAC,KAAK,EAAE,CAA4B,CAAC,MAAM,CAAC,GAAG,IAAI,CAAC;;YAC9E,SAAS,CAAC,MAAM,CAAC,GAAG,IAAI,CAAC;IAChC,CAAC,CAAC,CAAC;IACH,IAAI,MAAM,CAAC,IAAI,CAAC,eAAe,CAAC,CAAC,MAAM,GAAG,CAAC;QAAE,SAAS,CAAC,eAAe,GAAG,eAAe,CAAC;IACzF,IAAI,KAAK,KAAK,UAAU;QAAE,aAAa,CAAC,SAAgC,CAAC,CAAC;IAC1E,OAAO,SAAiC,CAAC;AAC3C,CAAC;AAED,SAAS,aAAa,CAAC,SAAmB;IACxC,MAAM,IAAI,GAAG,SAAS,CAAC,IAAI,IAAI,WAAW,CAAC,IAAI,CAAC,SAAS,CAAC,IAAI,CAAC,CAAC;IAChE,IAAI,CAAC,IAAI;QAAE,OAAO;IAClB,MAAM,IAAI,GAAG,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;IAC7B,IAAI,IAAI;QAAE,SAAS,CAAC,IAAI,GAAG,IAAI,CAAC;;QAC3B,OAAO,SAAS,CAAC,IAAI,CAAC;IAC3B,SAAS,CAAC,SAAS,GAAG,IAAI,CAAC,CAAC,CAAE,CAAC;AACjC,CAAC;AAED;;;GAGG;AACH,SAAS,aAAa,CAAC,CAAqB,EAAE,IAAa,EAAE,SAAoB;IAC/E,MAAM,MAAM,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,KAAK,EAAE,CAAC;IAC5C,MAAM,eAAe,GAAG,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC;IAC9C,IAAI,eAAe,KAAK,UAAU,IAAI,SAAS,CAAC,KAAK,KAAK,UAAU,EAAE,CAAC;QACrE,MAAM,cAAc,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,KAAK,EAAE,CAAC;QACvC,cAAc,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,MAAM,EAAE,CAAC;QACrC,MAAM,OAAO,GAAG,MAAM,CAAC,cAAc,CAAC,IAAI,EAAE,CAAC,CAAC;QAC9C,IAAI,OAAO;YAAE,SAAS,CAAC,OAAO,GAAG,OAAO,CAAC;QACzC,OAAO;IACT,CAAC;IACD,MAAM,QAAQ,GAAG,kBAAkB,CAAC,IAAI,CAAC,eAAe,IAAI,EAAE,CAAC,CAAC;IAChE,MAAM,MAAM,GAAG,MAAM,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC,KAAK,EAAE,CAAC,IAAI,EAAE,CAAC,CAAC;IAC5D,IAAI,CAAC,QAAQ,IAAI,CAAC,MAAM;QAAE,OAAO;IACjC,CAAC,SAAS,CAAC,SAAS,KAAK,EAAE,CAAC,CAAC,IAAI,CAAC,EAAE,MAAM,EAAE,QAAQ,CAAC,CAAC,CAAE,EAAE,SAAS,EAAE,QAAQ,CAAC,CAAC,CAAE,EAAE,MAAM,EAAE,CAAC,CAAC;AAC/F,CAAC"}

package/dist/index.js

@@ -0,0 +1,6 @@
+#!/usr/bin/env node
+import { StdioServerTransport } from "@modelcontextprotocol/sdk/server/stdio.js";
+import { luoPalvelin } from "./server.js";
+// Runs the Hiski MCP server over stdio, as MCP clients launch local servers.
+await luoPalvelin().connect(new StdioServerTransport());
+//# sourceMappingURL=index.js.map

package/dist/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../src/index.ts"],"names":[],"mappings":";AACA,OAAO,EAAE,oBAAoB,EAAE,MAAM,2CAA2C,CAAC;AACjF,OAAO,EAAE,WAAW,EAAE,MAAM,aAAa,CAAC;AAE1C,6EAA6E;AAC7E,MAAM,WAAW,EAAE,CAAC,OAAO,CAAC,IAAI,oBAAoB,EAAE,CAAC,CAAC"}

package/dist/lomake.js

@@ -0,0 +1,133 @@
+/** A search request that cannot be sent to Hiski; the message says why. */
+export class LomakeVirhe extends Error {
+    constructor(viesti) {
+        super(viesti);
+        this.name = "LomakeVirhe";
+    }
+}
+const HENKILO = ["ietunimi", "ipatronyymi", "isukunimi", "iammatti", "ikyla"];
+const OMAINEN = ["aetunimi", "apatronyymi", "asukunimi", "aammatti"];
+/** The fields on each book's search form. */
+const KENTAT = {
+    kastetut: new Set(["etunimi", ...HENKILO, ...OMAINEN]),
+    vihityt: new Set([...HENKILO, ...OMAINEN, "akyla"]),
+    haudatut: new Set([...HENKILO, ...OMAINEN, "ksyy", "syntalku", "syntloppu", "ika"]),
+    smuutt: new Set([...HENKILO, "kohde"]),
+    umuutt: new Set([...HENKILO, "kohde"]),
+    kaikki: new Set([...HENKILO, "vapaaAND", "vapaaNOT"]),
+};
+/** Fields holding a date in the same format as the years. */
+const PAIVAMAARAKENTAT = new Set(["syntalku", "syntloppu"]);
+const MAKSIMIT = [15, 30, 50, 100, 250, 500, 1000];
+const OLETUSMAKSIMI = 50;
+/** Hiski's input fields accept at most this many characters. */
+const KENTAN_PITUUS = 30;
+/** Characters a browser leaves unescaped in a form body. */
+const SELLAISENAAN = /[A-Za-z0-9*\-._]/;
+/**
+ * Encodes form fields as application/x-www-form-urlencoded in ISO-8859-1,
+ * which Hiski expects (URLSearchParams would encode UTF-8, and Hiski would
+ * then search for "Bärnilä").
+ */
+export function koodaaLatin1(kentat) {
+    return kentat.map(([nimi, arvo]) => `${koodaa(nimi)}=${koodaa(arvo)}`).join("&");
+}
+function koodaa(teksti) {
+    let tulos = "";
+    // Composed form turns "a" + combining diaeresis into the single latin-1 letter "ä".
+    for (const merkki of teksti.normalize("NFC")) {
+        const koodi = merkki.codePointAt(0);
+        if (merkki === " ")
+            tulos += "+";
+        else if (SELLAISENAAN.test(merkki))
+            tulos += merkki;
+        else if (koodi <= 0xff)
+            tulos += `%${koodi.toString(16).toUpperCase().padStart(2, "0")}`;
+        else
+            throw new LomakeVirhe(`Merkkiä "${merkki}" ei voi hakea Hiskistä.`);
+    }
+    return tulos;
+}
+/**
+ * Checks a year or date in a format Hiski understands: vvvv, kk.vvvv or
+ * pp.kk.vvvv. Hiski silently ignores anything else and searches all years.
+ */
+export function tarkistaVuosi(arvo, kentta) {
+    const virhe = () => new LomakeVirhe(`${kentta} "${arvo}" ei kelpaa. Käytä muotoa vvvv, kk.vvvv tai pp.kk.vvvv (esim. 1834, 5.1834 tai 21.9.1834).`);
+    const osat = /^(?:(?:(\d{1,2})\.)?(\d{1,2})\.)?(\d{4})$/.exec(arvo);
+    if (!osat)
+        throw virhe();
+    const [, paiva, kuukausi, vuosi] = osat;
+    if (kuukausi === undefined)
+        return;
+    const kk = Number(kuukausi);
+    if (kk < 1 || kk > 12)
+        throw virhe();
+    if (paiva === undefined)
+        return;
+    const pv = Number(paiva);
+    const paiviaKuussa = new Date(Date.UTC(Number(vuosi), kk, 0)).getUTCDate();
+    if (pv < 1 || pv > paiviaKuussa)
+        throw virhe();
+}
+/** The smallest per-parish maximum Hiski offers that is at least n (at most 1000). */
+export function pyoristaMaksimi(n) {
+    return MAKSIMIT.find((m) => m >= n) ?? MAKSIMIT.at(-1);
+}
+/** Validates a search and returns the form fields to send to Hiski. */
+export function rakennaHakulomake(pyynto) {
+    const { kirja, seurakunnat, kentat = {}, alkuvuosi, loppuvuosi, jatkokohta } = pyynto;
+    if (!Object.hasOwn(KENTAT, kirja))
+        throw new LomakeVirhe(`Kirjalla "${kirja}" ei ole hakua.`);
+    const maksimi = pyynto.maksimi ?? OLETUSMAKSIMI;
+    if (!Number.isFinite(maksimi) || maksimi < 1) {
+        throw new LomakeVirhe(`maksimi ${maksimi} ei kelpaa; anna positiivinen luku.`);
+    }
+    if (seurakunnat.length === 0)
+        throw new LomakeVirhe("Anna vähintään yksi seurakunta.");
+    for (const koodi of seurakunnat) {
+        if (!/^\d{4}$/.test(koodi)) {
+            throw new LomakeVirhe(`Seurakuntakoodi "${koodi}" ei kelpaa; koodissa on neljä numeroa.`);
+        }
+    }
+    if (jatkokohta !== undefined) {
+        if (seurakunnat.length !== 1) {
+            throw new LomakeVirhe("Hakua voi jatkaa vain yhden seurakunnan osalta kerrallaan.");
+        }
+        if (!/^\d+$/.test(jatkokohta))
+            throw new LomakeVirhe(`jatkokohta "${jatkokohta}" ei kelpaa.`);
+    }
+    const lomake = [
+        ["komento", "haku"],
+        ["srk", seurakunnat.join(",")],
+        ["kirja", kirja],
+        ["kieli", "fi"],
+        ["maxkpl", String(pyoristaMaksimi(maksimi))],
+    ];
+    const vuodet = { alkuvuosi: alkuvuosi?.trim(), loppuvuosi: loppuvuosi?.trim() };
+    for (const [nimi, arvo] of Object.entries(vuodet)) {
+        if (!arvo)
+            continue;
+        tarkistaVuosi(arvo, nimi);
+        lomake.push([nimi, arvo]);
+    }
+    for (const [nimi, raaka] of Object.entries(kentat)) {
+        // Composed form, so that a decomposed "ä" counts as one letter.
+        const arvo = raaka?.normalize("NFC").trim();
+        if (!arvo)
+            continue;
+        if (!KENTAT[kirja].has(nimi)) {
+            throw new LomakeVirhe(`Kenttää "${nimi}" ei ole kirjan ${kirja} hakulomakkeella.`);
+        }
+        if (arvo.length > KENTAN_PITUUS) {
+            throw new LomakeVirhe(`Kentän "${nimi}" arvo on liian pitkä (enintään ${KENTAN_PITUUS} merkkiä).`);
+        }
+        if (PAIVAMAARAKENTAT.has(nimi))
+            tarkistaVuosi(arvo, nimi);
+        lomake.push([nimi, arvo]);
+    }
+    if (jatkokohta !== undefined)
+        lomake.push(["hakupos", jatkokohta]);
+    return lomake;
+}
+//# sourceMappingURL=lomake.js.map

package/dist/lomake.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"lomake.js","sourceRoot":"","sources":["../src/lomake.ts"],"names":[],"mappings":"AAEA,2EAA2E;AAC3E,MAAM,OAAO,WAAY,SAAQ,KAAK;IACpC,YAAY,MAAc;QACxB,KAAK,CAAC,MAAM,CAAC,CAAC;QACd,IAAI,CAAC,IAAI,GAAG,aAAa,CAAC;IAC5B,CAAC;CACF;AAmBD,MAAM,OAAO,GAAG,CAAC,UAAU,EAAE,aAAa,EAAE,WAAW,EAAE,UAAU,EAAE,OAAO,CAAC,CAAC;AAC9E,MAAM,OAAO,GAAG,CAAC,UAAU,EAAE,aAAa,EAAE,WAAW,EAAE,UAAU,CAAC,CAAC;AAErE,6CAA6C;AAC7C,MAAM,MAAM,GAA6C;IACvD,QAAQ,EAAE,IAAI,GAAG,CAAC,CAAC,SAAS,EAAE,GAAG,OAAO,EAAE,GAAG,OAAO,CAAC,CAAC;IACtD,OAAO,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,OAAO,EAAE,GAAG,OAAO,EAAE,OAAO,CAAC,CAAC;IACnD,QAAQ,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,OAAO,EAAE,GAAG,OAAO,EAAE,MAAM,EAAE,UAAU,EAAE,WAAW,EAAE,KAAK,CAAC,CAAC;IACnF,MAAM,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,OAAO,EAAE,OAAO,CAAC,CAAC;IACtC,MAAM,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,OAAO,EAAE,OAAO,CAAC,CAAC;IACtC,MAAM,EAAE,IAAI,GAAG,CAAC,CAAC,GAAG,OAAO,EAAE,UAAU,EAAE,UAAU,CAAC,CAAC;CACtD,CAAC;AAEF,6DAA6D;AAC7D,MAAM,gBAAgB,GAAG,IAAI,GAAG,CAAC,CAAC,UAAU,EAAE,WAAW,CAAC,CAAC,CAAC;AAE5D,MAAM,QAAQ,GAAG,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,IAAI,CAAU,CAAC;AAC5D,MAAM,aAAa,GAAG,EAAE,CAAC;AACzB,gEAAgE;AAChE,MAAM,aAAa,GAAG,EAAE,CAAC;AAEzB,4DAA4D;AAC5D,MAAM,YAAY,GAAG,kBAAkB,CAAC;AAExC;;;;GAIG;AACH,MAAM,UAAU,YAAY,CAAC,MAA0B;IACrD,OAAO,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,EAAE,CAAC,GAAG,MAAM,CAAC,IAAI,CAAC,IAAI,MAAM,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;AACnF,CAAC;AAED,SAAS,MAAM,CAAC,MAAc;IAC5B,IAAI,KAAK,GAAG,EAAE,CAAC;IACf,oFAAoF;IACpF,KAAK,MAAM,MAAM,IAAI,MAAM,CAAC,SAAS,CAAC,KAAK,CAAC,EAAE,CAAC;QAC7C,MAAM,KAAK,GAAG,MAAM,CAAC,WAAW,CAAC,CAAC,CAAE,CAAC;QACrC,IAAI,MAAM,KAAK,GAAG;YAAE,KAAK,IAAI,GAAG,CAAC;aAC5B,IAAI,YAAY,CAAC,IAAI,CAAC,MAAM,CAAC;YAAE,KAAK,IAAI,MAAM,CAAC;aAC/C,IAAI,KAAK,IAAI,IAAI;YAAE,KAAK,IAAI,IAAI,KAAK,CAAC,QAAQ,CAAC,EAAE,CAAC,CAAC,WAAW,EAAE,CAAC,QAAQ,CAAC,CAAC,EAAE,GAAG,CAAC,EAAE,CAAC;;YACpF,MAAM,IAAI,WAAW,CAAC,YAAY,MAAM,0BAA0B,CAAC,CAAC;IAC3E,CAAC;IACD,OAAO,KAAK,CAAC;AACf,CAAC;AAED;;;GAGG;AACH,MAAM,UAAU,aAAa,CAAC,IAAY,EAAE,MAAc;IACxD,MAAM,KAAK,GAAG,GAAG,EAAE,CACjB,IAAI,WAAW,CACb,GAAG,MAAM,KAAK,IAAI,4FAA4F,CAC/G,CAAC;IACJ,MAAM,IAAI,GAAG,2CAA2C,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACpE,IAAI,CAAC,IAAI;QAAE,MAAM,KAAK,EAAE,CAAC;IACzB,MAAM,CAAC,EAAE,KAAK,EAAE,QAAQ,EAAE,KAAK,CAAC,GAAG,IAAI,CAAC;IACxC,IAAI,QAAQ,KAAK,SAAS;QAAE,OAAO;IACnC,MAAM,EAAE,GAAG,MAAM,CAAC,QAAQ,CAAC,CAAC;IAC5B,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,GAAG,EAAE;QAAE,MAAM,KAAK,EAAE,CAAC;IACrC,IAAI,KAAK,KAAK,SAAS;QAAE,OAAO;IAChC,MAAM,EAAE,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC;IACzB,MAAM,YAAY,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,MAAM,CAAC,KAAK,CAAC,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,UAAU,EAAE,CAAC;IAC3E,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,GAAG,YAAY;QAAE,MAAM,KAAK,EAAE,CAAC;AACjD,CAAC;AAED,sFAAsF;AACtF,MAAM,UAAU,eAAe,CAAC,CAAS;IACvC,OAAO,QAAQ,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,QAAQ,CAAC,EAAE,CAAC,CAAC,CAAC,CAAE,CAAC;AAC1D,CAAC;AAED,uEAAuE;AACvE,MAAM,UAAU,iBAAiB,CAAC,MAAkB;IAClD,MAAM,EAAE,KAAK,EAAE,WAAW,EAAE,MAAM,GAAG,EAAE,EAAE,SAAS,EAAE,UAAU,EAAE,UAAU,EAAE,GAAG,MAAM,CAAC;IACtF,IAAI,CAAC,MAAM,CAAC,MAAM,CAAC,MAAM,EAAE,KAAK,CAAC;QAAE,MAAM,IAAI,WAAW,CAAC,aAAa,KAAK,iBAAiB,CAAC,CAAC;IAC9F,MAAM,OAAO,GAAG,MAAM,CAAC,OAAO,IAAI,aAAa,CAAC;IAChD,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,OAAO,CAAC,IAAI,OAAO,GAAG,CAAC,EAAE,CAAC;QAC7C,MAAM,IAAI,WAAW,CAAC,WAAW,OAAO,qCAAqC,CAAC,CAAC;IACjF,CAAC;IACD,IAAI,WAAW,CAAC,MAAM,KAAK,CAAC;QAAE,MAAM,IAAI,WAAW,CAAC,iCAAiC,CAAC,CAAC;IACvF,KAAK,MAAM,KAAK,IAAI,WAAW,EAAE,CAAC;QAChC,IAAI,CAAC,SAAS,CAAC,IAAI,CAAC,KAAK,CAAC,EAAE,CAAC;YAC3B,MAAM,IAAI,WAAW,CAAC,oBAAoB,KAAK,yCAAyC,CAAC,CAAC;QAC5F,CAAC;IACH,CAAC;IACD,IAAI,UAAU,KAAK,SAAS,EAAE,CAAC;QAC7B,IAAI,WAAW,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;YAC7B,MAAM,IAAI,WAAW,CAAC,4DAA4D,CAAC,CAAC;QACtF,CAAC;QACD,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,UAAU,CAAC;YAAE,MAAM,IAAI,WAAW,CAAC,eAAe,UAAU,cAAc,CAAC,CAAC;IAChG,CAAC;IAED,MAAM,MAAM,GAAuB;QACjC,CAAC,SAAS,EAAE,MAAM,CAAC;QACnB,CAAC,KAAK,EAAE,WAAW,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;QAC9B,CAAC,OAAO,EAAE,KAAK,CAAC;QAChB,CAAC,OAAO,EAAE,IAAI,CAAC;QACf,CAAC,QAAQ,EAAE,MAAM,CAAC,eAAe,CAAC,OAAO,CAAC,CAAC,CAAC;KAC7C,CAAC;IACF,MAAM,MAAM,GAAG,EAAE,SAAS,EAAE,SAAS,EAAE,IAAI,EAAE,EAAE,UAAU,EAAE,UAAU,EAAE,IAAI,EAAE,EAAE,CAAC;IAChF,KAAK,MAAM,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,MAAM,CAAC,OAAO,CAAC,MAAM,CAAC,EAAE,CAAC;QAClD,IAAI,CAAC,IAAI;YAAE,SAAS;QACpB,aAAa,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC;QAC1B,MAAM,CAAC,IAAI,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC;IAC5B,CAAC;IACD,KAAK,MAAM,CAAC,IAAI,EAAE,KAAK,CAAC,IAAI,MAAM,CAAC,OAAO,CAAC,MAAM,CAAC,EAAE,CAAC;QACnD,gEAAgE;QAChE,MAAM,IAAI,GAAG,KAAK,EAAE,SAAS,CAAC,KAAK,CAAC,CAAC,IAAI,EAAE,CAAC;QAC5C,IAAI,CAAC,IAAI;YAAE,SAAS;QACpB,IAAI,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC;YAC7B,MAAM,IAAI,WAAW,CAAC,YAAY,IAAI,mBAAmB,KAAK,mBAAmB,CAAC,CAAC;QACrF,CAAC;QACD,IAAI,IAAI,CAAC,MAAM,GAAG,aAAa,EAAE,CAAC;YAChC,MAAM,IAAI,WAAW,CACnB,WAAW,IAAI,mCAAmC,aAAa,YAAY,CAC5E,CAAC;QACJ,CAAC;QACD,IAAI,gBAAgB,CAAC,GAAG,CAAC,IAAI,CAAC;YAAE,aAAa,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC;QAC1D,MAAM,CAAC,IAAI,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,CAAC;IAC5B,CAAC;IACD,IAAI,UAAU,KAAK,SAAS;QAAE,MAAM,CAAC,IAAI,CAAC,CAAC,SAAS,EAAE,UAAU,CAAC,CAAC,CAAC;IACnE,OAAO,MAAM,CAAC;AAChB,CAAC"}

package/dist/muotoilu.js

@@ -0,0 +1,124 @@
+import { HiskiVirhe } from "./client.js";
+import { LomakeVirhe } from "./lomake.js";
+import { SeurakuntaVirhe } from "./parishes.js";
+/** "1697–1710, 1718–1890": compact for the agent, unlike a list of objects. */
+export function vuodetTekstiksi(valit) {
+    return valit.map((v) => (v.alku === v.loppu ? `${v.alku}` : `${v.alku}–${v.loppu}`)).join(", ");
+}
+/** Years per book as text, leaving out the books a parish does not have. */
+export function kirjojenVuodet(vuodet) {
+    return Object.fromEntries(Object.entries(vuodet)
+        .filter(([, valit]) => valit.length > 0)
+        .map(([kirja, valit]) => [kirja, vuodetTekstiksi(valit)]));
+}
+/** An expected failure of a tool whose message the agent can act on. */
+export class TyokaluVirhe extends Error {
+    constructor(viesti) {
+        super(viesti);
+        this.name = "TyokaluVirhe";
+    }
+}
+const ILMOITA_ONGELMASTA = "https://github.com/jleh/hiski-mcp/issues";
+/** The text the agent sees for an error, with a next step where one helps. */
+export function virheViesti(virhe) {
+    if (virhe instanceof SeurakuntaVirhe) {
+        return `${virhe.message} Seurakuntia voi etsiä etsi_seurakunta-työkalulla; koodilla ("0366") valinta on yksiselitteinen.`;
+    }
+    if (virhe instanceof LomakeVirhe ||
+        virhe instanceof HiskiVirhe ||
+        virhe instanceof TyokaluVirhe) {
+        return virhe.message;
+    }
+    // Anything else means Hiski's page was not what the parsers expect.
+    const syy = virhe instanceof Error ? virhe.message : String(virhe);
+    return `Hiskin sivu oli odottamattoman muotoinen (${syy}). Hiski on voinut muuttua; ongelmasta voi ilmoittaa: ${ILMOITA_ONGELMASTA}`;
+}
+const KIRJAN_NIMI = {
+    kastetut: "kastetut",
+    vihityt: "vihityt",
+    haudatut: "haudatut",
+    smuutt: "sisäänmuuttaneet",
+    umuutt: "poismuuttaneet",
+    kaikki: "kaikki kirjat",
+};
+/** The year of "vvvv", "kk.vvvv" or "pp.kk.vvvv". */
+const vuosiluku = (arvo) => {
+    const teksti = arvo?.trim();
+    return teksti ? Number(teksti.slice(-4)) : undefined;
+};
+/** The single-book tool for a book in an all-books result. */
+const KIRJAN_TYOKALU = {
+    kastetut: "hae_kastetut",
+    vihityt: "hae_vihityt",
+    haudatut: "hae_haudatut",
+    smuutt: "hae_muuttaneet (suunta sisaan)",
+    umuutt: "hae_muuttaneet (suunta pois)",
+};
+/**
+ * The search result as the agent gets it, with notes. In an all-books search
+ * Hiski's continuation point belongs to one book's search, not to the
+ * all-books search, so it is left out there.
+ */
+export function muotoileHakutulos(tulos, pyynto) {
+    const lohkot = pyynto.kirja === "kaikki"
+        ? tulos.lohkot.map((lohko) => {
+            const kopio = { ...lohko };
+            delete kopio.jatkokohta;
+            return kopio;
+        })
+        : tulos.lohkot;
+    const valmis = { ...tulos, lohkot };
+    const huomautukset = hakutuloksenHuomautukset(valmis, pyynto);
+    return { ...valmis, ...(huomautukset.length > 0 && { huomautukset }) };
+}
+function hakutuloksenHuomautukset(tulos, pyynto) {
+    const huomautukset = [];
+    const kirjanNimi = KIRJAN_NIMI[pyynto.kirja] ?? pyynto.kirja;
+    for (const lohko of tulos.lohkot) {
+        if (!lohko.katkaistu)
+            continue;
+        const { nimi, koodi } = lohko.seurakunta;
+        const noin = lohko.loytyi_noin === undefined ? "" : `, löytyi noin ${lohko.loytyi_noin}`;
+        const jatko = lohko.jatkokohta
+            ? ` Hakua voi jatkaa antamalla jatkokohta "${lohko.jatkokohta}" samalla haulla pelkälle seurakunnalle ${koodi}, tai hakua voi rajata.`
+            : pyynto.kirja === "kaikki"
+                ? ` Hakua voi rajata tai hakea kirjan omalla työkalulla ${KIRJAN_TYOKALU[lohko.kirja] ?? ""} suuremmalla maksimilla.`
+                : " Hakua voi rajata tai maksimia kasvattaa.";
+        huomautukset.push(`${nimi} (${KIRJAN_NIMI[lohko.kirja] ?? lohko.kirja}): näytettiin ${lohko.tapahtumat.length}${noin}.${jatko}`);
+    }
+    // The same word is listed once per parish block; mention it once.
+    const tuntemattomat = new Set();
+    for (const lohko of tulos.lohkot) {
+        for (const termi of lohko.hakutermit) {
+            if ("ei_tietokannassa" in termi)
+                tuntemattomat.add(`${termi.haku} (${termi.kentta})`);
+        }
+    }
+    for (const kuvaus of tuntemattomat) {
+        huomautukset.push(`Hakusanaa ${kuvaus} ei ole Hiskin tietokannassa; kirjoitusasu voi olla toinen.`);
+    }
+    const palautetut = new Set(tulos.lohkot.map((l) => l.seurakunta.koodi));
+    for (const seurakunta of pyynto.seurakunnat) {
+        if (palautetut.has(seurakunta.koodi))
+            continue;
+        const vuodet = seurakunta.vuodet[pyynto.kirja];
+        huomautukset.push(vuodet && vuodet.length === 0
+            ? `Seurakunnalla ${seurakunta.nimi} (${seurakunta.koodi}) ei ole Hiskissä kirjaa ${kirjanNimi}.`
+            : `Hiski ei palauttanut tuloksia seurakunnalle ${seurakunta.nimi} (${seurakunta.koodi}).`);
+    }
+    const alku = vuosiluku(pyynto.alkuvuosi);
+    const loppu = vuosiluku(pyynto.loppuvuosi);
+    if (alku !== undefined || loppu !== undefined) {
+        for (const seurakunta of pyynto.seurakunnat) {
+            const vuodet = seurakunta.vuodet[pyynto.kirja];
+            if (!vuodet || vuodet.length === 0)
+                continue;
+            const osuu = vuodet.some((v) => (alku === undefined || v.loppu >= alku) && (loppu === undefined || v.alku <= loppu));
+            if (!osuu) {
+                huomautukset.push(`Seurakunnan ${seurakunta.nimi} ${kirjanNimi} on Hiskissä vuosilta ${vuodetTekstiksi(vuodet)}; haettu väli ${alku ?? ""}–${loppu ?? ""} on niiden ulkopuolella.`);
+            }
+        }
+    }
+    return huomautukset;
+}
+//# sourceMappingURL=muotoilu.js.map

package/dist/muotoilu.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"muotoilu.js","sourceRoot":"","sources":["../src/muotoilu.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,UAAU,EAAE,MAAM,aAAa,CAAC;AAEzC,OAAO,EAAE,WAAW,EAAE,MAAM,aAAa,CAAC;AAC1C,OAAO,EAAE,eAAe,EAAmC,MAAM,eAAe,CAAC;AAEjF,+EAA+E;AAC/E,MAAM,UAAU,eAAe,CAAC,KAA2B;IACzD,OAAO,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,KAAK,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,IAAI,CAAC,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;AAClG,CAAC;AAED,4EAA4E;AAC5E,MAAM,UAAU,cAAc,CAC5B,MAAsD;IAEtD,OAAO,MAAM,CAAC,WAAW,CACvB,MAAM,CAAC,OAAO,CAAC,MAAM,CAAC;SACnB,MAAM,CAAC,CAAC,CAAC,EAAE,KAAK,CAAC,EAAE,EAAE,CAAC,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC;SACvC,GAAG,CAAC,CAAC,CAAC,KAAK,EAAE,KAAK,CAAC,EAAE,EAAE,CAAC,CAAC,KAAK,EAAE,eAAe,CAAC,KAAK,CAAC,CAAC,CAAC,CAC5D,CAAC;AACJ,CAAC;AAED,wEAAwE;AACxE,MAAM,OAAO,YAAa,SAAQ,KAAK;IACrC,YAAY,MAAc;QACxB,KAAK,CAAC,MAAM,CAAC,CAAC;QACd,IAAI,CAAC,IAAI,GAAG,cAAc,CAAC;IAC7B,CAAC;CACF;AAED,MAAM,kBAAkB,GAAG,0CAA0C,CAAC;AAEtE,8EAA8E;AAC9E,MAAM,UAAU,WAAW,CAAC,KAAc;IACxC,IAAI,KAAK,YAAY,eAAe,EAAE,CAAC;QACrC,OAAO,GAAG,KAAK,CAAC,OAAO,kGAAkG,CAAC;IAC5H,CAAC;IACD,IACE,KAAK,YAAY,WAAW;QAC5B,KAAK,YAAY,UAAU;QAC3B,KAAK,YAAY,YAAY,EAC7B,CAAC;QACD,OAAO,KAAK,CAAC,OAAO,CAAC;IACvB,CAAC;IACD,oEAAoE;IACpE,MAAM,GAAG,GAAG,KAAK,YAAY,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;IACnE,OAAO,6CAA6C,GAAG,yDAAyD,kBAAkB,EAAE,CAAC;AACvI,CAAC;AAED,MAAM,WAAW,GAA2B;IAC1C,QAAQ,EAAE,UAAU;IACpB,OAAO,EAAE,SAAS;IAClB,QAAQ,EAAE,UAAU;IACpB,MAAM,EAAE,kBAAkB;IAC1B,MAAM,EAAE,gBAAgB;IACxB,MAAM,EAAE,eAAe;CACxB,CAAC;AAEF,qDAAqD;AACrD,MAAM,SAAS,GAAG,CAAC,IAAwB,EAAE,EAAE;IAC7C,MAAM,MAAM,GAAG,IAAI,EAAE,IAAI,EAAE,CAAC;IAC5B,OAAO,MAAM,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC;AACvD,CAAC,CAAC;AAcF,8DAA8D;AAC9D,MAAM,cAAc,GAA2B;IAC7C,QAAQ,EAAE,cAAc;IACxB,OAAO,EAAE,aAAa;IACtB,QAAQ,EAAE,cAAc;IACxB,MAAM,EAAE,gCAAgC;IACxC,MAAM,EAAE,8BAA8B;CACvC,CAAC;AAEF;;;;GAIG;AACH,MAAM,UAAU,iBAAiB,CAC/B,KAAgB,EAChB,MAAkB;IAElB,MAAM,MAAM,GACV,MAAM,CAAC,KAAK,KAAK,QAAQ;QACvB,CAAC,CAAC,KAAK,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC,KAAK,EAAE,EAAE;YACzB,MAAM,KAAK,GAAG,EAAE,GAAG,KAAK,EAAE,CAAC;YAC3B,OAAO,KAAK,CAAC,UAAU,CAAC;YACxB,OAAO,KAAK,CAAC;QACf,CAAC,CAAC;QACJ,CAAC,CAAC,KAAK,CAAC,MAAM,CAAC;IACnB,MAAM,MAAM,GAAG,EAAE,GAAG,KAAK,EAAE,MAAM,EAAE,CAAC;IACpC,MAAM,YAAY,GAAG,wBAAwB,CAAC,MAAM,EAAE,MAAM,CAAC,CAAC;IAC9D,OAAO,EAAE,GAAG,MAAM,EAAE,GAAG,CAAC,YAAY,CAAC,MAAM,GAAG,CAAC,IAAI,EAAE,YAAY,EAAE,CAAC,EAAE,CAAC;AACzE,CAAC;AAED,SAAS,wBAAwB,CAAC,KAAgB,EAAE,MAAkB;IACpE,MAAM,YAAY,GAAa,EAAE,CAAC;IAClC,MAAM,UAAU,GAAG,WAAW,CAAC,MAAM,CAAC,KAAK,CAAC,IAAI,MAAM,CAAC,KAAK,CAAC;IAE7D,KAAK,MAAM,KAAK,IAAI,KAAK,CAAC,MAAM,EAAE,CAAC;QACjC,IAAI,CAAC,KAAK,CAAC,SAAS;YAAE,SAAS;QAC/B,MAAM,EAAE,IAAI,EAAE,KAAK,EAAE,GAAG,KAAK,CAAC,UAAU,CAAC;QACzC,MAAM,IAAI,GAAG,KAAK,CAAC,WAAW,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,iBAAiB,KAAK,CAAC,WAAW,EAAE,CAAC;QACzF,MAAM,KAAK,GAAG,KAAK,CAAC,UAAU;YAC5B,CAAC,CAAC,2CAA2C,KAAK,CAAC,UAAU,2CAA2C,KAAK,yBAAyB;YACtI,CAAC,CAAC,MAAM,CAAC,KAAK,KAAK,QAAQ;gBACzB,CAAC,CAAC,wDAAwD,cAAc,CAAC,KAAK,CAAC,KAAK,CAAC,IAAI,EAAE,0BAA0B;gBACrH,CAAC,CAAC,2CAA2C,CAAC;QAClD,YAAY,CAAC,IAAI,CACf,GAAG,IAAI,KAAK,WAAW,CAAC,KAAK,CAAC,KAAK,CAAC,IAAI,KAAK,CAAC,KAAK,iBAAiB,KAAK,CAAC,UAAU,CAAC,MAAM,GAAG,IAAI,IAAI,KAAK,EAAE,CAC9G,CAAC;IACJ,CAAC;IAED,kEAAkE;IAClE,MAAM,aAAa,GAAG,IAAI,GAAG,EAAU,CAAC;IACxC,KAAK,MAAM,KAAK,IAAI,KAAK,CAAC,MAAM,EAAE,CAAC;QACjC,KAAK,MAAM,KAAK,IAAI,KAAK,CAAC,UAAU,EAAE,CAAC;YACrC,IAAI,kBAAkB,IAAI,KAAK;gBAAE,aAAa,CAAC,GAAG,CAAC,GAAG,KAAK,CAAC,IAAI,KAAK,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC;QACxF,CAAC;IACH,CAAC;IACD,KAAK,MAAM,MAAM,IAAI,aAAa,EAAE,CAAC;QACnC,YAAY,CAAC,IAAI,CACf,aAAa,MAAM,6DAA6D,CACjF,CAAC;IACJ,CAAC;IAED,MAAM,UAAU,GAAG,IAAI,GAAG,CAAC,KAAK,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,UAAU,CAAC,KAAK,CAAC,CAAC,CAAC;IACxE,KAAK,MAAM,UAAU,IAAI,MAAM,CAAC,WAAW,EAAE,CAAC;QAC5C,IAAI,UAAU,CAAC,GAAG,CAAC,UAAU,CAAC,KAAK,CAAC;YAAE,SAAS;QAC/C,MAAM,MAAM,GAAG,UAAU,CAAC,MAAM,CAAC,MAAM,CAAC,KAAmC,CAAC,CAAC;QAC7E,YAAY,CAAC,IAAI,CACf,MAAM,IAAI,MAAM,CAAC,MAAM,KAAK,CAAC;YAC3B,CAAC,CAAC,iBAAiB,UAAU,CAAC,IAAI,KAAK,UAAU,CAAC,KAAK,4BAA4B,UAAU,GAAG;YAChG,CAAC,CAAC,+CAA+C,UAAU,CAAC,IAAI,KAAK,UAAU,CAAC,KAAK,IAAI,CAC5F,CAAC;IACJ,CAAC;IAED,MAAM,IAAI,GAAG,SAAS,CAAC,MAAM,CAAC,SAAS,CAAC,CAAC;IACzC,MAAM,KAAK,GAAG,SAAS,CAAC,MAAM,CAAC,UAAU,CAAC,CAAC;IAC3C,IAAI,IAAI,KAAK,SAAS,IAAI,KAAK,KAAK,SAAS,EAAE,CAAC;QAC9C,KAAK,MAAM,UAAU,IAAI,MAAM,CAAC,WAAW,EAAE,CAAC;YAC5C,MAAM,MAAM,GAAG,UAAU,CAAC,MAAM,CAAC,MAAM,CAAC,KAAmC,CAAC,CAAC;YAC7E,IAAI,CAAC,MAAM,IAAI,MAAM,CAAC,MAAM,KAAK,CAAC;gBAAE,SAAS;YAC7C,MAAM,IAAI,GAAG,MAAM,CAAC,IAAI,CACtB,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,IAAI,KAAK,SAAS,IAAI,CAAC,CAAC,KAAK,IAAI,IAAI,CAAC,IAAI,CAAC,KAAK,KAAK,SAAS,IAAI,CAAC,CAAC,IAAI,IAAI,KAAK,CAAC,CAC3F,CAAC;YACF,IAAI,CAAC,IAAI,EAAE,CAAC;gBACV,YAAY,CAAC,IAAI,CACf,eAAe,UAAU,CAAC,IAAI,IAAI,UAAU,yBAAyB,eAAe,CAAC,MAAM,CAAC,iBAAiB,IAAI,IAAI,EAAE,IAAI,KAAK,IAAI,EAAE,0BAA0B,CACjK,CAAC;YACJ,CAAC;QACH,CAAC;IACH,CAAC;IACD,OAAO,YAAY,CAAC;AACtB,CAAC"}

package/dist/ohjeet.js

@@ -0,0 +1,26 @@
+/**
+ * Guidance for the agent, sent as the server's `instructions`. Tool
+ * descriptions stay factual; how to search well lives here.
+ */
+export const OHJEET = `HisKi on Suomen Sukututkimusseuran tietokanta, johon on tallennettu seurakuntien historiakirjojen tapahtumia: kastetut, vihityt, haudatut sekä sisään- ja poismuuttaneet. Tiedot ovat alkuperäisessä kirjoitusasussa, usein ruotsiksi.
+
+Aineiston rajat:
+- Aineisto ulottuu 1600-luvulta monessa seurakunnassa 1900-luvun alkupuolelle, mutta näkyvissä ovat vain yli 100 vuotta vanhat tapahtumat. Kunkin seurakunnan ja kirjan indeksoidut vuodet kertovat etsi_seurakunta ja seurakunnan_tiedot; aineisto voi olla vajaa niidenkin sisällä.
+- Tyhjä tulos ei todista, ettei tapahtumaa ole. Silloin voi kokeilla toista kirjoitusasua, naapuriseurakuntia (seurakunnan_tiedot), emäseurakuntaa tai toista kirjaa (esim. vihityt, kun kastetta ei löydy).
+- Luovutetun Karjalan seurakuntien historiakirjat on pääosin tallennettu Karjala-tietokantasäätiön tietokantaan, ei Hiskiin.
+- Tallennuksessa voi olla virheitä; löydöt kannattaa tarkistaa alkuperäislähteestä (SSHY-digiarkiston linkki hae_tapahtuma-tuloksessa).
+
+Hakusanat:
+- Nimet haetaan nykyisellä perusmuodolla; Hiski löytää myös vanhat ja ruotsinkieliset muodot (Johan löytää myös Juho, Johannes). Tuloksen hakutermit kertovat, mitä muotoja haettiin, ja jos hakusanaa ei ole tietokannassa.
+- Useampi etunimi välilyönnillä tarkoittaa, että kaikkien on löydyttävä (enintään 3). Vaihtoehdot erotetaan sanalla TAI, esim. "Jussi TAI Matti".
+- Patronyymi toimii päätteen kanssa tai ilman (Johan, Johansson, Juhonpoika); varmin on ruotsinkielinen -son/-dr.
+- Sukunimien normalisointi on puutteellinen: noin 5 alkukirjainta toimii usein parhaiten (Manko löytää Mankonen ja Mankoin). Länsi-Suomessa sukunimeä ei usein ollut, ja sukunimikenttään on voitu kirjata talon nimi.
+- Paikannimiä ei ole normalisoitu kattavasti; alkuperäinen kirjoitusasu tai sanan alku toimii usein paremmin. Kylien nimet ovat kirjoissa usein ruotsiksi tai vanhassa asussa (Niemi → Njemis); seurakunnan_tiedot listaa kylät.
+- Hakusanan loppuun lisätään automaattisesti jokeri: "Kuona" löytää myös "Kuonan torppa". Piste lopussa hakee tarkasti ("Berg."). * on mikä tahansa merkkijono ja ? yksi merkki; sanan alussa oleva jokeri on hidas usean seurakunnan haussa. $ alussa hyväksyy myös tapahtumat, joissa kenttä on tyhjä ("$Mikkola").
+
+Hakutapa:
+- Kun seurakunta tiedetään, haku yhdestä seurakunnasta on nopein ja tarkin. Usean seurakunnan haussa ehtoja kannattaa tarkentaa ja pitää maksimi pienenä; seurakuntien määrä × maksimi saa olla enintään 1000.
+- Hakutuloksessa henkilö on yksi merkkijono (ammatti ja nimet yhdessä); hae_tapahtuma antaa ammatin, etunimen, patronyymin, sukunimen ja iän eriteltyinä sekä kommentit.
+- Katkaistun tuloksen voi jatkaa jatkokohdalla samalla haulla samalle seurakunnalle. hae_kaikki-hakua ei voi jatkaa; sen katkennutta kirjaa voi hakea kirjan omalla työkalulla.
+- hae_kaikki hakee henkilöä kaikista kirjoista kerralla; se sopii ensimmäiseksi hauksi, kun tiedossa on vain nimi ja seurakunta.`;
+//# sourceMappingURL=ohjeet.js.map

package/dist/ohjeet.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"ohjeet.js","sourceRoot":"","sources":["../src/ohjeet.ts"],"names":[],"mappings":"AAAA;;;GAGG;AACH,MAAM,CAAC,MAAM,MAAM,GAAG;;;;;;;;;;;;;;;;;;;;iIAoB2G,CAAC"}