forked from GitHub/gf-rgl
added NamesLav.gf
This commit is contained in:
@@ -0,0 +1,49 @@
|
||||
concrete NamesLav of Names = CatLav ** open Prelude, ResLav in {
|
||||
|
||||
lin
|
||||
GivenName gn = {
|
||||
s = gn.s ;
|
||||
agr = AgrP3 Sg gn.gend ;
|
||||
pol = Pos ;
|
||||
isRel = False ;
|
||||
isPron = False
|
||||
} ;
|
||||
MaleSurname sn = {
|
||||
s = sn.s ! Masc ;
|
||||
agr = AgrP3 Sg Masc ;
|
||||
pol = Pos ;
|
||||
isRel = False ;
|
||||
isPron = False
|
||||
} ;
|
||||
FemaleSurname sn = {
|
||||
s = sn.s ! Fem ;
|
||||
agr = AgrP3 Sg Fem ;
|
||||
pol = Pos ;
|
||||
isRel = False ;
|
||||
isPron = False
|
||||
} ;
|
||||
PlSurname sn = {
|
||||
s = sn.pl ;
|
||||
agr = AgrP3 Pl Masc ;
|
||||
pol = Pos ;
|
||||
isRel = False ;
|
||||
isPron = False
|
||||
} ;
|
||||
FullName gn sn = {
|
||||
s = \\c => gn.s ! c ++ sn.s ! gn.gend ! c ;
|
||||
agr = AgrP3 Sg gn.gend ;
|
||||
pol = Pos ;
|
||||
isRel = False ;
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
lin
|
||||
UseLN, PlainLN = \ln -> {
|
||||
s = ln.s ;
|
||||
agr = AgrP3 ln.num ln.gend ;
|
||||
pol = Pos ;
|
||||
isRel = False ;
|
||||
isPron = False
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user