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

(Kor) Tweaks in Adv+AdV

Browse Source
This commit is contained in:
Inari Listenmaa
2020-05-21 14:11:50 +02:00
parent 1d621f5a7f
commit 5153005d51
4 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/korean/NounKor.gf
View File

@@ -171,7 +171,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
-- : CN -> Adv -> CN ; -- : CN -> Adv -> CN ;
AdvCN cn adv = cn ** { AdvCN cn adv = cn ** {
rs = cn.rs ++ adv.s rs = adv.s ++ cn.rs
} ; } ;
-- Nouns can also be modified by embedded sentences and questions. -- Nouns can also be modified by embedded sentences and questions.

2
src/korean/ResKor.gf
View File

@@ -335,7 +335,7 @@ oper
nObj = np.s ! v2.c2 ++ v2.p2.s ! np.p nObj = np.s ! v2.c2 ++ v2.p2.s ! np.p
} ; } ;
insertAdv : VerbPhrase -> SS -> VerbPhrase = \vp,adv -> vp ** {adv = adv.s} ; insertAdv : VerbPhrase -> SS -> VerbPhrase = \vp,adv -> vp ** {adv = adv.s ++ vp.adv} ;
insertAdvSlash : VPSlash -> SS -> VPSlash = \v,a -> v ** insertAdv v a ; insertAdvSlash : VPSlash -> SS -> VPSlash = \v,a -> v ** insertAdv v a ;
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Cl, S -- Cl, S

6
src/korean/StructuralKor.gf
View File

@@ -21,9 +21,9 @@ lin how8much_IAdv = ss "" ;
lin when_IAdv = ss "" ; lin when_IAdv = ss "" ;
lin where_IAdv = ss "" : lin where_IAdv = ss "" :
lin why_IAdv = ss "" : lin why_IAdv = ss "" :
-}
lin always_AdV = ss "" ; lin always_AdV = ss "항상" ;
{-
lin everywhere_Adv = ss "" ; lin everywhere_Adv = ss "" ;
lin here7from_Adv = ss "" ; lin here7from_Adv = ss "" ;
lin here7to_Adv = ss "" ; lin here7to_Adv = ss "" ;

11
src/korean/VerbKor.gf
View File

@@ -89,17 +89,16 @@ lin
-- : VPSlash -> Adv -> VPSlash ; -- use (it) here -- : VPSlash -> Adv -> VPSlash ; -- use (it) here
AdvVPSlash = insertAdvSlash ; AdvVPSlash = insertAdvSlash ;
{-
-- : VP -> Adv -> VP ; -- sleep , even though ... -- : VP -> Adv -> VP ; -- sleep , even though ...
ExtAdvVP vp adv = ; -- ExtAdvVP vp adv = ;
-- : AdV -> VP -> VP ; -- always sleep -- : AdV -> VP -> VP ; -- always sleep
AdVVP adv vp = vp ** {adv = adv} ; AdVVP adv vp = vp ** {adv = vp.adv ++ adv.s} ;
-- : AdV -> VPSlash -> VPSlash ; -- always use (it) -- : AdV -> VPSlash -> VPSlash ; -- always use (it)
AdVVPSlash adv vps = vps ** { adv = adv.s ++ vps.adv } ; AdVVPSlash adv vps = vps ** { adv = vps.adv ++ adv.s} ;
-}
-- : VP -> Prep -> VPSlash ; -- live in (it) -- : VP -> Prep -> VPSlash ; -- live in (it)
-- VPSlashPrep vp prep = -- VPSlashPrep vp prep =
-- let adv = prepNP prep emptyNP -- let adv = prepNP prep emptyNP