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

ExtraJapAbs.gf added

Browse Source
This commit is contained in:
aarne
2012-05-29 13:55:30 +00:00
parent 5f2ea46913
commit 48a403d192
1 changed files with 33 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -0,0 +1,33 @@
concrete ExtraJap of ExtraJapAbs = CatJap ** open ResJap, Prelude, ParadigmsJap 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
}
}
} ;
} ;