GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-27 05:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

converted Urdu to utf8

Browse Source
This commit is contained in:
aarne
2010-04-02 16:17:29 +00:00
parent 9d6e3dae86
commit 39a525ac11
26 changed files with 2502 additions and 889 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lib/src/urdu/RelativeUrd.gf
View File

@@ -1,15 +1,14 @@
concrete RelativeUrd of Relative = CatUrd ** open ResUrd in {
flags optimize=all_subs ;
coding = utf8;
lin
RelCl cl = {
s = \\t,p,o,agr => case <t,giveNumber agr> of {
<VPImpPast,Sg> => "js" ++ cl.s ! t ! p ! o ;
<VPImpPast,Pl> => "jn" ++ cl.s ! t ! p ! o ;
<_,_> => "jw" ++ cl.s ! t ! p ! o
<VPImpPast,Sg> => js_Str ++ cl.s ! t ! p ! o ;
<VPImpPast,Pl> => jn_Str ++ cl.s ! t ! p ! o ;
<_,_> => jw_Str ++ cl.s ! t ! p ! o
};
c = Dir
} ;
@@ -33,9 +32,6 @@ concrete RelativeUrd of Relative = CatUrd ** open ResUrd in {
c = Dir
} ;
--
---- Pied piping: "at which we are looking". Stranding and empty
---- relative are defined in $ExtraHin.gf$ ("that we are looking at",
---- "we are looking at").
--
RelSlash rp slash = {
s = \\t,p,o,agr => rp.s ! (giveNumber agr) ! Dir ++ slash.c2.s ++ slash.s ! t ! p ! o ;--case t of {
@@ -54,14 +50,14 @@ concrete RelativeUrd of Relative = CatUrd ** open ResUrd in {
s = table {
Sg => table {
ResUrd.Dir => "jw" ;
ResUrd.Obl => "js" ;
ResUrd.Voc => "js"
ResUrd.Dir => jw_Str ;
ResUrd.Obl => js_Str ;
ResUrd.Voc => js_Str
};
Pl => table {
ResUrd.Dir => "jw" ;
ResUrd.Obl => "jn" ;
ResUrd.Voc => "jn"
ResUrd.Dir => jw_Str ;
ResUrd.Obl => jn_Str ;
ResUrd.Voc => jn_Str
}
};
a = RNoAg