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

fix some catalan morph

Browse Source
This commit is contained in:
francis.tyers
2014-11-05 17:41:53 +00:00
parent 120597750b
commit ecfcc13169
2 changed files with 16 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/src/catalan/LexiconCat.gf
View File

@@ -63,14 +63,14 @@ lin
cold_A = regADeg "fred" ;
come_V = verbV (venir_117 "venir") ;
computer_N = regMN "ordinador" ;
country_N = regMN "país" ; -- masc
country_N = regMN "país" ; -- països -- masc
cousin_N = regMN "cosí" ;
cow_N = mkN "vaca" ;
die_V = verbV (morir_71 "morir") ;
dirty_A = regADeg "brut" ;
distance_N3 = mkN3 (regFN "distància") genitive dative ;
doctor_N = regMN "metge" ; -- metgessa
dog_N = regMN "gos" ; -- gossa
dog_N = mkN "gos" ; -- gossa
door_N = regFN "porta" ;
drink_V2 = dirV2 (verbV (beure_11 "beure")) ;
easy_A2V = mkA2V (regA "fácil") dative genitive ;
@@ -81,7 +81,7 @@ lin
father_N2 = deN2 (regMN "pare") ;
fear_VS = mkVS (verbV (témer_107 "témer")) ;
find_V2 = dirV2 (mkV "trobar") ;
fish_N = regMN "peix" ;
fish_N = mkN "peix" ; -- peixos
floor_N = regMN "terra" ; -- sòl
forget_V2 = dirV2 (mkV "oblidar") ;
fridge_N = regFN "nevera" ;
@@ -107,7 +107,7 @@ lin
important_A = regADeg "important" ;
industry_N = regFN "indústria" ;
iron_N = regMN "ferro" ;
king_N = regMN "rei" ;
king_N = regMN "rei" ;
know_V2 = dirV2 saberV ;
know_VQ = mkVQ saberV;
know_VS = mkVS saberV;
@@ -210,7 +210,7 @@ lin
warm_A = compADeg (mkA "tebi" "tèbia" "tebis" "tèbies" "tèbiament") ;
war_N = regFN "guerra" ;
watch_V2 = dirV2 (mkV "mirar") ;
water_N = regFN "aigua" ;
water_N = mkN "aigua" ; -- aigües
white_A = compADeg (mkA "blanc" "blanca" "blancs" "blanques" "blancament") ;
window_N = regFN "finestra" ;
wine_N = regMN "vi" ;
@@ -252,7 +252,7 @@ lin
bark_N = regFN "escorça" ;
belly_N = regFN "panxa" ;
blood_N = regFN "sang" ;
bone_N = regMN "os" ;
bone_N = regMN "os" ; -- ossos
breast_N = regFN "sina" ; -- pit
cloud_N = regMN "núvol" ;
day_N = regMN "dia" ;
@@ -289,7 +289,7 @@ lin
night_N = regFN "nit" ;
nose_N = regMN "nas" ;
person_N = regFN "persona" ;
rain_N = regFN "pluja" ;
rain_N = regFN "pluja" ; -- pluges
road_N = regMN "carrer" ;
root_N = regFN "arrel" ;
rope_N = regN "corda" ;
@@ -302,7 +302,7 @@ lin
snow_N = regFN "neu" ; -- fem
stick_N = regMN "bastó" ;
tail_N = regFN "cua" ;
tongue_N = regFN "llengua" ;
tongue_N = mkN "llengua" ; -- llengües
tooth_N = regFN "dent" ;
wife_N = regFN "esposa" ;
wind_N = regMN "vent" ;
@@ -358,7 +358,7 @@ lin
today_Adv = mkAdv "avui" ;
grammar_N = regFN "gramàtica" ;
language_N = regFN "llengua" ;
language_N = mkN "llengua" ; -- llengües
rule_N = regFN "regla" ;
question_N = regFN "pregunta" ;
ready_A = regA "preparat" ;

7
lib/src/catalan/MorphoCat.gf
View File

@@ -48,6 +48,12 @@ oper
nomTest : Str -> Number => Str = \test ->
numForms test (variants {test + "s"; test + "os"}) ;
nomLlengua: Str -> Number => Str = \llengua ->
let
lleng = Predef.tk 2 llengua
in
numForms llengua (lleng + "ües") ;
nomFaig : Str -> Number => Str = \faig ->
let
fa = Predef.tk 2 faig
@@ -77,6 +83,7 @@ oper
in
case noi of {
_ + ("ca"|"ga") => mkNoun (nomVaca noi) Fem ;
_ + "gua" => mkNoun (nomLlengua noi) Fem ;
_ + "a" => mkNoun (nomCasa "es" noi) Fem ;
_ + "s"|"x"|"ç" => mkNounMas nomCas ;
_ + "i" => mkNounMas nomFre ;