Hebrew transliteration changed to real utf8, AllHeb added

This commit is contained in:
aarne
2013-01-25 14:01:51 +00:00
parent 459a9a855b
commit d4062659c9
8 changed files with 236 additions and 229 deletions

View File

@@ -39,6 +39,7 @@ langsCoding = [
(("english", "Eng"),""), (("english", "Eng"),""),
(("finnish", "Fin"),""), (("finnish", "Fin"),""),
(("french", "Fre"),"Romance"), (("french", "Fre"),"Romance"),
(("hebrew", "Heb"),""),
(("hindi", "Hin"),"Hindustani"), (("hindi", "Hin"),"Hindustani"),
(("german", "Ger"),""), (("german", "Ger"),""),
(("interlingua","Ina"),""), (("interlingua","Ina"),""),
@@ -74,10 +75,10 @@ langsLangAll = langs
langsLang = langs `except` langsIncomplete langsLang = langs `except` langsIncomplete
-- languagues that have notpresent marked -- languagues that have notpresent marked
langsPresent = langsLang `except` ["Chi","Jpn","Nep","Pes","Snd","Tha","Thb"] langsPresent = langsLang `except` ["Chi","Heb","Jpn","Nep","Pes","Snd","Tha","Thb"]
-- languages for which Lang can be compiled but which are incomplete -- languages for which Lang can be compiled but which are incomplete
langsIncomplete = ["Amh","Ara","Lat","Mlt","Tur","Thb"] langsIncomplete = ["Amh","Ara","Heb","Lat","Mlt","Tur","Thb"]
-- languages for which to compile Try -- languages for which to compile Try
langsAPI = langsLang `except` langsIncomplete langsAPI = langsLang `except` langsIncomplete

3
lib/src/hebrew/AllHeb.gf Normal file
View File

@@ -0,0 +1,3 @@
--# -path=.:../abstract:../common:prelude
concrete AllHeb of AllHebAbs = LangHeb ;

View File

@@ -0,0 +1,3 @@
--# -path=.:../abstract:../common:prelude
abstract AllHebAbs = Lang ;

View File

@@ -13,64 +13,64 @@ lin
--airplane_N = mkN "" "" Masc; --airplane_N = mkN "" "" Masc;
--alas_Interj =""; --alas_Interj ="";
--already_Adv = "" ; --already_Adv = "" ;
animal_N = mkN "Hyh" "" Fem; animal_N = mkN "חיה" "" Fem;
--answer_V2S = dirV2 (mkVPaal "") ; --answer_V2S = dirV2 (mkVPaal "") ;
apartment_N = mkN "dyrh" "" Fem; apartment_N = mkN "דירה" "" Fem;
apple_N = mkN "tpwH" "" Masc; apple_N = mkN "תפוח" "" Masc;
art_N = mkN "yZyrh" "" Fem; art_N = mkN "יצירה" "" Fem;
ashes_N = mkN "" "" Masc; ashes_N = mkN "" "" Masc;
--ask_V2Q = "" ; --ask_V2Q = "" ;
baby_N = mkN "tynwq" "" Masc; baby_N = mkN "תינוק" "" Masc;
--back_N = mkN "" "" Masc; --back_N = mkN "" "" Masc;
bad_A = regA "rO" ; bad_A = regA "רע" ;
bank_N = mkN "" "" Masc; bank_N = mkN "" "" Masc;
bark_N = mkN "bnq" "" Masc; bark_N = mkN "בנק" "" Masc;
beautiful_A = regA "yph" ; beautiful_A = regA "יפה" ;
--become_VA =""; --become_VA ="";
beer_N = mkN "byrh" "" Fem; beer_N = mkN "בירה" "" Fem;
--beg_V2V = dirV2 (mkVPaal "") ; --beg_V2V = dirV2 (mkVPaal "") ;
--belly_N = mkN "bTN" "" Fem; --belly_N = mkN "בטן" "" Fem;
big_A = regA "gdwl"; big_A = regA "גדול";
--bike_N = mkN "" "" Masc; --bike_N = mkN "" "" Masc;
bird_N = mkN "Zypwr" "" Fem; bird_N = mkN "ציפור" "" Fem;
--bite_V2 = dirV2 (mkVPaal "") ; --bite_V2 = dirV2 (mkVPaal "") ;
black_A = regA "sHwr" ; black_A = regA "שחור" ;
--blood_N = mkN "" "" Masc; --blood_N = mkN "" "" Masc;
--blow_V = mkVPaal "" ; --blow_V = mkVPaal "" ;
blue_A = regA "Hkwl" ; blue_A = regA "חכול" ;
boat_N = mkN "Syrh" "" Fem; boat_N = mkN "סירה" "" Fem;
bone_N = mkN "OZm" "" Masc; bone_N = mkN "עצמ" "" Masc;
book_N = mkN "Spr" "" Masc; book_N = mkN "ספר" "" Masc;
--boot_N = mkN "" "" Masc; --boot_N = mkN "" "" Masc;
--boss_N = mkN "" "" Masc; --both fem and masc --boss_N = mkN "" "" Masc; --both fem and masc
boy_N = mkN "yld" "" Masc; boy_N = mkN "ילד" "" Masc;
bread_N = mkN "lHm" "" Masc; bread_N = mkN "לחמ" "" Masc;
--break_V2 = dirV2 (mkVPaal "") ; --break_V2 = dirV2 (mkVPaal "") ;
breast_N = mkN "HZh" "" Masc; breast_N = mkN "חצה" "" Masc;
--breathe_V = mkVPaal "" ; --breathe_V = mkVPaal "" ;
--broad_A = "" ; --broad_A = "" ;
brown_A = regA "Hwm" ; brown_A = regA "חומ" ;
--burn_V = mkVPaal "" ; --burn_V = mkVPaal "" ;
--butter_N = mkN "" "" Masc; --butter_N = mkN "" "" Masc;
--buy_V2 = dirV2 (mkVPaal "qnh") ; --buy_V2 = dirV2 (mkVPaal "קנה") ;
{-camera_N = mkN "" "" Masc; {-camera_N = mkN "" "" Masc;
cap_N = mkN "" "" Masc; cap_N = mkN "" "" Masc;
car_N = mkN "" "" Masc; car_N = mkN "" "" Masc;
carpet_N = mkN "" "" Masc; carpet_N = mkN "" "" Masc;
cat_N = mkN "Htwl" "" Masc; cat_N = mkN "חתול" "" Masc;
ceiling_N = mkN "" "" Masc; ceiling_N = mkN "" "" Masc;
cheese_N = mkN "" "" Masc; cheese_N = mkN "" "" Masc;
child_N = mkN "" "" Masc; child_N = mkN "" "" Masc;
church_N = mkN "" "" Masc; church_N = mkN "" "" Masc;
city_N = mkN "" "" Masc; city_N = mkN "" "" Masc;
-} -}
clean_A = regA "nqy" ; clean_A = regA "נקי" ;
clever_A = regA "Hkm" ; clever_A = regA "חכמ" ;
close_V2 = dirV2 (mkVPaal "Sgr") ; close_V2 = dirV2 (mkVPaal "סגר") ;
cloud_N = mkN "" "" Masc; cloud_N = mkN "" "" Masc;
coat_N = mkN "" "" Masc; coat_N = mkN "" "" Masc;
cold_A = regA "qr" ; cold_A = regA "קר" ;
--come_V = mkVPaal "bA" ; --come_V = mkVPaal "בא" ;
computer_N = mkN "" "" Masc; computer_N = mkN "" "" Masc;
--correct_A = "" ; --correct_A = "" ;
--count_V2 = dirV2 (mkVPaal "") ; --count_V2 = dirV2 (mkVPaal "") ;
@@ -80,60 +80,60 @@ cow_N = mkN "" "" Masc;
--cut_V2 = dirV2 (mkVPaal "") ; --cut_V2 = dirV2 (mkVPaal "") ;
day_N = mkN "" "" Masc; day_N = mkN "" "" Masc;
--die_V = mkVPaal "" ; --die_V = mkVPaal "" ;
dig_V = mkVPaal "Hpr" ; dig_V = mkVPaal "חפר" ;
--dirty_A = "" ; --dirty_A = "" ;
--distance_N3 = mkN "" "" Masc; --distance_N3 = mkN "" "" Masc;
do_V2 = dirV2 (mkVPaal "Osh") ; do_V2 = dirV2 (mkVPaal "עשה") ;
doctor_N = mkN "" "" Masc; doctor_N = mkN "" "" Masc;
dog_N = mkN "" "" Masc; dog_N = mkN "" "" Masc;
door_N = mkN "" "" Masc; door_N = mkN "" "" Masc;
drink_V2 = dirV2 (mkVPaal "sth") ; drink_V2 = dirV2 (mkVPaal "שתה") ;
dry_A = regA "ybs" ; dry_A = regA "יבש" ;
--dull_A = "" ; --dull_A = "" ;
dust_N = mkN "" "" Masc; dust_N = mkN "" "" Masc;
ear_N = mkN "" "" Masc; ear_N = mkN "" "" Masc;
earth_N = mkN "" "" Masc; earth_N = mkN "" "" Masc;
--easy_A2V = "" ; --easy_A2V = "" ;
eat_V2 = dirV2 (mkVPaal "Akl") ; eat_V2 = dirV2 (mkVPaal "אכל") ;
egg_N = mkN "" "" Masc; egg_N = mkN "" "" Masc;
empty_A = regA "ryq" ; empty_A = regA "ריק" ;
enemy_N = mkN "" "" Masc; enemy_N = mkN "" "" Masc;
eye_N = mkN "" "" Masc; eye_N = mkN "" "" Masc;
factory_N = mkN "" "" Masc; factory_N = mkN "" "" Masc;
fall_V = mkVPaal "npl" ; fall_V = mkVPaal "נפל" ;
--far_Adv = "rHwq" ; --far_Adv = "רחוק" ;
fat_N = mkN "" "" Masc; fat_N = mkN "" "" Masc;
--father_N2 = mkN "" "" Masc; --father_N2 = mkN "" "" Masc;
--fear_V2 = dirV2 (mkVPaal "") ; --fear_V2 = dirV2 (mkVPaal "") ;
--fear_VS = mkVPaal "" ; --fear_VS = mkVPaal "" ;
feather_N = mkN "" "" Masc; feather_N = mkN "" "" Masc;
fight_V2 = dirV2 (mkVPaal "lHm") ; --nipal fight_V2 = dirV2 (mkVPaal "לחמ") ; --nipal
find_V2 = dirV2 (mkVPaal "mZA") ; find_V2 = dirV2 (mkVPaal "מצא") ;
fingernail_N = mkN "" "" Masc; fingernail_N = mkN "" "" Masc;
fire_N = mkN "" "" Masc; fire_N = mkN "" "" Masc;
fish_N = mkN "" "" Masc; fish_N = mkN "" "" Masc;
--float_V = mkVPaal "" ; --float_V = mkVPaal "" ;
floor_N = mkN "" "" Masc; floor_N = mkN "" "" Masc;
flow_V = mkVPaal "prH" ; flow_V = mkVPaal "פרח" ;
flower_N = mkN "" "" Masc; flower_N = mkN "" "" Masc;
--fly_V = mkVPaal "" ; --fly_V = mkVPaal "" ;
fog_N = mkN "" "" Masc; fog_N = mkN "" "" Masc;
foot_N = mkN "" "" Masc; foot_N = mkN "" "" Masc;
forest_N = mkN "" "" Masc; forest_N = mkN "" "" Masc;
forget_V2 = dirV2 (mkVPaal "skH") ; forget_V2 = dirV2 (mkVPaal "שכח") ;
freeze_V = mkVPaal "qpA" ; freeze_V = mkVPaal "קפא" ;
fridge_N = mkN "" "" Masc; fridge_N = mkN "" "" Masc;
friend_N = mkN "" "" Masc; friend_N = mkN "" "" Masc;
fruit_N = mkN "" "" Masc; fruit_N = mkN "" "" Masc;
full_A = regA "mlA" ; full_A = regA "מלא" ;
--fun_AV = "" ; --fun_AV = "" ;
garden_N = mkN "" "" Masc; garden_N = mkN "" "" Masc;
girl_N = mkN "" "" Masc; girl_N = mkN "" "" Masc;
--give_V3 = "" ; --give_V3 = "" ;
glove_N = mkN "" "" Masc; glove_N = mkN "" "" Masc;
go_V = mkVPaal "hlk" ; go_V = mkVPaal "הלכ" ;
gold_N = mkN "" "" Masc; gold_N = mkN "" "" Masc;
good_A = regA "Twb" ; good_A = regA "טוב" ;
grammar_N = mkN "" "" Masc; grammar_N = mkN "" "" Masc;
grass_N = mkN "" "" Masc; grass_N = mkN "" "" Masc;
guts_N = mkN "" "" Masc; guts_N = mkN "" "" Masc;
@@ -143,51 +143,51 @@ harbour_N = mkN "" "" Masc;
hat_N = mkN "" "" Masc; hat_N = mkN "" "" Masc;
--hate_V2 = dirV2 (mkVPaal "") ; --hate_V2 = dirV2 (mkVPaal "") ;
head_N = mkN "" "" Masc; head_N = mkN "" "" Masc;
hear_V2 = dirV2 (mkVPaal "smO") ; hear_V2 = dirV2 (mkVPaal "שמע") ;
heart_N = mkN "" "" Masc; heart_N = mkN "" "" Masc;
heavy_A = regA "kbd" ; heavy_A = regA "כבד" ;
hill_N = mkN "" "" Masc; hill_N = mkN "" "" Masc;
hit_V2 = dirV2 (mkVPaal "pgO") ; hit_V2 = dirV2 (mkVPaal "פגע") ;
hold_V2 = dirV2 (mkVPaal "tpS") ; hold_V2 = dirV2 (mkVPaal "תפס") ;
--hope_VS = mkVPaal "" ; --hope_VS = mkVPaal "" ;
horn_N = mkN "" "" Masc; horn_N = mkN "" "" Masc;
horse_N = mkN "" "" Masc; horse_N = mkN "" "" Masc;
hot_A = regA "Hm" ; hot_A = regA "חמ" ;
house_N = mkN "byt" "btyM" Masc; house_N = mkN "בית" "בתים" Masc;
--hunt_V2 = dirV2 (mkVPaal "") ; --hunt_V2 = dirV2 (mkVPaal "") ;
husband_N = mkN "" "" Masc; husband_N = mkN "" "" Masc;
ice_N = mkN "" "" Masc; ice_N = mkN "" "" Masc;
important_A = regA "Hswb" ; important_A = regA "חשוב" ;
industry_N = mkN "" "" Masc; industry_N = mkN "" "" Masc;
iron_N = mkN "" "" Masc; iron_N = mkN "" "" Masc;
john_PN = mkPN "gwN" Masc; john_PN = mkPN "גון" Masc;
jump_V = mkVPaal "qpZ" ; jump_V = mkVPaal "קפצ" ;
kill_V2 = dirV2 (mkVPaal "hrg") ; kill_V2 = dirV2 (mkVPaal "הרג") ;
king_N = mkN "" "" Masc; king_N = mkN "" "" Masc;
knee_N = mkN "" "" Masc; knee_N = mkN "" "" Masc;
know_V2 = dirV2 (mkVPaal "ydO") ; know_V2 = dirV2 (mkVPaal "ידע") ;
--know_VQ = mkVPaal "" ; --know_VQ = mkVPaal "" ;
--know_VS = mkVPaal "" ; --know_VS = mkVPaal "" ;
lake_N = mkN "" "" Masc; lake_N = mkN "" "" Masc;
lamp_N = mkN "" "" Masc; lamp_N = mkN "" "" Masc;
language_N = mkN "" "" Masc; language_N = mkN "" "" Masc;
laugh_V = mkVPaal "ZHq" ; laugh_V = mkVPaal "צחק" ;
leaf_N = mkN "" "" Masc; leaf_N = mkN "" "" Masc;
learn_V2 = dirV2 (mkVPaal "lmd") ; learn_V2 = dirV2 (mkVPaal "למד") ;
leather_N = mkN "Owr" Masc; -- no pl leather_N = mkN "עור" Masc; -- no pl
leave_V2 = dirV2 (mkVPaal "Ozb") ; leave_V2 = dirV2 (mkVPaal "עזב") ;
--left_Ord = ""; --left_Ord = "";
lie_V = mkVPaal "sqr" ; -- pial (paal kal) lie_V = mkVPaal "שקר" ; -- pial (paal kal)
like_V2 = dirV2 (mkVPaal "Ahb") ; like_V2 = dirV2 (mkVPaal "אהב") ;
listen_V2 = dirV2 (mkVPaal "smO") ; -- listen_V2 = dirV2 (mkVPaal "שמע") ; --
--live_V = mkVPaal "Hy" ; --live_V = mkVPaal "חי" ;
liver_N = mkN "" "" Masc; liver_N = mkN "" "" Masc;
long_A = regA "Arwk" ; long_A = regA "ארוכ" ;
lose_V2 = dirV2 (mkVPaal "Abd") ; lose_V2 = dirV2 (mkVPaal "אבד") ;
louse_N = mkN "" "" Masc; louse_N = mkN "" "" Masc;
love_N = mkN "" "" Masc; love_N = mkN "" "" Masc;
love_V2 = dirV2 (mkVPaal "Ahb") ; love_V2 = dirV2 (mkVPaal "אהב") ;
man_N = mkN "Ays" "AnsyM" Masc; man_N = mkN "איש" "אנשים" Masc;
--married_A2 = "" ; --married_A2 = "" ;
meat_N = mkN "" "" Masc; meat_N = mkN "" "" Masc;
milk_N = mkN "" "" Masc; milk_N = mkN "" "" Masc;
@@ -196,22 +196,22 @@ moon_N = mkN "" "" Masc;
mountain_N = mkN "" "" Masc; mountain_N = mkN "" "" Masc;
mouth_N = mkN "" "" Masc; mouth_N = mkN "" "" Masc;
music_N = mkN "" "" Masc; music_N = mkN "" "" Masc;
name_N = mkN "sm" "smwt" Masc; name_N = mkN "שמ" "שמות" Masc;
narrow_A = regA "Zr" ; narrow_A = regA "צר" ;
near_A = regA "qrwb" ; near_A = regA "קרוב" ;
neck_N = mkN "" "" Masc; neck_N = mkN "" "" Masc;
new_A = regA "Hds" ; new_A = regA "חדש" ;
newspaper_N = mkN "Otwn" "Otwnym" Masc; newspaper_N = mkN "עתונ" "עתונימ" Masc;
night_N = mkN "" "" Masc; night_N = mkN "" "" Masc;
nose_N = mkN "" "" Masc; nose_N = mkN "" "" Masc;
now_Adv ={s= ""} ; now_Adv ={s= ""} ;
number_N = mkN "" "" Masc; number_N = mkN "" "" Masc;
oil_N = mkN "smN" Masc; -- Mass noun oil_N = mkN "שמן" Masc; -- Mass noun
old_A = regA "ysn" ; old_A = regA "ישנ" ;
open_V2 = dirV2 (mkVPaal "ptH") ; open_V2 = dirV2 (mkVPaal "פתח") ;
paint_V2A = dirV2 (mkVPaal "Zyr") ; paint_V2A = dirV2 (mkVPaal "ציר") ;
paper_N = mkN "" "" Masc; paper_N = mkN "" "" Masc;
paris_PN = mkPN "pryz" Fem; paris_PN = mkPN "פריז" Fem;
peace_N = mkN "" "" Masc; peace_N = mkN "" "" Masc;
pen_N = mkN "" "" Masc; pen_N = mkN "" "" Masc;
person_N = mkN "" "" Masc; person_N = mkN "" "" Masc;
@@ -230,8 +230,8 @@ question_N = mkN "" "" Masc;
radio_N = mkN "" "" Masc; radio_N = mkN "" "" Masc;
rain_N = mkN "" "" Masc; rain_N = mkN "" "" Masc;
--rain_V0 = mkVPaal "" ; --rain_V0 = mkVPaal "" ;
read_V2 = dirV2 (mkVPaal "qrA") ; read_V2 = dirV2 (mkVPaal "קרא") ;
ready_A = regA "mwkn" ; ready_A = regA "מוכנ" ;
reason_N = mkN "" "" Masc; reason_N = mkN "" "" Masc;
--red_A = "" ; --red_A = "" ;
religion_N = mkN "" "" Masc; religion_N = mkN "" "" Masc;
@@ -256,124 +256,124 @@ school_N = mkN "" "" Masc;
science_N = mkN "" "" Masc; science_N = mkN "" "" Masc;
--scratch_V2 = dirV2 (mkVPaal "") ; --scratch_V2 = dirV2 (mkVPaal "") ;
sea_N = mkN "" "" Masc; sea_N = mkN "" "" Masc;
see_V2 = dirV2 (mkVPaal "rAh") ; see_V2 = dirV2 (mkVPaal "ראה") ;
seed_N = mkN "" "" Masc; seed_N = mkN "" "" Masc;
--seek_V2 = dirV2 (mkVPaal "") ; --seek_V2 = dirV2 (mkVPaal "") ;
sell_V3 = {s = "" }; sell_V3 = {s = "" };
send_V3 = {s = ""} ; send_V3 = {s = ""} ;
--sew_V = mkVPaal "" ; --sew_V = mkVPaal "" ;
sharp_A = regA "Hd" ; sharp_A = regA "חד" ;
sheep_N = mkN "" "" Masc; sheep_N = mkN "" "" Masc;
ship_N = mkN "" "" Masc; ship_N = mkN "" "" Masc;
shirt_N = mkN "" "" Masc; shirt_N = mkN "" "" Masc;
shoe_N = mkN "" "" Masc; shoe_N = mkN "" "" Masc;
shop_N = mkN "" "" Masc; shop_N = mkN "" "" Masc;
short_A = regA "qZr" ; short_A = regA "קצר" ;
silver_N = mkN "" "" Masc; silver_N = mkN "" "" Masc;
--sing_V = mkVPaal "" ; --sing_V = mkVPaal "" ;
sister_N = mkN "" "" Masc; sister_N = mkN "" "" Masc;
sit_V = mkVPaal "ysb" ; sit_V = mkVPaal "ישב" ;
skin_N = mkN "" "" Masc; skin_N = mkN "" "" Masc;
sky_N = mkN "" "" Masc; sky_N = mkN "" "" Masc;
sleep_V = mkVPaal "ysn" ; --pual sleep_V = mkVPaal "ישנ" ; --pual
small_A = regA "qTN"; small_A = regA "קטן";
--smell_V = mkVPaal "" ; --smell_V = mkVPaal "" ;
smoke_N = mkN "" "" Masc; smoke_N = mkN "" "" Masc;
smooth_A = regA "Hlq" ; smooth_A = regA "חלק" ;
snake_N = mkN "" "" Masc; snake_N = mkN "" "" Masc;
snow_N = mkN "" "" Masc; snow_N = mkN "" "" Masc;
sock_N = mkN "" "" Masc; sock_N = mkN "" "" Masc;
song_N = mkN "" "" Masc; song_N = mkN "" "" Masc;
speak_V2 = dirV2 (mkVPaal "dbr") ; speak_V2 = dirV2 (mkVPaal "דבר") ;
--spit_V = mkVPaal "" ; --spit_V = mkVPaal "" ;
--split_V2 = dirV2 (mkVPaal "") ; --split_V2 = dirV2 (mkVPaal "") ;
squeeze_V2 = dirV2 (mkVPaal "lHZ") ; squeeze_V2 = dirV2 (mkVPaal "לחצ") ;
stab_V2 = dirV2 (mkVPaal "dqr") ; stab_V2 = dirV2 (mkVPaal "דקר") ;
stand_V = mkVPaal "Omd" ; stand_V = mkVPaal "עמד" ;
star_N = mkN "" "" Masc; star_N = mkN "" "" Masc;
steel_N = mkN "" "" Masc; steel_N = mkN "" "" Masc;
stick_N = mkN "" "" Masc; stick_N = mkN "" "" Masc;
stone_N = mkN "" "" Masc; stone_N = mkN "" "" Masc;
--stop_V = mkVPaal "" ; --stop_V = mkVPaal "" ;
stove_N = mkN "" "" Masc; stove_N = mkN "" "" Masc;
straight_A = regA "ysr" ; straight_A = regA "ישר" ;
student_N = mkN "" "" Masc; student_N = mkN "" "" Masc;
stupid_A = regA2 "" ; stupid_A = regA2 "" ;
--suck_V2 = dirV2 (mkVPaal "") ; --suck_V2 = dirV2 (mkVPaal "") ;
sun_N = mkN "" "" Masc; sun_N = mkN "" "" Masc;
--swell_V = mkVPaal "" ; --swell_V = mkVPaal "" ;
swim_V = mkVPaal "sHh" ; swim_V = mkVPaal "שחה" ;
--switch8off_V2 = dirV2 (mkVPaal "") ; --switch8off_V2 = dirV2 (mkVPaal "") ;
--switch8on_V2 = dirV2 (mkVPaal "") ; --switch8on_V2 = dirV2 (mkVPaal "") ;
table_N = mkN "" "" Masc; table_N = mkN "" "" Masc;
tail_N = mkN "" "" Masc; tail_N = mkN "" "" Masc;
--talk_V3 = ""; --talk_V3 = "";
teach_V2 = dirV2 (mkVPaal "lmd") ; --piel teach_V2 = dirV2 (mkVPaal "למד") ; --piel
teacher_N = mkN "" "" Masc; teacher_N = mkN "" "" Masc;
television_N = mkN "" "" Masc; television_N = mkN "" "" Masc;
thick_A = regA2 "" ; thick_A = regA2 "" ;
thin_A = regA2 "" ; thin_A = regA2 "" ;
think_V = mkVPaal "Hsb" ; -- pual think_V = mkVPaal "חשב" ; -- pual
throw_V2 = dirV2 (mkVPaal "zrq") ; throw_V2 = dirV2 (mkVPaal "זרק") ;
tie_V2 = dirV2 (mkVPaal "hdq") ; --hifhil tie_V2 = dirV2 (mkVPaal "הדק") ; --hifhil
--today_Adv = "" ; --today_Adv = "" ;
tongue_N = mkN "" "" Masc; tongue_N = mkN "" "" Masc;
tooth_N = mkN "" "" Masc; tooth_N = mkN "" "" Masc;
train_N = mkN "" "" Masc; train_N = mkN "" "" Masc;
travel_V = mkVPaal "nSO" ; travel_V = mkVPaal "נסע" ;
tree_N = mkN "" "" Masc; tree_N = mkN "" "" Masc;
turn_V = mkVPaal "pnh" ; -- hiphil turn_V = mkVPaal "פנה" ; -- hiphil
ugly_A = regA2 "" ; ugly_A = regA2 "" ;
uncertain_A = regA2 "" ; uncertain_A = regA2 "" ;
--understand_V2 = dirV2 (mkVPaal "") ; --understand_V2 = dirV2 (mkVPaal "") ;
university_N = mkN "" "" Masc; university_N = mkN "" "" Masc;
village_N = mkN "" "" Masc; village_N = mkN "" "" Masc;
vomit_V = mkVPaal "plT" ; vomit_V = mkVPaal "פלט" ;
--wait_V2 = dirV2 (mkVPaal "") ; --wait_V2 = dirV2 (mkVPaal "") ;
war_N = mkN "" "" Masc; war_N = mkN "" "" Masc;
walk_V = mkVPaal "ZOd" ; walk_V = mkVPaal "צעד" ;
warm_A = regA2 "" ; warm_A = regA2 "" ;
wash_V2 = dirV2 (mkVPaal "rHZ") ; wash_V2 = dirV2 (mkVPaal "רחצ") ;
watch_V2 = dirV2 (mkVPaal "smr") ; watch_V2 = dirV2 (mkVPaal "שמר") ;
water_N = mkN "" "" Masc; water_N = mkN "" "" Masc;
wet_A = regA2 "" ; wet_A = regA2 "" ;
white_A = regA2 "lbN" ; white_A = regA2 "לבן" ;
wide_A = regA2 "" ; wide_A = regA2 "" ;
wife_N = mkN "" "" Masc; wife_N = mkN "" "" Masc;
--win_V2 = dirV2 (mkVPaal "") ; --win_V2 = dirV2 (mkVPaal "") ;
woman_N = mkN "Aysh" "nsyM" Fem ; woman_N = mkN "אישה" "נשים" Fem ;
wind_N = mkN "" "" Masc; wind_N = mkN "" "" Masc;
window_N = mkN "" "" Masc; window_N = mkN "" "" Masc;
wine_N = mkN "" "" Masc; wine_N = mkN "" "" Masc;
wing_N = mkN "" "" Masc; wing_N = mkN "" "" Masc;
--wipe_V2 = dirV2 (mkVPaal "") ; --wipe_V2 = dirV2 (mkVPaal "") ;
--wonder_VQ = mkVPaal "" ; --wonder_VQ = mkVPaal "" ;
wood_N = mkN "OZ" "OZym" Masc; wood_N = mkN "עצ" "עצימ" Masc;
worm_N = mkN "" "" Masc; worm_N = mkN "" "" Masc;
year_N = mkN "" "" Masc; year_N = mkN "" "" Masc;
write_V2 = dirV2 (mkVPaal "ktb") ; write_V2 = dirV2 (mkVPaal "כתב") ;
yellow_A = regA2 "" ; yellow_A = regA2 "" ;
young_A = regA2 ""; young_A = regA2 "";
--man_N = mkN "Ays" "AnsyM" Masc; --man_N = mkN "איש" "אנשים" Masc;
--woman_N = mkN "Aysh" "nsyM" Fem ; --woman_N = mkN "אישה" "נשים" Fem ;
--house_N = mkN "byt" "btyM" Masc; --house_N = mkN "בית" "בתים" Masc;
--leg_N = mkN "rgl" "rglyyM" "rglyyM" Fem; --leg_N = mkN "רגל" "רגליים" "רגליים" Fem;
--store_N = mkN "Hnwt" "Hnwywt" Fem; --store_N = mkN "חנות" "חנויות" Fem;
--chair_N = mkN "kSA" "kSAwt" Masc; --chair_N = mkN "כסא" "כסאות" Masc;
--eyes_N = mkN "OyN" "OynyyM" "OynyyM" Fem; --eyes_N = mkN "עין" "עיניים" "עיניים" Fem;
--spoon_N = mkN "kP" Fem; --spoon_N = mkN "כף" Fem;
--big_A = regA "gdwl"; --big_A = regA "גדול";
--small_A = regA "qTN"; --small_A = regA "קטן";
--green_A = regA "yrwq"; --green_A = regA "ירוק";
--delicious_A = regA2 "nhdr"; --delicious_A = regA2 "נהדר";
--italian_A = regA2 "AyTlqy"; --italian_A = regA2 "איטלקי";
--write_V2 = dirV2 (mkVPaal "ktb") ; --write_V2 = dirV2 (mkVPaal "כתב") ;
--finish_V = mkVPaal "gmr" ; --finish_V = mkVPaal "גמר" ;
--walk_V = mkVPaal "ZOd" ; --walk_V = mkVPaal "צעד" ;
--arrive_V = mkVHifhil2 "ngO" ; --arrive_V = mkVHifhil2 "נגע" ;
--express_V = mkVHifhil2 "nbO" ; --express_V = mkVHifhil2 "נבע" ;
--love_V2 = dirV2 (mkVPaal "Ahb") ; --love_V2 = dirV2 (mkVPaal "אהב") ;
--please_V2 = dirV2 (mkVPaal "Spq") ; --please_V2 = dirV2 (mkVPaal "ספק") ;
} }

View File

@@ -14,9 +14,9 @@
mkNoun : (bait,batim,batimD : Str) -> Gender -> Noun = \bait,batim,batimD,g -> { mkNoun : (bait,batim,batimD : Str) -> Gender -> Noun = \bait,batim,batimD,g -> {
s = table { s = table {
Sg => table{Indef => bait ; Def => ("h" +bait)}; Sg => table{Indef => bait ; Def => ("ה" +bait)};
Pl => table{Indef => batim ; Def => ("h" + batim)} ; Pl => table{Indef => batim ; Def => ("ה" + batim)} ;
Dl => table{Indef => batimD ; Def => ("h" +batimD)} Dl => table{Indef => batimD ; Def => ("ה" +batimD)}
} ; } ;
g=g ; g=g ;
}; };
@@ -27,8 +27,8 @@
regNoun2 : Str -> Gender -> Noun = \root,g -> regNoun2 : Str -> Gender -> Noun = \root,g ->
case root of { case root of {
heret + c@? => table { heret + c@? => table {
Masc => mkNoun root (heret + replaceLastLet (c) + "yM" ) ("") g; Masc => mkNoun root (heret + replaceLastLet (c) + "ים" ) ("") g;
Fem => mkNoun root (heret + replaceLastLet (c) + "wt") ("") g Fem => mkNoun root (heret + replaceLastLet (c) + "ות") ("") g
} ! g } ! g
} ; } ;
@@ -36,11 +36,11 @@
regNoun : Str -> Noun = regNoun : Str -> Noun =
\root -> case root of { \root -> case root of {
malc + "h" => mkNoun root (malc + "wt") ("") Fem ; malc + "ה" => mkNoun root (malc + "ות") ("") Fem ;
mecon + "yt" => mkNoun root (mecon + "ywt") ("") Fem ; -- (it -> iyot) mecon + "ית" => mkNoun root (mecon + "יות") ("") Fem ; -- (it -> iyot)
khan + "wt" => mkNoun root (khan + "ywt") ("") Fem; -- (ut -> uyot) khan + "ות" => mkNoun root (khan + "יות") ("") Fem; -- (ut -> uyot)
tsalakh + "t" => mkNoun root (tsalakh + "wt") ("") Fem ; -- (at -> ot) tsalakh + "ת" => mkNoun root (tsalakh + "ות") ("") Fem ; -- (at -> ot)
_ => mkNoun root (root + "yM") ("") Masc _ => mkNoun root (root + "ים") ("") Masc
} ; } ;
mkN = overload { mkN = overload {
@@ -86,23 +86,23 @@
regA : Str -> Adj = \root regA : Str -> Adj = \root
-> case root of { -> case root of {
kaTan + c@? => mkAdj root (kaTan + replaceLastLet (c) + "h") (kaTan + kaTan + c@? => mkAdj root (kaTan + replaceLastLet (c) + "ה") (kaTan +
replaceLastLet (c) + "yM") (kaTan + replaceLastLet (c) + "wt") replaceLastLet (c) + "ים") (kaTan + replaceLastLet (c) + "ות")
}; };
regA2 : Str -> Adj = \bwleT regA2 : Str -> Adj = \bwleT
-> mkAdj bwleT ( bwleT + "t") ( bwleT + "yM" ) (bwleT + "wt" ); -> mkAdj bwleT ( bwleT + "ת") ( bwleT + "ים" ) (bwleT + "ות" );
mkAdj : (_,_,_,_ : Str) -> Adj = \tov,tova,tovim,tovot -> { mkAdj : (_,_,_,_ : Str) -> Adj = \tov,tova,tovim,tovot -> {
s = table { s = table {
Sg => table { Sg => table {
Indef => table { Masc => tov ; Fem => tova } ; Indef => table { Masc => tov ; Fem => tova } ;
Def => table { Masc => ("h" + tov) ; Fem => ("h" Def => table { Masc => ("ה" + tov) ; Fem => ("ה"
+ tova) } + tova) }
} ; } ;
_ => table { _ => table {
Indef => table {Masc => tovim ; Fem => tovot } ; Indef => table {Masc => tovim ; Fem => tovot } ;
Def => table { Masc => ("h" + tovim) ; Fem => ("h" + tovot) } Def => table { Masc => ("ה" + tovim) ; Fem => ("ה" + tovot) }
} }
} }
}; };

View File

@@ -4,85 +4,85 @@ flags coding=utf8 ;
oper oper
C1aC2aC3ti = {C1 ="" ; C1C2=""; C2C3 =""; C3="ty"}; C1aC2aC3ti = {C1 ="" ; C1C2=""; C2C3 =""; C3="תי"};
C1aC2aC3nu = { C1 = "" ; C1C2=""; C2C3 =""; C3="nw"}; C1aC2aC3nu = { C1 = "" ; C1C2=""; C2C3 =""; C3="נו"};
C1aC2aC3ta = { C1 = "" ; C1C2=""; C2C3 =""; C3="ta"}; C1aC2aC3ta = { C1 = "" ; C1C2=""; C2C3 =""; C3="תa"};
C1aC2aC3t = { C1 = "" ; C1C2=""; C2C3 =""; C3="t"}; C1aC2aC3t = { C1 = "" ; C1C2=""; C2C3 =""; C3="ת"};
C1aC2aC3tem = { C1 = "" ; C1C2=""; C2C3 =""; C3="tM"}; C1aC2aC3tem = { C1 = "" ; C1C2=""; C2C3 =""; C3="תם"};
C1aC2aC3ten = { C1 = "" ; C1C2=""; C2C3 =""; C3="tN"}; C1aC2aC3ten = { C1 = "" ; C1C2=""; C2C3 =""; C3="תן"};
C1aC2aC3 = { C1 = "" ; C1C2=""; C2C3 =""; C3=""}; C1aC2aC3 = { C1 = "" ; C1C2=""; C2C3 =""; C3=""};
C1aC2aC3a = { C1 = "" ; C1C2=""; C2C3 =""; C3="h"}; C1aC2aC3a = { C1 = "" ; C1C2=""; C2C3 =""; C3="ה"};
C1aC2aC3u = { C1 = "" ; C1C2=""; C2C3 =""; C3="w"}; C1aC2aC3u = { C1 = "" ; C1C2=""; C2C3 =""; C3="ו"};
C1oC2eC3 = { C1 = "" ; C1C2="w"; C2C3 =""; C3=""}; C1oC2eC3 = { C1 = "" ; C1C2="ו"; C2C3 =""; C3=""};
C1oC2eC3et = { C1 = "" ; C1C2="w"; C2C3 =""; C3="t"}; C1oC2eC3et = { C1 = "" ; C1C2="ו"; C2C3 =""; C3="ת"};
C1oC2C3im = { C1 = "" ; C1C2="w"; C2C3 =""; C3="yM"}; C1oC2C3im = { C1 = "" ; C1C2="ו"; C2C3 =""; C3="ים"};
C1oC2C3ot = { C1 = "" ; C1C2="w"; C2C3 =""; C3="wt"}; C1oC2C3ot = { C1 = "" ; C1C2="ו"; C2C3 =""; C3="ות"};
eC1C2oC3 = { C1 = "y" ; C1C2=""; C2C3 =""; C3=""}; eC1C2oC3 = { C1 = "י" ; C1C2=""; C2C3 =""; C3=""};
niC1C2oC3 = { C1 = "n" ; C1C2=""; C2C3 =""; C3=""}; niC1C2oC3 = { C1 = "נ" ; C1C2=""; C2C3 =""; C3=""};
tiC1C2oC3 = { C1 = "t" ; C1C2=""; C2C3 =""; C3=""}; tiC1C2oC3 = { C1 = "ת" ; C1C2=""; C2C3 =""; C3=""};
tiC1C2eC3i = { C1 = "t" ; C1C2=""; C2C3 =""; C3="y"}; tiC1C2eC3i = { C1 = "ת" ; C1C2=""; C2C3 =""; C3="י"};
tiC1C2eC3o = { C1 = "t" ; C1C2=""; C2C3 =""; C3="w"}; tiC1C2eC3o = { C1 = "ת" ; C1C2=""; C2C3 =""; C3="ו"};
yiC1C2oC3 = { C1 = "y" ; C1C2=""; C2C3 =""; C3=""}; yiC1C2oC3 = { C1 = "י" ; C1C2=""; C2C3 =""; C3=""};
yiC1C2eC3u = { C1 = "y" ; C1C2=""; C2C3 =""; C3="w"}; yiC1C2eC3u = { C1 = "י" ; C1C2=""; C2C3 =""; C3="ו"};
hiC1C2aC3ti = {C1 ="h" ; C1C2=""; C2C3 =""; C3="ty"}; hiC1C2aC3ti = {C1 ="ה" ; C1C2=""; C2C3 =""; C3="תי"};
hiC1C2aC3nu = { C1 = "h" ; C1C2=""; C2C3 =""; C3="nw"}; hiC1C2aC3nu = { C1 = "ה" ; C1C2=""; C2C3 =""; C3="נו"};
hiC1C2aC3ta = { C1 = "h" ; C1C2=""; C2C3 =""; C3="ta"}; hiC1C2aC3ta = { C1 = "ה" ; C1C2=""; C2C3 =""; C3="תa"};
hiC1C2aC3t = { C1 = "h" ; C1C2=""; C2C3 =""; C3="t"}; hiC1C2aC3t = { C1 = "ה" ; C1C2=""; C2C3 =""; C3="ת"};
hiC1C2aC3tem= { C1 = "h" ; C1C2=""; C2C3 =""; C3="tM"}; hiC1C2aC3tem= { C1 = "ה" ; C1C2=""; C2C3 =""; C3="תם"};
hiC1C2aC3ten = { C1 = "h" ; C1C2=""; C2C3 =""; C3="tN"}; hiC1C2aC3ten = { C1 = "ה" ; C1C2=""; C2C3 =""; C3="תן"};
hiC1C2iC3= { C1 = "h" ; C1C2=""; C2C3 ="y"; C3=""}; hiC1C2iC3= { C1 = "ה" ; C1C2=""; C2C3 ="י"; C3=""};
hiC1C2iC3a= { C1 = "h" ; C1C2=""; C2C3 ="y"; C3="h"}; hiC1C2iC3a= { C1 = "ה" ; C1C2=""; C2C3 ="י"; C3="ה"};
hiC1C2iC3u = { C1 = "h" ; C1C2=""; C2C3 ="y"; C3="w"}; hiC1C2iC3u = { C1 = "ה" ; C1C2=""; C2C3 ="י"; C3="ו"};
hitC1C2aC3ti = {C1 ="ht" ; C1C2=""; C2C3 =""; C3="ty"}; hitC1C2aC3ti = {C1 ="הת" ; C1C2=""; C2C3 =""; C3="תי"};
hitC1C2aC3nu = { C1 = "ht" ; C1C2=""; C2C3 =""; C3="nw"}; hitC1C2aC3nu = { C1 = "הת" ; C1C2=""; C2C3 =""; C3="נו"};
hitC1C2aC3ta = { C1 = "ht" ; C1C2=""; C2C3 =""; C3="ta"}; hitC1C2aC3ta = { C1 = "הת" ; C1C2=""; C2C3 =""; C3="תa"};
hitC1C2aC3t = { C1 = "ht" ; C1C2=""; C2C3 =""; C3="t"}; hitC1C2aC3t = { C1 = "הת" ; C1C2=""; C2C3 =""; C3="ת"};
hitC1C2aC3tem= { C1 = "ht" ; C1C2=""; C2C3 =""; C3="tM"}; hitC1C2aC3tem= { C1 = "הת" ; C1C2=""; C2C3 =""; C3="תם"};
hitC1C2aC3ten = { C1 = "ht" ; C1C2=""; C2C3 =""; C3="tN"}; hitC1C2aC3ten = { C1 = "הת" ; C1C2=""; C2C3 =""; C3="תן"};
hitC1C2iC3= { C1 = "ht" ; C1C2=""; C2C3 ="y"; C3=""}; hitC1C2iC3= { C1 = "הת" ; C1C2=""; C2C3 ="י"; C3=""};
hitC1C2iC3a= { C1 = "ht" ; C1C2=""; C2C3 ="y"; C3="h"}; hitC1C2iC3a= { C1 = "הת" ; C1C2=""; C2C3 ="י"; C3="ה"};
hitC1C2iC3u = { C1 = "ht" ; C1C2=""; C2C3 ="y"; C3="w"}; hitC1C2iC3u = { C1 = "הת" ; C1C2=""; C2C3 ="י"; C3="ו"};
titC1C2C3 = { C1 = "tt" ; C1C2=""; C2C3 =""; C3=""}; titC1C2C3 = { C1 = "תת" ; C1C2=""; C2C3 =""; C3=""};
titC1C2C3i = { C1 = "tt" ; C1C2=""; C2C3 =""; C3="y"}; titC1C2C3i = { C1 = "תת" ; C1C2=""; C2C3 =""; C3="י"};
titC1C2C3o = { C1 = "tt" ; C1C2=""; C2C3 =""; C3="w"}; titC1C2C3o = { C1 = "תת" ; C1C2=""; C2C3 =""; C3="ו"};
titC1C2C3nah = { C1 = "tt" ; C1C2=""; C2C3 =""; C3="nah"}; titC1C2C3nah = { C1 = "תת" ; C1C2=""; C2C3 =""; C3="נaה"};
yitC1C2C3 = { C1 = "y" ; C1C2=""; C2C3 =""; C3=""}; yitC1C2C3 = { C1 = "י" ; C1C2=""; C2C3 =""; C3=""};
yitC1C2C3u = { C1 = "y" ; C1C2=""; C2C3 =""; C3="w"}; yitC1C2C3u = { C1 = "י" ; C1C2=""; C2C3 =""; C3="ו"};
hoC1C2C3= { C1 = "ho" ; C1C2=""; C2C3 =""; C3=""}; hoC1C2C3= { C1 = "הo" ; C1C2=""; C2C3 =""; C3=""};
hoC1C2C3a= { C1 = "ho" ; C1C2=""; C2C3 =""; C3="h"}; hoC1C2C3a= { C1 = "הo" ; C1C2=""; C2C3 =""; C3="ה"};
hoC1C2C3u = { C1 = "ho" ; C1C2=""; C2C3 =""; C3="w"}; hoC1C2C3u = { C1 = "הo" ; C1C2=""; C2C3 =""; C3="ו"};
eC1C2C3 = { C1 = "a" ; C1C2=""; C2C3 =""; C3=""}; eC1C2C3 = { C1 = "a" ; C1C2=""; C2C3 =""; C3=""};
niC1C2C3 = { C1 = "n" ; C1C2=""; C2C3 =""; C3=""}; niC1C2C3 = { C1 = "נ" ; C1C2=""; C2C3 =""; C3=""};
taC1C2aC3 = { C1 = "t" ; C1C2=""; C2C3 =""; C3=""}; taC1C2aC3 = { C1 = "ת" ; C1C2=""; C2C3 =""; C3=""};
taC1C2eC3i = { C1 = "t" ; C1C2=""; C2C3 =""; C3="y"}; taC1C2eC3i = { C1 = "ת" ; C1C2=""; C2C3 =""; C3="י"};
taC1C2eC3o = { C1 = "t" ; C1C2=""; C2C3 =""; C3="w"}; taC1C2eC3o = { C1 = "ת" ; C1C2=""; C2C3 =""; C3="ו"};
taC1C2aC3nah = { C1 = "t" ; C1C2=""; C2C3 =""; C3="nh"}; taC1C2aC3nah = { C1 = "ת" ; C1C2=""; C2C3 =""; C3="נה"};
yaC1C2aC3 = { C1 = "y" ; C1C2=""; C2C3 =""; C3=""}; yaC1C2aC3 = { C1 = "י" ; C1C2=""; C2C3 =""; C3=""};
taC1C2aC3 = { C1 = "t" ; C1C2=""; C2C3 =""; C3=""}; taC1C2aC3 = { C1 = "ת" ; C1C2=""; C2C3 =""; C3=""};
yaC1C2aC3u = { C1 = "y" ; C1C2=""; C2C3 =""; C3="w"}; yaC1C2aC3u = { C1 = "י" ; C1C2=""; C2C3 =""; C3="ו"};
taC1C2aC3nah = { C1 = "t" ; C1C2=""; C2C3 =""; C3="nh"}; taC1C2aC3nah = { C1 = "ת" ; C1C2=""; C2C3 =""; C3="נה"};
C1uC2aC3 = { C1 = "" ; C1C2="w"; C2C3 =""; C3=""}; C1uC2aC3 = { C1 = "" ; C1C2="ו"; C2C3 =""; C3=""};
C1uC2aC3nu = { C1 = "" ; C1C2="w"; C2C3 =""; C3=""}; C1uC2aC3nu = { C1 = "" ; C1C2="ו"; C2C3 =""; C3=""};
C1uC2aC3ti = { C1 = "ht" ; C1C2="w"; C2C3 =""; C3="ti"}; C1uC2aC3ti = { C1 = "הת" ; C1C2="ו"; C2C3 =""; C3="תi"};
C1uC2aC3t = { C1 = "ht" ; C1C2="w"; C2C3 =""; C3="t"}; C1uC2aC3t = { C1 = "הת" ; C1C2="ו"; C2C3 =""; C3="ת"};
C1uC2aC3tem= { C1 = "ht" ; C1C2="w"; C2C3 =""; C3="tM"}; C1uC2aC3tem= { C1 = "הת" ; C1C2="ו"; C2C3 =""; C3="תם"};
C1uC2aC3ten = { C1 = "ht" ; C1C2="w"; C2C3 =""; C3="tN"}; C1uC2aC3ten = { C1 = "הת" ; C1C2="ו"; C2C3 =""; C3="תן"};
} }

View File

@@ -121,13 +121,13 @@ oper
} ; } ;
replaceLastLet : Str -> Str = \c -> replaceLastLet : Str -> Str = \c ->
case c of {"P" => "p" ; "M" => "m" ; "N" => "n" ; "Z." => "Z" ; "K" => "k"; _ => c} ; case c of {"ף" => "פ" ; "ם" => "מ" ; "ן" => "נ" ; "ץ" => "צ" ; "ך" => "כ"; _ => c} ;
Num, Ord : Type = {s : Case => Str; n : Number} ; Num, Ord : Type = {s : Case => Str; n : Number} ;
Det : Type = {s : Gender => Str ; n : Number ; sp : Species; isDef : Bool} ; Det : Type = {s : Gender => Str ; n : Number ; sp : Species; isDef : Bool} ;
-- defH : Str -> Str = \cn -> -- defH : Str -> Str = \cn ->
-- case cn of {_ => "h" + cn} ; -- case cn of {_ => "ה" + cn} ;
insertObj : NP -> VP -> VP = \np,vp -> insertObj : NP -> VP -> VP = \np,vp ->
let let
@@ -135,7 +135,7 @@ oper
in in
{ s = vp.s; { s = vp.s;
obj = case <np.isDef> of obj = case <np.isDef> of
{ <True> => "At" ++ nps.obj; { <True> => "את" ++ nps.obj;
_ => nps.obj } ; _ => nps.obj } ;
s2 = vp.s2; s2 = vp.s2;
pred = vp.pred; pred = vp.pred;
@@ -171,7 +171,7 @@ oper
getRoot : Str -> Root = \s -> case s of { getRoot : Str -> Root = \s -> case s of {
C1@? + C2@? + C3 => {C1 = C1 ; C2 = C2 ; C3 = C3} ; C1@? + C2@? + C3 => {C1 = C1 ; C2 = C2 ; C3 = C3} ;
_ => Predef.error ("cannot get root from" ++ s) _ => Predef.error ("caננoת גeת רooת fרoמ" ++ s)
} ; } ;

View File

@@ -7,8 +7,8 @@ concrete StructuralHeb of Structural = CatHeb **
this_Quant = { this_Quant = {
s = table { s = table {
Sg => table { Masc => "hzh" ; Fem => "hzAt" } ; Sg => table { Masc => "הזה" ; Fem => "הזאת" } ;
_ => table {_ => "hAlh" } _ => table {_ => "האלה" }
}; };
sp = Def ; sp = Def ;
@@ -19,8 +19,8 @@ concrete StructuralHeb of Structural = CatHeb **
that_Quant = { that_Quant = {
s = table { s = table {
Sg => table { Masc => "hhwA" ; Fem => "hhyA" } ; -- that Sg => table { Masc => "ההוא" ; Fem => "ההיא" } ; -- that
_ => table {_ => "hhN" } -- those _ => table {_ => "ההן" } -- those
}; };
sp = Def ; sp = Def ;
@@ -29,25 +29,25 @@ concrete StructuralHeb of Structural = CatHeb **
}; };
he_Pron = mkPron "hwA" "Awtw" "slw" Masc Sg Per3 ; he_Pron = mkPron "הוא" "אותו" "שלו" Masc Sg Per3 ;
i_Pron = mkPron "Any" "Awty" "sly" Masc Sg Per1 ; --both fem and masc nom, acc, gen i_Pron = mkPron "אני" "אותי" "שלי" Masc Sg Per1 ; --both fem and masc nom, acc, gen
it_Pron = mkPron "zh" "" "" Masc Sg Per3 ; it_Pron = mkPron "זה" "" "" Masc Sg Per3 ;
she_Pron = mkPron "hyA" "slh" "slh" Fem Sg Per3 ; she_Pron = mkPron "היא" "שלה" "שלה" Fem Sg Per3 ;
they_Pron = mkPron "hM" "slhM" "slhM" Masc Pl Per3 ; -- add Fem in extra they_Pron = mkPron "הם" "שלהם" "שלהם" Masc Pl Per3 ; -- add Fem in extra
we_Pron = mkPron "AnHnw" "Awtnw" "lnw" Masc Pl Per1; --both fem and masc we_Pron = mkPron "אנחנו" "אותנו" "לנו" Masc Pl Per1; --both fem and masc
youSg_Pron = mkPron "At" "slK" "slK" Fem Sg Per2 ; -- add Masc in extra youSg_Pron = mkPron "את" "שלך" "שלך" Fem Sg Per2 ; -- add Masc in extra
youPl_Pron = mkPron "AtN" "slkN" "slkN" Fem Pl Per2 ; youPl_Pron = mkPron "אתן" "שלכן" "שלכן" Fem Pl Per2 ;
-- youPol_Pron = mkPron "AtN" "" "" Fem Sg Per2 ; -- youPol_Pron = mkPron "אתן" "" "" Fem Sg Per2 ;
above_Prep = mkPrep "mOl" False; above_Prep = mkPrep "מעל" False;
after_Prep = mkPrep "AHry" False; after_Prep = mkPrep "אחרי" False;
by8agent_Prep = mkPrep "Ol ydy" False ; by8agent_Prep = mkPrep "על ידי" False ;
--by8means_Prep = mkPrep "" False ; --by8means_Prep = mkPrep "" False ;
there_Adv = mkAdv "sm" ; there_Adv = mkAdv "שמ" ;
there7to_Adv = ss "lsm" ; there7to_Adv = ss "לשמ" ;
there7from_Adv = ss "msm" ; there7from_Adv = ss "משמ" ;
somewhere_Adv = ss ""; somewhere_Adv = ss "";
-- now_Adv = ss "Oksyw"; -- now_Adv = ss "עכשיו";
but_PConj = ss "Abl" ; but_PConj = ss "אבל" ;
} }