#include <stdint.h>
#include <stdlib.h>
#include "el_runtime.h"

el_val_t str_ends(el_val_t s, el_val_t suf);
el_val_t str_last_char(el_val_t s);
el_val_t str_last2(el_val_t s);
el_val_t str_last3(el_val_t s);
el_val_t str_drop_last(el_val_t s, el_val_t n);
el_val_t is_vowel(el_val_t c);
el_val_t morph_apply_suffix(el_val_t base, el_val_t suffix);
el_val_t en_irregular_plural(el_val_t word);
el_val_t en_irregular_singular(el_val_t word);
el_val_t en_irregular_verb(el_val_t base);
el_val_t en_verb_3sg(el_val_t base);
el_val_t en_should_double_final(el_val_t base);
el_val_t en_verb_past(el_val_t base);
el_val_t en_verb_gerund(el_val_t base);
el_val_t en_pluralize_regular(el_val_t singular);
el_val_t en_verb_form(el_val_t base, el_val_t tense, el_val_t person, el_val_t number);
el_val_t agree_determiner(el_val_t det, el_val_t noun);
el_val_t morph_pluralize(el_val_t noun, el_val_t profile);
el_val_t morph_map_canonical(el_val_t verb, el_val_t code);
el_val_t morph_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number, el_val_t profile);
el_val_t morph_inflect(el_val_t word, el_val_t features, el_val_t profile);
el_val_t pluralize(el_val_t singular);
el_val_t singularize(el_val_t plural);
el_val_t verb_form(el_val_t base, el_val_t tense, el_val_t person, el_val_t number);
el_val_t irregular_plural(el_val_t word);
el_val_t irregular_singular(el_val_t word);
el_val_t egy_str_ends(el_val_t s, el_val_t suf);
el_val_t egy_str_len(el_val_t s);
el_val_t egy_drop(el_val_t s, el_val_t n);
el_val_t egy_last_char(el_val_t s);
el_val_t egy_slot(el_val_t person, el_val_t number);
el_val_t egy_slot_with_gender(el_val_t person, el_val_t gender, el_val_t number);
el_val_t egy_conjugate_pronoun(el_val_t person, el_val_t number);
el_val_t egy_suffix_pronoun(el_val_t slot);
el_val_t egy_is_copula(el_val_t verb);
el_val_t egy_conjugate_copula(el_val_t tense, el_val_t slot);
el_val_t egy_rdi_present(el_val_t slot);
el_val_t egy_rdi_past(el_val_t slot);
el_val_t egy_rdi_future(el_val_t slot);
el_val_t egy_mAA_present(el_val_t slot);
el_val_t egy_mAA_past(el_val_t slot);
el_val_t egy_mAA_future(el_val_t slot);
el_val_t egy_Dd_present(el_val_t slot);
el_val_t egy_Dd_past(el_val_t slot);
el_val_t egy_Dd_future(el_val_t slot);
el_val_t egy_Sm_present(el_val_t slot);
el_val_t egy_Sm_past(el_val_t slot);
el_val_t egy_Sm_future(el_val_t slot);
el_val_t egy_iri_present(el_val_t slot);
el_val_t egy_iri_past(el_val_t slot);
el_val_t egy_iri_future(el_val_t slot);
el_val_t egy_sdm_present(el_val_t slot);
el_val_t egy_sdm_past(el_val_t slot);
el_val_t egy_sdm_future(el_val_t slot);
el_val_t egy_known_verb(el_val_t verb, el_val_t tense, el_val_t slot);
el_val_t egy_regular_present(el_val_t stem, el_val_t slot);
el_val_t egy_regular_past(el_val_t stem, el_val_t slot);
el_val_t egy_regular_future(el_val_t stem, el_val_t slot);
el_val_t egy_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number);
el_val_t egy_decline(el_val_t noun, el_val_t gram_case, el_val_t number);
el_val_t egy_fem(el_val_t noun);
el_val_t egy_noun_phrase(el_val_t noun, el_val_t gram_case, el_val_t number, el_val_t definite);
el_val_t egy_map_canonical(el_val_t verb);

el_val_t egy_str_ends(el_val_t s, el_val_t suf) {
  return str_ends_with(s, suf);
  return 0;
}

el_val_t egy_str_len(el_val_t s) {
  return str_len(s);
  return 0;
}

el_val_t egy_drop(el_val_t s, el_val_t n) {
  el_val_t len = str_len(s);
  if (n >= len) {
    return EL_STR("");
  }
  return str_slice(s, 0, (len - n));
  return 0;
}

el_val_t egy_last_char(el_val_t s) {
  el_val_t n = str_len(s);
  if (n == 0) {
    return EL_STR("");
  }
  return str_slice(s, (n - 1), n);
  return 0;
}

el_val_t egy_slot(el_val_t person, el_val_t number) {
  if (str_eq(number, EL_STR("dual"))) {
    return 8;
  }
  if (str_eq(person, EL_STR("first"))) {
    if (str_eq(number, EL_STR("plural"))) {
      return 5;
    }
    return 0;
  }
  if (str_eq(person, EL_STR("second"))) {
    if (str_eq(number, EL_STR("plural"))) {
      return 6;
    }
    return 1;
  }
  if (str_eq(number, EL_STR("plural"))) {
    return 7;
  }
  return 3;
  return 0;
}

el_val_t egy_slot_with_gender(el_val_t person, el_val_t gender, el_val_t number) {
  if (str_eq(number, EL_STR("dual"))) {
    return 8;
  }
  if (str_eq(person, EL_STR("first"))) {
    if (str_eq(number, EL_STR("plural"))) {
      return 5;
    }
    return 0;
  }
  if (str_eq(person, EL_STR("second"))) {
    if (str_eq(number, EL_STR("plural"))) {
      return 6;
    }
    if (str_eq(gender, EL_STR("f"))) {
      return 2;
    }
    return 1;
  }
  if (str_eq(number, EL_STR("plural"))) {
    return 7;
  }
  if (str_eq(gender, EL_STR("f"))) {
    return 4;
  }
  return 3;
  return 0;
}

el_val_t egy_conjugate_pronoun(el_val_t person, el_val_t number) {
  el_val_t slot = egy_slot(person, number);
  if (slot == 0) {
    return EL_STR("=i");
  }
  if (slot == 1) {
    return EL_STR("=k");
  }
  if (slot == 5) {
    return EL_STR("=n");
  }
  if (slot == 6) {
    return EL_STR("=Tn");
  }
  if (slot == 7) {
    return EL_STR("=sn");
  }
  if (slot == 8) {
    return EL_STR("=sny");
  }
  return EL_STR("=f");
  return 0;
}

el_val_t egy_suffix_pronoun(el_val_t slot) {
  if (slot == 0) {
    return EL_STR("=i");
  }
  if (slot == 1) {
    return EL_STR("=k");
  }
  if (slot == 2) {
    return EL_STR("=T");
  }
  if (slot == 3) {
    return EL_STR("=f");
  }
  if (slot == 4) {
    return EL_STR("=s");
  }
  if (slot == 5) {
    return EL_STR("=n");
  }
  if (slot == 6) {
    return EL_STR("=Tn");
  }
  if (slot == 7) {
    return EL_STR("=sn");
  }
  return EL_STR("=sny");
  return 0;
}

el_val_t egy_is_copula(el_val_t verb) {
  if (str_eq(verb, EL_STR("wnn"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("be"))) {
    return 1;
  }
  return 0;
  return 0;
}

el_val_t egy_conjugate_copula(el_val_t tense, el_val_t slot) {
  if (str_eq(tense, EL_STR("present"))) {
    return EL_STR("");
  }
  if (str_eq(tense, EL_STR("past"))) {
    return el_str_concat(EL_STR("wnn.n"), egy_suffix_pronoun(slot));
  }
  if (str_eq(tense, EL_STR("future"))) {
    return el_str_concat(EL_STR("wnn.xr"), egy_suffix_pronoun(slot));
  }
  if (str_eq(tense, EL_STR("infinitive"))) {
    return EL_STR("wnn");
  }
  return EL_STR("");
  return 0;
}

el_val_t egy_rdi_present(el_val_t slot) {
  return el_str_concat(EL_STR("di"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_rdi_past(el_val_t slot) {
  return el_str_concat(EL_STR("di.n"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_rdi_future(el_val_t slot) {
  return el_str_concat(EL_STR("di.xr"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_mAA_present(el_val_t slot) {
  return el_str_concat(EL_STR("mAA"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_mAA_past(el_val_t slot) {
  return el_str_concat(EL_STR("mAA.n"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_mAA_future(el_val_t slot) {
  return el_str_concat(EL_STR("mAA.xr"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_Dd_present(el_val_t slot) {
  return el_str_concat(EL_STR("Dd"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_Dd_past(el_val_t slot) {
  return el_str_concat(EL_STR("Dd.n"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_Dd_future(el_val_t slot) {
  return el_str_concat(EL_STR("Dd.xr"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_Sm_present(el_val_t slot) {
  return el_str_concat(EL_STR("Sm"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_Sm_past(el_val_t slot) {
  return el_str_concat(EL_STR("Sm.n"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_Sm_future(el_val_t slot) {
  return el_str_concat(EL_STR("Sm.xr"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_iri_present(el_val_t slot) {
  return el_str_concat(EL_STR("ir"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_iri_past(el_val_t slot) {
  return el_str_concat(EL_STR("ir.n"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_iri_future(el_val_t slot) {
  return el_str_concat(EL_STR("ir.xr"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_sdm_present(el_val_t slot) {
  return el_str_concat(EL_STR("sdm"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_sdm_past(el_val_t slot) {
  return el_str_concat(EL_STR("sdm.n"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_sdm_future(el_val_t slot) {
  return el_str_concat(EL_STR("sdm.xr"), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_known_verb(el_val_t verb, el_val_t tense, el_val_t slot) {
  if (str_eq(verb, EL_STR("rdi"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_rdi_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_rdi_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_rdi_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("rdi");
    }
    return egy_rdi_present(slot);
  }
  if (str_eq(verb, EL_STR("di"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_rdi_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_rdi_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_rdi_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("rdi");
    }
    return egy_rdi_present(slot);
  }
  if (str_eq(verb, EL_STR("give"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_rdi_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_rdi_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_rdi_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("rdi");
    }
    return egy_rdi_present(slot);
  }
  if (str_eq(verb, EL_STR("mAA"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_mAA_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_mAA_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_mAA_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("mAA");
    }
    return egy_mAA_present(slot);
  }
  if (str_eq(verb, EL_STR("see"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_mAA_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_mAA_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_mAA_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("mAA");
    }
    return egy_mAA_present(slot);
  }
  if (str_eq(verb, EL_STR("Dd"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_Dd_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_Dd_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_Dd_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("Dd");
    }
    return egy_Dd_present(slot);
  }
  if (str_eq(verb, EL_STR("say"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_Dd_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_Dd_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_Dd_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("Dd");
    }
    return egy_Dd_present(slot);
  }
  if (str_eq(verb, EL_STR("Sm"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_Sm_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_Sm_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_Sm_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("Sm");
    }
    return egy_Sm_present(slot);
  }
  if (str_eq(verb, EL_STR("go"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_Sm_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_Sm_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_Sm_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("Sm");
    }
    return egy_Sm_present(slot);
  }
  if (str_eq(verb, EL_STR("iri"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_iri_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_iri_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_iri_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("iri");
    }
    return egy_iri_present(slot);
  }
  if (str_eq(verb, EL_STR("do"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_iri_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_iri_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_iri_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("iri");
    }
    return egy_iri_present(slot);
  }
  if (str_eq(verb, EL_STR("make"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_iri_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_iri_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_iri_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("iri");
    }
    return egy_iri_present(slot);
  }
  if (str_eq(verb, EL_STR("sdm"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_sdm_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_sdm_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_sdm_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("sdm");
    }
    return egy_sdm_present(slot);
  }
  if (str_eq(verb, EL_STR("hear"))) {
    if (str_eq(tense, EL_STR("present"))) {
      return egy_sdm_present(slot);
    }
    if (str_eq(tense, EL_STR("past"))) {
      return egy_sdm_past(slot);
    }
    if (str_eq(tense, EL_STR("future"))) {
      return egy_sdm_future(slot);
    }
    if (str_eq(tense, EL_STR("infinitive"))) {
      return EL_STR("sdm");
    }
    return egy_sdm_present(slot);
  }
  return EL_STR("");
  return 0;
}

el_val_t egy_regular_present(el_val_t stem, el_val_t slot) {
  return el_str_concat(stem, egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_regular_past(el_val_t stem, el_val_t slot) {
  return el_str_concat(el_str_concat(stem, EL_STR(".n")), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_regular_future(el_val_t stem, el_val_t slot) {
  return el_str_concat(el_str_concat(stem, EL_STR(".xr")), egy_suffix_pronoun(slot));
  return 0;
}

el_val_t egy_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number) {
  el_val_t slot = egy_slot(person, number);
  if (egy_is_copula(verb)) {
    return egy_conjugate_copula(tense, slot);
  }
  el_val_t known = egy_known_verb(verb, tense, slot);
  if (!str_eq(known, EL_STR(""))) {
    return known;
  }
  if (str_eq(tense, EL_STR("infinitive"))) {
    return verb;
  }
  if (str_eq(tense, EL_STR("present"))) {
    return egy_regular_present(verb, slot);
  }
  if (str_eq(tense, EL_STR("past"))) {
    return egy_regular_past(verb, slot);
  }
  if (str_eq(tense, EL_STR("future"))) {
    return egy_regular_future(verb, slot);
  }
  return verb;
  return 0;
}

el_val_t egy_decline(el_val_t noun, el_val_t gram_case, el_val_t number) {
  if (str_eq(number, EL_STR("singular"))) {
    return noun;
  }
  if (str_eq(number, EL_STR("dual"))) {
    if (egy_str_ends(noun, EL_STR("t"))) {
      el_val_t stem = egy_drop(noun, 1);
      return el_str_concat(stem, EL_STR("ty"));
    }
    return el_str_concat(noun, EL_STR("wy"));
  }
  if (egy_str_ends(noun, EL_STR("t"))) {
    return el_str_concat(noun, EL_STR("wt"));
  }
  return el_str_concat(noun, EL_STR("w"));
  return 0;
}

el_val_t egy_fem(el_val_t noun) {
  if (egy_str_ends(noun, EL_STR("t"))) {
    return noun;
  }
  return el_str_concat(noun, EL_STR("t"));
  return 0;
}

el_val_t egy_noun_phrase(el_val_t noun, el_val_t gram_case, el_val_t number, el_val_t definite) {
  return egy_decline(noun, gram_case, number);
  return 0;
}

el_val_t egy_map_canonical(el_val_t verb) {
  if (str_eq(verb, EL_STR("be"))) {
    return EL_STR("wnn");
  }
  if (str_eq(verb, EL_STR("give"))) {
    return EL_STR("rdi");
  }
  if (str_eq(verb, EL_STR("see"))) {
    return EL_STR("mAA");
  }
  if (str_eq(verb, EL_STR("say"))) {
    return EL_STR("Dd");
  }
  if (str_eq(verb, EL_STR("go"))) {
    return EL_STR("Sm");
  }
  if (str_eq(verb, EL_STR("do"))) {
    return EL_STR("iri");
  }
  if (str_eq(verb, EL_STR("make"))) {
    return EL_STR("iri");
  }
  if (str_eq(verb, EL_STR("hear"))) {
    return EL_STR("sdm");
  }
  return verb;
  return 0;
}

