(May) Add some determiners + fix word order in DetCN

This commit is contained in:
Inari Listenmaa
2020-08-18 21:34:04 +02:00
parent c98f9a84d8
commit 53eb8ab9df
3 changed files with 16 additions and 7 deletions

View File

@@ -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
} ; } ;

View File

@@ -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 = {

View File

@@ -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 =
----- -----