ffpriv_partitive_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_partitive_stem.c Implements the partitive stem function
 * declared in ffpriv_partitive_stem.h.
 */

#include "ffpriv_partitive_stem.h"
#include "ffpriv_genitive_stem.h"
#include "ffutil.h"
#include "ffstring.h"
#include "ffregex.h"
#include "ffpriv_ie_vowel_change.h"
#include "ffconfig.h"

/**
 * Forms the partitive stem of the given word
 * @param word The word to inflect
 * @return 0 on success, negative on error
 */
ffint32 ffpriv_partitive_stem(ffword* word) {
  ffint32 err;
  ffword gen;

  /*
   * i-e exceptions
   */
  if((err = ffpriv_ie_partitive(word)) > 0) {
    return 0;
  } else if (err < 0) {
    return err;
  }

  /**
   * @todo relic consonant
   */

  /*
   * Non-loan words
   */
  if(!word->metadata.loan) {
    /*
     * INITIALIZATIONS
     */
    if((err = ffword_copy(word, &gen))) {
      return err;
    }

    /*
     * Should be zero.
     * Other functions might have changed the value.
     */
    gen.metadata.cg = 0;

    /*
     * Get the genitive stem for reference
     */
    if((err = ffpriv_genitive_stem(&gen))) {
      ffword_delete(&gen);
      return err;
    }

    /*
     * CODE BEGINS
     */
    /*
     * Words whose genitive stem ends in two vowels, kse or he
     */
    if(ffregex_match_ci("^.*([aeiouyåäöÅÄÖ][aeiouyåäöÅÄÖ]|kse|he)$", &gen.data)) {
      ffword_delete(&gen);
      return 0;
    }

    /*
     * Words whose genitive stem ends in de or nne
     */
    if(ffstring_tail_equals_ci(&gen.data, 2, "de") || ffstring_tail_equals_ci(&gen.data, 3, "nne")) {
      ffword_delete(&gen);
      return ffstring_rfe(&word->data, 1, "t"); /* BUGFIX 2005-05-13 */
    }

    /*
     * Words that end in nen
     */
    if(ffstring_tail_equals_ci(&word->data, 3, "nen")) {
      ffword_delete(&gen);
      return ffstring_rfe(&word->data, 3, "s");
    }

    /*
     * Words that end in n, [ae]l, [aä]r or [aäuy]t
     */
    if(ffregex_match_ci("^.*(n|[ae]l|[aäÄ]r|[aäÄuy]t)$", &word->data)) {
      ffword_delete(&gen);
      return 0;
    }

    if (ffpriv_is_vowel(ffstring_last(&word->data))) {
      ffword_delete(&gen);
      return 0;
    }

    /*
     * If word ends in consonant it's likely to be loan word
     */

  }

  /*
   * Fall trough
   */

  word->metadata.loan = 1;
  if(ffstring_last_equals(&word->data, 'i')) {
    return 0;
  } else {
    return ffstring_append(&word->data, "i");
  }
}

---