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

(Kor) Relative clauses

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-01 18:44:11 +02:00
parent 7b09a6cf8b
commit c23016aaad
4 changed files with 20 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/korean/ResKor.gf
View File

@@ -22,6 +22,7 @@ oper
Noun3 : Type = Noun ;
CNoun : Type = Noun ** {
rs : Str ; -- Relative clause comes before determiner
} ;
PNoun : Type = Noun ;
@@ -32,7 +33,9 @@ oper
c = baseCounter
} ;
useN : Noun -> CNoun = \n -> n ;
useN : Noun -> CNoun = \n -> n ** {
rs = []
} ;
---------------------------------------------
-- NP
@@ -309,7 +312,7 @@ oper
QClause : Type = Clause ;
RClause : Type = {s : NForm => Tense => Anteriority => Polarity => Str} ;
RClause : Type = {s : Tense => Anteriority => Polarity => Str} ;
Sentence : Type = {s : ClType => Str} ;