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

scandinavian compound comparison

Browse Source
This commit is contained in:
aarne
2006-05-31 12:24:48 +00:00
parent 993f2b3e1e
commit 0694e0e1bb
11 changed files with 52 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/resource-1.0/scandinavian/AdjectiveScand.gf
View File

@@ -8,7 +8,11 @@ incomplete concrete AdjectiveScand of Adjective =
isPre = True
} ;
ComparA a np = {
s = \\_ => a.s ! AF ACompar Nom ++ conjThan ++ np.s ! nominative ;
s = \\ap => case a.isComp of {
True => compMore ++ a.s ! AF (APosit ap) Nom ;
_ => a.s ! AF ACompar Nom
}
++ conjThan ++ np.s ! nominative ;
isPre = False
} ;