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) {
/*  ffint32 err; // UNUSED */
  ffword gen;
  ffword ess;
  ffstring ori;

  ffstring_copy(&word->data, &gen.data);
  
  
  gen.metadata = word->metadata;
  
  ffpriv_genitive_stem(&gen);
        
  /**
   * @todo Relic consonant
   */
  
  if ( ffpriv_is_vowel(ffstring_last(&word->data)) ) {
    if ( ffstring_last_equals_ci(&word->data, 'i') ) {
      ffstring_copy(&word->data, &ori);
      if (ffpriv_ie_genitive(word) > 0) {
        if ( ffstring_tail_equals_ci(&ori, 2, "si") ) {
          ffstring_delete(&gen.data);
          ffstring_delete(&word->data);
          word->data = ori;
          return 0;
        }
        
        ffstring_delete(&gen.data);
        ffstring_delete(&ori);
        ffstring_rfe(&word->data, 1 , "i");
        return 0;
        
        
      }
      /**
       * @todo täi, hai?
       */
      
    
      ffstring_delete(&ori);
      ffstring_delete(&word->data);
      ffstring_rfe(&gen.data, 1 , "ei");
      word->data = gen.data;
      
      return 0;
      
    }
    
    if ( ffregex_match_ci("^.(ie|uo|yö)$", &word->data) ) {
      ffregex_replace_ci("(.).(.)", "${1}${2}i", &word->data);
      ffstring_delete(&gen.data);
      return 0;
    }
    
    if ( ffregex_match_ci("^.(aa|ää|ee|ii|oo|öö|uu|yy)$", &word->data) ) {
      ffstring_delete(&word->data);
      ffstring_rfe(&gen.data, 1 , "i");
      word->data = gen.data;
      return 0;
    }
    
    if ( ffregex_match_ci("^.[aoeuyäö]i$", &word->data) ) {
      ffstring_delete(&gen.data);
      return 0;
    }
    
    if ( ffstring_tail_equals_ci(&word->data, 2, "aja") || ffstring_tail_equals_ci(&word->data, 2, "äjä") ) {
      ffstring_delete(&word->data);
      ffstring_rfe(&gen.data, 1 , "i");
      word->data = gen.data;
      return 0;
    }
    
  
  
    if ( ffstring_last_equals_ci(&word->data, 'ä') ) {
      if ( ffregex_match_ci("^.[aeiouyåäöÅÄÖ][^aeiouyåäöÅÄÖ]+[aeiouyåäöÅÄÖ]+[^aeiouyåäöÅÄÖ]ä$", &word->data) ) {
        ffstring_delete(&word->data);
        ffstring_rfe(&gen.data, 1 , "öi");
        word->data = gen.data;
        return 0;
      }
      
      ffstring_delete(&word->data);
      ffstring_rfe(&gen.data, 1 , "i");
      word->data = gen.data;
      return 0;
      
    }
    
    if ( ffstring_last_equals_ci(&word->data, 'a') ) {
      if ( ffregex_match_ci("^[^aeiouyåäöÅÄÖ][ou][aeiouyåäöÅÄÖ]*[^aeiouyåäöÅÄÖ]+a$", &word->data) ) {
        ffstring_delete(&word->data);
        ffstring_rfe(&gen.data, 1 , "i");
        word->data = gen.data;
        return 0;
      }
      
      ffstring_delete(&word->data);
      ffstring_rfe(&gen.data, 1 , "oi");
      word->data = gen.data;
      return 0;
      
      
    }
    
    ffstring_delete(&word->data);
    ffstring_append(&gen.data, "i");
    word->data = gen.data;
    return 0;
    
  } else {
    /* Consonant */
    if ( word->metadata.cg ) {
      
      ffstring_copy(&word->data, &ess.data);
      ess.metadata = word->metadata;
      ffpriv_essive_stem(&ess);
      
      if ( ffstring_tail_equals(&ess.data, 3, "nte") ) {
        ffstring_delete(&gen.data);
        ffstring_delete(&word->data);
        ffstring_rfe(&ess.data, 2, "si");
        word->data = ess.data;
        return 0;
      }
      
      if ( ffstring_tail_equals(&ess.data, 2, "te") ) {
        ffstring_delete(&gen.data);
        ffstring_delete(&word->data);
        ffstring_rfe(&ess.data, 2, "ksi");
        word->data = ess.data;
        return 0;
      }
      
      ffstring_delete(&ess.data);
      
    } else {
      
      if ( ffstring_tail_equals(&gen.data, 2, "de") ) {
        ffstring_delete(&word->data);
        ffstring_rfe(&gen.data, 2, "ksi");
        word->data = gen.data;
        return 0;
      }
      
      if ( ffstring_tail_equals(&gen.data, 3, "nne") ) {
        ffstring_delete(&word->data);
        ffstring_rfe(&gen.data, 2, "si");
        word->data = gen.data;
        return 0;
      }
    
      ffstring_delete(&word->data);
      ffstring_rfe(&gen.data, 1, "i");
      word->data = gen.data;
      return 0;
    }
    
  }
  
  /* loan */
  ffstring_rfe(&gen.data, 1, "ei");
  return ffword_swap_delete(&gen,word);

}

---