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/WordsEng.gf | |
| parent | a32f9664f6a2da857655cad1e0cdcbf26fbbea9f (diff) | |
occupations in Phrasebook Eng,Fin,Swe,Tha
Diffstat (limited to 'examples/phrasebook/WordsEng.gf')
| -rw-r--r-- | examples/phrasebook/WordsEng.gf | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/examples/phrasebook/WordsEng.gf b/examples/phrasebook/WordsEng.gf index 387ff1863..6c637284c 100644 --- a/examples/phrasebook/WordsEng.gf +++ b/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 ; } |