GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

Danish definite revisited

Browse Source
This commit is contained in:
aarne
2006-06-22 22:01:03 +00:00
parent e8312c1137
commit 94b4d9ab85
1 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -9,9 +9,17 @@ incomplete concrete NounScand of Noun =
-- ($AdjCN$). Thus we get $huset$ but $de fem husen$, $det gamla huset$.
lin
DetCN det cn = let g = cn.g in {
s = \\c => det.s ! cn.isMod ! g ++
cn.s ! det.n ! det.det ! caseNP c ;
DetCN det cn =
let
g = cn.g ;
m = cn.isMod ;
dd = case <det.det,detDef,m> of {
<DDef Def, Indef, True> => DDef Indef ;
<d,_,_> => d
}
in {
s = \\c => det.s ! m ! g ++
cn.s ! det.n ! dd ! caseNP c ;
a = agrP3 g det.n
} ;
@@ -86,7 +94,7 @@ incomplete concrete NounScand of Noun =
DefArt = {
s = \\n,b,g => if_then_Str b (artDef (gennum g n)) [] ;
det = DDef detDef
det = DDef Def
} ;
IndefArt = {
@@ -120,7 +128,8 @@ incomplete concrete NounScand of Noun =
} ;
AdjCN ap cn = let g = cn.g in {
s = \\n,d,c => preOrPost ap.isPre
s = \\n,d,c =>
preOrPost ap.isPre
(ap.s ! agrAdj (gennum g n) d)
(cn.s ! n ! d ! c) ;
g = g ;