(May) Add API funs + MissingMay

2020-09-03 13:10:12 +02:00
parent fdc28dfd8a
commit c1e12b60ab
10 changed files with 610 additions and 17 deletions
--- a/src/malay/ParadigmsMay.gf
+++ b/src/malay/ParadigmsMay.gf
@@ -16,6 +16,10 @@ oper
    mkN : (noun : Str) -> N ; -- Predictable nouns
  } ;

+  mkPN : overload {
+    mkPN : Str -> PN ; -- Proper nouns
+  } ;
+
 --2 Adjectives

  mkA : overload {
@@ -97,8 +101,9 @@ oper
    mkN2 : N   -> N2 = \n -> lin N2 (n ** {c2 = dirPrep}) ;
   } ;

-  -- mkPN = overload {
-  --   } ;
+  mkPN = overload {
+    mkPN : Str -> PN = \s -> lin PN {s = \\_ => s} ;
+    } ;

  mkA = overload {
    mkA : (adj : Str) -> A = \s -> lin A (mkAdj s) ;