diff options
| author | krasimir <krasimir@chalmers.se> | 2010-05-20 12:07:27 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-05-20 12:07:27 +0000 |
| commit | bc7d8f75c34b8bc6906c2800e205f84ee3b6c004 (patch) | |
| tree | ecc3f000cc95f113e3b2800686cb05d62712d9f8 | |
| parent | 694b0a61ac3305776f55673a1de773156ab8f01b (diff) | |
transport in WordsBul.gf
| -rw-r--r-- | examples/phrasebook/WordsBul.gf | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/examples/phrasebook/WordsBul.gf b/examples/phrasebook/WordsBul.gf index 8d2f2568f..d5f1a5d7e 100644 --- a/examples/phrasebook/WordsBul.gf +++ b/examples/phrasebook/WordsBul.gf @@ -110,6 +110,20 @@ concrete WordsBul of Words = SentencesBul ** Swedish = mkNat (mkN007 "швед") (mkN041 "шведка") (mkA078 "шведски") (mkPN "Швеция" R.Fem) ; Spanish = mkNat (mkN008a "испанец") (mkN041 "испанка") (mkA078 "испански") (mkPN "Испания" R.Fem) ; +-- Means of transportation + + Bike = mkTransport L.bike_N ; + Bus = mkTransport (mkN007 "автобус") ; + Car = mkTransport L.car_N ; + Ferry = mkTransport (mkN007 "ферибот") ; + Plane = mkTransport (mkN007 "самолет") ; + Subway = mkTransport (mkN054 "метро") ; + Taxi = mkTransport (mkN073 "такси") ; + Train = mkTransport (mkN001 "влак") ; + Tram = mkTransport (mkN032 "трамвай") ; + + ByFoot = P.mkAdv "пеша" ; + -- Actions: the predication patterns are very often language-dependent. AHasAge p num = mkCl p.name (mkNP num L.year_N) ; @@ -207,5 +221,9 @@ concrete WordsBul of Words = SentencesBul ** -- nameOf : NPPerson -> NP = \p -> (xOf sing (mkN "name") p).name ; + mkTransport : N -> {name : CN ; by : Adv} = \n -> { + name = mkCN n ; + by = SyntaxBul.mkAdv (P.mkPrep "с" R.Acc) (mkNP n) + } ; } |