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

Fre and Cat adjective inflection fixes

Browse Source
This commit is contained in:
aarne
2013-05-14 06:59:45 +00:00
parent aa80b55f2a
commit 11521d05e1
2 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -176,7 +176,7 @@ lin
silver_N = regFN "plata" ; silver_N = regFN "plata" ;
sister_N = regFN "germana" ; sister_N = regFN "germana" ;
sleep_V = verbV (dormir_44 "dormir") ; sleep_V = verbV (dormir_44 "dormir") ;
small_A = prefA (regADeg "petit") ; small_A = prefA (mkA "petit" "petita" "petits" "petites" "petitament") ;
snake_N = regFN "serp" ; -- fem snake_N = regFN "serp" ; -- fem
sock_N = regMN "mitjó" ; sock_N = regMN "mitjó" ;
speak_V2 = dirV2 (regV "parlar") ; speak_V2 = dirV2 (regV "parlar") ;

10
lib/src/french/LexiconFre.gf
View File

@@ -1,7 +1,7 @@
--# -path=.:../romance:../common:../abstract:../../prelude --# -path=.:../romance:../common:../abstract:../../prelude
concrete LexiconFre of Lexicon = CatFre ** concrete LexiconFre of Lexicon = CatFre **
open (M = MorphoFre), ParadigmsFre, IrregFre in { open (M = MorphoFre), PhonoFre, ParadigmsFre, IrregFre in {
flags flags
optimize=values ; optimize=values ;
@@ -16,7 +16,8 @@ lin
baby_N = regGenN "bébé" masculine ; baby_N = regGenN "bébé" masculine ;
bad_A = prefA (mkADeg (regA "mauvais") (regA "pire")) ; bad_A = prefA (mkADeg (regA "mauvais") (regA "pire")) ;
bank_N = regGenN "banque" feminine ; bank_N = regGenN "banque" feminine ;
beautiful_A = prefA (regA "joli") ; ---- beau beautiful_A =
prefA (compADeg (mkA (pre {voyelle => "bel" ; _ => "beau" }) "belle" "beaux" "bellement")) ;
become_VA = mkVA devenir_V ; become_VA = mkVA devenir_V ;
beer_N = regGenN "bière" feminine ; beer_N = regGenN "bière" feminine ;
beg_V2V = mkV2V (regV "demander") accusative dative ; beg_V2V = mkV2V (regV "demander") accusative dative ;
@@ -126,11 +127,12 @@ lin
mountain_N = regGenN "montagne" feminine ; mountain_N = regGenN "montagne" feminine ;
music_N = regGenN "musique" feminine ; music_N = regGenN "musique" feminine ;
narrow_A = regA "étroit" ; narrow_A = regA "étroit" ;
new_A = prefA (compADeg (mkA "nouveau" "nouvelle" "nouveaux" "nouvellement")) ; new_A =
prefA (compADeg (mkA (pre {voyelle => "nouvel" ; _ => "nouveau" }) "nouvelle" "nouveaux" "nouvellement")) ;
newspaper_N = regGenN "journal" masculine ; newspaper_N = regGenN "journal" masculine ;
oil_N = regGenN "huile" feminine ; oil_N = regGenN "huile" feminine ;
old_A = old_A =
prefA (compADeg (mkA "vieux" "vieille" "vieux" "vieillement")) ; ---- vieil prefA (compADeg (mkA (pre {voyelle => "vieil" ; _ => "vieux" }) "vieille" "vieux" "vieillement")) ;
open_V2 = ouvrir_V2 ; open_V2 = ouvrir_V2 ;
paint_V2A = mkV2A (v2V peindre_V2) accusative (mkPrep "en") ; paint_V2A = mkV2A (v2V peindre_V2) accusative (mkPrep "en") ;
paper_N = regGenN "papier" masculine ; paper_N = regGenN "papier" masculine ;