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/WordsFin.gf | |
| parent | a32f9664f6a2da857655cad1e0cdcbf26fbbea9f (diff) | |
occupations in Phrasebook Eng,Fin,Swe,Tha
Diffstat (limited to 'examples/phrasebook/WordsFin.gf')
| -rw-r--r-- | examples/phrasebook/WordsFin.gf | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/examples/phrasebook/WordsFin.gf b/examples/phrasebook/WordsFin.gf index 98a2e334d..16b6f9b71 100644 --- a/examples/phrasebook/WordsFin.gf +++ b/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 ; + } |