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

Put 'dative' in all Place's

Browse Source
This commit is contained in:
jordi.saludes
2010-05-26 15:39:32 +00:00
parent 5001bc6e18
commit d1f0b24145
1 changed files with 29 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
examples/phrasebook/WordsCat.gf
View File

@@ -44,37 +44,35 @@ lin
-- places -- places
oper
mkLloc : N -> CNPlace = \n -> mkPlace n dative ;
lin lin
Airport = mkLloc (mkN "aeroport") ; Airport = mkPlace (mkN "aeroport") ;
AmusementPark = mkLloc (mkN "parc d' atraccions") ; AmusementPark = mkPlace (mkN "parc d' atraccions") ;
Bank = mkLloc (mkN "banc") ; Bank = mkPlace (mkN "banc") ;
Bar = mkLloc (mkN "bar") ; Bar = mkPlace (mkN "bar") ;
Cafeteria = mkLloc (mkN "cafeteria") ; Cafeteria = mkPlace (mkN "cafeteria") ;
Center = mkLloc (mkN "centre") ; Center = mkPlace (mkN "centre") ;
Cinema = mkLloc (mkN "cinema" masculine) ; Cinema = mkPlace (mkN "cinema" masculine) ;
Church = mkLloc (mkN "església") ; Church = mkPlace (mkN "església") ;
Disco = mkLloc (mkN "discoteca") ; Disco = mkPlace (mkN "discoteca") ;
Hospital = mkLloc (mkN "hospital") ; Hospital = mkPlace (mkN "hospital") ;
Hotel = mkLloc (mkN "alberg") ; Hotel = mkPlace (mkN "alberg") ;
Museum = mkLloc (mkN "museu") ; Museum = mkPlace (mkN "museu") ;
Park = mkLloc (mkN "parc") ; Park = mkPlace (mkN "parc") ;
Parking = mkLloc (mkN "pàrking" masculine) ; Parking = mkPlace (mkN "pàrking" masculine) ;
Pharmacy = mkLloc (mkN "farmàcia") ; Pharmacy = mkPlace (mkN "farmàcia") ;
PostOffice = mkLloc (mkN "oficina de correus" feminine) ; PostOffice = mkPlace (mkN "oficina de correus" feminine) ;
Pub = mkLloc (mkN "pub" masculine) ; Pub = mkPlace (mkN "pub" masculine) ;
Restaurant = mkLloc (mkN "restaurant") ; Restaurant = mkPlace (mkN "restaurant") ;
School = mkLloc (mkN "escola") ; School = mkPlace (mkN "escola") ;
Shop = mkLloc (mkN "tenda") ; Shop = mkPlace (mkN "tenda") ;
Station = mkLloc (mkN "estació" feminine) ; Station = mkPlace (mkN "estació" feminine) ;
Supermarket = mkLloc (mkN "supermercat" masculine) ; Supermarket = mkPlace (mkN "supermercat" masculine) ;
Theatre = mkLloc (mkN "teatre") ; Theatre = mkPlace (mkN "teatre") ;
Toilet = mkLloc (mkN "lavabo") ; Toilet = mkPlace (mkN "lavabo") ;
University = mkLloc (mkN "universitat" feminine) ; University = mkPlace (mkN "universitat" feminine) ;
Zoo = mkLloc (mkN "zoo" masculine) ; Zoo = mkPlace (mkN "zoo" masculine) ;
CitRestaurant cit = mkCNPlace (mkCN cit (mkN "restaurant")) in_Prep dative ; CitRestaurant cit = mkCNPlace (mkCN cit (mkN "restaurant")) dative dative ;
-- currencies -- currencies
oper oper
@@ -265,8 +263,8 @@ lin
let day = mkNP (mkPN d) let day = mkNP (mkPN d)
in mkNPDay day (P.mkAdv ("el" ++ d)) (P.mkAdv ("el" ++ d)) ; ---- ? in mkNPDay day (P.mkAdv ("el" ++ d)) (P.mkAdv ("el" ++ d)) ; ---- ?
mkPlace : N -> Prep -> {name : CN ; at : Prep ; to : Prep} = \p,i -> mkPlace : N -> {name : CN ; at : Prep ; to : Prep} = \p ->
mkCNPlace (mkCN p) i dative ; mkCNPlace (mkCN p) dative dative ;
mkTransport : N -> {name : CN ; by : Adv} = \n -> { mkTransport : N -> {name : CN ; by : Adv} = \n -> {
name = mkCN n ; name = mkCN n ;