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

refinements

Browse Source
This commit is contained in:
virk.shafqat
2012-03-05 09:33:23 +00:00
parent 512c9ad021
commit a5759741a5
34 changed files with 195 additions and 192 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/persian/ResPes.gf
+2 -2
View File
@@ -11,7 +11,7 @@ resource ResPes = ParamX ** open Prelude,Predef in {
coding = utf8;
param
Order = ODir | OQuest ;
Animacy = Animate | Inanimate ;
@@ -231,7 +231,7 @@ oper
-}
infVV : Bool -> VPH -> {s : AgrPes => Str} = \isAux,vp ->
{s = \\agr => case agr of {
AgPes n p => (vp.comp ! (toAgr n p)) ++ (vp.s ! VVForm (AgPes n p)).inf }};
AgPes n p => (vp.ad ++ vp.comp ! (toAgr n p)) ++ (vp.s ! VVForm (AgPes n p)).inf }};
insertObjPre : (AgrPes => Str) -> VPHSlash -> VPH = \obj,vp -> {
s = vp.s ;