Jpn13-01-15

This commit is contained in:
lizazim
2015-01-13 16:08:05 +00:00
parent 5e70b381bc
commit 560d0a4384
8 changed files with 13953 additions and 13745 deletions

View File

@@ -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 ;