ffpriv_plural_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_plural_stem.c Implements the plural stem function declared
 * in ffpriv_plural_stem.h.
 */

#include "ffpriv_plural_stem.h"
#include "ffpriv_genitive_stem.h"
#include "ffpriv_essive_stem.h"
#include "ffutil.h"
#include "ffstring.h"
#include "ffword.h"
#include "ffregex.h"
#include "ffpriv_ie_vowel_change.h"

ffint32 ffpriv_plural_stem(ffword* word) {
  /*@@v PLUb-03 **/
  ffword gen;
  ffint32 err;

  /**
   * @todo Relic consonant
   */
  if(!word->metadata.loan) {
    if (ffpriv_is_vowel(ffstring_last(&word->data))) {

      if ((err = ffword_copy(word, &gen))) {
        return err;
      }

      if ((err = ffpriv_genitive_stem(&gen))) {
        ffword_delete(&gen);
        return err;
      }

      /* Relic consonant */
      if (gen.metadata.relic) {
        ffword_swap_delete(&gen,word);
        return ffstring_rfe(&word->data, 1 , "i");
      }

      /* Numerals: (kolme) */
      if (ffstring_tail_equals_ci(&word->data, 5, "kolme")) {
          ffword_delete(&gen);
          return ffstring_rfe(&word->data, 1 , "i");
      }

      if (ffstring_last_equals_ci(&word->data, 'i')) {
        ffword ori;
        ffint32 result;

        if ((err = ffword_copy(word, &ori))) {
          ffword_delete(&gen);
          return err;
        }

        /* BUGFIX 2005-05-18
        * Added cg check
        */
        if (word->metadata.cg) {
          result = ffpriv_ie_partitive(word);
        } else {
          result = ffpriv_ie_genitive(word);
        }

        if (result > 0) {
          ffword_delete(&gen);

          if (ffstring_tail_equals_ci(&ori.data, 2, "si")) {
            ffword_swap_delete(&ori,word);
            return 0; /*@@v PLUb--01 **/
          }

          ffword_delete(&ori);
          if (ffstring_last(&word->data) == 'e') {
            return ffstring_rfe(&word->data, 1 , "i");
          } else {
            return ffstring_append(&word->data, "i");
          }
        }

        if (ffregex_match_ci("^.[aoeuyäö]i$", &word->data)) {
          return 0; /*@@v PLUb--03 **/
        }

        ffword_delete(&ori);
        ffword_swap_delete(&gen,word);
        return ffstring_rfe(&word->data, 1 , "ei"); /*@@v PLUb--04 **/
      }

      if (ffregex_match_ci("^.(ie|uo|yö)$", &word->data)) {
        ffword_delete(&gen);
        return -!ffregex_replace_ci("(.).(.)", "${1}${2}i", &word->data); /*@@v PLUb--05 **/
      }

      /* BUGFIX 2005-05-17
      * Allow more than three letters (yksi tavu)
      * Broke: Ehtoo
      */
      if (ffregex_match_ci("^.+(aa|ää|ee|ii|oo|öö|uu|yy)$", &word->data)) {
        ffword_swap_delete(&gen,word);
        return ffstring_rfe(&word->data, 1 , "i"); /*@@v PLUb--06 **/
      }

      if (ffstring_tail_equals_ci(&word->data, 3, "aja") || ffstring_tail_equals_ci(&word->data, 3, "äjä")) {
        ffword_swap_delete(&gen,word);
        return ffstring_rfe(&word->data, 1 , "i"); /*@@v PLUb--07 **/
      }

      /* BUGFIX 2005-05-18
      * Changed .V to K*?V+
      * Broke: siivilä, ähkinä, plörinä
      */
      if (ffstring_last_equals_ci(&word->data, 'ä')) {
        if (ffregex_match_ci("^[^aeiouyåäöÅÄÖ]*[aeiouyåäöÅÄÖ]+[^aeiouyåäöÅÄÖ]+[aeiouyåäöÅÄÖ]+[^aeiouyåäöÅÄÖ]ä$", &word->data)) {
          ffword_swap_delete(&gen,word);
          return ffstring_rfe(&word->data, 1 , "öi"); /*@@v PLUb--08 **/
        }

        ffword_swap_delete(&gen,word);
        return ffstring_rfe(&word->data, 1 , "i"); /*@@v PLUb--09 **/

      }

      if (ffstring_last_equals_ci(&word->data, 'a')) {
        if (ffstring_tail_equals_ci(&word->data, 2, "ea") || ffregex_match_ci("^[^aeiouyåäöÅÄÖ][ou][aeiouyåäöÅÄÖ]*[^aeiouyåäöÅÄÖ]+a$", &word->data)) {
          ffword_swap_delete(&gen,word);
          return ffstring_rfe(&word->data, 1 , "i"); /*@@v PLUb--10 **/
        }

        ffword_swap_delete(&gen,word);
        return ffstring_rfe(&word->data, 1 , "oi"); /*@@v PLUb--11 **/

      }

      ffword_swap_delete(&gen,word);
      return ffstring_append(&word->data, "i"); /*@@v PLUb--12 **/

    } else {
      /* Consonant */
      if (word->metadata.cg ) {
        ffword ess;
  
        if ((err = ffword_copy(word, &ess))) {
          return err;
        }
  
        if ((err = ffpriv_essive_stem(&ess))) {
          ffword_delete(&ess);
          return err;
        }
  
        if (ffstring_tail_equals(&ess.data, 3, "nte")) {
          ffword_swap_delete(&ess,word);
          return ffstring_rfe(&word->data, 2, "si"); /*@@v PLUb--13 **/
        }
  
        if (ffstring_tail_equals(&ess.data, 2, "te")) {
          ffword_swap_delete(&ess,word);
          return ffstring_rfe(&word->data, 2, "ksi"); /*@@v PLUb--14 **/
        }
  
        /* BUGFIX 2005-05-17
         * With other words the final letter should be replaced with i
         * Broke: oppinut -> oppinee -> oppineeita
         */
        /* BUGFIX 2005-05-22
         * Let fall down
         */
        ffword_delete(&ess);

      } else {

        if ((err = ffword_copy(word, &gen))) {
          return err;
        }

        if ((err = ffpriv_genitive_stem(&gen))) {
          ffword_delete(&gen);
          return err;
        }

        if (ffstring_tail_equals_ci(&gen.data, 2, "de")) {
          ffword_swap_delete(&gen,word);
          return ffstring_rfe(&word->data, 2, "ksi"); /*@@v PLUb--15 **/
        }

        if (ffstring_tail_equals_ci(&gen.data, 3, "nne")) {
          ffword_swap_delete(&gen,word);
          return ffstring_rfe(&word->data, 2, "si"); /*@@v PLUb--16 **/
        }
        /* BUGFIX 2005-05-22
         * Let fall down
         */
        ffword_delete(&gen);
      }
    }
  }

  if ((err = ffword_copy(word, &gen))) {
    return err;
  }

  if ((err = ffpriv_genitive_stem(&gen))) {
    ffword_delete(&gen);
    return err;
  }

  /* loan */
  ffword_swap_delete(&gen,word);
  if (ffstring_last_equals_ci(&word->data, 'i') && !ffstring_tail_equals_ci(&word->data, 2, "ii")) {
    word->metadata.loan = 1;
    return ffstring_rfe(&word->data, 1, "ei"); /*@@v PLUb--17 **/
  } else {
    return ffstring_rfe(&word->data, 1, "i"); /*@@v PLUb--18 **/
  }

}

---