#include #include #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 hi_str_ends(el_val_t s, el_val_t suf); el_val_t hi_str_drop_last(el_val_t s, el_val_t n); el_val_t hi_str_last_char(el_val_t s); el_val_t hi_gender(el_val_t noun); el_val_t hi_masc_aa_stem(el_val_t noun); el_val_t hi_noun_direct_m(el_val_t noun, el_val_t number); el_val_t hi_noun_oblique_m(el_val_t noun, el_val_t number); el_val_t hi_noun_direct_f(el_val_t noun, el_val_t number); el_val_t hi_noun_oblique_f(el_val_t noun, el_val_t number); el_val_t hi_noun_direct(el_val_t noun, el_val_t gender, el_val_t number); el_val_t hi_noun_oblique(el_val_t noun, el_val_t gender, el_val_t number); el_val_t hi_postposition(el_val_t gram_case); el_val_t hi_agree_genitive(el_val_t possessed_gender, el_val_t possessed_number); el_val_t hi_verb_stem(el_val_t infinitive); el_val_t hi_verb_stem_clean(el_val_t infinitive); el_val_t hi_present_aspect(el_val_t gender, el_val_t number); el_val_t hi_aux_present(el_val_t person, el_val_t number); el_val_t hi_past_suffix(el_val_t gender, el_val_t number); el_val_t hi_past_irregular(el_val_t stem, el_val_t gender, el_val_t number); el_val_t hi_future_suffix(el_val_t person, el_val_t number, el_val_t gender); el_val_t hi_tense_suffix(el_val_t tense, el_val_t gender, el_val_t number); el_val_t hi_hona_present(el_val_t person, el_val_t number); el_val_t hi_hona_past(el_val_t gender, el_val_t number); el_val_t hi_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t gender, el_val_t number); el_val_t hi_noun_with_post(el_val_t noun, el_val_t gender, el_val_t number, el_val_t gram_case); el_val_t hi_genitive_phrase(el_val_t possessor, el_val_t possessor_gender, el_val_t possessor_number, el_val_t possessed, el_val_t possessed_gender, el_val_t possessed_number); el_val_t hi_str_ends(el_val_t s, el_val_t suf) { return str_ends_with(s, suf); return 0; } el_val_t hi_str_drop_last(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 hi_str_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 hi_gender(el_val_t noun) { if (hi_str_ends(noun, EL_STR("\xe0\xa5\x80"))) { return EL_STR("f"); } if (hi_str_ends(noun, EL_STR("\xe0\xa4\xbe"))) { return EL_STR("m"); } if (hi_str_ends(noun, EL_STR("\xe0\xa4\xa8"))) { return EL_STR("f"); } if (hi_str_ends(noun, EL_STR("\xe0\xa4\xa4"))) { return EL_STR("f"); } if (hi_str_ends(noun, EL_STR("\xe0\xa4\x9f"))) { return EL_STR("f"); } if (hi_str_ends(noun, EL_STR("\xe0\xa4\xb6"))) { return EL_STR("m"); } if (str_eq(noun, EL_STR("\xe0\xa4\xb2\xe0\xa4\xa1\xe0\xa4\xbc\xe0\xa4\x95\xe0\xa4\xbe"))) { return EL_STR("m"); } if (str_eq(noun, EL_STR("\xe0\xa4\xb2\xe0\xa4\xa1\xe0\xa4\xbc\xe0\xa4\x95\xe0\xa5\x80"))) { return EL_STR("f"); } if (str_eq(noun, EL_STR("\xe0\xa4\x86\xe0\xa4\xa6\xe0\xa4\xae\xe0\xa5\x80"))) { return EL_STR("m"); } if (str_eq(noun, EL_STR("\xe0\xa4\x94\xe0\xa4\xb0\xe0\xa4\xa4"))) { return EL_STR("f"); } if (str_eq(noun, EL_STR("\xe0\xa4\x98\xe0\xa4\xb0"))) { return EL_STR("m"); } if (str_eq(noun, EL_STR("\xe0\xa4\xae\xe0\xa5\x87\xe0\xa4\x9c\xe0\xa4\xbc"))) { return EL_STR("f"); } if (str_eq(noun, EL_STR("\xe0\xa4\x95\xe0\xa4\xbf\xe0\xa4\xa4\xe0\xa4\xbe\xe0\xa4\xac"))) { return EL_STR("f"); } if (str_eq(noun, EL_STR("\xe0\xa4\xaa\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa5\x80"))) { return EL_STR("m"); } if (str_eq(noun, EL_STR("\xe0\xa4\xa6\xe0\xa5\x82\xe0\xa4\xa7"))) { return EL_STR("m"); } if (str_eq(noun, EL_STR("\xe0\xa4\xb9\xe0\xa4\xbe\xe0\xa4\xa5"))) { return EL_STR("m"); } if (str_eq(noun, EL_STR("\xe0\xa4\x86\xe0\xa4\x81\xe0\xa4\x96"))) { return EL_STR("f"); } if (str_eq(noun, EL_STR("\xe0\xa4\xac\xe0\xa4\x9a\xe0\xa5\x8d\xe0\xa4\x9a\xe0\xa4\xbe"))) { return EL_STR("m"); } if (str_eq(noun, EL_STR("\xe0\xa4\xac\xe0\xa4\x9a\xe0\xa5\x8d\xe0\xa4\x9a\xe0\xa5\x80"))) { return EL_STR("f"); } if (str_eq(noun, EL_STR("\xe0\xa4\x95\xe0\xa4\xbe\xe0\xa4\xae"))) { return EL_STR("m"); } if (str_eq(noun, EL_STR("\xe0\xa4\xac\xe0\xa4\xbe\xe0\xa4\xa4"))) { return EL_STR("f"); } if (str_eq(noun, EL_STR("\xe0\xa4\xa6\xe0\xa4\xbf\xe0\xa4\xa8"))) { return EL_STR("m"); } if (str_eq(noun, EL_STR("\xe0\xa4\xb0\xe0\xa4\xbe\xe0\xa4\xa4"))) { return EL_STR("f"); } if (str_eq(noun, EL_STR("\xe0\xa4\xa6\xe0\xa5\x87\xe0\xa4\xb6"))) { return EL_STR("m"); } if (str_eq(noun, EL_STR("\xe0\xa4\xad\xe0\xa4\xbe\xe0\xa4\xb7\xe0\xa4\xbe"))) { return EL_STR("f"); } if (str_eq(noun, EL_STR("\xe0\xa4\x9c\xe0\xa4\x97\xe0\xa4\xb9"))) { return EL_STR("f"); } if (str_eq(noun, EL_STR("\xe0\xa4\xb8\xe0\xa4\xae\xe0\xa4\xaf"))) { return EL_STR("m"); } if (str_eq(noun, EL_STR("\xe0\xa4\xb8\xe0\xa4\xbe\xe0\xa4\xb2"))) { return EL_STR("m"); } return EL_STR("m"); return 0; } el_val_t hi_masc_aa_stem(el_val_t noun) { return hi_str_drop_last(noun, 1); return 0; } el_val_t hi_noun_direct_m(el_val_t noun, el_val_t number) { if (hi_str_ends(noun, EL_STR("\xe0\xa4\xbe"))) { if (str_eq(number, EL_STR("sg"))) { return noun; } return el_str_concat(hi_masc_aa_stem(noun), EL_STR("\xe0\xa5\x87")); } return noun; return 0; } el_val_t hi_noun_oblique_m(el_val_t noun, el_val_t number) { if (hi_str_ends(noun, EL_STR("\xe0\xa4\xbe"))) { el_val_t stem = hi_masc_aa_stem(noun); if (str_eq(number, EL_STR("sg"))) { return el_str_concat(stem, EL_STR("\xe0\xa5\x87")); } return el_str_concat(stem, EL_STR("\xe0\xa5\x8b\xe0\xa4\x82")); } if (hi_str_ends(noun, EL_STR("\xe0\xa5\x80"))) { if (str_eq(number, EL_STR("sg"))) { return noun; } el_val_t stem = hi_str_drop_last(noun, 1); return el_str_concat(stem, EL_STR("\xe0\xa4\xbf\xe0\xa4\xaf\xe0\xa5\x8b\xe0\xa4\x82")); } if (str_eq(number, EL_STR("sg"))) { return noun; } return el_str_concat(noun, EL_STR("\xe0\xa5\x8b\xe0\xa4\x82")); return 0; } el_val_t hi_noun_direct_f(el_val_t noun, el_val_t number) { if (hi_str_ends(noun, EL_STR("\xe0\xa5\x80"))) { if (str_eq(number, EL_STR("sg"))) { return noun; } el_val_t stem = hi_str_drop_last(noun, 1); return el_str_concat(stem, EL_STR("\xe0\xa4\xbf\xe0\xa4\xaf\xe0\xa4\xbe\xe0\xa4\x81")); } if (str_eq(number, EL_STR("sg"))) { return noun; } return el_str_concat(noun, EL_STR("\xe0\xa5\x87\xe0\xa4\x82")); return 0; } el_val_t hi_noun_oblique_f(el_val_t noun, el_val_t number) { if (hi_str_ends(noun, EL_STR("\xe0\xa5\x80"))) { if (str_eq(number, EL_STR("sg"))) { return noun; } el_val_t stem = hi_str_drop_last(noun, 1); return el_str_concat(stem, EL_STR("\xe0\xa4\xbf\xe0\xa4\xaf\xe0\xa5\x8b\xe0\xa4\x82")); } if (str_eq(number, EL_STR("sg"))) { return noun; } return el_str_concat(noun, EL_STR("\xe0\xa5\x8b\xe0\xa4\x82")); return 0; } el_val_t hi_noun_direct(el_val_t noun, el_val_t gender, el_val_t number) { if (str_eq(gender, EL_STR("m"))) { return hi_noun_direct_m(noun, number); } if (str_eq(gender, EL_STR("f"))) { return hi_noun_direct_f(noun, number); } return noun; return 0; } el_val_t hi_noun_oblique(el_val_t noun, el_val_t gender, el_val_t number) { if (str_eq(gender, EL_STR("m"))) { return hi_noun_oblique_m(noun, number); } if (str_eq(gender, EL_STR("f"))) { return hi_noun_oblique_f(noun, number); } return noun; return 0; } el_val_t hi_postposition(el_val_t gram_case) { if (str_eq(gram_case, EL_STR("nominative"))) { return EL_STR(""); } if (str_eq(gram_case, EL_STR("accusative_animate"))) { return EL_STR("\xe0\xa4\x95\xe0\xa5\x8b"); } if (str_eq(gram_case, EL_STR("dative"))) { return EL_STR("\xe0\xa4\x95\xe0\xa5\x8b"); } if (str_eq(gram_case, EL_STR("genitive"))) { return EL_STR("\xe0\xa4\x95\xe0\xa4\xbe"); } if (str_eq(gram_case, EL_STR("locative_in"))) { return EL_STR("\xe0\xa4\xae\xe0\xa5\x87\xe0\xa4\x82"); } if (str_eq(gram_case, EL_STR("locative_on"))) { return EL_STR("\xe0\xa4\xaa\xe0\xa4\xb0"); } if (str_eq(gram_case, EL_STR("instrumental"))) { return EL_STR("\xe0\xa4\xb8\xe0\xa5\x87"); } if (str_eq(gram_case, EL_STR("ablative"))) { return EL_STR("\xe0\xa4\xb8\xe0\xa5\x87"); } if (str_eq(gram_case, EL_STR("comitative"))) { return EL_STR("\xe0\xa4\x95\xe0\xa5\x87 \xe0\xa4\xb8\xe0\xa4\xbe\xe0\xa4\xa5"); } if (str_eq(gram_case, EL_STR("benefactive"))) { return EL_STR("\xe0\xa4\x95\xe0\xa5\x87 \xe0\xa4\xb2\xe0\xa4\xbf\xe0\xa4\x8f"); } return EL_STR(""); return 0; } el_val_t hi_agree_genitive(el_val_t possessed_gender, el_val_t possessed_number) { if (str_eq(possessed_gender, EL_STR("f"))) { return EL_STR("\xe0\xa4\x95\xe0\xa5\x80"); } if (str_eq(possessed_number, EL_STR("pl"))) { return EL_STR("\xe0\xa4\x95\xe0\xa5\x87"); } return EL_STR("\xe0\xa4\x95\xe0\xa4\xbe"); return 0; } el_val_t hi_verb_stem(el_val_t infinitive) { if (str_eq(infinitive, EL_STR("\xe0\xa4\xb9\xe0\xa5\x8b\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb9\xe0\xa5\x8b"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x95\xe0\xa4\xb0\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x95\xe0\xa4\xb0"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x9c\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x9c\xe0\xa4\xbe"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x86\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x86"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xa6\xe0\xa5\x87\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xa6\xe0\xa5\x87"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb2\xe0\xa5\x87\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb2\xe0\xa5\x87"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xa6\xe0\xa5\x87\xe0\xa4\x96\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xa6\xe0\xa5\x87\xe0\xa4\x96"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x95\xe0\xa4\xb9\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x95\xe0\xa4\xb9"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x9c\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x9c\xe0\xa4\xbe\xe0\xa4\xa8"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x9a\xe0\xa4\xbe\xe0\xa4\xb9\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x9a\xe0\xa4\xbe\xe0\xa4\xb9"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x96\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x96\xe0\xa4\xbe"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xaa\xe0\xa5\x80\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xaa\xe0\xa5\x80"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb8\xe0\xa5\x8b\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb8\xe0\xa5\x8b"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb2\xe0\xa4\xbf\xe0\xa4\x96\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb2\xe0\xa4\xbf\xe0\xa4\x96"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xaa\xe0\xa4\xa2\xe0\xa4\xbc\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xaa\xe0\xa4\xa2\xe0\xa4\xbc"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xac\xe0\xa5\x8b\xe0\xa4\xb2\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xac\xe0\xa5\x8b\xe0\xa4\xb2"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x9a\xe0\xa4\xb2\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x9a\xe0\xa4\xb2"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xac\xe0\xa5\x88\xe0\xa4\xa0\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xac\xe0\xa5\x88\xe0\xa4\xa0"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x89\xe0\xa4\xa0\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x89\xe0\xa4\xa0"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xae\xe0\xa4\xbf\xe0\xa4\xb2\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xae\xe0\xa4\xbf\xe0\xa4\xb2"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb0\xe0\xa4\xb9\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb0\xe0\xa4\xb9"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb8\xe0\xa5\x81\xe0\xa4\xa8\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb8\xe0\xa5\x81\xe0\xa4\xa8"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb8\xe0\xa4\xae\xe0\xa4\x9d\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb8\xe0\xa4\xae\xe0\xa4\x9d"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xae\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xae\xe0\xa4\xbe\xe0\xa4\xa8"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xac\xe0\xa4\xa8\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xac\xe0\xa4\xa8\xe0\xa4\xbe"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb2\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb2\xe0\xa4\xbe"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xad\xe0\xa5\x87\xe0\xa4\x9c\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xad\xe0\xa5\x87\xe0\xa4\x9c"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x96\xe0\xa5\x8b\xe0\xa4\xb2\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x96\xe0\xa5\x8b\xe0\xa4\xb2"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xac\xe0\xa4\x82\xe0\xa4\xa6 \xe0\xa4\x95\xe0\xa4\xb0\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xac\xe0\xa4\x82\xe0\xa4\xa6 \xe0\xa4\x95\xe0\xa4\xb0"); } if (hi_str_ends(infinitive, EL_STR("\xe0\xa4\xa8\xe0\xa4\xbe"))) { return hi_str_drop_last(infinitive, 1); } return infinitive; return 0; } el_val_t hi_verb_stem_clean(el_val_t infinitive) { if (str_eq(infinitive, EL_STR("\xe0\xa4\xb9\xe0\xa5\x8b\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb9\xe0\xa5\x8b"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x95\xe0\xa4\xb0\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x95\xe0\xa4\xb0"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x9c\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x9c\xe0\xa4\xbe"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x86\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x86"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xa6\xe0\xa5\x87\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xa6\xe0\xa5\x87"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb2\xe0\xa5\x87\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb2\xe0\xa5\x87"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xa6\xe0\xa5\x87\xe0\xa4\x96\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xa6\xe0\xa5\x87\xe0\xa4\x96"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x95\xe0\xa4\xb9\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x95\xe0\xa4\xb9"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x9c\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x9c\xe0\xa4\xbe\xe0\xa4\xa8"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x9a\xe0\xa4\xbe\xe0\xa4\xb9\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x9a\xe0\xa4\xbe\xe0\xa4\xb9"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x96\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x96\xe0\xa4\xbe"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xaa\xe0\xa5\x80\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xaa\xe0\xa5\x80"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb8\xe0\xa5\x8b\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb8\xe0\xa5\x8b"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb2\xe0\xa4\xbf\xe0\xa4\x96\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb2\xe0\xa4\xbf\xe0\xa4\x96"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xaa\xe0\xa4\xa2\xe0\xa4\xbc\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xaa\xe0\xa4\xa2\xe0\xa4\xbc"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xac\xe0\xa5\x8b\xe0\xa4\xb2\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xac\xe0\xa5\x8b\xe0\xa4\xb2"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x9a\xe0\xa4\xb2\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x9a\xe0\xa4\xb2"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xac\xe0\xa5\x88\xe0\xa4\xa0\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xac\xe0\xa5\x88\xe0\xa4\xa0"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x89\xe0\xa4\xa0\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x89\xe0\xa4\xa0"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xae\xe0\xa4\xbf\xe0\xa4\xb2\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xae\xe0\xa4\xbf\xe0\xa4\xb2"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb0\xe0\xa4\xb9\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb0\xe0\xa4\xb9"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb8\xe0\xa5\x81\xe0\xa4\xa8\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb8\xe0\xa5\x81\xe0\xa4\xa8"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb8\xe0\xa4\xae\xe0\xa4\x9d\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb8\xe0\xa4\xae\xe0\xa4\x9d"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xae\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xae\xe0\xa4\xbe\xe0\xa4\xa8"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xac\xe0\xa4\xa8\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xac\xe0\xa4\xa8\xe0\xa4\xbe"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xb2\xe0\xa4\xbe\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xb2\xe0\xa4\xbe"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\xad\xe0\xa5\x87\xe0\xa4\x9c\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\xad\xe0\xa5\x87\xe0\xa4\x9c"); } if (str_eq(infinitive, EL_STR("\xe0\xa4\x96\xe0\xa5\x8b\xe0\xa4\xb2\xe0\xa4\xa8\xe0\xa4\xbe"))) { return EL_STR("\xe0\xa4\x96\xe0\xa5\x8b\xe0\xa4\xb2"); } if (hi_str_ends(infinitive, EL_STR("\xe0\xa4\xa8\xe0\xa4\xbe"))) { return hi_str_drop_last(infinitive, 2); } return infinitive; return 0; } el_val_t hi_present_aspect(el_val_t gender, el_val_t number) { if (str_eq(gender, EL_STR("f"))) { return EL_STR("\xe0\xa4\xa4\xe0\xa5\x80"); } if (str_eq(number, EL_STR("pl"))) { return EL_STR("\xe0\xa4\xa4\xe0\xa5\x87"); } return EL_STR("\xe0\xa4\xa4\xe0\xa4\xbe"); return 0; } el_val_t hi_aux_present(el_val_t person, el_val_t number) { if (str_eq(person, EL_STR("1"))) { if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xb9\xe0\xa5\x82\xe0\xa4\x81"); } return EL_STR("\xe0\xa4\xb9\xe0\xa5\x88\xe0\xa4\x82"); } if (str_eq(person, EL_STR("2"))) { if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xb9\xe0\xa5\x8b"); } return EL_STR("\xe0\xa4\xb9\xe0\xa5\x8b"); } if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xb9\xe0\xa5\x88"); } return EL_STR("\xe0\xa4\xb9\xe0\xa5\x88\xe0\xa4\x82"); return 0; } el_val_t hi_past_suffix(el_val_t gender, el_val_t number) { if (str_eq(gender, EL_STR("m"))) { if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\x86"); } return EL_STR("\xe0\xa4\x8f"); } if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\x88"); } return EL_STR("\xe0\xa4\x88\xe0\xa4\x82"); return 0; } el_val_t hi_past_irregular(el_val_t stem, el_val_t gender, el_val_t number) { if (str_eq(stem, EL_STR("\xe0\xa4\xb9\xe0\xa5\x8b"))) { if (str_eq(gender, EL_STR("m"))) { if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xa5\xe0\xa4\xbe"); } return EL_STR("\xe0\xa4\xa5\xe0\xa5\x87"); } if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xa5\xe0\xa5\x80"); } return EL_STR("\xe0\xa4\xa5\xe0\xa5\x80\xe0\xa4\x82"); } if (str_eq(stem, EL_STR("\xe0\xa4\x9c\xe0\xa4\xbe"))) { if (str_eq(gender, EL_STR("m"))) { if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\x97\xe0\xa4\xaf\xe0\xa4\xbe"); } return EL_STR("\xe0\xa4\x97\xe0\xa4\x8f"); } if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\x97\xe0\xa4\x88"); } return EL_STR("\xe0\xa4\x97\xe0\xa4\x88\xe0\xa4\x82"); } if (str_eq(stem, EL_STR("\xe0\xa4\x95\xe0\xa4\xb0"))) { if (str_eq(gender, EL_STR("m"))) { if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\x95\xe0\xa4\xbf\xe0\xa4\xaf\xe0\xa4\xbe"); } return EL_STR("\xe0\xa4\x95\xe0\xa4\xbf\xe0\xa4\x8f"); } if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\x95\xe0\xa5\x80"); } return EL_STR("\xe0\xa4\x95\xe0\xa5\x80\xe0\xa4\x82"); } if (str_eq(stem, EL_STR("\xe0\xa4\xa6\xe0\xa5\x87"))) { if (str_eq(gender, EL_STR("m"))) { if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xa6\xe0\xa4\xbf\xe0\xa4\xaf\xe0\xa4\xbe"); } return EL_STR("\xe0\xa4\xa6\xe0\xa4\xbf\xe0\xa4\x8f"); } if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xa6\xe0\xa5\x80"); } return EL_STR("\xe0\xa4\xa6\xe0\xa5\x80\xe0\xa4\x82"); } if (str_eq(stem, EL_STR("\xe0\xa4\xb2\xe0\xa5\x87"))) { if (str_eq(gender, EL_STR("m"))) { if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xb2\xe0\xa4\xbf\xe0\xa4\xaf\xe0\xa4\xbe"); } return EL_STR("\xe0\xa4\xb2\xe0\xa4\xbf\xe0\xa4\x8f"); } if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xb2\xe0\xa5\x80"); } return EL_STR("\xe0\xa4\xb2\xe0\xa5\x80\xe0\xa4\x82"); } if (str_eq(stem, EL_STR("\xe0\xa4\x86"))) { if (str_eq(gender, EL_STR("m"))) { if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\x86\xe0\xa4\xaf\xe0\xa4\xbe"); } return EL_STR("\xe0\xa4\x86\xe0\xa4\x8f"); } if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\x86\xe0\xa4\x88"); } return EL_STR("\xe0\xa4\x86\xe0\xa4\x88\xe0\xa4\x82"); } if (str_eq(stem, EL_STR("\xe0\xa4\x96\xe0\xa4\xbe"))) { if (str_eq(gender, EL_STR("m"))) { if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\x96\xe0\xa4\xbe\xe0\xa4\xaf\xe0\xa4\xbe"); } return EL_STR("\xe0\xa4\x96\xe0\xa4\xbe\xe0\xa4\x8f"); } if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\x96\xe0\xa4\xbe\xe0\xa4\x88"); } return EL_STR("\xe0\xa4\x96\xe0\xa4\xbe\xe0\xa4\x88\xe0\xa4\x82"); } if (str_eq(stem, EL_STR("\xe0\xa4\xaa\xe0\xa5\x80"))) { if (str_eq(gender, EL_STR("m"))) { if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xaa\xe0\xa4\xbf\xe0\xa4\xaf\xe0\xa4\xbe"); } return EL_STR("\xe0\xa4\xaa\xe0\xa4\xbf\xe0\xa4\x8f"); } if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xaa\xe0\xa5\x80"); } return EL_STR("\xe0\xa4\xaa\xe0\xa5\x80\xe0\xa4\x82"); } return EL_STR(""); return 0; } el_val_t hi_future_suffix(el_val_t person, el_val_t number, el_val_t gender) { if (str_eq(person, EL_STR("1"))) { if (str_eq(number, EL_STR("sg"))) { if (str_eq(gender, EL_STR("f"))) { return EL_STR("\xe0\xa4\x8a\xe0\xa4\x81\xe0\xa4\x97\xe0\xa5\x80"); } return EL_STR("\xe0\xa4\x8a\xe0\xa4\x81\xe0\xa4\x97\xe0\xa4\xbe"); } if (str_eq(gender, EL_STR("f"))) { return EL_STR("\xe0\xa4\x8f\xe0\xa4\x82\xe0\xa4\x97\xe0\xa5\x80"); } return EL_STR("\xe0\xa4\x8f\xe0\xa4\x82\xe0\xa4\x97\xe0\xa5\x87"); } if (str_eq(person, EL_STR("2"))) { if (str_eq(gender, EL_STR("f"))) { return EL_STR("\xe0\xa4\x93\xe0\xa4\x97\xe0\xa5\x80"); } return EL_STR("\xe0\xa4\x93\xe0\xa4\x97\xe0\xa5\x87"); } if (str_eq(number, EL_STR("sg"))) { if (str_eq(gender, EL_STR("f"))) { return EL_STR("\xe0\xa4\x8f\xe0\xa4\x97\xe0\xa5\x80"); } return EL_STR("\xe0\xa4\x8f\xe0\xa4\x97\xe0\xa4\xbe"); } if (str_eq(gender, EL_STR("f"))) { return EL_STR("\xe0\xa4\x8f\xe0\xa4\x82\xe0\xa4\x97\xe0\xa5\x80"); } return EL_STR("\xe0\xa4\x8f\xe0\xa4\x82\xe0\xa4\x97\xe0\xa5\x87"); return 0; } el_val_t hi_tense_suffix(el_val_t tense, el_val_t gender, el_val_t number) { if (str_eq(tense, EL_STR("present"))) { return hi_present_aspect(gender, number); } if (str_eq(tense, EL_STR("past"))) { return hi_past_suffix(gender, number); } return EL_STR(""); return 0; } el_val_t hi_hona_present(el_val_t person, el_val_t number) { return hi_aux_present(person, number); return 0; } el_val_t hi_hona_past(el_val_t gender, el_val_t number) { if (str_eq(gender, EL_STR("m"))) { if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xa5\xe0\xa4\xbe"); } return EL_STR("\xe0\xa4\xa5\xe0\xa5\x87"); } if (str_eq(number, EL_STR("sg"))) { return EL_STR("\xe0\xa4\xa5\xe0\xa5\x80"); } return EL_STR("\xe0\xa4\xa5\xe0\xa5\x80\xe0\xa4\x82"); return 0; } el_val_t hi_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t gender, el_val_t number) { el_val_t stem = hi_verb_stem_clean(verb); if (str_eq(verb, EL_STR("\xe0\xa4\xb9\xe0\xa5\x8b\xe0\xa4\xa8\xe0\xa4\xbe"))) { if (str_eq(tense, EL_STR("present"))) { return hi_hona_present(person, number); } if (str_eq(tense, EL_STR("past"))) { return hi_hona_past(gender, number); } return el_str_concat(EL_STR("\xe0\xa4\xb9\xe0\xa5\x8b"), hi_future_suffix(person, number, gender)); } if (str_eq(tense, EL_STR("present"))) { el_val_t aspect = hi_present_aspect(gender, number); el_val_t aux = hi_aux_present(person, number); return el_str_concat(el_str_concat(el_str_concat(stem, aspect), EL_STR(" ")), aux); } if (str_eq(tense, EL_STR("past"))) { el_val_t irreg = hi_past_irregular(stem, gender, number); if (!str_eq(irreg, EL_STR(""))) { return irreg; } return el_str_concat(stem, hi_past_suffix(gender, number)); } if (str_eq(tense, EL_STR("future"))) { return el_str_concat(stem, hi_future_suffix(person, number, gender)); } return verb; return 0; } el_val_t hi_noun_with_post(el_val_t noun, el_val_t gender, el_val_t number, el_val_t gram_case) { el_val_t post = hi_postposition(gram_case); if (str_eq(post, EL_STR(""))) { return hi_noun_direct(noun, gender, number); } el_val_t oblique = hi_noun_oblique(noun, gender, number); return el_str_concat(el_str_concat(oblique, EL_STR(" ")), post); return 0; } el_val_t hi_genitive_phrase(el_val_t possessor, el_val_t possessor_gender, el_val_t possessor_number, el_val_t possessed, el_val_t possessed_gender, el_val_t possessed_number) { el_val_t obl = hi_noun_oblique(possessor, possessor_gender, possessor_number); el_val_t gen = hi_agree_genitive(possessed_gender, possessed_number); el_val_t poss = hi_noun_direct(possessed, possessed_gender, possessed_number); return el_str_concat(el_str_concat(el_str_concat(el_str_concat(obl, EL_STR(" ")), gen), EL_STR(" ")), poss); return 0; }