mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-29 18:33:17 -06:00
extensions by Codex
This commit is contained in:
1 parent
4e1c1e6fe1
commit
7de7d780b2
18 files changed
+621
-35
No files matched your search
+11
-1
@@ -1,4 +1,4 @@
|
||||
concrete NamesPol of Names = CatPol ** {
|
||||
concrete NamesPol of Names = CatPol ** open ResPol in {
|
||||
|
||||
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
|
||||
lin FullName gn sn = {
|
||||
@@ -11,4 +11,14 @@ lin FullName gn sn = {
|
||||
|
||||
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
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in new issue
Block a user