(Som) Add the structure and placeholders for Somali RG

This commit is contained in:
Inari Listenmaa
2018-11-01 10:00:05 +01:00
parent 5172586aa8
commit 592a93005a
30 changed files with 3329 additions and 0 deletions

30
src/somali/RelativeSom.gf Normal file
View File

@@ -0,0 +1,30 @@
concrete RelativeSom of Relative = CatSom ** open
ResSom, Prelude, (NS=NounSom), (SS=StructuralSom) in {
{-
lin
-- : Cl -> RCl ; -- such that John loves her
RelCl cl = { } ;
-- : RP -> VP -> RCl ;
RelVP rp vp = ;
-- : RP -> ClSlash -> RCl ; -- whom John loves
RelSlash rp cls = ;
-- : RP ;
IdRP = { s = "" } ;
-- : Prep -> NP -> RP -> RP ; -- the mother of whom
FunRP prep np rp = { s = applyPost prep whom ++ np.s ! Abs }
where { num = case np.agr of {
Sg3 _ => NS.NumSg ;
_ => NS.NumPl } ;
whom = NS.DetNP (NS.DetQuant SS.which_IQuant num) } ;
-}
}