GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-09 19:22: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 27de3c0e7b
commit 24207d40e9
16 changed files with 115 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
next-lib/src/english/AdjectiveEng.gf
View File

@@ -10,8 +10,16 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in {
s = \\_ => a.s ! AAdj Compar ++ "than" ++ np.s ! Nom ;
isPre = False
} ;
UseComparA a = {
s = \\_ => a.s ! AAdj Compar ;
isPre = True
} ;
AdjOrd ord = {
s = \\_ => ord.s ;
isPre = True
} ;
-- $SuperlA$ belongs to determiner syntax in $Noun$.
ComplA2 a np = {
s = \\_ => a.s ! AAdj Posit ++ a.c2 ++ np.s ! Acc ;
@@ -33,6 +41,9 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in {
isPre = ap.isPre
} ;
UseA2 a = a ;
UseA2 a = {
s = \\_ => a.s ! AAdj Posit ;
isPre = True
} ;
}

12
next-lib/src/english/NounEng.gf
View File

@@ -31,18 +31,18 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
a = np.a
} ;
DetQuantOrd quant num ord = {
s = quant.s ! num.hasCard ! num.n ++ num.s ++ ord.s ;
sp = quant.sp ! num.hasCard ! num.n ++ num.s ++ ord.s ;
n = num.n
} ;
DetQuant quant num = {
s = quant.s ! num.hasCard ! num.n ++ num.s ;
sp = quant.sp ! num.hasCard ! num.n ++ num.s ;
n = num.n
} ;
DetQuantOrd quant num ord = {
s = quant.s ! num.hasCard ! num.n ++ num.s ++ ord.s ;
sp = quant.sp ! num.hasCard ! num.n ++ num.s ++ ord.s ;
n = num.n
} ;
DetNP det = {
s = \\c => det.sp ; ---- case
a = agrP3 det.n