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

spanish_catalan_corrections

Browse Source
This commit is contained in:
inari.listenmaa
2012-10-19 11:45:45 +00:00
parent 584b6ba86d
commit 2c2c83f11c
4 changed files with 67 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
examples/phrasebook/SentencesCat.gf
View File

@@ -2,7 +2,7 @@ concrete SentencesCat of Sentences = NumeralCat ** SentencesI - [
IsMass,
IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale,
WeMale, WeFemale, YouPlurFamMale, YouPlurFamFemale, YouPlurPolFemale, YouPlurPolMale, TheyMale, TheyFemale,
WherePlace, WherePerson, ABePlace,
PImperativeFamNeg, PImperativePolNeg, PImperativePlurNeg, --negative imperatives in subjunctive
Superlative
]
with
@@ -52,13 +52,12 @@ lin
TheyFemale =
{name = mkNP (ProDrop they8fem_Pron) ; isPron = True ; poss = mkQuant they_Pron} ;
PImperativeFamNeg v = phrasePlease (ImpNeg (mkNP (ProDrop youSg_Pron)) v) ;
PImperativePolNeg v = phrasePlease (ImpNeg (mkNP (ProDrop youPol_Pron)) v) ;
PImperativePlurNeg v = phrasePlease (ImpNeg (mkNP (ProDrop youPl_Pron)) v) ;
ABePlace p place = mkCl p.name (mkVP (mkVP ser) place.at) ;
WherePlace place = mkQS (mkQCl where_IAdv (mkCl place.name ser) ) ;
WherePerson person = mkQS (mkQCl where_IAdv (mkCl person.name ser) ) ;
oper
ser = mkV (ser_52 "ser") ;
CNPlace : Type = {name : CN ; at : Prep ; to : Prep } ;

8
examples/phrasebook/SentencesSpa.gf
View File

@@ -3,6 +3,7 @@ concrete SentencesSpa of Sentences = NumeralSpa ** SentencesI - [
IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale,
WeMale, WeFemale, YouPlurFamMale, YouPlurFamFemale, YouPlurPolFemale, YouPlurPolMale, TheyMale, TheyFemale,
WherePlace, WherePerson, ABePlace,
PImperativeFamNeg, PImperativePlurNeg, --negative imperatives in subjunctive
Superlative
]
with
@@ -53,6 +54,13 @@ flags coding = utf8 ;
TheyFemale =
{name = mkNP (ProDrop they8fem_Pron) ; isPron = True ; poss = mkQuant they_Pron} ;
--IL 2012-10-12
--Negative imperative is done with subjunctive.
--PImperativePolNeg is fine in RGL, but fam and plur are wrong
--A special ImpNeg in ExtraSpa is defined for that
PImperativeFamNeg v = phrasePlease (ImpNeg (mkNP (ProDrop youSg_Pron)) v) ;
PImperativePlurNeg v = phrasePlease (ImpNeg (mkNP (ProDrop youPl_Pron)) v) ;
ABePlace p place = mkCl p.name (mkVP (mkVP estar) place.at) ;
WherePlace place = mkQS (mkQCl where_IAdv (mkCl place.name estar) ) ;

37
examples/phrasebook/WordsCat.gf
View File

@@ -210,12 +210,22 @@ lin
-- transports
HowFar place = mkQS (mkQCl far_IP place.name placeCopula) ;
HowFarFrom x y = mkQS (mkQCl (mkIP far_IP (S.mkAdv from_Prep x.name)) y.name placeCopula) ;
HowFarFromBy x y t = mkQS (mkQCl how8much_IAdv
(mkCl (mkVP (mkVP (mkVP (mkVP (mkV "durar")) (S.mkAdv desde_Prep x.name)) (S.mkAdv fins_Prep y.name)) t ))) ;
HowFarBy y t = mkQS (mkQCl how8much_IAdv
(mkCl (mkVP (mkVP (mkVP (mkV "durar")) (S.mkAdv fins_Prep y.name)) t ))) ;
--a quina distància està PLACE
HowFar place = mkQS (mkQCl what_distance_IAdv (mkCl place.name placeCopula) );
HowFarFrom x y = mkQS (mkQCl what_distance_IAdv
(mkCl y.name (mkVP (mkVP placeCopula)
(S.mkAdv from_Prep x.name))));
HowFarFromBy x y t = mkQS (mkQCl what_distance_IAdv
(mkCl y.name (mkVP
(mkVP (mkVP placeCopula)
(S.mkAdv from_Prep x.name))
t)));
HowFarBy y t = mkQS (mkQCl what_distance_IAdv
(mkCl y.name (mkVP (mkVP placeCopula) t)));
WhichTranspPlace trans place =
mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ;
IsTranspPlace trans place =
@@ -223,10 +233,10 @@ lin
-- modifiers of places
TheBest = mkSuperl L.good_A True ;
TheClosest = mkSuperl L.near_A False;
TheClosest = mkSuperl L.near_A False;
TheCheapest = mkSuperl cheap_A False ;
TheMostExpensive = mkSuperl expensive_A False ;
TheMostPopular = mkSuperl (mkA "popular") False ;
TheMostPopular = mkSuperl (mkA "popular" "popular" "populars" "populars" "popularment") False ;
TheWorst = mkSuperl L.bad_A True ;
SuperlPlace sup p = placeNPSuperl sup p ;
@@ -240,13 +250,12 @@ lin
isPre = bool ;
} ;
desde_Prep = mkPrep "des de" ;
desde_Prep = mkPrep "des de" ;
fins_Prep = mkPrep "fins a" ;
far_IP = mkIP whatSg_IP (S.mkAdv (P.mkAdA "tan") (P.mkAdv "lluny")) ;
what_distance_IAdv = ss "a quina distància"**{lock_IAdv=<>};
placeCopula = mkV2 (mkV (estar_54 "estar")) ;
placeCopula = mkV (estar_54 "estar") ;
mkNat : Str -> Str -> NPNationality = \nat,co ->
mkNPNationality (mkNP (mkPN nat)) (mkNP (mkPN co)) (mkA nat) ;
@@ -281,9 +290,9 @@ lin
closed_A = mkA "tancat" ;
cheap_A = mkA "barat" ;
cheap_A = mkA "barat" "barata" ;
expensive_A = mkA "car" ;
expensive_A = mkA "car" ;
}

76
examples/phrasebook/WordsSpa.gf
View File

@@ -23,7 +23,7 @@ lin
Cheese = mkCN (mkN "queso") ;
Chicken = mkCN (mkN "pollo") ;
Coffee = mkCN (mkN "café" "cafés" masculine) ;
Fish = mkCN L.fish_N ;
Fish = mkCN (mkN "pescado") ;
Meat = mkCN (mkN "carne" feminine) ;
Milk = mkCN L.milk_N ;
Pizza = mkCN (mkN "pizza") ;
@@ -55,7 +55,7 @@ lin
Center = mkPlace (mkN "centro") in_Prep;
Church = mkPlace (mkN "iglesia") in_Prep ;
Cinema = mkPlace (mkN "cine") in_Prep ;
Disco = mkPlace (mkN "disco") in_Prep;
Disco = mkPlace (mkN "discoteca") in_Prep;
Hospital = mkPlace (mkN "hospital") in_Prep ;
Hotel = mkPlace (mkN "hotel") in_Prep ;
Museum = mkPlace (mkN "museo") in_Prep ;
@@ -90,23 +90,23 @@ lin
-- nationalities
Belgian = belgian_A ;
Belgian = mkA "belga" ;
Belgium = mkNP (mkPN "Bélgica") ;
Bulgarian = mkNat (mkA "bulgaro") "bulgaro" "Bulgaria" ;
Catalan = mkNat catalan_A "catalán" "Cataluña" ;
Danish = mkNat danish_A "danés" "Dinamarca" ;
Dutch = mkNat dutch_A "neerlandés" "Holanda" ;
English = mkNat english_A "inglés" "Inglaterra" ;
Finnish = mkNat finnish_A "finés" "Finlandia" ;
Bulgarian = mkNat (mkA "búlgaro") "búlgaro" "Bulgaria" ; --TODO: tarkista
Catalan = mkNat (mkA "catalán") "catalán" "Cataluña" ;
Danish = mkNat (mkA "danés") "danés" "Dinamarca" ;
Dutch = mkNat (mkA "neerlandés") "neerlandés" "Holanda" ;
English = mkNat (mkA "inglés") "inglés" "Inglaterra" ;
Finnish = mkNat (mkA "finlandés") "finés" "Finlandia" ;
Flemish = mkNP (mkPN "flamenco") ;
French = mkNat french_A "francés" "Francia" ;
German = mkNat german_A "alemán" "Alemania" ;
French = mkNat (mkA "francés") "francés" "Francia" ;
German = mkNat (mkA "alemán") "alemán" "Alemania" ;
Italian = mkNat (mkA "italiano") "italiano" "Italia" ;
Norwegian = mkNat (mkA "noruego") "noruego" "Noruega" ;
Polish = mkNat (mkA "polaco") "polaco" "Polonia" ;
Romanian = mkNat (mkA "rumano") "rumano" "Rumania" ;
Russian = mkNat (mkA "ruso") "ruso" "Rusia" ;
Spanish = mkNat spanish_A "español" "España" ;
Spanish = mkNat (mkA "español" "española") "español" "España" ;
Swedish = mkNat (mkA "sueco") "sueco" "Suecia" ;
-- means of transportation
@@ -115,7 +115,7 @@ lin
Bus = mkTransport (mkN "autobús" "autobuses" masculine) ;
Car = mkTransport L.car_N | mkTransport (mkN "coche") ;
Ferry = mkTransport (mkN "ferry") | mkTransport (mkN "transbordador") ;
Plane = mkTransport (mkN "avión" "aviones" feminine) ;
Plane = mkTransport (mkN "avión" "aviones" masculine) ;
Subway = mkTransport (mkN "metro") ;
Taxi = mkTransport (mkN "taxi" masculine) ;
Train = mkTransport (mkN "tren") ;
@@ -198,29 +198,30 @@ lin
-- transports
-- "qué tan lejos está PLACE"
HowFar place = mkQS (mkQCl far_IP place.name placeCopula) ;
--a qué distancia está PLACE
HowFar place = mkQS (mkQCl what_distance_IAdv (mkCl place.name placeCopula) );
--a qué distancia está X de Y
HowFarFrom x y = mkQS (mkQCl what_distance_IAdv
(mkCl y.name (mkVP (mkVP placeCopula)
(S.mkAdv from_Prep x.name))));
-- "qué tan lejos de X está Y"
HowFarFrom x y = mkQS (mkQCl (mkIP far_IP (S.mkAdv from_Prep x.name)) y.name placeCopula) ;
-- "cuánto dura desde X hasta Y con T"
-- "a qué distancia está X de Y con T"
-- x,y: Place ; t: ByTransport
HowFarFromBy x y t = mkQS (mkQCl how8much_IAdv
(mkCl (mkVP (mkVP (mkVP (mkVP (mkV "durar")) (S.mkAdv desde_Prep x.name)) (S.mkAdv hasta_Prep y.name)) t ))) ;
HowFarFromBy x y t = mkQS (mkQCl what_distance_IAdv
(mkCl y.name (mkVP
(mkVP (mkVP placeCopula)
(S.mkAdv from_Prep x.name))
t)));
-- "cuánto dura hasta Y con T"
-- "a qué distancia está Y con T"
-- y: Place ; t: ByTransport
HowFarBy y t = mkQS (mkQCl how8much_IAdv
(mkCl (mkVP (mkVP (mkVP (mkV "durar")) (S.mkAdv hasta_Prep y.name)) t ))) ;
HowFarBy y t = mkQS (mkQCl what_distance_IAdv
(mkCl y.name (mkVP (mkVP placeCopula) t)));
oper
far_IP = mkIP whatSg_IP (S.mkAdv (P.mkAdA "tan") (P.mkAdv "lejos")) ; -- "qué tan lejos"
how8much_IAdv = ss "cuánto" ; -- this wasn't implemented in the resource library
desde_Prep = mkPrep "desde" ;
hasta_Prep = mkPrep "hasta" ;
placeCopula = mkV2 (mkV (estar_2 "estar")) ;
what_distance_IAdv = ss "a qué distancia"**{lock_IAdv=<>};
placeCopula = mkV (estar_2 "estar") ;
lin
WhichTranspPlace trans place =
@@ -251,7 +252,7 @@ lin
TheCheapest = mkSuperl cheap_A False ;
TheMostExpensive = mkSuperl expensive_A False ;
TheMostPopular =
let popular = mkA "popular" "popular" "populares" "populares" "popularmente"
let popular = mkA "popular" --"popular" "populares" "populares" "popularmente"
in mkSuperl popular False ;
TheWorst = mkSuperl L.bad_A True ;
@@ -297,17 +298,4 @@ lin
open_A = mkA "abierto" ;
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" ;
spanish_A = mkA "español" "española" "españoles" "españolas" "españolamente" ;
}