complete RGL implementation for Mongolian by Nyamsuren Erdenebadrakh

This commit is contained in:
nyamaakaa
2015-03-13 13:40:22 +00:00
parent 4ff30e6771
commit 053f2377b2
39 changed files with 54028 additions and 0 deletions

View File

@@ -0,0 +1,65 @@
--# -path=.:../abstract:../common:../../prelude
concrete PhraseMon of Phrase = CatMon ** open Prelude, ResMon in {
flags coding=utf8 ;
lin
PhrUtt pconj utt voc = {
s = pconj.s ++ utt.s ++ voc.s
} ;
UttS s = {s = s.s ! Main} ;
UttQS qs = {
s = qs.s ! QDir
} ;
UttImpSg pol imp = {
s = pol.s ++ imp.s ! pol.p ! ImpF Sg False
} ;
UttImpPl pol imp = {
s = pol.s ++ imp.s ! pol.p ! ImpF Pl False
} ;
UttImpPol pol imp = {
s = pol.s ++ imp.s ! pol.p ! ImpF Sg True
} ;
UttIP ip = {
s = ip.s ! Nom
} ;
UttIAdv iadv = iadv ;
UttNP np = {
s = np.s ! Nom
} ;
UttVP vp = {
s = infVP vp Nom
} ;
UttAdv adv = adv ;
UttCN cn = {
s = cn.s ! Sg ! NNom
} ;
UttCard card = card ;
UttAP ap = ap ;
UttInterj i = i ;
NoPConj = {s = []} ;
PConjConj conj = ss conj.s2 ;
NoVoc = {s = []} ;
VocNP np = {
s = "," ++ np.s ! Nom
} ;
}