ffpriv_genitive_stem.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_genitive_stem.c Implements the genitive stem function
 * declared in ffpriv_genitive_stem.h.
 */

#include "ffpriv_genitive_stem.h"
#include "ffutil.h"
#include "ffregex.h"
#include "ffpriv_consonant_gradation.h"
#include "ffpriv_ie_vowel_change.h"
#include "ffpriv_ss_abnormal.h"

ffint32 ffpriv_genitive_stem(ffword* word) {
  /*@@v GENb-03 **/

  ffint32 err;

  if(ffpriv_ie_genitive(word) > 0) {
    return 0; /*@@v GENb--01 **/
  }


  if(ffpriv_ss_genitive(word) > 0) {
    return 0; /*@@v GENb--02 **/
  }


  if (ffpriv_is_vowel( ffstring_last(&word->data))) {
    if (ffstring_last_equals_ci(&word->data,'e')) {
      /* TODO: *ope, ale */
      if (!ffstring_tail_equals_ci(&word->data, 2, "ee")
      &&  !ffstring_tail_equals_ci(&word->data, 3, "ope")
      &&  !ffstring_tail_equals_ci(&word->data, 5, "kolme") /* Numeral kolme */
      && (!ffstring_tail_equals_ci(&word->data, 3, "lle") || ffregex_match("([^nk]a|ii|[^p]e|uo)lle$", &word->data))) {

        if ((err = ffpriv_consonant_gradation(&word->data, 2, 1))) {
          return err;
        }

        word->metadata.relic = 1;
        return ffstring_append(&word->data,"e");
      }
    }

    if (word->metadata.cg) {
      if (ffstring_tail_equals_ci(&word->data, 3, "mpi")) {
        return ffstring_rfe(&word->data, 1, ffpriv_vowel_harmony(&word->data, "a", "ä")); /*@@v GENb--03 **/
      }
      return 0; /*@@v GENb--04 **/
    } else {
      if (!ffstring_compare_tail_ci(&word->data, 3, "mpi")) {
        return ffstring_rfe(&word->data, 2, ffpriv_vowel_harmony(&word->data, "ma", "mä")); /*@@v GENb--05 **/
      }
      return ffpriv_consonant_gradation(&word->data, 1, 1); /*@@v GENb--06 **/
    }
  }


  if (ffstring_last_equals_ci(&word->data,'s')) {
    if (ffstring_tail_equals_ci(&word->data, 3, "ias")) {
      return ffstring_rfe(&word->data, 1, "a"); /*@@v GENb--07 **/
    }

    if (ffstring_tail_equals_ci(&word->data, 3, "iäs")) {
      return ffstring_rfe(&word->data, 1, "ä"); /*@@v GENb--08 **/
    }

    if (ffstring_tail_equals_ci(&word->data, 3, "kas")) {
      return ffstring_rfe(&word->data, 2, "kaa"); /*@@v GENb--09 **/
    }

    if (ffstring_tail_equals_ci(&word->data, 3, "käs")) {
      return ffstring_rfe(&word->data, 2, "kää"); /*@@v GENb--10 **/
    }

    /* Try to catch adjectives */

    if (ffregex_match("^.*[aeiouyåäö][bcdfghjklmnpqrstvwxz][bcdfghjklmnpqrstvwxz]?[bcdfghjklmnpqrstvwxz]?[aeiouyåäöÅÄÖ][uy]s$", &word->data)
         && !ffstring_tail_equals_ci(&word->data, 3, "aus")  ) {
      return ffstring_rfe(&word->data, 1, "de"); /*@@v GENb--11 **/
    }

    return ffstring_rfe(&word->data, 1, "kse"); /*@@v GENb--12 **/ /* BUGFIX 2005-05-13: (2->1) */

  }


  if (ffstring_last_equals_ci(&word->data,'n')) {
    /* TODO: check_irregular('n'); */

    if (!ffstring_compare_ci(&word->data, "vasen")) {
      if (word->metadata.cg) {
        return ffstring_rfe(&word->data, 1, "mpa"); /*@@v GENb--14 **/
      } else {
        return ffstring_rfe(&word->data, 1, "mma"); /*@@v GENb--15 **/
      }
    }

    if (ffstring_tail_equals_ci(&word->data, 3, "nen")) {
      return ffstring_rfe(&word->data, 3, "se"); /*@@v GENb--16 **/
    }

    if (ffstring_tail_equals_ci(&word->data, 4, "ston")) {
      /* alaston */
      return ffstring_rfe(&word->data, 1, "ma"); /*@@v GENb--17 **/
    }
    if (ffstring_tail_equals_ci(&word->data, 3, "ton")) {
      return ffstring_rfe(&word->data, 2, "toma"); /*@@v GENb--18 **/
    }

    if (ffstring_tail_equals_ci(&word->data, 4, "stön")) {
      /* none, would be ylöstön */
      return ffstring_rfe(&word->data, 1, "mä"); /*@@v GENb--19 **/
    }
    if (ffstring_tail_equals_ci(&word->data, 3, "tön")) {
      return ffstring_rfe(&word->data, 2, "tömä"); /*@@v GENb--20 **/
    }

    /* -en */

    /* lämmin, kytkin, puhelin */
    if (ffstring_tail_equals_ci(&word->data, 2, "in")) {
      if (!ffregex_match("^.*(ä|ka|va|lj|t|is|nn)in$", &word->data)) {
        if (word->metadata.cg) {
          /* TODO: vokaalisointu */
          return ffstring_rfe(&word->data, 1, ffpriv_vowel_harmony(&word->data, "mpa", "mpä")); /*@@v GENb--21 **/
        } else {
          return ffstring_rfe(&word->data, 1, ffpriv_vowel_harmony(&word->data, "mma", "mmä")); /*@@v GENb--22 **/
        }
      }
    }

    /* TODO: astevaihtelu */
    return ffstring_rfe(&word->data, 1, "me"); /*@@v GENb--23 **/
  }


  if (ffstring_last_equals_ci(&word->data,'l') || ffstring_last_equals_ci(&word->data,'r')) {
    if ((err = ffpriv_consonant_gradation(&word->data, 2, 1))) {
      return err;
    }
    return ffstring_append(&word->data,"e"); /*@@v GENb--24 **/
  }


  if (ffstring_last_equals_ci(&word->data,'t')) {
    if (ffstring_tail_equals_ci(&word->data, 2, "ät")) {
      return ffstring_rfe(&word->data, 1, "ä"); /*@@v GENb--25 **/
    }

    /* TODO: numeraalit */

    /* NOTE 2005-05-17
     * This now handles correctly everything expect plural form words
     */
    if (ffstring_tail_equals_ci(&word->data, 2, "ut") || ffstring_tail_equals_ci(&word->data, 2, "yt")) {
      /* BUGFIX 2005-05-17
       * Fixed the funny regexp which was totally funnied up
       * Matched more than it should and not even all what of it should had matches
       */
      if (ffregex_match("^.*(((rr|ll|n)(u|y))|[^t]s(u|y))t$", &word->data)) {
        return ffstring_rfe(&word->data, 2, "ee"); /*@@v GENb--26 **/
      }

      /* BUGFIX 2005-05-17
       * Replace only one last letter instead of two
       * Broke: ehyt -> ehe -> eheen (all Ut which were not participles)
       */
      return ffstring_rfe(&word->data, 1, "e"); /*@@v GENb--27 **/
    }
  }

  /* FALL TROUGH */
  word->metadata.loan = 1;
  return ffstring_append(&word->data,"i"); /*@@v GENb--28 **/

}

---