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

added additional long forms

Browse Source
This commit is contained in:
Laurette Marais
2022-05-10 11:16:26 +02:00
parent 86fca40ac2
commit 9f3b45bf48
6 changed files with 43 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/zulu/VerbZul.gf
+5 -5
View File
@@ -5,17 +5,17 @@ concrete VerbZul of Verb = CatZul ** open ResZul, Prelude, ParamX in {
lin
UseV v = {
s = table {
MainCl => \\a,p,t => let
MainCl => \\a,p,t,l => let
vform = VFIndic MainCl p t ;
tp = tensePref vform v.r v.syl ; -- [] / zo- / zuku-
r = v.s!(rform (VFIndic MainCl p t) True) -- hamba
r = v.s!(rform (VFIndic MainCl p t) l) -- hamba
-- rest of verb prefix built later (eg no "ya" with certain question words)
in tp ++ r ;
RelCl => \\a,p,t => let
RelCl => \\a,p,t,l => let
vform = VFIndic RelCl p t ;
rc = relConc vform a v.r ; -- o-
tp = tensePref vform v.r v.syl ; -- [] / zo- / zuku-
r = v.s!(rform vform True) ; -- hamba
r = v.s!(rform vform l) ; -- hamba
suf = relSuf vform -- [] / -yo
in rc ++ tp ++ r ++ suf
} ;
@@ -192,7 +192,7 @@ concrete VerbZul of Verb = CatZul ** open ResZul, Prelude, ParamX in {
-- }
-- } ;
AdvVP vp adv = vp ** { advs = vp.advs ++ adv.s } ;
AdvVP vp adv = vp ** { advs = vp.advs ++ adv.s ; hasComp = True } ;
-- {
-- s = vp.s ;
-- oc = vp.oc ;