ffpriv_ie_vowel_change.c

Go to the documentation of this file.

/*
 * finflect - Algorithms and tools for inflecting Finnish nouns
 * Copyright (C) 2004, 2005  The FinFlect Team
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 *
 * For the complete legal text of the GNU Lesser General Public License,
 * see the file LICENSE. For a complete list of authors and copyright
 * holders, see the file AUTHORS.
 */

/**
 * @file ffpriv_ie_vowel_change.c Contains the exception list for i-e
 * vowel change and implements the functions for getting information
 * from it with binary search. The functions are declared in ffpriv_ie_vowel_change.h.
 */

#include <stdlib.h>

#include "fftypes.h"
#include "ffstring.h"
#include "ffword.h"

#include "ffpriv_ie_vowel_change.h"

#define IE_LIST_LEN 177

static ffchar* ie_list[IE_LIST_LEN][3] = {
      {"alpi", "alve", "alpe"},
      {"appi", "ape", "appe"},
      {"arki", "arje", "arke"},
      {"arpi", "arve", "arpe"},
      {"hanhi", "hanhe", "hanhe"},
      {"hanki", "hange", "hanke"},
      {"happi", "hape", "happe"},
      {"hauki", "haue", "hauke"},
      {"heisi", "heide", "heit"},
      {"helmi", "helme", "helme"},
      {"henki", "henge", "henke"},
      {"hetki", "hetke", "hetke"},
      {"hiili", "hiile", "hiil"},
      {"hiiri", "hiire", "hiir"},
      {"hiisi", "hiide", "hiit"},
      {"hiki", "hie", "hike"},
      {"hirsi", "hirre", "hirt"},
      {"hirvi", "hirve", "hirve"},
      {"huoli", "huole", "huol"},
      {"huuli", "huule", "huul"},
      {"joki", "joe", "joke"},
      {"jousi", "jouse", "jous"},
      {"juoni", "juone", "juon"},
      {"juuri", "juure", "juur"},
      {"jälki", "jälje", "jälke"},
      {"järki", "järje", "järke"},
      {"järvi", "järve", "järve"},
      {"kaali", "kaale", "kaal"},
      {"kaari", "kaare", "kaar"},
      {"kaihi", "kaihe", "kaihe"},
      {"kaikki", "kaike", "kaikke"},
      {"kaksi", "kahde", "kah"},
      {"kampi", "kamme", "kampe"},
      {"kanki", "kange", "kanke"},
      {"kansi", "kanne", "kant"},
      {"kaski", "kaske", "kaske"},
      {"kausi", "kaude", "kaut"},
      {"kieli", "kiele", "kiel"},
      {"kilpi", "kilve", "kilpe"},
      {"kivi", "kive", "kive"},
      {"koipi", "koive", "koipe"},
      {"korpi", "korve", "korpe"},
      {"korsi", "korre", "kort"},
      {"koski", "koske", "koske"},
      {"kuori", "kuore", "kuor"},
      {"kurki", "kurje", "kurke"},
      {"kusi", "kuse", "kus"},
      {"kuusi", "kuuse", "kuus"},
      {"kylki", "kylje", "kylke"},
      {"Kymi", "Kyme", "Kyme"},
      {"kynsi", "kynne", "kynt"},
      {"käki", "käe", "käke"},
      {"kärki", "kärje", "kärke"},
      {"käsi", "käde", "kät"},
      {"köysi", "köyde", "köyt"},
      {"lahti", "lahde", "lahte"},
      {"lampi", "lamme", "lampe"},
      {"lapsi", "lapse", "las"},
      {"lehti", "lehde", "lehte"},
      {"lempi", "lemme", "lempe"},
      {"leski", "leske", "leske"},
      {"liemi", "lieme", "lien"},
      {"liesi", "liede", "liet"},
      {"lohi", "lohe", "loh"},
      {"loimi", "loime", "loime"},
      {"lovi", "love", "love"},
      {"lumi", "lume", "lun"},
      {"luomi", "luome", "luome"},
      {"länki", "länge", "länke"},
      {"länsi", "länne", "länt"},
      {"meri", "mere", "mer"},
      {"mesi", "mede", "met"},
      {"mieli", "miele", "miel"},
      {"moni", "mone", "mon"},
      {"mäki", "mäe", "mäke"},
      {"niemi", "nieme", "nieme"},
      {"nimi", "nime", "nime"},
      {"noki", "noe", "noke"},
      {"nummi", "numme", "numme"},
      {"nuoli", "nuole", "nuol"},
      {"nuori", "nuore", "nuor"},
      {"nurmi", "nurme", "nurme"},
      {"närhi", "närhe", "närhe"},
      {"onki", "onge", "onke"},
      {"onni", "onne", "onne"},
      {"orsi", "orre", "ort"},
      {"ovi", "ove", "ove"},
      {"parsi", "parre", "part"},
      {"parvi", "parve", "parve"},
      {"peitsi", "peitse", "peitse"},
      {"pieli", "piele", "piel"},
      {"pieni", "piene", "pien"},
      {"piki", "pie", "pike"},
      {"pilvi", "pilve", "pilve"},
      {"polvi", "polve", "polve"},
      {"poski", "poske", "poske"},
      {"povi", "pove", "pove"},
      {"puoli", "puole", "puol"},
      {"pursi", "purre", "purt"},
      {"putki", "putke", "putke"},
      {"pälvi", "pälve", "pälve"},
      {"reki", "ree", "reke"},
      {"reisi", "reide", "reit"},
      {"retki", "retke", "retke"},
      {"riihi", "riihe", "riih"},
      {"ripsi", "ripse", "ripse"},
      {"rupi", "ruve", "rupe"},
      {"ruuhi", "ruuhe", "ruuh"},
      {"saari", "saare", "saar"},
      {"saarni", "saarne", "saarne"},
      {"saksi", "sakse", "sakse"},
      {"salmi", "salme", "salme"},
      {"sampi", "samme", "sampe"},
      {"sappi", "sape", "sappe"},
      {"sarvi", "sarve", "sarve"},
      {"savi", "save", "save"},
      {"seimi", "seime", "seime"},
      {"sieni", "siene", "sien"},
      {"siipi", "siive", "siipe"},
      {"sini", "sine", "sine"},
      {"solki", "solje", "solke"},
      {"soppi", "sope", "soppe"},
      {"sormi", "sorme", "sorme"},
      {"suksi", "sukse", "sukse"},
      {"suoli", "suole", "suol"},
      {"Suomi", "Suome", "Suome"},
      {"suomi", "suome", "suome"},
      {"suoni", "suone", "suon"},
      {"susi", "sude", "sut"},
      {"suuri", "suure", "suur"},
      {"suvi", "suve", "suve"},
      {"sylki", "sylje", "sylke"},
      {"sänki", "sänge", "sänke"},
      {"särki", "särje", "särke"},
      {"sääri", "sääre", "säär"},
      {"sääski", "sääske", "sääske"},
      {"taimi", "taime", "taime"},
      {"talvi", "talve", "talve"},
      {"tammi", "tamme", "tamme"},
      {"teeri", "teere", "teer"},
      {"telki", "telje", "telke"},
      {"tiili", "tiile", "tiil"},
      {"tilhi", "tilhe", "tilhe"},
      {"toimi", "toime", "toime"},
      {"tonki", "tonge", "tonke"},
      {"torvi", "torve", "torve"},
      {"tosi", "tode", "tot"},
      {"tuki", "tue", "tuke"},
      {"tuli", "tule", "tul"},
      {"tuohi", "tuohe", "tuoh"},
      {"tuomi", "tuome", "tuon"},
      {"tuppi", "tupe", "tuppe"},
      {"tuuli", "tuule", "tuul"},
      {"typpi", "type", "typpe"},
      {"tyvi", "tyve", "tyve"},
      {"tyyni", "tyyne", "tyyn"},
      {"tähti", "tähde", "tähte"},
      {"täysi", "täyde", "täyt"},
      {"uni", "une", "un"},
      {"uusi", "uude", "uut"},
      {"varsi", "varre", "vart"},
      {"veitsi", "veitse", "veis"},
      {"veli", "velje", "velje"},
      {"veri", "vere", "ver"},
      {"vesi", "vede", "vet"},
      {"vieri", "viere", "vier"},
      {"viiksi", "viikse", "viikse"},
      {"viisi", "viide", "viit"},
      {"virsi", "virre", "virt"},
      {"vuohi", "vuohe", "vuoh"},
      {"vuori", "vuore", "vuor"},
      {"vuosi", "vuode", "vuot"},
      {"vyyhti", "vyyhde", "vyyhte"},
      {"väki", "väe", "väke"},
      {"yksi", "yhde", "yh"},
      {"ääni", "ääne", "ään"},
      {"ääri", "ääre", "äär"}
    };

static ffint32 ffpriv_ie_list_get(ffword* word, ffint32 index) {
  ffint32 result = 0;
  int high, low, i;

  for(high = IE_LIST_LEN -1, low = -1; high - low > 1; ) {
    i = (high + low) / 2;
    if(ffstring_compare(&word->data, ie_list[i][0]) < 1)
      high = i;
    else
      low = i;
  }
  if(ffstring_equals(&word->data, ie_list[high][0])) {
    if((result = ffstring_delete(&word->data)))
      return result;
    else if((result = ffstring_create(ie_list[high][index], &word->data)))
      return result;
    else
      return 1;
  } else
    return 0;
}

ffint32 ffpriv_ie_genitive(ffword* word) {
  return ffpriv_ie_list_get(word, 1);
}

ffint32 ffpriv_ie_partitive(ffword* word) {
  return ffpriv_ie_list_get(word, 2);
}

---