corrections in Attempto grammars

This commit is contained in:
aarne
2008-11-08 09:38:32 +00:00
parent 70e49b204c
commit fc0432e4e1
9 changed files with 48 additions and 34 deletions

View File

@@ -331,8 +331,9 @@ oper
} ;
regGenN : Str -> Gender -> N = \bil, g -> case g of {
Utr => case last bil of {
"a" => decl1Noun bil ;
Utr => case bil of {
_ + "are" => decl5Noun bil ;
_ + "a" => decl1Noun bil ;
_ => decl2Noun bil
} ;
Neutr => case last bil of {

View File

@@ -132,7 +132,7 @@ lin
Sg => \\_,_ => genderForms "ingen" "inget" ;
Pl => \\_,_,_ => "inga"
} ;
det = DDef Def
det = DIndef
} ;
if_then_Conj = {s1 = "om" ; s2 = "så" ; n = singular} ;