forked from GitHub/gf-core
247 lines
6.3 KiB
Plaintext
247 lines
6.3 KiB
Plaintext
--# -path=.:../abstract:../../prelude
|
|
|
|
concrete SwadeshLexEng of SwadeshLex = CategoriesEng
|
|
** open ResourceEng, SyntaxEng, ParadigmsEng, VerbsEng,
|
|
BasicEng, Prelude in {
|
|
|
|
lin
|
|
|
|
-- Pronouns
|
|
|
|
i_NP = i_NP ;
|
|
thou_NP = thou_NP ;
|
|
he_NP = he_NP ;
|
|
we_NP = we_NP ;
|
|
you_NP = you_NP ;
|
|
they_NP = they_NP ;
|
|
who8many_IP = who8many_IP ;
|
|
who8one_IP = who8one_IP ;
|
|
what8many_IP = what8many_IP ;
|
|
what8one_IP = what8one_IP ;
|
|
|
|
-- Determiners
|
|
|
|
this_Det = this_Det ;
|
|
that_Det = that_Det ;
|
|
all_NDet = all_NDet ;
|
|
many_Det = many_Det ;
|
|
some_Det = some_Det ;
|
|
few_Det = mkDeterminer Pl "few" ;
|
|
other_Det = mkDeterminer Pl "other" ;
|
|
|
|
|
|
-- Adverbs
|
|
|
|
here_Adv = here_Adv;
|
|
there_Adv = there_Adv;
|
|
where_IAdv = where_IAdv;
|
|
when_IAdv = when_IAdv;
|
|
how_IAdv = how_IAdv;
|
|
|
|
-- not : Adv ; -- ?
|
|
|
|
-- Conjunctions
|
|
|
|
and_Conj = and_Conj ;
|
|
|
|
-- Prepositions
|
|
|
|
at_Prep = ss "at" ;
|
|
in_Prep = ss "in" ;
|
|
with_Prep = ss "with" ;
|
|
|
|
-- Numerals
|
|
|
|
one_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 pot01)))) ;
|
|
two_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
|
|
three_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
|
|
four_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
|
|
five_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
|
|
|
|
-- Adjectives
|
|
|
|
bad_ADeg = bad_ADeg ;
|
|
big_ADeg = big_ADeg ;
|
|
black_ADeg = black_ADeg ;
|
|
cold_ADeg = cold_ADeg ;
|
|
correct_ADeg = compoundADeg (regA "correct") ;
|
|
dirty_ADeg = dirty_ADeg ;
|
|
dry_ADeg = regADeg "dry" ;
|
|
dull_ADeg = regADeg "dull" ;
|
|
far_ADeg = mkADeg "far" (variants { "further"; "farther" })
|
|
(variants { "furthest"; "farthest" }) "far" ;
|
|
full_ADeg = regADeg "full" ;
|
|
good_ADeg = good_ADeg ;
|
|
green_ADeg = green_ADeg ;
|
|
heavy_ADeg = regADeg "heavy" ;
|
|
long_ADeg = long_ADeg ;
|
|
narrow_ADeg = narrow_ADeg ;
|
|
near_ADeg = regADeg "near" ;
|
|
new_ADeg = new_ADeg ;
|
|
old_ADeg = old_ADeg ;
|
|
red_ADeg = red_ADeg ;
|
|
rotten_ADeg = compoundADeg (regA "rotten") ;
|
|
round_ADeg = regADeg "round" ;
|
|
sharp_ADeg = regADeg "sharp" ;
|
|
short_ADeg = short_ADeg ;
|
|
small_ADeg = small_ADeg ;
|
|
smooth_ADeg = regADeg "smooth" ;
|
|
straight_ADeg = regADeg "straight" ;
|
|
thick_ADeg = thick_ADeg ;
|
|
thin_ADeg = thin_ADeg ;
|
|
warm_ADeg = warm_ADeg ;
|
|
wet_ADeg = duplADeg "wet" ;
|
|
white_ADeg = white_ADeg ;
|
|
wide_ADeg = regADeg "wide" ;
|
|
yellow_ADeg = yellow_ADeg ;
|
|
|
|
left_A = regA "left" ;
|
|
right_A = regA "right" ;
|
|
|
|
-- Nouns
|
|
|
|
animal_N = regN "animal" ;
|
|
ashes_N = regN "ash" ; -- FIXME: plural only?
|
|
back_N = regN "back" ;
|
|
bark_N = regN "bark" ;
|
|
belly_N = regN "belly" ;
|
|
bird_N = bird_N;
|
|
blood_N = regN "blood" ;
|
|
bone_N = regN "bone" ;
|
|
breast_N = regN "breast" ;
|
|
child_N = child_N ;
|
|
cloud_N = regN "cloud" ;
|
|
day_N = regN "day" ;
|
|
dog_N = dog_N ;
|
|
dust_N = regN "dust" ;
|
|
ear_N = regN "ear" ;
|
|
earth_N = regN "earth" ;
|
|
egg_N = regN "egg" ;
|
|
eye_N = regN "eye" ;
|
|
fat_N = regN "fat" ;
|
|
father_N = UseN2 father_N2 ;
|
|
feather_N = regN "feather" ;
|
|
fingernail_N = regN "fingernail" ;
|
|
fire_N = regN "fire" ;
|
|
fish_N = fish_N ;
|
|
flower_N = regN "flower" ;
|
|
fog_N = regN "fog" ;
|
|
foot_N = mk2N "foot" "feet" ;
|
|
forest_N = regN "forest" ;
|
|
fruit_N = fruit_N ;
|
|
grass_N = regN "grass" ;
|
|
guts_N = regN "gut" ; -- FIXME: no singular
|
|
hair_N = regN "hair" ;
|
|
hand_N = regN "hand" ;
|
|
head_N = regN "head" ;
|
|
heart_N = regN "heart" ;
|
|
horn_N = regN "horn" ;
|
|
husband_N = genderN masculine (regN "husband") ;
|
|
ice_N = regN "ice" ;
|
|
knee_N = regN "knee" ;
|
|
lake_N = lake_N ;
|
|
leaf_N = mk2N "leaf" "leaves" ;
|
|
leg_N = regN "leg" ;
|
|
liver_N = regN "liver" ;
|
|
louse_N = mk2N "louse" "lice" ;
|
|
man_N = man_N ;
|
|
meat_N = meat_N ;
|
|
moon_N = moon_N ;
|
|
mother_N = UseN2 mother_N2 ;
|
|
mountain_N = mountain_N ;
|
|
mouth_N = regN "mouth" ;
|
|
name_N = regN "name" ;
|
|
neck_N = regN "neck" ;
|
|
night_N = regN "night" ;
|
|
nose_N = regN "nose" ;
|
|
person_N = genderN human (regN "person") ;
|
|
rain_N = regN "rain" ;
|
|
river_N = river_N ;
|
|
road_N = regN "road" ;
|
|
root_N = regN "root" ;
|
|
rope_N = regN "rope" ;
|
|
salt_N = regN "salt" ;
|
|
sand_N = regN "sand" ;
|
|
sea_N = sea_N ;
|
|
seed_N = regN "seed" ;
|
|
skin_N = regN "skin" ;
|
|
sky_N = regN "sky" ;
|
|
smoke_N = regN "smoke" ;
|
|
snake_N = snake_N ;
|
|
snow_N = regN "snow" ;
|
|
star_N = star_N ;
|
|
stick_N = regN "stick" ;
|
|
stone_N = stone_N ;
|
|
sun_N = sun_N ;
|
|
tail_N = regN "tail" ;
|
|
tongue_N = regN "tongue" ;
|
|
tooth_N = mk2N "tooth" "teeth" ;
|
|
tree_N = tree_N ;
|
|
water_N = water_N ;
|
|
wife_N = genderN feminine (mk2N "wife" "wives") ;
|
|
wind_N = regN "wind" ;
|
|
wing_N = regN "wing" ;
|
|
woman_N = woman_N ;
|
|
worm_N = regN "worm" ;
|
|
year_N = regN "year" ;
|
|
|
|
-- Verbs
|
|
|
|
bite_V = bite_V ;
|
|
blow_V = blow_V ;
|
|
breathe_V = regV "breathe" ;
|
|
burn_V = burn_V ;
|
|
come_V = come_V ;
|
|
count_V = regV "count" ;
|
|
cut_V = cut_V ;
|
|
die_V = die_V ;
|
|
dig_V = dig_V ;
|
|
drink_V = drink_V ;
|
|
eat_V = eat_V ;
|
|
fall_V = fall_V ;
|
|
fear_V = regV "fear" ;
|
|
fight_V = fight_V ;
|
|
float_V = regV "float" ;
|
|
flow_V = regV "flow" ;
|
|
fly_V = fly_V ;
|
|
freeze_V = freeze_V ;
|
|
give_V = give_V ;
|
|
hear_V = hear_V ;
|
|
hit_V = hit_V ;
|
|
hold_V = hold_V ;
|
|
hunt_V = regV "hunt" ;
|
|
kill_V = regV "kill" ;
|
|
know_V = know_V ;
|
|
laugh_V = regV "laugh" ;
|
|
lie_V = lie_V ;
|
|
live_V = live_V ;
|
|
play_V = UseV2 play_V2 ;
|
|
pull_V = regV "pull" ;
|
|
push_V = regV "push" ;
|
|
rub_V = regDuplV "rub" ;
|
|
say_V = say_V ;
|
|
scratch_V = regV "scratch" ;
|
|
see_V = see_V ;
|
|
sew_V = sew_V ;
|
|
sing_V = sing_V ;
|
|
sit_V = sit_V ;
|
|
sleep_V = sleep_V ;
|
|
smell_V = regV "smell" ;
|
|
spit_V = spit_V ;
|
|
split_V = split_V ;
|
|
squeeze_V = regV "squeeze" ;
|
|
stab_V = regDuplV "stab" ;
|
|
stand_V = stand_V ;
|
|
suck_V = regV "suck" ;
|
|
swell_V = swell_V ;
|
|
swim_V = swim_V ;
|
|
think_V = think_V ;
|
|
throw_V = throw_V ;
|
|
tie_V = regV "tie" ;
|
|
turn_V = regV "turn" ;
|
|
vomit_V = regV "vomit" ;
|
|
walk_V = walk_V ;
|
|
wash_V = regV "wash" ;
|
|
wipe_V = regV "wipe" ;
|
|
|
|
} |