mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 13:09:33 -06:00
27 lines
830 B
Plaintext
27 lines
830 B
Plaintext
concrete SentencesTha of Sentences = NumeralTha ** SentencesI - [
|
|
PGreetingMale, PGreetingFemale,
|
|
GObjectPlease,
|
|
IMale, YouFamMale, YouFamFemale,
|
|
ACitizen
|
|
] with
|
|
(Syntax = SyntaxTha),
|
|
(Symbolic = SymbolicTha),
|
|
(Lexicon = LexiconTha) ** open SyntaxTha, (P = ParadigmsTha), (R = ResTha) in {
|
|
|
|
flags coding=utf8 ;
|
|
lin
|
|
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))) ;
|
|
|
|
IMale = mkPerson (R.mkNP "ผม") ;
|
|
YouFamMale, YouFamFemale = mkPerson (R.mkNP "เธอ") ;
|
|
|
|
oper
|
|
thpron = R.thpron ;
|
|
}
|