ParseEng: more liberal IdRP

This commit is contained in:
bjorn
2008-11-03 13:00:35 +00:00
parent bd7e0bd496
commit 580618587b
2 changed files with 13 additions and 5 deletions

View File

@@ -82,8 +82,16 @@ lin RelSlash rp slash = variants { RelativeEng.RelSlash rp slash; StrandRelSlash
-- Allow both "who"/"which" and "that" -- Allow both "who"/"which" and "that"
-- FIXME: allow both "who" and "which" for all genders lin IdRP =
lin IdRP = variants { RelativeEng.IdRP; that_RP } ; { s = table {
RC _ Gen => "whose" ;
RC Neutr _ => variants { "which"; "that"; {- for dictionary entries with the wrong gender -} "who" } ;
RC _ Acc => variants { "whom"; "that"; {- incorrect but common -} "who" } ;
RC _ Nom => variants { "who" ; "that" } ;
RPrep _ => variants { "which"; "whom"; {- incorrect but common -} "who" }
} ;
a = RNoAg
} ;
lin everybody_NP = variants { regNP "everybody" singular; regNP "everyone" singular } ; lin everybody_NP = variants { regNP "everybody" singular; regNP "everyone" singular } ;
lin somebody_NP = variants { regNP "somebody" singular; regNP "someone" singular } ; lin somebody_NP = variants { regNP "somebody" singular; regNP "someone" singular } ;

View File

@@ -1,9 +1,9 @@
abstract ParseEngAbs = abstract ParseEngAbs =
Parse, Parse,
ExtraEngAbs - [ ExtraEngAbs - [
-- Don't include the uncontracted clauses. Instead UncNegCl, UncNegQCl, UncNegRCl, UncNegImpSg, UncNegImpPl,
-- use them as variants of the contracted ones. StrandRelSlash,
UncNegCl, UncNegQCl, UncNegRCl, UncNegImpSg, UncNegImpPl that_RP
], ],
Lexicon [N3, distance_N3, Lexicon [N3, distance_N3,