occupations in Phrasebook Eng,Fin,Swe,Tha

examples/phrasebook/SentencesTha.gf

@@ -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)) ;

examples/phrasebook/Words.gf

@@ -234,4 +234,13 @@ abstract Words = Sentences ** {
 
     Smoke : VerbPhrase ;
 
+    ADoctor : Person -> Action ;
+    AProfessor : Person -> Action ;
+    ALawyer : Person -> Action ;
+    AEngineer : Person -> Action ;
+    ATeacher : Person -> Action ;
+    ACook : Person -> Action ;
+    AStudent : Person -> Action ;
+    ABusinessman : Person -> Action ;
+
 }

examples/phrasebook/WordsEng.gf

@@ -293,4 +293,15 @@ concrete WordsEng of Words = SentencesEng **
 
     Smoke = mkVP (P.mkV "smoke") ;
 
+    ADoctor = mkProfession (mkN "doctor") ;
+    AProfessor = mkProfession (mkN "professor") ;
+    ALawyer = mkProfession (mkN "lawyer") ;
+    AEngineer =  mkProfession (mkN "engineer") ;
+    ATeacher = mkProfession (mkN "teacher") ;
+    ACook = mkProfession (mkN "cook") ;
+    AStudent = mkProfession (mkN "student") ;
+    ABusinessman = mkProfession (mkN "businessman" "businessmen") ;
+
+  oper
+    mkProfession : N -> NPPerson -> Cl = \n,p -> mkCl p.name n ;
 }

examples/phrasebook/WordsFin.gf

@@ -210,7 +210,7 @@ concrete WordsFin of Words = SentencesFin **
       mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ;
 
     IsTranspPlace trans place =
-      mkQS (mkQCl (mkCl (mkVP (mkVP (mkVP (mkV "päästä")) trans.by) place.to))) ;
+      mkQS (mkQCl (mkCl (mkVP (mkVP (mkVP (mkV "päästä")) place.to) trans.by))) ;
       -- pääseekö keskustaan bussilla
       -- mkQS (mkQCl (E.AdvPredNP place.to L.go_V (E.PartCN (trans.name)))) ; 
       -- meneekö keskustaan bussia
@@ -312,4 +312,17 @@ concrete WordsFin of Words = SentencesFin **
     SunShine = mkCl (mkNP the_Det L.sun_N) (mkVP (mkV "paistaa")) ;
 
     Smoke = mkVP (mkV "tupakoida") ;
+
+    ADoctor = mkProfession (mkN "lääkäri" "lääkäreitä") ;
+    AProfessor = mkProfession (mkN "professori" "professoreita") ;
+    ALawyer = mkProfession (mkN "laki" L.man_N) ;
+    AEngineer =  mkProfession (mkN "insinööri" "insinöörejä") ;
+    ATeacher = mkProfession (mkN "opettaja" "opettajia") ;
+    ACook = mkProfession (mkN "kokki") ;
+    AStudent = mkProfession (mkN "opiskelija" "opiskelijoita") ;
+    ABusinessman = mkProfession (mkN "liike" L.man_N) ;
+
+  oper
+    mkProfession : N -> NPPerson -> Cl = \n,p -> mkCl p.name n ;
+
 }

examples/phrasebook/WordsSwe.gf

@@ -257,6 +257,7 @@ concrete WordsSwe of Words = SentencesSwe **
     Rice = mkCN (mkN "ris" "ris") ;
     Pork = mkCN (mkN "fläsk" "fläsk") ;
     Beef = mkCN (mkN "nötkött" "nötkött") ;
+    Egg = mkCN L.egg_N ;
     Noodles = mkCN (mkN "nudel" "nudlar") ;
     Shrimps = mkCN (mkN "räka") ;
     Chili = mkCN (mkN "chili" "chilier") ;
@@ -266,6 +267,29 @@ concrete WordsSwe of Words = SentencesSwe **
     Pineapple = mkCN (mkN "ananas" "ananaser") ;
     Coke = mkCN (mkN "kola") ;
     IceCream = mkCN (mkN "glass") ;
+    Salad = mkCN (mkN "sallad" "sallader") ;
+    OrangeJuice = mkCN (mkN "apelsinjuice" "apelsinjuicer") ;
+    Lemonade = mkCN (mkN "läsk") ;
     Beach = mkPlace (mkN "badstrand" "badstränder") "på" ;
 
+    ItsRaining = mkCl (mkVP L.rain_V0) ;
+    ItsCold = mkCl (mkVP L.cold_A) ;
+    ItsWarm = mkCl (mkVP L.warm_A) ;
+    ItsWindy = mkCl (mkVP (mkV "blåser")) ;
+    SunShine = mkCl (mkNP the_Det L.sun_N) (skina_V) ;
+
+    Smoke = mkVP (mkV "röker") ;
+
+    ADoctor = mkProfession (mkN "läkare" "läkare") ;
+    AProfessor = mkProfession (mkN "professor" "professorer") ;
+    ALawyer = mkProfession (mkN "jurist" "jurister") ;
+    AEngineer =  mkProfession (mkN "ingenjör" "ingenjörer") ;
+    ATeacher = mkProfession (mkN "lärare" "lärare") ;
+    ACook = mkProfession (mkN "kock") ;
+    AStudent = mkProfession (mkN "student" "srudenter") ;
+    ABusinessman = mkProfession (mkN "affärsman" "affärsmannen" "affärsmän" "affärsmännen") ;
+
+  oper
+    mkProfession : N -> NPPerson -> Cl = \n,p -> mkCl p.name (mkVP (CompBareCN (mkCN n))) ;
+
 }

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 ;
 }