mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-28 05:52:51 -06:00
complete RGL implementation for Mongolian by Nyamsuren Erdenebadrakh
This commit is contained in:
51
lib/src/mongolian/AdjectiveMon.gf
Normal file
51
lib/src/mongolian/AdjectiveMon.gf
Normal file
@@ -0,0 +1,51 @@
|
||||
--# -path=.:../abstract:../common:../../prelude
|
||||
|
||||
concrete AdjectiveMon of Adjective = CatMon ** open ResMon, Prelude in {
|
||||
|
||||
flags coding=utf8 ;
|
||||
|
||||
lin
|
||||
|
||||
PositA a = a ;
|
||||
|
||||
-- Comparative forms are used with an object of comparison, as adjectival phrases.
|
||||
|
||||
ComparA a np = {
|
||||
s = np.s ! Abl ++ a.s
|
||||
} ;
|
||||
|
||||
UseComparA a = a ;
|
||||
|
||||
-- $SuperlA$ belongs to determiner syntax in $Noun$.
|
||||
|
||||
ComplA2 a2 np = {
|
||||
s = np.s ! a2.c2.rc ++ a2.c2.s ++ a2.s
|
||||
} ;
|
||||
|
||||
ReflA2 a = {
|
||||
s = reflPron ! Sg ! a.c2.rc ++ a.c2.s ++ a.s
|
||||
} ;
|
||||
|
||||
AdAP ada ap = {
|
||||
s = ada.s ++ ap.s
|
||||
} ;
|
||||
|
||||
UseA2 a = a ;
|
||||
|
||||
CAdvAP cadv ap np = {
|
||||
s = np.s ! cadv.c2.rc ++ cadv.c2.s ++ cadv.s ++ ap.s
|
||||
} ;
|
||||
|
||||
AdvAP ap adv = {
|
||||
s = adv.s ++ ap.s
|
||||
} ;
|
||||
|
||||
AdjOrd ord = {
|
||||
s = ord.s
|
||||
} ;
|
||||
|
||||
SentAP ap sc = {
|
||||
s = sc.s ++ "нь" ++ ap.s
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user