GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

used en/par without article in WordsFre.mkTransport

Browse Source
This commit is contained in:
aarne
2010-05-03 15:30:43 +00:00
parent c7653c25ab
commit a8f56c61ff
1 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
examples/phrasebook/WordsFre.gf
View File

@@ -109,15 +109,15 @@ lin
-- means of transportation
Bike = mkTransport L.bike_N ;
Bus = mkTransport (mkN "bus") ;
Car = mkTransport L.car_N ;
Ferry = mkTransport (mkN "ferry-boat") ;
Plane = mkTransport L.airplane_N ;
Subway = mkTransport (mkN "métro") ;
Taxi = mkTransport (mkN "taxi") ;
Train = mkTransport (mkN "train") ;
Tram = mkTransport (mkN "tram") ;
Bike = mkTransport en_Prep L.bike_N ;
Bus = mkTransport par_Prep (mkN "bus") ;
Car = mkTransport en_Prep L.car_N ;
Ferry = mkTransport en_Prep (mkN "ferry-boat") ;
Plane = mkTransport par_Prep L.airplane_N ;
Subway = mkTransport par_Prep (mkN "métro") ;
Taxi = mkTransport en_Prep (mkN "taxi") ;
Train = mkTransport par_Prep (mkN "train") ;
Tram = mkTransport par_Prep (mkN "tram") ;
ByFoot = P.mkAdv "à pied" ;
@@ -244,11 +244,14 @@ lin
xOf : GNumber -> N -> NPPerson -> NPPerson = \n,x,p -> mkRelative n (mkCN x) p ;
mkTransport : N -> {name : CN ; by : Adv} = \n -> {
mkTransport : Prep -> N -> {name : CN ; by : Adv} = \p,n -> {
name = mkCN n ;
by = SyntaxFre.mkAdv by8means_Prep (mkNP the_Det n) --- par le bus
by = E.PrepCN p n -- par train, en vélo
} ;
en_Prep = mkPrep "en" ;
par_Prep = mkPrep "par" ;
mkSuperl : A -> Det = \a -> SyntaxFre.mkDet the_Art (SyntaxFre.mkOrd a) ;
far_IAdv = ss "loin" ;