1
0
forked from GitHub/gf-rgl

some more functions added to Slv by guessing and using Morgan Nilsson's grammar book

This commit is contained in:
aarne
2016-10-04 16:17:07 +00:00
parent d2d349c93d
commit 1d62281dea
7 changed files with 33 additions and 8 deletions
+5 -2
View File
@@ -3,13 +3,13 @@ concrete VerbSlv of Verb = CatSlv ** open ResSlv, ParamX, Prelude in {
lin
UseV v =
{ s = \\p,vform => ne ! p ++ v.s ! vform ;
s2 = \\a => "" ;
s2 = \\a => v.p ; ----AR: +p particle
isCop = False
} ;
SlashV2a v =
{ s = \\p,vform => ne ! p ++ v.s ! vform ;
s2 = \\a => "" ;
s2 = \\a => v.p ; ----AR: +p particle
c2 = v.c2 ;
isCop = False
} ;
@@ -28,5 +28,8 @@ concrete VerbSlv of Verb = CatSlv ** open ResSlv, ParamX, Prelude in {
CompAP ap = {
s = \\agr => ap.s ! Indef ! inanimateGender agr.g ! Nom ! agr.n
} ;
CompAdv adv = {s = \\agr => adv.s} ; ----AR
CompNP np = {s = \\agr => np.s ! Nom} ; ----AR
}