msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

JPN

Browse Source
This commit is contained in:
lizazim
2012-06-10 21:38:10 +00:00
parent 60d8ec58a2
commit 2c371f5f33
30 changed files with 170 additions and 155 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
lib/src/japanese/ExtraJpn.gf Normal file
View File

@@ -0,0 +1,33 @@
concrete ExtraJpn of ExtraJpnAbs = CatJpn ** open ResJpn, Prelude, ParadigmsJpn in {
lincat
Level = {s : Str ; l : Style} ;
Part = {s : Str ; p : Particle} ;
lin
Honorific = {s = [] ; l = Resp} ;
Informal = {s = [] ; l = Plain} ;
PartWA = {s = [] ; p = Wa} ;
PartGA = {s = [] ; p = Ga} ;
StylePartPhr level part pconj utt voc = {
s = case voc.type of {
Please => case utt.type of {
ImpPolite => level.s ++ part.s ++ pconj.s ++ utt.s ! part.p ! Resp ++ voc.null ;
(Imper|NoImp) => level.s ++ part.s ++ pconj.s ++ utt.s ! part.p ! Resp ++ voc.s ! Resp
} ;
VocPres => case utt.type of {
(Imper|ImpPolite) => level.s ++ part.s ++ voc.s ! Plain ++ "," ++ pconj.s ++
utt.s ! part.p ! Plain ;
NoImp => level.s ++ part.s ++ voc.s ! level.l ++ "," ++ pconj.s ++
utt.s ! part.p ! level.l
} ;
VocAbs => case utt.type of {
(Imper|ImpPolite) => level.s ++ part.s ++ voc.s ! Plain ++ pconj.s ++
utt.s ! part.p ! Plain ;
NoImp => level.s ++ part.s ++ voc.s ! level.l ++ pconj.s ++ utt.s ! part.p ! level.l
}
}
} ;
} ;