ffpriv_interior_local_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_interior_local_cases.c Implements functions for inflecting
 * words in interior local cases. They are declared in ffpriv_interior_local_cases.h.
 */
 
#include "ffpriv_interior_local_cases.h"
#include "ffpriv_genitive_stem.h"
#include "ffutil.h"
#include "ffregex.h"
#include "ffpriv_plural_stem.h"
#include "ffpriv_essive_stem.h"

static ffint32 ffpriv_general_illative(ffword* word, ffbool plural) 
{
  ffword stem;
  ffchar end2[] = ".n";
  ffchar end3[] = "h.n";
  
  ffstring_copy(&word->data, &stem.data);
  stem.metadata = word->metadata;
  
  if ( plural ) {
    stem.metadata.cg = 1;
    ffpriv_plural_stem(&stem);
  } else {
    ffpriv_essive_stem(&stem);
  }
  
  if ( ffpriv_is_vowel(ffstring_last(&stem.data)) ) {
    /** TODO: Relic
     */

    if ( ffregex_match_ci("^.*((aa|ää|ee|ii|oo|öö|uu|yy)|[yöäuoae]i|äy|au|yö|öy|uo|ou|ie|eu|iu)$", &stem.data) ) {

      if ( plural ) {
        end3[1] = ffstring_last(&stem.data);
        ffstring_append(&stem.data, end3);
        ffstring_delete(&word->data);
        word->data = stem.data;
        return 0;

      } else {

        if ( stem.data.len < 4 ) {
          end3[1] = ffstring_last(&stem.data);
          ffstring_append(&stem.data, end3);
          ffstring_delete(&word->data);
          word->data = stem.data;
          return 0;
        } else {
          ffstring_append(&stem.data, "seen");
          ffstring_delete(&word->data);
          word->data = stem.data;
          return 0;
        }
      }
    }

    end2[0] = ffstring_last(&stem.data);
    ffstring_append(&stem.data, end2);
    ffstring_delete(&word->data);
    word->data = stem.data;
    return 0;

  } else {
    end2[0] = ffstring_last(&stem.data);
    ffstring_append(&stem.data, end2);
    ffstring_delete(&word->data);
    word->data = stem.data;
    return 0;
  }
}

ffint32 ffpriv_inessive_singular(ffword* word)
{
  ffint32 err;
  
  if ( (err = ffpriv_genitive_stem(word)) ) {
    return err;
  } else {
    return ffstring_append(&word->data, ffpriv_vowel_harmony(&word->data, "ssa", "ssä"));
  }
}

ffint32 ffpriv_inessive_plural(ffword* word)
{
  word->metadata.cg = 0;
  ffpriv_plural_stem(word);
  ffstring_append(&word->data, ffpriv_vowel_harmony(&word->data, "ssa", "ssä"));
  return 0;
}


ffint32 ffpriv_elative_singular(ffword* word)
{
  ffint32 err;
  
  if ( (err = ffpriv_genitive_stem(word)) ) {
    return err;
  } else {
    return ffstring_append(&word->data, ffpriv_vowel_harmony(&word->data, "sta", "stä"));
  }
}

ffint32 ffpriv_elative_plural(ffword* word)
{
  word->metadata.cg = 0;
  ffpriv_plural_stem(word);
  ffstring_append(&word->data, ffpriv_vowel_harmony(&word->data, "sta", "stä"));
  return 0;
}


ffint32 ffpriv_illative_singular(ffword* word)
{
  ffpriv_general_illative(word, 0);
  return 0;
}

ffint32 ffpriv_illative_plural(ffword* word)
{
  
  ffpriv_general_illative(word, 1);
  return 0;
}

---