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

optimized a parameter in Romance clause formation

Browse Source
This commit is contained in:
aarne
2012-11-22 15:05:01 +00:00
parent 8b813be742
commit ae0666c189
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/src/romance/SentenceRomance.gf
View File

@@ -23,7 +23,8 @@ incomplete concrete SentenceRomance of Sentence =
---- <Acc,True> => insertAgr ag v2 ; ---- <Acc,True> => insertAgr ag v2 ;
---- _ => v2 ---- _ => v2
----e } ----e }
in (mkClausePol np.isNeg (np.s ! Nom).comp np.hasClit np.isPol np.a vp).s ; in (mkClausePol np.isNeg (np.s ! Nom).comp False np.isPol np.a vp).s ;
----- in (mkClausePol np.isNeg (np.s ! Nom).comp np.hasClit np.isPol np.a vp).s ;
c2 = v2.c2 c2 = v2.c2
} ; } ;
@@ -40,7 +41,7 @@ incomplete concrete SentenceRomance of Sentence =
SlashVS np vs slash = SlashVS np vs slash =
{s = \\ag => {s = \\ag =>
(mkClausePol np.isNeg (mkClausePol np.isNeg
(np.s ! Nom).comp np.hasClit np.isPol np.a (np.s ! Nom).comp False np.isPol np.a
(insertExtrapos (\\b => conjThat ++ slash.s ! ag ! (vs.m ! b)) (insertExtrapos (\\b => conjThat ++ slash.s ! ag ! (vs.m ! b))
(predV vs)) (predV vs))
).s ; ).s ;