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

heb verb acc

Browse Source
This commit is contained in:
dana.dannells
2012-06-06 22:41:39 +00:00
parent fa33a915e2
commit dc93e3df8c
4 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/src/hebrew/ResHeb.gf
View File

@@ -132,8 +132,10 @@ oper
let
nps = np.s ! Acc
in
{ s = vp.s;
obj = nps.obj;
{ s = vp.s;
obj = case <np.isDef> of
{ <True> => "At" ++ nps.obj;
_ => nps.obj } ;
s2 = vp.s2;
pred = vp.pred;
isPred = vp.isPred
@@ -156,6 +158,9 @@ oper
isPred = False
} ;
predVc : Verb2 -> VPSlash = \verb2 ->
predV verb2 ** {c2 = verb2.c} ;
appPattern : Root -> Pattern -> Str = \r,p ->
p.C1 + r.C1 + p.C1C2 + r.C2 + p.C2C3 + r.C3 + p.C3 ;