GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-31 05:38:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

ResEng.mkS to mkClause

Browse Source
This commit is contained in:
aarne
2005-12-07 21:51:40 +00:00
parent b7cb68eb08
commit 5a9db982dc
5 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/resource-1.0/english/SentenceEng.gf
View File

@@ -3,9 +3,9 @@ concrete SentenceEng of Sentence = CatEng ** open ResEng in {
flags optimize=all_subs ;
lin
PredVP np vp = mkS (np.s ! Nom) np.a vp.s vp.s2 ;
PredVP np vp = mkClause (np.s ! Nom) np.a vp ;
PredSCVP sc vp = mkS sc.s (agrP3 Sg) vp.s vp.s2 ;
PredSCVP sc vp = mkClause sc.s (agrP3 Sg) vp ;
ImpVP vp = {
s = \\pol,n =>
@@ -20,11 +20,11 @@ concrete SentenceEng of Sentence = CatEng ** open ResEng in {
dont ++ verb
} ;
SlashV2 np v2 = mkS (np.s ! Nom) np.a (predV v2).s (\\_ => []) **
{c2 = v2.c2} ;
SlashV2 np v2 =
mkClause (np.s ! Nom) np.a (predV v2) ** {c2 = v2.c2} ;
SlashVVV2 np vv v2 =
mkS (np.s ! Nom) np.a (predV vv).s (\\_ => "to" ++ v2.s ! VInf) **
mkClause (np.s ! Nom) np.a (insertObj (\\_ => "to" ++ v2.s ! VInf) (predV vv)) **
{c2 = v2.c2} ;
AdvSlash slash adv = {