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

Improvements In Sindhi RG

Browse Source
This commit is contained in:
virk.shafqat
2013-06-15 20:02:00 +00:00
parent c3b344084f
commit 9caa9cd44e
7 changed files with 407 additions and 407 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/sindhi/QuestionSnd.gf
View File

@@ -7,14 +7,14 @@ concrete QuestionSnd of Question = CatSnd ** open ResSnd, Prelude in {
QuestCl cl = {
s = \\t,p,qf => case qf of {
QDir => cl.s ! t ! p ! OQuest;
QIndir => "جیڪڏھن" ++ cl.s ! t! p ! ODir
QIndir => "جيڪڏھن" ++ cl.s ! t! p ! ODir
}
};
QuestVP qp vp =
let cl = mkSClause ("") (Ag qp.g qp.n Pers3_Near) vp;
qp1 = qp.s ! Dir;
qp2 = qp.s ! Obl ++ "جی"
qp2 = qp.s ! Obl ++ "جي"
in { s = \\t,p,o => case t of {
VPImpPast => case vp.subj of {VIntrans => qp1 ++ cl.s ! t ! p ! ODir; _ => qp2 ++ cl.s ! t ! p ! ODir};
_ => qp1 ++ cl.s ! t ! p ! ODir
@@ -22,7 +22,7 @@ concrete QuestionSnd of Question = CatSnd ** open ResSnd, Prelude in {
};
QuestSlash ip slash =
let ip1 = ip.s ! Dir;
ip2 = ip.s ! Obl ++ "جی"
ip2 = ip.s ! Obl ++ "جي"
in {
s = \\t,p,o => case t of {
VPImpPast => ip2 ++ slash.s ! t ! p ! ODir;