diff options
| author | aarne <aarne@chalmers.se> | 2011-12-02 09:50:16 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-12-02 09:50:16 +0000 |
| commit | 40d03d6578a6c8441bdf7aece2c5d8b0b92c5581 (patch) | |
| tree | 7c6a5b4c069f68872ca34d36a2bd80baa4b0ac83 /examples/phrasebook/WordsTha.gf | |
| parent | a32f9664f6a2da857655cad1e0cdcbf26fbbea9f (diff) | |
occupations in Phrasebook Eng,Fin,Swe,Tha
Diffstat (limited to 'examples/phrasebook/WordsTha.gf')
| -rw-r--r-- | examples/phrasebook/WordsTha.gf | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/examples/phrasebook/WordsTha.gf b/examples/phrasebook/WordsTha.gf index 0762706b3..293766c60 100644 --- a/examples/phrasebook/WordsTha.gf +++ b/examples/phrasebook/WordsTha.gf @@ -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 ; } |