diff --git a/src/hindustani/CommonHindustani.gf b/src/hindustani/CommonHindustani.gf index 892426e6f..8ce06374e 100644 --- a/src/hindustani/CommonHindustani.gf +++ b/src/hindustani/CommonHindustani.gf @@ -247,6 +247,10 @@ resource CommonHindustani = ParamX ** open Prelude,Predef in { } } }; + + compoundAdj : Str -> Str -> Adjective = \s1,s2 -> mkCompoundAdj (regAdjective s1) (regAdjective s2) ; + mkCompoundAdj : Adjective -> Adjective -> Adjective ; + mkCompoundAdj adj1 adj2 = {s = \\n,g,c,d => adj1.s ! n ! g ! c ! d ++ adj2.s ! n ! g ! c ! d} ; Verb : Type = {s : VerbForm => Str} ; diff --git a/src/hindustani/NounHindustani.gf b/src/hindustani/NounHindustani.gf index 53a949d39..e4e10943c 100644 --- a/src/hindustani/NounHindustani.gf +++ b/src/hindustani/NounHindustani.gf @@ -36,13 +36,13 @@ incomplete concrete NounHindustani of Noun = DetQuantOrd quant num ord = { -- s = \\ c => detquant2det quant.s num.s c ++ ord.s ; - s = \\n,g => quant.s!n!g!Dir ++ num.s ++ ord.s ; + s = \\n,g,c => quant.s!n!g!c ++ num.s ++ ord.s ; n = num.n } ; DetQuant quant num = { -- s = \\c => detquant2det quant.s num.s c; - s = \\n,g => quant.s!n!g!Dir ++ num.s; + s = \\n,g,c => quant.s!n!g!c ++ num.s; n = num.n } ; @@ -51,7 +51,12 @@ incomplete concrete NounHindustani of Noun = a = agrP3 Masc Sg } ; - PossPron p = {s = \\n,g,_ => p.ps ! n ! g ; a = p.a} ; +-- PossPron p = {s = \\n,g,_ => p.ps ! n ! g ; a = p.a} ; + PossPron p = {s = \\n,g,c => case c of { + Obl => p.ps ! Pl ! g ; + _ => p.ps ! n ! g + }; + a = p.a} ; NumSg = {s = []; n = Sg} ; NumPl = {s = []; n = Pl} ; diff --git a/src/hindustani/ResHindustani.gf b/src/hindustani/ResHindustani.gf index 869dfeccc..3fad732af 100644 --- a/src/hindustani/ResHindustani.gf +++ b/src/hindustani/ResHindustani.gf @@ -44,7 +44,7 @@ param Preposition = {s : Gender => Str}; DemPronForm = {s : Number => Gender => Case => Str}; PossPronForm = {s : Number => Gender => Case => Str}; - Determiner = {s : Number => Gender => Str ; n : Number}; + Determiner = {s : Number => Gender => Case => Str ; n : Number}; -- a useful oper eq : Str -> Str -> Bool = \s1,s2-> (pbool2bool (eqStr s1 s2)) ; @@ -64,14 +64,14 @@ param } ; detcn2NP : (Determiner) -> Noun -> NPCase -> Number -> Str = \dt,cn,npc,nn -> case npc of { -- NPC c => dt.s ! Sg ! Masc ++ cn.s ! nn ! c ; --changed while phrasebook e.g tyry beti where gender of determiner 'tyry' should be dependent on gender of common noum e.g 'beti' - NPC c => dt.s ! nn ! cn.g ++ cn.s ! nn ! c ; - NPObj => dt.s ! nn ! cn.g ++ cn.s ! nn ! Dir ; - NPErg => dt.s ! nn ! cn.g ++ cn.s ! nn ! Obl ++ "nE" + NPC c => dt.s ! nn ! cn.g ! c ++ cn.s ! nn ! c ; + NPObj => dt.s ! nn ! cn.g ! Dir ++ cn.s ! nn ! Dir ; + NPErg => dt.s ! nn ! cn.g ! Obl ++ cn.s ! nn ! Obl ++ "nE" } ; det2NP : (Determiner) -> NPCase -> Str = \dt,npc -> case npc of { - NPC c => dt.s ! Sg ! Masc ; - NPObj => dt.s ! Sg ! Masc ; - NPErg => dt.s ! Sg ! Masc ++ "nE" + NPC c => dt.s ! Sg ! Masc ! c ; + NPObj => dt.s ! Sg ! Masc ! Dir ; + NPErg => dt.s ! Sg ! Masc ! Obl ++ "nE" } ; ------------------------------------------ diff --git a/src/hindustani/SymbolHindustani.gf b/src/hindustani/SymbolHindustani.gf index b8fc7bad8..2bc28e351 100644 --- a/src/hindustani/SymbolHindustani.gf +++ b/src/hindustani/SymbolHindustani.gf @@ -15,7 +15,7 @@ incomplete concrete SymbolHindustani of Symbol = a = agrP3 cn.g Sg } ; CNSymbNP det cn xs = { - s = \\c => det.s!Sg!Masc ++ cn.s ! det.n ! Dir ++ xs.s ; + s = \\c => det.s ! det.n ! Masc ! Dir ++ cn.s ! det.n ! Dir ++ xs.s ; -- may be need to refine it i.e instead of using \\c should use table and then corresponding forms from det a = agrP3 cn.g det.n } ; CNNumNP cn i = { diff --git a/src/urdu/CommonHindustani.gf b/src/urdu/CommonHindustani.gf index 5fc647183..6ac9cdd34 100644 --- a/src/urdu/CommonHindustani.gf +++ b/src/urdu/CommonHindustani.gf @@ -247,6 +247,10 @@ resource CommonHindustani = ParamX ** open Prelude,Predef in { } } }; + + compoundAdj : Str -> Str -> Adjective = \s1,s2 -> mkCompoundAdj (regAdjective s1) (regAdjective s2) ; + mkCompoundAdj : Adjective -> Adjective -> Adjective ; + mkCompoundAdj adj1 adj2 = {s = \\n,g,c,d => adj1.s ! n ! g ! c ! d ++ adj2.s ! n ! g ! c ! d} ; Verb : Type = {s : VerbForm => Str} ; diff --git a/src/urdu/ExtraHindustani.gf b/src/urdu/ExtraHindustani.gf index 33e2d3054..0e4e9cae2 100644 --- a/src/urdu/ExtraHindustani.gf +++ b/src/urdu/ExtraHindustani.gf @@ -4,12 +4,12 @@ incomplete concrete ExtraHindustani of ExtraHindustaniAbs = CatHindustani ** open CommonHindustani,Coordination,ResHindustani, ParamX in { lin -- GenNP np = {s = \\_,_,_ => np.s ! NPC Obl ++ "كا" ; a = np.a} ; - GenNP np = {s = table { - case of { - => np.s ! NPC Obl ++ "كا" ; - => np.s ! NPC Obl ++ "كی" - }; + GenNP np = {s = \\n,g,c => + case of { + <_,Masc,_> => np.s ! NPC Obl ++ "كا" ; + <_,Fem,_> => np.s ! NPC Obl ++ "كی" }; + a = np.a} ; each_Det = mkDet "ہر كوی" "ہر كوی" "ہر كوی" "ہر كوی" Sg ; diff --git a/src/urdu/ExtraUrd.gf b/src/urdu/ExtraUrd.gf index c5d625bb1..0a76268e7 100644 --- a/src/urdu/ExtraUrd.gf +++ b/src/urdu/ExtraUrd.gf @@ -7,7 +7,9 @@ flags coding = utf8 ; -- GenNP np = {s = \\_,_,_ => np.s ! NPC Obl ++ "كا" ; a = np.a} ; GenNP np = {s = \\n,g,c => case of { - <_,Masc,_> => np.s ! NPC Obl ++ "كا" ; + => np.s ! NPC Obl ++ "كے" ; + => np.s ! NPC Obl ++ "كا" ; + => np.s ! NPC Obl ++ "كے" ; <_,Fem,_> => np.s ! NPC Obl ++ "كی" }; diff --git a/src/urdu/MorphoUrd.gf b/src/urdu/MorphoUrd.gf index 9a32e5171..6362268bf 100644 --- a/src/urdu/MorphoUrd.gf +++ b/src/urdu/MorphoUrd.gf @@ -173,13 +173,13 @@ oper IDeterminer = {s:Gender => Case => Str ; n : Number}; makeDet : Str -> Str -> Str -> Str -> Number -> Determiner = \s1,s2,s3,s4,n -> { s = table { - Sg => table { - Masc => s1 ; - Fem => s2 + Sg => table { + Masc => table {_ => s1} ; + Fem => table {_ => s2} } ; Pl => table { - Masc => s3 ; - Fem => s4 + Masc => table { _ => s3} ; + Fem => table {_ => s4} } } ; diff --git a/src/urdu/ParadigmsUrd.gf b/src/urdu/ParadigmsUrd.gf index d5cba3a15..7e7e4fcdf 100644 --- a/src/urdu/ParadigmsUrd.gf +++ b/src/urdu/ParadigmsUrd.gf @@ -75,6 +75,10 @@ oper } ; mkA2 : A -> Str -> A2 ; mkA2 a str = a ** {c2=str ; lock_A2 = <>} ; + +-- compound Adjectives + mkCompoundA : Str -> Str -> A ; -- e.g dra hwa + mkCompoundA s1 s2 = compoundAdj s1 s2 ; --2 Verbs @@ -108,8 +112,12 @@ oper ----2 Adverbs +mkAdv = overload { mkAdv : Str -> Adv -- e.g yhaN = \str -> {s = \\_ => str ; lock_Adv = <>}; + mkAdv : Str -> Str -> Adv + = \m,f -> {s = table {Masc => m ; Fem => f} ; lock_Adv = <>}; + }; ----2 Prepositions diff --git a/src/urdu/ResHindustani.gf b/src/urdu/ResHindustani.gf index e69d5e9dc..06388d71d 100644 --- a/src/urdu/ResHindustani.gf +++ b/src/urdu/ResHindustani.gf @@ -44,7 +44,7 @@ param Preposition = {s : Gender => Str}; DemPronForm = {s : Number => Gender => Case => Str}; PossPronForm = {s : Number => Gender => Case => Str}; - Determiner = {s : Number => Gender => Str ; n : Number}; + Determiner = {s : Number => Gender => Case => Str ; n : Number}; -- a useful oper eq : Str -> Str -> Bool = \s1,s2-> (pbool2bool (eqStr s1 s2)) ; @@ -64,14 +64,14 @@ param } ; detcn2NP : (Determiner) -> Noun -> NPCase -> Number -> Str = \dt,cn,npc,nn -> case npc of { -- NPC c => dt.s ! Sg ! Masc ++ cn.s ! nn ! c ; --changed while phrasebook e.g tyry beti where gender of determiner 'tyry' should be dependent on gender of common noum e.g 'beti' - NPC c => dt.s ! nn ! cn.g ++ cn.s ! nn ! c ; - NPObj => dt.s ! nn ! cn.g ++ cn.s ! nn ! Dir ; - NPErg => dt.s ! nn ! cn.g ++ cn.s ! nn ! Obl ++ "نے" + NPC c => dt.s ! nn ! cn.g ! c ++ cn.s ! nn ! c ; + NPObj => dt.s ! nn ! cn.g ! Dir ++ cn.s ! nn ! Dir ; + NPErg => dt.s ! nn ! cn.g ! Obl ++ cn.s ! nn ! Obl ++ "نے" } ; det2NP : (Determiner) -> NPCase -> Str = \dt,npc -> case npc of { - NPC c => dt.s ! Sg ! Masc ; - NPObj => dt.s ! Sg ! Masc ; - NPErg => dt.s ! Sg ! Masc ++ "نے" + NPC c => dt.s ! Sg ! Masc ! c ; + NPObj => dt.s ! Sg ! Masc ! Dir ; + NPErg => dt.s ! Sg ! Masc ! Obl ++ "نے" } ; ------------------------------------------ diff --git a/src/urdu/StructuralUrd.gf b/src/urdu/StructuralUrd.gf index 8c253e8f4..2e4bce5a2 100644 --- a/src/urdu/StructuralUrd.gf +++ b/src/urdu/StructuralUrd.gf @@ -111,7 +111,7 @@ concrete StructuralUrd of Structural = CatUrd ** yes_Utt = ss "ہاں" ; youSg_Pron = personalPN "تو" "تو" "تو" "تیرا" "تیری" "تیرے" "تیری" Sg Masc Pers2_Casual ; youPl_Pron = personalPN "تم" "تم" "تم" "تمھارا" "تمھاری" "تمھارے" "تمھاری" Pl Masc Pers2_Casual ; - youPol_Pron = personalPN "آپ" "آپ" "آپ" ["آپ كا"] ["آپ كی"] ["آپ كے"] ["آپ كی"] Sg Masc Pers2_Respect ; + youPol_Pron = personalPN "آپ" "آپ" "آپ" ["آپ كا"] ["آپ كی"] ["آپ كے"] ["آپ كی"] Pl Masc Pers2_Respect ; no_Quant = demoPN " كوی نہیں" "كوی نہیں" "كوی نہیں" ; not_Predet = {s="نہیں"} ; if_then_Conj = sd2 "اگر" "تو" ** {n = Sg} ; diff --git a/src/urdu/src/ExtraUrd.gf b/src/urdu/src/ExtraUrd.gf index 067262f16..b20bf9e47 100644 --- a/src/urdu/src/ExtraUrd.gf +++ b/src/urdu/src/ExtraUrd.gf @@ -7,7 +7,9 @@ flags coding = utf8 ; -- GenNP np = {s = \\_,_,_ => np.s ! NPC Obl ++ "ka" ; a = np.a} ; GenNP np = {s = \\n,g,c => case of { - <_,Masc,_> => np.s ! NPC Obl ++ "ka" ; + => np.s ! NPC Obl ++ "kE" ; + => np.s ! NPC Obl ++ "ka" ; + => np.s ! NPC Obl ++ "kE" ; <_,Fem,_> => np.s ! NPC Obl ++ "ky" }; diff --git a/src/urdu/src/MorphoUrd.gf b/src/urdu/src/MorphoUrd.gf index ce86a3b0f..6061cc974 100644 --- a/src/urdu/src/MorphoUrd.gf +++ b/src/urdu/src/MorphoUrd.gf @@ -173,13 +173,13 @@ oper IDeterminer = {s:Gender => Case => Str ; n : Number}; makeDet : Str -> Str -> Str -> Str -> Number -> Determiner = \s1,s2,s3,s4,n -> { s = table { - Sg => table { - Masc => s1 ; - Fem => s2 + Sg => table { + Masc => table {_ => s1} ; + Fem => table {_ => s2} } ; Pl => table { - Masc => s3 ; - Fem => s4 + Masc => table { _ => s3} ; + Fem => table {_ => s4} } } ; diff --git a/src/urdu/src/StructuralUrd.gf b/src/urdu/src/StructuralUrd.gf index 91b3aac37..46c132960 100644 --- a/src/urdu/src/StructuralUrd.gf +++ b/src/urdu/src/StructuralUrd.gf @@ -111,7 +111,7 @@ concrete StructuralUrd of Structural = CatUrd ** yes_Utt = ss "haN" ; youSg_Pron = personalPN "tw" "tw" "tw" "tyra" "tyry" "tyrE" "tyry" Sg Masc Pers2_Casual ; youPl_Pron = personalPN "tm" "tm" "tm" "tmh'ara" "tmh'ary" "tmh'arE" "tmh'ary" Pl Masc Pers2_Casual ; - youPol_Pron = personalPN "Ap" "Ap" "Ap" ["Ap ka"] ["Ap ky"] ["Ap kE"] ["Ap ky"] Sg Masc Pers2_Respect ; + youPol_Pron = personalPN "Ap" "Ap" "Ap" ["Ap ka"] ["Ap ky"] ["Ap kE"] ["Ap ky"] Pl Masc Pers2_Respect ; no_Quant = demoPN " kwy nhyN" "kwy nhyN" "kwy nhyN" ; not_Predet = {s="nhyN"} ; if_then_Conj = sd2 "agr" "tw" ** {n = Sg} ;