forked from GitHub/gf-rgl
Krasimir Angelov
39 lines
872 B
Plaintext
39 lines
872 B
Plaintext
concrete NamesGer of Names = CatGer ** open ResGer in {
|
|
|
|
lin GivenName gn = {
|
|
s = \\c => usePrepC c (\k -> gn.s ! k) ;
|
|
a = agrgP3 (sex2gender gn.g) Sg ;
|
|
w = WLight ;
|
|
rc, ext = []
|
|
} ;
|
|
|
|
lin MaleSurname sn = {
|
|
s = \\c => usePrepC c (\k -> sn.s ! Male ! k) ;
|
|
a = agrgP3 Masc Sg ;
|
|
w = WLight ;
|
|
rc, ext = []
|
|
} ;
|
|
|
|
lin FemaleSurname sn = {
|
|
s = \\c => usePrepC c (\k -> sn.s ! Female ! k) ;
|
|
a = agrgP3 Fem Sg ;
|
|
w = WLight ;
|
|
rc, ext = []
|
|
} ;
|
|
|
|
lin PlSurname sn = {
|
|
s = \\c => usePrepC c (\k -> sn.s ! Male ! k) ;
|
|
a = agrgP3 Masc Pl ;
|
|
w = WLight ;
|
|
rc, ext = []
|
|
} ;
|
|
|
|
lin FullName gn sn = {
|
|
s = \\c => usePrepC c (\k -> gn.s ! Nom ++ sn.s ! gn.g ! k) ;
|
|
a = agrgP3 (sex2gender gn.g) Sg ;
|
|
w = WLight ;
|
|
rc, ext = []
|
|
} ;
|
|
|
|
}
|