(Som) More fine-grained adverbials

This commit is contained in:
Inari Listenmaa
2019-07-01 14:13:45 +02:00
parent 8115b26947
commit ca06dc4e1d
10 changed files with 98 additions and 42 deletions

View File

@@ -130,6 +130,17 @@ oper
agr2agrplus : (isPron : Bool) -> Agreement -> AgreementPlus = \isPron,a ->
case isPron of {True => IsPron a ; False => NotPronP3} ;
isP3 = overload {
isP3 : Agreement -> Bool = \agr ->
case agr of {Sg3 _ | Pl3 | Impers => True ; _ => False} ;
isP3 : AgreementPlus -> Bool = \agr ->
case agr of {
IsPron (Sg3 _ | Pl3 | Impers) => True ;
NotPronP3 => True ;
Unassigned => True ; -- meaningful for "does it leave an overt pronoun"
_ => False}
} ;
-- gn2gennum : Gender -> Number -> GenNum = \g,n ->
-- case <g,n> of {
-- <Masc,Sg> => SgMasc ;