1
0
forked from GitHub/gf-core

occupations in Phrasebook Eng,Fin,Swe,Tha

This commit is contained in:
aarne
2011-12-02 09:50:16 +00:00
parent a32f9664f6
commit 40d03d6578
6 changed files with 75 additions and 2 deletions

View File

@@ -1,10 +1,15 @@
concrete SentencesTha of Sentences = NumeralTha ** SentencesI - [ACitizen, WherePlace, WherePerson] with
concrete SentencesTha of Sentences = NumeralTha ** SentencesI - [
GObjectPlease,
ACitizen, WherePlace, WherePerson
] with
(Syntax = SyntaxTha),
(Symbolic = SymbolicTha),
(Lexicon = LexiconTha) ** open SyntaxTha, (P = ParadigmsTha), (R = ResTha) in {
flags coding=utf8 ;
lin
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))) ;
WherePlace place = mkQS (mkQCl where_IAdv (mkCl place.name yuu_V)) ;