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

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

View File

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

View File

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

View File

@@ -130,7 +130,7 @@ lin to_Prep = mkPrep "에";
-- Pronouns are closed class, no constructor in ParadigmsKor.
-- it_Pron =
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 "당신" ;
youSg_Pron = mkPron "너" ; -- NB. this is very informal, best not used