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

(May) Minor cleanup

Browse Source
This commit is contained in:
Inari Listenmaa
2020-08-18 21:36:27 +02:00
parent 095f11abb7
commit eafa5e8f7a
2 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/malay/SentenceMay.gf
View File

@@ -1,5 +1,6 @@
concrete SentenceMay of Sentence = CatMay ** open concrete SentenceMay of Sentence = CatMay ** open
TenseX, ResMay, (AK=AdverbMay), Prelude in { TenseX, ResMay, (AM=AdverbMay), Prelude in {
flags optimize=all_subs ; flags optimize=all_subs ;
@@ -70,7 +71,7 @@ lin
ExtAdvS = advS (SOFT_BIND ++ ","); ExtAdvS = advS (SOFT_BIND ++ ",");
-- : S -> Subj -> S -> S ; -- : S -> Subj -> S -> S ;
-- SSubjS s1 subj s2 = AdvS (AK.SubjS subj s2) s1 ; -- SSubjS s1 subj s2 = AdvS (AM.SubjS subj s2) s1 ;
-- : S -> RS -> S ; -- she sleeps, which is good -- : S -> RS -> S ; -- she sleeps, which is good
-- RelS sent rs = advS {s = rs.s ! Sg3 Masc ++ SOFT_BIND ++ ","} sent ; -- RelS sent rs = advS {s = rs.s ! Sg3 Masc ++ SOFT_BIND ++ ","} sent ;

6
src/malay/VerbMay.gf
View File

@@ -88,11 +88,7 @@ lin
AdVVPSlash adv vps = vps ** { adv = adv.s ++ vps.adv } ; AdVVPSlash adv vps = vps ** { adv = adv.s ++ vps.adv } ;
-} -}
-- : VP -> Prep -> VPSlash ; -- live in (it) -- : VP -> Prep -> VPSlash ; -- live in (it)
-- VPSlashPrep vp prep = -- VPSlashPrep vp prep = vp ** {c2 = prep} ;
-- let adv = prepNP prep emptyNP
-- in insertAdv vp adv ;
--2 Complements to copula --2 Complements to copula