diff options
| author | aarne <aarne@chalmers.se> | 2011-11-30 10:54:05 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-11-30 10:54:05 +0000 |
| commit | d2b99a0607e99e4a2e031d34b9b59126ef4b1149 (patch) | |
| tree | 06f176b2fe0bc4bed8102ca048448f092dfa1550 /examples/phrasebook/SentencesGer.gf | |
| parent | cac8f22129e37e307eb0633bb4556780196e67bf (diff) | |
added RGL-functorial concepts to Phrasebook
Diffstat (limited to 'examples/phrasebook/SentencesGer.gf')
| -rw-r--r-- | examples/phrasebook/SentencesGer.gf | 11 |
1 files changed, 10 insertions, 1 deletions
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 ; } |