mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-02 07:42:50 -06:00
Jpn13-01-15
This commit is contained in:
@@ -366,6 +366,18 @@ concrete VerbJpn of Verb = CatJpn ** open ResJpn, Prelude in {
|
||||
v2vType = False
|
||||
} ;
|
||||
|
||||
VPSlashPrep vp prep = {
|
||||
s = \\sp,st,t,p => vp.verb ! sp ! Anim ! st ! t ! p ;
|
||||
a_stem = \\sp => vp.a_stem ! sp ! Anim ! Plain ;
|
||||
i_stem = \\sp => vp.i_stem ! sp ! Anim ! Plain ;
|
||||
te = \\sp,p => vp.te ! sp ! Anim ! Plain ! p ;
|
||||
ba = \\sp,p => vp.ba ! sp ! Anim ! Plain ! p ;
|
||||
prep = prep.s ;
|
||||
obj = \\st => [] ;
|
||||
prepositive = vp.prepositive ;
|
||||
v2vType = False
|
||||
} ;
|
||||
|
||||
CompAP ap = {
|
||||
verb = \\a,st,t,p => ap.pred ! st ! t ! p ;
|
||||
te = \\a => ap.te ;
|
||||
|
||||
Reference in New Issue
Block a user