gf-rgl/src/arabic/NamesAra.gf

concrete NamesAra of Names = CatAra ** open ResAra, Prelude, (N=NounAra), (A=AdverbAra), (S=StructuralAra) in { 

lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> emptyNP ** {
      s = n.s ;
      a = {pgn = Per3 n.g Sg ; isPron = False} ;
      } ;
lin FullName gn sn = emptyNP ** {
      s = \\c => gn.s ! c ++ sn.s ! c ;
      a = {pgn = Per3 gn.g Sg ; isPron = False} ;
      } ;

lin UseLN ln = ln ;

lin AdjLN ap ln = ln ** {
      s = \\c => ln.s ! c
              ++ ap.s ! NoHum ! (pgn2gn ln.a.pgn).g
                      ! (pgn2gn ln.a.pgn).n ! Def ! c
    } ;

lin PlainLN ln = ln ;

lin InLN n = A.PrepNP S.in_Prep n ; ---- TODO: alternative prepositions

}