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

removed accusative case for nouns in Eng (it is for NP, Pron, IP, RP only)

Browse Source
This commit is contained in:
aarne
2011-02-28 20:59:29 +00:00
parent aad6e864b9
commit f790bd949f
16 changed files with 104 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/src/english/RelativeEng.gf
View File

@@ -6,7 +6,7 @@ concrete RelativeEng of Relative = CatEng ** open ResEng in {
RelCl cl = {
s = \\t,a,p,_ => "such" ++ "that" ++ cl.s ! t ! a ! p ! ODir ;
c = Nom
c = npNom
} ;
RelVP rp vp = {
@@ -16,10 +16,10 @@ concrete RelativeEng of Relative = CatEng ** open ResEng in {
RNoAg => ag ;
RAg a => a
} ;
cl = mkClause (rp.s ! RC (fromAgr agr).g Nom) agr vp
cl = mkClause (rp.s ! RC (fromAgr agr).g npNom) agr vp
in
cl.s ! t ! ant ! b ! ODir ;
c = Nom
c = npNom
} ;
-- Pied piping: "at which we are looking". Stranding and empty
@@ -29,20 +29,20 @@ concrete RelativeEng of Relative = CatEng ** open ResEng in {
RelSlash rp slash = {
s = \\t,a,p,agr =>
slash.c2 ++ rp.s ! RPrep (fromAgr agr).g ++ slash.s ! t ! a ! p ! ODir ;
c = Acc
c = NPAcc
} ;
FunRP p np rp = {
s = \\c => np.s ! Acc ++ p.s ++ rp.s ! RPrep (fromAgr np.a).g ;
s = \\c => np.s ! NPAcc ++ p.s ++ rp.s ! RPrep (fromAgr np.a).g ;
a = RAg np.a
} ;
IdRP =
{ s = table {
RC _ Gen => "whose" ;
RC _ (NCase Gen) => "whose" ;
RC Neutr _ => "which" ;
RC _ Acc => "whom" ;
RC _ Nom => "who" ;
RC _ NPAcc => "whom" ;
RC _ (NCase Nom) => "who" ;
RPrep Neutr => "which" ;
RPrep _ => "whom"
} ;