GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-26 04:52:51 -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

9
lib/src/urdu/QuestionUrd.gf
View File

@@ -1,20 +1,19 @@
concrete QuestionUrd of Question = CatUrd ** open ResUrd, Prelude in {
flags optimize=all_subs ;
coding = utf8;
lin
QuestCl cl = {
s = \\t,p,qf => case qf of {
QDir => cl.s ! t ! p ! OQuest;
QIndir => "agr" ++ cl.s ! t! p ! ODir
QIndir => agr_Str ++ cl.s ! t! p ! ODir
}
};
QuestVP qp vp =
let cl = mkSClause ("") (Ag qp.g qp.n Pers3_Near) vp;
let cl = mkSClause [] (Ag qp.g qp.n Pers3_Near) vp;
qp1 = qp.s ! Dir;
qp2 = qp.s ! Obl ++ "nE"
qp2 = qp.s ! Obl ++ nE_Str
in { s = \\t,p,o => case t of {
VPImpPast => qp2 ++ cl.s ! t ! p ! ODir;
_ => qp1 ++ cl.s ! t ! p ! ODir
@@ -22,7 +21,7 @@ concrete QuestionUrd of Question = CatUrd ** open ResUrd, Prelude in {
};
QuestSlash ip slash =
let ip1 = ip.s ! Dir;
ip2 = ip.s ! Obl ++ "nE"
ip2 = ip.s ! Obl ++ nE_Str
in {
s = \\t,p,o => case t of {
VPImpPast => ip2 ++ slash.s ! t ! p ! ODir;