new CAdv type in Dan and Nor

This commit is contained in:
aarne
2008-11-15 11:24:22 +00:00
parent fc60a33c2a
commit 9cf2fd879a
2 changed files with 6 additions and 6 deletions

View File

@@ -1,5 +1,5 @@
concrete StructuralDan of Structural = CatDan **
open MorphoDan, ParadigmsDan, Prelude in {
open MorphoDan, ParadigmsDan, (X = ConstructX), Prelude in {
flags optimize=all ;
@@ -44,9 +44,9 @@ concrete StructuralDan of Structural = CatDan **
MorphoDan.mkNP "jeg" "mig" "min" "mit" "mine" SgUtr P1 ;
in_Prep = ss "i" ;
it_Pron = MorphoDan.regNP "det" "dets" SgNeutr ;
less_CAdv = ss "mindre" ;
less_CAdv = X.mkCAdv "mindre" conjThan ;
many_Det = {s = \\_,_ => "mange" ; n = Pl ; det = DDef Indef} ;
more_CAdv = ss "mer" ;
more_CAdv = X.mkCAdv "mer" conjThan ;
most_Predet = {s = gennumForms ["den meste"] ["det meste"] ["de fleste"]} ;
much_Det = {s = \\_,_ => "meget" ; n = Pl ; det = DDef Indef} ;
must_VV =