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

compound nouns in ExtraSwe

Browse Source
This commit is contained in:
aarne
2011-03-17 16:44:46 +00:00
parent f2df9631fd
commit 626a5881f2
2 changed files with 21 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/src/swedish/ExtraSwe.gf
View File

@@ -1,4 +1,4 @@
concrete ExtraSwe of ExtraSweAbs = ExtraScandSwe ** open CommonScand, ResSwe, ParamX in {
concrete ExtraSwe of ExtraSweAbs = ExtraScandSwe ** open CommonScand, ResSwe, ParamX, Prelude in {
lin
FocVP vp np = {
@@ -21,5 +21,21 @@ lin
vinf ++ comp ++ vfin ++ subj ++ neg
} ;
lin
CompoundNomN a b = {
s = \\n,d,c => a.s ! Sg ! Indef ! Nom ++ BIND ++ b.s ! n ! d ! c ;
g = b.g
} ;
CompoundGenN a b = {
s = \\n,d,c => a.s ! Sg ! Indef ! Gen ++ BIND ++ b.s ! n ! d ! c ;
g = b.g
} ;
CompoundAdjN a b = {
s = \\n,d,c => a.s ! AF (APosit (Strong (GSg Utr))) Nom ++ BIND ++ b.s ! n ! d ! c ;
g = b.g
} ;
}

4
lib/src/swedish/ExtraSweAbs.gf
View File

@@ -3,5 +3,9 @@
abstract ExtraSweAbs = ExtraScandAbs ** {
fun
CompoundNomN : N -> N -> N ; -- fot+boll
CompoundGenN : N -> N -> N ; -- yrkes+musiker
CompoundAdjN : A -> N -> N ; -- vit+vin
}