GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Kor) Add UsePron and PossPron, minor fix in i_Pron

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-03 11:55:32 +02:00
parent 4e701884db
commit a18ffbe232
3 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/korean/CatKor.gf
View File

@@ -116,7 +116,7 @@ concrete CatKor of Cat = CommonX ** open ResKor, Prelude in {
N = ResKor.Noun ; N = ResKor.Noun ;
N2 = ResKor.Noun2 ; N2 = ResKor.Noun2 ;
N3 = ResKor.Noun3 ; N3 = ResKor.Noun3 ;
PN = ResKor.PNoun ; PN = ResKor.NounPhrase ;
linref linref
V, V2, V3, VP = linVerb ; V, V2, V3, VP = linVerb ;

7
src/korean/NounKor.gf
View File

@@ -27,7 +27,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
-- } ; -- } ;
-- : Pron -> NP ; -- : Pron -> NP ;
-- UsePron pron = pron ; UsePron pron = pron ** {empty = []};
-- : Predet -> NP -> NP ; -- only the man -- : Predet -> NP -> NP ; -- only the man
PredetNP predet np = np ** {s = PredetNP predet np = np ** {s =
@@ -130,10 +130,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
IndefArt = mkQuant [] [] ; IndefArt = mkQuant [] [] ;
-- : Pron -> Quant -- : Pron -> Quant
-- PossPron pron = PossPron pron = pron.poss ;
-- let p = pron.poss ;
-- in DefArt ** {
-- } ;
--2 Common nouns --2 Common nouns

2
src/korean/StructuralKor.gf
View File

@@ -130,7 +130,7 @@ lin to_Prep = mkPrep "에";
-- Pronouns are closed class, no constructor in ParadigmsKor. -- Pronouns are closed class, no constructor in ParadigmsKor.
-- it_Pron = -- it_Pron =
i_Pron = let iReg : Pronoun = mkPron "저" "제" in i_Pron = let iReg : Pronoun = mkPron "저" "제" in
iReg ** {s = table {Subj => "제가"; nf => iReg.s ! nf} iReg ** {s = table {Subject => "제가"; nf => iReg.s ! nf}
} ; } ;
youPol_Pron = mkPron "당신" ; youPol_Pron = mkPron "당신" ;
youSg_Pron = mkPron "너" ; -- NB. this is very informal, best not used youSg_Pron = mkPron "너" ; -- NB. this is very informal, best not used