forked from GitHub/gf-rgl
207 lines
7.3 KiB
Plaintext
Executable File
207 lines
7.3 KiB
Plaintext
Executable File
--# -path=.:../prelude:../abstract:../common
|
|
|
|
concrete LexiconCgg of Lexicon = CatCgg **
|
|
open ParadigmsCgg, ResCgg, Prelude in {
|
|
|
|
lin
|
|
|
|
--NOTE: Those commented out are not in the abstract
|
|
--burn_V = mkV "sya" ;
|
|
--die_V = mkV "fa" ;
|
|
--fly_V = mkV "guruka" ;
|
|
|
|
bird_N = mkN "ekinyonyi" KI_BI ;
|
|
boat_N = mkN "eryato" RI_MA ;
|
|
book_N = mkN "ekitabo" KI_BI ;
|
|
boy_N = mkN "omwojo" "abojo" MU_BA ;
|
|
bread_N = mkN "omugati" MU_MI;
|
|
car_N = mkN "emootoka" N_N ;
|
|
cat_N = mkN "enjangu" N_N ;
|
|
--chair_N = mkN "entebbe" N_N ;
|
|
child_N = mkN "omwana" MU_BA ;
|
|
city_N = mkN "ekibúga" KI_BI; --orurêmbo pl endêmbo
|
|
cloud_N = mkN "ekikyu" KI_BI ;
|
|
computer_N = mkN "kanyabwêngye" ZERO_ZERO ; --kanyabwêngye, embiikabwengye, kompyuta
|
|
cow_N = mkN "ente" N_N ;
|
|
dog_N = mkN "embwa" N_N ;
|
|
--person_N = mkN "omuntu" "abantu" MU_BA ;
|
|
fire_N = mkN "omuriro" MU_MI ;
|
|
fish_N = mkN "eky'ényanja" KI_BI ;
|
|
flower_N = mkN "ekimuri" KI_BI ;
|
|
friend_N = mkN "omunywâni" MU_MI ; -- omunywâni, omunyamukago, omugyenzi
|
|
girl_N = mkN "omwishiki" MU_BA ;
|
|
--shoe_N = mkN "ekaito" N_N ;
|
|
--table_N = mkN "emeza" N_N ;
|
|
--airplane_N = mkN "enyonyi" N_N ; -- mkN "endégye" N_N;
|
|
animal_N = mkN "enyamaishwa" N_N ;
|
|
apple_N = mkN "apple" ZERO_ZERO ;
|
|
baby_N = mkN "omwana" MU_BA ;
|
|
beer_N = mkN "amarwa" ZERO_MA ;
|
|
bike_N = mkN "egaari" N_N ;
|
|
bird_N = mkN "ekinyonyi" KI_BI ;
|
|
blood_N = mkN "eshágama" N_ZERO ;
|
|
grammar_N = mkN "enyómbeka y'órurími" "enyómbeka z'endími" ZERO_ZERO ; -- two words representing one word
|
|
horse_N = mkN "embaráàsi" N_N ;
|
|
house_N = mkN "enju" N_N ;
|
|
language_N = mkN "orurími" "endími" RU_N ;
|
|
man_N = mkN "omushaija" MU_BA ;
|
|
milk_N = mkN "amate" ZERO_MA ;
|
|
music_N = mkN "music" ZERO_ZERO ; -- I have not found the translation
|
|
river_N = mkN "omugyera" MU_MI ; --omurîndi,
|
|
sea_N = mkN "enyanja" N_N ;
|
|
ship_N = mkN "ekyombo" KI_BI ; -- eméèri [NC_n_n]
|
|
star_N = mkN "enyonyóòzi" N_N ;
|
|
train_N = mkN "egaari y'omwika" N_N ; -- plural would be egáàri z'omwika
|
|
tree_N = mkN "omuti" MU_MI ;
|
|
water_N = mkN "amáìzi" ZERO_MA ;
|
|
wine_N = mkN "víìnyo" ZERO_ZERO ;
|
|
woman_N = mkN "omwishiki" MU_BA ;
|
|
|
|
--Proper Nouns
|
|
john_PN = mkPN "Yohana" (AgP3 Sg MU_BA) False;
|
|
paris_PN = mkPN "Paris" (AgP3 Sg N_N) True; --Noun class for places???
|
|
|
|
--Adjectives
|
|
bad_A = mkAdjective "bi" Post False False; --False means the adjective is a stem and comes after the complete noun
|
|
--beautiful_A = mkAdjective "rungi" False;
|
|
big_A = mkAdjective "hango" Post False False;
|
|
black_A = mkAdjective "kwirangura" Post False False;
|
|
blue_A = mkAdjective "buuru" Post True True ;
|
|
clean_A = mkAdjective "yonjo" Post False False; --: A ;
|
|
cold_A = mkAdjective "rikufuka" Post False False; --: A ;
|
|
good_A =mkAdjective "rungi" Post False False; --: A ;
|
|
heavy_A = mkAdjective "rikuremeera" Post False False; --: A ; --notice ri as a verb is
|
|
hot_A = mkAdjective "rikwotsya" Post False False; -- rikutagata -- problematic words like hot we need a new set of clitics
|
|
new_A = mkAdjective "sya" Post False False; --: A ;
|
|
old_A = mkAdjective "kúru" Post False False; --: A ;
|
|
ready_A = mkAdjective "eteekateekire" Post False False; --: A ;
|
|
red_A = mkAdjective "ríkutukura" Post False False; --: A ;
|
|
small_A = mkAdjective "kye" Post False False;
|
|
warm_A = mkAdjective "rikutagata" Post False False;--: A ;
|
|
white_A = mkAdjective "rikwera" Post False False;--: A ;
|
|
yellow_A = mkAdjective "kinekye" Post True True;--: A ; or yero, or kyenju
|
|
young_A = mkAdjective "to" Post False False;--: A ;
|
|
green_A =mkAdjective "kijubwe" Post False True;
|
|
|
|
--ditransitive verbs
|
|
bite_V2 = mkV2 "rum";
|
|
break_V2 = mkV2 "hend"; --: V2 ;
|
|
buy_V2 = mkV2 "gur" ; --: V2 ;
|
|
close_V2 = mkV2 "king";
|
|
count_V2 = mkV2 "ba" "ra" "zire";
|
|
cut_V2 = mkV2 "sha" "ra" "zire";
|
|
do_V2 = mkV2 "ko" "ra" "zire";
|
|
drink_V2 = mkV2 "nyw";
|
|
eat_V2 = mkV2 "ry";
|
|
fear_V2 = mkV2 "tiin";
|
|
find_V2 = mkV2 "bon" ; --: V2 ; -- many words; kureeba, kubóna,kushanga, kumamya,kujumbura
|
|
kill_V2 = mkV2 "it"; --: V2 ;
|
|
love_V2 = mkV2 "kûnd"; --: V2 ;
|
|
read_V2 = mkV2 "shom";--: V2 ;
|
|
see_V2 = mkV2 "reeb"; --: V2 ;
|
|
teach_V2 = mkV2 "shomes" ; --: V2 ; or kwegyesa
|
|
understand_V2 = mkV2 "étegyerez"; --: V2 ;
|
|
wait_V2 = mkV2 "tegyerez"; --: V2 ;
|
|
|
|
-- ditransitive verbs
|
|
add_V3 = mkV3 "gáìt";
|
|
give_V3 = mkV3 "héére" "za" "ize";
|
|
sell_V3 = mkV3 "gu" "za" "rize";
|
|
send_V3 = mkV3 "tum" ;
|
|
talk_V3 = mkV3 "gamb";
|
|
|
|
|
|
-- Intransitive verbs
|
|
come_V = mkV "ij";
|
|
go_V = mkV "gyend"; --: V ; -- Many words: kuza, kuraba,kutoora, kugyenda=go away, kushuma=go down
|
|
jump_V = mkV "guruk" ;
|
|
play_V = mkV "zaan"; --: V ;
|
|
live_V = mkV "tuur" ; --manyF: kutuura i.e. live somewhere, stay = kuráàra
|
|
run_V = mkV "íruk"; -- : V ;
|
|
sleep_V = mkV "nyama" ; --: V ;--Kugwejegyera, kubyama
|
|
swim_V = mkV "og"; --: V ;
|
|
travel_V = mkV "gyend";--: V ;
|
|
walk_V = mkV "ribá" "ta" "si"; --: V ; or kuribata Runynakore it is different
|
|
|
|
-- A verb whose complement is a sentence
|
|
fear_VS = mkVS (lin V (mkV "tin")); --: VS ;
|
|
hope_VS = mkVS (lin V (mkV "siga")); --: VS ; -- a bit complicated because what we normally use is nyine amatsiko i.e usin the noun. The verb should be kwesiga but this seems borrowed from Luganda
|
|
know_VS = mkVS (lin V (mkV "manya")); --: VS ;
|
|
say_VS = mkVS (lin V (mkV "gi" "ra" "zire"));--: VS ;
|
|
|
|
-- verbs whose complements are questions
|
|
know_VQ = mkVQ (lin V (mkV "many")); --: VQ ;
|
|
--wonder_VQ : VQ ;
|
|
|
|
-- Verb whose complement is an adjective
|
|
become_VA = mkVA (lin V mkBecome);--: VA ;
|
|
|
|
|
|
--Verbs that have a noun Phrase complement and a verb phrase complement (V2V)
|
|
--beg_V2V : V2V ;
|
|
--Adverbs
|
|
now_Adv = mkAdv "hati" AgrNo;
|
|
--far_Adv = mkAdv "hare";
|
|
|
|
--today_Adv = mkAdv "erizooba" AgrNo;
|
|
|
|
father_N2 = mkN2 (mkN "tata" MU_BA) (lin Prep (mkPrep [] [] True)) ;
|
|
|
|
distance_N3 = mkN3 (mkN "orugyendo" ZERO_BU) (lin Prep (mkPrep "kurunga" "" False)) (lin Prep (mkPrep "mpáka" "" False)); --could orugyendo work in its place?
|
|
|
|
|
|
|
|
oper
|
|
aboutP = mkPrep "about" ;
|
|
atP = mkPrep "at" ;
|
|
forP = mkPrep "for" ;
|
|
fromP = mkPrep "kurunga" "" False;
|
|
inP = mkPrep "omu" "omuri" False;
|
|
onP = mkPrep "aha" "ahari" False;
|
|
toP = mkPrep "aha" [] False;
|
|
|
|
|
|
|
|
|
|
{-
|
|
--Old LexiconCgg.gf
|
|
burn_V = mkV "sya" ;
|
|
die_V = mkV "fa" ;
|
|
fly_V = mkV "guruka" ;
|
|
run_V = mkV "iruka" ;
|
|
sleep_V = mkV "byama" ;
|
|
walk_V = mkV "tabula" ;
|
|
|
|
bird_N = mkN "ekinyonyi" KI_BI ;
|
|
boat_N = mkN "eryato" RI_MA ;
|
|
book_N = mkN "ekitabo" KI_BI ;
|
|
boy_N = mkN "omwojo" "abojo" MU_BA ;
|
|
car_N = mkN "emootoka" N_N ;
|
|
chair_N = mkN "entebbe" N_N;
|
|
cloud_N = mkN "ekikyu" KI_BI ;
|
|
person_N = mkN "omuntu" "abantu" MU_BA ;
|
|
girl_N = mkN "omwishiki" MU_BA ;
|
|
shoe_N = mkN "ekaito" N_N ;
|
|
table_N = mkN "emeza" N_N ;
|
|
bad_A = mkAdjective "bi" False; --False means the adjective is a stem and comes after the complet noun
|
|
beautiful_A = mkAdjective "rungi" False;
|
|
far_Adv = mkAdv "hare";
|
|
now_Adv = mkAdv "hati";
|
|
today_Adv = mkAdv "erizooba";
|
|
bite_V2 = mkV2 "ruma";
|
|
break_V2 = mkV2 "henda";
|
|
buy_V2 = mkV2 "gura";
|
|
close_V2 = mkV2 "kinga";
|
|
count_V2 = mkV2 "bara";
|
|
cut_V2 = mkV2 "shara";
|
|
do_V2 = mkV2 "kora";
|
|
drink_V2 = mkV2 "nywa";
|
|
eat_V2 = mkV2 "rya";
|
|
fear_V2 = mkV2 "tiina";
|
|
|
|
-------------------------Differences Rukiga only--------------------
|
|
airplane_N : mkN "endegye" N_N;
|
|
-}
|
|
|
|
}
|