forked from GitHub/gf-core
Male/Female greetings distinguished in Phrasebook
This commit is contained in:
@@ -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))) ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user