mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-27 03:46:29 -06:00
(Som) Add the structure and placeholders for Somali RG
This commit is contained in:
Inari Listenmaa
@@ -0,0 +1,438 @@
|
||||
resource ResSom = ParamSom ** open Prelude, Predef, ParamSom in {
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Nouns
|
||||
oper
|
||||
|
||||
Noun : Type = {s : NForm => Str ; g : Gender} ;
|
||||
Noun2 : Type = Noun ** {c2 : Preposition} ;
|
||||
Noun3 : Type = Noun2 ** {c3 : Preposition} ;
|
||||
|
||||
CNoun : Type = Noun ** {mod : Number => Case => Str ; hasMod : Bool} ;
|
||||
|
||||
PNoun : Type = {s : Str ; a : Agreement} ;
|
||||
|
||||
mkPNoun : Str -> Agreement -> PNoun = \str,agr -> {s = str ; a = agr} ;
|
||||
|
||||
mkNoun : (x1,_,_,x4 : Str) -> Gender -> Noun = \wiil,wiilka,wiilal,wiilasha,gender ->
|
||||
let bisadi = case gender of
|
||||
{ Fem => case wiil of { _ + #c => wiil+"i" ; _ => wiil} ;
|
||||
Masc => wiil } ;
|
||||
bisadood = case gender of
|
||||
{ Fem => case wiilal of { _ + "o" => wiilal+"od" ; _ => wiil} ;
|
||||
Masc => wiil } ;
|
||||
defStems : Str -> Vowel => Str = \s -> case s of {
|
||||
ilk + "aha" =>
|
||||
table { A => ilk+"ah" ;
|
||||
E => ilk+"eh" ;
|
||||
I => ilk+"ih" ;
|
||||
O => ilk+"oh" ;
|
||||
U => ilk+"uh"
|
||||
} ;
|
||||
_ => table { _ => init s }
|
||||
} ;
|
||||
|
||||
in { s = table {
|
||||
Indef Sg => wiil ;
|
||||
Indef Pl => wiilal ;
|
||||
IndefNom => bisadi ;
|
||||
Numerative => bisadood ;
|
||||
Def Sg vow => defStems wiilka ! vow ;
|
||||
Def Pl vow => defStems wiilasha ! vow } ;
|
||||
g = gender } ;
|
||||
|
||||
-------------------------
|
||||
-- Regular noun paradigms
|
||||
nHooyo, nAabbe, nMas, nUl, nGuri, nXayawaan : Str -> Noun ;
|
||||
|
||||
--1) Feminine nouns that end in -o
|
||||
nHooyo hooyo =
|
||||
mkNoun hooyo (init hooyo + "ada") (hooyo + "oyin") (hooyo + "oyinka") Fem ;
|
||||
|
||||
--2) Masculine nouns that end in -e
|
||||
nAabbe aabbe = let aabb = init aabbe in
|
||||
mkNoun aabbe (aabb + "aha") (aabb + "ayaal") (aabb + "ayaasha") Masc ;
|
||||
|
||||
-- 3) Masculine, plural with duplication
|
||||
nMas mas = let s = last mas ;
|
||||
ka = allomorph mKa mas ;
|
||||
ta = allomorph mTa mas ;
|
||||
sha = case ta of {"sha" => ta ; _ => s + ta } in
|
||||
mkNoun mas (mas + ka) (mas + "a" + s) (mas + "a" + sha) Masc ;
|
||||
|
||||
-- 4a) Feminine, plural with ó
|
||||
nUl ul = let o = case last ul of { "i" => "yo" ; _ => "o" } ;
|
||||
u = case last ul of { "l" => init ul ; _ => ul } ;
|
||||
sha = allomorph mTa ul in
|
||||
mkNoun ul (u + sha) (ul + o) (ul + "aha") Fem ;
|
||||
|
||||
-- 4b) Masculine, plural with ó, 2 syllables
|
||||
nGuri guri = let o = allomorph mO guri ;
|
||||
ga = allomorph mKa guri ;
|
||||
gury = case last guri of { -- TODO does this generalise? Or just exception?
|
||||
"i" => init guri + "y" ;
|
||||
_ => guri } in
|
||||
mkNoun guri (guri + ga) (gury + o) (gury + "aha") Masc ;
|
||||
|
||||
-- 4c) Masculine, plural with -ó, 3 syllables or longer
|
||||
nXayawaan x = let ka = allomorph mKa x ;
|
||||
o = allomorph mO x ;
|
||||
xo = x + o in
|
||||
mkNoun x (x + ka) xo (init xo + "ada") Masc ;
|
||||
|
||||
nMaalin : (_,_ : Str) -> Gender -> Noun = \maalin,maalmo,g ->
|
||||
let ta = case g of { Masc => allomorph mKa maalin ;
|
||||
Fem => allomorph mTa maalin } ;
|
||||
aha = case g of { Masc|Fem => "aha" } ; ---- ?
|
||||
in mkNoun maalin (maalin + ta) maalmo (init maalmo + aha) g ;
|
||||
|
||||
-------------------------
|
||||
-- Smart paradigm
|
||||
-- Substantiv som slutar på –o/–ad är så gott som alltid feminina, t.ex. qaáddo sked, bisád katt.
|
||||
-- Substantiv som slutar på –e är så gott som alltid maskulina, t.ex. dúbbe hammare, fúre nyckel.
|
||||
-- För övriga ord säger ordets form dessvärre väldigt lite om ordets genus. Däremot kan betoningens plats i ordet väldigt ofta avslöja ordets genus. Man kan alltså i flesta fall höra vilket genus ett substantiv har.
|
||||
|
||||
mkN1 : Str -> Noun = \n -> case n of {
|
||||
_ + ("ad"|"adh") => nUl n ;
|
||||
_ + "o" => nHooyo n ;
|
||||
_ + "e" => nAabbe n ;
|
||||
_ + "ri" => nGuri n ;
|
||||
(#c + #v + #v + #c) -- One syllable words
|
||||
| (#v + #v + #c)
|
||||
| (#c + #v + #c)
|
||||
| (#v + #c) => nMas n ;
|
||||
_ => nXayawaan n } ;
|
||||
|
||||
mkNg : Str -> Gender -> Noun = \n,g -> case n of {
|
||||
_ + ("r"|"n"|"l"|"g")
|
||||
=> case g of {
|
||||
Fem => nUl n ;
|
||||
Masc => mkN1 n } ;
|
||||
_ => mkN1 n
|
||||
} ; -- TODO: add more exceptional cases
|
||||
|
||||
---------------------------------------------
|
||||
-- NP
|
||||
|
||||
BaseNP : Type = {
|
||||
a : Agreement ;
|
||||
isPron : Bool ;
|
||||
sp : Str } ;
|
||||
|
||||
NounPhrase : Type = BaseNP ** {s : Case => Str} ;
|
||||
|
||||
useN : Noun -> CNoun ** BaseNP = \n -> n **
|
||||
{ mod = \\_,_ => [] ; hasMod = False ;
|
||||
a = Sg3 n.g ; isPron = False ; sp = []
|
||||
} ;
|
||||
--------------------------------------------------------------------------------
|
||||
-- Pronouns
|
||||
-- De somaliska possessiva pronomenen, precis som de svenska, har två olika genusformer i singular och en enda form i plural.
|
||||
-- ägaren då det ägda föremålet är
|
||||
-- m.sg. f.sg.plural
|
||||
-- kayga tayda kuwayga
|
||||
-- kaaga taada kuwaaga
|
||||
-- kiisa tiisa kuwiisa
|
||||
-- keeda teeda kuweeda
|
||||
--
|
||||
-- kaayaga taayada kuwayaga (1 pl. exkl.)
|
||||
-- keenna teenna kuweenna (1 pl. inkl.)
|
||||
-- kiinna tiinna kuwiinna
|
||||
-- kooda tooda kuwooda
|
||||
Pronoun : Type = NounPhrase ;
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Det, Quant, Card, Ord
|
||||
Quant : Type = SS ; ---- TODO
|
||||
|
||||
Determiner : Type = {
|
||||
s : Case => Str ;
|
||||
sp : Gender => Case => Str ;
|
||||
d : NForm
|
||||
} ;
|
||||
|
||||
mkDeterminer : (x1,_,x3 : Str) -> NForm -> Determiner = \an,kani,tani,nf ->
|
||||
let ani : Str = case an of { _ + #c => an+"i" ;
|
||||
_ => case nf of { Def _ _ => "u" ;
|
||||
_ => [] }
|
||||
} ;
|
||||
bind : Str -> Str = \x -> case x of { "" => [] ; _ => BIND ++ x } ;
|
||||
in { s = table { Nom => bind ani ; Abs => bind an } ;
|
||||
sp = table { Fem => table { Nom => tani ; Abs => init tani } ;
|
||||
Masc => table { Nom => kani ; Abs => init kani }
|
||||
} ;
|
||||
d = nf
|
||||
} ;
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Prepositions
|
||||
|
||||
-- Prepositionen u dras obligatoriskt samman med föregående pronomen
|
||||
-- så att /a/ + /u/ > /oo/.
|
||||
|
||||
Prep : Type = {s : Agreement => Str} ;
|
||||
|
||||
mkPrep : (x1,_,_,_,_,x6 : Str) -> Prep = \ku,ii,kuu,noo,idiin,loo -> {
|
||||
s = table {
|
||||
Sg1 => ii ;
|
||||
Sg2 => kuu ;
|
||||
Pl2 => idiin ;
|
||||
Pl1 Excl => noo ;
|
||||
Pl1 Incl => "i" + noo ;
|
||||
Impers => loo ;
|
||||
_ => ku
|
||||
}
|
||||
} ;
|
||||
|
||||
prepTable : Preposition => Prep = table {
|
||||
ku => mkPrep "ku" "igu" "kugu" "nagu" "idinku" "lagu" ;
|
||||
ka => mkPrep "ka" "iga" "kaa" "naga" "idinka" "laga" ;
|
||||
la => mkPrep "la" "ila" "kula" "nala" "idinla" "lala" ;
|
||||
u => mkPrep "u" "ii" "kuu" "noo" "idiin" "loo" ;
|
||||
noPrep => mkPrep [] "i" "ku" "na" "idin" "la"
|
||||
} ;
|
||||
|
||||
prepCombTable : Agreement => PrepCombination => Str = table {
|
||||
Sg1 => table { ugu => "iigu" ; uga => "iiga" ;
|
||||
ula => "iila" ; kaga => "igaga" ;
|
||||
kula => "igula" ; kala => "igala" ;
|
||||
Single p => (prepTable ! p).s ! Sg1 } ;
|
||||
Sg2 => table { ugu => "kuugu" ; uga => "kaaga" ;
|
||||
ula => "kuula" ; kaga => "kaaga" ;
|
||||
kula => "kugula" ; kala => "kaala" ;
|
||||
Single p => (prepTable ! p).s ! Sg2 } ;
|
||||
Pl1 Excl =>
|
||||
table { ugu => "noogu" ; uga => "nooga" ;
|
||||
ula => "noola" ; kaga => "nagaga" ;
|
||||
kula => "nagula" ; kala => "nagala" ;
|
||||
Single p => (prepTable ! p).s ! Pl1 Excl } ;
|
||||
Pl1 Incl =>
|
||||
table { ugu => "inoogu" ; uga => "inooga" ;
|
||||
ula => "inoola" ; kaga => "inagaga" ;
|
||||
kula => "inagula" ; kala => "inagala" ;
|
||||
Single p => (prepTable ! p).s ! Pl1 Incl } ;
|
||||
|
||||
Pl2 => table { ugu => "idiinku" ; uga => "idiinka" ;
|
||||
ula => "idiinla" ; kaga => "idinkaga" ;
|
||||
kula => "idinkula" ; kala => "idinkala" ;
|
||||
Single p => (prepTable ! p).s ! Pl2 } ;
|
||||
Impers =>
|
||||
table { ugu => "loogu" ; uga => "looga" ;
|
||||
ula => "loola" ; kaga => "lagaga" ;
|
||||
kula => "lagula" ; kala => "lagala" ;
|
||||
Single p => (prepTable ! p).s ! Impers } ;
|
||||
--
|
||||
a => table { ugu => "ugu" ; uga => "uga" ;
|
||||
ula => "ula" ; kaga => "kaga" ;
|
||||
kula => "kula" ; kala => "kala" ;
|
||||
Single p => (prepTable ! p).s ! a }
|
||||
} ;
|
||||
|
||||
-- TODO: Negationen má `inte' skrivs samman med en föregående preposition.
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- Adjectives
|
||||
|
||||
-- Sequences of adjectives follow the rules for restrictive relatives clauses, i.e. are linked by oo 'and' on an indefinite head NounPhrase and by ee 'and' on a definite NounPhrase (8.1).
|
||||
|
||||
-- Komparativ
|
||||
-- För att uttrycka motsvarigheten till svenskans komparativ placerar man på somaliska helt enkelt prepositionen ká 'från, av, än' framför adjektivet i fråga. Adjektivet får ingen ändelse.
|
||||
-- Shan waa ay ká yar tahay siddéed. Fem är mindre än åtta.
|
||||
-- Superlativ
|
||||
-- Motsvarigheten till svenskans superlativ bildas med prepositionsklustret ugú som till sin betydelse närmast motsvarar svenskans allra, t.ex.
|
||||
-- ugu horrayntii (det att komma) allra först
|
||||
|
||||
Adjective : Type = { s : AForm => Str } ;
|
||||
Adjective2 : Type = Adjective ** { c2 : Preposition } ;
|
||||
|
||||
mkAdj : Str -> Adjective = \yar ->
|
||||
let yaryar = duplicate yar
|
||||
in { s = table {
|
||||
AF Sg Abs => yar ;
|
||||
AF Pl Abs => yaryar ;
|
||||
AF Sg Nom => yar + "i" ;
|
||||
AF Pl Nom => yaryar + "i" }
|
||||
} ;
|
||||
|
||||
duplicate : Str -> Str = \yar -> case yar of {
|
||||
"dheer" => "dhaadheer" ;
|
||||
"weyn" => "waaweyn" ; -- TODO eventually handle irregular adjectives elsewhere
|
||||
y@#c + a@#v + r@#c + _ => y + a + r + yar ;
|
||||
g@#c + aa@#vv + _ => g + aa + yar ; --TODO: proper patterns
|
||||
_ => yar + ":plural" } ;
|
||||
|
||||
AdjPhrase : Type = Adjective ;
|
||||
--------------------------------------------------------------------------------
|
||||
-- Verbs
|
||||
|
||||
Verb : Type = {s : VForm => Str} ;
|
||||
Verb2 : Type = Verb ** {c2 : Preposition} ;
|
||||
Verb3 : Type = Verb2 ** {c3 : Preposition} ;
|
||||
|
||||
mkVerb : (x1,x2 : Str) -> Verb = \ark,qaat ->
|
||||
let stems : {p1 : Str ; p2 : Str} = case ark of {
|
||||
a + r@#c + k@#c => <ark + "i", a + r + a + voiced k> ;
|
||||
yar + "ee" => <ark + "n", yar + "ey"> ;
|
||||
_ => <ark + "n", ark> } ;
|
||||
arki = stems.p1 ;
|
||||
arag = stems.p2 ;
|
||||
arkin = case last arki of { "n" => arki ; _ => arki + "n" } ;
|
||||
t : Str = case arag of {
|
||||
_ + ("i"|"y") => "s" ;
|
||||
_ => "t" } ;
|
||||
ay : Str = case ark of {
|
||||
_ + ("i"|"e") => "ey" ;
|
||||
_ => "ay" } ;
|
||||
n : Str = case arag of {
|
||||
_ + #v => "nn" ;
|
||||
_ => "n" } ;
|
||||
in { s = table {
|
||||
VPres (Sg1|Sg3 Masc) pol
|
||||
=> qaat + if_then_Str pol "aa" "o" ;
|
||||
VPres (Sg2|Sg3 Fem) pol
|
||||
=> arag + t + if_then_Str pol "aa" "o" ;
|
||||
VPres (Pl1 _) pol
|
||||
=> arag + n + if_then_Str pol "aa" "o" ;
|
||||
VPres Pl2 pol => arag + t + "aan" ;
|
||||
VPres Pl3 pol => qaat + "aan" ;
|
||||
|
||||
VPast (Sg1|Sg3 Masc)
|
||||
=> qaat + ay ;
|
||||
VPast (Sg2|Sg3 Fem)
|
||||
=> arag + t + ay ;
|
||||
VPast (Pl1 _) => arag + n + ay ;
|
||||
VPast Pl2 => arag + t + "een" ; -- kari+seen, (sug|joogsa|qaada)+teen
|
||||
VPast Pl3 => qaat + "een" ;
|
||||
|
||||
VImp Sg => arag ;
|
||||
VImp Pl => qaat + "a" ; -- TODO: allomorphs, page 86 in Saeed
|
||||
VInf => arki ;
|
||||
VNegPast => arkin ;
|
||||
_ => "TODO" }
|
||||
} ;
|
||||
|
||||
-------------------------
|
||||
-- Regular verb paradigms
|
||||
|
||||
cSug, cKari, cYaree, cJoogso, cQaado : Str -> Verb ;
|
||||
|
||||
cSug sug = mkVerb sug sug ; -- TODO: stem/dictionary form of verbs with consonant clusters?
|
||||
|
||||
cKari, cYaree = \kari -> mkVerb kari (kari+"y") ;
|
||||
|
||||
cJoogso joogso =
|
||||
let joogsa = init joogso + "a" ;
|
||||
in mkVerb joogsa (joogsa + "d") ;
|
||||
|
||||
cQaado qaado =
|
||||
let qaa = drop 2 qaado
|
||||
in mkVerb (qaa + "da") (qaa + "t") ;
|
||||
|
||||
------------------
|
||||
-- Irregular verbs
|
||||
|
||||
copula : Verb = {
|
||||
s = table {
|
||||
VPres Sg1 pol => if_then_Str pol "ahay" "ihi" ;
|
||||
VPres Sg2 pol => if_then_Str pol "tahay" "ihid" ;
|
||||
VPres (Sg3 Masc) pol => if_then_Str pol "yahay" "aha" ;
|
||||
VPres (Sg3 Fem) pol => if_then_Str pol "tahay" "aha" ;
|
||||
VPres (Pl1 _) pol => if_then_Str pol "nahay" "ihin" ;
|
||||
VPres Pl2 pol => if_then_Str pol "tihiin" "ihidin" ;
|
||||
VPres Pl3 pol => if_then_Str pol "yihiin" "aha" ;
|
||||
|
||||
VPast (Sg1|Sg3 Masc)
|
||||
=> "ahaa" ;
|
||||
VPast (Sg2|Sg3 Fem)
|
||||
=> "ahayd" ;
|
||||
VPast (Pl1 _) => "ahayn" ;
|
||||
VPast Pl2 => "ahaydeen" ;
|
||||
VPast Pl3 => "ahaayeen" ;
|
||||
VNegPast => "ahi" ;
|
||||
VRel => "ah" ;
|
||||
_ => "TODO:copula" }
|
||||
} ;
|
||||
-- I somaliskan används inte något kopulaverb motsvarande svenskans är mellan
|
||||
-- två substantivfraser som utgör subjekt respektive predikatsfyllnad.
|
||||
-- Observera också att kopulaverbet vara alltid hamnar efter det adjektiv
|
||||
-- som utgör predikatsfyllnaden.
|
||||
have_V : Verb = {
|
||||
s = table {
|
||||
VPres Sg1 _ => "leeyahay" ;
|
||||
VPres Sg2 _ => "leedahay" ;
|
||||
VPres (Sg3 Fem) _ => "leedahay" ;
|
||||
VPres (Sg3 Masc)_ => "leeyahay" ;
|
||||
VPres (Pl1 _) _ => "leenahay" ;
|
||||
VPres Pl2 _ => "leedihiin" ;
|
||||
VPres Pl3 _ => "leeyihiin" ;
|
||||
VPast x => "l" + copula.s ! VPast x ;
|
||||
VRel => "leh" ;
|
||||
_ => "TODO:have_V" } ;
|
||||
} ;
|
||||
-- Till VERBFRASEN ansluter sig
|
||||
-- · satstypsmarkörer (waa, ma...),
|
||||
-- · subjekts-pronomenet la man,
|
||||
-- · objektspronomenen,
|
||||
-- · prepositionerna och
|
||||
-- · riktnings-adverben soó (mot en plats/person), sií (bort frånen plats/person), wadá tillsammans (mot en gemensam punkt), kalá iväg, isär (bort från en gemensam punkt).
|
||||
-- Riktningsadverben har ibland en mycket konkret betydelse, men många gånger är betydelsen mera abstrakt.
|
||||
|
||||
-- Till satsmarkörerna, dvs. både fokusmarkörerna och satstypsmarkörerna ansluter sig
|
||||
-- subjektspronomenen aan, aad, uu, ay, aynu, men inte la (man).
|
||||
|
||||
------------------
|
||||
-- VP
|
||||
Adverb : Type = {s,s2 : Str} ;
|
||||
|
||||
Complement : Type = {
|
||||
comp : Agreement => {p1,p2 : Str} -- Agreement for AP complements
|
||||
} ;
|
||||
|
||||
VerbPhrase : Type = Verb ** Complement ** {
|
||||
isPred : Bool ; -- to choose right sentence type marker
|
||||
adv : Adverb ; -- they're ~complicated~
|
||||
c2, c3 : Preposition -- can combine together and with object pronouns
|
||||
} ;
|
||||
|
||||
VPSlash : Type = VerbPhrase ; ---- TODO more fields
|
||||
|
||||
useV : Verb -> VerbPhrase = \v -> v ** {
|
||||
comp = \\_ => <[],[]> ;
|
||||
isPred = False ;
|
||||
adv = {s,s2 = []} ;
|
||||
c2,c3 = noPrep ;
|
||||
} ;
|
||||
|
||||
compl : NounPhrase -> VerbPhrase -> Str = \np,vp ->
|
||||
prepCombTable ! np.a ! combine vp.c2 vp.c3 ;
|
||||
|
||||
complV2 : NounPhrase -> Verb2 -> Str = \np,vp ->
|
||||
prepCombTable ! np.a ! combine vp.c2 noPrep ;
|
||||
--------------------------------------------------------------------------------
|
||||
-- Sentences etc.
|
||||
Clause : Type = {s : Bool => Str} ; -- TODO tense + ant
|
||||
RClause,
|
||||
ClSlash,
|
||||
Sentence : Type = SS ; ---- TODO
|
||||
|
||||
stmarker : Agreement => Bool => Str = \\a,b =>
|
||||
let stm = if_then_Str b "w" "m"
|
||||
in stm + subjpron ! a ;
|
||||
|
||||
stmarkerNoContr : Agreement => Bool => Str = \\a,b =>
|
||||
let stm = if_then_Str b "waa" "ma"
|
||||
in stm ++ subjpron ! a ;
|
||||
|
||||
subjpron : Agreement => Str = table {
|
||||
Sg1|Pl1 _ => "aan" ;
|
||||
Sg2|Pl2 => "aad" ;
|
||||
Sg3 Masc => "uu" ;
|
||||
_ => "ay" } ;
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
-- linrefs
|
||||
|
||||
oper
|
||||
linVP : VerbPhrase -> Str = \vp -> vp.s ! VInf ; ----
|
||||
linCN : CNoun -> Str = \cn -> cn.s ! IndefNom ;
|
||||
}
|
||||
Reference in New Issue
Block a user