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

Swedish 1.4 complete

Browse Source
This commit is contained in:
aarne
2008-06-02 15:22:44 +00:00
parent 1a14b51f51
commit 41e0ba7f64
8 changed files with 169 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lib/resource-1.4/scandinavian/QuestionScand.gf
View File

@@ -69,13 +69,27 @@ incomplete concrete QuestionScand of Question =
gn = ip.gn
} ;
{-
IDetCN idet num ord cn = let g = cn.g in {
IdetCN idet cn = let g = cn.g in {
s = \\c =>
idet.s ! g ++ num.s ! g ++ ord.s ++ cn.s !idet.n ! idet.det ! caseNP c ;
idet.s ! g ++ cn.s ! idet.n ! idet.det ! caseNP c ;
gn = gennum g idet.n
} ;
-}
IdetIP idet =
let
g = Neutr ;
in {
s = \\c => idet.s ! g ;
gn = (agrP3 g idet.n).gn
} ;
IdetQuant idet num = {
s = \\g => idet.s ! num.n ! g ++ num.s ! g ;
n = num.n ;
det = idet.det
} ;
CompIAdv a = {s = \\_ => a.s} ;
CompIP ip = {s = \\_ => ip.s ! nominative} ;
}