From 40d03d6578a6c8441bdf7aece2c5d8b0b92c5581 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 2 Dec 2011 09:50:16 +0000 Subject: occupations in Phrasebook Eng,Fin,Swe,Tha --- examples/phrasebook/WordsTha.gf | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'examples/phrasebook/WordsTha.gf') 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 ; } -- cgit v1.2.3