neuron-technologies/neuron
2
0
Fork 0
Code Issues 2 Pull Requests 3 Actions Packages Projects Releases Wiki Activity
Files
test/layer-composition
neuron/dist/morphology-hi.c
T
will.anderson 48ecd83421 fix: restore elb build — import paths, morphology deps, C master declarations header 
- Fix wrong ELP import paths in soul.el, elp-input.el, studio.el
  (../foundation/elp/src → ../foundation/el/elp/src)
- Add missing import "morphology.el" to all 29 language morphology modules
- Recompile all affected dist/*.c with correct cross-module declarations
- Add dist/elp-c-decls.h: C-level master forward declarations for ELP package
  (enables elb --force-include to resolve undeclared cross-module calls)
2026-05-08 19:43:57 -05:00

749 lines
28 KiB
C
Raw Permalink Blame History

#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 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;
}
Reference in New Issue View Git Blame Copy Permalink