msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

patches in Spanish adjectives by Inari

Browse Source
This commit is contained in:
aarne
2011-06-02 07:24:20 +00:00
parent 7445a5fda6
commit 5782bea01d
1 changed files with 33 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
examples/phrasebook/WordsSpa.gf
View File

@@ -22,7 +22,7 @@ lin
Bread = mkCN L.bread_N ; Bread = mkCN L.bread_N ;
Cheese = mkCN (mkN "queso") ; Cheese = mkCN (mkN "queso") ;
Chicken = mkCN (mkN "pollo") ; Chicken = mkCN (mkN "pollo") ;
Coffee = mkCN (mkN "café") ; Coffee = mkCN (mkN "café" "cafés" masculine) ;
Fish = mkCN L.fish_N ; Fish = mkCN L.fish_N ;
Meat = mkCN (mkN "carne" feminine) ; Meat = mkCN (mkN "carne" feminine) ;
Milk = mkCN L.milk_N ; Milk = mkCN L.milk_N ;
@@ -90,24 +90,24 @@ lin
-- nationalities -- nationalities
Belgian = mkA "belga" ; Belgian = belgian_A ;
Belgium = mkNP (mkPN "Bélgica") ; Belgium = mkNP (mkPN "Bélgica") ;
Bulgarian = mkNat "bulgaro" "Bulgaria" ; Bulgarian = mkNat (mkA "bulgaro") "bulgaro" "Bulgaria" ;
Catalan = mkNat "catalán" "Cataluña" ; Catalan = mkNat catalan_A "catalán" "Cataluña" ;
Danish = mkNat "danés" "Dinamarca" ; Danish = mkNat danish_A "danés" "Dinamarca" ;
Dutch = mkNat "neerlandés" "Holanda" ; Dutch = mkNat dutch_A "neerlandés" "Holanda" ;
English = mkNat "inglés" "Inglaterra" ; English = mkNat english_A "inglés" "Inglaterra" ;
Finnish = mkNat "finlandés" "Finlandia" ; Finnish = mkNat finnish_A "finés" "Finlandia" ;
Flemish = mkNP (mkPN "flamenco") ; Flemish = mkNP (mkPN "flamenco") ;
French = mkNat "francés" "Francia" ; French = mkNat french_A "francés" "Francia" ;
German = mkNat "alemán" "Alemania" ; German = mkNat german_A "alemán" "Alemania" ;
Italian = mkNat "italiano" "Italia" ; Italian = mkNat (mkA "italiano") "italiano" "Italia" ;
Norwegian = mkNat "noruego" "Noruega" ; Norwegian = mkNat (mkA "noruego") "noruego" "Noruega" ;
Polish = mkNat "polaco" "Polonia" ; Polish = mkNat (mkA "polaco") "polaco" "Polonia" ;
Romanian = mkNat "rumano" "Rumania" ; Romanian = mkNat (mkA "rumano") "rumano" "Rumania" ;
Russian = mkNat "ruso" "Rusia" ; Russian = mkNat (mkA "ruso") "ruso" "Rusia" ;
Spanish = mkNat "español" "España" ; Spanish = mkNat (mkA "español") "español" "España" ;
Swedish = mkNat "sueco" "Suecia" ; Swedish = mkNat (mkA "sueco") "sueco" "Suecia" ;
-- means of transportation -- means of transportation
@@ -115,7 +115,7 @@ lin
Bus = mkTransport (mkN "autobús" "autobuses" masculine) ; Bus = mkTransport (mkN "autobús" "autobuses" masculine) ;
Car = mkTransport L.car_N | mkTransport (mkN "coche") ; Car = mkTransport L.car_N | mkTransport (mkN "coche") ;
Ferry = mkTransport (mkN "ferry") | mkTransport (mkN "transbordador") ; Ferry = mkTransport (mkN "ferry") | mkTransport (mkN "transbordador") ;
Plane = mkTransport (mkN "avión") ; Plane = mkTransport (mkN "avión" "aviones" feminine) ;
Subway = mkTransport (mkN "metro") ; Subway = mkTransport (mkN "metro") ;
Taxi = mkTransport (mkN "taxi" masculine) ; Taxi = mkTransport (mkN "taxi" masculine) ;
Train = mkTransport (mkN "tren") ; Train = mkTransport (mkN "tren") ;
@@ -251,7 +251,7 @@ lin
TheCheapest = mkSuperl cheap_A False ; TheCheapest = mkSuperl cheap_A False ;
TheMostExpensive = mkSuperl expensive_A False ; TheMostExpensive = mkSuperl expensive_A False ;
TheMostPopular = TheMostPopular =
let popular = mkA "popular" "popular" "populars" "populars" "popularment" let popular = mkA "popular" "popular" "populares" "populares" "popularmente"
in mkSuperl popular False ; in mkSuperl popular False ;
TheWorst = mkSuperl L.bad_A True ; TheWorst = mkSuperl L.bad_A True ;
@@ -261,8 +261,8 @@ lin
-- auxiliaries -- auxiliaries
oper oper
mkNat : Str -> Str -> NPNationality = \nat,co -> mkNat : A -> Str -> Str -> NPNationality = \nat,lang,co ->
mkNPNationality (mkNP (mkPN nat)) (mkNP (mkPN co)) (mkA nat) ; mkNPNationality (mkNP (mkPN lang)) (mkNP (mkPN co)) nat ;
-- not the most elegant solution, but it works -- not the most elegant solution, but it works
@@ -297,4 +297,16 @@ lin
open_A = mkA "abierto" ; open_A = mkA "abierto" ;
closed_A = mkA "cerrado" ; closed_A = mkA "cerrado" ;
-- The nationalities
-- There is no constructor in resource grammar that handles the accent correctly in "francés - francesa - franceses" etc.
-- The fifth form (adverb) is of course not needed, but the constructor wants 5 forms
belgian_A = mkA "belga" "belga" "belgas" "belgas" "belgamente" ;
catalan_A = mkA "catalán" "catalana" "catalanes" "catalanas" "catalanamente" ;
danish_A = mkA "danés" "danesa" "daneses" "danesas" "danesamente" ;
dutch_A = mkA "neerlandés" "neerlandesa" "neerlandeses" "neerlandesas" "neerlandesamente" ;
english_A = mkA "inglés" "inglesa" "ingleses" "inglesas" "inglesamente" ;
finnish_A = mkA "finlandés" "finlandesa" "finlandeses" "finlandesas" "finlandesamente" ;
french_A = mkA "francés" "francesa" "franceses" "francesas" "francesamente" ;
german_A = mkA "alemán" "alemana" "alemanes" "alemanas" "alemanamente" ;
} }