summaryrefslogtreecommitdiff
path: root/examples/phrasebook
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2014-06-19 18:08:03 +0000
committeraarne <aarne@chalmers.se>2014-06-19 18:08:03 +0000
commit85d80a89be7d51a030de1b73a4ef264a0221df12 (patch)
treedbd594b648d416f610efdbb4c04916a25b987ded /examples/phrasebook
parent0e940b7fd199cba3dda3040dcc8093e2b13f2547 (diff)
restored some functions in PhrasebookDut to make it complete again
Diffstat (limited to 'examples/phrasebook')
-rw-r--r--examples/phrasebook/GreetingsDut.gf1
-rw-r--r--examples/phrasebook/SentencesDut.gf10
2 files changed, 7 insertions, 4 deletions
diff --git a/examples/phrasebook/GreetingsDut.gf b/examples/phrasebook/GreetingsDut.gf
index 80dee6a9f..bb7e2745b 100644
--- a/examples/phrasebook/GreetingsDut.gf
+++ b/examples/phrasebook/GreetingsDut.gf
@@ -26,4 +26,5 @@ lin
GCongratulations = mkGreeting "gefeliciteerd";
GHappyBirthday = mkGreeting "gelukkige verjaardag" ;
GGoodLuck = mkGreeting "veel geluk" ;
+ GWhatTime = mkGreeting "hoe laat is het" ;
}
diff --git a/examples/phrasebook/SentencesDut.gf b/examples/phrasebook/SentencesDut.gf
index 9eddbda9f..537bb8ae3 100644
--- a/examples/phrasebook/SentencesDut.gf
+++ b/examples/phrasebook/SentencesDut.gf
@@ -2,7 +2,9 @@ concrete SentencesDut of Sentences = NumeralDut ** SentencesI -
[SHaveNo,SHaveNoMass,
Proposition,Action, Is, IsMass, SProp, SPropNot, QProp,
AHaveCurr, ACitizen, ABePlace, AKnowSentence, AKnowPerson, AKnowQuestion,
- QDoHave, QWhereDoVerbPhrase, QModVerbPhrase, QWhereModVerbPhrase, SHave, SHaveNo,
+---- QDoHave, QWhereDoVerbPhrase, QWhereModVerbPhrase, SHave,
+ SHaveNo,
+ QModVerbPhrase,
ADoVerbPhrase, AModVerbPhrase, ADoVerbPhrasePlace, AModVerbPhrasePlace]
with
(Syntax = SyntaxDut),
@@ -43,9 +45,9 @@ concrete SentencesDut of Sentences = NumeralDut ** SentencesI -
AModVerbPhrasePlace m p vp x = prop (mkCl p.name (mkVP m (mkVP vp x.at))) ;
-- the old things
--- lin
--- SHaveNo p k = mkS (mkCl p.name have_V2 (mkNP no_Quant plNum k)) ;
--- SHaveNoMass p k = mkS (mkCl p.name have_V2 (mkNP no_Quant k)) ;
+ lin
+ SHaveNo p k = mkS (mkCl p.name have_V2 (mkNP no_Quant plNum k)) ;
+ SHaveNoMass p k = mkS (mkCl p.name have_V2 (mkNP no_Quant k)) ;
}