mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-02 15:52:50 -06:00
complete RGL implementation for Mongolian by Nyamsuren Erdenebadrakh
This commit is contained in:
65
lib/src/mongolian/PhraseMon.gf
Normal file
65
lib/src/mongolian/PhraseMon.gf
Normal 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
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user