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