msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

controlling the substantival and adjectival det forms in english

Browse Source
This commit is contained in:
aarne
2010-12-17 14:04:05 +00:00
parent b3dc045e3f
commit 6250c85417
3 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/english/NounEng.gf
View File

@@ -37,17 +37,19 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in {
False => quant.sp ! num.hasCard ! num.n ! c ++ num.s ! Nom ;
True => quant.sp ! num.hasCard ! num.n ! Nom ++ num.s ! c
} ;
n = num.n
n = num.n ;
hasNum = num.hasCard
} ;
DetQuantOrd quant num ord = {
s = quant.s ! num.hasCard ! num.n ++ num.s ! Nom ++ ord.s ! Nom;
sp = \\c => quant.sp ! num.hasCard ! num.n ! Nom ++ num.s ! Nom ++ ord.s ! c ;
n = num.n
n = num.n ;
hasNum = True
} ;
DetNP det = {
s = det.sp ;
s = case det.hasNum of {True => \\_ => det.s ; _ => det.sp} ;
a = agrP3 det.n
} ;