we now support irregAdv in Swedish

This commit is contained in:
krasimir
2015-11-18 10:13:32 +00:00
parent 4f1632d04d
commit ee1d19555a
7 changed files with 20 additions and 14 deletions

View File

@@ -31,7 +31,7 @@ param
Gender = Utr | Neutr ;
AForm = AF AFormGrad Case ;
AForm = AF AFormGrad Case | AAdv ;
AFormGrad =
APosit AFormPos
@@ -192,8 +192,9 @@ oper
AF (APosit a) c => mkCase c (mkAdjPos a liten litet lilla sma) ;
AF ACompar c => mkCase c mindre ;
AF (ASuperl SupStrong) c => mkCase c minst ;
AF (ASuperl SupWeak) c => mkCase c minsta
}
AF (ASuperl SupWeak) c => mkCase c minsta ;
AAdv => litet
}
} ;
mkVerb9 : (x1,_,_,_,_,_,_,_,x9 : Str) -> {s : VForm => Str ; vtype : VType} =