diff options
| author | inari.listenmaa <inari.listenmaa@gmail.com> | 2013-03-26 16:47:36 +0000 |
|---|---|---|
| committer | inari.listenmaa <inari.listenmaa@gmail.com> | 2013-03-26 16:47:36 +0000 |
| commit | 8c8c63b2e970d7c39f116ad077fcc6326b07320f (patch) | |
| tree | 98552cc0593cfeab88c08c2d6931406213aac65b /examples/phrasebook/SentencesCat.gf | |
| parent | 2cb7ed57348e7b68b894bc0bf33606c349c7e1ce (diff) | |
Copula and lexical corrections to PhrasebookCat
Diffstat (limited to 'examples/phrasebook/SentencesCat.gf')
| -rw-r--r-- | examples/phrasebook/SentencesCat.gf | 8 |
1 files changed, 6 insertions, 2 deletions
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 |