msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

new CAdv type in Dan and Nor

Browse Source
This commit is contained in:
aarne
2008-11-15 11:24:22 +00:00
parent 3ff57f6184
commit 79c9ec116a
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
next-lib/src/danish/StructuralDan.gf
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 =

6
next-lib/src/norwegian/StructuralNor.gf
View File

@@ -1,5 +1,5 @@
concrete StructuralNor of Structural = CatNor **
open MorphoNor, ParadigmsNor, Prelude in {
open MorphoNor, ParadigmsNor, (X = ConstructX), Prelude in {
flags optimize=all ;
@@ -44,9 +44,9 @@ concrete StructuralNor of Structural = CatNor **
MorphoNor.mkNP "jeg" "meg" (variants {"min" ; "mi"}) "mit" "mine" SgUtr P1 ; --- mi
in_Prep = ss "i" ;
it_Pron = MorphoNor.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 = \\_,_ => "mye" ; n = Pl ; det = DDef Indef} ;
must_VV =