The possesive pronouns are changed to be definite by default. added indefinite possesive and reflexive pronouns in extra

This commit is contained in:
krasimir
2008-02-27 08:42:43 +00:00
parent 775c4cc34e
commit 31a6a99810
6 changed files with 55 additions and 19 deletions

View File

@@ -20,13 +20,14 @@ oper
mkDeterminerPl : Str -> {s : DGender => Role => Str ; n : Number; countable : Bool ; spec : Species} = \vsicki ->
{s = \\_,_ => vsicki; n = Pl; countable = False; spec = Indef} ;
mkQuant : Str -> Str -> Str -> Str -> {s : GenNum => Str; spec : Species} = \tozi,tazi,towa,tezi -> {
s = \\gn => case gn of {
GSg Masc => tozi ;
GSg Fem => tazi ;
GSg Neut => towa ;
GPl => tezi
};
mkQuant : Str -> Str -> Str -> Str -> {s : AForm => Str; spec : Species} = \tozi,tazi,towa,tezi -> {
s = \\aform => case aform of {
ASg Masc _ => tozi ;
ASgMascDefNom => tozi ;
ASg Fem _ => tazi ;
ASg Neut _ => towa ;
APl _ => tezi
};
spec = Indef
} ;