Improvements In Sindhi RG

This commit is contained in:
virk.shafqat
2013-06-15 20:02:00 +00:00
parent c3b344084f
commit 9caa9cd44e
7 changed files with 407 additions and 407 deletions

View File

@@ -10,258 +10,258 @@ concrete LexiconSnd of Lexicon = CatSnd **
lin lin
airplane_N = mkN03 "جھاج" ; airplane_N = mkN03 "جهاز" ;
answer_V2S = mkV2 (compoundV "جواب" (mkV "ڏیڻ ")) ; answer_V2S = mkV2 (compoundV "جواب" (mkV "ڏيڻ")) ;
apple_N = mkN03 "سوف" ; apple_N = mkN03 "صوف" ;
art_N = mkN13 "فن" ; art_N = mkN13 "فن" ;
ask_V2Q = mkV2 (mkV "پڇڻ "); ask_V2Q = mkV2 (mkV "پڇڻ");
baby_N = mkN05 "ٻار" ; baby_N = mkN05 "ٻار" ;
bad_A = mkAdj3 "ڪراب" ; bad_A = mkAdj3 "خراب" ;
bank_N = mkN03 "بانڪ" ; bank_N = mkN03 "بئنڪ" ;
beautiful_A = mkAdj1 "پیارو" ; beautiful_A = mkAdj1 "پيارو" ;
become_VA = mkV "ٿیڻ "; become_VA = mkV "ٿيڻ";
beer_N = mkN03 "شراب" ; beer_N = mkN03 "شراب" ;
--beg_V2V = mkV "پنڻ " ; --beg_V2V = mkV "پنڻ" ;
big_A = mkAdj1 "وڏو" ; big_A = mkAdj1 "وڏو" ;
bike_N = mkN03 "سایچl" ; bike_N = mkN03 "سائيڪل" ;
bird_N = mkN01 "پکی" ; bird_N = mkN01 "پکي" ;
black_A = mkAdj1 "ڪارو" ; black_A = mkAdj1 "ڪارو" ;
blue_A = mkAdj1 "نیرو" ; blue_A = mkAdj1 "نيرو" ;
boat_N = mkN04 "ڀیری" ; boat_N = mkN04 "ٻيڙي" ;
book_N = mkN03 "ڪتاب" ; book_N = mkN03 "ڪتاب" ;
boot_N = mkN01 "جوتو" ; boot_N = mkN01 "جوتو" ;
boss_N = mkN03 "بالادست" ; boss_N = mkN03 "بالادست" ;
boy_N = mkN01 "چوڪرو" ; boy_N = mkN01 "ڇوڪرو" ;
bread_N = mkN03 "مانی" ; bread_N = mkN03 "ماني" ;
break_V2 = mkV2 "ٽورڻ " ; break_V2 = mkV2 "ٽورڻ " ;
broad_A = mkAdj1 "ویڪرو" ; broad_A = mkAdj1 "ويڪرو" ;
--brother_N2 = mkN10 "ڀا۶ " "جo " ; --not correct --brother_N2 = mkN10 "ڀا" "جo " ; --not correct
brown_A = mkAdj3 "ناسی" ; brown_A = mkAdj3 "ناسي" ;
butter_N = mkN13 "مکڻ" ; butter_N = mkN13 "مکڻ" ;
buy_V2 = mkV2(compoundV "ئرید " do_V2); buy_V2 = mkV2(compoundV "خريد" do_V2);
camera_N = mkN01 "ڪیمیرا"; camera_N = mkN01 "ڪئميرا";
cap_N = mkN03 "ڻوپY" ; cap_N = mkN03 "ٽوپي" ;
car_N = mkN03 "گاڏی" ; car_N = mkN03 "گاڏي" ;
carpet_N = mkN01 "تڏو" ; carpet_N = mkN01 "تڏو" ;
cat_N = mkN09 "ٻلی" ; cat_N = mkN09 "ٻلي" ;
ceiling_N = mkN01 "ڇت" ; ceiling_N = mkN01 "ڇت" ;
chair_N = mkN09 "ڪرسی" ; chair_N = mkN09 "ڪرسي" ;
cheese_N = mkN14 "پنیر" ; cheese_N = mkN14 "پنير" ;
child_N = mkN01 "ٻار" ; child_N = mkN01 "ٻار" ;
--church_N = mkN03 "گرجا" (mkN "گرجا") ; --church_N = mkN03 "گرجا" (mkN "گرجا") ;
clean_A = mkAdj3 "ساف" ; clean_A = mkAdj3 "صاف" ;
clever_A = mkAdj3 "hوشیار" ; clever_A = mkAdj3 "چالاڪ" ;
close_V2 = mkV2 (compoundV "بند" do_V2); close_V2 = mkV2 (compoundV "بند" do_V2);
coat_N = mkN03 "ڪوٽ" ; coat_N = mkN03 "ڪوٽ" ;
cold_A = mkAdj1 "ٿڌو" ; cold_A = mkAdj1 "ٿڌو" ;
computer_N = mkN03 "ڪمپیوٽر" ; computer_N = mkN03 "ڪمپيوٽر" ;
country_N = mkN03 "مlڪ" ; country_N = mkN03 "ملڪ" ;
cousin_N = mkN03 "س۶وٽ" ; -- a compund noun made of two nouns cousin_N = mkN03 "سؤٽ" ; -- a compund noun made of two nouns
cow_N = mkN09 "گان" ; cow_N = mkN09 "ڳئون" ;
die_V = mkV "مرڻ " ; die_V = mkV "مرڻ" ;
dirty_A = mkAdj1 "میرو" ; dirty_A = mkAdj1 "ميرو" ;
--distance_N3 = mkN3 (mkN "پنڌ") (mkPrep "دا") "دE" "توN" ; --distance_N3 = mkN3 (mkN "پنڌ") (mkPrep "دا") "دE" "توN" ;
doctor_N = mkN03 "ڊاڪتر" ; doctor_N = mkN03 "ڊاڪٽر" ;
dog_N = mkN01 "ڪتو" ; dog_N = mkN01 "ڪتو" ;
door_N = mkN01 "دروزو" ; door_N = mkN01 "دروازو" ;
drink_V2 = mkV2 "پی۶ڻ "; drink_V2 = mkV2 "پيئڻ";
easy_A2V = mkA "سولو" "" ; easy_A2V = mkA "سولو" "" ;
eat_V2 = mkV2( mkV "کا۶ڻ "); eat_V2 = mkV2( mkV "کائڻ");
empty_A = mkAdj3 "ئالی" ; empty_A = mkAdj3 "خالي" ;
enemy_N = mkN03 "دشمن" ; enemy_N = mkN03 "دشمن" ;
factory_N = mkN02 "ڪارئانو" ; factory_N = mkN02 "ڪارخانو" ;
father_N2 = mkN2 (mkN06 "پی") (mkPrep "جو") "جی" ; father_N2 = mkN2 (mkN06 "پي") (mkPrep "جو") "جي" ;
fear_VS = mkV "ڊڄڻ "; fear_VS = mkV "ڊڄڻ";
fish_N = mkN09 "مڇی" ; fish_N = mkN09 "مڇي" ;
floor_N = mkN03 "فرش" ; floor_N = mkN03 "فرش" ;
fridge_N = mkN03 "گرج" ; fridge_N = mkN03 "گرج" ;
friend_N = mkN05 "دوست" ; friend_N = mkN05 "دوست" ;
fruit_N = mkN13 "ثمر" ; fruit_N = mkN13 "ثمر" ;
--fun_AV = mkAdj1V (regA "مزو") ; --fun_AV = mkAdj1V (regA "مزو") ;
garden_N = mkN03 "باغ" ; garden_N = mkN03 "باغ" ;
girl_N = mkN09 "ڇوڪری" ; girl_N = mkN09 "ڇوڪري" ;
glove_N = mkN01 "دستانو" ; glove_N = mkN01 "دستانو" ;
gold_N = mkN13 "سون" ; gold_N = mkN13 "سون" ;
good_A = mkAdj1 "سٺو" ; good_A = mkAdj1 "سٺو" ;
-- go_V = mkIrrgV "وڃڻ" "" ; -- go_V = mkIrrgV "وڃڻ" "" ;
green_A = mkAdj1 "ساعو" ; green_A = mkAdj1 "سائو" ;
harbour_N = mkN08 "پاناگاھ" ; harbour_N = mkN08 "بندر" ;
hate_V2 = mkV2 (compoundV "نفرت" do_V2) ; hate_V2 = mkV2 (compoundV "نفرت" do_V2) ;
hat_N = mkN01 "توپ" ; hat_N = mkN01 "ٽوپي" ;
--have_V = dirV2 (mk5V "ha?ع" "hاس" "hاد" "hاد" "ھجڻ ") ; --have_V = dirV2 (mk5V "ha?ع" "hاس" "hاد" "hاد" "ھجڻ ") ;
hear_V2 = mkV2 (mkV "ٻڌڻ ") ; hear_V2 = mkV2 (mkV "ٻڌڻ ") ;
hill_N = mkN09 "ٽڪری" ; hill_N = mkN09 "ٽڪري" ;
hope_VS = (compoundV "امید" do_V2); hope_VS = (compoundV "اميد" do_V2);
horse_N = mkN01 "گورو" ; horse_N = mkN01 "گهوڙو" ;
hot_A = mkAdj1 "ڪوسو" ; hot_A = mkAdj1 "ڪوسو" ;
house_N = mkN03 "گھر" ; house_N = mkN03 "گھر" ;
important_A = mkAdj3 "ضروری" ; important_A = mkAdj3 "ضروري" ;
industry_N = mkN01 "دندو" ; industry_N = mkN01 "ڌنڌو" ;
iron_N = mkN09 "لوھ " ; iron_N = mkN09 "لوھ" ;
king_N = mkN01 "بادشاھ" ; king_N = mkN01 "بادشاھ" ;
know_V2 = mkV2 (mkV "Jاڻڻ") ; know_V2 = mkV2 (mkV "ڄاڻڻ") ;
know_VS = (mkV "ڄاڻڻ ") ; know_VS = (mkV "ڄاڻڻ") ;
know_VQ = (mkV "ڄاڻڻ ") ; know_VQ = (mkV "ڄاڻڻ") ;
lake_N = mkN09 "ڍنڍ" ; lake_N = mkN09 "ڍنڍ" ;
lamp_N = mkN09 "بتی " ; lamp_N = mkN09 "بتي" ;
learn_V2 = mkV2 ( mkV "سK'ڻ ") ; learn_V2 = mkV2 ( mkV "سکڻ") ;
leather_N = mkN01 "چمڙو" ; leather_N = mkN01 "چمڙو" ;
leave_V2 = mkV2 (mkV "چڏڻ") ; leave_V2 = mkV2 (mkV "ڇڏڻ") ;
like_V2 = mkV2 (compoundV "پصند" do_V2); like_V2 = mkV2 (compoundV "پسند" do_V2);
listen_V2 = mkV2 (mkV "ئن ڍیڻ ") ; listen_V2 = mkV2 (mkV "ٻڌڻ") ;
live_V = mkV "ر" ; ---- touch live_V = mkV "رهڻ" ; ---- touch
long_A = mkAdj1 "ڊگو" ; long_A = mkAdj1 "ڊگهو" ;
lose_V2= mkV2 "hارا۶ڻ " ; lose_V2= mkV2 "هارائڻ" ;
love_N = mkN08 "مھبت" ; love_N = mkN08 "محبت" ;
love_V2 = mkV2 (compoundV "عشق" do_V2) "سان"; love_V2 = mkV2 (compoundV "عشق" do_V2) "سان";
man_N = mkN03 "ماڻھو" ;--not correct according to rules should be discussed man_N = mkN03 "ماڻھو" ;--not correct according to rules should be discussed
--married_A2 = mkAdj1 "پرڻیل" ; --married_A2 = mkAdj1 "پرڻيل" ;
meat_N = mkN01 "کادو" ; meat_N = mkN01 "کاڌو" ;
milk_N = mkN13 "کیر" ; milk_N = mkN13 "کير" ;
moon_N = mkN13 "چنڊ" ; moon_N = mkN13 "چنڊ" ;
--mother_N2 = mkN2(mkN07 "ما۶ " "جو" "جی" );--not covered need to be discussed --mother_N2 = mkN2(mkN07 "ماء" "جو" "جي" );--not covered need to be discussed
mountain_N = mkN03 "جبل" ; mountain_N = mkN03 "جبل" ;
music_N = mkN14 "موسیقی" ; music_N = mkN14 "سنگيت" ;
narrow_A = mkAdj1 "سوڙھو" ; narrow_A = mkAdj1 "سوڙھو" ;
new_A = mkAdj1 "ن۶ون" ; new_A = mkAdj1 "نئون" ;
newspaper_N = mkN04 "ائبار" ; newspaper_N = mkN04 "اخبار" ;
oil_N = mkN03 "تیل" ; oil_N = mkN03 "تيل" ;
old_A = mkAdj1 "پوڙھی" ; old_A = mkAdj1 "پوڙهو" ;
-- open_V2 = mkV2 (mkIrrgV "ئولڻ" "ئوl") ; -- open_V2 = mkV2 (mkIrrgV "کولڻ" "کول") ;
paint_V2A = mkV2 (compoundV "رنگ" do_V2) ; paint_V2A = mkV2 (compoundV "رنگ" do_V2) ;
paper_N = mkN01 "پنو" ; paper_N = mkN01 "پنو" ;
--paris_PN = mkN13 "پیرس" masculine; --paris_PN = mkN13 "پئرس" masculine;
peace_N = mkN13 "امن" ; peace_N = mkN13 "امن" ;
pen_N = mkN14 "قلم" ; pen_N = mkN14 "قلم" ;
planet_N = mkN01 "سیارو" ; planet_N = mkN01 "سيارو" ;
plastic_N = mkN13 "مڙندڙ" ; plastic_N = mkN13 "مڙندڙ" ;
play_V2 = mkV2 (mkV "راند") ; play_V2 = mkV2 (mkV "راند") ;
policeman_N = mkN05 "سپاھی" ; policeman_N = mkN05 "سپاهي" ;
priest_N = mkN05 "پیغمبر" ; priest_N = mkN05 "پريسٽ" ;
--probable_AS = mkAdj1S (regA "امڪان" ) ; --probable_AS = mkAdj1S (regA "امڪان" ) ;
queen_N = mkN09 "شھزادی" ; queen_N = mkN09 "شهزادي" ;
radio_N = mkN01 "باجو" ; radio_N = mkN01 "ريڊيو" ;
--rain_V0 = compoundV "مینھن" ""; --rain_V0 = compoundV "مينهن" "";
red_A = mkAdj1 "ڳاڙھو" ; -- worst case red_A = mkAdj1 "ڳاڙھو" ; -- worst case
religion_N = mkN03 "مزھب" ; religion_N = mkN03 "مذهب" ;
restaurant_N = mkN05 "ھوٽl" ; restaurant_N = mkN05 "هوٽل" ;
river_N = mkN12 "دریا" ; river_N = mkN12 "دريا" ;
rock_N = mkN08 "ٽڪری" ; rock_N = mkN08 "ٽڪري" ;
roof_N = mkN14 "ڇت" ; roof_N = mkN14 "ڇت" ;
rubber_N = mkN13 "ربڙ" ; rubber_N = mkN13 "رٻڙ" ;
run_V = mkV "ڊوڙڻ " ; run_V = mkV "ڊوڙڻ" ;
say_VS = mkV "چوڻ " ; say_VS = mkV "چوڻ" ;
school_N = mkN03 "اسڪول" ; school_N = mkN03 "اسڪول" ;
science_N = mkN13 "ساعنص" ; science_N = mkN13 "سائنس" ;
sea_N = mkN14 "سمنڊ" ; sea_N = mkN14 "سمنڊ" ;
seek_V2 = mkV2 (compoundV "تlاش" do_V2) ; seek_V2 = mkV2 (compoundV "ڳولڻ" do_V2) ;
see_V2 = mkV2 (mkV "ڏسڻ ") ; see_V2 = mkV2 (mkV "ڏسڻ") ;
sell_V = mkV "وڪڻڻ "; sell_V = mkV "وڪڻڻ ";
send_V= mkV "موڪلڻ "; send_V= mkV "موڪلڻ ";
sheep_N = mkN09 "رڍ" ; sheep_N = mkN09 "رڍ" ;
ship_N = mkN03 "جhاز" ; ship_N = mkN03 "جهاز" ;
shirt_N = mkN01 "چولو"; shirt_N = mkN01 "چولو";
shoe_N = mkN01 "جوتو" ; shoe_N = mkN01 "جوتو" ;
shop_N = mkN03 "دوڪان" ; shop_N = mkN03 "هٽ" ;
short_A = mkAdj1 "ننڍو " ; short_A = mkAdj1 "ننڍو" ;
silver_N = mkN14 "چاندی" ; silver_N = mkN14 "چاندي" ;
sister_N = mkN11 "ٻیڻ " ; sister_N = mkN11 "ڀيڻ" ;
sleep_V = mkV "سمھڻ " ; sleep_V = mkV "سمھڻ" ;
small_A = mkAdj1 "ننڍو" ; small_A = mkAdj1 "ننڍو" ;
snake_N = mkN03 "نانگ" ; snake_N = mkN03 "نانگ" ;
sock_N = mkN04 "جوراب" ; sock_N = mkN04 "جوراب" ;
speak_V2 = mkV2 (mkV "غالh۶ڻ ") ; speak_V2 = mkV2 (mkV "ڳالهائڻ") ;
star_N = mkN01 "شروعات" ; star_N = mkN01 "تارو" ;
steel_N = mkN13 "استیل" ; steel_N = mkN13 "اسٽيل" ;
stone_N = mkN05 "پٽر" ; stone_N = mkN05 "پٿر" ;
stove_N = mkN01 "چلھو" ; stove_N = mkN01 "چلھو" ;
student_N = mkN05 "شاگرد" ; student_N = mkN05 "شاگرد" ;
stupid_A = mkAdj1 "چریو" ; stupid_A = mkAdj1 "چريو" ;
sun_N = mkN13 "سج" ; sun_N = mkN13 "سج" ;
switch8off_V2 = mkV2 (mkV "ھلاعت") ; switch8off_V2 = mkV2 (mkV "بند ڪرڻ") ;
switch8on_V2 = mkV2 (compoundV "بند" do_V2) ; switch8on_V2 = mkV2 (mkV "کولڻ") ;
table_N = mkN04 "میز" ; table_N = mkN04 "ميز" ;
talk_V = mkV "غالhاعڻ "; talk_V = mkV "ڳالهائڻ";
teacher_N = mkN05 "استاد" ; teacher_N = mkN05 "استاد" ;
teach_V = mkV "سیکارڻ "; teach_V = mkV "سيکارڻ";
television_N = mkN14 "تیلیوزن" ; television_N = mkN14 "ٽي وي" ;
thick_A = mkAdj1 "موتو" ; thick_A = mkAdj1 "موٽو" ;
thin_A = mkAdj1 "سنھو" ; thin_A = mkAdj1 "سنھو" ;
train_N = mkN09 "ریل" ; train_N = mkN09 "ريل" ;
travel_V = (compoundV "سفر" do_V2) ; travel_V = (compoundV "سفر" do_V2) ;
tree_N = mkN13 "وڻ " ; tree_N = mkN13 "وڻ " ;
trousers_N = mkN01 "پاجامو" ; trousers_N = mkN01 "پاجامو" ;
ugly_A = mkAdj3 "بدسورت" ; ugly_A = mkAdj3 "بدصورت" ;
understand_V = mkV "سمجھڻ "; understand_V = mkV "سمجھڻ ";
university_N = mkN09 "یونیورسٽY" ; university_N = mkN09 "يونيورسٽي" ;
village_N = mkN03 "غوٺ " ; village_N = mkN03 "ڳوٺ" ;
wait_V2 = mkV2 (compoundV "انتظار" (mkV "انتظار")) ; wait_V2 = mkV2 (compoundV "انتظار" (mkV "انتظار")) ;
walk_V = mkV "ھلڻ " ; walk_V = mkV "ھلڻ " ;
warm_A = mkAdj3 "گرم" ; warm_A = mkAdj3 "گرم" ;
war_N = mkN03 "جنگ" ; war_N = mkN03 "جنگ" ;
watch_V2 = mkV2 (mkV "ڍسڻ ") ; watch_V2 = mkV2 (mkV "ڏسڻ") ;
water_N = mkN14 "پاڻی" ; -- not covered masculine ending with y water_N = mkN14 "پاڻي" ; -- not covered masculine ending with y
white_A = mkAdj1 "اڇو" ; white_A = mkAdj1 "اڇو" ;
window_N = mkN09 "دری" ; window_N = mkN09 "دري" ;
wine_N = mkN04 "شراب"; wine_N = mkN04 "شراب";
win_V = mkV"کٽڻ " ; win_V = mkV "کٽڻ" ;
woman_N = mkN09 "استری" ; woman_N = mkN09 "مائي" ;
wonder_VQ = compoundV "ھیران"(mkV "ٿیڻ ") ; wonder_VQ = compoundV "حيران" (mkV "ٿيڻ") ;
wood_N = mkN13 "ڪاٺ" ; wood_N = mkN13 "ڪاٺ" ;
write_V = mkV "لئڻ " ; write_V = mkV "لکڻ" ;
yellow_A = mkAdj1 "پیلو" ; yellow_A = mkAdj1 "پيلو" ;
young_A = mkAdj3 "جوان" ; young_A = mkAdj3 "جوان" ;
do_V2 = mkV2 (mkV "ڪرڻ ") ; do_V2 = mkV2 (mkV "ڪرڻ ") ;
now_Adv = mkAdv "ھاڻی" ; now_Adv = mkAdv "هاڻي" ;
--already_Adv = mkAdj1dv "پھریاعین" ; --already_Adv = mkAdj1dv "پهريائين" ;
song_N = mkN01 "گانو" ; song_N = mkN01 "گانو" ;
-- number_N = mkN03 "انگ" ; -- number_N = mkN03 "انگ" ;
put_V = mkV "وجڻ " ; put_V = mkV "رکڻ" ;
stop_V = mkV "بیھڻ " ; stop_V = mkV "بيهڻ" ;
jump_V = compoundV "ٽپو " (mkV "") ; -- here jump_V = compoundV "ٽپو" (mkV "") ; -- here
left_Ord = {s = "کابو" ; n = singular}; left_Ord = {s = "کاٻو" ; n = singular};
right_Ord = {s= "سڄو" ; n = singular}; right_Ord = {s= "ساڄو" ; n = singular};
--far_Adv = mkAdj1dv "پری" ; --far_Adv = mkAdj1dv "پري" ;
correct_A = mkAdj3 "سھی" ; correct_A = mkAdj3 "صحيح" ;
dry_A = mkAdj3 "ئشڪ" ; dry_A = mkAdj3 "سڪل" ;
dull_A = mkAdj1 "جڏو" ; dull_A = mkAdj1 "جڏو" ;
full_A = mkAdj3 "ٻریل" ; full_A = mkAdj3 "ٻريل" ;
heavy_A = mkAdj1 "گرو" ; heavy_A = mkAdj1 "گرو" ;
near_A = mkAdj1 "ویجھو" ; near_A = mkAdj1 "ويجهو" ;
rotten_A = mkAdj3 "ئراب" ; rotten_A = mkAdj3 "خراب" ;
round_A = mkAdj3 "گول" ; round_A = mkAdj3 "گول" ;
sharp_A = mkAdj3 "تیز" ; sharp_A = mkAdj3 "تيز" ;
smooth_A = mkAdj3 "hموار" ; smooth_A = mkAdj3 "هموار" ;
straight_A = mkAdj1 "سڌو" ; straight_A = mkAdj1 "سڌو" ;
wet_A = mkAdj1 "االو"; wet_A = mkAdj1 "آلو";
wide_A = mkAdj1 "ویڪرو" ; wide_A = mkAdj1 "ويڪرو" ;
animal_N = mkN03 "جانور" ; animal_N = mkN03 "جانور" ;
ashes_N = mkN14 "راک " ; -- FIXME: plural only? ashes_N = mkN14 "راک" ; -- FIXME: plural only?
back_N = mkN09 "پٺ " ; back_N = mkN09 "پٺ" ;
bark_N = mkN13 "ٻ۶ونڪڻ " ; bark_N = mkN13 "ڀؤنڪڻ" ;
belly_N = mkN14 "پیٽ" ; belly_N = mkN14 "پيٽ" ;
blood_N = mkN13 "رت" ; blood_N = mkN13 "رت" ;
bone_N = mkN09 "hڏی" ; bone_N = mkN09 "هڏي" ;
breast_N = mkN09 "ڇاتی" ; breast_N = mkN09 "ڇاتي" ;
cloud_N = mkN03 "جھڙ" ; cloud_N = mkN03 "جھڙ" ;
day_N = mkN13 "ڏینھن" ; day_N = mkN13 "ڏينهن" ;
dust_N = mkN14"ڌوڙ" ; dust_N = mkN14"ڌوڙ" ;
ear_N = mkN03 "ڪن" ; ear_N = mkN03 "ڪن" ;
earth_N = mkN08 "زمین" ; earth_N = mkN08 "زمين" ;
egg_N = mkN01 "بیدو" ; egg_N = mkN01 "بيدو" ;
eye_N = mkN09 "اک " ; eye_N = mkN09 "اک " ;
fat_N = mkN09 "چرٻی" ; fat_N = mkN09 "چرٻي" ;
feather_N = mkN13 "کنڀ" ; feather_N = mkN13 "کنڀ" ;
fingernail_N = mkN03 "نھ " ; fingernail_N = mkN03 "نهن" ;
fire_N = mkN14 "باھ" ; fire_N = mkN14 "باھ" ;
flower_N = mkN03 "گل" ; flower_N = mkN03 "گل" ;
fog_N = mkN13 "ماڪ" ; fog_N = mkN13 "ماڪ" ;
foot_N = mkN03 "پیر" ; -- not properly covered need to be discussed foot_N = mkN03 "پير" ; -- not properly covered need to be discussed
forest_N = mkN01 "ٻیلو" ; forest_N = mkN01 "ٻيلو" ;
grass_N = mkN04 "گاh" ; grass_N = mkN04 "گاھ" ;
--guts_N = mkN "g?ت" ; -- FIXME: no singular --guts_N = mkN "g?ت" ; -- FIXME: no singular
hair_N = mkN03 "وار" ; hair_N = mkN03 "وار" ;
hand_N = mkN03 "hٿ "; hand_N = mkN03 "هٿ";
head_N = mkN01 "مٿو" ; head_N = mkN01 "مٿو" ;
heart_N = mkN09 "دل"; heart_N = mkN09 "دل";
horn_N = mkN13 "سڱ " ; horn_N = mkN13 "سڱ " ;
@@ -270,89 +270,89 @@ concrete LexiconSnd of Lexicon = CatSnd **
nee_N = mkN01 "گوڏو" ; nee_N = mkN01 "گوڏو" ;
leaf_N = mkN03 "پن" ; leaf_N = mkN03 "پن" ;
leg_N = mkN09 "ٽنگ" ; leg_N = mkN09 "ٽنگ" ;
liver_N = mkN03 "جیرو" ; liver_N = mkN03 "جيرو" ;
louse_N = mkN14 "جون۶ " ; louse_N = mkN14 "جونء " ;
mouth_N = mkN03 "وات" ; mouth_N = mkN03 "وات" ;
name_N = mkN01 "نالو"; name_N = mkN01 "نالو";
neck_N = mkN04 "ڪنڌ " ; neck_N = mkN04 "ڪنڌ" ;
night_N = mkN09 "رات" ; night_N = mkN09 "رات" ;
nose_N = mkN03 "نڪ" ; nose_N = mkN03 "نڪ" ;
person_N = mkN03 "شئس" ; person_N = mkN03 "شخص" ;
rain_N = mkN14 "مینhن" ; rain_N = mkN14 "مينهن" ;
road_N = mkN01 "رستو" ; road_N = mkN01 "رستو" ;
root_N = mkN09 "پاڙ" ; root_N = mkN09 "پاڙ" ;
rope_N = mkN09 "رسی"; rope_N = mkN09 "رسي";
salt_N = mkN14 "لوڻ " ; salt_N = mkN14 "لوڻ " ;
sand_N = mkN14 "واری" ; sand_N = mkN14 "واري" ;
seed_N = mkN03 "ٻج" ; seed_N = mkN03 "ٻج" ;
skin_N = mkN09 "چمڙی" ; skin_N = mkN09 "چمڙي" ;
sky_N = mkN03 "ااسمان"; sky_N = mkN03 "آسمان";
smoke_N = mkN13 "دونھو"; -- singular masc nouns ending with aN,wN yet to be implemented smoke_N = mkN13 "دونھو"; -- singular masc nouns ending with aN,wN yet to be implemented
snow_N = mkN13 "برف" ; snow_N = mkN13 "برف" ;
stick_N = mkN09 "ڏنڊی" ; stick_N = mkN09 "ڏنڊي" ;
tail_N = mkN13 "پڇ " ; tail_N = mkN13 "پڇ" ;
tongue_N = mkN08 "زبان" ; tongue_N = mkN08 "زبان" ;
tooth_N = mkN03 "ڏاند"; tooth_N = mkN03 "ڏاند";
wife_N = mkN09 "زال" ; wife_N = mkN09 "زال" ;
wind_N = mkN08 "ھوا" ; wind_N = mkN08 "ھوا" ;
wing_N = mkN05 "پر" ; wing_N = mkN05 "پر" ;
worm_N = mkN01 "ڪینعون" ; worm_N = mkN01 "ڪينئون" ;
year_N = mkN03 "سال" ; year_N = mkN03 "سال" ;
blow_V = mkV "وڄڻ " ; blow_V = mkV "وڄڻ" ;
breathe_V = compoundV "ساh " (mkV "K'ڻڻ " ) ; breathe_V = compoundV "ساھ" (mkV "کڻڻ" ) ;
burn_V = mkV "سڙڻ " ; burn_V = mkV "سڙڻ" ;
dig_V = mkV "K'ٽڻ " ; dig_V = mkV "کوٽڻ" ;
fall_V = mkV "ڪرڻ " ; fall_V = mkV "ڪرڻ" ;
float_V = mkV "ترڻ " ; float_V = mkV "ترڻ" ;
flow_V = mkV "وھڻ " ; flow_V = mkV "وھڻ" ;
fly_V = mkV "اڏڻ "; fly_V = mkV "اڏامڻ";
freeze_V = mkV "ڄمڻ " ; freeze_V = mkV "ڄمڻ" ;
give_V3= mkV3 (mkV "ڏیڻ ") "" "" ; -- here give_V3= mkV3 (mkV "ڏيڻ ") "" "" ; -- here
laugh_V = mkV "کلڻ " ; laugh_V = mkV "کلڻ" ;
lie_N = mkN01 "ڪوڙ" ; lie_N = mkN01 "ڪوڙ" ;
lie_V = compoundV "ڪوڙ " ( mkV "غالhاعڻ ") ; lie_V = compoundV "ڪوڙ" ( mkV "ڳالهائڻ") ;
play_V = mkV "کیڍڻ " ; play_V = mkV "کيڏڻ" ;
sew_V = mkV "سبڻ " ; sew_V = mkV "سبڻ" ;
sing_V = mkV "گا۶ڻ " ; sing_V = mkV "ڳائڻ" ;
sit_V = mkV "ویھڻ "; sit_V = mkV "ويهڻ";
smell_V = mkV "سنگڻ " ; smell_V = mkV "سنگهڻ" ;
spit_V = mkV "ٿڪڻ " ; spit_V = mkV "ٿڪڻ" ;
stand_V = mkV "باھڻ "; stand_V = mkV "بيھڻ";
swell_V = mkV "سبڻ" ; swell_V = mkV "سبڻ" ;
swim_V = mkV "ترڻ " ; swim_V = mkV "ترڻ" ;
think_V = mkV "سوچڻ " ; think_V = mkV "سوچڻ" ;
turn_V = mkV "مڙڻ "; turn_V = mkV "مڙڻ";
vomit_V = compoundV "الٽی" (mkV "ڪرڻ ") ; vomit_V = compoundV "الٽي" (mkV "ڪرڻ") ;
bite_V2 = mkV2 (mkV "چئ پا۶ڻ ") ; bite_V2 = mkV2 (mkV "چڪ پائڻ") ;
count_V = mkV "غڻڻ "; count_V = mkV "ڳڻڻ";
cut_V = mkV "ڪٽڻ "; cut_V = mkV "ڪٽڻ";
fear_V = mkV "ڊڄڻ " ; fear_V = mkV "ڊڄڻ" ;
fight_V = mkV "وڙھڻ " ; fight_V = mkV "وڙھڻ" ;
hit_V = mkV "مارڻ " ; hit_V = mkV "مارڻ" ;
hold_V = mkV "جھلڻ " ; hold_V = mkV "جھلڻ" ;
hunt_V2 = mkV2 (compoundV "شڪار" do_V2); hunt_V2 = mkV2 (compoundV "شڪار" do_V2);
kill_V = mkV "مارن" ; kill_V = mkV "مارڻ" ;
pull_V = mkV "چڪڻ "; pull_V = mkV "ڇڪڻ";
push_V = mkV "ڌڪڻ " ; push_V = mkV "ڌڪڻ" ;
rub_V = mkV "مھٽڻ " ; rub_V = mkV "مھٽڻ" ;
scratch_V= mkV "ئرچڻ " ; scratch_V= mkV "کرچڻ" ;
split_V= mkV "ھارڻ " ; split_V= mkV "ھارڻ" ;
--squeeze_V2 = dirV2 (regV "سq?ععزع") ; --squeeze_V2 = dirV2 (regV "سq?ععزع") ;
--stab_V2 = dirV2 (regDuplV "ستاب") ; --stab_V2 = dirV2 (regDuplV "ستاب") ;
suck_V = mkV "چوسڻ " ; suck_V = mkV "چوسڻ" ;
throw_V = mkV "اڇلڻ " ; throw_V = mkV "اڇلڻ" ;
tie_V = mkV "ٻڌڻ " ; tie_V = mkV "ٻڌڻ" ;
wash_V = mkV "ڌو۶ڻ" ; wash_V = mkV "ڌوئڻ" ;
wipe_V= mkV "اگھڻ "; wipe_V= mkV "اگھڻ";
--other_A = regA "ٻیا"; --other_A = regA "ٻيا";
grammar_N = mkN03 "گردان" ; grammar_N = mkN03 "گردان" ;
language_N = mkN09 "ٻولی" ; language_N = mkN09 "ٻولي" ;
rule_N = mkN03 "اصول" ; rule_N = mkN03 "اصول" ;
---- added 4/6/2007 ---- added 4/6/2007
john_PN = mkPN "جان" masculine ; john_PN = mkPN "جان" masculine ;
question_N = mkN03 "سواl" ; question_N = mkN03 "سوال" ;
--ready_A = regA "تیار" ; --ready_A = regA "تيار" ;
reason_N = mkN03 "سبب" ; reason_N = mkN03 "سبب" ;
today_Adv = mkAdv "اڄ " ; today_Adv = mkAdv "اڄ " ;
uncertain_A = mkAdj3 ["اچانڪ"] ; uncertain_A = mkAdj3 ["اچانڪ"] ;

View File

@@ -28,10 +28,10 @@ lin num x0 =
} ; } ;
oper mkOrd : Str -> Str = oper mkOrd : Str -> Str =
\s -> case s of { \s -> case s of {
"ھڪ" => "پھریون"; "ھڪ" => "پھريون";
"ٻ" => "ٻیون"; "ٻ" => "ٻيون";
ی" => "ٽیون"; ي" => "ٽيون";
"چار" => "چواٿون"; "چار" => "چوٿون";
_ => s ++ "وN" _ => s ++ "وN"
}; };
-- {s = \\_ => x0.s ; n = x0.n} ; -- {s = \\_ => x0.s ; n = x0.n} ;
@@ -42,45 +42,45 @@ oper mkNum : Str -> Str -> DSize -> LinDigit =
{s = table {unit => do ; ten => bis } ; {s = table {unit => do ; ten => bis } ;
size = sz ; n = Pl} ; size = sz ; n = Pl} ;
lin n2 = mkNum "ٻ" "ویھ" r2 ; lin n2 = mkNum "ٻ" "ويھ" r2 ;
lin n3 = mkNum "ٽی" "ٽیھ" r3 ; lin n3 = mkNum "ٽي" "ٽيھ" r3 ;
lin n4 = mkNum "چار" "چاlیھ" r4 ; lin n4 = mkNum "چار" "چاlيھ" r4 ;
lin n5 = mkNum "پنج" "پنجاھ" r5 ; lin n5 = mkNum "پنج" "پنجاھ" r5 ;
lin n6 = mkNum "ڇھ" "سٺھ " r6 ; lin n6 = mkNum "ڇھ" "سٺھ " r6 ;
lin n7 = mkNum "ست" "ستر" r7; lin n7 = mkNum "ست" "ستر" r7;
lin n8 = mkNum "اٺ '" "اسی" r8; lin n8 = mkNum "اٺ '" "اسي" r8;
lin n9 = mkNum "نو" "نوی" r9 ; lin n9 = mkNum "نو" "نوي" r9 ;
oper mkR : Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> DSize => Str = \a1 -> \a2 -> \a3 -> \a4 -> \a5 -> \a6 -> \a7 -> \a8 -> \a9 -> table { oper mkR : Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> DSize => Str = \a1 -> \a2 -> \a3 -> \a4 -> \a5 -> \a6 -> \a7 -> \a8 -> \a9 -> table {
sg => a1 + "نھن" ; sg => a1 + "نھن" ;
r2 => a2 + "یھ " ; r2 => a2 + "يھ " ;
r3 => a3 + "یھ " ; r3 => a3 + "يھ " ;
r4 => a4 + "اlیھ " ; r4 => a4 + "اlيھ " ;
r5 => a5 + "ونجاھ " ; r5 => a5 + "ونجاھ " ;
r6 => a6 + "ھٺ" ; r6 => a6 + "ھٺ" ;
r7 => a7 + "تر" ; r7 => a7 + "تر" ;
r8 => a8 + "اسی" ; r8 => a8 + "اسي" ;
r9 => a9 + "انوی" r9 => a9 + "انوي"
} ; } ;
oper rows : DSize => DSize => Str = table { oper rows : DSize => DSize => Str = table {
sg => mkR "یار " "ایڪ " "اڪٽ" "ایڪیت " "ایڪ" "ایڪ" "ایڪ" "ایڪ" "ایڪ" ; sg => mkR "يار " "ايڪ " "اڪٽ" "ايڪيت " "ايڪ" "ايڪ" "ايڪ" "ايڪ" "ايڪ" ;
r2 => mkR "ٻای " "ٻاو" "ٻٽ" "ٻا۶ت" "ٻا" "ٻا" "ٻاھ " "ٻیی" "ٻیی" ; r2 => mkR "ٻاي " "ٻاو" "ٻٽ" "ٻا۶ت" "ٻا" "ٻا" "ٻاھ " "ٻيي" "ٻيي" ;
r3 => mkR "ٽیر " "ٽیو " "ٽیٽ" "ٽیت" "ٽی" "ٽی" "ٽیھ " "ٽی" "تی" ; r3 => mkR "ٽير " "ٽيو " "ٽيٽ" "ٽيت" "ٽي" "ٽي" "ٽيھ " "ٽي" "تي" ;
r4 => mkR "چوڏ " "چوو " "چوٽ" "چو۶ت " "چو" "چو" "چوھ " "چور " "چور" ; r4 => mkR "چوڏ " "چوو " "چوٽ" "چو۶ت " "چو" "چو" "چوھ " "چور " "چور" ;
r5 => mkR "پنڌر " "پنجو " "پنجٽ" "پنجیت" "پنج" "پنج" "پنجھ" "پنج" "پنج" ; r5 => mkR "پنڌر " "پنجو " "پنجٽ" "پنجيت" "پنج" "پنج" "پنجھ" "پنج" "پنج" ;
r6 => mkR "سور " "ڇو" "ڇٽی" "ڇا۶ت" "ڇا" "ڇا" "ڇاھ" "ڇ" "ڇ" ; r6 => mkR "سور " "ڇو" "ڇٽي" "ڇا۶ت" "ڇا" "ڇا" "ڇاھ" "ڇ" "ڇ" ;
r7 => mkR "ستر" "ستاو" "ستٽ " "ستیت" "ست" "ست" "ست" "ست" "ست" ; r7 => mkR "ستر" "ستاو" "ستٽ " "ستيت" "ست" "ست" "ست" "ست" "ست" ;
r8 => mkR "ارڙ" "اٺاو " "اٺٽ" "اٺی" "اٺ" "اٺ" "اٺا" "اٺ" "اٺ" ; r8 => mkR "ارڙ" "اٺاو " "اٺٽ" "اٺي" "اٺ" "اٺ" "اٺا" "اٺ" "اٺ" ;
r9 => table {sg => "اڻویھ " ; r2 => "اڻٽیھ " ; r3 => "اڻیتاlیھ " ; r9 => table {sg => "اڻويھ " ; r2 => "اڻٽيھ " ; r3 => "اڻيتاlيھ " ;
r4 => "اڻونجاھ " ; r5 => "اڻھٺ " ; r6 => "اڻتر " ; r4 => "اڻونجاھ " ; r5 => "اڻھٺ " ; r6 => "اڻتر " ;
r7 => "اڻاسی " ; r7 => "اڻاسي " ;
r8 => "اڻانوی " ; r9 => "نوانوی" } r8 => "اڻانوي " ; r9 => "نوانوي" }
} ; } ;
oper ss : Str -> {s : Str} = \s -> {s = s} ; oper ss : Str -> {s : Str} = \s -> {s = s} ;
lin pot01 = {s = table {unit => "ھڪ" ; _ => "دمی" } ; size = sg ; n = Sg} ; lin pot01 = {s = table {unit => "ھڪ" ; _ => "دمي" } ; size = sg ; n = Sg} ;
lin pot0 d = d ; lin pot0 d = d ;
lin pot110 = {s = "ڏھ " ; size = less100 ; n = Pl} ; lin pot110 = {s = "ڏھ " ; size = less100 ; n = Pl} ;
lin pot111 = {s = rows ! sg ! sg ; size = less100 ; n = Pl} ; lin pot111 = {s = rows ! sg ! sg ; size = less100 ; n = Pl} ;
@@ -90,7 +90,7 @@ lin pot0as1 n = {s = n.s ! unit ; size = table {sg => singl ; _ => less100} ! n.
lin pot1 d = {s = d.s ! ten ; size = less100 ; n = d.n} ; lin pot1 d = {s = d.s ! ten ; size = less100 ; n = d.n} ;
lin pot1plus d e = {s = rows ! e.size ! d.size ; size = less100 ; n = d.n} ; lin pot1plus d e = {s = rows ! e.size ! d.size ; size = less100 ; n = d.n} ;
lin pot1as2 n = {s = n.s ; s2 = "دمی" ; size = n.size ; n = n.n} ; lin pot1as2 n = {s = n.s ; s2 = "دمي" ; size = n.size ; n = n.n} ;
lin pot2 d = {s = (mksau (d.s ! unit) d.size) ; lin pot2 d = {s = (mksau (d.s ! unit) d.size) ;
s2 = d.s ! unit ++ "lک " ; size = more100 ; n = d.n} ; s2 = d.s ! unit ++ "lک " ; size = more100 ; n = d.n} ;
lin pot2plus d e = lin pot2plus d e =

View File

@@ -7,14 +7,14 @@ concrete QuestionSnd of Question = CatSnd ** open ResSnd, Prelude in {
QuestCl cl = { QuestCl cl = {
s = \\t,p,qf => case qf of { s = \\t,p,qf => case qf of {
QDir => cl.s ! t ! p ! OQuest; QDir => cl.s ! t ! p ! OQuest;
QIndir => "جیڪڏھن" ++ cl.s ! t! p ! ODir QIndir => "جيڪڏھن" ++ cl.s ! t! p ! ODir
} }
}; };
QuestVP qp vp = QuestVP qp vp =
let cl = mkSClause ("") (Ag qp.g qp.n Pers3_Near) vp; let cl = mkSClause ("") (Ag qp.g qp.n Pers3_Near) vp;
qp1 = qp.s ! Dir; qp1 = qp.s ! Dir;
qp2 = qp.s ! Obl ++ "جی" qp2 = qp.s ! Obl ++ "جي"
in { s = \\t,p,o => case t of { in { s = \\t,p,o => case t of {
VPImpPast => case vp.subj of {VIntrans => qp1 ++ cl.s ! t ! p ! ODir; _ => qp2 ++ cl.s ! t ! p ! ODir}; VPImpPast => case vp.subj of {VIntrans => qp1 ++ cl.s ! t ! p ! ODir; _ => qp2 ++ cl.s ! t ! p ! ODir};
_ => qp1 ++ cl.s ! t ! p ! ODir _ => qp1 ++ cl.s ! t ! p ! ODir
@@ -22,7 +22,7 @@ concrete QuestionSnd of Question = CatSnd ** open ResSnd, Prelude in {
}; };
QuestSlash ip slash = QuestSlash ip slash =
let ip1 = ip.s ! Dir; let ip1 = ip.s ! Dir;
ip2 = ip.s ! Obl ++ "جی" ip2 = ip.s ! Obl ++ "جي"
in { in {
s = \\t,p,o => case t of { s = \\t,p,o => case t of {
VPImpPast => ip2 ++ slash.s ! t ! p ! ODir; VPImpPast => ip2 ++ slash.s ! t ! p ! ODir;

View File

@@ -7,12 +7,12 @@ concrete RelativeSnd of Relative = CatSnd ** open ResSnd in {
RelCl cl = { RelCl cl = {
s = \\t,p,o,agr => case <t,giveNumber agr,giveGender agr> of { s = \\t,p,o,agr => case <t,giveNumber agr,giveGender agr> of {
<VPImpPast,Sg,_> => "جھنکی" ++ cl.s ! t ! p ! o ; <VPImpPast,Sg,_> => "جھنکي" ++ cl.s ! t ! p ! o ;
<VPImpPast,Pl,_> => "جھنجو" ++ cl.s ! t ! p ! o ; <VPImpPast,Pl,_> => "جھنجو" ++ cl.s ! t ! p ! o ;
<_,Sg,Masc> => "جیھڙو" ++ cl.s ! t ! p ! o ; <_,Sg,Masc> => "جيھڙو" ++ cl.s ! t ! p ! o ;
<_,Sg,Fem> => "جیھڙا" ++ cl.s ! t ! p ! o ; <_,Sg,Fem> => "جيھڙا" ++ cl.s ! t ! p ! o ;
<_,Pl,Masc> => "جیھڙا" ++ cl.s ! t ! p ! o ; <_,Pl,Masc> => "جيھڙا" ++ cl.s ! t ! p ! o ;
<_,Pl,Fem> => "جیھڙیون" ++ cl.s ! t ! p ! o <_,Pl,Fem> => "جيھڙيون" ++ cl.s ! t ! p ! o
}; };
c = Dir c = Dir
} ; } ;
@@ -58,29 +58,29 @@ concrete RelativeSnd of Relative = CatSnd ** open ResSnd in {
ResSnd.Dir => "جھڙا" ; ResSnd.Dir => "جھڙا" ;
ResSnd.Obl => "جنھن" ; ResSnd.Obl => "جنھن" ;
ResSnd.Voc => "جھڙی" ; ResSnd.Voc => "جھڙي" ;
ResSnd.Abl => "جھڙی" ResSnd.Abl => "جھڙي"
}; };
Fem => table { Fem => table {
ResSnd.Dir => "جھڙی" ; ResSnd.Dir => "جھڙي" ;
ResSnd.Obl => "جنھن" ; ResSnd.Obl => "جنھن" ;
ResSnd.Voc => "جھڙی" ; ResSnd.Voc => "جھڙي" ;
ResSnd.Abl => "جھڙی" ResSnd.Abl => "جھڙي"
} }
}; };
Pl => table { Pl => table {
Masc => table { Masc => table {
ResSnd.Dir => "جھڙی" ; ResSnd.Dir => "جھڙي" ;
ResSnd.Obl => "جھڙی" ; ResSnd.Obl => "جھڙي" ;
ResSnd.Voc => "جھڙی" ; ResSnd.Voc => "جھڙي" ;
ResSnd.Abl => "جھڙی" ResSnd.Abl => "جھڙي"
}; };
Fem => table { Fem => table {
ResSnd.Dir => "جھڙی" ; ResSnd.Dir => "جھڙي" ;
ResSnd.Obl => "جھڙی" ; ResSnd.Obl => "جھڙي" ;
ResSnd.Voc => "جھڙی" ; ResSnd.Voc => "جھڙي" ;
ResSnd.Abl => "جھڙی" ResSnd.Abl => "جھڙي"
} }
} }
}; };

View File

@@ -51,10 +51,10 @@ resource ResSnd = ParamX ** open Prelude,Predef in {
mkAdj1 : Str -> Adjective1 ; mkAdj1 : Str -> Adjective1 ;
mkAdj1 nyrw = let end = last (nyrw) ; mkAdj1 nyrw = let end = last (nyrw) ;
--nyr = if_then_else Str (eq end "ی") nyrw (tk 1 nyrw) --nyr = if_then_else Str (eq end "ي") nyrw (tk 1 nyrw)
nyr = (tk 1 nyrw) nyr = (tk 1 nyrw)
in adj1 (nyrw) (nyr+"ی") ( nyr+"ا") (nyr+"ا") (nyrw) (nyr+"ی") (nyr+"ی") (nyr+"ی") in adj1 (nyrw) (nyr+"ي") ( nyr+"ا") (nyr+"ا") (nyrw) (nyr+"ي") (nyr+"ي") (nyr+"ي")
(nyr+"ا") (nyr+"ن") ( nyr+"ا") (nyr+"ا") (nyr+"یون") (nyr+"ین") (nyr+"ین") (nyr+"یون") ; (nyr+"ا") (nyr+"ن") ( nyr+"ا") (nyr+"ا") (nyr+"يون") (nyr+"ين") (nyr+"ين") (nyr+"يون") ;
@@ -68,7 +68,7 @@ resource ResSnd = ParamX ** open Prelude,Predef in {
mkAdj2 : Str -> Adjective1 ; mkAdj2 : Str -> Adjective1 ;
mkAdj2 young = adj1 (young) (young) (young ) (young) (young) (young) (young) (young) mkAdj2 young = adj1 (young) (young) (young ) (young) (young) (young) (young) (young)
(young) (young) (young ) (young) (young+"ین") (young+"ین") (young+"ین") (young+"ین") ; (young) (young) (young ) (young) (young+"ين") (young+"ين") (young+"ين") (young+"ين") ;
@@ -115,7 +115,7 @@ resource ResSnd = ParamX ** open Prelude,Predef in {
NPC c => ppf ! c; NPC c => ppf ! c;
NPObj => ppf ! Obl ; NPObj => ppf ! Obl ;
NPErg => case (fromAgr a).p of { NPErg => case (fromAgr a).p of {
(Pers3_Near|Pers3_Distant) => ppf ! Dir ++ "جی" ; (Pers3_Near|Pers3_Distant) => ppf ! Dir ++ "جي" ;
_ => ppf ! Dir _ => ppf ! Dir
} }
} ; } ;
@@ -192,86 +192,86 @@ resource ResSnd = ParamX ** open Prelude,Predef in {
copula : CTense -> Number -> PPerson -> Gender -> Str = \t,n,p,g -> copula : CTense -> Number -> PPerson -> Gender -> Str = \t,n,p,g ->
case <t,n,p,g> of { case <t,n,p,g> of {
<CPresent,Sg,Pers1,Masc > => "ٿو"; <CPresent,Sg,Pers1,Masc > => "ٿو";
<CPresent,Sg,Pers1,Fem > => "ٿی" ; <CPresent,Sg,Pers1,Fem > => "ٿي" ;
<CPresent,Sg,Pers2_Casual,Masc > => "ٿو" ; <CPresent,Sg,Pers2_Casual,Masc > => "ٿو" ;
<CPresent,Sg,Pers2_Casual,Fem > => "ٿی" ; <CPresent,Sg,Pers2_Casual,Fem > => "ٿي" ;
<CPresent,Sg,Pers2_Respect,Masc > => "ٿا" ; <CPresent,Sg,Pers2_Respect,Masc > => "ٿا" ;
<CPresent,Sg,Pers2_Respect,Fem > => "ٿیون" ; <CPresent,Sg,Pers2_Respect,Fem > => "ٿيون" ;
<CPresent,Sg,Pers3_Near,Masc > => "ٿو" ; <CPresent,Sg,Pers3_Near,Masc > => "ٿو" ;
<CPresent,Sg,Pers3_Near,Fem > => "ٿی" ; <CPresent,Sg,Pers3_Near,Fem > => "ٿي" ;
<CPresent,Sg,Pers3_Distant,Masc > => "ٿو" ; <CPresent,Sg,Pers3_Distant,Masc > => "ٿو" ;
<CPresent,Sg,Pers3_Distant,Fem > => "ٿی" ; <CPresent,Sg,Pers3_Distant,Fem > => "ٿي" ;
<CPresent,Pl,Pers1,Masc > => "ٿا" ; <CPresent,Pl,Pers1,Masc > => "ٿا" ;
<CPresent,Pl,Pers1,Fem > => "ٿیون" ; <CPresent,Pl,Pers1,Fem > => "ٿيون" ;
<CPresent,Pl,Pers2_Casual,Masc > => "ٿا" ; <CPresent,Pl,Pers2_Casual,Masc > => "ٿا" ;
<CPresent,Pl,Pers2_Casual,Fem > => "ٿی" ; <CPresent,Pl,Pers2_Casual,Fem > => "ٿي" ;
<CPresent,Pl,Pers2_Respect,Masc > => "ٿا" ; <CPresent,Pl,Pers2_Respect,Masc > => "ٿا" ;
<CPresent,Pl,Pers2_Respect,Fem > => "ٿیون" ; <CPresent,Pl,Pers2_Respect,Fem > => "ٿيون" ;
<CPresent,Pl,Pers3_Near,Masc > => "ٿا" ; <CPresent,Pl,Pers3_Near,Masc > => "ٿا" ;
<CPresent,Pl,Pers3_Near,Fem > => "ٿیون" ; <CPresent,Pl,Pers3_Near,Fem > => "ٿيون" ;
<CPresent,Pl,Pers3_Distant,Masc > => "ٿا" ; <CPresent,Pl,Pers3_Distant,Masc > => "ٿا" ;
<CPresent,Pl,Pers3_Distant,Fem > => "ٿیون" ; <CPresent,Pl,Pers3_Distant,Fem > => "ٿيون" ;
<CPast,Sg,Pers1,Masc > => "ھیم" ; <CPast,Sg,Pers1,Masc > => "ھيم" ;
<CPast,Sg,Pers1,Fem > => "ھیم" ; <CPast,Sg,Pers1,Fem > => "ھيم" ;
<CPast,Sg,Pers2_Casual,Masc > => "ھ۶ین" ; <CPast,Sg,Pers2_Casual,Masc > => "ھئين" ;
<CPast,Sg,Pers2_Casual,Fem > => "ھ۶ین" ; <CPast,Sg,Pers2_Casual,Fem > => "ھئين" ;
<CPast,Sg,Pers2_Respect,Masc > => "ھ۶و" ; <CPast,Sg,Pers2_Respect,Masc > => "ھئو" ;
<CPast,Sg,Pers2_Respect,Fem > => "ھ۶یون" ; <CPast,Sg,Pers2_Respect,Fem > => "ھئيون" ;
<CPast,Sg,Pers3_Near,_ > => "اھی" ; <CPast,Sg,Pers3_Near,_ > => "اھي" ;
-- <CPast,Sg,Pers3_Near,Fem > => "اھ۶" ; -- <CPast,Sg,Pers3_Near,Fem > => "اھئ" ;
<CPast,Sg,Pers3_Distant,Masc > => "ھیو" ; <CPast,Sg,Pers3_Distant,Masc > => "ھيو" ;
<CPast,Sg,Pers3_Distant,Fem > => "ھ۶ی" ; <CPast,Sg,Pers3_Distant,Fem > => "ھئي" ;
<CPast,Pl,Pers1,Masc > => "ھ۶اسین" ; <CPast,Pl,Pers1,Masc > => "ھئاسين" ;
<CPast,Pl,Pers1,Fem > => "ھیوسین" ; <CPast,Pl,Pers1,Fem > => "ھيوسين" ;
<CPast,Pl,Pers2_Casual,_ > => "ھ۶ا" ; <CPast,Pl,Pers2_Casual,_ > => "ھئا" ;
<CPast,Pl,Pers2_Respect,_ > => "ھیو" ; <CPast,Pl,Pers2_Respect,_ > => "ھيو" ;
<CPast,Pl,Pers3_Near,Masc > => "ھ۶ا" ; <CPast,Pl,Pers3_Near,Masc > => "ھئا" ;
<CPast,Pl,Pers3_Near,Fem > => "ھ۶یون" ; <CPast,Pl,Pers3_Near,Fem > => "ھئيون" ;
<CPast,Pl,Pers3_Distant,Masc > => "ھ۶ا" ; <CPast,Pl,Pers3_Distant,Masc > => "ھئا" ;
<CPast,Pl,Pers3_Distant,Fem > => "ھیون" ; <CPast,Pl,Pers3_Distant,Fem > => "ھيون" ;
<CFuture,Sg,Pers1,Masc > => "ھوندس" ; <CFuture,Sg,Pers1,Masc > => "ھوندس" ;
<CFuture,Sg,Pers1,Fem > => "ھوندس" ; <CFuture,Sg,Pers1,Fem > => "ھوندس" ;
<CFuture,Sg,Pers2_Casual,Masc > => "ھوندین" ; <CFuture,Sg,Pers2_Casual,Masc > => "ھوندين" ;
<CFuture,Sg,Pers2_Casual,Fem > => "ھوندین" ; <CFuture,Sg,Pers2_Casual,Fem > => "ھوندين" ;
<CFuture,Sg,Pers2_Respect,Masc > => "ھوندو۶ " ; <CFuture,Sg,Pers2_Respect,Masc > => "ھوندؤ" ;
<CFuture,Sg,Pers2_Respect,Fem > => "ھوندو۶ " ; <CFuture,Sg,Pers2_Respect,Fem > => "ھوندؤ" ;
<CFuture,Sg,Pers3_Near,Masc > => "ھوندو " ; <CFuture,Sg,Pers3_Near,Masc > => "ھوندو" ;
<CFuture,Sg,Pers3_Near,Fem > => "ھوندی" ; <CFuture,Sg,Pers3_Near,Fem > => "ھوندي" ;
<CFuture,Sg,Pers3_Distant,Masc > => "ھوندو " ; <CFuture,Sg,Pers3_Distant,Masc > => "ھوندو" ;
<CFuture,Sg,Pers3_Distant,Fem > => "ھوندی" ; <CFuture,Sg,Pers3_Distant,Fem > => "ھوندي" ;
<CFuture,Pl,Pers1,Masc > => "ھونداسین" ; <CFuture,Pl,Pers1,Masc > => "ھونداسين" ;
<CFuture,Pl,Pers1,Fem > => "ھوندیونسین" ; <CFuture,Pl,Pers1,Fem > => "ھونديونسين" ;
<CFuture,Pl,Pers2_Casual,Masc > => "ھوندو۶ " ; <CFuture,Pl,Pers2_Casual,Masc > => "ھوندؤ" ;
<CFuture,Pl,Pers2_Casual,Fem > => "ھوندیوین" ; <CFuture,Pl,Pers2_Casual,Fem > => "ھونديوين" ;
<CFuture,Pl,Pers2_Respect,Masc > => "ھوندو۶ " ; <CFuture,Pl,Pers2_Respect,Masc > => "ھوندؤ" ;
<CFuture,Pl,Pers2_Respect,Fem > => "ھوندیوین" ; <CFuture,Pl,Pers2_Respect,Fem > => "ھونديوين" ;
<CFuture,Pl,Pers3_Near,Masc > => "ھوندا" ; <CFuture,Pl,Pers3_Near,Masc > => "ھوندا" ;
<CFuture,Pl,Pers3_Near,Fem > => "ھوندیون" ; <CFuture,Pl,Pers3_Near,Fem > => "ھونديون" ;
<CFuture,Pl,Pers3_Distant,Masc > => "ھوندا" ; <CFuture,Pl,Pers3_Distant,Masc > => "ھوندا" ;
<CFuture,Pl,Pers3_Distant,Fem > => "ھوندیون" ; <CFuture,Pl,Pers3_Distant,Fem > => "ھونديون" ;
<CContinuous,Sg,Pers1,Masc > => "اھیان" ; <CContinuous,Sg,Pers1,Masc > => "آھيان" ;
<CContinuous,Sg,Pers1,Fem > => "اھیان" ; <CContinuous,Sg,Pers1,Fem > => "آھيان" ;
<CContinuous,Sg,Pers2_Casual,Masc > => "اھین" ; <CContinuous,Sg,Pers2_Casual,Masc > => "آھين" ;
<CContinuous,Sg,Pers2_Casual,Fem > => "اھین" ; <CContinuous,Sg,Pers2_Casual,Fem > => "آھين" ;
<CContinuous,Sg,Pers2_Respect,Masc > => "اھیو " ; <CContinuous,Sg,Pers2_Respect,Masc > => "آھيو " ;
<CContinuous,Sg,Pers2_Respect,Fem > => "اھیو " ; <CContinuous,Sg,Pers2_Respect,Fem > => "آھيو " ;
<CContinuous,Sg,Pers3_Near,Masc > => "اھی " ; <CContinuous,Sg,Pers3_Near,Masc > => "آھي " ;
<CContinuous,Sg,Pers3_Near,Fem > => "اھی" ; <CContinuous,Sg,Pers3_Near,Fem > => "آھي" ;
<CContinuous,Sg,Pers3_Distant,Masc > => "اھی " ; <CContinuous,Sg,Pers3_Distant,Masc > => "آھي " ;
<CContinuous,Sg,Pers3_Distant,Fem > => "اھی" ; <CContinuous,Sg,Pers3_Distant,Fem > => "آھي" ;
<CContinuous,Pl,Pers1,Masc > => "اھیون" ; <CContinuous,Pl,Pers1,Masc > => "آھيون" ;
<CContinuous,Pl,Pers1,Fem > => "اھیون" ; <CContinuous,Pl,Pers1,Fem > => "آھيون" ;
<CContinuous,Pl,Pers2_Casual,Masc > => "اھیو " ; <CContinuous,Pl,Pers2_Casual,Masc > => "آھيو " ;
<CContinuous,Pl,Pers2_Casual,Fem > => "اھیو " ; <CContinuous,Pl,Pers2_Casual,Fem > => "آھيو " ;
<CContinuous,Pl,Pers2_Respect,Masc > => "اھیو " ; <CContinuous,Pl,Pers2_Respect,Masc > => "آھيو " ;
<CContinuous,Pl,Pers2_Respect,Fem > => "اھیو " ; <CContinuous,Pl,Pers2_Respect,Fem > => "آھيو " ;
<CContinuous,Pl,Pers3_Near,Masc > => "اھن" ; <CContinuous,Pl,Pers3_Near,Masc > => "آھن" ;
<CContinuous,Pl,Pers3_Near,Fem > => "اھن" ; <CContinuous,Pl,Pers3_Near,Fem > => "آھن" ;
<CContinuous,Pl,Pers3_Distant,Masc > => "اھن" ; <CContinuous,Pl,Pers3_Distant,Masc > => "آھن" ;
<CContinuous,Pl,Pers3_Distant,Fem > => "اھن" <CContinuous,Pl,Pers3_Distant,Fem > => "آھن"
} ; } ;
@@ -295,7 +295,7 @@ case <t,n,p,g> of {
| VPPerfPresCont | VPPerfPresCont
| VPPerfPastCont | VPPerfPastCont
| VPPerfFutCont | VPPerfFutCont
| VPSubj -- subj na "I مای گo" | VPSubj -- subj na "I ماي گo"
; ;
VPHForm = VPHForm =
@@ -363,20 +363,20 @@ case <t,n,p,g> of {
------------------------ ------------------------
raha : Gender -> Number -> Str = \g,n -> raha : Gender -> Number -> Str = \g,n ->
(mkAdj1 "ریا").s ! n ! g ! Dir ; (mkAdj1 "ريا").s ! n ! g ! Dir ;
rahanDa : Gender -> Number -> Str = \g,n -> rahanDa : Gender -> Number -> Str = \g,n ->
(mkAdj1 "رھندا").s ! n ! g ! Dir ; (mkAdj1 "رھندا").s ! n ! g ! Dir ;
pya : Gender -> Number -> Str = \g,n -> pya : Gender -> Number -> Str = \g,n ->
(mkAdj1 "پیا").s ! n ! g ! Dir ; (mkAdj1 "پيا").s ! n ! g ! Dir ;
cka : Gender -> Number -> Str = \g,n -> cka : Gender -> Number -> Str = \g,n ->
(mkAdj1 "گیا").s ! n ! g ! Dir ; (mkAdj1 "گيا").s ! n ! g ! Dir ;
hw : PPerson -> Number -> Str = \pp,n -> hw : PPerson -> Number -> Str = \pp,n ->
case <pp,n> of { case <pp,n> of {
<Pers1,_> => "hwwاN"; <Pers1,_> => "hwwاN";
<Pers2_Casual,Sg> => "hwwیN"; <Pers2_Casual,Sg> => "hwwيN";
<Pers2_Casual,Pl> => "hww"; <Pers2_Casual,Pl> => "hww";
<Pers2_Respect,_> => "hww"; <Pers2_Respect,_> => "hww";
<Pers3_Distant,Sg> => "hwwE"; <Pers3_Distant,Sg> => "hwwE";
@@ -483,8 +483,8 @@ case <t,n,p,g> of {
{fin = copula CPast n p g ; inf = (vp.s ! VPTense VPFutr agr).inf ++ rahanDa g n} ; {fin = copula CPast n p g ; inf = (vp.s ! VPTense VPFutr agr).inf ++ rahanDa g n} ;
VPPerfFutCont => VPPerfFutCont =>
{fin = copula CFuture n p g ; inf = (vp.s ! VPTense VPFutr agr).inf ++ rahanDa g n} ; {fin = copula CFuture n p g ; inf = (vp.s ! VPTense VPFutr agr).inf ++ rahanDa g n} ;
VPSubj => case vp.prog of { True => {fin = (vp.s ! VPTense VPFutr agr).inf ++ hw p n ; inf = "شاید" } ; VPSubj => case vp.prog of { True => {fin = (vp.s ! VPTense VPFutr agr).inf ++ hw p n ; inf = "شايد" } ;
_ => {fin = (vp.s ! VPTense VPFutr agr).inf ; inf = "شاید" } } _ => {fin = (vp.s ! VPTense VPFutr agr).inf ; inf = "شايد" } }
}; };
@@ -537,7 +537,7 @@ case <t,n,p,g> of {
{fin = copula CPast n p g ; inf = (vp.s ! VPStem).inf ++ pya g n } ; {fin = copula CPast n p g ; inf = (vp.s ! VPStem).inf ++ pya g n } ;
VPPerfFutCont => VPPerfFutCont =>
{fin = copula CFuture n p g ; inf = (vp.s ! VPStem).inf ++ pya g n ++ hw p n } ; {fin = copula CFuture n p g ; inf = (vp.s ! VPStem).inf ++ pya g n ++ hw p n } ;
VPSubj => {fin = (vp.s ! VPTense VPPres agr).inf ; inf = "شاید" } VPSubj => {fin = (vp.s ! VPTense VPPres agr).inf ; inf = "شايد" }
}; };
@@ -605,7 +605,7 @@ case <t,n,p,g> of {
infVV : Bool -> VPH -> Str = \isAux,vp -> infVV : Bool -> VPH -> Str = \isAux,vp ->
case isAux of {False => (vp.comp ! (toAgr Sg Pers1 Masc)) ++ vp.inf ; True => (vp.comp ! (toAgr Sg Pers1 Masc)) ++ (vp.s ! VPImp).fin }; -- need to be checked and should be covered in urdu as well case isAux of {False => (vp.comp ! (toAgr Sg Pers1 Masc)) ++ vp.inf ; True => (vp.comp ! (toAgr Sg Pers1 Masc)) ++ (vp.s ! VPImp).fin }; -- need to be checked and should be covered in urdu as well
infV2V : Bool -> VPH -> Str = \isAux,vp -> infV2V : Bool -> VPH -> Str = \isAux,vp ->
case isAux of {False => (vp.comp ! (toAgr Sg Pers1 Masc)) ++ vp.inf ++ "دی" ; True => (vp.comp ! (toAgr Sg Pers1 Masc)) ++ (vp.s ! VPImp).fin ++ "دی"}; -- need to be checked and should be covered in urdu as well case isAux of {False => (vp.comp ! (toAgr Sg Pers1 Masc)) ++ vp.inf ++ "دي" ; True => (vp.comp ! (toAgr Sg Pers1 Masc)) ++ (vp.s ! VPImp).fin ++ "دي"}; -- need to be checked and should be covered in urdu as well
insertObject : NP -> VPHSlash -> VPH = \np,vps -> { insertObject : NP -> VPHSlash -> VPH = \np,vps -> {
s = vps.s ; s = vps.s ;

View File

@@ -5,47 +5,47 @@ concrete StructuralSnd of Structural = CatSnd **
coding = utf8; coding = utf8;
lin lin
above_Prep = mkPrep "مٿی " ; above_Prep = mkPrep "مٿي" ;
after_Prep = mkPrep "کان پو۶ " ; after_Prep = mkPrep "کان پوء" ;
all_Predet = ss "سڀ " ; all_Predet = ss "سڀ" ;
almost_AdA, almost_AdN = mkAdN "گھڻو ڪری " ; almost_AdA, almost_AdN = mkAdN "گھڻو ڪري" ;
although_Subj = ss "جیتوڻیڪ " ; although_Subj = ss "جيتوڻيڪ " ;
always_AdV = ss "ھمیشھ " ; always_AdV = ss "ھميشه" ;
and_Conj = sd2 [] "۽" ** {n = Pl} ; and_Conj = sd2 [] "۽" ** {n = Pl} ;
because_Subj = ss "ڇاڪاڻ تی " ; because_Subj = ss "ڇاڪاڻ ته" ;
before_Prep = mkPrep "پیھرین" ; before_Prep = mkPrep "پھرين" ;
behind_Prep = mkPrep "پٺتی " ; behind_Prep = mkPrep "پٺتي" ;
between_Prep = mkPrep " جی وچ می " ; between_Prep = mkPrep "جي وچ ۾" ;
both7and_DConj = sd2 "ٻ۶ی " "۽" ** {n = Pl} ; both7and_DConj = sd2 "ٻئي" "۽" ** {n = Pl} ;
but_PConj = ss "پر" ; but_PConj = ss "پر" ;
by8agent_Prep = mkPrep "ھٿان " ; by8agent_Prep = mkPrep "ھٿان" ;
by8means_Prep = mkPrep "ڪان" ; by8means_Prep = mkPrep "ڪان" ;
can8know_VV,can_VV = mkV "سگھڻ " ** { isAux = True} ; can8know_VV,can_VV = mkV "سگھڻ" ** { isAux = True} ;
during_Prep = mkPrep "وچ ۾" ; during_Prep = mkPrep "وچ ۾" ;
either7or_DConj = sd2 "ڪو۶ی ٻیو " "یا" ** {n = Sg} ; either7or_DConj = sd2 "ڪو ٻيو" "يا" ** {n = Sg} ;
--everybody_NP = MassNP (UseN (ParadigmsSnd.mkN "ھر ڪو۶ی" "ھر ڪو۶ی" "ھر ڪو۶ی" "ھر ڪو۶ی" Masc )); -- not a good way coz need to include NounSnd --everybody_NP = MassNP (UseN (ParadigmsSnd.mkN "ھر ڪوئي" "ھر ڪوئي" "ھر ڪوئي" "ھر ڪوئي" Masc )); -- not a good way coz need to include NounSnd
every_Det = mkDet "ھر ھڪ " "ھر ھڪ " "ھر ھڪ " "ھر ھڪ " Sg; every_Det = mkDet "ھر ھڪ" "ھر ھڪ" "ھر ھڪ" "ھر ھڪ" Sg;
--everything_NP = MassNP (UseN (ParadigmsSnd.mkN "ھر شی " "ھر شی " "ھر شی " "سڀ ڪجھ " Masc )); --everything_NP = MassNP (UseN (ParadigmsSnd.mkN "ھر شيء" "ھر شيء" "ھر شيء" "سڀ ڪجھ" Masc ));
everywhere_Adv = mkAdv "ھر ھنڌ " ; everywhere_Adv = mkAdv "ھر ھنڌ" ;
few_Det = mkDet "ڪجھ " "ڪجھ " "ڪجھ " "ڪجھ " Pl ; few_Det = mkDet "ڪجھ" "ڪجھ" "ڪجھ" "ڪجھ" Pl ;
first_Ord = {s = "پھریون" ; n = Sg} ; --DEPRECATED first_Ord = {s = "پھريون" ; n = Sg} ; --DEPRECATED
for_Prep = mkPrep "لا۶ی "; for_Prep = mkPrep "لاءِ";
from_Prep = mkPrep "وٽان" ; from_Prep = mkPrep "وٽان" ;
he_Pron = personalPN "ھو" "ھو" "" ["ھو "] ["ھو"] Sg Masc Pers3_Distant ; he_Pron = personalPN "ھو" "ھو" "" ["ھو "] ["ھو"] Sg Masc Pers3_Distant ;
here_Adv = mkAdv "ھتی" ; here_Adv = mkAdv "ھتي" ;
here7to_Adv = mkAdv "اجھو" ; here7to_Adv = mkAdv "اجھو" ;
here7from_Adv = mkAdv ["ھیڏانھن"] ; here7from_Adv = mkAdv ["ھيڏانھن"] ;
how_IAdv = ss "ڪ۶ین" ; how_IAdv = ss "ڪيئن" ;
how8many_IDet = makeIDet "ڪیترا" "ڪیترا" Pl ; how8many_IDet = makeIDet "ڪيترا" "ڪيترا" Pl ;
how8much_IAdv = ss "ڪیترا"; how8much_IAdv = ss "ڪيترا";
if_Subj = ss "جیڪڏھن" ; if_Subj = ss "جيڪڏھن" ;
in8front_Prep = mkPrep ["جی سامھون"] ; in8front_Prep = mkPrep ["جي سامھون"] ;
i_Pron = personalPN "مان" "مھنجا " "مھنجو " "مان" " " Sg Masc Pers1; i_Pron = personalPN "مان" "مھنجا" "منھنجو" "مان" " " Sg Masc Pers1;
in_Prep = mkPrep "۾" ; in_Prep = mkPrep "۾" ;
it_Pron = personalPN "اھا" "ھن" "اھو" "اھا" "" Sg Masc Pers3_Near; it_Pron = personalPN "اھا" "ھن" "اھو" "اھا" "" Sg Masc Pers3_Near;
less_CAdv = {s = "گھٽ" ; p = ""} ; less_CAdv = {s = "گھٽ" ; p = ""} ;
many_Det = mkDet "گھڻا" "گھڻی" "ڪافی" "ڪیترا" Pl ; many_Det = mkDet "گھڻا" "گھڻي" "ڪافي" "ڪيترا" Pl ;
more_CAdv = {s = "وڌیڪ"; p = "گھڻا" } ; more_CAdv = {s = "وڌيڪ"; p = "گھڻا" } ;
most_Predet = ss "سڀ کان گھڻو" ; most_Predet = ss "سڀ کان گھڻو" ;
much_Det = mkDet "گھڻو" "گھڻو" "گھڻو" "گھڻو" Sg ; much_Det = mkDet "گھڻو" "گھڻو" "گھڻو" "گھڻو" Sg ;
--must_VV = { --must_VV = {
@@ -62,71 +62,71 @@ concrete StructuralSnd of Structural = CatSnd **
-- } ; -- } ;
-----b -----b
no_Phr = ss "نo" ; no_Phr = ss "نه" ;
no_Utt = ss "نا" ; no_Utt = ss "نا" ;
on_Prep = mkPrep "مٿان" ; on_Prep = mkPrep "مٿان" ;
one_Quant = demoPN "ھڪ" "ھڪ" "ھڪ" ; -- DEPRECATED one_Quant = demoPN "ھڪ" "ھڪ" "ھڪ" ; -- DEPRECATED
only_Predet = ss "صرف" ; only_Predet = ss "صرف" ;
or_Conj = sd2 [] "یا" ** {n = Sg} ; or_Conj = sd2 [] "يا" ** {n = Sg} ;
otherwise_PConj = ss "ن ت پو۶ی" ; otherwise_PConj = ss "نه ته پوءِ" ;
part_Prep = mkPrep "حسو" ; part_Prep = mkPrep "حصو" ;
possess_Prep = mkPrep[ "جو یا جی"] ; possess_Prep = mkPrep[ "جو يا جي"] ;
please_Voc = ss "مھربانی" ; please_Voc = ss "مھرباني" ;
quite_Adv = ss "ڇڏڻ " ; quite_Adv = ss "ڇڏڻ" ;
she_Pron = personalPN "ھو۶" "ھو" "ھو" ["ھو۶"] ["ھو۶"] Sg Fem Pers3_Distant ; she_Pron = personalPN "ھوء" "ھو" "ھو" ["ھوء"] ["ھوء"] Sg Fem Pers3_Distant ;
so_AdA = ss "ان ڪری" ; so_AdA = ss "ان ڪري" ;
--somebody_NP = MassNP (UseN (ParadigmsSnd.mkN "ڪو۶ی" "ڪو۶ی" "ڪو۶ی" "ڪو۶ی" Masc )); --somebody_NP = MassNP (UseN (ParadigmsSnd.mkN "ڪوئي" "ڪوئي" "ڪوئي" "ڪوئي" Masc ));
someSg_Det = mkDet "ڪجھ " "ڪجھ " "ڪجھ " "ڪجھ " Sg ; someSg_Det = mkDet "ڪجھ " "ڪجھ " "ڪجھ " "ڪجھ " Sg ;
somePl_Det = mkDet "ڪجھ " "ڪجھ " "ڪجھ " "ڪجھ " Pl ; somePl_Det = mkDet "ڪجھ " "ڪجھ " "ڪجھ " "ڪجھ " Pl ;
--something_NP = MassNP (UseN (ParadigmsSnd.mkN "ڪو۶ی شی" "ڪو۶ی شی" "ڪو۶ی شی" "ڪو۶ی شیون" Masc )); --something_NP = MassNP (UseN (ParadigmsSnd.mkN "ڪا شي" "ڪا شي" "ڪا شي" "ڪا شيون" Masc ));
somewhere_Adv = mkAdv "ڪٿی" ; somewhere_Adv = mkAdv "ڪٿي" ;
that_Quant = demoPN "جیڪو" "" "" ; that_Quant = demoPN "جيڪو" "" "" ;
that_Subj = ss "اھا" ; that_Subj = ss "اھا" ;
there_Adv = mkAdv "اتی" ; there_Adv = mkAdv "اتي" ;
there7to_Adv = mkAdv ["ھتی"] ; there7to_Adv = mkAdv ["ھتي"] ;
there7from_Adv = mkAdv ["ھتان"] ; there7from_Adv = mkAdv ["ھتان"] ;
therefore_PConj = ss "ان ڪری" ; therefore_PConj = ss "ان ڪري" ;
they_Pron = personalPN "اھی" "اھی" "اھی" ["اھی جو"] ["اھی جو"] Pl Masc Pers3_Distant ; ---- they_Pron = personalPN "اھي" "اھي" "اھي" ["انهن جو"] ["انهن جو"] Pl Masc Pers3_Distant ; ----
this_Quant = demoPN "ھی" "ھن" ""; this_Quant = demoPN "ھي" "ھن" "";
through_Prep = mkPrep "منجھان" ; through_Prep = mkPrep "منجھان" ;
under_Prep = mkPrep " ھیٺان" ; -- ** {lock_Prep = <>}; under_Prep = mkPrep " ھيٺان" ; -- ** {lock_Prep = <>};
too_AdA = ss "بیحد"; too_AdA = ss "بيحد";
to_Prep = mkPrep "ڏانھن" ; -- ** {lock_Prep = <>}; to_Prep = mkPrep "ڏانھن" ; -- ** {lock_Prep = <>};
very_AdA = ss "تمام" ; very_AdA = ss "تمام" ;
want_VV = mkV "چاھڻ " ** { isAux = False} ; want_VV = mkV "چاھڻ " ** { isAux = False} ;
we_Pron = personalPN "اسان" "اسان" "اسان" "اسانجo" "اسانجo" Pl Masc Pers1 ; we_Pron = personalPN "اسان" "اسان" "اسان" "اسانجو" "اسانجو" Pl Masc Pers1 ;
whatSg_IP = mkIP "ڇا" "ڇو" "" "" Sg Masc ; whatSg_IP = mkIP "ڇا" "ڇو" "" "" Sg Masc ;
whatPl_IP = mkIP "ڇا" "ڇو " " " "" Pl Masc ; whatPl_IP = mkIP "ڇا" "ڇو " " " "" Pl Masc ;
when_IAdv = ss "ڪڏھن" ; when_IAdv = ss "ڪڏھن" ;
when_Subj = ss "جڏھن" ; when_Subj = ss "جڏھن" ;
where_IAdv = ss "ڪٿی" ; where_IAdv = ss "ڪٿي" ;
--which_IQuant = {s = \\_ => "ڪھڙو"} ; --which_IQuant = {s = \\_ => "ڪھڙو"} ;
which_IQuant = mkIQuant "جیڪو" "جیڪی" "جیڪا" "جھڙو" ; which_IQuant = mkIQuant "جيڪو" "جيڪي" "جيڪا" "جھڙو" ;
whichPl_IDet = makeDet "جیڪY" "جنھن" ; whichPl_IDet = makeDet "جيڪي" "جنھن" ;
whichSg_IDet = makeDet "جیڪو " "جیڪا" ; whichSg_IDet = makeDet "جيڪو " "جيڪا" ;
whoSg_IP = mkIP "ڪیر" "ڪھنجی" "ڪھنجo" "" Sg Masc ; whoSg_IP = mkIP "ڪير" "ڪنھنجي" "ڪنھنجو" "" Sg Masc ;
whoPl_IP = mkIP "ڪیر" "ڪھنجا" "ڪھنجا" "" Pl Masc ; whoPl_IP = mkIP "ڪير" "ڪنھنجا" "ڪنھنجا" "" Pl Masc ;
why_IAdv = ss "ڇو" ; why_IAdv = ss "ڇو" ;
without_Prep = mkPrep "کان سوا۶ " ; without_Prep = mkPrep "کان سواءِ" ;
with_Prep = mkPrep "سان" ; with_Prep = mkPrep "سان" ;
yes_Phr = ss "ھا" ; yes_Phr = ss "ھا" ;
yes_Utt = ss "ھا" ; yes_Utt = ss "ھا" ;
youSg_Pron = personalPN "تون" "تون" "تون" "تھنجو" "تھنجی" Sg Masc Pers2_Casual ; youSg_Pron = personalPN "تون" "تون" "تون" "تنھنجو" "تنھنجي" Sg Masc Pers2_Casual ;
youPl_Pron = personalPN "توھان" "توھان" "توھان" "توھانجو" "توھانجی" Pl Masc Pers2_Casual ; youPl_Pron = personalPN "توھان" "توھان" "توھان" "توھانجو" "توھانجي" Pl Masc Pers2_Casual ;
youPol_Pron = personalPN "توھان" "توھان" "توھان" "توھان جو" "توھان جی" Pl Masc Pers2_Respect ; youPol_Pron = personalPN "توھان" "توھان" "توھان" "توھان جو" "توھان جي" Pl Masc Pers2_Respect ;
no_Quant = demoPN " ڇو ن" "ڇو ن" "ڇو ن " ; no_Quant = demoPN " ڇو نه" "ڇو نه" "ڇو نه " ;
not_Predet = {s="ن"} ; not_Predet = {s="ن"} ;
if_then_Conj = sd2 "جیڪڏھن" "ت" ** {n = Sg} ; if_then_Conj = sd2 "جيڪڏھن" "ته" ** {n = Sg} ;
at_least_AdN = mkAdN ["گھٽ می گھٽ"] ; at_least_AdN = mkAdN ["گھٽ ۾ گھٽ"] ;
at_most_AdN = mkAdN ["گھڻی کان گھڻو"]; at_most_AdN = mkAdN ["گھڻي کان گھڻو"];
--nothing_NP = MassNP (UseN (ParadigmsSnd.mkN "ڪجھ شی ن" "ڪجھ شی ن" "ڪجھ شی ن" "ڪجھ شی ن" "ڪجھ شی ن" "ڪجھ شی ن" Masc )); --nothing_NP = MassNP (UseN (ParadigmsSnd.mkN "ڪجھ شي ن" "ڪجھ شي ن" "ڪجھ شي ن" "ڪجھ شي ن" "ڪجھ شي ن" "ڪجھ شي ن" Masc ));
except_Prep = mkPrep "سوا۶ " ; except_Prep = mkPrep "سواءِ" ;
--nobody_NP = MassNP (UseN (ParadigmsSnd.mkN "ڪو ب ن" "ڪو ب ن" "ڪو ب ن" "ڪو ب ن" "ڪو ب ن" "ڪو ب ن" Masc )); --nobody_NP = MassNP (UseN (ParadigmsSnd.mkN "ڪو به نه" "ڪو به نه" "ڪو به نه" "ڪو به نه" "ڪو به نه" "ڪو به نه" Masc ));
as_CAdv = {s = "جی۶ن" ; p = "جھڙو"} ; as_CAdv = {s = "جيئن" ; p = "جھڙو"} ;
have_V2 = mkV2 (mkV "رکڻ ") "" ; have_V2 = mkV2 (mkV "رکڻ ") "" ;
language_title_Utt = ss "ٻو" ; language_title_Utt = ss "ٻولي" ;
} }

View File

@@ -154,7 +154,7 @@ transSindhi =
(mkTransliteration "Sindhi" allTrans allCodes) where (mkTransliteration "Sindhi" allTrans allCodes) where
allCodes = [0x062e] ++ [0x0627 .. 0x062f] ++ [0x0630 .. 0x063a] ++ [0x0641 .. 0x0648] ++ allCodes = [0x062e] ++ [0x0627 .. 0x062f] ++ [0x0630 .. 0x063a] ++ [0x0641 .. 0x0648] ++
[0x067a,0x067b,0x067d,0x067e,0x067f] ++ [0x0680 .. 0x068f] ++ [0x067a,0x067b,0x067d,0x067e,0x067f] ++ [0x0680 .. 0x068f] ++
[0x0699,0x0918,0x06a6,0x061d,0x06a9,0x06af,0x06b3,0x06bb,0x06be,0x06f6,0x06cc,0x06b1, 0x06aa, 0x06fd, 0x06fe] ++ [0x0699,0x0918,0x06a6,0x061d,0x06a9,0x06af,0x06b3,0x06bb,0x06be,0x06f6,0x064a,0x06b1, 0x06aa, 0x06fd, 0x06fe] ++
[0x06f0 .. 0x06f9] ++ [0x061f,0x06D4] [0x06f0 .. 0x06f9] ++ [0x061f,0x06D4]
allTrans = words $ allTrans = words $
"K a b - t C j H - d " ++ -- 0626 - 062f "K a b - t C j H - d " ++ -- 0626 - 062f