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,119 @@
+concrete VerbMay of Verb = CatMay ** open ResMay, AdverbMay, Prelude in {
+
+
+lin
+
+-----
+-- VP
+  -- : V -> VP
+  UseV = ResMay.useV ;
+
+  --  : V2 -> VP ; -- be loved
+  -- PassV2 = ResMay.passV2 ;
+
+  -- : VPSlash -> VP ;
+  -- ReflVP = ResMay.insertRefl ;
+
+  -- : VV  -> VP -> VP ;
+  -- ComplVV vv vp = let vc = vp.vComp in case vv.vvtype of {
+  --
+  --   } ;
+
+  -- : VS  -> S  -> VP ;
+  -- ComplVS vs s =
+  --   let vps = useV vs ;
+  --       subord = SubjS {s=""} s ;
+  --    in vps ** {} ;
+
+{-
+  -- : VQ -> QS -> VP ;
+  ComplVQ vq qs = ;
+
+  -- : VA -> AP -> VP ;  -- they become red
+  ComplVA va ap = ResMay.insertComp (CompAP ap).s (useV va) ;
+
+-}
+--------
+-- Slash
+{-
+  -- : V2 -> VPSlash
+  SlashV2a = useVc ;
+
+  -- : V3 -> NP -> VPSlash ; -- give it (to her)
+  -- : V3 -> NP -> VPSlash ; -- give (it) to her
+  Slash2V3,
+  Slash3V3 = \v3 -> insertComp (useVc3 v3) ;
+
+  -- : V2S -> S  -> VPSlash ;  -- answer (to him) that it is good
+  SlashV2S v2s s =
+
+  -- : V2V -> VP -> VPSlash ;  -- beg (her) to go
+  SlashV2V v2v vp = ;
+
+  -- : V2Q -> QS -> VPSlash ;  -- ask (him) who came
+  SlashV2Q v2q qs = ;
+
+  -- : V2A -> AP -> VPSlash ;  -- paint (it) red
+  -- : VPSlash -> NP -> VP
+  ComplSlash = insertComp ;
+-}
+{-
+  -- : VV  -> VPSlash -> VPSlash ;
+                  -- Just like ComplVV except missing subject!
+  SlashVV vv vps = ComplVV vv vps ** { missing = vps.missing ;
+                                       post = vps.post } ;
+
+  -- : V2V -> NP -> VPSlash -> VPSlash ; -- beg me to buy
+  SlashV2VNP v2v np vps =
+-}
+
+  -- : Comp -> VP ;
+  UseComp comp = comp ;
+{-
+  -- : VP -> Adv -> VP ;  -- sleep here
+  AdvVP = insertAdv ;
+
+  -- : VPSlash -> Adv -> VPSlash ;  -- use (it) here
+  AdvVPSlash = insertAdv ;
+
+  -- : VP -> Adv -> VP ;  -- sleep , even though ...
+  ExtAdvVP vp adv =  ;
+
+  -- : AdV -> VP -> VP ;  -- always sleep
+  AdVVP adv vp = vp ** {adv = adv} ;
+
+  -- : AdV -> VPSlash -> VPSlash ;  -- always use (it)
+  AdVVPSlash adv vps = vps ** { adv = adv.s ++ vps.adv } ;
+-}
+  -- : VP -> Prep -> VPSlash ;  -- live in (it)
+  -- VPSlashPrep vp prep =
+  --   let adv = prepNP prep emptyNP
+  --    in insertAdv vp adv ;
+
+
+
+
+--2 Complements to copula
+
+-- Adjectival phrases, noun phrases, and adverbs can be used.
+
+  -- : AP  -> Comp ;
+  CompAP ap = ap ;
+
+  -- : CN  -> Comp ;
+  CompCN cn = {
+    s = \\_ => cn.s ! NF Sg Bare ;
+    } ;
+
+  --  NP  -> Comp ;
+  CompNP np = {
+    s = \\_ => np.s ;
+    } ;
+
+  -- : Adv  -> Comp ;
+  -- CompAdv adv = adv ;
+
+  -- : VP -- Copula alone;
+  --UseCopula = useV copula ;
+
+}