GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-09 03:02:50 -06:00
Code Issues Packages Projects Releases Wiki 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

45
lib/src/japanese/ParadigmsJpn.gf
View File

@@ -3,6 +3,10 @@ resource ParadigmsJpn = CatJpn **
flags coding = utf8 ;
param
VerbGroupP = Gr1P | Gr2P | SuruP | KuruP ;
oper
mkN = overload {
@@ -60,25 +64,56 @@ oper
mkV = overload {
mkV : (yomu : Str) -> V
= \yomu -> lin V (mkVerb yomu Gr1) ; ---- AR 15/11/2014
mkV : (yomu : Str) -> (group : VerbGroup) -> V
mkV : (yomu : Str) -> (group : ResJpn.VerbGroup) -> V
= \yomu,gr -> lin V (mkVerb yomu gr) ;
} ;
mkV2 = overload {
mkV2 : (yomu : Str) -> V2 ---- AR 15/11/2014
= \yomu -> lin V2 (mkVerb2 yomu "を" Gr1) ;
mkV2 : (yomu, prep : Str) -> (group : VerbGroup) -> V2
mkV2 : (yomu, prep : Str) -> (group : ResJpn.VerbGroup) -> V2
= \yomu,p,gr -> lin V2 (mkVerb2 yomu p gr) ;
} ;
mkV3 : (uru, p1, p2 : Str) -> (group : VerbGroup) -> V3 = \uru,p1,p2,gr ->
mkV3 = overload {
mkV3 : (yomu : Str) -> V3
= \yomu -> lin V3 (mkVerb3 yomu "に" "を" Gr1) ;
mkV3 : (uru, p1, p2 : Str) -> (group : ResJpn.VerbGroup) -> V3 = \uru,p1,p2,gr ->
lin V3 (mkVerb3 uru p1 p2 gr) ;
} ;
mkVS : (yomu : Str) -> VS = \yomu -> lin VS (mkVerb2 yomu "ことを" Gr1) ;
mkVV : (yomu : Str) -> VV = \yomu -> lin VV (mkVerbV yomu Gr1) ;
mkV2V : (yomu : Str) -> V2V = \yomu -> lin V2V (mkVerb yomu Gr1) ;
mkV2S : (yomu : Str) -> V2S = \yomu -> lin V2S (mkVerb yomu Gr1) ;
mkVQ : (yomu : Str) -> VQ = \yomu -> lin VQ (mkVerb2 yomu "を" Gr1) ;
mkVA : (yomu : Str) -> VA = \yomu -> lin VA (mkVerb yomu Gr1) ;
mkV2A : (yomu : Str) -> V2A = \yomu -> lin V2A (mkVerb yomu Gr1) ;
mkAdv : Str -> Adv ---- AR 15/11/2014
= \s -> lin Adv (ResJpn.mkAdv s) ;
mkPrep : Str -> Prep ---- AR 15/11/2014
= \s -> lin Prep (ResJpn.mkPrep s) ;
mkDet : Str -> Det = \d -> lin Det (ResJpn.mkDet d d ResJpn.Sg) ;
mkConj : Str -> Conj = \c -> lin Conj (ResJpn.mkConj c ResJpn.And) ;
mkInterj : Str -> Interj
= \s -> lin Interj (ss s) ;
mkgoVV : VV = lin VV {s = \\sp => mkGo.s ; te = \\sp => mkGo.te ;
a_stem = \\sp => mkGo.a_stem ;
i_stem = \\sp => mkGo.i_stem ;
ba = \\sp => mkGo.ba ;
te_neg = \\sp => "行かないで" ;
ba_neg = \\sp => "行かなければ" ;
sense = Abil} ;
}