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

extended AP with Ord and compar in 1.5

Browse Source
This commit is contained in:
aarne
2008-10-03 20:42:09 +00:00
parent 56c2c0e067
commit 16a1a48874
16 changed files with 115 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
next-lib/src/scandinavian/AdjectiveScand.gf
View File

@@ -15,8 +15,18 @@ incomplete concrete AdjectiveScand of Adjective =
++ conjThan ++ np.s ! nominative ;
isPre = False
} ;
UseComparA a = {
s = \\ap => case a.isComp of {
True => compMore ++ a.s ! AF (APosit ap) Nom ;
_ => a.s ! AF ACompar Nom
} ;
isPre = False
} ;
-- $SuperlA$ belongs to determiner syntax in $Noun$.
AdjOrd ord = {
s = \\_ => ord.s ;
isPre = True
} ;
ComplA2 a np = {
s = \\ap => a.s ! AF (APosit ap) Nom ++ a.c2.s ++ np.s ! accusative ;
@@ -39,6 +49,9 @@ incomplete concrete AdjectiveScand of Adjective =
isPre = ap.isPre
} ;
UseA2 a = a ;
UseA2 a = {
s = \\ap => a.s ! AF (APosit ap) Nom ;
isPre = True
} ;
}