msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

occupations in Phrasebook Eng,Fin,Swe,Tha

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

11
examples/phrasebook/WordsTha.gf
View File

@@ -303,5 +303,16 @@ concrete WordsTha of Words = SentencesTha **
Smoke = mkVP (P.mkV (R.thword "สูบ" "บุ" "รี")) ;
ADoctor = mkProfession (P.personN "หมอ") ;
AProfessor = mkProfession (P.personN (R.thword "อา" "จารย์")) ;
ALawyer = mkProfession (P.personN (R.thword "มัก" "กฎ" "หมาย")) ;
AEngineer = mkProfession (P.personN (R.thword "วิ" "ศวกร")) ;
ATeacher = mkProfession (P.personN "ครู") ;
ACook = mkProfession (P.personN (R.thword "ภัก" "ษกาน")) ;
AStudent = mkProfession (P.personN (R.thword "นัก" "ศึก" "ษา")) ;
ABusinessman = mkProfession (P.personN (R.thword "ฝู้" "ประ" "กอบ" "การ")) ;
oper
mkProfession : N -> NPPerson -> Cl = \n,p -> mkCl p.name n ;
}