msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity
Files
e6d57f3b032b8637eb8a655e26564b45ecb6fc9d
gf-rgl/src/ancient_greek/BornemannGrc.gf
T
leiss 4d7ced4e4e partial implementation of Ancient Greek RGL
2016-05-25 12:35:37 +00:00

230 lines
9.2 KiB
Plaintext
Raw Blame History

--# -path=.:../abstract:../common:../prelude
-- in mkN we may write "...os" instead of "...os*"
concrete BornemannGrc of Bornemann =
CatGrc ** open ParadigmsGrc, (M=MorphoGrc) in {
flags optimize=values ;
lin
-- A-declension, examples from Bornemann/Risch, Griechische Grammatik, BR 32
idea_N = mkN "i)de'a_" ; -- "i)de'a_" Form, Gestalt
chora_N = mkN "cw'ra_" ; -- "cw'ra_" Land
stratia_N = mkN "stratia_'" ; -- "stratia_'" Heer
doxa_N = mkN "do'xa" "do'xhs*" ; -- "do'xa." Meinung
glotta_N = mkN "glw~tta" "glw'tths*"; -- "glw~tta." Zunge
macha_N = mkN "ma'ch" ; -- "ma.'ca_" Kampf
nika_N = mkN "ni'kh" "ni'khs*" "ni~kai" ; -- "ni_'ka_" Sieg
tima_N = mkN "timh'" ; -- "ti_mh'" Ehre
thalatta_N = mkN "va'latta" "vala'tths*"; -- "va'latta." Meer
gephyra_N = mkN "ge'fyra" "gefy'ras*"; -- "ge'phu_ra." Bruecke
-- Masculina ending in -a_s*, -hs* BR 33
neanias_N = mkN "neani'as*" ; -- "nea_ni.'a_" Juengling
polita_N = mkN "poli'ths*" "poli~tai" ; -- "poli_'ta_", Buerger accentChange i~ta, i~tai
dikasta_N = mkN "dikasth's*" ; -- Richter
atreida_N = mkN "A)trei='dhs*" "A)trei=~dai" ; -- Atride
-- Contracta of the A-declension: -aa_ > a_, ea_ > h BR 34
athena_N = mkN "A)vhna~" ; -- Athena
gea_N = mkN "gh~" ; -- Erde
hermea_N = mkN "E(rmh~s*" ; -- Hermes
-- O-declension
-- Nouns ending in -os or -on: BR 36
logos_N = mkN "lo'gos" ; -- Wort, Rede
demos_N = mkN "dh~mos" ; -- Volk
anthropos_N = mkN "a)'nvrwpos" "a)nvrw'poy" masculine ; -- Mensch
hodos_N = mkN feminine (mkN "o(do's*") ; -- Weg
doron_N = mkN "dw~ron" ; -- Geschenk
-- ergon_N = mkN "e)'rgon" ; -- TESTWORD
-- 3 ending adjectives:
dikaios_A = mkA "di'kaios*" "dikai'a_s*" ; -- gerecht
neos_A = mkA "ne'os" ;
idios_A = mkA "i)'dios" ;
patrwos_A = mkA "patrw|~os" ; -- vaeterlich
aisxros_A = mkA "ai)sxro's" ; -- haesslich
philos_A = mkA "fi'los" ;
delos_A = mkA "dh~los" ;
lithinos_A = mkA "li'vinos" ;
oligos_A = mkA "o)li'gos" ;
agathos_A = mkA "a)gavo's" ; -- gut
nous_N = mkN "noy~s*" ;
osteon_N = mkN "o)stoy~n" ; -- Knochen
eunous_A = mkA "ey)'noys" ;
argyrous_A = mkA "a)rgyroy~s" ; -- silvern
chrysous_A = mkA "crysoy~s" ; -- golden
news_N = mkN "new's*" ; -- nounOs added 2/16
Meneleos_PN = mkPN (mkN "Menele'os") singular ;
ilews_A = mkA "i_('lews" ;
-- Declension III for nouns and adjectives
-- BR 42: stem ending in -r or -l
krathr_N = mkN "kra_th'r" "kra_th~ros" masculine ;
rhtwr_N = mkN "rh'twr" "rh'toros" masculine ;
als_N = mkN "a('ls" "a(lo's" masculine ;
vhr_N = mkN "vh'r" "vhro's" masculine ;
-- BR 43: stem ending in -k,-g,-c or -p,-b,-f
fylax_N = mkN "fy'lax" "fy'lakos" masculine ;
aix_N = mkN "ai)~x" "ai)go's" feminine ;
gyps_N = mkN "gy_'ps" "gy_po's" masculine ;
fleps_N = mkN "fle'ps" "flebo's" feminine ;
-- BR 44: stem ending in -t,-d,-v
esvhs_N = mkN "e)svh's" "e)svh~tos" feminine ;
elpis_N = mkN "e)lpi.'s" "e)lpi'dos" feminine ;
caris_N = mkN "ca'ri.s" "ca'ritos" feminine ; --
swma_N = mkN "sw~ma" "sw'matos" neuter ;
-- BR 45: stem ending in -n
ellhn_N = mkN "E('llhn" "E('llhnos" masculine ;
agwn_N = mkN "a)gw'n" "a)gw~nos" masculine ;
poimhn_N = mkN "poimh'n" "poime'nos" masculine ; -- sgVoc falsch, datPl falsch
daimwn_N = mkN "dai'mwn" "dai'monos" masculine ; -- datPl daimousi; richtig daimosi
-- BR 46: stem in -nt
gigas_N = mkN "gi'ga_s" "gi'gantos" masculine ; -- sgVoc falsch
odoys_N = mkN "o)doy's" "o)do'ntos" masculine ; --
gerwn_N = mkN "ge'rwn" "ge'rontos" masculine ; --
-- Adjectives of 3rd declension:
-- BR 44: stem ending in -t,-d,-v
-- acaris_A = mkA "a)'caris" "a)ca'ritos" ; -- TODO adj3
-- eyelpis_A = mkA "ey)'elpis" "ey)elpi'dos" ; -- TODO adj3
-- apolis_A = mkA "a)'polis" "a)po'lidos" ; -- TODO adj3
-- agnws_A = mkA "a)gnw's" "a)gnw~tos" ; -- BR 57, 1-ending TODO adj3
-- penhs_A = mkA "pe'nhs" "pe'nhtos" ; -- TODO adj3/adjustAccent
-- fygas_A = mkA "fyga's" "fyga'dos" ; -- TODO adj3
-- apais_A = mkA "a)'pais" "a)'paidos" ; -- TODO adj3
-- makar_A = mkA "ma'kar" "ma'karos" ; -- TODO adj3
pepaideykws_A = mkA "pepaideykw's" ; -- BR 44.6
-- BR 45: stem ending in -n
eydaimwn_A = mkA "ey)dai'mwn" "ey)dai'monos" ; -- datPl daimousi; richtig daimosi
-- BR 46.b
pas_A = mkA "pa~s" "panto's" ;
ekwn_A = mkA "e(kw'n" "e(ko'ntos" ;
lywn_A = mkA "ly_'wn" "ly_'ontos" ;
lysas_A = mkA "ly_'sas" "ly_'santos" ;
veis_A = mkA "vei's" "vento's" ;
dys_A = mkA "dy_'s" "dy'ntos" ;
carieis_A = mkA "cari'eis" "cari'entos" ;
-- BR 47: stems ending in -r with 3 ablautlevels
pathr_N = mkN "path'r" "patro's" "pate'ra" masculine ;
mhthr_N = mkN "mh'thr" "mhtro's" "mhte'ra" feminine ;
vygathr_N = mkN "vyga'thr" "vygatro's" "vygate'ra" feminine ;
gasthr_N = mkN "gasth'r" "gastro's" feminine ;
anhr_N = mkN "a)nh'r" "a)ndro's" "a)'ndra" masculine ;
-- BR 48: stems ending in -s
genos_N = mkN "ge'nos" "ge'noys" neuter ;
diogenhs_PN = mkPN "Dioge'nhs" masculine ; -- mkN "Dioge'nhs" "Dioge'noys" masculine ;
periklhs_PN = mkPN "Periklh~s" masculine ;
philosopher_N = mkN "filo'sofos" "filoso'foy" masculine ; -- filosofos
-- For stems ending a vowel:
-- BR 49: -i with ablaut -e:
polis_N = mkN "po'lis" "po'lews" feminine ;
dynamis_N = mkN "dy'namis" "dyna'mews" feminine ;
-- -y with ablaut -e:
phcys_N = mkN "ph~cys" "ph'cews" feminine ; -- TODO to a)'sty
asty_N = mkN "a)'sty" "a)'stews" neuter ;
-- BR 51: -y_ or -y without ablaut:
icvys_N = mkN "icvy~s" "icvy'os" masculine ;
sys_N = mkN "sy~s" "syo's" masculine ; -- and feminine
erinys_N = mkN "E)ri_ny_'s" "E)ri_ny'os" feminine ;
pitys_N = mkN "pi'ty.s" "pi'tyos" feminine ;
-- BR 52: stems ending in -ey
basileys_N = mkN "basiley's" "basile'ws" masculine ;
-- BR 53: -oy, -ay, -ey
boys_N = mkN "boy~s" "boo's" masculine ; -- also: feminine
nays_N = mkN "nay~s" "new's" feminine ;
-- zeys_PN = mkPN (mkN "zey's" "dio's" masculine) singular ; -- TODO: zey'n > di'a ; no Pl
zeys_PN = mkPN "Zey's*" "Dio's*" "Dii='" "Di'a" "Zey~" masculine ;
-- BR 54: -w
peivw_N = mkN "peivw'" "peivoy~s" feminine ;
hrws_N = mkN "h('rws" "h('rwos" masculine ;
-- W-Conjugation
-- a) verba vocalia
paideyw_V = mkV "paidey'w" ;
timaw_V = mkV "tima'w" ; -- "timh'sw" ;
poiew_V = mkV "poie'w" ; -- "poih'sw" ;
doylow_V = mkV "doylo'w" ; -- "doylw'sw" ;
-- b) verba muta
-- labial
leipw_V = mkV "lei'pw" "lei'qw" "e)'lipa" "le'loipa" "le'leipmai" "e)lei'fvhn" "leipto's" ;
elleipw_V = prefixV "e)'n" -- gf does not permit to reuse leipw_V: prefixV "e)'n" leipw_V ;
(mkV "lei'pw" "lei'qw" "e)'lipa" "le'loipa" "le'leipmai" "e)lei'fvhn" "leipto's") ;
-- 1. simple ones (present stem = verbal stem)
trepw_V = mkV "tre'pw" ;
grafw_V = mkV "gra'fw" ;
tribw_V = mkV "tri_'bw" ;
diwkw_V = mkV "diw'kw" ;
arcw_V = mkV "a)'rcw" ;
legw_V = mkV "le'gw" ;
anytw_V = mkV "a(ny'tw" ;
peivw_V = mkV "pei'vw" ;
pseydw_V = mkV "psey'dw" ;
typtw_V = mkV "ty'ptw" ;
kryptw_V = mkV "kry'ptw" ;
blabtw_V = mkV "bla'ptw" ; -- stem blab !
fylattw_V = mkV "fyla'ttw" ; -- stem fylak ! BUG with mC: tt>st
ktizw_V = mkV "kti'zw" ; -- j-stem cannot be guessed, need a good mkVerbW7mut !
nomizw_V = mkV "nomi'zw" "nomiw~" "e)no'misa" "neno'mika" "neno'mismai" "e)nomi'svhn" "nomisto's" ;
swzw_V = mkV "sw|'zw" ;
scizw_V = mkV "sci'zw" ;
evize_V = "e)vi'zw" ;
-- c) verba liquida
derw_V = mkV "de'rw" ;
menw_V = mkV "me'nw" ;
nemw_V = mkV "ne'mw" ;
angellw_V = mkV "a)gge'llw" ;
fainw_V = mkV "fai'nw" ;
-- fainw_V = mkV "fai'nw" "fanw~" "e)'fhna" "pe'fagka" "pe'fasmai" "e)fa'nhn" "fanto's";
--deponents
veaomai_V = mkV "vea'omai" depMed ;
acvomai_V = mkV "acvomai" depPass ;
-- Mi-Conjugation, present stem with reduplication:
tivhmi_V = mkV "ti'vhmi" "vh'sw" "e)'vhka" "te'vhka" "kei~mai" "e)te'vhn" "veto's" ;
-- ihmi_V = mkV "i('hmi" "h('sw" "h(~ka" "ei(~ka" "ei(~mai" "ei('vhn" "e(to's" ;
didwmi_V = mkV "di'dwmi" "dw'sw" "e)'dwka" "de'dwka" "de'domai" "e)do'vhn" "doto's" ;
-- isthmi_V = mkV "i('svhmi" "svh'sw" "e)'svhsa"
-- Mi-Conjugation, present stem with -ny-
deiknymi_V = mkV "dei'knymi" "dei'xw" "e)'deixa" "de'deica" "de'deigmai" "e)dei'cvhn" "deikto's" ;
-- Mi-Conjugation, present stem as verbal root:
-- "ei)mi'"
-- Example sentence: Greek school tablet, F.G.Kenyon
-- Pyvagoras filosofos apobas kai grammata didaskwn syneboyleyen tois eaytoy mavhtais enaimonwn apecesvai.
-- Pythagoras the philospher when going away and teaching letters advised his students to abstain from meat.
pythagoras_PN = mkPN (mkN "Pyva'goras") singular ;
-- advise_V = prefixV "sy'n" (mkV "boyley'w") ;
advise_V2V = mkV2V (prefixV "sy'n" (mkV "boyley'w")) datPrep ;
abstain_V2 = mkV2 (prefixV "a)po'" (mkV "e)'cw")) genPrep ; -- apecw tina tinos + apecomai tinos V3/Vrefl?
-- leave_V2 = dirV2 (prefixV "a)po'" (mkV "bai'nw")) ; -- LexiconGrc
-- student_N = mkN masculine (mkN "mavhth's*") ; -- LexiconGrc, TODO check
-- teach_V2 = mkV2 "dida'skw" ; -- LexiconGrc
letter_N = mkN "gra'mma" "gra'mmatos" neuter ;
eimi_V = lin V (MorphoGrc.eimi_V) ;
pistos_A2 = mkA2 (mkA "pisto's") datPrep ;
} ;
View Git Blame Copy Permalink