ffpriv_essive_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_essive_stem.c Implements the essive stem function declared in
 * ffpriv_essive_stem.h.
 */

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

ffint32 ffpriv_essive_stem(ffword* word) {
  /*@@v ESSb-02 **/
  ffword copy;
  ffint32 err;

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

  if (ffpriv_is_vowel(ffstring_last(&word->data))) {

    if (ffstring_last_equals_ci(&word->data,'e')) {

      /* copy = genitive stem */
      if ((err = ffpriv_genitive_stem(&copy))) { return err; }

      if (copy.metadata.relic) {
        ffword_swap_delete(&copy, word);
        return /*@GENb*/ 0;
      } else {
        ffword_delete(&copy);
        return /*@NOMb*/ 0;
      }

    } else if (ffstring_last_equals_ci(&word->data,'i')) {

      if(ffpriv_ie_partitive(&copy) > 0) {

        if (ffpriv_is_consonant(ffstring_last(&copy.data))) {
          ffword_swap_delete(&copy, word);
          return ffstring_append(&word->data, "e"); /*@@v ESSb--01 **/
        } else {
          ffword_swap_delete(&copy, word); /*@@v ESSb--02 **/
          return 0;
        }

        /* TODO: -ksi */
        if (ffregex_match("^.*([aeiouyåäö]mi|(t|p)s)i$", &word->data)) {
          if ((err = ffpriv_genitive_stem(word))) {
            return err;
          }
          ffword_delete(&copy);
          return /*@GENb*/ 0; /*@@v ESSb--03 **/
        }

        ffword_delete(&copy);
        return /*@NOMb*/ 0; /*@@v ESSb--04 **/
      }
    }

    ffword_delete(&copy);
    return /*@NOMb*/ 0;

  } else {
    /*
     * Words not ending in a vowel
     */
    copy.metadata.cg = 0;

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

    if (ffstring_tail_equals_ci(&copy.data, 3, "mma")) {
      ffword_swap_delete(&copy, word);
      return /*@GENb*/ ffstring_rfe(&word->data, 2, "pa"); /*@@v ESSb--06 **/
    }

    if (ffstring_last_equals_ci(&word->data,'s') && ffstring_tail_equals_ci(&copy.data, 2, "de")) {
      ffword_delete(&copy);
      return /*@NOMb*/ ffstring_rfe(&word->data, 1, "te"); /*@@v ESSb--07 **/
    }

    if ((ffstring_last_equals_ci(&word->data,'s') || ffstring_last_equals_ci(&word->data,'t')) && ffstring_tail_equals_ci(&copy.data, 3, "nne")) {
      ffword_delete(&copy);
      return /*@NOMb*/ ffstring_rfe(&word->data, 1, "nte"); /*@@v ESSb--08 **/
    }

    ffword_swap_delete(&copy, word);
    return /*@GENb*/ 0; /*@@v ESSb--09 **/

  }
}

/*
 
        if { [isvokaali [last $word]] } {
        
# Vowel change
                set ie [vokaalinvaihtelu $word par]
                if { $ie != ""} {
                        regsub t?\[aä\]$ $ie "" ie
                        
                        if { [regexp ${v}mi$ $word] } {
                                return [general_genitive_stem $word 0 $ops]
}
                        
                        if { [last $word 3] == "ksi" } {
                                return [general_genitive_stem $word 1 $ops]
}
                        
                        if { [last $word 3] == "psi" || [last $word 3] == "tsi" } {
                                return [general_genitive_stem $word 0 $ops]
}
                        
                        if { [isvokaali [last $ie]] } {
                                return $ie
}
                        return ${ie}e
}
                
                if { ![is loan $ops] } {
# Relic consonant
                        set rel [relic_consonant $word gen]
                        if { $rel != "" } {
                                return $rel             
}}
                return $word
} else {
*/

---