mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-05 17:22:51 -06:00
Add Phrasebook to testsuite. Move grammars into subfolders. Add run-bench script.
This commit is contained in:
26
testsuite/lpgf/phrasebook/SentencesTha.gf
Normal file
26
testsuite/lpgf/phrasebook/SentencesTha.gf
Normal file
@@ -0,0 +1,26 @@
|
||||
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 ;
|
||||
}
|
||||
Reference in New Issue
Block a user