GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-15 22:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity
Files
d9d617be5d844f5323408cbbda0f7fc9370284e2
gf-core/lib/src/ancient_greek/LexiconGrc.gf
leiss d9d617be5d partial implementation of Ancient Greek RGL
2016-05-25 12:35:37 +00:00

420 lines
18 KiB
Plaintext
Raw Blame History

--# -path=.:../abstract:../common:../prelude
-- Entries taken from Bornemann/Risch and Woodhouse
-- English to Attic Greek dictionary:
-- http://www.lib.uchicago.edu/efts/Woodhouse/
-- Author: H.Leiss, CIS, LMU Muenchen
-- TODO: check the mkN,mkA,mkV on the entries from Woodhouse (Wh)
concrete LexiconGrc of Lexicon = CatGrc ** open
ParadigmsGrc,
IrregGrc, -- with additional verbs in IrregGrcAbs.gf
ResGrc, -- for mkPrep only,
Prelude in {
flags
optimize=values ;
lin
-- add_V3 : V3 ;
airplane_N = mkN "h(liko'pthr" "h(liko'pteros" masculine ; -- HL
-- alas_Interj : Interj ;
-- already_Adv : Adv ;
animal_N = mkN "vh'r" "vhro's" masculine ;
-- animal_N = mkN "zw|~on" "zw|'oy" neuter ; -- TODO check
answer_V2S = mkV2S (mkV "a)pokri'nw") datPrep ; -- medium
apartment_N = mkN "oi)~kos" ; -- Woodhouse
apple_N = mkN "mh~lon" ;
art_N = mkN "te'cnh" ;
ashes_N = mkN "te'fra" ; -- Woodhouse
ask_V2Q = mkV2Q (mkV "e)rwta'w") accPrep ;
baby_N = mkN "tekni'dion" ;
back_N = mkN "nw~ton" ; -- Woodhouse
bad_A = mkA "kako's" ;
bank_N = mkN "tra'peza" ; -- Woodhouse
bark_N = mkN "ploi~on" ; -- Woodhouse
beautiful_A = mkA "kalo's" ;
-- become_VA : VA ;
-- beer_N : N ; "o)i~nos kri_'vinos" -- Gerstenwein
-- beg_V2V : V2V ; "ai)tei~n" tina ti -- Wh
-- belly_N : N ; -- h koili'a, -as -- Bauchhoehle
belly_N = mkN "gasth'r" "gastro's" "gaste'ra" feminine ; -- Wh
big_A = mkA "makro's" ;
bike_N = mkN "dyozy'klon" ; -- HL
bird_N = mkN "oi)wno's" ;
black_A = mkA "me'la_s" "me'lanos" ; -- TODO: correct to me'las*, me'laina, me'lan
blue_A = mkA "kyanoy~s" ; -- Wh
boat_N = mkN "ploi~on" ; -- Wh
book_N = mkN "bi'blos" "bi'bloy" feminine ;
boot_N = mkN "ko'vornos" ; -- Wh
boss_N = mkN "o)mfa.lo's" ; -- Wh mkN human (...)
boy_N = mkN "pai~s" "paido's" masculine ;
bread_N = mkN "a)'rtos" ;
break_V2 = mkV2 (prefixV "a)po" (mkV "kla'w")) ;
-- broad_A = mkA "ey)ry's" ; -- Wh TODO
brother_N2 = mkN2 (mkN "a)delfo's") genPrep ;
brown_A = mkA "xanvo's" ; -- Wh
-- butter_N = mkN "butter" ;
-- buy_V2 = dirV2 (mkV "w)nei~svai") ; -- Aor: pri'asvai, Wh -- TODO Comp.Bug
-- camera_N = mkN "camera" ;
cap_N = mkN "ky.nh~" ; -- Wh
car_N = mkN "zey~gos" "zey'goys" neuter ;
-- carpet_N = mkN "da.'pi.s" ; -- Wh BUG mkN does not apply
cat_N = mkN feminine (mkN "ai)'loyros") ; -- Wh, Masc|Fem
ceiling_N = mkN "o)rofh'" ; -- Wh
chair_N = mkN "di'fros" ; -- Wh
cheese_N = mkN "ty.ro's" ; -- Wh
child_N = mkN2 (mkN "te'knon") genPrep ;
-- church_N = mkN "new's" ; -- TODO to i('dry_ma, -atos ??
city_N = mkN "po'lis" "po'lews" feminine ; -- polis
clean_A = mkA "ka.va.ro's" ; -- Wh
clever_A = mkA "fro'nimos" "froni'moy" ; -- TODO: froni'moy
close_V2 = dirV2 (mkV "klh|'w") ; -- Wh
coat_N = mkN "i(ma'tion" ;
cold_A = mkA "qycro's" ; -- Wh TODO: correct forms/accents
come_V = mkV "e)'rcomai" ; -- Wh TODO
-- computer_N = mkN "computer" ;
country_N = mkN "cw'ra" ;
-- cousin_N = mkN human (mkN "cousin") ;
cow_N = mkN "boy~s" "boo's" feminine ; -- TODO: correct dual from boy~ to bo'e
die_V = prefixV "a)po'" (mkV "vnh'skw") ; -- TODO: check forms -- teleyta'w
dirty_A = mkA "volero's" ; -- Wh
distance_N3 = mkN3 (mkN feminine (mkN "o(do's")) fromP toP ;
doctor_N = mkN "i)atro's" ; -- TODO check
dog_N = mkNoun "ky'wn" "kyno's*" "kyni'" "ky'na" "ky'on"
"ky'nes*" "kynw~n" "kysi'" "ky'nas*" -- BR 55.4
"ky'ne" "kynoi~n" masculine ;
door_N = mkN "vy'ra" ;
drink_V2 = dirV2 (mkV "pi_'nw" "pi'omai" "e('pion" "pe'pwka" "pe'pomai" "e)po'vhn" "poto's") ;
-- easy_A2V = mk_A2V (mkA "ra|'dios" "ra|di'oy") ; - Wh TODO
eat_V2 = mkV2 (mkV "e)svi'w" "fa'gomai" "e)'fagon" "e)dh'dwka" "e)dh'desmai" "e)de'svhn" "e)desto's") ;
-- eat_V2 fut: (variants{"e)'domai" ; "fa'gomai"}) -- TODO: correct Fut-forms
empty_A = mkA "keno's" ; -- Wh
enemy_N = mkN "pole'mios" "polemi'oi" masculine ; -- ecvro's
factory_N = mkN "e)rgasth'rion" ; -- Wh
father_N2 = mkN2 (mkN "path'r" "patro's" "pate'ra" masculine) genPrep ;
fear_VS = mkVS (mkV "fobe'w") ; -- fear_N = mkN "fo'bos" "fo'boy" masculine
find_V2 = dirV2 (mkV "ey(ri'skw") ; -- Wh
fish_N = mkN "i)cvy~s" "i)cvy'os" masculine ;
floor_N = mkN neuter (mkN "e)'dafos") ; -- Wh
forget_V2 = dirV2 (mkV "e)pilanva.'nomai") ; -- Wh TODO
-- fridge_N = mkN "fridge" ;
friend_N = mkN "fi'los" ;
fruit_N = mkN "karpo's" ;
-- fun_AV = mkAV (regA "fun") ;
-- garden_N = mkN "paradei~son" ;
garden_N = mkN "kh~pos" ; -- Wh
girl_N = mkN "pai~s" "paido's" feminine ;
-- glove_N = mkN "ceiri's" ; -- Wh TODO
glove_N = mkN "ceiri's" "ceiri~dos" feminine ; -- HL guessed
gold_N = mkN "cry's" "cryso's" neuter ; -- TODO check (accents missing in Pl)
good_A = mkA "a)gavo's" ;
go_V = mkV "e)'rxomai" ;
-- green_A = mkA "di'kaios" "dikai'a_s" ; -- Testword
green_A = mkA "clwro's" ; -- Wh
harbour_N = mkN "limh'n" "lime'nos" masculine ;
hate_V2 = dirV2 (mkV "mise'w") ; -- tina', ti' fut mish'sw
hat_N = mkN "ky.nh~" ; -- Wh
have_V2 = dirV2 (mkV "e('cw") ; -- Wh TODO
hear_V2 = dirV2 (mkV "a)koy'w") ;
hill_N = mkN "lo'fos" ; -- Wh
hope_VS = mkVS (mkV "e)lpi'zw" "e)lpiw~" "h)'lpisa" "h)'lpika" "h)'lpismai" "h)lpi'svhn" "h)lpisto's") ; -- TODO check aorist
horse_N = mkN "i('ppos" ; --hippos
hot_A = mkA "vermo's" ;
house_N = mkN "oi)~kos" "oi)'koy" masculine ;
important_A = mkA "a)xio'logos" ;
industry_N = mkN "filoponi'a_" ; -- Wh -- a_ added HL
iron_N = mkN "si.'dhros" ; -- Wh
king_N = mkN "basiley's" "basile'ws" masculine ;
know_V2 = dirV2 (mkV "manva.'nw") ; -- Wh, better: eide'nai
lake_N = mkN "li'mnh" ;
lamp_N = mkN "lampvh'r" "lampth~ros" masculine ;
-- lamp_N = mkN "ly'cnos" ; -- Wh
learn_V2 = mkV2 "dida'skw" ; -- medium
leather_N = mkN neuter (mkN "sky~tos") ; -- Wh
leave_V2 = dirV2 (prefixV "a)po'" (mkV "bai'nw")) ;
like_V2 = mkV2 "file'w" ;
-- listen_V2 = mkV2 (prefixV "e)p" (mkV "a.koy'w")) genitive ; -- Wh tinos, ti BUGs
live_V = mkV "paidey'w" ; -- TESTWORD
long_A = mkA "makro's" ; -- Wh
lose_V2 = dirV2 (mkV "a.)poly.'nomai") ; -- Wh, BUGs
love_N = mkN "a)ga'ph" ;
love_V2 = mkV2 "a)gapa'w" ; -- TODO check
man_N = let man : N = mkN "a)nh'r" "a)ndro's" "a)'ndra" masculine
in { s = table{ Sg => table{ Voc => "a)'ner" ;
c => man.s ! Sg ! c };
n => man.s ! n } ;
g = man.g } ;
-- man_N = mkN "a)'nvrwpos" "a)nvrw'poy" masculine ;
married_A2 = mkA2 (mkA "gegamhme'nos") datPrep ;
meat_N = mkN "e)nai'monon" "e)naimo'noy" neuter ; -- e)aimos_A : having blood
milk_N = mkN "ga'la" "ga'laktos" neuter ; -- TODO: correct Sg Nom|Akk
moon_N = mkN "seilh~nh" ; -- TODO check
mother_N2 = mkN2 (mkN "mh'thr" "mhtro's" "mhte'ra" feminine) genPrep ;
mountain_N = mkN "o)'ros" "o)'roys" neuter ;
music_N = mkN "moysikh'" ;
narrow_A = mkA "steno's" ; -- Wh
new_A = mkA "ne'os" "ne'a_s" ;
-- newspaper_N = mkN "newspaper" ;
oil_N = mkN neuter (mkN "e)'laion") ; -- Wh
-- old_A = mkA "presby's" "presbei~a" "presby'" ; -- TODO mkA
-- old_A = mkA "presby's" "presby'teros" ; -- fake entry TODO
open_V2 = dirV2 (prefixV "a.)n" (mkV "oi'gw")) ; -- Wh
paint_V2A = mkV2A (mkV "zwgrafe'w") noPrep ; -- TODO noPrep?
paper_N = mkN "pa'py_ros" ;
-- paris_PN = mkPN (mkN nonhuman (mkN "Paris")) singular ;
peace_N = mkN "ei)rh'nh" ;
-- pen_N = mkN "grafi's" ; -- Wh TODO: BUG
planet_N = mkN "pla'nhs" "pla'nhtos" masculine ; -- TODO check accents
plastic_N = mkN "plastiko'n" ;
-- play_V2 = dirV2 (mkV "y(pokri'nomai")) ; -- Wh (as actor) TODO prefixV
-- policeman_N = mkN masculine (mkN "policeman" "policemen") ;
priest_N = mkN "i(erey's" "i(ere'ws" masculine;
-- priest_N = mkN "i(eromnh'mwn" "i(ieromnh'monos" masculine ;
probable_AS = (mkA "ey)'logos") ; -- Wh TODO mkAS
queen_N = mkN "basi'lea_" ;
-- radio_N = mkN "radio" ;
rain_V0 = mkV "y('w" ; -- Wh TODO V0?
read_V2 = mkV2 "a)nagignw'skw" ;
red_A = mkA "a(loyrgo's" ; -- purpur ; mkA "pyrro's" ; mkA "ko'kkinos"
-- religion_N = mkN "religion" ;
-- restaurant_N = mkN "restaurant" ;
river_N = mkN "potamo's" ;
rock_N = mkN "li.'vos" ; -- TODO: check
roof_N = mkN "o)'rofos" ; -- Wh
-- rubber_N = mkN "rubber" ;
-- run_V = mkV "tre'cw" "dramoy~mai" "e)'dramon" "dedra'mhka" ; -- BR 127 8
-- TODO: why compiler error NonExist
say_VS = mkVS (mkV "le'gw") ;
school_N = mkN "scolh'" ;
science_N = mkN "ma'vhsis" "mate'sews" feminine ; -- TODO check
sea_N = mkN "va'latta" "vala'tths" ;
-- seek_V2 = dirV2 (irregV "seek" "sought" "sought") ;
-- see_V2 = dirV2 (irregV "see" "saw" "seen") ;
-- sell_V3 = dirV3 (irregV "sell" "sold" "sold") toP ;
-- send_V3 = dirV3 (irregV "send" "sent" "sent") toP ;
-- sheep_N = mkN "o)'is" "oi)o's" "oi)i'" "oi)~n" "oi)~es" "oi)w~n" "oi)si'n" "oi)~s" ; -- TODO
ship_N = mkN "nay~s" "new's" feminine ;
shirt_N = mkN "ci.twni'skos" ; -- Wh
shoe_N = mkN "krhpi's" "krhpi~dos" feminine ;
-- shop_N = mkN "shop" ;
-- short_A = mkA "di'kaios" ; -- TODO accent shift!
-- short_A = mkA "bra.cy.'s" ; -- Wh TODO BUG
silver_N = mkN "a)'rgyron" ; -- TODO check
sister_N = mkN2 (mkN "a)delfh'") genPrep ;
sleep_V = mkV "kavey'dw" ;
small_A = mkA "mikro's" ;
snake_N = mkN "dra_'kwn" "dra'kontos" masculine ; -- mkN "o)'fis" "o)'fews" masculine
-- sock_N = mkN "sock" ;
speak_V2 = mkV2 (mkV "le'gw" "le'xw" "e)'lexa" "le'lega" "le'legmai" "e)le'kthn" "lekto's*") aboutP ;
star_N = mkN "a)sth'r" "a)ste'ros" masculine ; -- TODO a)stra'si
steel_N = mkN "si.'dhros" ; -- Wh
stone_N = mkN "li'vos" ;
stove_N = mkN "kri_'banos" ;
student_N = mkN masculine (mkN "mavhth's") ; -- TODO check
stupid_A = mkA "a)'frwn" "a)'fronos" ; -- or "mw~ros"
sun_N = mkN "h('lios" ; -- TODO check accents?
-- switch8off_V2 = dirV2 (partV (regV "switch") "off") ;
-- switch8on_V2 = dirV2 (partV (regV "switch") "on") ;
table_N = mkN "tra'peza" ; -- Wh (TODO glyph a.' and i.' in Cardo)
talk_V3 = mkV3 (mkV "diale'gw") datPrep (mkPrep "pro's" accusative) ;
teacher_N = mkN "dida'skalos" ;
teach_V2 = mkV2 "paidey'w" ; -- "dida'skw"
-- television_N = mkN "television" ;
thick_A = mkA "pykno's" ; -- Wh
thin_A = mkA "mano's" ; -- Wh
-- train_N = mkN "train" ;
travel_V = mkV "porey'omai" ; -- Wh TODO Part
tree_N = mkN "de'ndron" ;
---- trousers_N = mkN "trousers" ;
-- trousers_N = TODO mkN "a)naxyri'des" feminine plural -- Wh
ugly_A = mkA "ai)scro's" ;
understand_V2 = mkV2 "gignw'skw" ;
university_N = mkN "a)kademi'a" "a)kademi'as" ;
village_N = mkN "xwri'on" ; -- mkN "w'ra"
wait_V2 = mkV2 "me'nw" ; -- Wh a)na-me'nw
watch_V2 = dirV2 (mkV "fy.lattw") ; -- Wh fy.lassein
water_N = mkN "y('dwr" "y('datos" masculine ; -- TODO check
white_A = mkA "leyko's" ; -- TODO accent?
-- window_N = mkN "vy.ri.'s" ; -- Wh feminine TODO mkN
window_N = mkN "vy.ri.'s" "vy.ri~dos" feminine ; -- Wh, HL guessed gen
wine_N = mkN "oi)~nos" ;
-- win_V2 = dirV2 (irregDuplV "win" "won" "won") ;
-- woman_N = mkN "gynai'ka" ; -- "gynh'" "gynaiko's*" ; -- TODO correct BR 55
woman_N = mkNoun "gynh'" "gynaiko's*" "gynaiki'" "gynai~ka" "gy'nai"
"gynai~kes*" "gynaikw~n" "gynaixi'" "gynai~kas*"
"gynai~ke" "gynaikoi~n" feminine ; -- BR 55
-- wonder_VQ = mkVQ (mkV "vayma'zw") ; -- Wh
wood_N = mkN "xy'lon" ;
write_V2 = mkV2 "gra'fw" ;
yellow_A = mkA "xanvo's" ; -- Wh
young_A = mkA "ne'os" ; -- TODO: vowel lengths neo'tatos => new'tatos etc.
-- do_V2 = dirV2 (mkV "dra'w") ;
do_V2 = dirV2 (mkV "dra'w" "dra_'sw" "e)'dra_sa" "de'dra_ka" "de'dramai" "e)dra'svhn" "drasto's") ;
now_Adv = mkAdv "ny~n" ;
already_Adv = mkAdv "h)'dh" ; -- Wh
song_N = mkN "w)dh'" ;
-- add_V3 = mkV3 (prefixV "syn" (mkV "logi'zw")) accPrep toP ;
number_N = mkN "a)rivmo's" ; -- ?? guessed
-- put_V2 = TODO Wh ti.ve'nai
stop_V = mkV "pay'w" ;
-- jump_V = regV "jump" ;
--
left_Ord = { s = (mkA "a.)ristero's").s ! Posit } ; -- Wh
right_Ord = { s = (mkA "dexio's").s ! Posit } ;
far_Adv = mkAdv "po'rrw" ; -- BR 63 3
correct_A = mkA "o)rto's" ; -- Wh
dry_A = mkA "xhro's" ; -- Wh
dull_A = mkA "skaio's" ; -- Wh (not intelligent)
-- full_A = mkA "ple'ws" ; -- Wh -- TODO mkA
-- heavy_A = mkA "a)rgyroy~s*" ; -- TESTWORD (silvern) bary's
-- heavy_A = mkA "ba.ry.'s" ; -- Wh -- Bug
-- near_A = mkA "crysoy~s*" ; -- TESTWORD (golden)
near_A = mkA "pro'scwros" ; -- Wh
rotten_A = mkA "savro's" ; -- Wh
-- round_A = mkA "kykloterh's" ; -- Wh -- TODO mkA
-- sharp_A = mkA "o)xy's" "o)xei~a" "o)xy'" ; -- TODO: improve mkA to accept this
smooth_A = mkA "lei~os" ; -- Wh
-- straight_A = mkA "ey)vy.'s" ; -- Wh -- TODO mkA
wet_A = mkA "y(gro's" ; -- Wh
-- wide_A = mkA "ey)ry.'s" ; -- Wh -- TODO mkA
blood_N = mkN "ai('ma" "ai('matos" neuter ;
bone_N = mkN "o)stoy~n" ; -- Ok
-- bone_N = mkN "o)ste'on" ;
-- breast_N = mkN "breast" ;
cloud_N = mkN "nefe'lh" ;
day_N = mkN "h(me'ra_" ;
dust_N = mkN "koni'a_" ; -- TODO: check forms
ear_N = mkN "oy)~s" "w)to's" neuter ; -- TODO correct Sg Nom|Acc
earth_N = mkN "gh~" ; -- Pl and DL ???
egg_N = mkN "w|)o'n" ; -- Wh
eye_N = mkN "o(fvalmo's" ;
fat_N = mkN "dhmo's" ; -- Wh
feather_N = mkN "ptero'n" ; -- Wh
fingernail_N = mkN "o)'nyx" "o)'nycos" masculine ;
fire_N = mkN "py~r" "pyro's" neuter ; -- TODO correct Pl, BR 55 6: pyrsi > pyrois
flower_N = mkN "a)'nvos" "a)'nvoys" neuter ;
fog_N = mkN "nefe'lh" ; -- Wh ; o)mi'clh
foot_N = mkN "poy's" "podo's" masculine ; -- BR 44 3
forest_N = mkN "dry_mo's" ;
grass_N = mkN "clo'h" ; -- Wh -- TODO mkN "po'a" ; -- Wh
-- guts_N = mkN "spla'gxna" neuter plural ; -- WH pl -- FIXME: no singular
guts_N = mkN "spla'ngxnon" ; -- Wh with pl only
hair_N = mkN "tri'x" "trico's" feminine ;
hand_N = mkN "cei~r" "ceiro's" feminine ; -- TODO exception PlDat cersi'
head_N = mkN "ke'falos" ; -- TODO check
-- heart_N = mkN "kardi'a" "kardi'as" feminine ; -- TODO mkN does not recognize -as*
heart_N = mkN "kardi'a_" ;
horn_N = mkN "ke'ras" "ke'ratos" neuter ; --
husband_N = mkN "game'ths" ;
-- ice_N = mkN "ice" ;
knee_N = mkN "go'ny" "go'natos" neuter ; -- TODO BR 44 3
leaf_N = mkN "fy'llon" "fy'lloy" neuter ;
leg_N = mkN neuter (mkN "ske'los") ; -- We
liver_N = mkN "h(~par" "h('patos" neuter ; -- TODO Sg Nom|Acc
louse_N = mkN "fvei'r" "fveiro's" masculine ; -- Wh
mouth_N = mkN "sto'ma" "st'omatos" neuter ; -- TODO check
name_N = mkN "o)'noma" "o)no'matos" neuter ; -- TODO check
neck_N = mkN "tra'chlos" ;
night_N = mkN "ny'x" "nykto's" feminine ;
-- nose_N = mkN "nose" ; h r(i-s ths r(inos
nose_N = mkN "ri~s" "ri_no's" feminine ; -- Wh, HL guessed
person_N = mkN "a)'nvrwpos" "a)nvrw'poy" masculine ; -- HL
rain_N = mkN "y(eto's" ; -- Wh ; ggf TODO mkN "y('dwr" ;
road_N = mkN feminine (mkN "o(do's") ;
-- root_N = mkN "ri'za." ; -- Wh TODO mkN fem
-- rope_N = mkN "ka.'lws" ; -- Wh masculine TODO mkN
salt_N = mkN "a('ls" "a(lo's" masculine ;
sand_N = mkN "a)'mmos" "a)'mmoy" feminine ; -- Wh
seed_N = mkN "spe'rma" "spe'rmatos" neuter ; -- Wh
skin_N = mkN "de'rma" "de'rmatos" neuter ; -- TODO check
sky_N = mkN "oy)ra.no's" ; -- Wh
smoke_N = mkN "kapno's" ; -- Wh
snow_N = mkN "nifa's" "nifa'dos" feminine ;
stick_N = mkN "ra'bdos" "ra'bdoy" feminine ;
tail_N = mkN "ke'rkos" ; -- Wh ; h( ou)ra'
tongue_N = mkN "glw~tta" "glw'tths" ; -- ok
tooth_N = mkN "o)doy's" "o)do'ntos" masculine ;
wife_N = mkN "gameth'" ;
wind_N = mkN "a)'nemos" ; -- TODO check
wing_N = mkN "pte'ryx" "pte'rycos" feminine ; -- Wh, HL gen
worm_N = mkN "ey)lh'" ; -- Wh
year_N = mkN "e)'tos" "e)'toys" neuter ;
--
blow_V = mkV "pne'w" ; -- TODO check
breathe_V = mkV "pne'w" ;
-- burn_V = IrregGrc.burn_V ;
-- dig_V = IrregGrc.dig_V ;
fall_V = mkV "pi'ptw" "pesoy~mai" "e)'peson" "pe'ptwka" ; -- GMOLL
-- "pe'ptwmai" "e)pe'pthn" "pepto's" ; -- HL guessed
-- float_V = regV "float" ;
-- flow_V = regV "flow" ;
-- fly_V = IrregGrc.fly_V ;
-- freeze_V = IrregGrc.freeze_V ;
give_V3 = dirV3 (mkV "di'dwmi" "dw'sw" "e)'dwka" "de'dwka"
"de'domai" "e)do'vhn" "doto's") datPrep ; -- didwmi_V
laugh_V = mkV "gela'w" ; -- TODO: check
-- lie_V = IrregGrc.lie_V ;
-- play_V = regV "play" ;
-- sew_V = IrregGrc.sew_V ;
-- sing_V = IrregGrc.sing_V ;
-- sit_V = IrregGrc.sit_V ;
-- smell_V = regV "smell" ;
-- spit_V = IrregGrc.spit_V ;
-- stand_V = IrregGrc.stand_V ;
-- swell_V = IrregGrc.swell_V ;
-- swim_V = mkV ;
think_V = mkV "frone'w" ; -- TODO: check forms
-- turn_V = regV "turn" ;
-- vomit_V = regV "vomit" ;
--
-- bite_V2 = dirV2 IrregGrc.bite_V ;
-- count_V2 = dirV2 (regV "count") ;
cut_V2 = dirV2 (mkV "te'mnw") ; -- TODO: correct forms Fut e.a.
-- fear_V2 = dirV2 (regV "fear") ;
-- fight_V2 = dirV2 fight_V ;
-- hit_V2 = dirV2 hit_V ;
-- hold_V2 = dirV2 hold_V ;
-- hunt_V2 = dirV2 (regV "hunt") ;
kill_V2 = mkV2 (prefixV "a)po" (mkV "ktei'nw")) ; -- TODO: special forms for passive
-- pull_V2 = dirV2 (regV "pull") ;
-- push_V2 = dirV2 (regV "push") ;
-- rub_V2 = dirV2 (regDuplV "rub") ;
-- scratch_V2 = dirV2 (regV "scratch") ; -- TODO se'scimai => Bug
split_V2 = dirV2 (mkV "sci'zw" "sci'sw" "e)'scisa" "se'scika" "se'scimmai" "e)sci'svhn" "scisto's") ;
-- squeeze_V2 = dirV2 (regV "squeeze") ;
-- stab_V2 = dirV2 (regDuplV "stab") ;
-- suck_V2 = dirV2 (regV "suck") ;
throw_V2 = datV2 (mkV "ba'llw") ;
-- tie_V2 = dirV2 (regV "tie") ;
-- wash_V2 = dirV2 (regV "wash") ;
-- wipe_V2 = dirV2 (regV "wipe") ;
--
---- other_A = regA "other" ;
grammar_N = mkN "grammatikh'" ;
language_N = mkN "glw~ssa" "glw'sshs" ; -- TODO: accents??
-- rule_N = mkN "rule" ;
--
---- added 4/6/2007
john_PN = mkPN (mkN masculine (mkN "Ia'nnas")) singular ;
question_N = mkN "e)rw'thsis" "e)rwth'sews" feminine ; -- Wh
-- gen guessed HL -- Wh TODO mkN "e)rw'thma" neuter;
ready_A = mkA "e(toi~mos" ; -- Wh
reason_N = mkN "lo'gos" ; -- mkN "ai)ti'a"
-- today_Adv = mkAdv "today" ;
-- uncertain_A = regA "uncertain" ;
oper
aboutP = mkPrep "peri'" Gen;
atP = mkPrep "para'" Dat ;
forP = mkPrep "pro'" Gen ;
inP = mkPrep "e)n" Dat ;
onP = mkPrep "e)pi'" Gen ;
toP = mkPrep "e)pi'" Acc ; -- mkPrep "para'" Acc ;
fromP = mkPrep "e)x" Gen ;
noPrep = mkPrep [] Acc ;
}
Reference in New Issue View Git Blame Copy Permalink