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

GenIP, GenRP in Extra and any_Quant in ExtraEng

Browse Source
This commit is contained in:
aarne
2011-07-21 08:25:04 +00:00
parent 6946d9e07c
commit 9023382c31
6 changed files with 28 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/src/english/ExtraEng.gf
View File

@@ -1,8 +1,18 @@
concrete ExtraEng of ExtraEngAbs = CatEng **
open ResEng, Coordination, Prelude, MorphoEng in {
open ResEng, Coordination, Prelude, MorphoEng, ParadigmsEng in {
lin
GenNP np = {s = \\_,_ => np.s ! npGen ; sp = \\_,_,_ => np.s ! npGen} ;
GenIP ip = {s = \\_ => ip.s ! NCase Gen} ;
GenRP nu cn = {
s = \\c => "whose" ++ nu.s ! Nom ++
case c of {
RC _ (NCase Gen) => cn.s ! nu.n ! Gen ;
_ => cn.s ! nu.n ! Nom
} ;
a = RAg (agrP3 Sg)
} ;
ComplBareVS v s = insertObj (\\_ => s.s) (predV v) ;
StrandRelSlash rp slash = {
@@ -50,6 +60,7 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
} ;
each_Det = mkDeterminer Sg "each" ;
any_Quant = mkQuant "any" "any" ;
-- for VP conjunction