GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added some default paradigms to ParadigmsJpn to enable Phrasebook implementation. These are one-string mkN, mkV, mkV2, as well as mkAdv and mkPrep. A Japanese expert should check them.

Browse Source
This commit is contained in:
aarne
2014-11-15 09:40:08 +00:00
parent 1c0756e1b1
commit 6bb2e2c1d0
1 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -6,6 +6,8 @@ flags coding = utf8 ;
oper oper
mkN = overload { mkN = overload {
mkN : (man : Str) -> N ---- AR 15/11/2014
= \n -> lin N (regNoun n Inanim "つ" False True) ;
mkN : (man : Str) -> (anim : Animateness) -> N mkN : (man : Str) -> (anim : Animateness) -> N
= \n,a -> lin N (regNoun n a "つ" False True) ; = \n,a -> lin N (regNoun n a "つ" False True) ;
mkN : (kane,okane : Str) -> (anim : Animateness) -> N mkN : (kane,okane : Str) -> (anim : Animateness) -> N
@@ -51,15 +53,28 @@ oper
\pred,attr,pr -> lin A2 (VerbalA pred attr) ** {prep = pr} \pred,attr,pr -> lin A2 (VerbalA pred attr) ** {prep = pr}
} ; } ;
mkV : (yomu : Str) -> (group : VerbGroup) -> V mkV = overload {
mkV : (yomu : Str) -> V
= \yomu -> lin V (mkVerb yomu Gr1) ; ---- AR 15/11/2014
mkV : (yomu : Str) -> (group : VerbGroup) -> V
= \yomu,gr -> lin V (mkVerb yomu gr) ; = \yomu,gr -> lin V (mkVerb yomu gr) ;
} ;
mkV2 : (yomu, prep : Str) -> (group : VerbGroup) -> V2 mkV2 = overload {
= \yomu,p,gr -> mkV2 : (yomu : Str) -> V2 ---- AR 15/11/2014
lin V2 (mkVerb2 yomu p gr) ; = \yomu -> lin V2 (mkVerb2 yomu "を" Gr1) ;
mkV2 : (yomu, prep : Str) -> (group : VerbGroup) -> V2
= \yomu,p,gr -> lin V2 (mkVerb2 yomu p gr) ;
} ;
mkV3 : (uru, p1, p2 : Str) -> (group : VerbGroup) -> V3 = \uru,p1,p2,gr -> mkV3 : (uru, p1, p2 : Str) -> (group : VerbGroup) -> V3 = \uru,p1,p2,gr ->
lin V3 (mkVerb3 uru p1 p2 gr) ; lin V3 (mkVerb3 uru p1 p2 gr) ;
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) ;
} }