forked from GitHub/gf-core
260 lines
7.3 KiB
Plaintext
260 lines
7.3 KiB
Plaintext
--# -path=.:../french:../common:../abstract:../../prelude:../romance
|
|
|
|
concrete SwadeshFre of Swadesh = CatFre
|
|
** open PhonoFre, MorphoFre, LangFre, ParadigmsFre, IrregFre, Prelude in {
|
|
|
|
lincat
|
|
MassN = N ;
|
|
|
|
lin
|
|
|
|
-- Pronouns
|
|
|
|
i_NP = i_Pron ;
|
|
youSg_NP = youSg_Pron ;
|
|
he_NP = he_Pron ;
|
|
we_NP = we_Pron ;
|
|
youPl_NP = youPl_Pron ;
|
|
they_NP = they_Pron ;
|
|
whoPl_IP = whoPl_IP ;
|
|
whoSg_IP = whoSg_IP ;
|
|
whatPl_IP = whatPl_IP ;
|
|
whatSg_IP = whatSg_IP ;
|
|
|
|
-- Determiners
|
|
|
|
this_Det = DetSg (SgQuant this_Quant) NoOrd ;
|
|
that_Det = DetSg (SgQuant that_Quant) NoOrd ;
|
|
all_Det = {
|
|
s = \\g,c => prepCase c ++ genForms "tous" "toutes" ! g ++ "les" ;
|
|
n = Pl
|
|
} ;
|
|
many_Det = many_Det ;
|
|
some_Det = someSg_Det ;
|
|
few_Det = {s = \\g,c => prepCase c ++ "peu" ++ elisDe ; n = Pl} ;
|
|
other_Det = {
|
|
s = \\g,c => prepCase c ++ "d'autres" ; -- de d'autres
|
|
n = Pl
|
|
} ;
|
|
|
|
left_Ord = mkOrd (regA "gauche") ;
|
|
right_Ord = mkOrd (regA "droite") ;
|
|
|
|
oper
|
|
mkOrd : A -> Ord ;
|
|
mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ;
|
|
|
|
lin
|
|
|
|
-- Adverbs
|
|
|
|
here_Adv = here_Adv;
|
|
there_Adv = there_Adv;
|
|
where_IAdv = where_IAdv;
|
|
when_IAdv = when_IAdv;
|
|
how_IAdv = how_IAdv;
|
|
far_Adv = mkAdv "loin" ;
|
|
|
|
-- not : Adv ; -- ?
|
|
|
|
-- Conjunctions
|
|
|
|
and_Conj = and_Conj ;
|
|
|
|
-- Prepositions
|
|
|
|
at_Prep = dative ;
|
|
in_Prep = in_Prep ;
|
|
with_Prep = with_Prep ;
|
|
|
|
-- Numerals
|
|
|
|
one_Det = DetSg one_Quant NoOrd ;
|
|
two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
|
|
three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
|
|
four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
|
|
five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
|
|
|
|
-- Adjectives
|
|
|
|
bad_A = bad_A ;
|
|
big_A = big_A ;
|
|
black_A = black_A ;
|
|
cold_A = cold_A ;
|
|
correct_A = regA "correct" ;
|
|
dirty_A = dirty_A ;
|
|
dry_A = (mkA "sec" "sèche" "secs" "sèches") ;
|
|
dull_A = regA "émoussé" ;
|
|
full_A = regA "plein" ;
|
|
good_A = good_A ;
|
|
green_A = green_A ;
|
|
heavy_A = regA "lourd" ;
|
|
long_A = long_A ;
|
|
narrow_A = narrow_A ;
|
|
near_A = regA "proche" ;
|
|
new_A = new_A ;
|
|
old_A = old_A ;
|
|
red_A = red_A ;
|
|
rotten_A = regA "pourri" ;
|
|
round_A = regA "rond" ;
|
|
sharp_A = regA "tranchant" ;
|
|
short_A = short_A ;
|
|
small_A = small_A ;
|
|
smooth_A = regA "lisse" ;
|
|
straight_A = regA "droite" ;
|
|
thick_A = thick_A ;
|
|
thin_A = thin_A ;
|
|
warm_A = warm_A ;
|
|
wet_A = regA "mouillé" ;
|
|
white_A = white_A ;
|
|
wide_A = regA "large" ;
|
|
yellow_A = yellow_A ;
|
|
|
|
-- Nouns
|
|
|
|
animal_N = regN "animal" masculine ;
|
|
ashes_N = regN "cendre" masculine ;
|
|
back_N = regN "dos" masculine ;
|
|
bark_N = regN "écorce" feminine ;
|
|
belly_N = regN "ventre" masculine ;
|
|
bird_N = bird_N;
|
|
blood_N = regN "sang" masculine ;
|
|
bone_N = regN "os" masculine ;
|
|
breast_N = regN "sein" masculine ; --- poitrine
|
|
child_N = child_N ;
|
|
cloud_N = regN "nuage" masculine ;
|
|
day_N = regN "jour" masculine ;
|
|
dog_N = dog_N ;
|
|
dust_N = regN "poussière" feminine ;
|
|
ear_N = regN "oreille" feminine ;
|
|
earth_N = regN "terre" feminine ;
|
|
egg_N = regN "oeuf" masculine ;
|
|
eye_N = mkN "oeil" "yeux" masculine ;
|
|
fat_N = regN "graisse" feminine ;
|
|
father_N = UseN2 father_N2 ;
|
|
feather_N = regN "plume" feminine ;
|
|
fingernail_N = regN "ongle" masculine ;
|
|
fire_N = regN "feu" masculine ;
|
|
fish_N = fish_N ;
|
|
flower_N = regN "fleur" feminine ;
|
|
fog_N = regN "brouillard" masculine ;
|
|
foot_N = regN "pied" masculine ;
|
|
forest_N = regN "forêt" feminine ;
|
|
fruit_N = fruit_N ;
|
|
grass_N = regN "herbe" feminine ;
|
|
guts_N = regN "entraille" feminine ;
|
|
hair_N = regN "cheveu" masculine ;
|
|
hand_N = regN "main" feminine ;
|
|
head_N = regN "tête" feminine ;
|
|
heart_N = regN "coeur" masculine ;
|
|
horn_N = regN "corne" masculine ;
|
|
husband_N = regN "mari" masculine ;
|
|
ice_N = regN "glace" feminine ;
|
|
knee_N = regN "genou" masculine ;
|
|
lake_N = lake_N ;
|
|
leaf_N = regN "feuille" feminine ;
|
|
leg_N = regN "jambe" feminine ;
|
|
liver_N = regN "foie" masculine ;
|
|
louse_N = regN "pou" masculine ;
|
|
man_N = man_N ;
|
|
meat_N = meat_N ;
|
|
moon_N = moon_N ;
|
|
mother_N = UseN2 mother_N2 ;
|
|
mountain_N = mountain_N ;
|
|
mouth_N = regN "bouche" feminine ;
|
|
name_N = regN "nom" masculine ;
|
|
neck_N = mkN "cou" "cous" masculine ;
|
|
night_N = regN "nuit" feminine ;
|
|
nose_N = regN "nez" masculine ;
|
|
person_N = regN "personne" feminine ;
|
|
rain_N = regN "pluie" feminine ;
|
|
river_N = river_N ;
|
|
road_N = regN "route" feminine ;
|
|
root_N = regN "racine" feminine ;
|
|
rope_N = regN "corde" feminine ;
|
|
salt_N = regN "sel" masculine ;
|
|
sand_N = regN "sable" masculine ;
|
|
sea_N = sea_N ;
|
|
seed_N = regN "graine" feminine ;
|
|
skin_N = regN "peau" masculine ;
|
|
sky_N = mkN "ciel" "cieux" masculine ;
|
|
smoke_N = regN "fumée" feminine ;
|
|
snake_N = snake_N ;
|
|
snow_N = regN "neige" feminine ;
|
|
star_N = star_N ;
|
|
stick_N = regN "bâton" masculine ;
|
|
stone_N = stone_N ;
|
|
sun_N = sun_N ;
|
|
tail_N = regN "queue" feminine ;
|
|
tongue_N = regN "langue" feminine ;
|
|
tooth_N = regN "dent" feminine ;
|
|
tree_N = tree_N ;
|
|
water_N = water_N ;
|
|
wife_N = regN "femme" feminine ;
|
|
wind_N = regN "vent" masculine ;
|
|
wing_N = regN "aile" feminine ;
|
|
woman_N = woman_N ;
|
|
worm_N = regN "ver" masculine ;
|
|
year_N = regN "an" masculine ; --- année
|
|
|
|
-- Verbs
|
|
|
|
bite_V = ( mordre_V2) ;
|
|
blow_V = regV "souffler" ;
|
|
breathe_V = dirV2 (regV "respirer") ;
|
|
burn_V = regV "brûler" ;
|
|
come_V = venir_V ;
|
|
count_V = dirV2 (regV "conter") ;
|
|
cut_V = dirV2 (regV "tailler") ;
|
|
die_V = mourir_V ;
|
|
dig_V = regV "creuser" ;
|
|
drink_V = ( boire_V2) ;
|
|
eat_V = dirV2 (regV "manger") ;
|
|
fall_V = regV "tomber" ;
|
|
fear_V = ( craindre_V2) ;
|
|
fight_V = dirV2 (regV "lutter") ;
|
|
float_V = regV "flotter" ;
|
|
flow_V = regV "couler" ;
|
|
fly_V = regV "voler" ;
|
|
freeze_V = reg3V "geler" "gèle" "gèlera" ;
|
|
give_V = dirdirV3 (regV "donner") ;
|
|
hear_V = ( entendre_V2) ;
|
|
hit_V = dirV2 (regV "frapper") ;
|
|
hold_V = ( tenir_V2) ;
|
|
hunt_V = dirV2 (regV "chasser") ;
|
|
kill_V = dirV2 (regV "tuer") ;
|
|
know_V = ( connaître_V2) ;
|
|
laugh_V = rire_V2 ;
|
|
lie_V = reflV étendre_V2 ;
|
|
live_V = vivre_V2 ;
|
|
play_V = regV "jouer" ;
|
|
pull_V = dirV2 (regV "tirer") ;
|
|
push_V = dirV2 (regV "pousser") ;
|
|
rub_V = dirV2 (regV "frotter") ;
|
|
say_V = dire_V2 ;
|
|
scratch_V = dirV2 (regV "gratter") ;
|
|
see_V = ( voir_V2) ;
|
|
sew_V = coudre_V2 ;
|
|
sing_V = regV "chanter" ;
|
|
sit_V = reflV asseoir_V2 ;
|
|
sleep_V = dormir_V2 ;
|
|
smell_V = v2V ( sentir_V2) ;
|
|
spit_V = regV "cracher" ;
|
|
split_V = ( fendre_V2) ;
|
|
squeeze_V = dirV2 (regV "serrer") ;
|
|
stab_V = dirV2 (regV "poignarder") ;
|
|
stand_V = reflV (reg3V "lever" "lève" "lèvera") ;
|
|
suck_V = dirV2 (regV "sucer") ;
|
|
swell_V = regV "gonfler" ;
|
|
swim_V = regV "nager" ;
|
|
think_V = regV "penser" ;
|
|
throw_V = dirV2 (regV "jeter") ;
|
|
tie_V = dirV2 (regV "lier") ;
|
|
turn_V = regV "tourner" ;
|
|
vomit_V = regV "vomir" ;
|
|
walk_V = regV "marcher" ;
|
|
wash_V = dirV2 (regV "laver") ;
|
|
wipe_V = dirV2 (regV "essuyer") ;
|
|
|
|
}
|