extensions by Codex

This commit is contained in:
Krasimir Angelov committed 2026-10-02 13:28:10 +02:00
1 parent 4e1c1e6fe1
commit 7de7d780b2
18 files changed
+621 -35

No files matched your search

+11 -1
View File
@@ -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
} ;
}