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-01 **/

  /* Exceptions: ie, ss, TODO: n (below) */

  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 (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, 3, "ton") ) {
      return ffstring_rfe(&word->data, 2, "toma"); /*@@v GENb--17 **/
    }

    if ( ffstring_tail_equals_ci(&word->data, 3, "tön") ) {
      return ffstring_rfe(&word->data, 2, "tömä"); /*@@v GENb--18 **/
    }

    /* -en */

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

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


  if ( ffstring_last_equals_ci(&word->data,'l') || ffstring_last_equals_ci(&word->data,'r') ) {
    /* TODO: vahva astevaihtelu */
    return ffstring_append(&word->data,"e"); /*@@v GENb--22 **/
  }


  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--23 **/
    }

    /* TODO: numeraalit */

    if ( !ffregex_match("^.*(((rr|ll|n)(u|t)t)|[^t]s(u|y))t$", &word->data) ) {
      return ffstring_rfe(&word->data, 2, "ee"); /*@@v GENb--24 **/
    }

    if ( ffstring_tail_equals_ci(&word->data, 2, "ut") || ffstring_tail_equals_ci(&word->data, 2, "yt") ) {
      return ffstring_rfe(&word->data, 2, "e"); /*@@v GENb--25 **/
    }
  }

  /* FALL TROUGH */

  return ffstring_append(&word->data,"i"); /*@@v GENb--26 **/

}

---