forked from GitHub/gf-rgl
started a separate module for names
This commit is contained in:
@@ -0,0 +1,14 @@
|
||||
concrete NamesEst of Names = CatEst ** open ResEst, Prelude in {
|
||||
|
||||
lin GivenName, MaleSurname, FemaleSurname = \n -> emptyNP ** {
|
||||
s = \\c => n.s ! npform2case Sg c ;
|
||||
a = agrP3 Sg ;
|
||||
isPron = False
|
||||
} ;
|
||||
lin FullName gn sn = emptyNP ** {
|
||||
s = \\c => gn.s ! Nom ++ sn.s ! npform2case Sg c ;
|
||||
a = agrP3 Sg ;
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user