mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 01:22:51 -06:00
changed regN to be always of type Str -> N
This commit is contained in:
aarne
@@ -6,210 +6,210 @@ flags
|
||||
optimize=values ;
|
||||
|
||||
lin
|
||||
airplane_N = regN "avion" masculine ;
|
||||
airplane_N = regGenN "avion" masculine ;
|
||||
answer_V2S = mkV2S (v2V répondre_V2) dative ;
|
||||
apartment_N = regN "apartement" masculine ;
|
||||
apple_N = regN "pomme" feminine ;
|
||||
art_N = regN "art" feminine ;
|
||||
apartment_N = regGenN "apartement" masculine ;
|
||||
apple_N = regGenN "pomme" feminine ;
|
||||
art_N = regGenN "art" feminine ;
|
||||
ask_V2Q = mkV2Q (regV "demander") dative ;
|
||||
baby_N = regN "bébé" masculine ;
|
||||
baby_N = regGenN "bébé" masculine ;
|
||||
bad_A = prefA (mkADeg (regA "mauvais") (regA "pire")) ;
|
||||
bank_N = regN "banque" feminine ;
|
||||
bank_N = regGenN "banque" feminine ;
|
||||
beautiful_A = prefA (regA "joli") ; ---- beau
|
||||
become_VA = mkVA devenir_V ;
|
||||
beer_N = regN "bière" feminine ;
|
||||
beer_N = regGenN "bière" feminine ;
|
||||
beg_V2V = mkV2V (regV "demander") accusative dative ;
|
||||
big_A = prefA (regA "grand") ;
|
||||
bike_N = regN "vélo" masculine ;
|
||||
bird_N = regN "oiseau" masculine ;
|
||||
bike_N = regGenN "vélo" masculine ;
|
||||
bird_N = regGenN "oiseau" masculine ;
|
||||
black_A = regA "noir" ;
|
||||
blue_A = regA "bleu" ;
|
||||
boat_N = regN "bateau" masculine ;
|
||||
book_N = regN "livre" masculine ;
|
||||
boot_N = regN "botte" feminine ;
|
||||
boss_N = regN "chef" masculine ;
|
||||
boy_N = regN "garçon" masculine ;
|
||||
bread_N = regN "pain" masculine ;
|
||||
boat_N = regGenN "bateau" masculine ;
|
||||
book_N = regGenN "livre" masculine ;
|
||||
boot_N = regGenN "botte" feminine ;
|
||||
boss_N = regGenN "chef" masculine ;
|
||||
boy_N = regGenN "garçon" masculine ;
|
||||
bread_N = regGenN "pain" masculine ;
|
||||
break_V2 = dirV2 (regV "casser") ;
|
||||
broad_A = regA "large" ;
|
||||
brother_N2 = deN2 (regN "frère" masculine) ;
|
||||
brother_N2 = deN2 (regGenN "frère" masculine) ;
|
||||
brown_A = regA "brun" ;
|
||||
butter_N = regN "beurre" masculine ;
|
||||
butter_N = regGenN "beurre" masculine ;
|
||||
buy_V2 = dirV2 (reg3V "acheter" "achète" "achètera") ;
|
||||
camera_N = compN (regN "appareil" masculine) ["de photo"] ;
|
||||
cap_N = regN "casquette" feminine ;
|
||||
car_N = regN "voiture" feminine ;
|
||||
carpet_N = regN "tapis" masculine ;
|
||||
cat_N = regN "chat" masculine ;
|
||||
ceiling_N = regN "plafond" masculine ;
|
||||
chair_N = regN "chaise" feminine ;
|
||||
cheese_N = regN "fromage" masculine ;
|
||||
child_N = regN "enfant" masculine ;
|
||||
church_N = regN "église" feminine ;
|
||||
city_N = regN "ville" feminine ;
|
||||
camera_N = compN (regGenN "appareil" masculine) ["de photo"] ;
|
||||
cap_N = regGenN "casquette" feminine ;
|
||||
car_N = regGenN "voiture" feminine ;
|
||||
carpet_N = regGenN "tapis" masculine ;
|
||||
cat_N = regGenN "chat" masculine ;
|
||||
ceiling_N = regGenN "plafond" masculine ;
|
||||
chair_N = regGenN "chaise" feminine ;
|
||||
cheese_N = regGenN "fromage" masculine ;
|
||||
child_N = regGenN "enfant" masculine ;
|
||||
church_N = regGenN "église" feminine ;
|
||||
city_N = regGenN "ville" feminine ;
|
||||
clean_A = regA "propre" ;
|
||||
clever_A = regA "sage" ; ----
|
||||
close_V2 = dirV2 (regV "fermer") ;
|
||||
coat_N = regN "manteau" masculine ;
|
||||
coat_N = regGenN "manteau" masculine ;
|
||||
cold_A = regA "froid" ;
|
||||
come_V = venir_V ;
|
||||
computer_N = regN "ordinateur" masculine ;
|
||||
country_N = regN "pays" masculine ;
|
||||
cousin_N = regN "cousin" masculine ; ---- cousine
|
||||
cow_N = regN "vache" feminine ;
|
||||
computer_N = regGenN "ordinateur" masculine ;
|
||||
country_N = regGenN "pays" masculine ;
|
||||
cousin_N = regGenN "cousin" masculine ; ---- cousine
|
||||
cow_N = regGenN "vache" feminine ;
|
||||
die_V = mourir_V ;
|
||||
dirty_A = regA "sale" ;
|
||||
distance_N3 = mkN3 (regN "distance" feminine) genitive dative ;
|
||||
doctor_N = regN "médecin" masculine ;
|
||||
dog_N = regN "chien" masculine ;
|
||||
door_N = regN "porte" feminine ;
|
||||
distance_N3 = mkN3 (regGenN "distance" feminine) genitive dative ;
|
||||
doctor_N = regGenN "médecin" masculine ;
|
||||
dog_N = regGenN "chien" masculine ;
|
||||
door_N = regGenN "porte" feminine ;
|
||||
drink_V2 = boire_V2 ;
|
||||
easy_A2V = mkA2V (regA "facile") dative genitive ;
|
||||
eat_V2 = dirV2 (regV "manger") ;
|
||||
empty_A = regA "vide" ;
|
||||
enemy_N = regN "ennemi" masculine ;
|
||||
factory_N = regN "usine" feminine ;
|
||||
father_N2 = deN2 (regN "père" masculine) ;
|
||||
enemy_N = regGenN "ennemi" masculine ;
|
||||
factory_N = regGenN "usine" feminine ;
|
||||
father_N2 = deN2 (regGenN "père" masculine) ;
|
||||
fear_VS = mkVS (v2V craindre_V2) ;
|
||||
find_V2 = dirV2 (regV "trouver") ;
|
||||
fish_N = regN "poisson" masculine ;
|
||||
floor_N = regN "plancher" masculine ;
|
||||
fish_N = regGenN "poisson" masculine ;
|
||||
floor_N = regGenN "plancher" masculine ;
|
||||
forget_V2 = dirV2 (regV "oublier") ;
|
||||
fridge_N = regN "frigo" masculine ;
|
||||
friend_N = regN "ami" masculine ;
|
||||
fruit_N = regN "fruit" masculine ;
|
||||
fridge_N = regGenN "frigo" masculine ;
|
||||
friend_N = regGenN "ami" masculine ;
|
||||
fruit_N = regGenN "fruit" masculine ;
|
||||
fun_AV = mkAV (regA "marrant") genitive ;
|
||||
garden_N = regN "jardin" masculine ;
|
||||
girl_N = regN "fille" feminine ;
|
||||
glove_N = regN "gant" masculine ;
|
||||
gold_N = regN "or" masculine ;
|
||||
garden_N = regGenN "jardin" masculine ;
|
||||
girl_N = regGenN "fille" feminine ;
|
||||
glove_N = regGenN "gant" masculine ;
|
||||
gold_N = regGenN "or" masculine ;
|
||||
good_A = prefA (mkADeg (mkA "bon" "bonne" "bons" "bien")
|
||||
(mkA "meilleur" "meilleure" "meilleurs" "mieux")) ;
|
||||
go_V = aller_V ;
|
||||
green_A = regA "vert" ;
|
||||
harbour_N = regN "port" masculine ;
|
||||
harbour_N = regGenN "port" masculine ;
|
||||
hate_V2 = haïr_V2 ;
|
||||
hat_N = regN "chapeau" masculine ;
|
||||
hat_N = regGenN "chapeau" masculine ;
|
||||
have_V2 = avoir_V2 ;
|
||||
hear_V2 = entendre_V2 ;
|
||||
hill_N = regN "colline" feminine ;
|
||||
hill_N = regGenN "colline" feminine ;
|
||||
hope_VS = mkVS (reg3V "espérer" "espère" "espérera") ;
|
||||
horse_N = regN "cheval" masculine ;
|
||||
horse_N = regGenN "cheval" masculine ;
|
||||
hot_A = regA "chaud" ;
|
||||
house_N = regN "maison" feminine ;
|
||||
house_N = regGenN "maison" feminine ;
|
||||
important_A = regA "important" ;
|
||||
industry_N = regN "industrie" feminine ;
|
||||
iron_N = regN "fer" masculine ;
|
||||
king_N = regN "roi" masculine ;
|
||||
industry_N = regGenN "industrie" feminine ;
|
||||
iron_N = regGenN "fer" masculine ;
|
||||
king_N = regGenN "roi" masculine ;
|
||||
know_V2 = connaître_V2 ; ---- savoir_V2 : VS
|
||||
lake_N = regN "lac" masculine ;
|
||||
lamp_N = regN "lampe" feminine ;
|
||||
lake_N = regGenN "lac" masculine ;
|
||||
lamp_N = regGenN "lampe" feminine ;
|
||||
learn_V2 = apprendre_V2 ;
|
||||
leather_N = regN "cuir" masculine ;
|
||||
leather_N = regGenN "cuir" masculine ;
|
||||
leave_V2 = dirV2 (regV "quitter") ;
|
||||
like_V2 = dirV2 (regV "aimer") ;
|
||||
listen_V2 = dirV2 (regV "écouter") ;
|
||||
live_V = v2V vivre_V2 ;
|
||||
long_A = compADeg (mkA "long" "longue" "longs" "longuement") ;
|
||||
lose_V2 = perdre_V2 ;
|
||||
love_N = regN "amour" masculine ;
|
||||
love_N = regGenN "amour" masculine ;
|
||||
love_V2 = dirV2 (regV "aimer") ;
|
||||
man_N = regN "homme" masculine ;
|
||||
man_N = regGenN "homme" masculine ;
|
||||
married_A2 = mkA2 (regA "marié") dative ;
|
||||
meat_N = regN "viande" feminine ;
|
||||
milk_N = regN "lait" masculine ;
|
||||
moon_N = regN "lune" feminine ;
|
||||
mother_N2 = deN2 (regN "mère" feminine) ;
|
||||
mountain_N = regN "montagne" feminine ;
|
||||
music_N = regN "musique" feminine ;
|
||||
meat_N = regGenN "viande" feminine ;
|
||||
milk_N = regGenN "lait" masculine ;
|
||||
moon_N = regGenN "lune" feminine ;
|
||||
mother_N2 = deN2 (regGenN "mère" feminine) ;
|
||||
mountain_N = regGenN "montagne" feminine ;
|
||||
music_N = regGenN "musique" feminine ;
|
||||
narrow_A = regA "étroit" ;
|
||||
new_A = prefA (compADeg (mkA "nouveau" "nouvelle" "nouveaux" "nouvellement")) ;
|
||||
newspaper_N = regN "journal" masculine ;
|
||||
oil_N = regN "huile" feminine ;
|
||||
newspaper_N = regGenN "journal" masculine ;
|
||||
oil_N = regGenN "huile" feminine ;
|
||||
old_A =
|
||||
prefA (compADeg (mkA "vieux" "vieille" "vieux" "vieillement")) ; ---- vieil
|
||||
open_V2 = ouvrir_V2 ;
|
||||
paint_V2A = mkV2A (v2V peindre_V2) accusative (mkPreposition "en") ;
|
||||
paper_N = regN "papier" masculine ;
|
||||
paper_N = regGenN "papier" masculine ;
|
||||
paris_PN = mkPN "Paris" masculine ;
|
||||
peace_N = regN "paix" feminine ;
|
||||
pen_N = regN "stylo" masculine ;
|
||||
planet_N = regN "planète" feminine ;
|
||||
plastic_N = regN "plastic" masculine ;
|
||||
peace_N = regGenN "paix" feminine ;
|
||||
pen_N = regGenN "stylo" masculine ;
|
||||
planet_N = regGenN "planète" feminine ;
|
||||
plastic_N = regGenN "plastic" masculine ;
|
||||
play_V2 = dirV2 (regV "jouer") ;
|
||||
policeman_N = regN "policier" masculine ;
|
||||
priest_N = regN "prêtre" masculine ;
|
||||
policeman_N = regGenN "policier" masculine ;
|
||||
priest_N = regGenN "prêtre" masculine ;
|
||||
probable_AS = mkAS (regA "probable") ;
|
||||
queen_N = regN "reine" feminine ;
|
||||
radio_N = regN "radio" feminine ;
|
||||
queen_N = regGenN "reine" feminine ;
|
||||
radio_N = regGenN "radio" feminine ;
|
||||
rain_V0 = mkV0 (pleuvoir_V) ;
|
||||
read_V2 = lire_V2 ;
|
||||
red_A = regA "rouge" ;
|
||||
religion_N = regN "religion" feminine ;
|
||||
restaurant_N = regN "restaurant" masculine ;
|
||||
river_N = regN "rivière" feminine ;
|
||||
rock_N = regN "rocher" masculine ;
|
||||
roof_N = regN "toit" masculine ;
|
||||
rubber_N = regN "caoutchuc" masculine ;
|
||||
religion_N = regGenN "religion" feminine ;
|
||||
restaurant_N = regGenN "restaurant" masculine ;
|
||||
river_N = regGenN "rivière" feminine ;
|
||||
rock_N = regGenN "rocher" masculine ;
|
||||
roof_N = regGenN "toit" masculine ;
|
||||
rubber_N = regGenN "caoutchuc" masculine ;
|
||||
run_V = v2V courir_V2 ;
|
||||
say_VS = mkVS (v2V dire_V2) ;
|
||||
school_N = regN "école" feminine ;
|
||||
science_N = regN "science" feminine ;
|
||||
sea_N = regN "mer" feminine ;
|
||||
school_N = regGenN "école" feminine ;
|
||||
science_N = regGenN "science" feminine ;
|
||||
sea_N = regGenN "mer" feminine ;
|
||||
seek_V2 = dirV2 (regV "chercher") ;
|
||||
see_V2 = voir_V2 ;
|
||||
sell_V3 = dirV3 (v2V vendre_V2) dative ;
|
||||
send_V3 = dirV3 (v2V envoyer_V2) dative ;
|
||||
sheep_N = regN "mouton" masculine ;
|
||||
ship_N = regN "bateau" masculine ;
|
||||
shirt_N = regN "chemise" feminine ;
|
||||
shoe_N = regN "chaussure" feminine ;
|
||||
shop_N = regN "magasin" masculine ;
|
||||
sheep_N = regGenN "mouton" masculine ;
|
||||
ship_N = regGenN "bateau" masculine ;
|
||||
shirt_N = regGenN "chemise" feminine ;
|
||||
shoe_N = regGenN "chaussure" feminine ;
|
||||
shop_N = regGenN "magasin" masculine ;
|
||||
short_A = regA "court" ; ---- bref
|
||||
silver_N = regN "argent" masculine ;
|
||||
sister_N = regN "soeur" feminine ;
|
||||
silver_N = regGenN "argent" masculine ;
|
||||
sister_N = regGenN "soeur" feminine ;
|
||||
sleep_V = v2V dormir_V2 ;
|
||||
small_A = prefA (regA "petit") ;
|
||||
snake_N = regN "serpent" masculine ;
|
||||
sock_N = regN "chaussette" feminine ;
|
||||
snake_N = regGenN "serpent" masculine ;
|
||||
sock_N = regGenN "chaussette" feminine ;
|
||||
speak_V2 = dirV2 (regV "parler") ;
|
||||
star_N = regN "étoile" feminine ;
|
||||
steel_N = regN "acier" masculine ;
|
||||
stone_N = regN "pierre" feminine ;
|
||||
stove_N = regN "four" masculine ;
|
||||
student_N = regN "étudiant" masculine ;
|
||||
star_N = regGenN "étoile" feminine ;
|
||||
steel_N = regGenN "acier" masculine ;
|
||||
stone_N = regGenN "pierre" feminine ;
|
||||
stove_N = regGenN "four" masculine ;
|
||||
student_N = regGenN "étudiant" masculine ;
|
||||
stupid_A = regA "stupide" ;
|
||||
sun_N = regN "soleil" masculine ;
|
||||
sun_N = regGenN "soleil" masculine ;
|
||||
switch8off_V2 = éteindre_V2 ;
|
||||
switch8on_V2 = dirV2 (regV "allumer") ; ----
|
||||
table_N = regN "table" feminine ;
|
||||
table_N = regGenN "table" feminine ;
|
||||
talk_V3 = mkV3 (regV "parler") dative genitive ;
|
||||
teacher_N = regN "professeur" masculine ;
|
||||
teacher_N = regGenN "professeur" masculine ;
|
||||
teach_V2 = dirV2 (regV "enseigner") ;
|
||||
television_N = regN "télévision" feminine ;
|
||||
television_N = regGenN "télévision" feminine ;
|
||||
thick_A = compADeg (mkA "épais" "épaisse" "épais" "épaissement") ;
|
||||
thin_A = regA "fin" ;
|
||||
train_N = regN "train" masculine ;
|
||||
train_N = regGenN "train" masculine ;
|
||||
travel_V = regV "voyager" ;
|
||||
tree_N = regN "arbre" masculine ;
|
||||
---- trousers_N = regN "pantalon" masculine ;
|
||||
tree_N = regGenN "arbre" masculine ;
|
||||
---- trousers_N = regGenN "pantalon" masculine ;
|
||||
ugly_A = regA "laide" ;
|
||||
understand_V2 = comprendre_V2 ;
|
||||
university_N = regN "université" feminine ;
|
||||
village_N = regN "village" masculine ;
|
||||
university_N = regGenN "université" feminine ;
|
||||
village_N = regGenN "village" masculine ;
|
||||
wait_V2 = attendre_V2 ; ---- dative?
|
||||
walk_V = regV "marcher" ;
|
||||
warm_A = regA "chaud" ;
|
||||
war_N = regN "guerre" masculine ;
|
||||
war_N = regGenN "guerre" masculine ;
|
||||
watch_V2 = dirV2 (regV "regarder") ;
|
||||
water_N = regN "eau" feminine ;
|
||||
water_N = regGenN "eau" feminine ;
|
||||
white_A = compADeg (mkA "blanc" "blanche" "blancs" "blanchement") ;
|
||||
window_N = regN "fenêtre" feminine ;
|
||||
wine_N = regN "vin" masculine ;
|
||||
window_N = regGenN "fenêtre" feminine ;
|
||||
wine_N = regGenN "vin" masculine ;
|
||||
win_V2 = dirV2 (regV "gagner") ; ---- vaincre
|
||||
woman_N = regN "femme" feminine ;
|
||||
woman_N = regGenN "femme" feminine ;
|
||||
wonder_VQ = mkVQ (reflV (regV "étonner")) ;
|
||||
wood_N = regN "bois" masculine ;
|
||||
wood_N = regGenN "bois" masculine ;
|
||||
write_V2 = écrire_V2 ;
|
||||
yellow_A = regA "jaune" ;
|
||||
young_A = prefA (regA "jeune") ;
|
||||
@@ -217,9 +217,9 @@ lin
|
||||
do_V2 = faire_V2 ;
|
||||
now_Adv = mkAdv "maintenant" ;
|
||||
already_Adv = mkAdv "déjà" ;
|
||||
song_N = regN "chanson" feminine ;
|
||||
song_N = regGenN "chanson" feminine ;
|
||||
add_V3 = dirV3 (regV "ajouter") dative ;
|
||||
number_N = regN "nombre" masculine ; ---- numéro
|
||||
number_N = regGenN "nombre" masculine ; ---- numéro
|
||||
put_V2 = mettre_V2 ;
|
||||
stop_V = reflV (regV "arrêter") ;
|
||||
jump_V = regV "sauter" ;
|
||||
|
||||
@@ -72,13 +72,20 @@ oper
|
||||
|
||||
mkN : (oeil,yeux : Str) -> Gender -> N ;
|
||||
|
||||
-- The regular function takes the singular form and the gender,
|
||||
-- and computes the plural by a heuristic. The heuristic currently
|
||||
-- The regular function takes the singular form,
|
||||
-- and computes the plural and the gender by a heuristic. The plural
|
||||
-- heuristic currently
|
||||
-- covers the cases "pas-pas", "prix-prix", "nez-nez",
|
||||
-- "bijou-bijoux", "cheveu-cheveux", "plateau-plateaux", "cheval-chevaux".
|
||||
-- The gender heuristic is less reliable: it treats as feminine all
|
||||
-- nouns ending with "e" and "ion", all others as masculine.
|
||||
-- If in doubt, use the $cc$ command to test!
|
||||
|
||||
regN : Str -> Gender -> N ;
|
||||
regN : Str -> N ;
|
||||
|
||||
-- Adding gender information widens the scope of the foregoing function.
|
||||
|
||||
regGenN : Str -> Gender -> N ;
|
||||
|
||||
|
||||
--3 Compound nouns
|
||||
@@ -287,7 +294,13 @@ oper
|
||||
mkPreposition p = {s = p ; c = Acc ; isDir = False} ;
|
||||
|
||||
mkN x y g = mkCNomIrreg x y g ** {lock_N = <>} ;
|
||||
regN x g = mkNomReg x g ** {lock_N = <>} ;
|
||||
regN x = regGenN x g where {
|
||||
g = case <x : Str> of {
|
||||
_ + ("e" | "ion") => Fem ;
|
||||
_ => Masc
|
||||
}
|
||||
} ;
|
||||
regGenN x g = mkNomReg x g ** {lock_N = <>} ;
|
||||
compN x y = {s = \\n => x.s ! n ++ y ; g = x.g ; lock_N = <>} ;
|
||||
|
||||
mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ;
|
||||
|
||||
Reference in New Issue
Block a user