move UseDAP, UseDAPMasc, UseDAPFem to the RGL and implement it for several new languages

2026-06-27 11:56:29 -06:00 · 2021-04-27 18:00:54 +02:00
parent 156e193d47
commit 9d657a6f24
17 changed files with 182 additions and 7 deletions
@@ -21,4 +21,20 @@ lin ProDrop p = {
    gn = p.gn ;
 } ;

+lin
+  UseDAP = dap2np Neut ;
+  UseDAPMasc = dap2np (Masc Personal) ;
+  UseDAPFem = dap2np Fem ;
+
+oper
+  dap2np : Gender -> DAP -> NP ;
+  dap2np g dap = lin NP {
+    nom = dap.sp ! Nom  ! g;
+    voc = dap.sp ! VocP ! g;
+    dep = \\cc => let c = extract_case ! cc
+                  in dap.sp ! c ! g;
+    gn = accom_gennum ! <dap.a, g, dap.n>;
+    p = P3        
+  };
+
 }