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"
#include "ffcase.h"
#include "ffpriv_single_letter.h"

static ffint32 ffpriv_general_illative(ffword* word, ffbool plural) {
  ffint32 err;
  ffword stem;
  ffchar end2[] = ".n";
  ffchar end3[] = "h.n";

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

  if (plural ) {
    stem.metadata.cg = 1;
    if ((err = ffpriv_plural_stem(&stem))) {
      ffword_delete(&stem);
      return err;
    }
  } else {
    if ((err = ffpriv_essive_stem(&stem))) {
      ffword_delete(&stem);
      return err;
    }
  }

  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);
        ffword_swap_delete(&stem, word);
        return ffstring_append(&word->data, end3);

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

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

ffint32 ffpriv_inessive_singular(ffword* word) {
  ffint32 err;

  if (word->data.len < 2) {
    return ffpriv_single_letter(word, FFCASE_INESSIVE, FFCOUNT_SINGULAR);
  }

  if ((err = ffpriv_genitive_stem(word))) {
    return err;
  }

  return ffstring_append(&word->data, ffpriv_vowel_harmony(&word->data, "ssa", "ssä"));
}

ffint32 ffpriv_inessive_plural(ffword* word) {
  ffint32 err;

  if (word->data.len < 2) {
    return ffpriv_single_letter(word, FFCASE_INESSIVE, FFCOUNT_PLURAL);
  }

  word->metadata.cg = 0;

  if ((err = ffpriv_plural_stem(word))) {
    return err;
  }

  return ffstring_append(&word->data, ffpriv_vowel_harmony(&word->data, "ssa", "ssä"));
}


ffint32 ffpriv_elative_singular(ffword* word) {
  ffint32 err;

  if (word->data.len < 2) {
    return ffpriv_single_letter(word, FFCASE_ELATIVE, FFCOUNT_SINGULAR);
  }

  if ((err = ffpriv_genitive_stem(word))) {
    return err;
  }

  return ffstring_append(&word->data, ffpriv_vowel_harmony(&word->data, "sta", "stä"));
}

ffint32 ffpriv_elative_plural(ffword* word) {
  ffint32 err;

  if (word->data.len < 2) {
    return ffpriv_single_letter(word, FFCASE_ELATIVE, FFCOUNT_PLURAL);
  }

  word->metadata.cg = 0;
  if ((err = ffpriv_plural_stem(word))) {
    return err;
  }

  return ffstring_append(&word->data, ffpriv_vowel_harmony(&word->data, "sta", "stä"));
}


ffint32 ffpriv_illative_singular(ffword* word) {

  if (word->data.len < 2) {
    return ffpriv_single_letter(word, FFCASE_ILLATIVE, FFCOUNT_SINGULAR);
  }

  return ffpriv_general_illative(word, 0);
}

ffint32 ffpriv_illative_plural(ffword* word) {

  if (word->data.len < 2) {
    return ffpriv_single_letter(word, FFCASE_ILLATIVE, FFCOUNT_PLURAL);
  }

  return ffpriv_general_illative(word, 1);
}

---