extensions from Codex

2026-09-28 21:23:39 -06:00 · 2026-09-21 18:13:07 +02:00
parent 1e6aa119fe
commit 9e2a83040a
23 changed files with 1837 additions and 1115 deletions
@@ -15,5 +15,21 @@ lin
            } ;
    isPre = True
  } ;
+  UseA2 a = PositA a ;
+  ComplA2 a np = {
+    s = \\sp,c,n => (case a.c2.isPre of {
+      True => a.c2.s ++ np.s ! a.c2.c;
+      False => np.s ! a.c2.c ++ a.c2.s
+    }) ++ a.s ! c ! n;
+    isPre = False
+  } ;
+  AdvAP ap adv = {s = \\sp,c,n => ap.s ! sp ! c ! n ++ adv.s; isPre = ap.isPre} ;
+  SentAP ap sc = {s = \\sp,c,n => ap.s ! sp ! c ! n ++ sc.s; isPre = ap.isPre} ;
+  ComparA a np = {
+    s = \\sp,c,n => a.s ! c ! n ++ "քան" ++ np.s ! Nom; isPre = False
+  } ;
+  UseComparA a = {
+    s = \\sp,c,n => "ավելի" ++ (a.s ! c ! n); isPre = True
+  } ;

 }