GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-13 13:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

WordsCat in_Prep problem

Browse Source
This commit is contained in:
jordi.saludes
2010-05-25 18:30:42 +00:00
parent 595b6409f7
commit 001f7f5ca0
2 changed files with 45 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
examples/phrasebook/GreetingsCat.gf
View File

@@ -1,31 +1,33 @@
concrete GreetingsCat of Greetings = open Prelude in { concrete GreetingsCat of Greetings = open Prelude in {
--lincat lincat
-- Greeting = SS ; Greeting = SS ;
--lin lin
-- GBye = ss "ciao" ; GBye = ss "adéu" ;
-- GCheers = ss "cincin" ; GCheers = ss "salut" ;
-- GDamn = ss "maledizione" ; GDamn = ss "merda" ;
-- GExcuse = ss "scusa" ; GExcuse = ss "perdona" ;
-- GExcusePol = ss "scusi" ; GExcusePol = ss ("perdoni" | "disculpi") ;
-- GGoodDay = ss "buongiorno" ; GCongratulations = ss "felicitats" ;
-- GGoodEvening = ss "buona sera" ; GHappyBirthday = ss "feliç aniversari" ;
-- GGoodMorning = ss "buongiorno" ; GGoodLuck = ss "sort" ;
-- GGoodNight = ss "buona notte" ; GGoodDay = ss "bon dia" ;
-- GGoodbye = ss "arrivederci" ; GGoodEvening = ss "bona tarda" ;
-- GHello = ss "ciao" ; GGoodMorning = ss "bon dia" ;
-- GHelp = ss "aiuto" ; GGoodNight = ss "bona nit" ;
-- GHowAreYou = ss "come sta" ; GGoodbye = ss "a reveure" ;
-- GLookOut = ss "attenzione" ; GHello = ss "hola" ;
-- GNiceToMeetYou = ss "piacere di conoscerti" ; GHelp = ss "socors" ;
-- GNiceToMeetYouPol = ss "piacere di conoscerLa" ; GHowAreYou = ss "què tal" ;
-- GPleaseGive, GPleaseGivePol = ss "per favore" ; GLookOut = ss "compte" ;
-- GSeeYouSoon = ss "a presto" ; ---- GNiceToMeetYou = ss "encantat de conèixer-lo" ; -- make distinction Masc/Fem
-- GSorry = ss "scusami" ; ---- GPleaseGive = ss "si et plau" ;
-- GSorryPol = ss "scusimi" ; ---- GPleaseGivePol = ss "si us plau" ;
-- GThanks = ss "grazie" ; GSeeYouSoon = ss "fins aviat" ;
-- GTheCheck = ss "il conto" ; GSorry = ss "perdoni" ;
GSorryPol = ss "em sap greu" ;
GThanks = ss "gràcies" ;
GTheCheck = ss "el compte" ;
--}
} }

34
examples/phrasebook/WordsCat.gf
View File

@@ -16,35 +16,35 @@ lin
Apple = mkCN L.apple_N ; Apple = mkCN L.apple_N ;
Beer = mkCN L.beer_N ; Beer = mkCN L.beer_N ;
Bread = mkCN L.bread_N ; Bread = mkCN L.bread_N ;
-- Cheese = mkCN (mkN "formaggio") ; Cheese = mkCN (mkN "formatge") ;
-- Chicken = mkCN (mkN "pollo") ; Chicken = mkCN (mkN "pollastre") ;
-- Coffee = mkCN (mkN "caffè") ; Coffee = mkCN (mkN "cafè") ;
Fish = mkCN L.fish_N ; Fish = mkCN L.fish_N ;
-- Meat = mkCN (mkN "carne" feminine) ; Meat = mkCN (mkN "carn" feminine) ;
Milk = mkCN L.milk_N ; Milk = mkCN L.milk_N ;
-- Pizza = mkCN (mkN "pizza") ; Pizza = mkCN (mkN "pizza") ;
Salt = mkCN L.salt_N ; Salt = mkCN L.salt_N ;
-- Tea = mkCN (mkN "tè") ; Tea = mkCN (mkN "te") ;
Water = mkCN L.water_N ; Water = mkCN L.water_N ;
Wine = mkCN L.wine_N ; Wine = mkCN L.wine_N ;
-- properties -- properties
Bad = L.bad_A ; Bad = L.bad_A ;
-- Boring = mkA "noioso" ; Boring = mkA "avorrit" "avorrida" "avorrits" "avorrides" "avorridament" ;
-- Cheap = let c = "a buon mercato" in mkA c c c c c ; ---- Cheap = mkA "barat" ;
Cold = L.cold_A ; Cold = L.cold_A ;
-- Delicious = mkA "delizioso" ; Delicious = mkA "deliciós" "deliciosa" "deliciosos" "delicioses" "deliciosament";
-- Expensive = mkA "caro" ; Expensive = mkA "car" ;
-- Fresh = mkA "fresco" ; Fresh = mkA "fresc" ;
Good = L.good_A ; Good = L.good_A ;
Warm = L.warm_A ; Warm = L.warm_A ;
-- Suspect = mkA "sospetto" ; Suspect = mkA "sospitós" ;
-- places -- places
-- Airport = mkPlace (mkN "aeroporto") dative ; Airport = mkPlace (mkN "aeroport") dative ;
-- Bar = mkPlace (mkN "bar") P.in_Prep ; Bar = mkPlace (mkN "bar") P.in_Prep ;
-- Church = mkPlace (mkN "chiesa") P.in_Prep ; -- Church = mkPlace (mkN "chiesa") P.in_Prep ;
-- Cinema = mkPlace (mkN "cinema") P.in_Prep ; -- Cinema = mkPlace (mkN "cinema") P.in_Prep ;
-- Hospital = mkPlace (mkN "ospedale") P.in_Prep ; -- Hospital = mkPlace (mkN "ospedale") P.in_Prep ;
@@ -153,7 +153,7 @@ lin
-- auxiliaries -- auxiliaries
-- oper oper
-- mkNat : Str -> Str -> NPNationality = \nat,co -> -- mkNat : Str -> Str -> NPNationality = \nat,co ->
-- mkNPNationality (mkNP (mkPN nat)) (mkNP (mkPN co)) (mkA nat) ; -- mkNPNationality (mkNP (mkPN nat)) (mkNP (mkPN co)) (mkA nat) ;
@@ -161,8 +161,8 @@ lin
-- let day = mkNP (mkPN d) in -- let day = mkNP (mkPN d) in
-- mkNPDay day (P.mkAdv ("il" ++ d)) (P.mkAdv ("il" ++ d)) ; ---- ? -- mkNPDay day (P.mkAdv ("il" ++ d)) (P.mkAdv ("il" ++ d)) ; ---- ?
-- mkPlace : N -> Prep -> {name : CN ; at : Prep ; to : Prep} = \p,i -> mkPlace : N -> Prep -> {name : CN ; at : Prep ; to : Prep} = \p,i ->
-- mkCNPlace (mkCN p) i dative ; mkCNPlace (mkCN p) i dative ;
-- xOf : GNumber -> N -> NPPerson -> NPPerson = \n,x,p -> mkRelative n (mkCN x) p ; -- xOf : GNumber -> N -> NPPerson -> NPPerson = \n,x,p -> mkRelative n (mkCN x) p ;