mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
(May) Minor cleanup
This commit is contained in:
@@ -1,5 +1,6 @@
|
||||
|
||||
concrete SentenceMay of Sentence = CatMay ** open
|
||||
TenseX, ResMay, (AK=AdverbMay), Prelude in {
|
||||
TenseX, ResMay, (AM=AdverbMay), Prelude in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
@@ -70,7 +71,7 @@ lin
|
||||
ExtAdvS = advS (SOFT_BIND ++ ",");
|
||||
|
||||
-- : 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
|
||||
-- RelS sent rs = advS {s = rs.s ! Sg3 Masc ++ SOFT_BIND ++ ","} sent ;
|
||||
|
||||
@@ -88,11 +88,7 @@ lin
|
||||
AdVVPSlash adv vps = vps ** { adv = adv.s ++ vps.adv } ;
|
||||
-}
|
||||
-- : VP -> Prep -> VPSlash ; -- live in (it)
|
||||
-- VPSlashPrep vp prep =
|
||||
-- let adv = prepNP prep emptyNP
|
||||
-- in insertAdv vp adv ;
|
||||
|
||||
|
||||
-- VPSlashPrep vp prep = vp ** {c2 = prep} ;
|
||||
|
||||
|
||||
--2 Complements to copula
|
||||
|
||||
Reference in New Issue
Block a user