Icelandic added to RGL by Bjarki Traustason

This commit is contained in:
bjatra5
2017-01-16 16:30:50 +00:00
parent b52406a9cc
commit 50d5d62c2a
39 changed files with 5265 additions and 0 deletions

361
src/icelandic/LexiconIce.gf Normal file
View File

@@ -0,0 +1,361 @@
--# -path=.:prelude
concrete LexiconIce of Lexicon = CatIce **
open ParadigmsIce, IrregIce, Prelude in {
lin
bank_N = mkN "banki" masculine ;
boss_N = mkN "stjóri" masculine ;
cousin_N = mkN "frændi" masculine ; -- frænka is the feminine equivalent
glove_N = mkN "hanski" masculine ;
lamp_N = mkN "lampi" masculine ;
pen_N = mkN "penni" masculine ;
school_N = mkN "skóli" masculine ;
student_N = mkN "nemandi" masculine ;
teacher_N = mkN "kennari" masculine ;
university_N = mkN "háskóli" masculine ;
window_N = mkN "gluggi" masculine ;
boat_N = mkN "bátur" masculine ;
boy_N = mkN "strákur" masculine ;
cheese_N = mkN "ostur" masculine ;
dog_N = mkN "hundur" masculine ;
fish_N = mkN "fiskur" masculine ;
garden_N = mkN "garður" masculine ;
glove_N = mkN "hanski" masculine ;
hat_N = mkN "hattur" masculine ;
horse_N = mkN "hestur" masculine ;
king_N = mkN "konungur" masculine ;
priest_N = mkN "prestur" masculine ;
snake_N = mkN "snákur" masculine ;
sock_N = mkN "sokkur" masculine ;
belly_N = mkN "magi" masculine ;
fire_N = mkN "eldur" "eldar" masculine ;
chair_N = mkN "stóll" masculine ;
car_N = mkN "bíll" masculine ;
stone_N = mkN "steinn" masculine ;
rock_N = mkN "klettur" masculine ;
wing_N = mkN "vængur" masculine ;
mouth_N = mkN "munnur" masculine ;
sand_N = mkN "sandur" masculine ;
wind_N = mkN "vindur" masculine ;
worm_N = mkN "ormur" masculine ;
friend_N = mkN "vinur" "vinar" "vinir" masculine ;
brother_N2 = mkN2 (mkN "bróðir" "bróður" "bræður" masculine) (mkPrep [] genitive) ;
father_N2 = mkN2 (mkN "faðir" "föður" "feður" masculine) (mkPrep [] genitive) ;
man_N = mkN "maður" "mann" "menn" masculine ;
husband_N = mkCompoundN "eigin" (man_N) ;
policeman_N = mkCompoundN "lögreglu" (mkN "þjónn" masculine) ;
smoke_N = mkN "reykur" "reykjar" "reykir" masculine;
restaurant_N = mkCompoundN "veitinga" (mkN "staður" "staðar" "staðir" masculine) ;
road_N = mkN "vegur" "vegar" "vegir" masculine ;
forest_N = mkN "skógur" masculine ;
enemy_N = mkCompoundN "ó" (friend_N) ;
peace_N = mkN "friður" masculine ;
industry_N = mkN "iðnaður" masculine ;
leg_N = mkCompoundN "fót" (mkN "leggur" "leggjar" "leggir" masculine) ;
beer_N = mkN "öl" neuter ;
bird_N = mkN "fugl" masculine ;
cat_N = mkN "köttur" "kattar" "kettir" masculine ;
sky_N = mkN "himinn" masculine ;
neck_N = mkN "háls" masculine ;
snow_N = mkN "snjór" masculine ;
ice_N = mkN "ís" masculine ;
head_N = mkN "haus" masculine ;
foot_N = mkN "fótur" "fætur" masculine ;
day_N = mkN "dagur" masculine ;
bark_N = mkN "börkur" "barkar" "berkir" masculine ;
wood_N = mkN "viður" "viðar" "viðir" masculine ;
fruit_N = mkN "ávöxtur" "ávaxtar" "ávextir" masculine ;
shoe_N = mkN "skór" "skór" masculine ;
sea_N = mkN "sjór" "sjó" "sjó" "sjós" "sjóir" "sjói" "sjóum" "sjóa" masculine ;
paper_N = mkN "pappír" masculine ;
doctor_N = mkN "læknir" "lækni" "lækni" "læknis" "læknar" "lækna" "læknum" "lækna" masculine ;
fridge_N = mkCompoundN "ís" (mkN "skápur" "skáps" "skápar" masculine) ;
cap_N = mkN "húfa" feminine ;
fat_N = mkN "fita" feminine ;
fog_N = mkN "þoka" feminine ;
tail_N = mkN "rófa" feminine ;
apple_N = mkN "epli" neuter ;
baby_N = mkN "barn" neuter ;
bike_N = mkN "hjól" neuter ;
boot_N = mkN "sígvél" neuter ;
bread_N = mkN "brauð" neuter ;
butter_N = mkN "smjör" neuter ;
carpet_N = mkN "teppi" neuter ;
ceiling_N = mkN "loft" neuter ;
child_N = mkN "barn" neuter ;
country_N = mkN "land" neuter ;
floor_N = mkN "gólf" neuter ;
house_N = mkN "hús" neuter ;
lake_N = mkN "vatn" neuter ;
meat_N = mkN "kjöt" neuter ;
moon_N = mkN "tungl" neuter ;
mountain_N = mkN "fjall" neuter ;
newspaper_N = mkN "dagblað" neuter ;
plastic_N = mkN "plat" neuter ;
radio_N = mkN "útvarp" neuter ;
religion_N = mkN "trúarbragð" neuter ;
roof_N = mkN "þak" neuter ;
rubber_N = mkN "gúmmí" neuter ;
ship_N = mkN "skip" neuter ;
silver_N = mkN "silfur" neuter ;
steel_N = mkN "stál" neuter ;
table_N = mkN "borð" neuter ;
television_N = mkN "sjónvarp" neuter ;
village_N = mkN "þorp" neuter ;
war_N = mkN "stríð" neuter ;
water_N = mkN "vatn" neuter ;
wine_N = mkN "vín" neuter ;
song_N = mkN "lag" neuter ;
number_N = mkN "númer" neuter ;
animal_N = mkN "dýr" neuter ;
back_N = mkN "bak" neuter ;
blood_N = mkN "blóð" neuter ;
bone_N = mkN "bein" neuter ;
breast_N = mkN "brjóst" neuter ;
dust_N = mkN "ryk" neuter ;
ear_N = mkN "eyra" neuter ;
egg_N = mkN "egg" neuter ;
eye_N = mkN "auga" neuter ;
flower_N = mkN "blóm" neuter ;
grass_N = mkN "gras" neuter ;
hair_N = mkN "hár" neuter ;
heart_N = mkN "hjarta" neuter ;
horn_N = mkN "horn" neuter ;
knee_N = mkN "hné" neuter ;
leaf_N = mkN "lauf" neuter ;
name_N = mkN "nafn" neuter ;
nose_N = mkN "nef" neuter ;
rope_N = mkN "reipi" neuter ;
salt_N = mkN "salt" neuter ;
seed_N = mkN "fræ" neuter ;
stick_N = mkN "prik" neuter ;
year_N = mkN "ár" neuter ;
language_N = mkN "tungumál" neuter ;
gold_N = mkN "gull" neuter ;
iron_N = mkN "járn" neuter ;
leather_N = mkN "leður" neuter ;
airplane_N = mkN "flugvél" "flugvélar" feminine ;
apartment_N = mkN "íbúð" "íbúðir" feminine ;
art_N = mkN "list" "listir" feminine ;
camera_N = mkN "myndavél" "myndavélar" feminine ;
church_N = mkN "kirkja" feminine ;
city_N = mkN "borg" "borgir" feminine ;
coat_N = mkN "kápa" feminine ;
computer_N = mkN "tölva" feminine ;
door_N = mkN "hurð" "hurðir" feminine ;
girl_N = mkNPlGen "stelpa" feminine ;
harbour_N = mkN "höfn" "hafnir" feminine ;
hill_N = mkN "hæð" "hæðir" feminine ;
love_N = mkN "ást" "ástir" feminine ;
oil_N = mkN "olía" feminine ;
planet_N = mkN "pláneta" feminine ;
queen_N = mkN "drottning" feminine ;
shirt_N = mkN "skyrta" feminine ;
shop_N = mkN "búð" "búðir" feminine ;
sister_N = mkN "systir" "systur" feminine ;
star_N = mkN "stjarna" feminine ;
stove_N = mkN "eldavél" "eldavélar" feminine ;
sun_N = mkN "sól" "sólir" feminine ;
train_N = mkN "lest" "lestir" feminine ;
earth_N = mkN "jörð" "jarðir" feminine ;
feather_N = mkN "fjöður" "fjaðrir" feminine ;
fog_N = mkN "þoka" feminine ;
guts_N = mkN "görn" "garnir" feminine ;
liver_N = mkN "lifur" "lifrar" feminine ;
person_N = mkN "persóna" feminine ;
rain_N = mkN "rigning" feminine ;
skin_N = mkN "húð" "húðir" feminine ;
tongue_N = mkNPlGen "tunga" feminine ;
rule_N = mkN "regla" feminine ;
question_N = mkN "spurning" feminine ;
reason_N = mkNPlGen "ástæða" feminine ;
river_N = mkN "á" "ár" feminine ;
louse_N = mkN "lús" "lýs" feminine ;
book_N = mkN "bók" "bókar" "bækur" feminine ;
night_N = mkN "nótt" "nætur" "nætur" "nótta" feminine ;
root_N = mkN "rót" "rótar" "rætur" feminine ;
factory = mkN "verksmiðja" feminine ;
fingernail_N = mkN "nögl" "naglar" "neglur" feminine ;
sheep_N = mkN "kind" "kindar" "kindur" feminine ;
tooth_N = mkN "tönn" "tannar" "tennur" feminine ;
mother_N2 = mkN2 (mkN "móðir" "mæður" feminine) (mkPrep [] genitive) ;
distance_N3 = mkN3 (mkN "vegalend" "vegalengdir" feminine) (mkPrep "frá" dative) (mkPrep "til" genitive) ;
ashes_N = mkN "aska" feminine ;
woman_N = mkN "kona" "konu" "konur" "kvenna" feminine ;
wife_N = mkCompoundN "eigin" (woman_N) ;
cow_N = mkN "belja" feminine ;
factory_N = mkN "verksmiðja" feminine ;
milk_N = mkN "mjólk" "mjólk" "mjólk" "mjólkur" "mjólk" "mjólk" "mjólk" "mjólkur" feminine ;
music_N = mkN "tónlist" "tónlist" "tónlist" "tónlistar" "tónlist" "tónlist" "tónlist" "tónlistar" feminine ;
fat_N = mkN "fita" feminine ;
hand_N = mkN "hönd" "hönd" "hendi" "handar" "hendur" "hendur" "höndum" "handa" feminine ;
grammar_N = mkN "málfræði" "málfræði" "málfræði" "málfræði" "málfræði" "málfræði" "málfræði" "málfræði" feminine ;
tree_N = mkN "tré" neuter ;
-- either vísindi (neuter and only in plural) or fræði (feminine and only in singular) :)
--science_N
paris_PN = mkPN "París" feminine ;
cloud_N = mkN "ský" neuter ;
-- left_Ord =
bad_A = mkA "vondur" "vond" "verri" ;
beautiful_A = mkA "fallegur" ;
big_A = mkA "stór" "stór" "stærri" ;
black_A = mkA "svartur" ;
blue_A = mkA "blár" "blá" ;
broad_A = mkA "breiður" ;
brown_A = mkA "brúnn" ;
clean_A = mkA "hreinn" ;
clever_A = mkA "klár" "klár" ;
cold_A = mkA "kaldur" ;
dirty_A = mkA "skítugur" ;
empty_A = mkA "tómur" ;
easy_A2V = mkA2 (mkA "auðveldur") (lin Prep {s = "fyrir"; c = accusative}) ;
fun_AV = mkA "skemmtilegur" ;
good_A = mkA "góður" "góð" "betri" ;
green_A = mkA "grænn" ;
hot_A = mkA "heitur" ;
important_A = mkA "mikilvægur" ;
long_A = mkA "langur" ;
married_A2 = mkA2 (mkA "giftur") (lin Prep {s = []; c = dative}) ;
narrow_A = mkA "þröngur" ;
new_A = mkA "nýr" "ný" ;
--old_A = mkA "gamall"
probable_AS = mkA "líklegur" ;
red_A = mkA "rauður" ;
short_A = mkA "stuttur" "stutt" "syttri" ;
small_A = mkA "lítill" "lítil" "minni" ;
stupid_A = mkA "heimskur" ;
thick_A = mkA "þykkur" ;
thin_A = mkA "þunnur" "þunn" "þynnri" ;
ugly_A = mkA "ljótur" ;
warm_A = mkA "heitur" ;
white_A = mkA "hvítur" ;
yellow_A = mkA "gulur" ;
young_A = mkA "ungur" "ung" "yngri" ;
correct_A = mkA "réttur" ;
dry_A = mkA "þurr" "þurr" ;
dull_A = mkA "leðinilegur" ;
full_A = mkA "fullur" ;
heavy_A = mkA "þungur" "þung" "þyngri" ;
near_A = mkA "nálægur" ;
rotten_A = mkA "rotinn" ;
round_A = mkA "kringlóttur" ;
sharp_A = mkA "beittur" ;
smooth_A = mkA "sléttur" ;
straight_A = mkA "beinn" ;
wet_A = mkA "blautur" ;
wide_A = mkA "víður" ;
ready_A = mkA "tilbúinn" ;
uncertain_A = mkA "óviss" "óviss" "óvissari" ;
--other_A = regA "other" ;
-- Old paradigms
already_Adv = mkAdv "þegar" ;
far_Adv = mkAdv "langt" ;
fly_V = IrregIce.fljúga_V ;
john_PN = mkPN "Jón" masculine ;
now_Adv = mkAdv "núna" ;
today_Adv = mkAdv "í dag" ;
live_V = mkV "lifa" ;
stop_V = mkV "stansa" "stansa" "stansaði" "stansaður" ;
jump_V = mkV "hoppa" "hoppa" ;
breathe_V = mkV "anda" "anda" "andaði" "andaður"; -- some bug somewhere...
sew_V = mkV "sauma" "sauma" "saumaði" "saumaður" ;
smell_V = mkV "þefa" "þefa" "þefaði" "þefaður" ;
spit_V = mkV "hrækja" ;
swell_V = mkV "bólgna" "bólgna" "bólgnaði" "bólgnaður" ;
swim_V = mkV "synda" ;
think_V = mkV "hugsa" "hugsa" "hugsaði" "hugsaður" ;
vomit_V = mkV "æla" ;
love_V2 = mkV2 (mkV "elska" "elska" "elskaði" "elskaður") ;
listen_V2 = mkV2 (mkV "hlusta" "hlusta" "hlustaði" "hlustaður") (mkPrep "á" accusative) ;
close_V2 = mkV2 (mkV "loka" "loka" "lokaði" "lokaður") ;
answer_V2S = mkV2 (mkV "svara" "svara" "svaraði" "svaraður") (mkPrep "" dative) ;
eat_V2 = mkV2 (mkV "borða" "borða" "borðaði" "borðaður") ;
forget_V2 = mkV2 (mkV "gleyma") ;
hate_V2 = mkV2 (mkV "hata" "hata" "hataði" "hataður") ;
hear_V2 = mkV2 (mkV "heyra") ;
learn_V2 = mkV2 (mkV "læra") ;
lose_V2 = mkV2 (mkV "týna") ;
open_V2 = mkV2 (mkV "opna" "opna" "opnaði" "opnaður") ;
paint_V2A = mkV2 (mkV "mála" "mála" "málaði" "málaður") ;
speak_V2 = mkV2 (mkV "tala" "tala" "talaði" "talaður") ;
teach_V2 = mkV2 (mkV "kenna") ;
understand_V2 = mkV2 (mkV "skilja") ;
watch_V2 = mkV2 (mkV "horfa") ;
write_V2 = mkV2 (mkV "skrifa" "skrifa" "skrifaði" "skrifaður") ;
do_V2 = mkV2 (mkV "gera") ;
count_V2 = mkV2 (mkV "telja") ;
cut_V2 = mkV2 (mkV "klippa") ;
hit_V2 = mkV2 (mkV "berja") ;
hunt_V2 = mkV2 (mkV "veiða") ;
pull_V2 = mkV2 (mkV "toga" "toga" "togaði" "togaður") ;
push_V2 = mkV2 (mkV "ýta") ;
rub_V2 = mkV2 (mkV "nudda" "nudda" "nuddaði" "nuddaður") ;
scratch_V2 = mkV2 (mkV "klóra" "klóra" "klóraði" "klóraður") ;
split_V2 = mkV2 (mkV "skipta") ;
squeeze_V2 = mkV2 (mkV "kreista") ;
throw_V2 = mkV2 (mkV "kasta" "kasta" "kastaði" "kastaður") ;
turn_V = mkV "beygja" "beygi" ;
bite_V2 = mkV2 IrregIce.bíta_V ;
break_V2 = mkV2 IrregIce.brjóta_V ;
wait_V2 = mkV2 (IrregIce.bíða_V) (mkPrep "eftir" dative) ;
wash_V2 = mkV2 IrregIce.þrífa_V ;
suck_V2 = mkV2 IrregIce.sjúga_V ;
wipe_V2 = mkV2 IrregIce.strjúka_V ;
lie_V = IrregIce.ljúga_V ;
freeze_V = IrregIce.frjósa_V ;
float_V = IrregIce.fljóta_V ;
flow_V = mkV "flæða" ;
go_V = IrregIce.fara_V ;
leave_V2 = mkV2 IrregIce.fara_V ;
seek_V2 = mkV2 (mkV "leita" "leita" "leitaði" "leitaður") ;
travel_V = mkV "ferða" "ferða" "ferðaði" "ferðaður" ; -- this verb only exists in the middle voice
know_V2 = mkV2 IrregIce.vita_V ;
know_VQ = IrregIce.vita_V ;
know_VS = IrregIce.vita_V ;
ask_V2Q = mkV2 (mkV "spyrja" "spyr" "spurði" "spurður") (mkPrep "" accusative) ;
find_V2 = mkV2 IrregIce.finna_V ;
win_V2 = mkV2 IrregIce.vinna_V ;
fall_V = IrregIce.detta_V ;
burn_V = IrregIce.brenna_V ;
drink_V2 = mkV2 IrregIce.drekka_V ;
add_V3 = mkV3 (mkV "bæta" "bæti" "bætti" "bættur") (mkPrep "" dative) (mkPrep "við" accusative) ;
beg_V2V = mkV3 IrregIce.biðja_V (mkPrep "" accusative) (mkPrep "um að" accusative) ;
read_V2 = mkV2 IrregIce.lesa_V ;
kill_V2 = mkV2 IrregIce.drepa_V ;
give_V3 = mkV3 IrregIce.gefa_V ;
sit_V = IrregIce.sitja_V ;
hope_VS = mkV "vona" "vona" "vonaði" "vonaður" ;
wonder_VQ = mkV "velta" ;
play_V2 = mkV2 IrregIce.leika_V ;
laugh_V = IrregIce.hlæja_V ;
hold_V2 = mkV2 IrregIce.halda_V ;
die_V = IrregIce.deyja_V ;
run_V = IrregIce.hlaupa_V ;
walk_V = IrregIce.ganga_V ;
dig_V = IrregIce.grafa_V ;
see_V2 = mkV2 IrregIce.sjá_V ;
blow_V = IrregIce.blása_V ;
sleep_V = IrregIce.sofa_V ;
put_V2 = mkV2 IrregIce.láta_V ;
buy_V2 = mkV2 (mkV "kaupa" "kaupi" "keypti" "keyptur" "keypt") ;
tie_V2 = mkV2 IrregIce.binda_V ;
stab_V2 = mkV2 IrregIce.stinga_V ;
come_V = IrregIce.koma_V ;
play_V = IrregIce.leika_V ;
sing_V = IrregIce.syngja_V ;
stand_V = IrregIce.standa_V ;
become_VA = IrregIce.verða_V ;
talk_V3 = mkV3 (mkV "tala" "tala" "talaði" "talaður") (mkPrep "við" accusative) (mkPrep "um" accusative) ;
send_V3 = mkV3 (mkV "senda") (mkPrep "" accusative) (mkPrep "með" accusative) ;
say_VS = mkV "segja" "segi" "sagði" "sagður";
sell_V3 = mkV3 (mkV "selja") (mkPrep "" dative) (mkPrep "" dative) ;
} ;