GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 00:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added AdvCN ; some German morpho bug fixes

Browse Source
This commit is contained in:
aarne
2006-01-18 17:27:52 +00:00
parent ae956d0805
commit 399e92c8f7
7 changed files with 26 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource-1.0/scandinavian/NounScand.gf
View File

@@ -33,7 +33,8 @@ incomplete concrete NounScand of Noun =
det = quant.det
} ;
DetPl quant num ord = {
s = \\b,g => quant.s ! (orB b (orB num.isDet ord.isDet)) ! g ++ ord.s ;
s = \\b,g => quant.s ! (orB b (orB num.isDet ord.isDet)) ! g ++
num.s ! g ++ ord.s ;
n = Pl ;
det = quant.det
} ;
@@ -116,5 +117,10 @@ incomplete concrete NounScand of Noun =
g = g ;
isMod = cn.isMod
} ;
AdvCN cn sc = let g = cn.g in {
s = \\n,d,c => cn.s ! n ! d ! c ++ sc.s ;
g = g ;
isMod = cn.isMod
} ;
}