(Pes) Add premodifier APs

2026-07-02 12:08:34 -06:00 · 2019-03-14 13:36:02 +01:00
parent 76cbfa31a7
commit 58400060ad
8 changed files with 57 additions and 45 deletions
@@ -147,7 +147,11 @@ oper
 ---------------------------
 -- Adjectives
 --------------------------
- Adjective : Type = {s : Mod => Str ; adv : Str} ;
+  Adjective : Type = {
+    s : Mod => Str ;
+    adv : Str ;
+    isPre : Bool
+    } ;

 mkAdj : Str -> Str -> Adjective = \adj,adv -> {
   s = table { Bare => adj;
@@ -155,7 +159,7 @@ oper
               Clitic => mkEnclic adj ;
               Poss => mkPossStem adj
             } ;
-   adv = adv
+   adv = adv ; isPre = False
   };

 ------------------------------------------------------------------