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

(Kor) Add param Phono for combining particles with nouns

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-23 14:23:54 +01:00
parent 5322b9d90a
commit 703695b2cb
4 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/korean/ResKor.gf
View File

@@ -5,7 +5,8 @@ resource ResKor = ParamKor ** open Prelude, Predef, ParamKor in {
oper
Noun : Type = {
s : NForm => Str
s : NForm => Str ;
p : Phono
} ;
Noun2 : Type = Noun ; -- TODO eventually more parameters?
Noun3 : Type = Noun ;
@@ -16,7 +17,8 @@ oper
PNoun : Type = Noun ;
mkNoun : Str -> Noun = \str -> {
s = \\cas => str + allomorph cas str
s = \\cas => str + allomorph cas str ;
p = if_then_else Phono (vowFinal str) Vowel Consonant ;
} ;
useN : Noun -> CNoun = \n -> n ;