forked from GitHub/gf-rgl
add Idet to Malay RGL
This commit is contained in:
@@ -59,6 +59,7 @@ concrete AdjectiveMay of Adjective = CatMay ** open ResMay, Prelude in {
|
|||||||
|
|
||||||
-- : AdA -> AP -> AP ;
|
-- : AdA -> AP -> AP ;
|
||||||
-- AdAP ada ap = ap ** { } ;
|
-- AdAP ada ap = ap ** { } ;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
-- It can also be postmodified by an adverb, typically a prepositional phrase.
|
-- It can also be postmodified by an adverb, typically a prepositional phrase.
|
||||||
|
|||||||
@@ -13,7 +13,7 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
|
|||||||
-- TODO classifier is necessary if numeral comes after noun. See Mintz p. 298.
|
-- TODO classifier is necessary if numeral comes after noun. See Mintz p. 298.
|
||||||
-- ++ if_then_Str (isNum det.n) "buah" [] -- TODO store classifier in CN
|
-- ++ if_then_Str (isNum det.n) "buah" [] -- TODO store classifier in CN
|
||||||
++ case det.poss of {
|
++ case det.poss of {
|
||||||
Bare => cn.s ! NF (toNum det.n) poss ;
|
Bare => cn.s ! NF (toNum det.n) det.poss ;
|
||||||
_ => cn.s ! NF (toNum det.n) det.poss -- TODO check if this make sense
|
_ => cn.s ! NF (toNum det.n) det.poss -- TODO check if this make sense
|
||||||
} ++ det.s ++ cn.heavyMod ;
|
} ++ det.s ++ cn.heavyMod ;
|
||||||
} ;
|
} ;
|
||||||
|
|||||||
@@ -8,9 +8,18 @@ concrete QuestionMay of Question = CatMay ** open
|
|||||||
-- determiners, with or without a noun.
|
-- determiners, with or without a noun.
|
||||||
lin
|
lin
|
||||||
-- : IDet -> CN -> IP ; -- which five songs
|
-- : IDet -> CN -> IP ; -- which five songs
|
||||||
IdetCN idet cn = NM.DetCN idet cn ** {
|
-- IdetCN idet cn = NM.DetCN idet cn ** {
|
||||||
sp = \\nf => idet.sp ! nf ++ cn.s ! nf
|
-- sp = \\nf => idet.sp ! nf ++ cn.s ! nf
|
||||||
} ;
|
-- } ;
|
||||||
|
IdetCN idet cn = emptyNP ** {
|
||||||
|
s = \\poss =>
|
||||||
|
idet.pr
|
||||||
|
++ case idet.poss of {
|
||||||
|
Bare => cn.s ! NF (toNum idet.n) idet.poss ;
|
||||||
|
_ => cn.s ! NF (toNum idet.n) idet.poss -- TODO check if this make sense
|
||||||
|
} ++ idet.s ++ cn.heavyMod ;
|
||||||
|
sp = \\nf => idet.sp ! nf ++ cn.s ! nf;
|
||||||
|
} ;
|
||||||
|
|
||||||
-- : IDet -> IP ; -- which five
|
-- : IDet -> IP ; -- which five
|
||||||
IdetIP idet = NM.DetNP idet ** {sp = idet.sp};
|
IdetIP idet = NM.DetNP idet ** {sp = idet.sp};
|
||||||
|
|||||||
Reference in New Issue
Block a user