WIP: Malay grammar

Copied and pasted from previous RGs, very minimal at the moment.
2020-08-18 20:13:35 +02:00
parent 4f821ca621
commit 6693a27d6c
25 changed files with 2117 additions and 0 deletions
@@ -0,0 +1,136 @@
+resource ParamMay = ParamX ** open Prelude in {
+
+--------------------------------------------------------------------------------
+-- Phonology
+
+oper
+  v : pattern Str = #("a"|"e"|"i"|"o"|"u") ;
+
+  diphthong : pattern Str = #("ai"|"au"|"oi") ;
+
+  c : pattern Str = #("m"|"n"|"ny"|"ng"
+                     |"p"|"b"|"t"|"d"|"k"|"g"
+                     |"s"|"z"|"c"|"j"|"sy"
+                     |"f"|"v"|"kh"|"gh"|"h"
+                     |"l"|"r"
+                     |"w"|"y") ;
+
+  -- not sure if needed anywhere, this is just my standard helper function.
+  voiced : Str -> Str = \s -> case s of {
+    "k" => "g" ; "t" => "d" ; "p" => "b" ;
+    "s" => "z" ; "c" => "j" ; "kh" => "gh" ;
+    _   => s } ;
+
+--------------------------------------------------------------------------------
+-- Morphophonology
+
+  prefix : Prefix -> Str -> Str = \p -> case p of {
+    Meng => prefixMeng ;
+    Ber  => prefixBer
+    } ;
+
+  prefixMeng : Str -> Str = \makan -> case makan of {
+    (#v|"g"|"h") + _
+      => "meng" + makan ; -- prefix meng: e.g. meng+atur
+    "k" + enal
+      => "meng" + enal ; -- replace k with meng
+
+    "b" + _
+      => "mem" + makan ; -- prefix mem: e.g. mem+beli
+    ("p"|"f") + ikir
+      => "mem" + ikir ; -- replace p/f with mem
+
+    ("j"|"c"|"z"|"d") + _
+      => "men" + makan ; -- prefix men: e.g. men+jadi
+    "t" + ipu
+      => "men" + ipu ; -- replace t with men
+
+    "s" + alak
+      => "meny" + alak ; -- replace s with meny
+
+    ("r"|"l"|"w"|"y"|"m"|"n"|"ny"|"ng") + _
+      => "me" + makan ; -- prefix me
+
+    -- We can throw an error
+    -- _ => Predef.error "Not a valid verb root" ;
+
+    -- or we can let it pass with some default allomorph
+    _ => "meng" + makan
+    } ;
+
+  prefixBer : Str -> Str = \jalan -> case jalan of {
+    -- Exception
+    "ajar" => "belajar" ;
+
+    -- Drop the r
+    (#c  + "er" + _  -- be+kerja
+    |"r" + _ )       -- be+rehat
+      => "be" + jalan ;
+
+    -- Default allomorph: ber
+    _ => "ber" + jalan
+    } ;
+
+--------------------------------------------------------------------------------
+-- Nouns
+
+param
+  Possession = Bare | Poss Person ;
+
+  NForm = NF Number Possession ;
+
+oper
+  poss2str : Possession -> Str = \p -> case p of {
+    Bare    => [] ;
+    Poss P1 => "ku" ;
+    Poss P2 => "mu" ;
+    Poss P3 => "nya"
+    } ;
+
+  duplicate : Str -> Str = \s -> s + "-" + s ;
+
+--------------------------------------------------------------------------------
+-- Numerals
+
+param
+  DForm = Indep | Attrib ;
+
+  CardOrd = NOrd | NCard ;
+
+  -- TODO see if this is needed
+  NumType = NoNum | IsDigit | IsNumber ;
+
+oper
+  isNum : NumType -> Bool = \nt -> case nt of {
+    NoNum => False ;
+    _     => True
+    } ;
+--------------------------------------------------------------------------------
+-- Adjectives
+
+param
+  AForm = TODOAdj ;
+
+--------------------------------------------------------------------------------
+-- Prepositions
+
+--------------------------------------------------------------------------------
+-- Verbs
+param
+  VForm =
+      Root  -- infinitive, imperative, …
+    | Active ;
+
+ Prefix =
+      Meng
+    | Ber
+    ; -- TODO more
+
+--------------------------------------------------------------------------------
+-- Clauses
+
+param
+
+ ClType = Statement | PolarQuestion | WhQuestion | Subord ;
+
+}