mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
(Kor) Add UsePron and PossPron, minor fix in i_Pron
This commit is contained in:
@@ -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 ;
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user