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

more Scandinavian

Browse Source
This commit is contained in:
aarne
2005-12-07 18:59:35 +00:00
parent f8b9bced8b
commit 36c899e975
10 changed files with 122 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -36,8 +36,8 @@ incomplete concrete NounScand of Noun =
NoOrd = {s = []} ;
NumInt n = {s = \\_ => n.s} ;
---- NumNumeral numeral = {s = \\g => numeral.s ! NCard g} ;
OrdNumeral numeral = {s = numeral.s ! NOrd} ;
NumNumeral numeral = {s = \\g => numeral.s ! NCard g} ;
OrdNumeral numeral = {s = numeral.s ! NOrd SupWeak} ;
AdNum adn num = {s = \\g => adn.s ++ num.s ! g} ;
@@ -49,8 +49,17 @@ incomplete concrete NounScand of Noun =
IndefSg = {s = artIndef ; n = Sg ; det = DIndef} ;
IndefPl = {s = \\_ => [] ; n = Pl ; det = DIndef} ;
---- ComplN2 f x = {s = \\n,c => f.s ! n ! Nom ++ f.c2 ++ x.s ! c} ;
---- ComplN3 f x = {s = \\n,c => f.s ! n ! Nom ++ f.c2 ++ x.s ! c ; c2 = f.c3} ;
-- The genitive of this $NP$ is not correct: "sonen till mig" (not "migs").
ComplN2 f x = {
s = \\n,d,c => f.s ! n ! specDet d ! Nom ++ f.c2 ++ x.s ! accusative ;
g = f.g
} ;
ComplN3 f x = {
s = \\n,d,c => f.s ! n ! d ! Nom ++ f.c2 ++ x.s ! accusative ;
g = f.g ;
c2 = f.c3
} ;
AdjCN ap cn = let g = cn.g in {
s = \\n,d,c => preOrPost ap.isPre