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

(Kor) Add NForm as a parameter to A2

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-07 19:48:05 +02:00
parent dc948a1f9d
commit 80557e34b2
4 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/korean/AdjectiveKor.gf
View File

@@ -1,5 +1,5 @@
concrete AdjectiveKor of Adjective = CatKor ** concrete AdjectiveKor of Adjective = CatKor **
open ResKor, (AK=AdverbKor), Prelude in { open ResKor, Prelude in {
flags optimize=all_subs ; flags optimize=all_subs ;
@@ -18,7 +18,7 @@ concrete AdjectiveKor of Adjective = CatKor **
-- : A2 -> NP -> AP ; -- married to her -- : A2 -> NP -> AP ; -- married to her
ComplA2 a2 np = a2 ** { ComplA2 a2 np = a2 ** {
compar = (AK.PrepNP a2.p2 np).s ; compar = (prepNP a2.c2 a2.p2 np).s ;
} ; } ;
-- : A2 -> AP ; -- married to itself -- : A2 -> AP ; -- married to itself

6
src/korean/AdverbKor.gf
View File

@@ -11,11 +11,7 @@ lin
-- ComparAdvAdjS : CAdv -> A -> S -> Adv ; -- more warmly than he runs -- ComparAdvAdjS : CAdv -> A -> S -> Adv ; -- more warmly than he runs
-- : Prep -> NP -> Adv ; -- : Prep -> NP -> Adv ;
PrepNP prep np = { PrepNP = prepNP Bare ;
s = case prep.attaches of {
True => glue (np.s ! Bare) (prep.s ! np.p) ;
False => np.s ! Bare ++ (prep.s ! np.p)}
} ;
-- Adverbs can be modified by 'adadjectives', just like adjectives. -- Adverbs can be modified by 'adadjectives', just like adjectives.

4
src/korean/ParadigmsKor.gf
View File

@@ -147,8 +147,8 @@ oper
mkA2 : Str -> Str -> A2 mkA2 : Str -> Str -> A2
= \s,p -> let adj : Adjective = mkAdj s ; = \s,p -> let adj : Adjective = mkAdj s ;
prep : Prep = mkPrep p prep : Prep = mkPrep p
in lin A2 (adj ** {p2 = prep}) ; in lin A2 (atoa2 adj ** {p2 = prep}) ;
mkA2 : A -> Prep -> A2 = \a,p -> lin A2 (a ** {p2 = p}) ; mkA2 : A -> Prep -> A2 = \a,p -> lin A2 (atoa2 a ** {p2 = p}) ;
} ; } ;
mkV = overload { mkV = overload {

7
src/korean/ResKor.gf
View File

@@ -142,7 +142,7 @@ oper
-- Adjectives -- Adjectives
Adjective : Type = {s : VForm => Str} ; -- Adjectives are verbs Adjective : Type = {s : VForm => Str} ; -- Adjectives are verbs
Adjective2 : Type = Adjective ** {p2 : Postposition} ; Adjective2 : Type = Adjective ** {c2 : NForm ; p2 : Postposition} ;
v2a : (attrpos : Str) -> Verb -> Adjective = \attrpos,v -> { v2a : (attrpos : Str) -> Verb -> Adjective = \attrpos,v -> {
s = table { s = table {
@@ -273,6 +273,11 @@ oper
Adverb : Type = SS ; Adverb : Type = SS ;
prepNP : NForm -> Postposition -> NounPhrase -> Adverb = \nf,pp,np -> {
s = case pp.attaches of {
True => glue (np.s ! nf) (pp.s ! np.p) ;
False => np.s ! nf ++ (pp.s ! np.p)}
} ;
------------------ ------------------
-- Conj -- Conj