1
0
forked from GitHub/gf-core

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

View File

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

View File

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

View File

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

View File

@@ -51,10 +51,10 @@ resource ResSnd = ParamX ** open Prelude,Predef in {
mkAdj1 : Str -> Adjective1 ;
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)
in adj1 (nyrw) (nyr+"ی") ( nyr+"ا") (nyr+"ا") (nyrw) (nyr+"ی") (nyr+"ی") (nyr+"ی")
(nyr+"ا") (nyr+"ن") ( nyr+"ا") (nyr+"ا") (nyr+"یون") (nyr+"ین") (nyr+"ین") (nyr+"یون") ;
in adj1 (nyrw) (nyr+"ي") ( nyr+"ا") (nyr+"ا") (nyrw) (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 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;
NPObj => ppf ! Obl ;
NPErg => case (fromAgr a).p of {
(Pers3_Near|Pers3_Distant) => ppf ! Dir ++ "جی" ;
(Pers3_Near|Pers3_Distant) => 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 ->
case <t,n,p,g> of {
<CPresent,Sg,Pers1,Masc > => "ٿو";
<CPresent,Sg,Pers1,Fem > => "ٿی" ;
<CPresent,Sg,Pers1,Fem > => "ٿي" ;
<CPresent,Sg,Pers2_Casual,Masc > => "ٿو" ;
<CPresent,Sg,Pers2_Casual,Fem > => "ٿی" ;
<CPresent,Sg,Pers2_Casual,Fem > => "ٿي" ;
<CPresent,Sg,Pers2_Respect,Masc > => "ٿا" ;
<CPresent,Sg,Pers2_Respect,Fem > => "ٿیون" ;
<CPresent,Sg,Pers2_Respect,Fem > => "ٿيون" ;
<CPresent,Sg,Pers3_Near,Masc > => "ٿو" ;
<CPresent,Sg,Pers3_Near,Fem > => "ٿی" ;
<CPresent,Sg,Pers3_Near,Fem > => "ٿي" ;
<CPresent,Sg,Pers3_Distant,Masc > => "ٿو" ;
<CPresent,Sg,Pers3_Distant,Fem > => "ٿی" ;
<CPresent,Sg,Pers3_Distant,Fem > => "ٿي" ;
<CPresent,Pl,Pers1,Masc > => "ٿا" ;
<CPresent,Pl,Pers1,Fem > => "ٿیون" ;
<CPresent,Pl,Pers1,Fem > => "ٿيون" ;
<CPresent,Pl,Pers2_Casual,Masc > => "ٿا" ;
<CPresent,Pl,Pers2_Casual,Fem > => "ٿی" ;
<CPresent,Pl,Pers2_Casual,Fem > => "ٿي" ;
<CPresent,Pl,Pers2_Respect,Masc > => "ٿا" ;
<CPresent,Pl,Pers2_Respect,Fem > => "ٿیون" ;
<CPresent,Pl,Pers2_Respect,Fem > => "ٿيون" ;
<CPresent,Pl,Pers3_Near,Masc > => "ٿا" ;
<CPresent,Pl,Pers3_Near,Fem > => "ٿیون" ;
<CPresent,Pl,Pers3_Near,Fem > => "ٿيون" ;
<CPresent,Pl,Pers3_Distant,Masc > => "ٿا" ;
<CPresent,Pl,Pers3_Distant,Fem > => "ٿیون" ;
<CPast,Sg,Pers1,Masc > => "ھیم" ;
<CPast,Sg,Pers1,Fem > => "ھیم" ;
<CPast,Sg,Pers2_Casual,Masc > => "ھ۶ین" ;
<CPast,Sg,Pers2_Casual,Fem > => "ھ۶ین" ;
<CPast,Sg,Pers2_Respect,Masc > => "ھ۶و" ;
<CPast,Sg,Pers2_Respect,Fem > => "ھ۶یون" ;
<CPast,Sg,Pers3_Near,_ > => "اھی" ;
-- <CPast,Sg,Pers3_Near,Fem > => "اھ۶" ;
<CPast,Sg,Pers3_Distant,Masc > => "ھیو" ;
<CPast,Sg,Pers3_Distant,Fem > => "ھ۶ی" ;
<CPresent,Pl,Pers3_Distant,Fem > => "ٿيون" ;
<CPast,Sg,Pers1,Masc > => "ھيم" ;
<CPast,Sg,Pers1,Fem > => "ھيم" ;
<CPast,Sg,Pers2_Casual,Masc > => "ھئين" ;
<CPast,Sg,Pers2_Casual,Fem > => "ھئين" ;
<CPast,Sg,Pers2_Respect,Masc > => "ھئو" ;
<CPast,Sg,Pers2_Respect,Fem > => "ھئيون" ;
<CPast,Sg,Pers3_Near,_ > => "اھي" ;
-- <CPast,Sg,Pers3_Near,Fem > => "اھئ" ;
<CPast,Sg,Pers3_Distant,Masc > => "ھيو" ;
<CPast,Sg,Pers3_Distant,Fem > => "ھئي" ;
<CPast,Pl,Pers1,Masc > => "ھ۶اسین" ;
<CPast,Pl,Pers1,Fem > => "ھیوسین" ;
<CPast,Pl,Pers2_Casual,_ > => "ھ۶ا" ;
<CPast,Pl,Pers2_Respect,_ > => "ھیو" ;
<CPast,Pl,Pers3_Near,Masc > => "ھ۶ا" ;
<CPast,Pl,Pers3_Near,Fem > => "ھ۶یون" ;
<CPast,Pl,Pers3_Distant,Masc > => "ھ۶ا" ;
<CPast,Pl,Pers3_Distant,Fem > => "ھیون" ;
<CPast,Pl,Pers1,Masc > => "ھئاسين" ;
<CPast,Pl,Pers1,Fem > => "ھيوسين" ;
<CPast,Pl,Pers2_Casual,_ > => "ھئا" ;
<CPast,Pl,Pers2_Respect,_ > => "ھيو" ;
<CPast,Pl,Pers3_Near,Masc > => "ھئا" ;
<CPast,Pl,Pers3_Near,Fem > => "ھئيون" ;
<CPast,Pl,Pers3_Distant,Masc > => "ھئا" ;
<CPast,Pl,Pers3_Distant,Fem > => "ھيون" ;
<CFuture,Sg,Pers1,Masc > => "ھوندس" ;
<CFuture,Sg,Pers1,Fem > => "ھوندس" ;
<CFuture,Sg,Pers2_Casual,Masc > => "ھوندین" ;
<CFuture,Sg,Pers2_Casual,Fem > => "ھوندین" ;
<CFuture,Sg,Pers2_Respect,Masc > => "ھوندو۶ " ;
<CFuture,Sg,Pers2_Respect,Fem > => "ھوندو۶ " ;
<CFuture,Sg,Pers3_Near,Masc > => "ھوندو " ;
<CFuture,Sg,Pers3_Near,Fem > => "ھوندی" ;
<CFuture,Sg,Pers3_Distant,Masc > => "ھوندو " ;
<CFuture,Sg,Pers3_Distant,Fem > => "ھوندی" ;
<CFuture,Pl,Pers1,Masc > => "ھونداسین" ;
<CFuture,Pl,Pers1,Fem > => "ھوندیونسین" ;
<CFuture,Pl,Pers2_Casual,Masc > => "ھوندو۶ " ;
<CFuture,Pl,Pers2_Casual,Fem > => "ھوندیوین" ;
<CFuture,Pl,Pers2_Respect,Masc > => "ھوندو۶ " ;
<CFuture,Pl,Pers2_Respect,Fem > => "ھوندیوین" ;
<CFuture,Sg,Pers2_Casual,Masc > => "ھوندين" ;
<CFuture,Sg,Pers2_Casual,Fem > => "ھوندين" ;
<CFuture,Sg,Pers2_Respect,Masc > => "ھوندؤ" ;
<CFuture,Sg,Pers2_Respect,Fem > => "ھوندؤ" ;
<CFuture,Sg,Pers3_Near,Masc > => "ھوندو" ;
<CFuture,Sg,Pers3_Near,Fem > => "ھوندي" ;
<CFuture,Sg,Pers3_Distant,Masc > => "ھوندو" ;
<CFuture,Sg,Pers3_Distant,Fem > => "ھوندي" ;
<CFuture,Pl,Pers1,Masc > => "ھونداسين" ;
<CFuture,Pl,Pers1,Fem > => "ھونديونسين" ;
<CFuture,Pl,Pers2_Casual,Masc > => "ھوندؤ" ;
<CFuture,Pl,Pers2_Casual,Fem > => "ھونديوين" ;
<CFuture,Pl,Pers2_Respect,Masc > => "ھوندؤ" ;
<CFuture,Pl,Pers2_Respect,Fem > => "ھونديوين" ;
<CFuture,Pl,Pers3_Near,Masc > => "ھوندا" ;
<CFuture,Pl,Pers3_Near,Fem > => "ھوندیون" ;
<CFuture,Pl,Pers3_Near,Fem > => "ھونديون" ;
<CFuture,Pl,Pers3_Distant,Masc > => "ھوندا" ;
<CFuture,Pl,Pers3_Distant,Fem > => "ھوندیون" ;
<CFuture,Pl,Pers3_Distant,Fem > => "ھونديون" ;
<CContinuous,Sg,Pers1,Masc > => "اھیان" ;
<CContinuous,Sg,Pers1,Fem > => "اھیان" ;
<CContinuous,Sg,Pers2_Casual,Masc > => "اھین" ;
<CContinuous,Sg,Pers2_Casual,Fem > => "اھین" ;
<CContinuous,Sg,Pers2_Respect,Masc > => "اھیو " ;
<CContinuous,Sg,Pers2_Respect,Fem > => "اھیو " ;
<CContinuous,Sg,Pers3_Near,Masc > => "اھی " ;
<CContinuous,Sg,Pers3_Near,Fem > => "اھی" ;
<CContinuous,Sg,Pers3_Distant,Masc > => "اھی " ;
<CContinuous,Sg,Pers3_Distant,Fem > => "اھی" ;
<CContinuous,Pl,Pers1,Masc > => "اھیون" ;
<CContinuous,Pl,Pers1,Fem > => "اھیون" ;
<CContinuous,Pl,Pers2_Casual,Masc > => "اھیو " ;
<CContinuous,Pl,Pers2_Casual,Fem > => "اھیو " ;
<CContinuous,Pl,Pers2_Respect,Masc > => "اھیو " ;
<CContinuous,Pl,Pers2_Respect,Fem > => "اھیو " ;
<CContinuous,Pl,Pers3_Near,Masc > => "اھن" ;
<CContinuous,Pl,Pers3_Near,Fem > => "اھن" ;
<CContinuous,Pl,Pers3_Distant,Masc > => "اھن" ;
<CContinuous,Pl,Pers3_Distant,Fem > => "اھن"
<CContinuous,Sg,Pers1,Masc > => "آھيان" ;
<CContinuous,Sg,Pers1,Fem > => "آھيان" ;
<CContinuous,Sg,Pers2_Casual,Masc > => "آھين" ;
<CContinuous,Sg,Pers2_Casual,Fem > => "آھين" ;
<CContinuous,Sg,Pers2_Respect,Masc > => "آھيو " ;
<CContinuous,Sg,Pers2_Respect,Fem > => "آھيو " ;
<CContinuous,Sg,Pers3_Near,Masc > => "آھي " ;
<CContinuous,Sg,Pers3_Near,Fem > => "آھي" ;
<CContinuous,Sg,Pers3_Distant,Masc > => "آھي " ;
<CContinuous,Sg,Pers3_Distant,Fem > => "آھي" ;
<CContinuous,Pl,Pers1,Masc > => "آھيون" ;
<CContinuous,Pl,Pers1,Fem > => "آھيون" ;
<CContinuous,Pl,Pers2_Casual,Masc > => "آھيو " ;
<CContinuous,Pl,Pers2_Casual,Fem > => "آھيو " ;
<CContinuous,Pl,Pers2_Respect,Masc > => "آھيو " ;
<CContinuous,Pl,Pers2_Respect,Fem > => "آھيو " ;
<CContinuous,Pl,Pers3_Near,Masc > => "آھن" ;
<CContinuous,Pl,Pers3_Near,Fem > => "آھن" ;
<CContinuous,Pl,Pers3_Distant,Masc > => "آھن" ;
<CContinuous,Pl,Pers3_Distant,Fem > => "آھن"
} ;
@@ -295,7 +295,7 @@ case <t,n,p,g> of {
| VPPerfPresCont
| VPPerfPastCont
| VPPerfFutCont
| VPSubj -- subj na "I مای گo"
| VPSubj -- subj na "I ماي گo"
;
VPHForm =
@@ -363,20 +363,20 @@ case <t,n,p,g> of {
------------------------
raha : Gender -> Number -> Str = \g,n ->
(mkAdj1 "ریا").s ! n ! g ! Dir ;
(mkAdj1 "ريا").s ! n ! g ! Dir ;
rahanDa : Gender -> Number -> Str = \g,n ->
(mkAdj1 "رھندا").s ! n ! g ! Dir ;
pya : Gender -> Number -> Str = \g,n ->
(mkAdj1 "پیا").s ! n ! g ! Dir ;
(mkAdj1 "پيا").s ! n ! g ! Dir ;
cka : Gender -> Number -> Str = \g,n ->
(mkAdj1 "گیا").s ! n ! g ! Dir ;
(mkAdj1 "گيا").s ! n ! g ! Dir ;
hw : PPerson -> Number -> Str = \pp,n ->
case <pp,n> of {
<Pers1,_> => "hwwاN";
<Pers2_Casual,Sg> => "hwwیN";
<Pers2_Casual,Sg> => "hwwيN";
<Pers2_Casual,Pl> => "hww";
<Pers2_Respect,_> => "hww";
<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} ;
VPPerfFutCont =>
{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 = "شاید" } ;
_ => {fin = (vp.s ! VPTense VPFutr agr).inf ; 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 = "شايد" } }
};
@@ -537,7 +537,7 @@ case <t,n,p,g> of {
{fin = copula CPast n p g ; inf = (vp.s ! VPStem).inf ++ pya g n } ;
VPPerfFutCont =>
{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 ->
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 ->
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 -> {
s = vps.s ;

View File

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

View File

@@ -154,7 +154,7 @@ transSindhi =
(mkTransliteration "Sindhi" allTrans allCodes) where
allCodes = [0x062e] ++ [0x0627 .. 0x062f] ++ [0x0630 .. 0x063a] ++ [0x0641 .. 0x0648] ++
[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]
allTrans = words $
"K a b - t C j H - d " ++ -- 0626 - 062f