diff options
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 |