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

Swedish relatives

Browse Source
This commit is contained in:
aarne
2005-12-08 09:56:15 +00:00
parent 0ca556122c
commit a8a5080693
8 changed files with 78 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -68,12 +68,19 @@ incomplete concrete NounScand of Noun =
g = g
} ;
{-
RelCN cn rs = {s = \\n,c => cn.s ! n ! c ++ rs.s ! {n = n ; p = P3}} ;
RelCN cn rs = let g = cn.g in {
s = \\n,d,c => cn.s ! n ! d ! c ++ rs.s ! agrP3 g n ;
g = g
} ;
SentCN cn s = let g = cn.g in {
s = \\n,d,c => cn.s ! n ! d ! c ++ conjThat ++ s.s ! Sub ;
g = g
} ;
QuestCN cn qs = let g = cn.g in {
s = \\n,d,c => cn.s ! n ! d ! c ++ qs.s ! QIndir ;
g = g
} ;
SentCN cn s = {s = \\n,c => cn.s ! n ! c ++ conjThat ++ s.s} ;
QuestCN cn qs = {s = \\n,c => cn.s ! n ! c ++ qs.s ! QIndir} ;
-}
UseN noun = {
s = \\n,d => noun.s ! n ! specDet d ;
g = noun.g