GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-22 01:36:20 -06:00
Code Issues Packages Projects Releases Wiki Activity
Files
a5f3e9ebd29230a782175a398fd0af0fbef4df2a
gf-rgl/src/swahili/MorphoSwa.gf
Inari Listenmaa abf0ec17fb (Swa) Rename Kiswahili to Swahili
2020-06-05 21:22:24 +02:00

352 lines
12 KiB
Plaintext
Raw Blame History

--# -path=.:../../prelude
--1 Kiswahili morphology Resource Morphology
--
-- Benson Kituku 2017-2018
resource MorphoSwa = CommonBantu ,ResSwa
** open Prelude, Predef
in {
flags optimize=all ;
oper
Many_prefix : Gender -> Str = \g ->
case <g> of {
<G1> => "we" ;
<G2> => "mi" ;
<G10> => "nyi" ;
<G11> => "pe" ;
<G12> => "kwi" ;
<G4> => "vi" ;
<G5>|<G6> => "nyi" ;
<G7> |<G13> => "mwi" ;
<G3>|<G8> |<G9> => "me"
} ;
Few_prefix : Gender -> Str = \g ->
case <g> of {
<G1> => "wa" ;
<G2> => "mi" ;
<G10> => "" ;
<G11> => "pa" ;
<G12> => "ku" ;
<G4> => "vi" ;
<G5>|<G6> => "" ;
<G7> |<G13> => "m" ;
<G3>|<G8> |<G9> => "ma"
} ;
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"
} ;
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"
} ;
mkNum : Str -> Str -> {s : DForm => CardOrd => Gender => Str} =
\two, second ->
{s = table {
unit => table {NCard =>\\g => Cardprefix g + two ;
NOrd => \\g => Ordprefix g ++ two} ;
teen => table {NCard =>\\g =>"kumi na" ++ Cardprefix g + two ;
NOrd => \\g => Ordprefix g ++ "kumi na" ++ Cardprefix g + two} ;
ten => table {NCard =>\\g =>second ++"na" ++ Cardprefix g + two ;
NOrd => \\g => Ordprefix g ++ second ++"na" ++ Cardprefix g + two};
hund => table {NCard =>\\g =>"mia " ++ two ;
NOrd => \\g => Ordprefix g ++ "mia " ++ two }
}
} ;
mkNumn : Str -> Str -> Str -> {s : DForm => CardOrd => Gender => Str} =
\two, twelve, second ->
{s = table {
unit => table {NCard =>\\g => Cardtwoprefix g + two ;
NOrd => \\g => Ordprefix g ++ second} ;
teen => table {NCard =>\\g =>"kumi na" ++ Cardtwoprefix g + two;
NOrd => \\g => Ordprefix g ++ "kumi na" ++ Cardtwoprefix g + two} ;
ten => table {NCard =>\\g =>twelve ;
NOrd => \\g => Ordprefix g ++ twelve};
hund => table {NCard =>\\g =>"mia mb " + two ;
NOrd => \\g => Ordprefix g ++ "mia mb" + two}
}
} ;
mkNume : Str -> Str -> {s : DForm => CardOrd => Gender => Str} =
\two, second ->
{s = table {
unit => table {NCard =>\\g => Cardoneprefix g + two ;
NOrd => \\g => Ordprefix g ++ second} ;
teen => table {NCard =>\\g =>"kumi na" ++ Cardoneprefix g + two ;
NOrd => \\g => Ordprefix g ++ "kumi na" ++ Cardoneprefix g + two} ;
ten => table {NCard =>\\g =>"kumi" ;
NOrd => \\g => Ordprefix g ++ "kumi"};
hund => table {NCard =>\\g =>"mia " ++ two ;
NOrd => \\g => Ordprefix g ++ "mia" ++ two}
}
} ;
regNum : Str ->Str -> {s : DForm => CardOrd => Gender => Str} =
\six,sixth -> {s = table {
unit => table {NCard =>\\g => six ;
NOrd => \\g => Ordprefix g ++ six} ;
teen => table {NCard =>\\g =>"kumi na" ++ six ;
NOrd => \\g => Ordprefix g ++ "kumi na" ++ six} ;
ten => table {NCard =>\\g =>sixth ++"na" ++ six ;
NOrd => \\g => Ordprefix g ++ sixth ++"na" ++ six };
hund => table {NCard =>\\g =>"mia " ++ six ;
NOrd => \\g => Ordprefix g ++ "mia" ++ 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 wpl = case g of {
G1=>case w of {
"mwa" + _ => PrefixPlNom G1 + Predef.drop 3 w ;
"mwi" + _ => "we" + Predef.drop 3 w ;
"ki" + _ => PrefixPlNom G4 + Predef.drop 2 w ;
"m" + _ => PrefixPlNom G1 + Predef.drop 1 w ;
_ => w };
G2=>case w of {
"mw" + _ => PrefixPlNom G2 + Predef.drop 2 w ;
"mu" + _ => PrefixPlNom G2 + Predef.drop 2 w ;
_ => PrefixPlNom G2 + Predef.drop 1 w };
G4=> case w of {
"ki" + _ => PrefixPlNom G4 + Predef.drop 2 w ;
"ch" + _ => "vy" + Predef.drop 2 w ;
_ => w };
G6 |G8 => PrefixPlNom g + Predef.drop 1 w;
G11 |G12|G13 => "" ;
_ => PrefixPlNom g + w };
in iregN w wpl g ;
iregN :Str-> Str ->Gender -> Noun= \man,men,g -> { -- for irregular noun
s = table{Sg => table{Nom => man ;
Loc=> man + "ni" | men + "ni" };
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"|"o"|"u" => VowelAdjprefix G1 Sg + seo;
_ => ConsonantAdjprefix G1 Sg + seo };
AAdj G1 Pl =>case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G1 Pl + seo;
"i" => VoweliAdjprefix G1 Pl + seo;
_ => ConsonantAdjprefix G1 Pl + seo };
AAdj G2 Sg=>case Predef.take 1 seo of {
"a"|"e"|"i"|"o"|"u" => VowelAdjprefix G2 Sg + seo;
_ => ConsonantAdjprefix G2 Sg + seo };
AAdj G2 Pl =>case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G2 Pl + seo;
"i" => VoweliAdjprefix G2 Pl + seo;
_ => ConsonantAdjprefix G2 Pl + seo };
AAdj G3 Sg=>case Predef.take 1 seo of {
"a"|"e"|"i"|"o"|"u" => VowelAdjprefix G3 Sg + seo;
_ => ConsonantAdjprefix G3 Sg + seo };
AAdj G3 Pl =>case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G3 Pl + seo;
"i" => VoweliAdjprefix G3 Pl + seo;
_ => ConsonantAdjprefix G3 Pl + seo };
AAdj G4 n =>case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G4 n + seo;
"i" => VoweliAdjprefix G4 n + seo;
_ => ConsonantAdjprefix G4 n + seo };
AAdj G5 n => case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G5 n + seo;
"i" => "ny" + Predef.drop 1 seo;
"d"|"g"|"z" => "n" + seo;
"b"|"p"|"v" => "m" + seo;
_ => ConsonantAdjprefix G5 n + seo };
AAdj G6 Sg=>case Predef.take 1 seo of {
"a"|"e"|"i"|"o"|"u" => VowelAdjprefix G6 Sg + seo;
_ => ConsonantAdjprefix G6 Sg + seo };
AAdj G6 Pl =>case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G6 Pl + seo;
"i" => "ny" + Predef.drop 1 seo;
"d"|"g"|"z" => "n" + seo;
"b"|"p"|"v" => "m" + seo;
_ => ConsonantAdjprefix G6 Pl + seo };
AAdj G7 n =>case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G7 n + seo;
"i" => VoweliAdjprefix G7 n + seo;
_ => ConsonantAdjprefix G7 n + seo };
AAdj G8 n =>case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G8 n + seo;
"i" => VoweliAdjprefix G8 n + seo;
_ => ConsonantAdjprefix G8 n + seo };
AAdj G9 n =>case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G9 n + seo;
"i" => VoweliAdjprefix G9 n + seo;
_ => ConsonantAdjprefix G9 n + seo };
AAdj G10 n =>case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G9 n + seo;
"i" => VoweliAdjprefix G9 n + seo;
_ => ConsonantAdjprefix G9 n + seo };
AAdj G11 Sg=>case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G11 Sg + seo;
"i" => VoweliAdjprefix G11 Sg + seo;
_ => ConsonantAdjprefix G11 Sg + seo };
AAdj G12 Sg=>case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G12 Sg + seo;
"i" => VoweliAdjprefix G12 Sg + seo;
_ => ConsonantAdjprefix G12 Sg + seo };
AAdj G13 Sg=>case Predef.take 1 seo of {
"a"|"e"|"o"|"u" => VowelAdjprefix G13 Sg + seo;
"i" => VoweliAdjprefix G13 Sg + seo;
_ => ConsonantAdjprefix G13 Sg + seo };
AAdj _ Pl =>[] }};
iregA : Str-> Str -> {s : AForm => Str} = \seo,seoo -> {
s = table {
AAdj g Sg=> seo;
AAdj g Pl => seoo} };
cregA : Str-> {s : AForm => Str} = \seo -> {
s = table {
AAdj g Sg => ProunSgprefix g + "a" ++"rangi" ++"ya" ++ seo;
AAdj g Pl=> ProunPlprefix g + "a" ++"rangi" ++"ya" ++ seo} } ;
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"
} ;
}
Reference in New Issue View Git Blame Copy Permalink