GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 08:12:51 -06:00
Code Issues Packages Projects Releases Wiki 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

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

@@ -392,7 +392,7 @@ makeIQuant : Str -> {s : Number => Gender => Case => Str} = \str -> {
<Perf,_,_,_> => case root of {
"ہو" => (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 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 ->
{s = let roo = root ;
a = 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 {
"ا"|"آ"|"و"|"ك" => "ئے" ;
"ا"|"آ"|"و"|"ک" => "ئے" ;
_ => "ے"
} ;
yN = case (last root) of {