GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-27 20:06:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Pes) Support relative pronoun contraction

Browse Source
This commit is contained in:
Inari Listenmaa
2019-03-18 14:53:56 +01:00
parent b527d83bde
commit cfbb22239c
8 changed files with 53 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/persian/SentencePes.gf
+2 -2
View File
@@ -52,7 +52,7 @@ concrete SentencePes of Sentence = CatPes ** open Prelude, ResPes,Predef in {
} ;
UseRCl temp p rcl = let vt = TA temp.t temp.a in rcl ** {
s = \\q => temp.s ++ p.s ++ rcl.s ! vt ! p.p ! ODir ! q
s = \\a => temp.s ++ p.s ++ rcl.s ! vt ! p.p ! a
} ;
UseSlash temp p cls = cls ** {
@@ -63,7 +63,7 @@ concrete SentencePes of Sentence = CatPes ** open Prelude, ResPes,Predef in {
AdvS a s = {s = \\vvf => a.s ++ s.s ! vvf} ;
RelS s r = {s = \\vvf => s.s ! vvf ++ r.s ! agrP3 Sg} ;
RelS s r = {s = \\vvf => s.s ! vvf ++ rs2str Ke (agrP3 Sg) r} ;
SSubjS s1 sj s2 = {s = \\vvf => s1.s ! vvf ++ sj.s ++ s2.s ! sj.compl};
}