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

(Pes) Remove unused CPolarity

Browse Source
This commit is contained in:
Inari Listenmaa
2019-02-22 16:18:14 +01:00
parent 50200f3e0c
commit bd19c7a8a9
4 changed files with 7 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/persian/SentencePes.gf
+2 -3
View File
@@ -7,12 +7,11 @@ concrete SentencePes of Sentence = CatPes ** open Prelude, ResPes,Predef in {
PredVP np vp = mkClause np vp ;
PredSCVP sc vp = mkSClause ("این" ++ sc.s) (defaultAgr) vp ;
PredSCVP sc vp = mkSClause ("این" ++ sc.s) defaultAgr vp ;
ImpVP vp = {
s = \\cpol,n =>
s = \\pol,n =>
let agr = Ag (numImp n) P2 ;
pol = cpol2pol cpol ;
in case vp.wish of {
True => vp.s ! VPImp pol (numImp n) ++ vp.ad ++ vp.comp ! agr ++ vp.obj.s ++ vp.vComp ! agr ++ vp.embComp;
False => vp.ad ++ vp.comp ! agr ++ vp.obj.s ++ vp.vComp ! agr ++ vp.s ! VPImp pol (numImp n) ++ vp.embComp }