GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

Male/Female greetings distinguished in Phrasebook

Browse Source
This commit is contained in:
aarne
2011-12-04 18:09:02 +00:00
parent 269ca955e1
commit 1fd47d1213
5 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
examples/phrasebook/DisambPhrasebookEng.gf
View File

@@ -2,6 +2,7 @@
concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng -
[
PGreetingMale, PGreetingFemale,
IMale, IFemale,
YouFamMale, YouFamFemale,
YouPolMale, YouPolFemale,
@@ -25,6 +26,8 @@ concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng -
]
** open SyntaxEng, ParadigmsEng, IrregEng, Prelude in {
lin
PGreetingMale g = mkText (lin Text g) (lin Text (ss "(by male)")) ;
PGreetingFemale g = mkText (lin Text g) (lin Text (ss "(by female)")) ;
IMale = mkP i_Pron "(male)" ;
IFemale = mkP i_Pron "(female)" ;
WeMale = mkP we_Pron "(male)" ;

7
examples/phrasebook/Sentences.gf
View File

@@ -61,9 +61,10 @@ abstract Sentences = Numeral ** {
-- PWord : Word -> Phrase ;
PGreeting : Greeting -> Phrase ;
PSentence : Sentence -> Phrase ;
PQuestion : Question -> Phrase ;
PGreetingMale : Greeting -> Phrase ; -- depends on speaker e.g. in Thai
PGreetingFemale : Greeting -> Phrase ;
PSentence : Sentence -> Phrase ;
PQuestion : Question -> Phrase ;
PNumber : Number -> Phrase ;
PPrice : Price -> Phrase ;

2
examples/phrasebook/SentencesI.gf
View File

@@ -51,7 +51,7 @@ incomplete concrete SentencesI of Sentences = Numeral **
PSentence s = mkText s | lin Text (mkUtt s) ; -- optional '.'
PQuestion s = mkText s | lin Text (mkUtt s) ; -- optional '?'
PGreeting g = mkText (lin Phr g) exclMarkPunct | g ;
PGreetingMale, PGreetingFemale = \g -> mkText (lin Phr g) exclMarkPunct | g ;
-- PWord w = w ;

7
examples/phrasebook/SentencesTha.gf
View File

@@ -1,4 +1,5 @@
concrete SentencesTha of Sentences = NumeralTha ** SentencesI - [
PGreetingMale, PGreetingFemale,
GObjectPlease,
ACitizen, WherePlace, WherePerson
] with
@@ -8,7 +9,11 @@ concrete SentencesTha of Sentences = NumeralTha ** SentencesI - [
flags coding=utf8 ;
lin
GObjectPlease o = lin Text (mkPhr (lin PConj (ss "ขอ")) (mkUtt o) (lin Voc (ss "หน่อย"))) | lin Text (mkUtt o) ;
PGreetingMale g = mkText (lin Text g) (lin Text (ss "ครับ")) | g ;
PGreetingFemale g = mkText (lin Text g) (lin Text (ss "ค่ะ")) | g ;
GObjectPlease o =
lin Text (mkPhr (lin PConj (ss "ขอ")) (mkUtt o) (lin Voc (ss "หน่อย"))) | lin Text (mkUtt o) ;
ACitizen p n = mkCl p.name (mkVP (mkCN n (P.personN R.khon_s))) ;

4
examples/phrasebook/WordsTha.gf
View File

@@ -48,9 +48,9 @@ concrete WordsTha of Words = SentencesTha **
Airport = mkPlace (placeN (R.thword "สนาม" "บิน")) ;
AmusementPark = mkPlace (placeN (R.thword "สวน" "สนุก")) ;
Bank = mkPlace (placeN (R.thword "ธนา" "คาร")) ;
Bar = mkPlace (placeN (R.thword "บา" "ร์")) ;
Bar = mkPlace (placeN (R.thword "บาร์")) ;
Cafeteria = mkPlace (placeN (R.thword "โรง" "อา" "หาร")) ;
Center = mkPlace (placeN (R.thword "ศูน" "ย์" "กลาง")) ;
Center = mkPlace (placeN (R.thword "ศูนย์" "กลาง")) ;
Cinema = mkPlace (placeN (R.thword "โรง" "หนัง")) ;
Church = mkPlace (placeN (R.thword "โบส" "ถ์")) ;
Disco = mkPlace (placeN (R.thword "ดิส" "โก้")) ;