GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #233 from inariksit/persian

Browse Source 
Small fixes and cleanup
This commit is contained in:
Inari Listenmaa
2019-05-01 17:52:13 +02:00
committed by GitHub
parent 81b142c078 e9be8e3b0d
commit c5512550b4
3 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/persian/ExtendPes.gf
View File

@@ -34,7 +34,10 @@ lin
EmbedPresPart vp = lin SC {s = showVPH Inf defaultAgr vp} ; EmbedPresPart vp = lin SC {s = showVPH Inf defaultAgr vp} ;
-- : SSlash -> SC -- : SSlash -> SC
EmbedSSlash ss = {s = conjThat ++ ss.s ! Indic ++ ss.c2.s} ; -- Not optimal: complement with آن should go after subject, but SSlash is already fixed.
-- You can get the more idiomatic word order by using other RGL functions, so it's
-- less critical to tweak this function and SSlash (pretty marginal category). /IL
EmbedSSlash ss = {s = "آنچه" ++ appComp ss.c2 (\\_ => "آن") ++ ss.s ! Indic} ;
-- : Adv -> NP -> Cl -- here is the car / here are the cars -- : Adv -> NP -> Cl -- here is the car / here are the cars
AdvIsNP adv np = mkClause (indeclNP adv.s ** {a = np.a}) (UseComp (CompNP np)) ; AdvIsNP adv np = mkClause (indeclNP adv.s ** {a = np.a}) (UseComp (CompNP np)) ;

2
src/persian/SentencePes.gf
View File

@@ -7,7 +7,7 @@ concrete SentencePes of Sentence = CatPes ** open Prelude, ResPes,Predef in {
PredVP np vp = mkClause np vp ; PredVP np vp = mkClause np vp ;
PredSCVP sc vp = mkSClause ("این" ++ sc.s) defaultAgr vp ; PredSCVP sc vp = mkSClause sc.s defaultAgr vp ;
ImpVP vp = { ImpVP vp = {
s = \\pol,n => s = \\pol,n =>

4
src/persian/VerbPes.gf
View File

@@ -22,8 +22,8 @@ concrete VerbPes of Verb = CatPes ** open ResPes,Prelude in {
} ; } ;
SlashVV vv vps = vps ** ComplVV vv vps ; SlashVV vv vps = vps ** ComplVV vv vps ;
SlashV2S v s = predVc v ** embComp (conjThat ++ s.s ! Indic) (predV v) ; SlashV2S v s = predVc v ** ComplVS v s ;
SlashV2Q v q = predVc v ** embComp q.s (predV v) ; SlashV2Q v q = predVc v ** ComplVQ v q ;
SlashV2A v ap = predVc v ** insertObj (appComp v.c2 ap.s) (predV v) ; ---- paint it red , check form of adjective SlashV2A v ap = predVc v ** insertObj (appComp v.c2 ap.s) (predV v) ; ---- paint it red , check form of adjective
-- : V2V -> VP -> VPSlash ; -- beg (her) to go -- : V2V -> VP -> VPSlash ; -- beg (her) to go