diff options
| author | aarne <aarne@chalmers.se> | 2010-08-25 09:08:31 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-08-25 09:08:31 +0000 |
| commit | c67a50b86928964a9cd04e7ca5f8f63612a562d1 (patch) | |
| tree | 2f8af31da74515e2a785bde55f90c13cf2d5e27f /examples | |
| parent | d3a686627704c3c73d86f5d31bf3669e5c793b35 (diff) | |
updates in Phrasebook and resources
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/phrasebook/Sentences.gf | 6 | ||||
| -rw-r--r-- | examples/phrasebook/SentencesBul.gf | 3 | ||||
| -rw-r--r-- | examples/phrasebook/SentencesI.gf | 3 | ||||
| -rw-r--r-- | examples/phrasebook/WordsGer.gf | 2 | ||||
| -rw-r--r-- | examples/query/README | 2 |
5 files changed, 13 insertions, 3 deletions
diff --git a/examples/phrasebook/Sentences.gf b/examples/phrasebook/Sentences.gf index 45b82f030..031253b9e 100644 --- a/examples/phrasebook/Sentences.gf +++ b/examples/phrasebook/Sentences.gf @@ -145,5 +145,11 @@ abstract Sentences = Numeral ** { ByTransp : Transport -> ByTransport ; -- by bus + AKnowSentence : Person -> Sentence -> Action ; -- you know that I am in the bar + AKnowPerson : Person -> Person -> Action ; -- you know me + +-- in Words, as long as Lexicon doesn't have it +-- AKnowQuestion : Person -> Question -> Action ; -- you know how far the bar is + } diff --git a/examples/phrasebook/SentencesBul.gf b/examples/phrasebook/SentencesBul.gf index d2f3eb17a..4f6d6317f 100644 --- a/examples/phrasebook/SentencesBul.gf +++ b/examples/phrasebook/SentencesBul.gf @@ -2,7 +2,8 @@ concrete SentencesBul of Sentences = NumeralBul ** SentencesI - [IMale, IFemale, YouFamMale, YouFamFemale, YouPolMale, YouPolFemale, ACitizen, Citizenship, PCitizenship, LangNat, CitiNat, CountryNat, PropCit, - Nationality, Country, Language, PLanguage, PCountry] with + Nationality, Country, Language, PLanguage, PCountry + ] with (Syntax = SyntaxBul), (Symbolic = SymbolicBul), (Lexicon = LexiconBul) ** open ExtraBul, (R = ResBul) in { diff --git a/examples/phrasebook/SentencesI.gf b/examples/phrasebook/SentencesI.gf index f871c7d06..334b7e92a 100644 --- a/examples/phrasebook/SentencesI.gf +++ b/examples/phrasebook/SentencesI.gf @@ -133,6 +133,9 @@ incomplete concrete SentencesI of Sentences = Numeral ** ABePlace p place = mkCl p.name place.at ; ByTransp t = t.by ; + AKnowSentence p s = mkCl p.name Lexicon.know_VS s ; + AKnowPerson p q = mkCl p.name Lexicon.know_V2 q.name ; + oper -- These operations are used internally in Sentences. diff --git a/examples/phrasebook/WordsGer.gf b/examples/phrasebook/WordsGer.gf index ad132e4f7..35fb3db1a 100644 --- a/examples/phrasebook/WordsGer.gf +++ b/examples/phrasebook/WordsGer.gf @@ -33,7 +33,7 @@ concrete WordsGer of Words = SentencesGer ** Fresh = mkA "frisch" ; Good = L.good_A ; Warm = L.warm_A ; - Suspect = mkA "vermut" ; + Suspect = mkA "verdächtig" ; -- places diff --git a/examples/query/README b/examples/query/README index 81442cd01..94ead32e7 100644 --- a/examples/query/README +++ b/examples/query/README @@ -19,7 +19,7 @@ Test: -- which can be provided by 'runghc Make present lang api langs=Eng' in lib/src/ % gf QueryEng.gf -- parse a sentence and see all variants - > "p "Bulgarian people working at Google" | l -all + > p "Bulgarian people working at Google" | l -all Regression test: |