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

Jpn13-01-15

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/src/japanese/ResJpn.gf
View File

@@ -16,7 +16,7 @@ param
Anteriority = Simul | Anter ;
NumeralType = EndZero | EndNotZero | SingleDigit ;
DTail = T1 | T2 | T3 ;
ConjType = And | Or | Both ;
ConjType = And | Or | Both | IfConj ;
SubjType = That | If | OtherSubj ;
VocType = VocPres | Please | VocAbs ;
UttType = Imper | ImpPolite | NoImp ;
@@ -85,7 +85,7 @@ oper
regAdj : Str -> Adj = \a -> case a of {
chiisa + "い" => i_mkAdj a ;
ooki + ("な"|"の") => na_mkAdj a
_ => na_mkAdj a -- ooki + ("な"|"の") => na_mkAdj a
} ;
i_mkAdj : Str -> Adj = \chiisai ->
@@ -488,6 +488,15 @@ oper
sense = Oblig
} ;
mkVerbV : Str -> VerbGroup -> VV = \yomu,gr -> {
s = \\sp,st,t,p => (mkVerb yomu gr).s ! st ! t ! p ;
te = \\sp => (mkVerb yomu gr).te ;
a_stem = \\sp => (mkVerb yomu gr).a_stem ;
i_stem = \\sp => (mkVerb yomu gr).i_stem ;
ba = \\sp => (mkVerb yomu gr).ba ;
sense = Abil
} ;
mkGive : Verb3 = {
s = table {
Me => \\st,t,p => (mkVerb "呉れる" Gr2).s ! st ! t ! p ; -- "kureru"