msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

unicode4k-changed

Browse Source
This commit is contained in:
virk.shafqat
2012-11-05 16:44:31 +00:00
parent 7c04eede85
commit f7344b8f38
12 changed files with 213 additions and 164 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/hindustani/ResHindustani.gf
View File

@@ -231,7 +231,7 @@ param
vp.obj.s ++ vp.comp ! a ++ vp.inf ; vp.obj.s ++ vp.comp ! a ++ vp.inf ;
infVV : Bool -> VPH -> Str = \isAux,vp -> infVV : Bool -> VPH -> Str = \isAux,vp ->
case isAux of {False => vp.obj.s ++ (vp.comp ! (toAgr Sg Pers1 Masc)) ++ vp.inf ; True => (vp.s ! VPImp).inf ++ vp.obj.s ++ (vp.comp ! (toAgr Sg Pers1 Masc)) } ; case isAux of {False => vp.obj.s ++ (vp.comp ! (toAgr Sg Pers1 Masc)) ++ vp.cvp ++ vp.inf ; True => vp.cvp ++ (vp.s ! VPImp).inf ++ vp.obj.s ++ (vp.comp ! (toAgr Sg Pers1 Masc)) } ;
infV2V : Bool -> VPH -> Str = \isAux,vp -> infV2V : Bool -> VPH -> Str = \isAux,vp ->
case isAux of {False => vp.obj.s ++ (vp.comp ! (toAgr Sg Pers1 Masc)) ++ (vp.s ! VPInf).fin ++ ky ; True => vp.obj.s ++ (vp.comp ! (toAgr Sg Pers1 Masc)) ++ (vp.s ! VPImp).fin ++ ky}; case isAux of {False => vp.obj.s ++ (vp.comp ! (toAgr Sg Pers1 Masc)) ++ (vp.s ! VPInf).fin ++ ky ; True => vp.obj.s ++ (vp.comp ! (toAgr Sg Pers1 Masc)) ++ (vp.s ! VPImp).fin ++ ky};

19
lib/src/urdu/DictUrd2.gf
View File

@@ -8568,7 +8568,7 @@ lin dizzy_V2 = mkV2 (compoundV "چکر" (mkV "آنا")) ;
lin dna_N = mkN "حرکیاتی نفسیات" ; lin dna_N = mkN "حرکیاتی نفسیات" ;
lin do_N = mkN "سرانجام دینا" ; lin do_N = mkN "سرانجام دینا" ;
lin do_V = compoundV "سرانجام" (mkV "دینا") ; lin do_V = compoundV "سرانجام" (mkV "دینا") ;
lin do_V2 = mkV2 (compoundV "ادا" (mkV "کرنا")) ; -- from DictUrd lin do_V2 = mkV2 (mkV "کرنا") ; -- from DictUrd
lin do_gooder_N = mkN "مصلح" ; lin do_gooder_N = mkN "مصلح" ;
lin dobbin_N = mkN "چھکڑا" ; lin dobbin_N = mkN "چھکڑا" ;
lin docile_A = mkA "مطیع" ; -- from DictUrd lin docile_A = mkA "مطیع" ; -- from DictUrd
@@ -12240,10 +12240,10 @@ lin gnaw_V2 = mkV2 (compoundV "کتر کتر کر" (mkV "کھانا")) ;
lin gnome_N = mkN "ایک فرضی بونا" ; lin gnome_N = mkN "ایک فرضی بونا" ;
lin gnu_N = mkN "اسب ہرن" ; lin gnu_N = mkN "اسب ہرن" ;
lin go_N = mkN "جاؤ" ; lin go_N = mkN "جاؤ" ;
lin go_V = mkV "جاؤ" ; lin go_V = mkV "جانا" ; -- corrected manually
lin go_V2 = mkV2 (mkV "جاؤ") ; lin go_V2 = mkV2 ("جانا" ) ;
lin go_VA = mkV "جاؤ" ; lin go_VA = mkV "جانا" ;
lin go_VS = mkVS (mkV "جاؤ") ; lin go_VS = mkVS (mkV "جانا") ;
lin go_ahead_N = mkN "کام جاری رکھنا" ; lin go_ahead_N = mkN "کام جاری رکھنا" ;
lin go_between_N = mkN "دلال" ; lin go_between_N = mkN "دلال" ;
lin go_by_N = mkN "گزرنا" ; lin go_by_N = mkN "گزرنا" ;
@@ -30206,5 +30206,12 @@ lin presidentMasc_N= mkN "صدر";
--lin april_N= mkN "اپریل"; --lin april_N= mkN "اپریل";
lin understand_V2 = mkV2 (compoundV "سمجھ" (mkV "لینا")) ; lin understand_V2 = mkV2 (compoundV "سمجھ" (mkV "لینا")) ;
lin savagery_N = mkN "وحشیانہ پن" ; lin savagery_N = mkN "وحشیانہ پن" ;
lin officialMasc_N= mkN "افسر";
lin representativeMasc_N= mkN "نمائیندہ";
lin handcart_N= mkN "صورتحال";
lin unless_Subj= ss "جب تک";
lin so_Subj= ss "اس لئے";
lin several_Num = {s = "کئی" ; n = Pl} ;
lin few_Num = {s = "چند" ; n = Pl} ;
lin even_AdV = ss "حتی کہ";
} }

12
lib/src/urdu/DiffUrd.gf
View File

@@ -45,7 +45,7 @@ Clause : Type = {s : VPHTense => Polarity => Order => Str} ;
quest = quest =
case ord of case ord of
{ ODir => []; { ODir => [];
OQuest => "كیا" }; OQuest => "کیا" };
na = na =
case b of case b of
{ Pos => []; { Pos => [];
@@ -88,7 +88,7 @@ Clause : Type = {s : VPHTense => Polarity => Order => Str} ;
quest = quest =
case ord of case ord of
{ ODir => []; { ODir => [];
OQuest => "كیا" }; OQuest => "کیا" };
na = na =
case b of case b of
{ Pos => []; { Pos => [];
@@ -114,17 +114,17 @@ Clause : Type = {s : VPHTense => Polarity => Order => Str} ;
} ; } ;
conjThat = "كہ" ; conjThat = "کہ" ;
insertSubj : UPerson -> Str -> Str = \p,s -> insertSubj : UPerson -> Str -> Str = \p,s ->
case p of { Pers1 => s ++ "واں" ; _ => s ++ "ے"}; -- check with prasad for vn~ case p of { Pers1 => s ++ "واں" ; _ => s ++ "ے"}; -- check with prasad for vn~
agr = "اگر" ; agr = "اگر" ;
awr = "اور" ; awr = "اور" ;
ky = "كی" ; ky = "کی" ;
jn = "جن" ; jn = "جن" ;
js = "جس" ; js = "جس" ;
jw = "جو" ; jw = "جو" ;
kw = "كو" ; kw = "کو" ;
mt = "مت" ; mt = "مت" ;
nE = "نے" ; nE = "نے" ;
nh = "نا" ; nh = "نا" ;
@@ -204,7 +204,7 @@ copula : CTense -> Number -> UPerson -> Gender -> Str = \t,n,p,g ->
(regAdjective "رہا").s ! n ! g ! Dir ! Posit ; (regAdjective "رہا").s ! n ! g ! Dir ! Posit ;
cka : Gender -> Number -> Str = \g,n -> cka : Gender -> Number -> Str = \g,n ->
(regAdjective "چكا").s ! n ! g ! Dir ! Posit ; (regAdjective "چکا").s ! n ! g ! Dir ! Posit ;
hw : UPerson -> Number -> Str = \pp,n -> hw : UPerson -> Number -> Str = \pp,n ->
case <pp,n> of { case <pp,n> of {

44
lib/src/urdu/ExtraUrd.gf
View File

@@ -4,28 +4,46 @@ concrete ExtraUrd of ExtraUrdAbs = CatUrd **
flags coding = utf8 ; flags coding = utf8 ;
lin lin
-- GenNP np = {s = \\_,_,_ => np.s ! NPC Obl ++ "كا" ; a = np.a} ; -- GenNP np = {s = \\_,_,_ => np.s ! NPC Obl ++ "کا" ; a = np.a} ;
GenNP np = {s = \\n,g,c => GenNP np = {s = \\n,g,c =>
case <n,g,c> of { case <n,g,c> of {
<Sg,Masc,Obl> => np.s ! NPC Obl ++ "كے" ; <Sg,Masc,Obl> => np.s ! NPC Obl ++ "کے" ;
<Sg,Masc,_> => np.s ! NPC Obl ++ "كا" ; <Sg,Masc,_> => np.s ! NPC Obl ++ "کا" ;
<Pl,Masc,_> => np.s ! NPC Obl ++ "كے" ; <Pl,Masc,_> => np.s ! NPC Obl ++ "کے" ;
<_,Fem,_> => np.s ! NPC Obl ++ "كی" <_,Fem,_> => np.s ! NPC Obl ++ "کی"
}; };
a = np.a} ; a = np.a} ;
each_Det = mkDet "ہر كوی" "ہر كوی" "ہر كوی" "ہر كوی" Sg ; each_Det = mkDet "ہر کوی" "ہر کوی" "ہر کوی" "ہر کوی" Sg ;
have_V = mkV "راكھنا"; have_V = mkV "راکھنا";
IAdvAdv adv = {s = "كتنی" ++ adv.s ! Masc} ; IAdvAdv adv = {s = "کتنی" ++ adv.s ! Masc} ;
ICompAP ap = {s = "كتنے" ++ ap.s ! Sg ! Masc ! Dir ! Posit} ; ICompAP ap = {s = "کتنے" ++ ap.s ! Sg ! Masc ! Dir ! Posit} ;
cost_V = mkV "قیمت" ; cost_V = mkV "قیمت" ;
-- added for causitives -- added for causitives
make_CV = mkVerb "نoتہiنگ" ** {c2 = "" }; make_CV = mkVerb "نoتہiنگ" ** {c2 = "" };
PassVPSlash vps = vps ;
UncNeg = {s = [] ; p = Neg} ;
-- for VP conjunction -- for VP conjunction
}
PassVPSlash vps = vps ;
{-
--{
-- let
-- be = predAux auxBe
-- in {
-- s = be.s ;
s = vps.s ;
obj = vps.obj ;
subj = vps.c2.c ;
inf = vps.inf;
ad = vps.ad;
embComp = vps.embComp;
prog = vps.prog ;
comp = vps.comp ;
cvp = vps.cvp
-- } ;
--};
-}
}

6
lib/src/urdu/IdiomUrd.gf
View File

@@ -5,7 +5,7 @@ concrete IdiomUrd of Idiom = CatUrd ** open Prelude,Predef, ResUrd,ParamX,Common
lin lin
ImpersCl vp = mkSClause " " (agrP3 Masc Sg) vp ; ImpersCl vp = mkSClause " " (agrP3 Masc Sg) vp ;
GenericCl vp = mkSClause "كوی" (agrP3 Masc Sg) vp ; GenericCl vp = mkSClause "کوی" (agrP3 Masc Sg) vp ;
CleftNP np rs = CleftNP np rs =
let cl = mkSClause (np.s ! NPC rs.c) (np.a) (predAux auxBe); let cl = mkSClause (np.s ! NPC rs.c) (np.a) (predAux auxBe);
@@ -32,8 +32,8 @@ concrete IdiomUrd of Idiom = CatUrd ** open Prelude,Predef, ResUrd,ParamX,Common
-- ImpPl1 vp = {s = "آو" ++ infVP True vp (agrP1 Masc Pl)} ; -- inf form is not used e.g Aw swna instead Aw swyyN (Imp.fin) -- ImpPl1 vp = {s = "آو" ++ infVP True vp (agrP1 Masc Pl)} ; -- inf form is not used e.g Aw swna instead Aw swyyN (Imp.fin)
ImpPl1 vp = {s = "آو" ++ (vp.s ! VPImp).fin} ; ImpPl1 vp = {s = "آو" ++ (vp.s ! VPImp).fin} ;
-- ImpP3 np vp = {s = np.s!NPC Dir ++ "كو" ++ (vp.s ! VPImp ).inf ++ "دو"}; here VPImp form is not correct e.g jan ko sw do, rather jan ko swnE do, and swnE is stored in vp.VPInf.fin -- ImpP3 np vp = {s = np.s!NPC Dir ++ "کو" ++ (vp.s ! VPImp ).inf ++ "دو"}; here VPImp form is not correct e.g jan ko sw do, rather jan ko swnE do, and swnE is stored in vp.VPInf.fin
ImpP3 np vp = {s = np.s!NPC Dir ++ "كو" ++ (vp.s ! VPInf ).fin ++ "دو"}; ImpP3 np vp = {s = np.s!NPC Dir ++ "کو" ++ (vp.s ! VPInf ).fin ++ "دو"};
} }

148
lib/src/urdu/LexiconUrd.gf
View File

@@ -11,41 +11,41 @@ concrete LexiconUrd of Lexicon = CatUrd **
lin lin
airplane_N = mkN "جہاز" ; airplane_N = mkN "جہاز" ;
answer_V2S = mkV2 (compoundV "جواب" (mkV "دینا")) ; answer_V2S = mkV2 (compoundV "جواب" (mkV "دینا")) ;
apartment_N = mkN "كمرہ" ; apartment_N = mkN "کمرہ" ;
apple_N = mkN "سیب" ; apple_N = mkN "سیب" ;
art_N = mkN "فن" ; art_N = mkN "فن" ;
ask_V2Q = mkV2 (mkV "پوچھنا") ; ask_V2Q = mkV2 (mkV "پوچھنا") ;
baby_N = mkN "بچہ" ; baby_N = mkN "بچہ" ;
bad_A = mkA "برا" ; bad_A = mkA "برا" ;
bank_N = mkN "بینك" ; bank_N = mkN "بینک" ;
beautiful_A = mkA "خوبصورت" ; beautiful_A = mkA "خوبصورت" ;
become_VA = mkV "بننا"; become_VA = mkV "بننا";
beer_N = mkN "بییر" ; beer_N = mkN "بییر" ;
beg_V2V = mkV2V (compoundV "التجا" (mkV "كرنا")) "سے" "كہ" False; beg_V2V = mkV2V (compoundV "التجا" (mkV "کرنا")) "سے" "کہ" False;
big_A = mkA "بڑا" ; big_A = mkA "بڑا" ;
bike_N = mkN "سایكل" feminine ; bike_N = mkN "سایکل" feminine ;
bird_N = mkN "پرندہ" ; bird_N = mkN "پرندہ" ;
black_A = mkA "كالا" ; black_A = mkA "کالا" ;
blue_A = mkA "نیلا" ; blue_A = mkA "نیلا" ;
boat_N = mkN "كشتی" ; boat_N = mkN "کشتی" ;
book_N = mkN "كتاب" feminine ; book_N = mkN "کتاب" feminine ;
boot_N = mkN "جوتا" ; boot_N = mkN "جوتا" ;
boss_N = mkN "صاحب" ; boss_N = mkN "صاحب" ;
boy_N = mkN "لڑكا" ; boy_N = mkN "لڑکا" ;
bread_N = mkN "روٹی" ; bread_N = mkN "روٹی" ;
break_V2 = mkV2 (mkV "توڑنا") ; break_V2 = mkV2 (mkV "توڑنا") ;
broad_A = mkA "كھلا" ; broad_A = mkA "کھلا" ;
brother_N2 = mkN2 (mkN "بھای") (mkPrep "كا" "كا") "كے" ; --not correct brother_N2 = mkN2 (mkN "بھای") (mkPrep "کا" "کا") "کے" ; --not correct
brown_A = mkA "نسواری" ; brown_A = mkA "نسواری" ;
butter_N = mkN "مكھن" ; butter_N = mkN "مکھن" ;
buy_V2 = mkV2 (mkV "خریدنا") "كو"; buy_V2 = mkV2 (mkV "خریدنا") "کو";
camera_N = mkN "كیمرہ" ; camera_N = mkN "کیمرہ" ;
cap_N = mkN "ٹوپی" ; cap_N = mkN "ٹوپی" ;
car_N = mkN "گاڑی" ; car_N = mkN "گاڑی" ;
carpet_N = mkN "تپائی" ; carpet_N = mkN "تپائی" ;
cat_N = mkN "بلی" ; cat_N = mkN "بلی" ;
ceiling_N = mkN "چھت" feminine ; ceiling_N = mkN "چھت" feminine ;
chair_N = mkN "كرسی" ; chair_N = mkN "کرسی" ;
cheese_N = mkN "پنیر" feminine ; cheese_N = mkN "پنیر" feminine ;
child_N = mkN "بچہ" ; child_N = mkN "بچہ" ;
church_N = mkCmpdNoun "گرجا" (mkN "گھر") ; church_N = mkCmpdNoun "گرجا" (mkN "گھر") ;
@@ -53,26 +53,26 @@ concrete LexiconUrd of Lexicon = CatUrd **
clean_A = mkA "صاف" ; clean_A = mkA "صاف" ;
clever_A = mkA "ہوشیار" ; clever_A = mkA "ہوشیار" ;
close_V2 = mkV2 (compoundV "بند" do_V2); close_V2 = mkV2 (compoundV "بند" do_V2);
coat_N = mkN "كوٹ" ; coat_N = mkN "کوٹ" ;
cold_A = mkA "ٹھنڈا" ; cold_A = mkA "ٹھنڈا" ;
come_V = mkV "آنا" ; come_V = mkV "آنا" ;
computer_N = mkN "كمپیوٹر" ; computer_N = mkN "کمپیوٹر" ;
country_N = mkN "ملك" ; country_N = mkN "ملک" ;
cousin_N = mkCmpdNoun "چچا" (mkN "زاد") ; -- a compund noun made of two nouns cousin_N = mkCmpdNoun "چچا" (mkN "زاد") ; -- a compund noun made of two nouns
cow_N = mkN "گاے" feminine ; cow_N = mkN "گاے" feminine ;
die_V = mkV "مرنا" ; die_V = mkV "مرنا" ;
dirty_A = mkA "گندا" ; dirty_A = mkA "گندا" ;
distance_N3 = mkN3 (mkN "فاصلہ") (mkPrep "كا" "كا") "كے" "سے" ; distance_N3 = mkN3 (mkN "فاصلہ") (mkPrep "کا" "کا") "کے" "سے" ;
doctor_N = mkN "معالج" ; doctor_N = mkN "معالج" ;
dog_N = mkN "كتا" ; dog_N = mkN "کتا" ;
door_N = mkN "دروازہ" ; door_N = mkN "دروازہ" ;
drink_V2 = mkV2 (mkV "پینا"); drink_V2 = mkV2 (mkV "پینا");
easy_A2V = mkA "آسان" "" ; easy_A2V = mkA "آسان" "" ;
eat_V2 = mkV2 (mkV "كھانا") "" ; eat_V2 = mkV2 (mkV "کھانا") "" ;
empty_A = mkA "خالی" ; empty_A = mkA "خالی" ;
enemy_N = mkN "دشمن" ; enemy_N = mkN "دشمن" ;
factory_N = mkN "كارخانہ" ; factory_N = mkN "کارخانہ" ;
father_N2 = mkN2 (mkN "ابا") (mkPrep "كا" "كا") "كے" ; father_N2 = mkN2 (mkN "ابا") (mkPrep "کا" "کا") "کے" ;
fear_VS = mkV "ڈرنا"; fear_VS = mkV "ڈرنا";
find_V2 = mkV2 (mkV "پانا") ; find_V2 = mkV2 (mkV "پانا") ;
fish_N = mkN "مچھلی" ; fish_N = mkN "مچھلی" ;
@@ -83,7 +83,7 @@ concrete LexiconUrd of Lexicon = CatUrd **
fruit_N = mkN "پھل" ; fruit_N = mkN "پھل" ;
-- fun_AV = mkAV (regA "f?ن") ; -- fun_AV = mkAV (regA "f?ن") ;
garden_N = mkN "باغ" ; garden_N = mkN "باغ" ;
girl_N = mkN "لڑكی" ; girl_N = mkN "لڑکی" ;
glove_N = mkN "دستانہ" ; glove_N = mkN "دستانہ" ;
gold_N = mkN "سونا" ; gold_N = mkN "سونا" ;
good_A = mkA "اچھا" ; good_A = mkA "اچھا" ;
@@ -108,38 +108,38 @@ concrete LexiconUrd of Lexicon = CatUrd **
know_VQ = (mkV "جاننا") ; know_VQ = (mkV "جاننا") ;
lake_N = mkN "جھیل" feminine ; lake_N = mkN "جھیل" feminine ;
lamp_N = mkN "لیمپ" ; lamp_N = mkN "لیمپ" ;
learn_V2 = mkV2 (mkV "سیكھنا") ; learn_V2 = mkV2 (mkV "سیکھنا") ;
leather_N = mkN "چمڑا" ; leather_N = mkN "چمڑا" ;
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 = mkA "لمبا" ; long_A = mkA "لمبا" ;
lose_V2 = mkV2 (compoundV "كھو" do_V2) ; lose_V2 = mkV2 (compoundV "کھو" do_V2) ;
love_N = mkN "محبت" ; love_N = mkN "محبت" ;
love_V2 = mkV2 (compoundV "پیار" do_V2) "كو"; love_V2 = mkV2 (compoundV "پیار" do_V2) "کو";
man_N = mkN "آدمی" "آدمی" "آدمی" "آدمی" "آدمیوں" "آدمیو" masculine ; man_N = mkN "آدمی" "آدمی" "آدمی" "آدمی" "آدمیوں" "آدمیو" masculine ;
married_A2 = mkA "شادی شدہ" "سے" ; married_A2 = mkA "شادی شدہ" "سے" ;
meat_N = mkN "گوشت" ; meat_N = mkN "گوشت" ;
milk_N = mkN "دودھ" ; milk_N = mkN "دودھ" ;
moon_N = mkN "چاند" ; moon_N = mkN "چاند" ;
mother_N2 = mkN2 (mkN "ماں") (mkPrep "كی" "كی") "كے"; -- not covered need to be discussed mother_N2 = mkN2 (mkN "ماں") (mkPrep "کی" "کی") "کے"; -- not covered need to be discussed
mountain_N = mkN "پہاڑی" ; mountain_N = mkN "پہاڑی" ;
music_N = mkN "موسیقی" ; music_N = mkN "موسیقی" ;
narrow_A = mkA "باریك" ; narrow_A = mkA "باریک" ;
new_A = mkA "نیا" ; new_A = mkA "نیا" ;
newspaper_N = mkN "اخبار" ; newspaper_N = mkN "اخبار" ;
oil_N = mkN "تیل" ; oil_N = mkN "تیل" ;
old_A = mkA "بوڑھا" ; old_A = mkA "بوڑھا" ;
open_V2 = mkV2 (mkV "كھولنا") ; open_V2 = mkV2 (mkV "کھولنا") ;
paint_V2A = mkV2 (compoundV "رنگ" do_V2) ; paint_V2A = mkV2 (compoundV "رنگ" do_V2) ;
paper_N = mkN "كاغز" ; paper_N = mkN "کاغز" ;
paris_PN = mkPN "پیرس" ; paris_PN = mkPN "پیرس" ;
peace_N = mkN "امن" ; peace_N = mkN "امن" ;
pen_N = mkN "پنسل" ; pen_N = mkN "پنسل" ;
planet_N = mkN "سیارہ" ; planet_N = mkN "سیارہ" ;
plastic_N = mkN "پلاسٹك" ; plastic_N = mkN "پلاسٹک" ;
play_V2 = mkV2 (mkV "كھیلنا") ; play_V2 = mkV2 (mkV "کھیلنا") ;
policeman_N = mkCmpdNoun "پولیس" (mkN "والا") ; policeman_N = mkCmpdNoun "پولیس" (mkN "والا") ;
priest_N = (mkN "پیغمبر") ; priest_N = (mkN "پیغمبر") ;
-- probable_AS = mkAS (regA "پr?بابلع") ; -- probable_AS = mkAS (regA "پr?بابلع") ;
@@ -155,19 +155,19 @@ concrete LexiconUrd of Lexicon = CatUrd **
-- roof_N = mkN "چھت" masculine ; -- roof_N = mkN "چھت" masculine ;
rubber_N = mkN "ربڑ" ; rubber_N = mkN "ربڑ" ;
run_V = mkV "دوڑنا" ; run_V = mkV "دوڑنا" ;
say_VS = mkV "كہنا" ; say_VS = mkV "کہنا" ;
school_N = mkN "سكول" ; school_N = mkN "سکول" ;
science_N = mkN "سانس" ; science_N = mkN "سانس" ;
sea_N = mkN "سمندر" ; sea_N = mkN "سمندر" ;
seek_V2 = mkV2 (compoundV "تلاش" do_V2) ; seek_V2 = mkV2 (compoundV "تلاش" do_V2) ;
see_V2 = mkV2 (mkV "دیكھنا") ; see_V2 = mkV2 (mkV "دیکھنا") ;
sell_V3 = mkV3 (mkV "بیچنا") "كو" ""; sell_V3 = mkV3 (mkV "بیچنا") "کو" "";
send_V3 = mkV3 (mkV "بھیجنا") "كو" ""; send_V3 = mkV3 (mkV "بھیجنا") "کو" "";
sheep_N = mkN "بھیڑ" feminine ; sheep_N = mkN "بھیڑ" feminine ;
ship_N = mkN "جہاز" ; ship_N = mkN "جہاز" ;
shirt_N = mkN "قمیص" feminine; shirt_N = mkN "قمیص" feminine;
shoe_N = mkN "جوتا" ; shoe_N = mkN "جوتا" ;
shop_N = mkN "دوكان" feminine ; shop_N = mkN "دوکان" feminine ;
short_A = mkA "چھوٹا" ; short_A = mkA "چھوٹا" ;
silver_N = mkN "چاندی" ; silver_N = mkN "چاندی" ;
sister_N = mkN "بہن" feminine ; sister_N = mkN "بہن" feminine ;
@@ -186,7 +186,7 @@ concrete LexiconUrd of Lexicon = CatUrd **
switch8off_V2 = mkV2 (mkV "چلانا") ; switch8off_V2 = mkV2 (mkV "چلانا") ;
switch8on_V2 = mkV2 (compoundV "بند" do_V2) ; switch8on_V2 = mkV2 (compoundV "بند" do_V2) ;
table_N = mkN "میز" feminine ; table_N = mkN "میز" feminine ;
talk_V3 = mkV3 (mkV "بولنا") "سے" "[كے بارے میN]"; talk_V3 = mkV3 (mkV "بولنا") "سے" "[کے بارے میN]";
teacher_N = mkN "استاد" ; teacher_N = mkN "استاد" ;
teach_V2 = mkV2 (mkV "پڑھنا") ; teach_V2 = mkV2 (mkV "پڑھنا") ;
television_N = mkN "تیلیویژن" ; television_N = mkN "تیلیویژن" ;
@@ -204,35 +204,35 @@ concrete LexiconUrd of Lexicon = CatUrd **
walk_V = mkV "چلنا" ; walk_V = mkV "چلنا" ;
warm_A = mkA "گرم" ; warm_A = mkA "گرم" ;
war_N = mkN "جنگ" ; war_N = mkN "جنگ" ;
watch_V2 = mkV2 (mkV "دیكھنا") ; watch_V2 = mkV2 (mkV "دیکھنا") ;
water_N = mkN "پانی" ; -- not covered masculine ending with y water_N = mkN "پانی" ; -- not covered masculine ending with y
white_A = mkA "سفید" ; white_A = mkA "سفید" ;
window_N = mkN "كھڑكی" ; window_N = mkN "کھڑکی" ;
wine_N = mkN "شراب" feminine ; wine_N = mkN "شراب" feminine ;
win_V2 = mkV2 (mkV "جیتنا") ; win_V2 = mkV2 (mkV "جیتنا") ;
woman_N = mkN "عورت" feminine ; woman_N = mkN "عورت" feminine ;
wonder_VQ = compoundV "حیران" (mkV "ہونا") ; wonder_VQ = compoundV "حیران" (mkV "ہونا") ;
wood_N = mkN "لكڑی" ; wood_N = mkN "لکڑی" ;
write_V2 = mkV2 (mkV "لكھنا") ; write_V2 = mkV2 (mkV "لکھنا") ;
yellow_A = mkA "پیلا" ; yellow_A = mkA "پیلا" ;
young_A = mkA "جوان" ; young_A = mkA "جوان" ;
do_V2 = mkV2 (mkV "كرنا") ; do_V2 = mkV2 (mkV "کرنا") ;
now_Adv = mkAdv "اب" ; now_Adv = mkAdv "اب" ;
already_Adv = mkAdv "[پہلے ہy]" ; already_Adv = mkAdv "[پہلے ہy]" ;
song_N = mkN "گانا" ; song_N = mkN "گانا" ;
add_V3 = mkV3 (compoundV "اضافہ" do_V2) "" "" ; add_V3 = mkV3 (compoundV "اضافہ" do_V2) "" "" ;
number_N = mkN "ہندسہ" ; number_N = mkN "ہندسہ" ;
put_V2 = mkV2 (mkV "ڈالنا") ; put_V2 = mkV2 (mkV "ڈالنا") ;
stop_V = mkV "ركنا" ; stop_V = mkV "رکنا" ;
jump_V = mkV "چھلانگنا" ; jump_V = mkV "چھلانگنا" ;
left_Ord = {s = "بایاں" ; n = singular}; left_Ord = {s = "بایاں" ; n = singular};
right_Ord = {s= "دایاں" ; n = singular}; right_Ord = {s= "دایاں" ; n = singular};
far_Adv = mkAdv "دور" ; far_Adv = mkAdv "دور" ;
correct_A = mkA "صیح" ; correct_A = mkA "صیح" ;
dry_A = mkA "خشك" ; dry_A = mkA "خشک" ;
dull_A = mkA "نالایق" ; dull_A = mkA "نالایق" ;
full_A = mkA "مكمل" ; full_A = mkA "مکمل" ;
heavy_A = mkA "بھاری" ; heavy_A = mkA "بھاری" ;
near_A = mkA "قریبی" ; near_A = mkA "قریبی" ;
rotten_A = mkA "خراب" ; rotten_A = mkA "خراب" ;
@@ -241,11 +241,11 @@ concrete LexiconUrd of Lexicon = CatUrd **
smooth_A = mkA "ہموار" ; smooth_A = mkA "ہموار" ;
straight_A = mkA "سیدھا" ; straight_A = mkA "سیدھا" ;
wet_A = mkA "گیلا" ; ---- wet_A = mkA "گیلا" ; ----
wide_A = mkA "كھلا" ; wide_A = mkA "کھلا" ;
animal_N = mkN "جانور" ; animal_N = mkN "جانور" ;
ashes_N = mkN "راكھ" feminine; -- FIXME: plural only? ashes_N = mkN "راکھ" feminine; -- FIXME: plural only?
back_N = mkN "قمر" feminine ; back_N = mkN "قمر" feminine ;
bark_N = mkN "بارك" ; bark_N = mkN "بارک" ;
belly_N = mkN "دھنی" ; belly_N = mkN "دھنی" ;
blood_N = mkN "خون" ; blood_N = mkN "خون" ;
bone_N = mkN "ہڈی" ; bone_N = mkN "ہڈی" ;
@@ -253,10 +253,10 @@ concrete LexiconUrd of Lexicon = CatUrd **
cloud_N = mkN "بادل" ; cloud_N = mkN "بادل" ;
day_N = mkN "دن" ; day_N = mkN "دن" ;
dust_N = mkN "دھول" ; dust_N = mkN "دھول" ;
ear_N = mkN "كان" ; ear_N = mkN "کان" ;
earth_N = mkN "زمین" feminine ; earth_N = mkN "زمین" feminine ;
egg_N = mkN "انڈہ" ; egg_N = mkN "انڈہ" ;
eye_N = mkN "آنكھ" feminine ; eye_N = mkN "آنکھ" feminine ;
fat_N = mkN "موٹا" ; fat_N = mkN "موٹا" ;
feather_N = mkN "پر" ; feather_N = mkN "پر" ;
fingernail_N = mkN "ناخن" ; fingernail_N = mkN "ناخن" ;
@@ -274,7 +274,7 @@ concrete LexiconUrd of Lexicon = CatUrd **
horn_N = mkN "گھنٹی" ; horn_N = mkN "گھنٹی" ;
husband_N = mkN "شوہر" ; husband_N = mkN "شوہر" ;
ice_N = mkN "برف" feminine ; ice_N = mkN "برف" feminine ;
knee_N = mkN "كہنی" ; knee_N = mkN "کہنی" ;
leaf_N = mkN "پتہ" ; leaf_N = mkN "پتہ" ;
leg_N = mkN "ٹانگ" feminine ; leg_N = mkN "ٹانگ" feminine ;
liver_N = mkN "جگر" ; liver_N = mkN "جگر" ;
@@ -283,13 +283,13 @@ concrete LexiconUrd of Lexicon = CatUrd **
name_N = mkN "نام" ; name_N = mkN "نام" ;
neck_N = mkN "گردن" feminine ; neck_N = mkN "گردن" feminine ;
night_N = mkN "رات" feminine ; night_N = mkN "رات" feminine ;
nose_N = mkN "ناك" ; nose_N = mkN "ناک" ;
person_N = mkN "شخص" ; person_N = mkN "شخص" ;
rain_N = mkN "بارش" feminine ; rain_N = mkN "بارش" feminine ;
road_N = mkN "سڑك" ; road_N = mkN "سڑک" ;
root_N = mkN "جڑ" feminine ; root_N = mkN "جڑ" feminine ;
rope_N = mkN "رسی" ; rope_N = mkN "رسی" ;
salt_N = mkN "نمك" feminine ; salt_N = mkN "نمک" feminine ;
sand_N = mkN "ریت" feminine ; sand_N = mkN "ریت" feminine ;
seed_N = mkN "بیج" ; seed_N = mkN "بیج" ;
skin_N = mkN "جلد" feminine ; skin_N = mkN "جلد" feminine ;
@@ -308,49 +308,49 @@ concrete LexiconUrd of Lexicon = CatUrd **
blow_V = mkV "چلنا" ; blow_V = mkV "چلنا" ;
breathe_V = compoundV "سانس" (mkV "لینا" ) ; breathe_V = compoundV "سانس" (mkV "لینا" ) ;
burn_V = mkV "جلنا" ; burn_V = mkV "جلنا" ;
dig_V = mkV "كھودنا" ; 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 "دینا") "كو" ""; give_V3 = mkV3 (mkV "دینا") "کو" "";
laugh_V = mkV "ہنسنا" ; laugh_V = mkV "ہنسنا" ;
-- lie_N = mkN "جھوت" masculine ; -- lie_N = mkN "جھوت" masculine ;
lie_V = compoundV "جھوٹ" (mkV "بولنا" ); 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 = compoundV "كھڑے" (mkV "ہونا" ); stand_V = compoundV "کھڑے" (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_V2 = mkV2 (mkV "گننا") ; count_V2 = mkV2 (mkV "گننا") ;
cut_V2 = mkV2 (mkV "كاتنا") ; cut_V2 = mkV2 (mkV "کاتنا") ;
fear_V2 = mkV2 (mkV "ڈرنا") ; fear_V2 = mkV2 (mkV "ڈرنا") ;
fight_V2 = mkV2 (mkV "لڑنا") ; fight_V2 = mkV2 (mkV "لڑنا") ;
hit_V2 = mkV2 (compoundV "ٹھوكر" (mkV "مارنا" )); hit_V2 = mkV2 (compoundV "ٹھوکر" (mkV "مارنا" ));
hold_V2 = mkV2 (mkV "پكڑنا") ; hold_V2 = mkV2 (mkV "پکڑنا") ;
hunt_V2 = mkV2 (compoundV "شكار" do_V2); hunt_V2 = mkV2 (compoundV "شکار" do_V2);
kill_V2 = mkV2 (compoundV "مار" (mkV "ڈالنا" )) ; kill_V2 = mkV2 (compoundV "مار" (mkV "ڈالنا" )) ;
pull_V2 = mkV2 (mkV "كھنچنا"); pull_V2 = mkV2 (mkV "کھنچنا");
push_V2 = mkV2 (mkV "دھكیلنا") "كو" ; push_V2 = mkV2 (mkV "دھکیلنا") "کو" ;
rub_V2 = mkV2 (mkV "رگڑنا") ; rub_V2 = mkV2 (mkV "رگڑنا") ;
scratch_V2 = mkV2 (mkV "كھرچنا") "كو" ; scratch_V2 = mkV2 (mkV "کھرچنا") "کو" ;
split_V2 = mkV2 (mkV "بانٹنا") "كو" ; split_V2 = mkV2 (mkV "بانٹنا") "کو" ;
-- squeeze_V2 = dirV2 (regV "سq?ععزع") ; -- squeeze_V2 = dirV2 (regV "سq?ععزع") ;
-- stab_V2 = dirV2 (regDuplV "ستاب") ; -- stab_V2 = dirV2 (regDuplV "ستاب") ;
suck_V2 = mkV2 (mkV "چوسنا") ; suck_V2 = mkV2 (mkV "چوسنا") ;
throw_V2 = mkV2 (mkV "پھینكنا") ; throw_V2 = mkV2 (mkV "پھینکنا") ;
tie_V2 = mkV2 (mkV "باندھنا") ; tie_V2 = mkV2 (mkV "باندھنا") ;
wash_V2 = mkV2 (mkV "دھونا") ; wash_V2 = mkV2 (mkV "دھونا") ;
wipe_V2 = mkV2 (compoundV "صاف" (mkV "كرنا" )); wipe_V2 = mkV2 (compoundV "صاف" (mkV "کرنا" ));
---- other_A = regA "؟تہعر" ; ---- other_A = regA "؟تہعر" ;

6
lib/src/urdu/MorphoUrd.gf
View File

@@ -392,7 +392,7 @@ makeIQuant : Str -> {s : Number => Gender => Case => Str} = \str -> {
<Perf,_,_,_> => case root of { <Perf,_,_,_> => case root of {
"ہو" => (mkPastInd root p n g).s ; "ہو" => (mkPastInd root p n g).s ;
"جا" => (mkPastInd "گی" p n g).s ; "جا" => (mkPastInd "گی" p n g).s ;
"كر" => (mkPastInd "ك" p n g).s ; "کر" => (mkPastInd "ک" p n g).s ;
"دے" => (mkPastInd "د" p n g).s ; "دے" => (mkPastInd "د" p n g).s ;
"لے" => (mkPastInd "ل" p n g).s ; "لے" => (mkPastInd "ل" p n g).s ;
_ => (mkPastInd root p n g).s }; _ => (mkPastInd root p n g).s };
@@ -415,7 +415,7 @@ makeIQuant : Str -> {s : Number => Gender => Case => Str} = \str -> {
mkPastInd : Str -> UPerson -> Number -> Gender -> {s:Str} = \root,p,n,g -> mkPastInd : Str -> UPerson -> Number -> Gender -> {s:Str} = \root,p,n,g ->
{s = let roo = root ; {s = let roo = root ;
a = case (last root) of { a = case (last root) of {
"ا"|"آ"|"و"|"ك" => "یا" ; "ا"|"آ"|"و"|"ک" => "یا" ;
_ => "ا" _ => "ا"
} ; } ;
y = case (last root) of { y = case (last root) of {
@@ -423,7 +423,7 @@ makeIQuant : Str -> {s : Number => Gender => Case => Str} = \str -> {
_ => "ی" _ => "ی"
} ; } ;
e = case (last root) of { e = case (last root) of {
"ا"|"آ"|"و"|"ك" => "ئے" ; "ا"|"آ"|"و"|"ک" => "ئے" ;
_ => "ے" _ => "ے"
} ; } ;
yN = case (last root) of { yN = case (last root) of {

12
lib/src/urdu/NumeralUrd.gf
View File

@@ -55,7 +55,7 @@ oper mkR : Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> DSize
} ; } ;
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 "چود" "چوب" "چون" "چوا" "چوو" "چون" "چوہ" "چور" "چور" ;
@@ -71,7 +71,7 @@ oper rows : DSize => DSize => Str = table {
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} ;
@@ -83,10 +83,10 @@ lin pot1plus d e = {s = rows ! e.size ! d.size ; size = less100 ; n = Pl} ; --ch
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 ++ "لاكھ" ; size = more100 ; n = Pl} ; --changed from d.n s2 = d.s ! unit ++ "لاکھ" ; size = more100 ; n = Pl} ; --changed from d.n
lin pot2plus d e = lin pot2plus d e =
{s = (mksau (d.s ! unit) d.size) ++ e.s ; {s = (mksau (d.s ! unit) d.size) ++ e.s ;
s2 = (d.s ! unit) ++ "لاكھ" ++ (mkhazar e.s e.size) ; s2 = (d.s ! unit) ++ "لاکھ" ++ (mkhazar e.s e.size) ;
size = more100 ; n = Pl} ; size = more100 ; n = Pl} ;
lin pot2as3 n = {s = n.s ; n = n.n} ; lin pot2as3 n = {s = n.s ; n = n.n} ;
@@ -111,7 +111,7 @@ lin D_9 = { s = "۹" ; n = Pl};
lin IDig d = { s = \\_ => d.s ; n = d.n} ; lin IDig d = { s = \\_ => d.s ; n = d.n} ;
lin IIDig d dg = { s = \\df => Prelude.glue (dg.s ! df) d.s ; n = Pl }; lin IIDig d dg = { s = \\df => Prelude.glue (dg.s ! df) d.s ; n = Pl };
oper ekhazar : Str = variants {"ہزار" ; "ایك" ++ "ہزار"} ; oper ekhazar : Str = variants {"ہزار" ; "ایک" ++ "ہزار"} ;
oper mkhazar : Str -> Size -> Str = \s -> \sz -> table {singl => ekhazar ; _ => s ++ "ہزار"} ! sz ; oper mkhazar : Str -> Size -> Str = \s -> \sz -> table {singl => ekhazar ; _ => s ++ "ہزار"} ! sz ;
oper mksau : Str -> DSize -> Str = \s -> \sz -> table {sg => "ایك" ++ "سو" ; _ => s ++ "سو"} ! sz ; oper mksau : Str -> DSize -> Str = \s -> \sz -> table {sg => "ایک" ++ "سو" ; _ => s ++ "سو"} ! sz ;
} }

3
lib/src/urdu/ParseUrd.gf
View File

@@ -84,6 +84,9 @@ ComplVV v a p vp = insertTrans (insertVV (infVV v.isAux vp) (predV v) vp.embComp
} }
} ; } ;
-} -}
CompVP ant p vp = {s = \\a => ant.s ++ p.s ++
infVP False vp a} ;
that_RP = { that_RP = {
s = \\_,_ => "kh" ; s = \\_,_ => "kh" ;
a = RNoAg a = RNoAg

98
lib/src/urdu/StructuralUrd.gf
View File

@@ -5,45 +5,45 @@ concrete StructuralUrd of Structural = CatUrd **
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 (ParadigmsUrd.mkN "ہر كوی" "ہر كوی" "ہر كوی" "ہر كوی" "ہر كوی" "ہر كوی" Masc )); -- not a good way coz need to include NounUrd everybody_NP = MassNP (UseN (ParadigmsUrd.mkN "ہر کوی" "ہر کوی" "ہر کوی" "ہر کوی" "ہر کوی" "ہر کوی" Masc )); -- not a good way coz need to include NounUrd
every_Det = mkDet "ہر" "ہر" "ہر" "ہر" Sg; every_Det = mkDet "ہر" "ہر" "ہر" "ہر" Sg;
everything_NP = MassNP (UseN (ParadigmsUrd.mkN "ہر چیز" "ہر چیز" "ہر چیزو" "سب چیزیں" "سب چیزوں" "سب چیزو" Masc )); everything_NP = MassNP (UseN (ParadigmsUrd.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 "زیادہ تر" ;
@@ -63,67 +63,67 @@ concrete StructuralUrd of Structural = CatUrd **
-----b no_Phr = ss "نo" ; -----b no_Phr = ss "نo" ;
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 "" "" ;
please_Voc = ss "مہربانی" ; please_Voc = ss "مہربانی" ;
possess_Prep = mkPrep "كا" "كی" ; possess_Prep = mkPrep "کا" "کی" ;
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 (ParadigmsUrd.mkN "كوی" "كوی" "كوی" "كوی" "كوی" "كوی" Masc )); somebody_NP = MassNP (UseN (ParadigmsUrd.mkN "کوی" "کوی" "کوی" "کوی" "کوی" "کوی" Masc ));
someSg_Det = mkDet "كچھ" "كچھ" "كچھ" "كچھ" Sg ; someSg_Det = mkDet "کچھ" "کچھ" "کچھ" "کچھ" Sg ;
somePl_Det = mkDet "كچھ" "كچھ" "كچھ" "كچھ" Pl ; somePl_Det = mkDet "کچھ" "کچھ" "کچھ" "کچھ" Pl ;
something_NP = MassNP (UseN (ParadigmsUrd.mkN "كوی چیز" "كوی چیز" "كوی چیز" "كھ چیزیں" "كھ چیزوں" "كھ چیزو" Masc )); something_NP = MassNP (UseN (ParadigmsUrd.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 ["میں سے"] ["میں سے"] ;
too_AdA = ss "بہت" ; too_AdA = ss "بہت" ;
to_Prep = mkPrep "كو" "كو" ; -- ** {lock_Prep = <>}; to_Prep = mkPrep "کو" "کو" ; -- ** {lock_Prep = <>};
under_Prep = mkPrep "كے نیچے" "كے نیچے" ; -- ** {lock_Prep = <>}; under_Prep = mkPrep "کے نیچے" "کے نیچے" ; -- ** {lock_Prep = <>};
very_AdA = ss "بہت" ; very_AdA = ss "بہت" ;
want_VV = mkV "چاہنا" ** { isAux = False} ; want_VV = mkV "چاہنا" ** { isAux = False} ;
we_Pron = personalPN "ہم" "ہم" "ہم" "ہمارا" "ہماری" "ہمارے" "ہماری" 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 "كون سا" "كون سی" "كون سے" "كون سی" ; -- whichPl_IDet = makeDet "کون سا" "کون سی" "کون سے" "کون سی" ;
-- whichSg_IDet = makeDet "كون سا" "كون سی" "كون سے" "كون سی" ; -- whichSg_IDet = makeDet "کون سا" "کون سی" "کون سے" "کون سی" ;
whoSg_IP = mkIP "كون" "كس" "كس" 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 (ParadigmsUrd.mkN "كوی چیز نہیں" "كوی چیز نہیں" "كوی چیز نہیں" "كوی چیز نہیں" "كوی چیز نہیں" "كوی چیز نہیں" Masc )); nothing_NP = MassNP (UseN (ParadigmsUrd.mkN "کوی چیز نہیں" "کوی چیز نہیں" "کوی چیز نہیں" "کوی چیز نہیں" "کوی چیز نہیں" "کوی چیز نہیں" Masc ));
except_Prep = mkPrep "كے سواے" "كے سواے" ; except_Prep = mkPrep "کے سواے" "کے سواے" ;
nobody_NP = MassNP (UseN (ParadigmsUrd.mkN "كوی نہیں" "كوی نہیں" "كوی نہیں" "كوی نہیں" "كوی نہیں" "كوی نہیں" Masc )); nobody_NP = MassNP (UseN (ParadigmsUrd.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 "اردو" ;

23
lib/src/urdu/src/ExtraUrd.gf
View File

@@ -25,4 +25,25 @@ flags coding = utf8 ;
make_CV = mkVerb "nothing" ** {c2 = "" }; make_CV = mkVerb "nothing" ** {c2 = "" };
-- for VP conjunction -- for VP conjunction
}
PassVPSlash vps = vps ;
{-
--{
-- let
-- be = predAux auxBe
-- in {
-- s = be.s ;
s = vps.s ;
obj = vps.obj ;
subj = vps.c2.c ;
inf = vps.inf;
ad = vps.ad;
embComp = vps.embComp;
prog = vps.prog ;
comp = vps.comp ;
cvp = vps.cvp
-- } ;
--};
-}
}

4
src/compiler/GF/Text/Transliterations.hs
View File

@@ -138,13 +138,13 @@ allTransUrduHindi = words $
transUrdu :: Transliteration transUrdu :: Transliteration
transUrdu = transUrdu =
(mkTransliteration "Urdu" allTrans allCodes) where (mkTransliteration "Urdu" allTrans allCodes) where
allCodes = [0x0622 .. 0x062f] ++ [0x0630 .. 0x063a] ++ [0x0641 .. 0x0648] ++ allCodes = [0x0622 .. 0x062f] ++ [0x0630 .. 0x063a] ++ [0x0641,0x0642] ++ [0x06A9] ++ [0x0644 .. 0x0648] ++
[0x0654,0x0658,0x0679,0x067e,0x0686,0x0688,0x0691,0x0698,0x06af,0x06c1,0x06c3,0x06cc,0x06ba,0x06be,0x06d2] ++ [0x0654,0x0658,0x0679,0x067e,0x0686,0x0688,0x0691,0x0698,0x06af,0x06c1,0x06c3,0x06cc,0x06ba,0x06be,0x06d2] ++
[0x06f0 .. 0x06f9] ++ [0x061f,0x06D4] [0x06f0 .. 0x06f9] ++ [0x061f,0x06D4]
allTrans = words $ allTrans = words $
"A - w^ - y^ a b - t C j H K d " ++ -- 0622 - 062f "A - w^ - y^ a b - t C j H K d " ++ -- 0622 - 062f
"Z r z s X S Z- t- z- e G " ++ -- 0630 - 063a "Z r z s X S Z- t- z- e G " ++ -- 0630 - 063a
"f q k l m n - w " ++ -- 0641 - 0648 "f q k l m n - w " ++ -- 0641, 0642, 0643 - 0648
"$ n- T p c D R x g h t: y N h' E " ++ -- 0654,658,679,67e,686,688,698,6af,6c1,6c3,6cc,6ba,6be,6d2 "$ n- T p c D R x g h t: y N h' E " ++ -- 0654,658,679,67e,686,688,698,6af,6c1,6c3,6cc,6ba,6be,6d2
"N0 N1 N2 N3 N4 N5 N6 N7 N8 N9 " ++ "? ." "N0 N1 N2 N3 N4 N5 N6 N7 N8 N9 " ++ "? ."