gf-rgl/src/somali/RelativeSom.gf

concrete RelativeSom of Relative = CatSom ** open
  ResSom, Prelude, (NS=NounSom), (SS=StructuralSom) in {

{-
lin
  --  : Cl -> RCl ;            -- such that John loves her
  RelCl cl = { } ;

  -- Sayeed p. 95-96 + ch 8
Reduced present general in relative clauses;  as absolutive
1/2SG/3SG M/2PL/3PL sugá -- same as imperative (TODO check if for all conjugations)
3 SG F sugtá -- doesn't exist
1PL sugná -- doesn't exist

  -- : 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) } ;



-}

}