a number of functions added by Codex

2026-05-21 16:39:56 +02:00
parent a890a1aad5
commit 19ba581f0e
17 changed files with 507 additions and 90 deletions
@@ -1,4 +1,4 @@
-concrete ConstructionHun of Construction = CatHun ** open ParadigmsHun in {
+concrete ConstructionHun of Construction = CatHun ** open ParadigmsHun, ResHun in {

 lincat
  Timeunit = N ;
@@ -6,6 +6,16 @@ lincat
  Monthday = NP ;
  Month = N ;
  Year = NP ;
+
+lin
+  has_age_VP card = useV (copula ** {
+    s = \\vf => case vf of {
+      VPres P3 _ => [] ;
+      _          => copula.s ! vf
+      }
+    }) ** {
+      adv = card.s ! Indep ++ "éves"
+    } ;
 {-
 lin