ffpriv_basic_cases.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_basic_cases.c Implements the basic case inflection functions
 * defined in ffpriv_basic_cases.h.
 */

#include "ffpriv_basic_cases.h"
#include "ffpriv_genitive_stem.h"
#include "ffpriv_partitive_stem.h"
#include "ffpriv_plural_stem.h"
#include "ffpriv_ie_vowel_change.h"
#include "ffutil.h"
#include "ffregex.h"
#include "ffcase.h"
#include "ffpriv_single_letter.h"

ffint32 ffpriv_nominative_singular(ffword* word) {
  return 0;
}

ffint32 ffpriv_nominative_plural(ffword* word) {
  ffint32 err;

  if (word->data.len < 2) {
    return ffpriv_single_letter(word, FFCASE_NOMINATIVE, FFCOUNT_PLURAL);
  }

  if ((err = ffpriv_genitive_stem(word))) {
    return err;
  }

  return ffstring_append(&word->data,"t");
}

ffint32 ffpriv_genitive_singular(ffword* word) {
  ffint32 err;

  if (word->data.len < 2) {
    return ffpriv_single_letter(word, FFCASE_GENITIVE, FFCOUNT_SINGULAR);
  }

  if ((err = ffpriv_genitive_stem(word))) {
    return err;
  }

  return ffstring_append(&word->data,"n");
}

ffint32 ffpriv_genitive_plural(ffword* word) {
  ffint32 err;

  if (word->data.len < 2) {
    return ffpriv_single_letter(word, FFCASE_GENITIVE, FFCOUNT_PLURAL);
  }

  /* BUGFIX 2005-05-18
   * Forgot to set the word to use strong grade
   * Broke: hätä -> hädien
   */
  /* Strong grade */
  word->metadata.cg = 1;

  if(!word->metadata.loan) {
    /*
     * Non-loan words
     */

    ffword orig;

    /*
     * We will be operating on the parameter string, but need also the
     * original string - so copy it
     */
    if((err = ffword_copy(word, &orig))) {
      return err;
    }

    /*
     * Most genitive plurals are formed from the general plural stem
     */
    if((err = ffpriv_plural_stem(word))) {
      ffword_delete(&orig);
      return 0;
    }

    /*
     * If set in plural_stem function
     */
    if(word->metadata.loan) {
      ffword_delete(&orig);
      return ffstring_rfe(&word->data, 2, "ien");
    }

    /*
     * Words that end in a vowel:
     */
    if (ffpriv_is_vowel( ffstring_last(&orig.data))) {
      /**
       * @todo RELIC consonant
       */
      /*
      * Words that end in two vowels
      */
      if(ffregex_match("^.*[bcdfghjklmnpqrstvwxz][aeiouyåäö]{2}$", &orig.data)) {
        ffword_delete(&orig);
        return ffstring_append(&word->data, "den");
      }
  
      /**
      * @todo Check this regex
      */
      /*
      * Three or more syllable words ending in [vm][aä]
      */
      if(ffregex_match("^.*[aeiouyåäö][bcdfghjklmnpqrstvwxz]{1,2}[aeiouyåäö]{1,2}[vm][aä]$", &orig.data)) {
        ffword_delete(&orig);
        return ffstring_rfe(&word->data, 1, "ien");
      }
  
      /*
      * Three or more syllable words ending in [aä]
      */
      /* BUGFIX 2005-05-18
      * Fixed the ji-clause
      * Broke: ??
      */
      if(ffregex_match("^.*[aeiouyåäö][bcdfghjklmnpqrstvwxz]{1,3}[aeiouyåäö][bcdfghjklmnpqrstvwxz]{1,2}[aä]$", &orig.data)
          && (!ffstring_tail_equals(&word->data, 2, "ji"))) {
        ffword_delete(&orig);
        return ffstring_append(&word->data, "den");
      }
  
      /**
      * @todo Consider writing ffstring_tail_equals_many
      */
      /*
      * Words ending in [aeouyäö]
      */
      if(ffregex_match("^.*[aeouyäö]$", &orig.data)) {
        ffword_delete(&orig);
  
        if(ffpriv_is_vowel(word->data.str[word->data.len - 2])) {
          /* BUGFIX 2005-05-18
          * Removed else
          * Broke: siivilä -> siivilöi -> siivilö
          */
          return ffstring_rfe(&word->data, 1, "jen");
        }
  
        return ffstring_append(&word->data, "en");
      }
  
      /*
      * Words ending in i
      */
  
      if(ffstring_tail_equals(&word->data, 2, "ei")) {
        ffword_delete(&orig);
        return ffstring_rfe(&word->data, 2, "ien");
      }
    }

    /* BUGFIX 2005-05-17
     * Use orig instead of word.
     */
    if(ffstring_last_equals(&orig.data, 'i')) {
      ffword_delete(&orig);
      return ffstring_append(&word->data, "en");
    }

    /*
     * Words ending in [lnr]
     */
    if(ffregex_match("^.*[lnr]$", &orig.data)) {
      ffword_delete(&orig);
      return ffstring_append(&word->data, "en");
    }

    /*
     * Words ending in a consonant:
     */

    /*
     * Words ending in s
     */

    if(ffstring_last_equals(&orig.data, 's')) {
      /* orig is now partitive_stem! */
      if((err = ffpriv_partitive_stem(&orig))) {
        ffword_delete(&orig);
        return err;
      }

      if(ffstring_last_equals(&orig.data, 's')) {
        ffword_delete(&orig);

        if(ffregex_match("^.*[bcdfghjklmnpqrstvwxz][aeiouyåäö]$", &word->data)) {
          return ffstring_append(&word->data, "en");
        } else if(ffregex_match("^.*[aeiouyåäö]{2}$", &word->data)) {
          return ffstring_append(&word->data, "den");
        }
      }

      ffword_delete(&orig);
      return ffstring_append(&word->data, "en");
    }

    /*
     * Words ending in t
     */
    if(ffstring_last_equals(&orig.data, 't')) {
      ffword_delete(&orig);

      if(ffregex_match("^.*(yi|öi|äi|ui|oi|ai|äy|au|yö|uo|ou|ie|ei|eu|iu|aa|ää|oo|öö|uu|yy|ee|ii)$", &word->data)) {
        return ffstring_append(&word->data, "den");
      } else {
        return ffstring_append(&word->data, "en");
      }
    }

    ffword_delete(&orig);
  }
  

  /*
   * Loan words and words not processed by above rules
   */
  if((err = ffpriv_partitive_stem(word))) {
    return err;
  } else {
    return ffstring_append(&word->data, "en");
  }

}

---