mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
(May) Add some determiners + fix word order in DetCN
This commit is contained in:
@@ -8,7 +8,11 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
|
|||||||
|
|
||||||
-- : Det -> CN -> NP
|
-- : Det -> CN -> NP
|
||||||
DetCN det cn = {
|
DetCN det cn = {
|
||||||
s = det.s ++ cn.s ! NF det.n Bare ; -- TODO add possessive determiners
|
s =
|
||||||
|
case det.isPoss of {
|
||||||
|
True => cn.s ! NF det.n (Poss P3) ; -- TODO add possessive determiners
|
||||||
|
False => cn.s ! NF det.n Bare }
|
||||||
|
++ det.s ;
|
||||||
p = P3
|
p = P3
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
@@ -78,9 +78,14 @@ oper
|
|||||||
baseQuant : BaseQuant = {
|
baseQuant : BaseQuant = {
|
||||||
s = [] ;
|
s = [] ;
|
||||||
isPoss = False ;
|
isPoss = False ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
mkQuant : Str -> Quant = \str -> baseQuant ** {
|
||||||
|
s = str ;
|
||||||
|
sp = \\_ => str
|
||||||
|
} ;
|
||||||
|
|
||||||
|
--------------------------------------------------------------------------------
|
||||||
-- Prepositions
|
-- Prepositions
|
||||||
|
|
||||||
Preposition : Type = {
|
Preposition : Type = {
|
||||||
|
|||||||
@@ -68,10 +68,10 @@ lin much_Det = R.indefDet "" sg ;
|
|||||||
lin somePl_Det =
|
lin somePl_Det =
|
||||||
lin someSg_Det =
|
lin someSg_Det =
|
||||||
|
|
||||||
lin no_Quant =
|
lin no_Quant = -}
|
||||||
lin that_Quant =
|
lin that_Quant = mkQuant "itu" ;
|
||||||
lin this_Quant =
|
lin this_Quant = mkQuant "ini" ;
|
||||||
lin which_IQuant =
|
{-lin which_IQuant =
|
||||||
|
|
||||||
|
|
||||||
-----
|
-----
|
||||||
|
|||||||
Reference in New Issue
Block a user