mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-25 17:23:18 -06:00
25 lines
573 B
Plaintext
25 lines
573 B
Plaintext
concrete NamesPol of Names = CatPol ** open ResPol in {
|
|
|
|
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
|
|
lin FullName gn sn = {
|
|
nom = gn.nom ++ sn.nom ;
|
|
voc = gn.nom ++ sn.voc ;
|
|
dep = \\c => gn.nom ++ sn.dep ! c ;
|
|
gn = gn.gn ;
|
|
p = gn.p
|
|
} ;
|
|
|
|
lin UseLN n = n;
|
|
|
|
lin InLN n = {s = "w" ++ n.dep ! LocPrep} ;
|
|
|
|
lin AdjLN ap n = {
|
|
nom = ap.s ! AF n.gn Nom ++ n.nom ;
|
|
voc = ap.s ! AF n.gn VocP ++ n.voc ;
|
|
dep = \\cc => ap.s ! AF n.gn (extract_case ! cc) ++ n.dep ! cc ;
|
|
gn = n.gn ;
|
|
p = n.p
|
|
} ;
|
|
|
|
}
|