msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

updates in Phrasebook and resources

Browse Source
This commit is contained in:
aarne
2010-08-25 09:08:31 +00:00
parent d3a6866277
commit c67a50b869
5 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
examples/phrasebook/Sentences.gf
View File

@@ -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
}

3
examples/phrasebook/SentencesBul.gf
View File

@@ -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 {

3
examples/phrasebook/SentencesI.gf
View File

@@ -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.

2
examples/phrasebook/WordsGer.gf
View File

@@ -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

2
examples/query/README
View File

@@ -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: