From d2b99a0607e99e4a2e031d34b9b59126ef4b1149 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 30 Nov 2011 10:54:05 +0000 Subject: added RGL-functorial concepts to Phrasebook --- examples/phrasebook/SentencesGer.gf | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'examples/phrasebook/SentencesGer.gf') diff --git a/examples/phrasebook/SentencesGer.gf b/examples/phrasebook/SentencesGer.gf index 336aa4b11..7378c5201 100644 --- a/examples/phrasebook/SentencesGer.gf +++ b/examples/phrasebook/SentencesGer.gf @@ -2,7 +2,9 @@ concrete SentencesGer of Sentences = NumeralGer ** SentencesI - [PYesToNo,SHaveNo,SHaveNoMass, Proposition, Action, Is, IsMass, SProp, SPropNot, QProp, AHaveCurr, ACitizen, ABePlace, AKnowSentence, AKnowPerson, AKnowQuestion, - Nationality, Language + Nationality, Language, + ADoVerbPhrase, AModVerbPhrase, ADoVerbPhrasePlace, AModVerbPhrasePlace, + YouPlurPolMale, YouPlurPolFemale ] with (Syntax = SyntaxGer), (Symbolic = SymbolicGer), @@ -38,4 +40,11 @@ concrete SentencesGer of Sentences = NumeralGer ** SentencesI - Nationality = {lang : CN ; country : NP ; prop : A} ; Language = CN ; -- kein Deutsch +-- the new things + lin + ADoVerbPhrase p vp = prop (mkCl p.name vp) ; + AModVerbPrase m p vp = prop (mkCl p.name (mkVP m vp)) ; + ADoVerbPhrasePlace p vp x = prop (mkCl p.name (mkVP vp x.at)) ; + AModVerbPrasePlace m p vp x = prop (mkCl p.name (mkVP m (mkVP vp x.at))) ; + YouPlurPolMale, YouPlurPolFemale = mkPerson youPol_Pron ; } -- cgit v1.2.3