From 8c8c63b2e970d7c39f116ad077fcc6326b07320f Mon Sep 17 00:00:00 2001 From: "inari.listenmaa" Date: Tue, 26 Mar 2013 16:47:36 +0000 Subject: Copula and lexical corrections to PhrasebookCat --- examples/phrasebook/SentencesCat.gf | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'examples/phrasebook/SentencesCat.gf') diff --git a/examples/phrasebook/SentencesCat.gf b/examples/phrasebook/SentencesCat.gf index 3bf19534d..43116581e 100644 --- a/examples/phrasebook/SentencesCat.gf +++ b/examples/phrasebook/SentencesCat.gf @@ -3,7 +3,8 @@ concrete SentencesCat of Sentences = NumeralCat ** SentencesI - [ IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale, WeMale, WeFemale, YouPlurFamMale, YouPlurFamFemale, YouPlurPolFemale, YouPlurPolMale, TheyMale, TheyFemale, PImperativeFamNeg, PImperativePolNeg, PImperativePlurNeg, --negative imperatives in subjunctive - Superlative + Superlative, + AKnowPerson ] with (Syntax = SyntaxCat), @@ -11,7 +12,7 @@ concrete SentencesCat of Sentences = NumeralCat ** SentencesI - [ (Lexicon = LexiconCat) ** open ParadigmsCat, BeschCat, SyntaxCat, ExtraCat, Prelude in { -flags coding = utf8 ; +--flags coding = utf8 ; lincat Superlative = OrdSuperlative ; -- {ord: Ord ; isPre: Bool} @@ -56,6 +57,9 @@ lin PImperativePolNeg v = phrasePlease (ImpNeg (mkNP (ProDrop youPol_Pron)) v) ; PImperativePlurNeg v = phrasePlease (ImpNeg (mkNP (ProDrop youPl_Pron)) v) ; + AKnowPerson p q = + let coneixer : V2 = mkV2 (mkV (cončixer_27 "cončixer")) + in mkCl p.name coneixer q.name ; oper -- cgit v1.2.3