diff --git a/src/somali/IdiomSom.gf b/src/somali/IdiomSom.gf index 641d03a3..19450eaf 100644 --- a/src/somali/IdiomSom.gf +++ b/src/somali/IdiomSom.gf @@ -6,13 +6,14 @@ concrete IdiomSom of Idiom = CatSom ** open Prelude, ResSom, VerbSom in { -- This module defines constructions that are formed in fixed ways, -- often different even in closely related languages. - --lin + lin -- : VP -> Cl ; -- it is hot --ImpersCl = ; -- : VP -> Cl ; -- one sleeps - --GenericCl = ; + GenericCl vp = predVP impersNP (passVP vp) ; + {- CleftNP : NP -> RS -> Cl ; -- it is I who did it CleftAdv : Adv -> S -> Cl ; -- it is here she slept diff --git a/src/somali/ResSom.gf b/src/somali/ResSom.gf index 0529e6f0..663d13b1 100644 --- a/src/somali/ResSom.gf +++ b/src/somali/ResSom.gf @@ -671,9 +671,11 @@ oper c2 = P v2.c2 } ; - passV2 : Verb2 -> VerbPhrase = \v2 -> useV v2 ** { + passV2 : Verb2 -> VerbPhrase = \v2 -> passVP (useV v2) ; + + passVP : VerbPhrase -> VerbPhrase = \vp -> vp ** { c2 = Passive ; - c3 = v2.c2 ; + c3 = pp2prep vp.c2 ; } ; complSlash : VPSlash -> VerbPhrase = \vps -> let np = vps.obj2 in vps ** {