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

(Kor) Add PNs

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-03 15:42:23 +02:00
parent 9bdf4eedf4
commit 477a214cc0
3 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/korean/NounKor.gf
View File

@@ -23,8 +23,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
} ; } ;
-- : PN -> NP ; -- : PN -> NP ;
-- UsePN pn = pn ** { UsePN pn = pn ;
-- } ;
-- : Pron -> NP ; -- : Pron -> NP ;
UsePron pron = pron ** {empty = []}; UsePron pron = pron ** {empty = []};

2
src/korean/ParadigmsKor.gf
View File

@@ -30,6 +30,8 @@ oper
-- mkA2 : Str -> Prep -> A2 ; -- mkA2 : Str -> Prep -> A2 ;
mkPN : Str -> PN
= \s -> lin PN (mkNoun s) ;
--2 Verbs --2 Verbs
-- Verbs -- Verbs

11
src/korean/SymbolKor.gf
View File

@@ -1,7 +1,7 @@
--# -path=.:../abstract:../common:../prelude --# -path=.:../abstract:../common:../prelude
concrete SymbolKor of Symbol = CatKor ** concrete SymbolKor of Symbol = CatKor **
open Prelude, ParadigmsKor, ResKor, (NS=NounKor) in { open Prelude, ResKor in {
lin lin
@@ -15,7 +15,14 @@ lin
FloatPN i = mkPN i.s ; FloatPN i = mkPN i.s ;
-- : Card -> PN ; -- twelve [as proper name] -- : Card -> PN ; -- twelve [as proper name]
NumPN i = mkPN i.s ; NumPN i = mkPN (i.s ! NK ! Indep) ;
oper
mkPN : Str -> NounPhrase = \s -> {
s = \\_ => s ;
p = Consonant ; -- ??
} ;
{- {-
lin lin