mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-07-02 12:08:34 -06:00
some more functions added to Slv by guessing and using Morgan Nilsson's grammar book
This commit is contained in:
@@ -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
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user