GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-03 04:28:33 -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
src/japanese/AdverbJpn.gf
+11 -11
View File
@@ -3,22 +3,22 @@ concrete AdverbJpn of Adverb = CatJpn ** open ResJpn, ParadigmsJpn, Prelude in {
flags coding = utf8 ;
lin
PositAdvAdj a = {s = \\st => a.adv ! Pos ; prepositive = False} ;
PrepNP prep np = {s = \\st => np.s ! st ++ prep.s ;
PrepNP prep np = {s = \\st => np.s ! st ++ prep.s ;
prepositive = False} ;
ComparAdvAdj cadv a np = {
s = \\st => case cadv.less of {
True => np.s ! st ++ cadv.s ++ a.adv ! Neg ;
False => np.s ! st ++ cadv.s ++ a.adv ! Pos
} ;
False => np.s ! st ++ cadv.s ++ a.adv ! Pos
} ;
prepositive = False} ;
ComparAdvAdjS cadv a s = {
s = \\st => case cadv.less of {
True => s.subj ! Ga ! st ++ s.pred ! Plain ++ "こと" ++ cadv.s ++ a.adv ! Neg ;
True => s.subj ! Ga ! st ++ s.pred ! Plain ++ "こと" ++ cadv.s ++ a.adv ! Neg ;
False => s.subj ! Ga ! st ++ s.pred ! Plain ++ "こと" ++ cadv.s ++ a.adv ! Pos
} ;
prepositive = False} ;
@@ -27,14 +27,14 @@ flags coding = utf8 ;
prepositive = adv.prepositive} ;
PositAdAAdj a = {s = a.adv ! Pos } ;
SubjS subj s = {
s = \\st => case subj.type of {
If => s.ba ! Wa ! st ++ subj.s ;
_ => s.s ! Wa ! st ++ subj.s
} ;
} ;
prepositive = True
} ;
AdnCAdv cadv = {s = cadv.s_adn ; postposition = True} ;
}