msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

added egekusii language based on Bantu functor

Browse Source
This commit is contained in:
benson kituku
2018-10-03 11:37:52 +03:00
parent c82b09df1a
commit b1b8f90f4e
20 changed files with 1671 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/egekusii/AdjectiveGus.gf Normal file
View File

@@ -0,0 +1,16 @@
concrete AdjectiveGus of Adjective = CatGus **AdjectiveBantu-[ComparA,UseComparA,ComplA2]
with (ResBantu = ResGus)** open DiffGus in
{
flags coding=utf8;
lin
ComparA a np = {
s = \\g,n => a.s !AAdj g n ++ conjThan ++ np.s ! npNom ;
isPre = False} ;
UseComparA a = {s = \\g,n=> a.s !AAdj g n;isPre = True};
ComplA2 a np = {
s = \\g,n => a.s !AAdj g n ++ a.c2 ++ np.s ! NPAcc;
isPre = False
} ;
}

13
src/egekusii/AdverbGus.gf Normal file
View File

@@ -0,0 +1,13 @@
concrete AdverbGus of Adverb = CatGus **AdverbBantu -[ComparAdvAdj,ComparAdvAdjS] with
(ResBantu = ResGus)** open DiffGus in
{
flags coding=utf8;
lin
ComparAdvAdj cadv a np =let agr = complAgr np.a
in {
s = cadv.s ++ a.s !AAdj agr.g agr.n ++ cadv.p ++ np.s ! npNom
} ;
ComparAdvAdjS cadv a s = {
s = cadv.s ++ a.s !AAdj G1 Sg ++ cadv.p ++ s.s
} ;
}

2
src/egekusii/CatGus.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete CatGus of Cat = CommonX - [Pol]
** CatBantu with (ResBantu = ResGus);

2
src/egekusii/ConjunctionGus.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete ConjunctionGus of Conjunction = CatGus ** ConjunctionBantu with
(ResBantu = ResGus);

244
src/egekusii/DiffGus.gf Normal file
View File

@@ -0,0 +1,244 @@
instance DiffGus of DiffBantu = open CommonBantu, Prelude in {
param
GenderGus = G1 | G2 | G3 |G4| G5|G6|G7|G8|G9|G10 ;
oper
Gender = GenderGus ;
firstGender = G1 ; secondGender = G2 ;
conjThan = "kobua" ;
conjThat = "kobua" ;
conjGender : Gender -> Gender -> Gender = \m,n ->
case m of { G1 => n ; _ => G2 } ;
reflPron :Agr => Str = \\ag=> case <ag > of {
< Ag G1 Sg P1 > => "mimi" ;
< Ag G1 Sg P2 > => "wewe" ;
< Ag G1 Sg P3 > => "yeye" ;
< Ag _ Sg P3 > => "" ;
< Ag G1 Pl P1 > => "sisi" ;
< Ag G1 Pl P2 > => "nyinyi" ;
< Ag G1 Pl P3 > => "wao" ;
< Ag _ _ _ > => ""
};
possess_Prepof,mkPrepof : Number => Gender => Str =
table Number { Sg => table {
G1| G2 => "bwo" ;
G3 => "ya";
G4 => "ria";
G5 => "kia"; --
G6 => "rwa";
G7 => "ka";
G8 => "bwa";
G9 => "kwa";
G10 => "a"
};
Pl => table { G1 => "ba" ;
G2 => "ya" ;
G3|G6 => "cia";
G4 |G8|G9|G10 => "a";
G5 => "bi"; --
G7 => "bia"} } ;
superVery ="bi";
Cardoneprefix : Gender -> Str = \g ->
case <g> of {
<G1> =>"oya";
<G7> =>"aka";
<G8> =>"obo";
<G4> =>"eri";
<G3> =>"eye";
<G6> =>"oro";
<G2> =>"oyo";
<G5> =>"eke";
<G9> =>"oko";
<G10> => "a"
} ;
Cardtwoprefix : Gender -> Str = \g ->
case <g> of {
<G1> =>"ba";
<G7> |<G5> =>"bi";
<G8> |<G4> =>"a";
<G3> |<G6> =>"i";
<G2> |<G9> =>"e";
< G10> => ""
} ;
Allpredetprefix : Gender -> Str = \g ->
case <g> of {
<G1> => "b" ;
<G2> => "y" ;
<G3> |<G5>| <G8> => "bi" ;
<G9> | <G10> |<G4> => "" ;
<G6> | <G7> => "ci"
} ;
PrefixPlNom : Gender -> Str = \g ->
case <g> of {
<G1> => "aba" ;
<G2> => "eme" ;
<G3> |<G6> => "ci" ;
<G4>| <G8> |<G9> => "ama" ;
<G5> |<G7> => "ebi";
<G10> => ""
} ;
mkprefix,Ordprefix : Gender -> Str = \g ->
case <g> of {
<G1> |<G2> =>"o";
<G4> => "ria";
<G5> => "kia";
<G3> => "ya";
<G6>=> "rwa";
<G7>=> "ka";
<G8>=> "bwa";
<G9>=> "kwa";
< G10> => "a"
} ;
Cardprefix : Gender -> Str = \g ->
case <g> of {
<G1> =>"ba";
<G7> |<G5> =>"bi";
<G8> |<G4> =>"a";
<G3> |<G6> =>"i";
<G2> |<G9> =>"e";
<G10> => ""
} ;
Mostpredetprefix : Gender -> Str = \g -> ""; -- not taken care of
ConsonantAdjprefix: Gender -> Number -> Str = \n,g -> ""; --not taken care of
{-case <n,g> of {
<G1,Sg> => "m" ;
<G1,Pl> => "wa" ;
<G2,Sg> => "m" ;
<G2,Pl> => "mi" ;
<G3,Pl> => "ma" ;
<G4,Sg> => "ki" ;
<G4,Pl> => "vi" ;
<G6,Sg> => "m" ;
<G7,_> => "m" ;
<G8,Sg> => "m" ;
<G8,Pl> => "ma" ;
<G9,_> => "ma" ;
<G11,Sg> => "pa" ;
<G12,Sg> => "ku" ;
<G13,Sg> => "m" ;
<_,_> => ""
} ; -}
VowelAdjprefix: Gender -> Number -> Str = \n,g ->""; -- not taken care of
{-} case <n,g> of {
<G1,Sg> => "mw" ;
<G1,Pl> => "w" ;
<G2,Sg> => "mw" ;
<G2,Pl> => "my" ;
<G3,Sg> => "j" ;
<G3,Pl> => "m" ;
<G4,Sg> => "ch" ;
<G4,Pl> => "vy" ;
<G5,Sg> => "ny";
<G5,Pl> => "ny";
<G6,Sg>=> "mw" ;
<G6,Pl> => "y" ;
<G7,Sg> => "mw" ;
<G7,Pl> => "mw" ;
<G8,Sg>=> "mw" ;
<G8,Pl> => "m" ;
<G9,_> => "m" ;
<G10,_> => "ny" ;
<G11,Sg> => "p" ;
<G12,Sg> => "kw" ;
<G13,Sg> => "mu" ;
<_,_> => ""
} ; -}
VoweliAdjprefix: Gender -> Number -> Str = \n,g -> ""; -- not taken care of
{-} case <n,g> of {
<G1,Sg> => "mwi" ;
<G1,Pl> => "we" ;
<G2,Sg> => "mwi" ;
<G2,Pl> => "mi" ;
<G3,Sg> => "ji" ;
<G3,Pl> => "me" ;
<G4,Sg> => "ki" ;
<G4,Pl> => "vi" ;
<G5,Sg> => "zi";
<G5,Pl> => "zi";
<G6,Sg>=> "mwi" ;
<G6,Pl> => "zi" ;
<G7,Sg> => "mwi" ;
<G7,Pl> => "mwi" ;
<G8,Sg>=> "mwi" ;
<G8,Pl> => "me" ;
<G9,_> => "me" ;
<G10,_> => "zi" ;
<G11,Sg> => "pe" ;
<G12,Sg> => "kwi" ;
<G13,Sg> => "mwi" ;
<_,_> => ""
} ; -}
Adjpprefix : Gender -> Number -> Str = \n,g ->
case <n,g> of {
<G1,Pl> => "aba" ;
<G2,Pl> => "eme" ;
<G3,Sg> => "e" ;
<G4,Sg> => "eri" ;
<G5,Sg> => "ege" ;
<G5,Pl> => "ebi" ;
<G6,Sg> => "oro" ;
<G7,Sg> => "aka" ;
<G7,Pl> => "ebi";
<G8,Sg> => "obo" ;
<G9,Sg> => "oko" ;
<G10,Sg> => "aa" ;
<G1,Sg>|<G2,Sg> => "omo" ;
<G3,Pl> |<G6,Pl> => "ci" ;
<G4,Pl>|<G8,Pl> |<G9,Pl> => "ama" ;
<G10,Pl> => ""
} ;
ProunSgprefix : Gender -> Str = \g ->
case <g> of {
<G1> |<G2> =>"o";
<G4> => "ria";
<G5> => "kia";
<G3> => "ya";
<G6>=> "rwa";
<G7>=> "ka";
<G8>=> "bwa";
<G9>=> "kwa";
<G10> => "a"
} ;
ProunPlprefix : Gender -> Str = \g ->
case <g> of {
<G1> |<G7> =>"ba";
<G8> |<G4> =>"a";
<G3> |<G6> =>"chia";
<G2> =>"ya";
<G5> =>"bia";
<_> => ""
} ;
dfltGender : Gender = G1 ;
dflt2Gender : Gender = G2 ;
param
VForm = VInf
| VPres Gender Number Person
| VPast Gender Number Person
| VFut Gender Number Person
-- | notpresent
;
DForm = unit | teen | ten |hund ;
AForm = AAdj Gender Number;
}

30
src/egekusii/GrammarGus.gf Normal file
View File

@@ -0,0 +1,30 @@
--# -path=.:../abstract:../common:prelude
concrete GrammarGus of Grammar =
NounGus,
VerbGus,
AdjectiveGus,
AdverbGus,
NumeralGus,
SentenceGus,
QuestionGus,
RelativeGus,
ConjunctionGus,
PhraseGus,
TextX - [Pol,PPos,PNeg,Pres],
StructuralGus,
IdiomGus,
TenseX - [Pol,PPos,PNeg,Pres]
** {
flags startcat = Phr ; unlexer = text ; lexer = text;
--lin
--PPos = {s = [] ; p = CPos} ;
-- PNeg = {s = [] ; p = CNeg True} ; -- contracted: don't
--PPos = {s = [] ; b = True} ;
-- PNeg = {s = [] ; b = False} ;
-- TPres = {s = [] ; t = ResGus.Pres} ;
-- TPast = {s = [] ; t = ResGus.Past };
-- TFut = {s = [] ; t = ResGus.Fut };
} ;

48
src/egekusii/IdiomGus.gf Normal file
View File

@@ -0,0 +1,48 @@
concrete IdiomGus of Idiom = CatGus ** open Prelude, ResGus in {
flags optimize=all_subs ;
{-
lin
ImpersCl vp = mkClause "it" (agrP3 Sg) vp ;
GenericCl vp = mkClause "one" (agrP3 Sg) vp ;
CleftNP np rs = mkClause "it" (agrP3 Sg)
(insertObj (\\_ => rs.s ! np.a)
(insertObj (\\_ => np.s ! rs.c) (predAux auxBe))) ;
CleftAdv ad s = mkClause "it" (agrP3 Sg)
(insertObj (\\_ => conjThat ++ s.s)
(insertObj (\\_ => ad.s) (predAux auxBe))) ;
ExistNP np =
mkClause "there" (agrP3 (fromAgr np.a).n)
(insertObj (\\_ => np.s ! NPAcc) (predAux auxBe)) ;
ExistIP ip =
mkQuestion (ss (ip.s ! npNom))
(mkClause "there" (agrP3 ip.n) (predAux auxBe)) ;
ExistNPAdv np adv =
mkClause "there" (agrP3 (fromAgr np.a).n)
(insertObj (\\_ => np.s ! NPAcc ++ adv.s) (predAux auxBe)) ;
ExistIPAdv ip adv =
mkQuestion (ss (ip.s ! npNom))
(mkClause "there" (agrP3 ip.n) (insertObj (\\_ => adv.s) (predAux auxBe))) ;
ProgrVP vp = insertObj (\\a => vp.ad ! a ++ vp.prp ++ vp.p ++ vp.s2 ! a) (predAux auxBe) ;
ImpPl1 vp = {s = "let's" ++ infVP VVAux vp Simul CPos (AgP1 Pl)} ;
ImpP3 np vp = {s = "let" ++ np.s ! NPAcc ++ infVP VVAux vp Simul CPos np.a} ;
SelfAdvVP vp = insertObj reflPron vp ;
SelfAdVVP vp = insertAdVAgr reflPron vp ;
SelfNP np = {
s = \\c => np.s ! c ++ reflPron ! np.a ;
a = np.a
} ;
} -}
}

11
src/egekusii/LangGus.gf Normal file
View File

@@ -0,0 +1,11 @@
--# -path=.:../abstract:../common:../api
concrete LangGus of Lang =
GrammarGus,
LexiconGus
-- ,ConstructionGus
** {
} ;

79
src/egekusii/LexiconGus.gf Normal file
View File

@@ -0,0 +1,79 @@
--# -path=.:prelude
concrete LexiconGus of Lexicon = CatGus **
open ParadigmsGus,StructuralGus, Prelude in {
flags
optimize=values ;
lin
person_N = regN "omonto" omo_aba;
woman_N = regN "omosubati" omo_aba;
house_N = regN "enyomba" e_ci ;
tree_N = regN "omote" omo_eme;
big_A = regA "nene" ;
beautiful_A = regA "muya" ;
black_A = regA "mwamu";
blue_A = regA "buluu" ;
broad_A = regA "gare" ;
brown_A = regA "maraba" ;
clean_A = iregA "safi" "safi";
clever_A = regA "ng'aini" ;
cold_A = regA "kundu";
correct_A = regA "keene" ;
dirty_A = regA "chabu" ;
dry_A = regA "kamoku" ;
full_A = regA "ichire" ;
good_A = regA "ya" ;
green_A = regA "machani" ;
heavy_A = regA "rito" ;
hot_A = regA "morero" ;
important_A = regA "eng'encho" ;
long_A = regA "tambe" ;
narrow_A = regA "nyerere" ;
near_A = regA "ang'e" ;
new_A = regA "nyia" ;
old_A = regA "koro" ;
red_A = regA "bariri" ;
rotten_A = regA "ng'undo" ;
round_A = regA "viringo" ;
sharp_A = regA "oge" ;
short_A = regA "eng'e" ;
small_A = regA "ke" ;
smooth_A = regA "terere" ;
straight_A = regA "ronge" ;
stupid_A = regA "riri" ;
thick_A = regA "netu" ;
thin_A = regA "reu" ;
ugly_A = regA "be";
warm_A = regA "berera" ;
wet_A = regA "nyiu" ;
white_A = regA "rabu" ;
yellow_A = regA "yaye" ;
young_A = regA "ke" ;
certain_A=regA "maena";
cow_N = regN "eng'ombe" e_ci ;
doctor_N = regN "omorwaria" omo_aba ;
dog_N = regN "esese" e_ci;
door_N = regN "omorangwa" omo_eme ;
enemy_N = regN "omobisa" omo_aba;
fish_N = regN "enswe" e_ci;
friend_N = regN "omosani" omo_aba;
garden_N = regN "omogondo" omo_eme;
girl_N = regN "omoiseke" omo_aba ;
lamp_N = regN "etaya" e_ci;
man_N = regN "omosacha" omo_aba ;
eye_N = iregN "eriso" "amaiso" eri_ama ;
tooth_N = regN "ero" eri_ama ;
wife_N = regN "omokungu" omo_aba;
oper
aboutP = mkPrep "juu ya" ;
atP = mkPrep "vala ve" ;
forP = mkPrep "for" ;
fromP = mkPrep "kutoka" ;
inP = mkPrep "ndani" ;
onP = mkPrep "juu" ;
toP = mkPrep "hadi" ;
} ;

446
src/egekusii/MorphoGus.gf Normal file
View File

@@ -0,0 +1,446 @@
--# -path=.:../../prelude
--1 Egekusii Resource Morphology
resource MorphoGus = CommonBantu ,
ResGus ** open Prelude, Predef
in {
flags optimize=all ;
oper
Many_prefix: Gender -> Str = \g ->
case <g> of {
<G1> =>"aba";
<G4> |<G9>|<G8> =>"ama";
<G3> |<G6> =>"cini";
<G2> =>"eme";
<G5> | <G7> =>"ebi";
<G10> => "ani"
} ;
Few_prefix : Gender -> Str = \g ->
case <g> of {
<G1> =>"basi";
<G4> |<G9>|<G8> =>"masi";
<G3> |<G6> =>"cisi";
<G2> =>"mesi";
<G5> | <G7> =>"bisi";
<G10> => "asi"
} ;
Detsomesgprefix : Gender -> Str = \g ->"";
{-} case <g> of {
<G3> => "li" ;
<G4> => "ki" ;
<G9> => "me";
<G11> => "pe" ;
<G12> => "kwi" ;
<G5>|<G10> => "nyi" ;
<G1> |<G6>|<G2>|<G7>|<G8> |<G13> => "mwi"
} ; -}
Some_prefix : Gender -> Str = \g ->
case <g> of {
<G1> =>"beke";
<G7> =>"bike";
<G8> =>"make";
<G4> =>"make";
<G3> =>"nke";
<G6> =>"nke";
<G2> =>"mebe";
<G5> =>"bike";
<G9> =>"make";
<G10> => "ake"
} ;
Detsomeplprefix : Gender -> Str = \g ->"";
{-} case <g> of {
<G1> => "we" ;
<G2> => "mi" ;
<G10> => "nyi" ;
<G11> => "pe" ;
<G12> => "kwi" ;
<G4> => "vi" ;
<G5>|<G6> => "nye" ;
<G7> |<G13> => "mwi" ;
<G3>|<G8> |<G9> => "me"
} ; -}
mkNum3 : Str -> Str -> {s : DForm => CardOrd => Gender => Str} =
\two, second ->
{s = table {
unit => table {NCard =>\\g => Cardprefix g + two ;
NOrd => \\g => Ordprefix g ++ second} ;
teen => table {NCard =>\\g =>"ikomi na" ++ CardThirteenprefix g + two ;
NOrd => \\g => Ordprefix g ++ "ikomi na" ++ second} ;
ten => table {NCard =>\\g =>"emerongo etato" ;
NOrd => \\g => Ordprefix g ++ "emerongo etato"};
hund => table {NCard =>\\g =>"amagana atato " ;
NOrd => \\g => Ordprefix g ++ "amagana atato"}
}
} ;
mkNum4 : Str -> Str -> {s : DForm => CardOrd => Gender => Str} =
\two, second ->
{s = table {
unit => table {NCard =>\\g => Cardprefix g + two ;
NOrd => \\g => Ordprefix g ++ second} ;
teen => table {NCard =>\\g =>"ikomi na" ++ Cardfouteenprefix g ;
NOrd => \\g => Ordprefix g ++ "ikomi na" ++ second } ;
ten => table {NCard =>\\g =>"emerongo ene";
NOrd => \\g => Ordprefix g ++ "emerongo ene"};
hund => table {NCard =>\\g =>"amagana ane " ;
NOrd => \\g => Ordprefix g ++ "amagana ane"}
}
} ;
mkNum5 : Str -> Str -> {s : DForm => CardOrd => Gender => Str} =
\two, second ->
{s = table {
unit => table {NCard =>\\g => Cardprefix g + two ;-- create table totake care of eci and oroci which is isano not itano
NOrd => \\g => Ordprefix g ++ second} ;
teen => table {NCard =>\\g =>"ikomi na" ++ Cardfifteenprefix g + two ;
NOrd => \\g => Ordprefix g ++ "ikomi na" ++ second } ;
ten => table {NCard =>\\g =>"emerongo etano" ;
NOrd => \\g => Ordprefix g ++ "emerongo etano"};
hund => table {NCard =>\\g =>"amagana atano " ;
NOrd => \\g => Ordprefix g ++ "amagana atano"}
}
} ;
mkNum6 : Str -> Str -> {s : DForm => CardOrd => Gender => Str} =
\two, second ->
{s = table {
unit => table {NCard =>\\g => Cardprefix g + two ++Cardsixprefix g + second;
NOrd => \\g => Ordprefix g ++ "ga" + two ++ "ri" + second} ;
teen => table {NCard =>\\g =>"ikomi na" ++ Cardfifteenprefix g + two ++ Cardsixprefix g + second ;
NOrd => \\g => Ordprefix g ++ "ikomi na" ++ "ga" + two ++ "ri" + second} ;
ten => table {NCard =>\\g =>"emerongo etano" ++ Cardsixprefix g + second ;
NOrd => \\g => Ordprefix g ++ "emerongo etato"++ "ri" + second};
hund => table {NCard =>\\g =>"amagana atano "++ Cardoneprefix g + second ;
NOrd => \\g => Ordprefix g ++ "amagana atano"++ "ri" + second}
}
} ;
mkNum7 : Str -> Str -> {s : DForm => CardOrd => Gender => Str} =
\two, second ->
{s = table {
unit => table {NCard =>\\g => Cardprefix g + two ++Cardtwoprefix g + second;
NOrd => \\g => Ordprefix g ++ "ga" + two ++ "ka" + second} ;
teen => table {NCard =>\\g =>"ikomi na" ++ Cardfifteenprefix g + two ++ Cardtwoprefix g + second ;
NOrd => \\g => Ordprefix g ++ "ikomi na" ++ "ga" + two ++ "ka" + second} ;
ten => table {NCard =>\\g =>"emerongo etano" ++ Cardtwoprefix g + second ;
NOrd => \\g => Ordprefix g ++ "emerongo etano"++ "ka" + second};
hund => table {NCard =>\\g =>"amagana atano "++ Cardtwoprefix g + second ;
NOrd => \\g => Ordprefix g ++ "amagana atano"++"ka" + second}
}
} ;
mkNum8 : Str -> Str -> {s : DForm => CardOrd => Gender => Str} =
\two, second ->
{s = table {
unit => table {NCard =>\\g => Cardprefix g + two ++ Cardprefix g + second;
NOrd => \\g => Ordprefix g ++ "ga" + two ++ "ga" + second} ;
teen => table {NCard =>\\g =>"ikomi na" ++ Cardfifteenprefix g + two ++ Cardprefix g + second ;
NOrd => \\g => Ordprefix g ++ "ikomi na" ++ "ga" + two ++ "ga" + second} ;
ten => table {NCard =>\\g =>"emerongo etano" ++ Cardprefix g + second ;
NOrd => \\g => Ordprefix g ++ "emerongo etano"++ "ga" + second};
hund => table {NCard =>\\g =>"amagana atano "++ Cardprefix g + second ;
NOrd => \\g => Ordprefix g ++ "amagana atano"++ "ga" + second}
}
} ;
mkNum2 : Str -> Str -> {s : DForm => CardOrd => Gender => Str} =
\two, second ->
{s = table {
unit => table {NCard =>\\g => Cardtwoprefix g + two ;
NOrd => \\g => Ordprefix g ++ second} ;
teen => table {NCard =>\\g =>"ikomi na" ++ Cardtwelveprefix g + two ;
NOrd => \\g => Ordprefix g ++ "ikomi na" ++ Cardtwelveprefix g + two } ;
ten => table {NCard =>\\g =>"emerongo ebere" ;
NOrd => \\g => Ordprefix g ++ "emerongo ebere" };
hund => table {NCard =>\\g =>"amagana ebere" ;
NOrd => \\g => Ordprefix g ++ "amagana ebere" }
}
} ;
mkNum1 : Str -> Str -> {s : DForm => CardOrd => Gender => Str} =
\two, second ->
{s = table {
unit => table {NCard =>\\g => Cardoneprefix g + two ;
NOrd => \\g => Ordoneprefix g ++ second} ;
teen => table {NCard =>\\g =>"ikomi nemo" ;
NOrd => \\g => Ordprefix g ++ "ikomi " ++ "nemo"} ;
ten => table {NCard =>\\g =>"ikomi" ;
NOrd => \\g => Ordprefix g ++ "ikomi"};
hund => table {NCard =>\\g =>"rigana erimo";
NOrd => \\g => Ordprefix g ++ "rigana erimo" }
}
} ;
regNum : Str -> {s : DForm => CardOrd => Gender => Str} =
\six -> {s = table {
unit => table {NCard =>\\g => six ;
NOrd => \\g => Ordprefix g ++ six} ;
teen => table {NCard =>\\g =>"ikomi na" ++ six ;
NOrd => \\g => Ordprefix g ++ "ikomi na" ++ six} ;
ten => table {NCard =>\\g =>"emerongo" ++ six ;
NOrd => \\g => Ordprefix g ++ "emerongo" ++ six};
hund => table {NCard =>\\g =>"amagana " ++ six ;
NOrd => \\g => Ordprefix g ++ "amagana" ++ six}
} } ;
regCardOrd : Str -> {s : CardOrd => Gender => Str} = \ten ->
{s = table {NCard => \\g => ten ;
NOrd =>\\g => Ordprefix g ++ ten } } ;
regCardone : Str -> Str -> {s : CardOrd => Gender => Str} = \ten,one ->
{s = table {NCard => \\g => ten ++ Cardoneprefix g + one ;
NOrd =>\\g => Ordprefix g ++ ten ++ Cardoneprefix g + one } } ;
mkCard : CardOrd -> Str -> Gender => Str = \o,ten ->
(regCardOrd ten).s ! o ;
regN : Str ->Gender -> Noun = \w, g ->let
ndeto= PrefixPlNom g + Predef.drop 3 w;
in case g of {
G4 => {s = table { Sg => table {Nom => w; Loc => ""} ;
Pl=>table{ Nom => "ama" + Predef.drop 2 w; Loc => "" }
}; g = g} ;
G3=> {s = table { Sg => table {Nom => w; Loc => ""} ;
Pl=>table{ Nom => "ci" + Predef.drop 1 w; Loc => "" }
}; g = g} ;
_ => {s = table { Sg => table {Nom => w; Loc => ""} ;
Pl=>table{ Nom => ndeto; Loc => "" } };
g = g}};
iregN :Str-> Str ->Gender -> Noun= \man,men,g -> {
s = table{Sg => table{Nom => man ; Loc=> ""};
Pl => table{Nom => men ; Loc=> ""}} ;
g = g
} ;
regA:Str -> {s : AForm => Str} = \seo -> {s = table {
AAdj G1 Sg=>case Predef.take 1 seo of {
"a"|"e"|"i"|"u" => "omu" + seo;
"o" => "omw" + seo;
_ => ConsonantAdjprefix G1 Sg + seo };
AAdj G1 Pl =>case Predef.take 1 seo of {
_ => ConsonantAdjprefix G1 Pl + seo };
AAdj G2 Sg=>case Predef.take 1 seo of {
"a"|"e"|"i"|"u" => "omu" + seo;
"o" => "omw" + seo;
_ => ConsonantAdjprefix G2 Sg + seo };
AAdj G2 Pl =>case Predef.take 1 seo of {
"o" => "emi" + seo;
_ => ConsonantAdjprefix G2 Pl + seo };
AAdj G3 Sg=>case Predef.take 1 seo of {
"o" |"i" => "eng" + seo;
_ => ConsonantAdjprefix G3 Sg + seo };
AAdj G3 Pl =>case Predef.take 1 seo of {
"o" |"i" => "ching" + seo;
_ => ConsonantAdjprefix G3 Pl + seo };
AAdj G4 Sg=>case Predef.take 1 seo of {
"a"|"e"|"i"|"o"|"u" => "rigi" + seo;
_ => ConsonantAdjprefix G4 Sg + seo };
AAdj G4 Pl =>case Predef.take 1 seo of {
_ => ConsonantAdjprefix G4 Pl + seo };
AAdj G5 Sg=>case Predef.take 1 seo of {
"i" => "eki" + seo;
_ => ConsonantAdjprefix G5 Sg + seo };
AAdj G5 Pl =>case Predef.take 1 seo of {
"i" => "ebi" + seo;
_ => ConsonantAdjprefix G5 Pl + seo };
AAdj G6 Sg=>case Predef.take 1 seo of {
"i"|"o" => "oru"+ seo;
_ => ConsonantAdjprefix G6 Sg + seo };
AAdj G6 Pl =>case Predef.take 1 seo of {
"i"|"o" => "ching'"+ seo;
_ => ConsonantAdjprefix G6 Pl + seo };
AAdj G7 Sg=>case Predef.take 1 seo of {
_ => ConsonantAdjprefix G7 Sg + seo };
AAdj G7 Pl =>case Predef.take 1 seo of {
_ => ConsonantAdjprefix G7 Pl + seo };
AAdj G8 Sg=>case Predef.take 1 seo of {
"i"|"o" => "obu"+ seo;
_ => ConsonantAdjprefix G8 Sg + seo };
AAdj G8 Pl =>case Predef.take 1 seo of {
_ => ConsonantAdjprefix G8 Pl + seo };
AAdj G9 Sg=>case Predef.take 1 seo of {
"i"|"o" => "oku" + seo;
_ => ConsonantAdjprefix G9 Sg + seo };
AAdj G9 Pl =>case Predef.take 1 seo of {
_ => ConsonantAdjprefix G9 Pl + seo };
AAdj G10 Sg=>case Predef.take 1 seo of {
_ => ConsonantAdjprefix G10 Sg + seo };
AAdj G10 Pl =>[] }};
lregA : Str-> Str -> {s : AForm => Str} = \seo,seoo -> {
s = table {
AAdj g Sg => ProunSgprefix g + seo ++ seoo;
AAdj g Pl=> ProunPlprefix g + seo ++ seoo
} } ;
iregA : Str-> Str -> {s : AForm => Str} = \seo,seoo -> {
s = table {
AAdj g Sg=> seo;
AAdj g Pl => seoo} };
regV : Str -> Verb =
\vika -> {
s = table{ True => table{
VInf => vika;
VPres g n p => Verbprefix g n p + vika;
VPast g n p => Verbprefix g n p + init vika + "ie" ;
VFut g n p => Verbfutureprefix g n p + vika
} ;
False =>table {
VInf => "ndi" + vika;
VPres g n p => neg (Ag g n p) False Pres + "na" + vika ;
VPast g n p => neg (Ag g n p) False Past + "ne" + vika ;
VFut g n p => neg (Ag g n p) False Fut + "ka" + vika
}
};
};
neg : Agr -> Bool ->Tense -> Str = \a,b,t -> let
g = getGender a;
n=getNumber a;
p=getPerson a
in case b of {True => [] ; False => negprefix g n t p} ;
negprefix : Gender -> Number -> Tense -> Person -> Str =\g,n,t,p-> case <g,n,t,p> of {
<G1,Sg,_,P1> => "ndi";
<G1,Sg,_,P2> => "ndu";
<G1,Sg,_,P3> => "ndu";
<G1,Pl,_,P1> => "twi";
<G1,Pl,_,P2> => "mwi";
<G1,Pl,_,P3> => "mai";
<G2,Sg,_,_> => "ndu";
<G2,Pl,_,_> => "i";
<G3,Sg,_,_> => "i";
<G3,Pl,_,_> => "mai";
<G4,Sg,_,_> => "ki";
<G4,Pl,_,_> => "i";
<G5,Sg,_,_> => "kai";
<G5,Pl,_,_> => "tui";
<G6,Sg,_,_> => "vai";
<G6,Pl,_,_> => "kui";
<G7,Sg,_,_> => "i";
<_,_,_,_> => "syi"
};
Verbprefix : Gender -> Number -> Person -> Str = \g, n, p ->
case <g,n,p> of {
<G1,Sg,P1> => "na" ;
<G1,Sg,P2> => "wa" ;
<G1,Sg,P3> => "wa" ;
<G1,Pl,P1> => "twa" ;
<G1,Pl,P2> => "mwa" ;
<G1,Pl,P3> => "ma" ;
<G2,Sg,_> => "wa" ;
<G2,Pl, _> => "ya" ;
<G4,Sg,_> => "kya" ;
<G4,Pl,_> => "sya" ;
<G3,Sg,_> => "ya" ;
<G3,Pl,_> => "ma" ;
<G5,Sg,_> => "ka" ;
<G5,Pl,_> => "twa" ;
<G6,Sg,_> => "va" ;
<G6,Pl,_> => "kwa" ;
<G7,Sg,_> => "ya" ;
<_,_,_> => "sya"
} ;
Verbfutureprefix : Gender -> Number -> Person -> Str = \g, n, p ->
case <g,n,p> of {
<G1,Sg,P1> => "nga" ;
<G1,Sg,P2> => "uka" ;
<G1,Sg,P3> => "uka" ;
<G1,Pl,P1> => "tuka" ;
<G1,Pl,P2> => "muka" ;
<G1,Pl,P3> => "maka" ;
<G2,Sg,_> => "uka" ;
<G2,Pl, _> => "ika" ;
<G4,Sg,_> => "kika" ;
<G4,Pl,_> => "ika" ;
<G3,Sg,_> => "ika" ;
<G3,Pl,_> => "maka" ;
<G5,Sg,_> => "kaka" ;
<G5,Pl,_> => "tuka" ;
<G6,Sg,_> => "vaka" ;
<G6,Pl,_> => "kuka" ;
<G7,Sg,_> => "ika" ;
<_,_,_> => "ika"
} ;
Cardtwelveprefix : Gender -> Str = \g ->
case <g> of {
<G1> =>"ba";
<G2> =>"ne";
<_> => "i"
} ;
CardThirteenprefix : Gender -> Str = \g ->
case <g> of {
<G1> |<G7> |<G5>=>"bat";
<G8> |<G4> |<G9> =>"at";
<G3> |<G6> =>"is";
<G2> =>"nit";
<G10> =>"at"
} ;
Cardsixprefix : Gender -> Str = \g ->
case <g> of {
<G1> =>"o";
<G7> |<G5>=>"bi";
<G2>|<G4> |<G3>|<G6> |<G8> |<G9> |<G10> =>"e"
} ;
Cardfouteenprefix : Gender -> Str = \g ->
case <g> of {
<G1> |<G7> |<G5>=>"bane";
<G8> |<G4> |<G9> =>"ane";
<G3> |<G6> =>"inye";
<G2> =>"ene";
<G10> =>"ene"
} ;
Cardfifteenprefix : Gender -> Str = \g ->
case <g> of {
<G1> =>"ba";
<G5> |<G7>=>"bi";
<G8> |<G9> |<G4> =>"a";
<G3> |<G6> =>"es";
<G2> =>"e";
<G10> =>"a"
} ;
Ordoneprefix : Gender -> Str = \g ->
case <g> of {
<G1> |<G2> =>"omo";
<G4> => "rita";
<G5> => "ege";
<G3> => "en";
<G6>=> "oro";
<G7>=> "aka";
<G8>=> "abo";
<G9>=> "oko";
< G10> => "aa"
} ;
}

2
src/egekusii/NounGus.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete NounGus of Noun =
CatGus ** NounBantu with (Structural = StructuralGus), (ResBantu = ResGus);

86
src/egekusii/NumeralGus.gf Normal file
View File

@@ -0,0 +1,86 @@
concrete NumeralGus of Numeral = CatGus [Numeral,Digits] ** open Prelude,
DiffGus,MorphoGus in {
lincat
Digit = {s : DForm => CardOrd => Gender => Str} ;
Sub10 = {s : DForm => CardOrd => Gender => Str ; n : Number} ;
Sub100 = {s : CardOrd => Gender => Str ; n : Number} ;
Sub1000 = {s : CardOrd => Gender => Str ; n : Number} ;
Sub1000000 = {s : CardOrd => Gender => Str ; n : Number} ;
lin num x = x ;
lin n2 = mkNum2 "bere" "kabere" ;
lin n3 = mkNum3 "ato" "gatatu" ;
lin n4 = mkNum4 "ne" "kane" ;
lin n5 = mkNum5 "tano" "gatano" ;
lin n6 = mkNum6 "tano" "mo";
lin n7 = mkNum7 "tano" "bere";
lin n8 = mkNum8 "tano" "tato";
lin n9 = regNum "kianda" ;
lin pot01 = mkNum1 "mo" "tang'ani" ** {n = Sg} ;
lin pot0 d = d ** {n = Pl} ;
lin pot110 = regCardOrd "ikomi" ** {n = Pl} ;
lin pot111 = regCardone "ikomi na" "mo" ** {n = Pl} ; -- creat another function to be gender specific
lin pot1to19 d = {s = d.s ! teen} ** {n = Pl} ;
lin pot0as1 n = {s = n.s ! unit} ** {n = n.n} ;
lin pot1 d = {s = d.s ! ten} ** {n = Pl} ;
lin pot1plus d e = { s = table {
NCard => \\g => d.s ! ten ! NCard ! g ++ "na"++ e.s ! unit ! NCard ! g ;
NOrd => \\g =>Ordprefix g++ d.s ! ten ! NCard ! g ++ "na"++ e.s ! unit ! NCard ! g } ;
n = Pl} ;
lin pot1as2 n = n ;
lin pot2 d = {s = d.s ! hund} ** {n = Pl} ;
lin pot2plus d e = {s = table {
NCard => \\g => d.s ! hund ! NCard ! g ++ "na" ++ e.s !NCard ! g ;
NOrd => \\g =>Ordprefix g++ d.s ! hund ! NCard ! g ++ "na" ++ e.s ! NCard ! g } ;
n = Pl} ;
lin pot2as3 n = n ;
lin pot3 n = { s = table {
NCard => \\g => mkCard NCard "chilibu" ! g ++ n.s ! NCard ! g ;
NOrd => \\g =>Ordprefix g++ mkCard NCard "chilibu" ! g ++ n.s ! NCard ! g } ;
n = Pl} ;
lin pot3plus n m = { s = table {
NCard => \\g => "chilibu" ++ n.s ! NCard !g ++ m.s ! NCard ! g ;
NOrd => \\g =>Ordprefix g++ "chilibu" ++ n.s ! NCard !g ++ m.s ! NCard ! g} ;
n = Pl} ;
-- numerals as sequences of digits0'
lincat
Dig = TDigit ;
lin
IDig d = d ;
IIDig d i = {
--s = \\o,g => d.s ! NCard ! g ++ i.s ! o ! g ;
s = table {NCard => \\g => d.s! NCard ! g ++ BIND ++ i.s ! NCard ! g ;
NOrd => \\g => d.s! NOrd! g ++ BIND ++ i.s !NCard! g } ;
n = Pl
} ;
D_0 = mkDig "0" ;
D_1 = mk3Dig "1" "1" Sg ;
D_2 = mkDig "2" ;
D_3 = mkDig "3" ;
D_4 = mkDig "4" ;
D_5 = mkDig "5" ;
D_6 = mkDig "6" ;
D_7 = mkDig "7" ;
D_8 = mkDig "8" ;
D_9 = mkDig "9" ;
oper
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c ) ;
mk3Dig : Str -> Str -> Number -> TDigit = \c,o,n -> {
s = table {NCard => \\g => c ; NOrd => \\g =>Ordprefix g ++ o} ;
n = n} ;
TDigit = {
n : Number ;
s : CardOrd => Gender => Str
} ;
}

437
src/egekusii/ParadigmsGus.gf Normal file
View File

@@ -0,0 +1,437 @@
--# -path=.:../abstract:../../prelude:../common
resource ParadigmsGus = open
(Predef=Predef),
Prelude,
MorphoGus,
ResGus,
CatGus
in {
oper
Gender : Type ;
omo_aba : Gender ;--%
omo_eme : Gender ;
e_ci : Gender ;
eri_ama : Gender ;
ege_ebi : Gender ;
oro_ci : Gender ;
aka_ebi : Gender ; --%
abo_ama : Gender ;
oko_ama : Gender ;
aa : Gender ;
-- To abstract over number names, we define the following.
Number : Type ;
singular : Number ;
plural : Number ;
-- To abstract over case names, we define the following.
Case : Type ; --%
nominative : Case ; --%
locative : Case ; --%
npNumber : NP -> Number ; -- exctract the number of a noun phrase
--2 Nouns
-- Nouns are constructed by the function $mkN$, which takes a varying
-- number of arguments.
mkN : overload {
mkN : (flash : Str) -> Gender -> N ; --regular plural
mkN : (man,men : Str) ->Gender -> N ; -- irregular plural
mkN : Str -> N -> N -- e.g. baby + boom compound noun
} ;
--3 Relational nouns
mkN2 : overload {
mkN2 : N -> Prep -> N2 ;
mkN2 : N -> Str -> N2 ;
mkN2 : N -> N2 ;
mkN2 : N -> (Gender => Number => Str)-> N2 ;
} ;
oper dfltGender : Gender = G1 ;
dfltNumber : Number = Sg ;
-- Three-place relational nouns ("the connection from x to y") need two prepositions.
mkN3 : N -> Prep -> Prep -> N3 ; -- e.g. connection from x to y
--3 Proper names and noun phrases
--
-- Proper names, with a regular genitive, are formed from strings.
mkPN : overload {
mkPN : Str ->Gender -> PN ;
-- Sometimes a common noun can be reused as a proper name, e.g. "Bank"
mkPN : N -> PN --%
} ;
--3 Determiners and quantifiers
mkOrd : Str -> Ord ; --%
--2 Adjectives
mkA : overload {
mkA : (happy : Str) -> A ;
--mkA : (happy : Str) -> A ;-- regular adj,
mkA : (fat,fatter : Str) -> A ; -- irreg.
} ;
--3 Two-place adjectives
mkA2 : overload {
mkA2 : A -> Prep -> A2 ; -- absent from
mkA2 : A -> Str -> A2 ; -- absent from --%
mkA2 : Str -> Prep -> A2 ; -- absent from --%
mkA2 : Str -> Str -> A2 -- absent from --%
} ;
--2 Adverbs
-- Adverbs are not inflected. Most lexical ones have position
-- after the verb. Some can be preverbal (e.g. "always").
mkAdv : Str -> Adv ; -- e.g. today
mkAdV : Str -> AdV ; -- e.g. always
-- Adverbs modifying adjectives and sentences can also be formed.
mkAdA : Str -> AdA ; -- e.g. quite
-- Adverbs modifying numerals
mkAdN : Str -> AdN ; -- e.g. approximately
--2 Prepositions
mkPrep : overload {
mkPrep : Str -> Prep ;
-- mkPrep : Str -> Str -> Prep ;
mkPrep : (Gender => Number => Str) -> Prep ;
} ;
noPrep : Prep ; -- no preposition
-- (These two functions are synonyms.)
--2 Conjunctions
--
mkConj : overload {
mkConj : Str -> Conj ; -- and (plural agreement) --%
mkConj : Str -> Number -> Conj ; -- or (agrement number given as argument) --%
mkConj : Str -> Str -> Conj ; -- both ... and (plural) --%
mkConj : Str -> Str -> Number -> Conj ; -- either ... or (agrement number given as argument) --%
} ;
--2 Verbs
--
-- Verbs are constructed by the function $mkV$, which takes a varying
-- number of arguments.
mkV : overload {
mkV : (cry : Str) -> V ; -- regular, incl. cry-cries, kiss-kisses etc
mkV : Str -> V -> V ; -- fix compound, e.g. under+take
};
--3 Two-place verbs
--
-- Two-place verbs need a preposition, except the special case with direct object.
-- (transitive verbs). Notice that a particle comes from the $V$.-}
mkV2 : overload {
mkV2 : Str -> V2 ; -- kill --%
mkV2 : V -> V2 ; -- transitive, e.g. hit
mkV2 : V -> Prep -> V2 ; -- with preposiiton, e.g. believe in
mkV2 : V -> Str -> V2 ; -- believe in --%
mkV2 : Str -> Prep -> V2 ; -- believe in --%
mkV2 : Str -> Str -> V2 -- believe in --%
};
--3 Three-place verbs
--
-- Three-place (ditransitive) verbs need two prepositions, of which
-- the first one or both can be absent.
mkV3 : overload {
mkV3 : V -> V3 ; -- ditransitive, e.g. give,_,_
mkV3 : V -> Prep -> Prep -> V3 ; -- two prepositions, e.g. speak, with, about
mkV3 : V -> Prep -> V3 ; -- give,_,to --%
mkV3 : V -> Str -> V3 ; -- give,_,to --%
mkV3 : Str -> Str -> V3 ; -- give,_,to --%
mkV3 : Str -> V3 ; -- give,_,_ --%
};
--2 Other categories
mkSubj : Str -> Subj = \s -> lin Subj {s = s} ; --%
mkInterj : Str -> Interj
= \s -> lin Interj (ss s) ;
--.
--2 Definitions of paradigms
--
-- The definitions should not bother the user of the API. So they are
-- hidden from the document.
Gender = MorphoGus.Gender ;
Number = MorphoGus.Number ;
Case = MorphoGus.NPCase ;
omo_aba = G1 ;
omo_eme = G2 ;
e_ci = G3 ;
eri_ama = G4 ;
ege_ebi = G5 ;
oro_ci = G6 ;
aka_ebi = G7 ;
abo_ama = G8 ;
oko_ama = G9 ;
aa = G10 ;
singular = Sg ;
plural = Pl ;
nominative = npNom ;
locative = npLoc ;
npNumber np = (agrFeatures np.a).n ;
regN = MorphoGus.regN ;
iregN = MorphoGus.iregN ;
compoundN s n = lin N {s = \\x,y => s ++ n.s ! x ! y ; g=n.g} ;
mkPN = overload {
mkPN : Str -> Gender -> PN = regPN;
mkPN : N -> PN = nounPN
} ;
mkN2 = overload {
mkN2 : N -> Prep -> N2 = prepN2 ;
mkN2 : N -> Str -> N2 = \n,s -> prepN2 n (mkPrep s);
mkN2 : N -> N2 = \n -> prepN2 n (mkPrep mkPrepof ) ;
mkN2 : N -> (Number =>Gender => Str)-> N2= \n,s -> prepN2 n (mkPrep mkPrepof) ;
} ;
prepN2 = \n,p -> lin N2 (n ** {c2 = p}) ;
regN2 = \n -> (prepN2 n (mkPrep mkPrepof )) ;
mkN3 = \n,p,q -> lin N3 (n ** {c2 = p ; c3 = q}) ;
mkPrepof : Number => Gender => Str =
table Number { Sg => table {
G1| G2 => "bwo" ;
G3 => "ya";
G4 => "ria";
G5 => "kia"; --
G6 => "rwa";
G7 => "ka";
G8 => "bwa";
G9 => "kwa";
G10 => "a"
};
Pl => table { G1 => "ba" ;
G2 => "ya" ;
G3|G6 => "cia";
G4 |G8|G9|G10 => "a";
G5 => "bi"; --
G7 => "bia"} } ;
cnN2 : CN -> Prep -> N2 ;
cnN3 : CN -> Prep -> Prep -> N3 ;
-- This is obsolete.
cnN2 = \n,p -> lin N2 (n ** {c2 = p}) ;
cnN3 = \n,p,q -> lin N3 (n ** {c2 = p ; c3 = q}) ;
regPN n g = lin PN {s = table {Loc => "" ; _ => n} ; g = g} ;
nounPN n = lin PN {s = n.s ! singular ; g = n.g} ;
mkOrd : Str -> Ord = \x -> lin Ord { s =\\g => x};
prepA2 a p = lin A2 (a ** {c2 = p.s!Sg!G1}) ;
mkAdv x = lin Adv (ss x) ;
mkAdV x = lin AdV (ss x) ;
mkAdA x = lin AdA (ss x) ;
mkAdN x = lin AdN (ss x) ;
mkPrep = overload {
mkPrep : Str -> Prep = \str -> lin Prep {s = \\n,g => str } ;
mkPrep : (Number => Gender => Str) -> Prep = \t ->lin Prep {s = t} ;
} ;
noPrep = mkPrep [] ;
{-} mkPrep : Str -> Str -> Prep = \p,q -> lin Prep
{s = table{Sg => table{G1 => p; _=> "" };
Pl => table{G1 => q; _=> ""}}} ;
prepV2 : V -> Prep -> V2 ;
prepV2 = \v,p -> lin V2 (v ** {c2 = p.s!Sg!G1}) ;
dirV2 : V -> V2 = \v -> prepV2 v noPrep ;
prepPrepV3 v p q = lin V3 (v ** {c2 = p ; c3 = q}) ;
dirV3 v p = prepPrepV3 v noPrep p ;
dirdirV3 v = dirV3 v noPrep ;
mkA2V : A -> Prep -> Prep -> A2V;
A2S, A2V : Type = A2 ;
mkA2V v p q = mkA2 v p ** {s3 = q.p2 ; c3 = q.p1 ; lock_A2V = <>} ;
mkAV v = v ** { lock_AV = <>} ;
mkAV : A -> AV ;
AS, AV : Type = A ;
mkAS : A -> AS ;
mkAS v = v ** {lock_AS = <>} ;
mkVS : V -> VS ;
mkVS v = v ** { lock_VS = <>} ;
mkVQ : V -> VQ ;
mkVQ v = v ** {lock_VQ = <>} ;
-- mkVV : V -> VV ;
-- mkVV v = v ** { lock_VV = <>} ;
mkVA : V -> VA ;
mkVA v = v ** {lock_VA = <>} ;
mkV2V : V -> Prep -> Prep -> V2V ;
mkV2V v p q = prepPrepV3 v p q ** {lock_V2V = <>} ;
mkV2S : V -> Prep -> V2S ;
mkV2S v p = prepV2 v p ** { lock_V2S = <>} ;
mkV2Q : V -> Prep -> V2Q ;
mkV2Q v p = prepV2 v p ** {lock_V2Q = <>} ;
mkV2A : V -> Prep -> Prep -> V2A ;
mkV2A v p q = prepPrepV3 v p q ** {lock_V2A = <>} ;
mkV0 : V -> V0 ;
V0 : Type ;
V0 : Type = V;
mkV0 v = v ** {lock_V0 = <>} ;
-}
-- pre-overload API and overload definitions
-- regN : Str ->Gender -> N ;
--iregN : (man,men : Str) ->Gender -> N ;
compoundN : Str -> N -> N ;
mkN = overload {
mkN : Str ->Gender -> N = \n, g -> lin N (regN n g );
mkN : (man,men : Str) ->Gender -> N = \s,p,g -> lin N ( iregN s p g) ;
} ;
--mkN : Str -> N -> N = compoundN taken from mkN can be added later if need be
-- Relational nouns ("daughter of x") need a preposition.
prepN2 : N -> Prep -> N2 ;
-- The most common preposition is "of", and the following is a
-- shortcut for regular relational nouns with "of".
regN2 : N -> N2 ;
-- iregA : (free,freely : Str) -> A ;
regA : Str -> A = \s -> lin A (MorphoGus.regA s) ;
-- pregA : Str -> A = \s -> lin A (MorphoGus.pregA s) ;
iregA : (fat,fatter : Str) -> A =\a,b -> lin A (MorphoGus.iregA a b);
mkA = overload {
mkA : Str -> A = \a -> lin A (regA a);-- |lin A (pregA a) ;
mkA : (fat,fatter : Str) -> A =\a,b -> lin A (iregA a b);
} ;
prepA2 : A -> Prep -> A2 ;
mkA2 = overload {
mkA2 : A -> Prep -> A2 = prepA2 ;
mkA2 : A -> Str -> A2 = \a,p -> prepA2 a (mkPrep p) ;
mkA2 : Str -> Prep -> A2 = \a,p -> prepA2 (regA a) p;
mkA2 : Str -> Str -> A2 = \a,p -> prepA2 (regA a) (mkPrep p);
} ;
{-}
regV=MorphoGus.regV ;
mkV = overload {
mkV : Str -> V =\v ->lin V(regV v) ;
mkV : Str -> V -> V = prefixV
};
prefixV : Str -> V -> V = \p,v -> lin V { s = \\b,vform => p + v.s! b ! vform } ;
mkV2 = overload {
mkV2 : V -> V2 = dirV2 ;
mkV2 : Str -> V2 = \s -> dirV2 (regV s) ;
mkV2 : V -> Prep -> V2 = prepV2;
mkV2 : V -> Str -> V2 = \v,p -> prepV2 v (mkPrep p) ;
mkV2 : Str -> Prep -> V2 = \v,p -> prepV2 (regV v) p ;
mkV2 : Str -> Str -> V2 = \v,p -> prepV2 (regV v) (mkPrep p)
};
prepPrepV3 : V -> Prep -> Prep -> V3 ;
dirV3 : V -> Prep -> V3 ;
dirdirV3 : V -> V3 ;
mkV3 = overload {
mkV3 : V -> Prep -> Prep -> V3 = prepPrepV3 ;
mkV3 : V -> Prep -> V3 = dirV3 ;
mkV3 : V -> Str -> V3 = \v,s -> dirV3 v (mkPrep s);
mkV3 : Str -> Str -> V3 = \v,s -> dirV3 (regV v) (mkPrep s);
mkV3 : V -> V3 = dirdirV3 ;
mkV3 : Str -> V3 = \v -> dirdirV3 (regV v) ;
} ;
-}
mkConj = overload {
mkConj : Str -> Conj = \y -> mk2Conj [] y plural ;
mkConj : Str -> Number -> Conj = \y,n -> mk2Conj [] y n ;
mkConj : Str -> Str -> Conj = \x,y -> mk2Conj x y plural ;
mkConj : Str -> Str -> Number -> Conj = mk2Conj ;
} ;
mk2Conj : Str -> Str -> Number -> Conj = \x,y,n ->
lin Conj (sd2 x y ** {n = n}) ;
regPN : Str ->Gender -> PN ;
nounPN : N -> PN ;
}

3
src/egekusii/PhraseGus.gf Normal file
View File

@@ -0,0 +1,3 @@
concrete PhraseGus of Phrase = CatGus ** PhraseBantu with
(ResBantu = ResGus);

2
src/egekusii/QuestionGus.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete QuestionGus of Question = CatGus ** QuestionBantu with
(ResBantu = ResGus);

2
src/egekusii/RelativeGus.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete RelativeGus of Relative = CatGus ** RelativeBantu with
(ResBantu = ResGus);

7
src/egekusii/ResGus.gf Normal file
View File

@@ -0,0 +1,7 @@
--# -path=.:../abstract:../common:../../prelude
instance ResGus of ResBantu = DiffGus, CommonBantu ** open Prelude in {
} ;

3
src/egekusii/SentenceGus.gf Normal file
View File

@@ -0,0 +1,3 @@
concrete SentenceGus of Sentence = CatGus ** SentenceBantu with
(ResBantu = ResGus);

236
src/egekusii/StructuralGus.gf Normal file
View File

@@ -0,0 +1,236 @@
concrete StructuralGus of Structural = CatGus **
open MorphoGus, ParadigmsGus,
(C = ConstructX), Prelude in {
flags optimize=all ;
lin
above_Prep = mkPrep "igoro" ;
after_Prep = mkPrep "itina" ;
all_Predet = {s = \\g => MorphoGus.Allpredetprefix g + "onsi"} ;
almost_AdA = mkAdA "ang'e " ;
almost_AdN = mkAdN "vakuvi " ;
although_Subj = ss "ona kau" ;
always_AdV = mkAdV "botambe " ;
and_Conj = mkConj "na" ;
because_Subj = ss "nundu" | ss "ni kwithiwa" ;
before_Prep = mkPrep "mbee" |mkPrep "vau mbeange" ;
behind_Prep = mkPrep "itina" ;
between_Prep = mkPrep "kati" ;
both7and_DConj = mkConj "eli" "na";
but_PConj = ss "korende" ;
by8agent_Prep = mkPrep "kwa" ;
by8means_Prep = mkPrep "kwa" ;
during_Prep = mkPrep "during" ;
either7or_DConj = mkConj "kana" singular ;
everybody_NP = regNP "kila umwe" G1 singular ;
every_Det = {s = table {Obj g => "" ;
Sub => "kila" };
n= Sg
} ;
-- mkDeterminerSpec singular "every" "everyone" False ;
everything_NP = regNP "ase oboamo" G1 singular ; --gender confirm
everywhere_Adv = mkAdv "ase oboamo" ;
few_Det = {s = table {Obj g => Few_prefix g + "nini" ;
Sub => [] };
n= Pl
} ;
-- mkDeterminer plural "few" ;
--- first_Ord = ss "first" ; DEPRECATED
for_Prep = mkPrep "aera" ;
from_Prep = mkPrep "kuma" ;
he_Pron = mkPron "ere" "je" G1 Sg P3 ;
here_Adv = mkAdv "vaa" ;
here7to_Adv = mkAdv ["kuvika vaa"] ;
here7from_Adv = mkAdv ["kuma vaa"] ;
how_IAdv = ss "ata" | ss "nzia myau" ;
how8much_IAdv = ss "mala meana" ;
--how8many_IDet = mkDeterminer plural ["mala meana"] ;
if_Subj = ss "enthwa" ;
in8front_Prep = mkPrep ["mbee wa"] ;
i_Pron =mkPron "inche" "ne" G1 Sg P1 ;
in_Prep = mkPrep "in" ;
it_Pron ={ s=\\c=>"yo"; poss=\\n,g=> ""; a=Ag G4 Sg P3};-- mkPron "yo" ""G4 Sg P3 ;
less_CAdv = C.mkCAdv "ninangi" "kwi" ;
much_Det, many_Det = { s = table {
Obj g => Many_prefix g + "nge" ;
Sub => []} ;
n= Pl
} ;
more_CAdv = C.mkCAdv "mbeange" "kwi" ; -- more should be a function beccause og Gender
-- most_Predet = {s = \\g => MorphoGus.Mostpredetprefix g + "ingi"} ;
{-} must_VV = {
s = table {
VVF VInf => ["have to"] ;
VVF VPres => "must" ;
VVF VPPart => ["had to"] ;
VVF VPres2Part => ["having to"] ;
VVF VPast => ["had to"] ; --# notpresent
VVPastNeg => ["hadn't to"] ; --# notpresent
VVPresNeg => "mustn't"
} ;
p = [] ;
typ = VVAux
} ; -}
---b no_Phr = ss "no" ;
no_Utt = ss "yaya" ;
on_Prep = mkPrep "iulu wa" ;
---- one_Quant = mkDeterminer singular "one" ; -- DEPRECATED
only_Predet = {s = \\g => "tu" } ;
or_Conj = mkConj "kana" singular ;
otherwise_PConj = ss "otherwise" ;
--part_Prep = mkPrep "" ;
please_Voc = ss "ame" ;
part_Prep, possess_Prep = let
questo : ParadigmsGus.Number => MorphoGus.Gender => Str = table {
Sg => \\g=> case <g> of {
<G1>| <G2 > => "bwo" ;
<G3 > => "ya";
<G4 > => "ria";
<G5 > => "kia"; --
<G6 > => "rwa";
<G7> => "ka";
<G8> => "bwa";
<G9> => "kwa";
<G10> => "a"
};
Pl => \\g=> case <g> of{
<G1> => "ba" ;
<G2 > => "ya" ;
<G3 >|<G6 > => "cia";
<G4 > |<G8>|<G9>|<G10> => "a";
<G5 > => "bi"; --
<G7> => "bia"
}
}
in { s= questo} ;
quite_Adv = mkAdv "o muno" ;
she_Pron = mkPron "ere" "je" G1 Sg P3 ;
so_AdA = mkAdA "so" ;
somebody_NP = regNP " o mundu " G1 singular ;
someSg_Det = { s = table {Obj g => Some_prefix g ;
Sub => [] } ;
n= Sg
} ;
somePl_Det = {s = table {Obj g => Some_prefix g ;
Sub => [] };
n= Pl
} ;
something_NP = regNP "o kindu" G1 singular ; --confirm gender
somewhere_Adv = mkAdv "o vandu" ;
that_Quant = let
questo : ParadigmsGus.Number => MorphoGus.Gender => Str = table {
Sg => \\g=> case <g> of {
<G1> => "aria";
<G2> => "oria";
<G4> => "riira";
<G5> => "keria";
<G3> => "eria";
<G6> => "roria";
<G7> => "karia";
<G8> => "boria";
<G9> => "koria";
<G10> => "aria"
};
Pl => \\g=> case <g> of{
<G1> => "baria" |"abuo";
<G2> => "eria"|"eyio";
<G4> | <G8> => "aria"|"ayio"; --confirm gendder 8
<G5> => "baria" |"ebio";
<G3> | <G6> => "ciria"|"ecio";
<G7> => "biiraa" |"ebio";
<G9> => "aria" |"eyio";
<G10> => "ayio"
}
}
in {
s = questo ;
} ;
there_Adv = mkAdv "vau" ;
there7to_Adv = mkAdv "vau" ;
there7from_Adv = mkAdv ["kuma vau"] ;
therefore_PConj = ss "kwoou" ;
they_Pron =mkPron "barabwo" "bo" G1 Pl P3 ;
this_Quant = let
questo : ParadigmsGus.Number => MorphoGus.Gender => Str = table {
Sg => \\g=> case <g> of {
<G1> => "oyo";
<G2> => "oyo";
<G4> => "eri";
<G5> => "eke";
<G3> => "eye";
<G6> => "oro";
<G7> => "aka";
<G8> => "obo";
<G9> => "oko";
<G10> => "aa"
};
Pl => \\g=> case <g> of{
<G1> => "aba";
<G2> => "eye";
<G4> => "aya";
<G5> |<G7> => "ebi";
<G3> |<G6> => "eci";
<G8> |<G9> => " aya";
<G10> => "aa"
}
}
in {
s = questo ;
} ;
through_Prep = mkPrep "kuvitila" ;
too_AdA = mkAdA "too" ;
to_Prep = mkPrep "kuvika" ;
under_Prep = mkPrep "itheo" ;
very_AdA = mkAdA "muno" ;
-- want_VV = mkVV (regV "enda") ;
we_Pron =mkPron "intwe" "ito" G1 Pl P1 ;
--whatPl_IP = mkIP "ata" "ata" plural ;
-- whatSg_IP = mkIP "ata" "ata" singular ;
when_IAdv = ss "when" ;
when_Subj = ss "when" ;
where_IAdv = ss "where" ;
which_IQuant = {s = \\_ => "which"} ;
---b whichPl_IDet = mkDeterminer plural ["which"] ;
---b whichSg_IDet = mkDeterminer singular ["which"] ;
-- whoPl_IP = mkIP "uu" "whom" "whose" plural ;
-- whoSg_IP = mkIP "who" "whom" "whose" singular ;
why_IAdv = ss "why" ;
without_Prep = mkPrep "nza" ;
with_Prep = mkPrep "vamwe na" ;
--yes_Phr = ss "ii" ;
yes_Utt = ss "eee" ;
youSg_Pron = mkPron "aye" "o" G1 Sg P2 ;
youPol_Pron,youPl_Pron = mkPron "inwe" "no" G1 Pl P3 ;
not_Predet = {s = \\g => "nongi"} ;
--no_Quant = {s = \\g,n => nonExist} ;
if_then_Conj = mkConj "ethiwa" "indi" singular ;
nobody_NP = regNP "obosa" G1 singular ;
nothing_NP = regNP "obosa" G1 singular ; --confirm gender
at_least_AdN = mkAdN "at least" ;
at_most_AdN = mkAdN "at most" ;
except_Prep = mkPrep "ate o" ;
as_CAdv = C.mkCAdv "nundu" "ta" ;
-- have_V2 = dirV2 (mk5V "have" "has" "had" "had" "having") ;
that_Subj = ss "ati" ;
lin language_title_Utt = ss "egekusii" ;
}

2
src/egekusii/VerbGus.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete VerbGus of Verb = CatGus ** VerbBantu with
(ResBantu = ResGus);