(Kor) WIP: First draft of Korean RG.

Not at all correct, just a minimal implementation that compiles.
2020-02-07 11:00:37 +01:00
parent 4eed81d729
commit 495c9b7e52
25 changed files with 2104 additions and 0 deletions
@@ -0,0 +1,29 @@
+concrete PhraseKor of Phrase = CatKor ** open Prelude, ResKor in {
+
+  lin
+    PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
+
+    UttS s = s ;
+    UttQS qs = qs ;
+    UttIAdv iadv = iadv ;
+{-
+    UttImpSg pol imp =
+    UttImpPl pol imp =
+    UttImpPol = UttImpSg ;
+
+    UttIP ip = {s = ip.s ! } ;
+    UttNP np = {s = np.s ! } ;
+    UttVP vp = {s = } ;
+    UttAdv adv = {s = } ;
+    UttCN n = {s = } ;
+    UttCard n = {s = } ;
+    UttAP ap = { s = ap.s ! } ;
+    UttInterj i = i ;
+-}
+    NoPConj = {s = []} ;
+--    PConjConj conj = {s = conj.s1 ++ conj.s2 ! …} ;
+
+    NoVoc = {s = []} ;
+--    VocNP np = { s = "," ++ np.s ! … } ; -}
+
+}