GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Kor) Don't add 들 with numerals

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-14 17:53:04 +02:00
parent f6871ec3c6
commit 2c83fd8691
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/korean/NumeralKor.gf
View File

@@ -37,7 +37,7 @@ lin
-- : Digit -> Sub100 ; -- 10 + d -- : Digit -> Sub100 ; -- 10 + d
pot1to19 d = let newS = xPlus "십" "열" d.s in d ** { pot1to19 d = let newS = xPlus "십" "열" d.s in d ** {
s = newS ; s = newS ;
n = Pl ; n = numNumber ;
ord = newS ! NK ! Attrib ++ "번째" ; ord = newS ! NK ! Attrib ++ "번째" ;
} ; } ;
@@ -98,7 +98,7 @@ oper
SK => \\_ => sk ; SK => \\_ => sk ;
NK => table {Indep => nk ; _ => nkAttr } NK => table {Indep => nk ; _ => nkAttr }
} ; } ;
n = Pl ; n = numNumber ;
numtype = IsNum ; numtype = IsNum ;
isTwo = False ; isTwo = False ;
ten = ten ; ten = ten ;
@@ -117,7 +117,7 @@ oper
potTimes : (sk,nk : Str) -> ResKor.Numeral -> ResKor.Numeral = \sk,nk,num -> potTimes : (sk,nk : Str) -> ResKor.Numeral -> ResKor.Numeral = \sk,nk,num ->
let newS = xTimes sk nk num.s in num ** { let newS = xTimes sk nk num.s in num ** {
s = newS ; s = newS ;
n = Pl ; n = numNumber ;
ord = newS ! NK ! Attrib ++ "번째" ; -- TODO check ord = newS ! NK ! Attrib ++ "번째" ; -- TODO check
} ; } ;
@@ -136,7 +136,7 @@ lin
-- : Dig -> Digits -> Digits ; -- 876 -- : Dig -> Digits -> Digits ; -- 876
IIDig d i = { IIDig d i = {
s = \\o => d.s ! NCard ++ BIND ++ i.s ! o ; s = \\o => d.s ! NCard ++ BIND ++ i.s ! o ;
n = Pl n = numNumber
} ; } ;
D_0 = mkDig "0" ; D_0 = mkDig "0" ;
@@ -151,7 +151,7 @@ lin
D_9 = mkDig "9" ; D_9 = mkDig "9" ;
oper oper
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o ResKor.Pl ; mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o numNumber ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c + "번째") ; mkDig : Str -> TDigit = \c -> mk2Dig c (c + "번째") ;
mk3Dig : Str -> Str -> ResKor.Number -> TDigit = \c,o,n -> { mk3Dig : Str -> Str -> ResKor.Number -> TDigit = \c,o,n -> {
@@ -163,4 +163,6 @@ oper
n : ResKor.Number ; n : ResKor.Number ;
s : CardOrd => Str s : CardOrd => Str
} ; } ;
numNumber = Sg ; -- No need for 들 with numerals
} }