Gender in English Agr

This commit is contained in:
aarne
2008-04-21 15:56:50 +00:00
parent 65f8120498
commit 7e29773e50
11 changed files with 68 additions and 40 deletions

View File

@@ -72,13 +72,12 @@ oper
-- We record the form "mine" and the gender for later use.
Pronoun : Type =
{s : Case => Str ; a : Agr ; g : Gender} ;
{s : Case => Str ; a : Agr} ;
mkPronoun : (_,_,_,_ : Str) -> Number -> Person -> Gender -> Pronoun =
\I,me,my,mine,n,p,g ->
{s = table {Nom => I ; Acc => me ; Gen => my} ;
a = {n = n ; p = p} ;
g = g
a = {n = n ; p = p ; g = g}
} ;
human : Gender = Masc ; --- doesn't matter