GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Jpn) Automatic whitespace removal

Browse Source
This commit is contained in:
Inari Listenmaa
2020-05-20 16:04:21 +02:00
parent 306aae28bd
commit 9d5555d393
2 changed files with 77 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/japanese/VerbJpn.gf
View File

@@ -128,7 +128,7 @@ concrete VerbJpn of Verb = CatJpn ** open ResJpn, Prelude in {
Slash3V3 = Slash2V3 ;
SlashV2V v2v vp = {
SlashV2V v2v vp = vp ** {
s = \\sp,st,t,p => vp.verb ! SomeoneElse ! Anim ! Plain ! TPres ! ResJpn.Pos ++ "ように"
++ v2v.s ! st ! t ! p ;
a_stem = \\sp => vp.verb ! SomeoneElse ! Anim ! Plain ! TPres ! ResJpn.Pos ++
@@ -141,7 +141,6 @@ concrete VerbJpn of Verb = CatJpn ** open ResJpn, Prelude in {
obj = \\st => vp.obj ! st ++ vp.prep ;
te = \\sp,p => vp.verb ! SomeoneElse ! Anim ! Plain ! TPres ! ResJpn.Pos ++ "ように" ++
v2v.te ! p ;
prepositive = vp.prepositive ;
v2vType = True
} ;
@@ -276,11 +275,10 @@ concrete VerbJpn of Verb = CatJpn ** open ResJpn, Prelude in {
prep = vpslash.prep ;
obj = \\st => vpslash.obj ! st ++ "自分" ; -- "jibun"
te = \\sp,a,st,p => vpslash.te ! sp ! p ;
prepositive = vpslash.prepositive ;
needSubject = True
} ;
UseComp comp = {
UseComp comp = comp ** {
verb = \\sp,a,st,t,p => comp.verb ! a ! st ! t ! p;
te = \\sp => comp.te ;
a_stem = \\sp,a,st => comp.a_stem ! a ! st ;
@@ -288,8 +286,6 @@ concrete VerbJpn of Verb = CatJpn ** open ResJpn, Prelude in {
ba = \\sp => comp.ba ;
prep = [] ;
obj = comp.obj ;
prepositive = comp.prepositive ;
needSubject = comp.needSubject
} ;
PassV2 v2 = {
@@ -440,4 +436,3 @@ concrete VerbJpn of Verb = CatJpn ** open ResJpn, Prelude in {
needSubject = True
} ;
}