summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2010-12-08 14:01:34 +0000
committeraarne <aarne@chalmers.se>2010-12-08 14:01:34 +0000
commitf6e088770fddfdc1a8d99926551a5b85d4e13339 (patch)
tree68a494a3b917bd9a3341b4415d697e55072c0bb6 /examples
parent73a10e1a66920eefe9c95f9e14475a91d81eabed (diff)
ProDrop in PhrasebookPol
Diffstat (limited to 'examples')
-rw-r--r--examples/phrasebook/SentencesPol.gf24
1 files changed, 18 insertions, 6 deletions
diff --git a/examples/phrasebook/SentencesPol.gf b/examples/phrasebook/SentencesPol.gf
index ef728298a..f58d51dd7 100644
--- a/examples/phrasebook/SentencesPol.gf
+++ b/examples/phrasebook/SentencesPol.gf
@@ -3,12 +3,14 @@ concrete SentencesPol of Sentences =
Day,PDay,OnDay,Language,PLanguage,Citizenship,
PCitizenship,CitiNat,PropCit,ACitizen,
Nationality,Transport,PTransport,ByTransp,
- IFemale,YouFamFemale,YouPolFemale,YouPolMale]
+ IFemale,YouFamFemale,YouPolFemale,YouPolMale,
+ IMale, YouFamMale --- AR, for pro drop
+ ]
with
(Syntax = SyntaxPol),
(Symbolic = SymbolicPol),
(Lexicon = LexiconPol) **
- open (N = NounPol),(R = ResPol), (Pron = PronounMorphoPol), Prelude in {
+ open (N = NounPol),(R = ResPol), (Pron = PronounMorphoPol), (E = ExtraPol), Prelude in {
flags
optimize =values ; coding =utf8 ;
@@ -33,8 +35,18 @@ concrete SentencesPol of Sentences =
R.MascPersSg=>n.citizenMSg; R.FemSg=>n.citizenF; _=>n.citizenMPl
};
lock_Adv=<>};
- IFemale = mkPerson (Pron.pronJaFoo (R.PGen R.Fem));
- YouFamFemale = mkPerson (Pron.pronTyFoo (R.PGen R.Fem));
- YouPolFemale = mkPerson (Pron.pronPani);
- YouPolMale = mkPerson (Pron.pronPan);
+
+--- AR 8/12/2010: using pro drop
+ IMale = mkPerson (E.ProDrop Pron.pronJa);
+ IFemale = mkPerson (E.ProDrop (Pron.pronJaFoo (R.PGen R.Fem)));
+ YouFamMale = mkPerson (E.ProDrop (Pron.pronTy));
+ YouFamFemale = mkPerson (E.ProDrop (Pron.pronTyFoo (R.PGen R.Fem)));
+ YouPolFemale = mkPerson (E.ProDrop (Pron.pronPani));
+ YouPolMale = mkPerson (E.ProDrop (Pron.pronPan));
+
+--- original
+--- IFemale = mkPerson (Pron.pronJaFoo (R.PGen R.Fem));
+--- YouFamFemale = mkPerson (Pron.pronTyFoo (R.PGen R.Fem));
+--- YouPolFemale = mkPerson (Pron.pronPani);
+--- YouPolMale = mkPerson (Pron.pronPan);
}