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"

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

ffint32 ffpriv_nominative_plural(ffword* word)
{
  ffint32 err;
  if ( (err = ffpriv_genitive_stem(word)) )
  {
    return err;
  }
  else
  {
    return ffstring_append(&word->data,"t");
  }
}

ffint32 ffpriv_genitive_singular(ffword* word)
{
  ffint32 err;

  if ( (err = ffpriv_genitive_stem(word)) )
  {
    return err;
  }
  else
  {
    return ffstring_append(&word->data,"n");
  }
}

ffint32 ffpriv_genitive_plural(ffword* word)
{
  ffint32 err;

  /*
   * Non-loan words
   */
  if(!word->metadata.loan) {
    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
     */    
    else if((err = ffpriv_plural_stem(word))) {
      ffword_delete(&orig);
      return err;
    }

    /*
     * Words that end in a vowel:
     */

    /**
     * @todo
     *  set rel [relic_consonant $word gen]
     *  if { $rel != "" } {
     *          return ${case}den
     *  }
     */ 
    /*
     * Words that end in two vowels
     */
    else if(ffregex_match("^.*[bcdfghjklmnpqrstvwxz][aeiouyåäö]{2}$", &orig.data)) {
      if((err = ffword_delete(&orig)))
        return err;
      else
        return ffstring_append(&word->data, "den");
    }
    
    /**
     * @todo Check this regex
     */
    /*
     * Three or more syllable words ending in [vm][aä]
     */
    else if(ffregex_match("^.*[aeiouyåäö][bcdfghjklmnpqrstvwxz]{1,2}[aeiouyåäö]{1,2}[vm][aä]$", &orig.data)) {
      if((err = ffword_delete(&orig)))
        return err;
      else if((err = ffstring_dfe(&word->data, 1)))
        return err;
      else
        return ffstring_append(&word->data, "ien");
    }
    
    /*
     * Three or more syllable words ending in [aä]
     */
    else if(ffregex_match("^.*[aeiouyåäö][bcdfghjklmnpqrstvwxz]{1,3}[aeiouyåäö][bcdfghjklmnpqrstvwxz]{1,2}[aä]$", &orig.data)
       && (!ffstring_compare_tail(&word->data, 2, "ji"))) {
      ffword_delete(&orig);
      return ffstring_append(&word->data, "den");
    }
    
    /**
     * @todo Consider writing ffstring_tail_equals_many
     */
    /*
     * Words ending in [aeouyäö]
     */
    else if(ffregex_match("^.*[aeouyäö]$", &orig.data)) {
      if((err = ffword_delete(&orig)))
        return err;
      
      else if(ffpriv_is_vowel(word->data.str[word->data.len - 2])) {
        if((err = ffstring_dfe(&word->data, 1)))
          return err;
        else
          return ffstring_append(&word->data, "jen");
      }
      
      else
        return ffstring_append(&word->data, "en");
    }
    
    /*
     * Words ending in i
     */
    else if(ffstring_last_equals(&word->data, 'i')) {
      if((err = ffword_delete(&orig)))
        return err;
      else
        return ffstring_append(&word->data, "en");
    }
    
    /*
     * Words ending in [lnr]
     */
    else if(ffregex_match("^.*[lnr]$", &orig.data)) {
      if((err = ffword_delete(&orig)))
        return err;
      else
        return ffstring_append(&word->data, "en");
    }
    
    /*
     * Words ending in a consonant:
     */    
    
    /*
     * Words ending in s
     */
    else if(ffstring_last_equals(&orig.data, 's')) {
      /*
       * Note that we're operating on orig here - it's no longer the original word,
       * rather its partitive stem. I'm just too lazy to create a new variable for
       * it... :D
       */
      if((err = ffpriv_partitive_stem(&orig))) {
        ffword_delete(&orig);
        return err;
      }
      
      else if(ffstring_last_equals(&orig.data, 's')) {
        if(ffregex_match("^.*[bcdfghjklmnpqrstvwxz][aeiouyåäö]$", &word->data)) {
          if((err = ffword_delete(&orig)))
            return err;
          else
            return ffstring_append(&word->data, "en");
        }
        else if(ffregex_match("^.*[aeiouyåäö]{2}$", &word->data)) {
          if((err = ffword_delete(&orig)))
            return err;
          else
            return ffstring_append(&word->data, "den");
        }
      }

      if((err = ffword_delete(&orig)))
        return err;
      else
        return ffstring_append(&word->data, "en");
    }
    
    /*
     * Words ending in t
     */
    else if(ffstring_last_equals(&orig.data, 't')) {
      if((err = ffword_delete(&orig)))
        return err;
      else 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");
    }
    
    /**
     * @todo Add "n" or "en" if nothing else fits?
     */
    /*
     * No rule found - fallback?
     */
    else {
      ffword_delete(&orig);
      return -3;
    }      
  }
  
  /*
   * Loan words
   */
  else {
    if((err = ffpriv_partitive_stem(word)))
      return err;
    else
      return ffstring_append(&word->data, "en");
  }
}

---