diff options
author | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2010-01-06 06:35:25 +0000 |
---|---|---|
committer | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2010-01-06 06:35:25 +0000 |
commit | 3a0eb8a5f2d211f88439db811ed32e23a8ce9b0b (patch) | |
tree | aea6bd7220555857df695179296dc2552c56211f | |
parent | 60ef14f12b5301fa7f117134044cf0716fb5ae61 (diff) |
Minor cleanup, removed unnecessary references to GC pools.
git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@896327 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to '')
-rw-r--r-- | sca-cpp/trunk/modules/python/driver.hpp | 14 | ||||
-rw-r--r-- | sca-cpp/trunk/modules/python/eval.hpp | 10 | ||||
-rw-r--r-- | sca-cpp/trunk/modules/python/python-shell.cpp | 4 | ||||
-rw-r--r-- | sca-cpp/trunk/modules/python/python-test.cpp | 18 | ||||
-rw-r--r-- | sca-cpp/trunk/modules/scheme/driver.hpp | 12 | ||||
-rw-r--r-- | sca-cpp/trunk/modules/scheme/environment.hpp | 12 | ||||
-rw-r--r-- | sca-cpp/trunk/modules/scheme/eval-shell.cpp | 2 | ||||
-rw-r--r-- | sca-cpp/trunk/modules/scheme/eval-test.cpp | 38 | ||||
-rw-r--r-- | sca-cpp/trunk/modules/scheme/eval.hpp | 66 | ||||
-rw-r--r-- | sca-cpp/trunk/modules/server/mod-python.hpp | 3 | ||||
-rw-r--r-- | sca-cpp/trunk/modules/server/mod-scheme.hpp | 5 | ||||
-rw-r--r-- | sca-cpp/trunk/test/store-script/store-script-test.cpp | 10 |
12 files changed, 96 insertions, 98 deletions
diff --git a/sca-cpp/trunk/modules/python/driver.hpp b/sca-cpp/trunk/modules/python/driver.hpp index a7139889b9..dced219fa0 100644 --- a/sca-cpp/trunk/modules/python/driver.hpp +++ b/sca-cpp/trunk/modules/python/driver.hpp @@ -52,30 +52,30 @@ const bool userPrint(const value val, ostream& out) { return true; } -const value evalDriverLoop(PyObject* script, istream& in, ostream& out, const gc_pool& pool) { +const value evalDriverLoop(PyObject* script, istream& in, ostream& out) { promptForInput(evalInputPrompt, out); value input = readValue(in); if (isNil(input)) return input; - const value output = evalScript(input, script, pool); + const value output = evalScript(input, script); announceOutput(evalOutputPrompt, out); userPrint(output, out); - return evalDriverLoop(script, in, out, pool); + return evalDriverLoop(script, in, out); } -const bool evalDriverRun(istream& in, ostream& out, const gc_pool& pool) { +const bool evalDriverRun(istream& in, ostream& out) { setupDisplay(out); - evalDriverLoop(builtin(pythonRuntime), in, out, pool); + evalDriverLoop(builtin(pythonRuntime), in, out); return true; } -const bool evalDriverRun(const char* path, istream& in, ostream& out, const gc_pool& pool) { +const bool evalDriverRun(const char* path, istream& in, ostream& out) { setupDisplay(out); ifstream is(path); failable<PyObject*> script = readScript(path, is); if (!hasContent(script)) return true; - evalDriverLoop(content(script), in, out, pool); + evalDriverLoop(content(script), in, out); Py_DECREF(content(script)); return true; } diff --git a/sca-cpp/trunk/modules/python/eval.hpp b/sca-cpp/trunk/modules/python/eval.hpp index 4631ed485d..b0d793418a 100644 --- a/sca-cpp/trunk/modules/python/eval.hpp +++ b/sca-cpp/trunk/modules/python/eval.hpp @@ -238,7 +238,7 @@ const failable<PyObject*> readScript(const string& path, istream& is) { /** * Evaluate an expression against a script provided as a python object. */ -const failable<value> evalScript(const value& expr, PyObject* script, unused const gc_pool& pool) { +const failable<value> evalScript(const value& expr, PyObject* script) { // Get the requested function PyObject* func = PyObject_GetAttrString(script, c_str(car<value>(expr))); @@ -268,18 +268,18 @@ const failable<value> evalScript(const value& expr, PyObject* script, unused con /** * Evaluate an expression against a script provided as an input stream. */ -const failable<value> evalScript(const value& expr, istream& is, unused const gc_pool& pool) { +const failable<value> evalScript(const value& expr, istream& is) { failable<PyObject*> script = readScript("script", is); if (!hasContent(script)) return mkfailure<value>(reason(script)); - return evalScript(expr, content(script), pool); + return evalScript(expr, content(script)); } /** * Evaluate an expression against the python builtin module, no script is provided. */ -const failable<value> evalExpr(const value& expr, const gc_pool& pool) { - return evalScript(expr, builtin(pythonRuntime), pool); +const failable<value> evalExpr(const value& expr) { + return evalScript(expr, builtin(pythonRuntime)); } } diff --git a/sca-cpp/trunk/modules/python/python-shell.cpp b/sca-cpp/trunk/modules/python/python-shell.cpp index 0525ea2f2c..862ca6062f 100644 --- a/sca-cpp/trunk/modules/python/python-shell.cpp +++ b/sca-cpp/trunk/modules/python/python-shell.cpp @@ -32,9 +32,9 @@ int main(const int argc, char** argv) { tuscany::gc_scoped_pool pool; if (argc == 1) { - tuscany::python::evalDriverRun(tuscany::cin, tuscany::cout, pool); + tuscany::python::evalDriverRun(tuscany::cin, tuscany::cout); return 0; } - tuscany::python::evalDriverRun(argv[1], tuscany::cin, tuscany::cout, pool); + tuscany::python::evalDriverRun(argv[1], tuscany::cin, tuscany::cout); return 0; } diff --git a/sca-cpp/trunk/modules/python/python-test.cpp b/sca-cpp/trunk/modules/python/python-test.cpp index 612dc5b79d..fa3a221906 100644 --- a/sca-cpp/trunk/modules/python/python-test.cpp +++ b/sca-cpp/trunk/modules/python/python-test.cpp @@ -31,10 +31,10 @@ namespace tuscany { namespace python { -const value evalBuiltin(const string& py, const gc_pool& pool) { +const value evalBuiltin(const string& py) { istringstream is(py); ostringstream os; - evalDriverRun(is, os, pool); + evalDriverRun(is, os); return str(os); } @@ -43,7 +43,7 @@ const string testPythonPrint( bool testEval() { gc_scoped_pool pool; - assert(contains(evalBuiltin(testPythonPrint, pool), "testPrint ok")); + assert(contains(evalBuiltin(testPythonPrint), "testPrint ok")); return true; } @@ -55,7 +55,7 @@ bool testEvalExpr() { gc_scoped_pool pool; { const value exp = mklist<value>("abs", -5); - const failable<value> r = evalExpr(exp, pool); + const failable<value> r = evalExpr(exp); assert(hasContent(r)); assert(content(r) == value(5)); } @@ -64,7 +64,7 @@ bool testEvalExpr() { failable<PyObject*> script = readScript("script", is); assert(hasContent(script)); const value exp = mklist<value>("add", 2, 3); - const failable<value> r = evalScript(exp, content(script), pool); + const failable<value> r = evalScript(exp, content(script)); assert(hasContent(r)); assert(content(r) == value(5)); } @@ -73,7 +73,7 @@ bool testEvalExpr() { bool testEvalRun() { gc_scoped_pool pool; - evalDriverRun(cin, cout, pool); + evalDriverRun(cin, cout); return true; } @@ -99,7 +99,7 @@ bool testEvalLambda() { const value trl = mklist<value>("testReturnLambda"); istringstream trlis(testReturnLambda); - const failable<value> trlv = evalScript(trl, trlis, pool); + const failable<value> trlv = evalScript(trl, trlis); assert(hasContent(trlv)); assert(isLambda(content(trlv))); @@ -108,13 +108,13 @@ bool testEvalLambda() { istringstream tclis(testCallLambda); const value tcl = mklist<value>("testCallLambda", content(trlv), 2, 3); - const failable<value> tclv = evalScript(tcl, tclis, pool); + const failable<value> tclv = evalScript(tcl, tclis); assert(hasContent(tclv)); assert(content(tclv) == value(6)); istringstream tcelis(testCallLambda); const value tcel = mklist<value>("testCallLambda", lambda<value(const list<value>&)>(mult), 3, 4); - const failable<value> tcelv = evalScript(tcel, tcelis, pool); + const failable<value> tcelv = evalScript(tcel, tcelis); assert(hasContent(tcelv)); assert(content(tcelv) == value(12)); return true; diff --git a/sca-cpp/trunk/modules/scheme/driver.hpp b/sca-cpp/trunk/modules/scheme/driver.hpp index 629a561453..112c226ed1 100644 --- a/sca-cpp/trunk/modules/scheme/driver.hpp +++ b/sca-cpp/trunk/modules/scheme/driver.hpp @@ -53,21 +53,21 @@ const bool userPrint(const value val, ostream& out) { return true; } -const value evalDriverLoop(istream& in, ostream& out, Env& env, const gc_pool& pool) { +const value evalDriverLoop(istream& in, ostream& out, Env& env) { promptForInput(evalInputPrompt, out); value input = readValue(in); if (isNil(input)) return input; - const value output = evalExpr(input, env, pool); + const value output = evalExpr(input, env); announceOutput(evalOutputPrompt, out); userPrint(output, out); - return evalDriverLoop(in, out, env, pool); + return evalDriverLoop(in, out, env); } -const bool evalDriverRun(istream& in, ostream& out, const gc_pool& pool) { +const bool evalDriverRun(istream& in, ostream& out) { setupDisplay(out); - Env globalEnv = setupEnvironment(pool); - evalDriverLoop(in, out, globalEnv, pool); + Env env = setupEnvironment(); + evalDriverLoop(in, out, env); return true; } diff --git a/sca-cpp/trunk/modules/scheme/environment.hpp b/sca-cpp/trunk/modules/scheme/environment.hpp index aa4517115d..bfb415a978 100644 --- a/sca-cpp/trunk/modules/scheme/environment.hpp +++ b/sca-cpp/trunk/modules/scheme/environment.hpp @@ -102,8 +102,8 @@ const Frame makeBinding(const Frame& frameSoFar, const list<value>& variables, c return makeBinding(newFrame, cdr(variables), cdr(values)); } -const gc_ptr<Frame> makeFrame(const list<value>& variables, const list<value> values, const gc_pool& pool) { - gc_ptr<Frame> frame = new (gc_new<Frame>(pool)) Frame(); +const gc_ptr<Frame> makeFrame(const list<value>& variables, const list<value> values) { + gc_ptr<Frame> frame = new (gc_new<Frame>()) Frame(); *frame = value(makeBinding(cons(value(list<value>()), list<value>()), variables, values)); return frame; } @@ -141,12 +141,12 @@ const bool defineVariable(const value& var, const value& val, Env& env) { return true; } -const Env extendEnvironment(const list<value>& vars, const list<value>& vals, const Env& baseEnv, const gc_pool& pool) { - return cons<value>(makeFrame(vars, vals, pool), baseEnv); +const Env extendEnvironment(const list<value>& vars, const list<value>& vals, const Env& baseEnv) { + return cons<value>(makeFrame(vars, vals), baseEnv); } -const Env setupEnvironment(const gc_pool& pool) { - Env env = extendEnvironment(primitiveProcedureNames(), primitiveProcedureObjects(), theEmptyEnvironment(), pool); +const Env setupEnvironment() { + Env env = extendEnvironment(primitiveProcedureNames(), primitiveProcedureObjects(), theEmptyEnvironment()); defineVariable(trueSymbol, true, env); defineVariable(falseSymbol, false, env); return env; diff --git a/sca-cpp/trunk/modules/scheme/eval-shell.cpp b/sca-cpp/trunk/modules/scheme/eval-shell.cpp index 58c0dd14bc..4aa67c2375 100644 --- a/sca-cpp/trunk/modules/scheme/eval-shell.cpp +++ b/sca-cpp/trunk/modules/scheme/eval-shell.cpp @@ -31,6 +31,6 @@ int main() { tuscany::gc_scoped_pool pool; - tuscany::scheme::evalDriverRun(tuscany::cin, tuscany::cout, pool); + tuscany::scheme::evalDriverRun(tuscany::cin, tuscany::cout); return 0; } diff --git a/sca-cpp/trunk/modules/scheme/eval-test.cpp b/sca-cpp/trunk/modules/scheme/eval-test.cpp index cd90dc8863..7c4c0c69c4 100644 --- a/sca-cpp/trunk/modules/scheme/eval-test.cpp +++ b/sca-cpp/trunk/modules/scheme/eval-test.cpp @@ -34,7 +34,7 @@ namespace scheme { bool testEnv() { gc_scoped_pool pool; Env globalEnv = list<value>(); - Env env = extendEnvironment(mklist<value>("a"), mklist<value>(1), globalEnv, pool); + Env env = extendEnvironment(mklist<value>("a"), mklist<value>(1), globalEnv); defineVariable("x", env, env); assert(lookupVariableValue(value("x"), env) == env); assert(lookupVariableValue("a", env) == value(1)); @@ -130,39 +130,39 @@ const string testSchemeForward( "(define sqrt (lambda (x) (* x x))) " "(testLambda)"); -const string evalOutput(const string& scm, const gc_pool& pool) { +const string evalOutput(const string& scm) { istringstream is(scm); ostringstream os; - evalDriverRun(is, os, pool); + evalDriverRun(is, os); return str(os); } bool testEval() { gc_scoped_pool pool; - assert(contains(evalOutput(testSchemeNumber, pool), "testNumber ok")); - assert(contains(evalOutput(testSchemeString, pool), "testString ok")); - assert(contains(evalOutput(testSchemeDefinition, pool), "testDefinition ok")); - assert(contains(evalOutput(testSchemeIf, pool), "testIf ok")); - assert(contains(evalOutput(testSchemeCond, pool), "testCond ok")); - assert(contains(evalOutput(testSchemeBegin, pool), "testBegin1 ok")); - assert(contains(evalOutput(testSchemeBegin, pool), "testBegin2 ok")); - assert(contains(evalOutput(testSchemeLambda, pool), "testLambda ok")); - assert(contains(evalOutput(testSchemeForward, pool), "testForward ok")); + assert(contains(evalOutput(testSchemeNumber), "testNumber ok")); + assert(contains(evalOutput(testSchemeString), "testString ok")); + assert(contains(evalOutput(testSchemeDefinition), "testDefinition ok")); + assert(contains(evalOutput(testSchemeIf), "testIf ok")); + assert(contains(evalOutput(testSchemeCond), "testCond ok")); + assert(contains(evalOutput(testSchemeBegin), "testBegin1 ok")); + assert(contains(evalOutput(testSchemeBegin), "testBegin2 ok")); + assert(contains(evalOutput(testSchemeLambda), "testLambda ok")); + assert(contains(evalOutput(testSchemeForward), "testForward ok")); return true; } bool testEvalExpr() { gc_scoped_pool pool; const value exp = mklist<value>("+", 2, 3); - Env env = setupEnvironment(pool); - const value r = evalExpr(exp, env, pool); + Env env = setupEnvironment(); + const value r = evalExpr(exp, env); assert(r == value(5)); return true; } bool testEvalRun() { gc_scoped_pool pool; - evalDriverRun(cin, cout, pool); + evalDriverRun(cin, cout); return true; } @@ -180,20 +180,20 @@ const string testCallLambda( bool testEvalLambda() { gc_scoped_pool pool; - Env env = setupEnvironment(pool); + Env env = setupEnvironment(); const value trl = mklist<value>("testReturnLambda"); istringstream trlis(testReturnLambda); - const value trlv = evalScript(trl, trlis, env, pool); + const value trlv = evalScript(trl, trlis, env); istringstream tclis(testCallLambda); const value tcl = cons<value>("testCallLambda", quotedParameters(mklist<value>(trlv, 2, 3))); - const value tclv = evalScript(tcl, tclis, env, pool); + const value tclv = evalScript(tcl, tclis, env); assert(tclv == value(6)); istringstream tcelis(testCallLambda); const value tcel = cons<value>("testCallLambda", quotedParameters(mklist<value>(primitiveProcedure(mult), 3, 4))); - const value tcelv = evalScript(tcel, tcelis, env, pool); + const value tcelv = evalScript(tcel, tcelis, env); assert(tcelv == value(12)); return true; } diff --git a/sca-cpp/trunk/modules/scheme/eval.hpp b/sca-cpp/trunk/modules/scheme/eval.hpp index 05293a53d3..34d1a7bc17 100644 --- a/sca-cpp/trunk/modules/scheme/eval.hpp +++ b/sca-cpp/trunk/modules/scheme/eval.hpp @@ -36,7 +36,7 @@ namespace tuscany { namespace scheme { -const value evalExpr(const value& exp, Env& env, const gc_pool& pool); +const value evalExpr(const value& exp, Env& env); const value compoundProcedureSymbol("compound-procedure"); const value procedureSymbol("procedure"); @@ -86,10 +86,10 @@ const list<value> operands(const value& exp) { return cdr((list<value> )exp); } -const list<value> listOfValues(const list<value> exps, Env& env, const gc_pool& pool) { +const list<value> listOfValues(const list<value> exps, Env& env) { if(isNil(exps)) return list<value> (); - return cons(evalExpr(car(exps), env, pool), listOfValues(cdr(exps), env, pool)); + return cons(evalExpr(car(exps), env), listOfValues(cdr(exps), env)); } const value applyOperat(const value& exp) { @@ -132,19 +132,19 @@ const value makeBegin(const list<value> seq) { return cons(beginSymbol, seq); } -const value evalSequence(const list<value>& exps, Env& env, const gc_pool& pool) { +const value evalSequence(const list<value>& exps, Env& env) { if(isLastExp(exps)) - return evalExpr(firstExp(exps), env, pool); - evalExpr(firstExp(exps), env, pool); - return evalSequence(restExp(exps), env, pool); + return evalExpr(firstExp(exps), env); + evalExpr(firstExp(exps), env); + return evalSequence(restExp(exps), env); } -const value applyProcedure(const value& procedure, list<value>& arguments, const gc_pool& pool) { +const value applyProcedure(const value& procedure, list<value>& arguments) { if(isPrimitiveProcedure(procedure)) return applyPrimitiveProcedure(procedure, arguments); if(isCompoundProcedure(procedure)) { - Env env = extendEnvironment(procedureParameters(procedure), arguments, procedureEnvironment(procedure), pool); - return evalSequence(procedureBody(procedure), env, pool); + Env env = extendEnvironment(procedureParameters(procedure), arguments, procedureEnvironment(procedure)); + return evalSequence(procedureBody(procedure), env); } logStream() << "Unknown procedure type " << procedure << endl; return value(); @@ -218,41 +218,41 @@ value condToIf(const value& exp) { return expandClauses(condClauses(exp)); } -value evalIf(const value& exp, Env& env, const gc_pool& pool) { - if(isTrue(evalExpr(ifPredicate(exp), env, pool))) - return evalExpr(ifConsequent(exp), env, pool); - return evalExpr(ifAlternative(exp), env, pool); +value evalIf(const value& exp, Env& env) { + if(isTrue(evalExpr(ifPredicate(exp), env))) + return evalExpr(ifConsequent(exp), env); + return evalExpr(ifAlternative(exp), env); } -const value evalDefinition(const value& exp, Env& env, const gc_pool& pool) { - defineVariable(definitionVariable(exp), evalExpr(definitionValue(exp), env, pool), env); +const value evalDefinition(const value& exp, Env& env) { + defineVariable(definitionVariable(exp), evalExpr(definitionValue(exp), env), env); return definitionVariable(exp); } -const value evalExpr(const value& exp, Env& env, const gc_pool& pool) { +const value evalExpr(const value& exp, Env& env) { if(isSelfEvaluating(exp)) return exp; if(isQuoted(exp)) return textOfQuotation(exp); if(isDefinition(exp)) - return evalDefinition(exp, env, pool); + return evalDefinition(exp, env); if(isIf(exp)) - return evalIf(exp, env, pool); + return evalIf(exp, env); if(isBegin(exp)) - return evalSequence(beginActions(exp), env, pool); + return evalSequence(beginActions(exp), env); if(isCond(exp)) - return evalExpr(condToIf(exp), env, pool); + return evalExpr(condToIf(exp), env); if(isLambdaExpr(exp)) return makeProcedure(lambdaParameters(exp), lambdaBody(exp), env); if(isVariable(exp)) return lookupVariableValue(exp, env); if(isApply(exp)) { - list<value> applyOperandValues = evalExpr(applyOperand(exp), env, pool); - return applyProcedure(evalExpr(applyOperat(exp), env, pool), applyOperandValues, pool); + list<value> applyOperandValues = evalExpr(applyOperand(exp), env); + return applyProcedure(evalExpr(applyOperat(exp), env), applyOperandValues); } if(isApplication(exp)) { - list<value> operandValues = listOfValues(operands(exp), env, pool); - return applyProcedure(evalExpr(operat(exp), env, pool), operandValues, pool); + list<value> operandValues = listOfValues(operands(exp), env); + return applyProcedure(evalExpr(operat(exp), env), operandValues); } logStream() << "Unknown expression type " << exp << endl; return value(); @@ -267,22 +267,22 @@ const list<value> quotedParameters(const list<value>& p) { /** * Evaluate an expression against a script provided as a list of values. */ -const value evalScriptLoop(const value& expr, const list<value>& script, scheme::Env& env, const gc_pool& pool) { +const value evalScriptLoop(const value& expr, const list<value>& script, scheme::Env& env) { if (isNil(script)) - return scheme::evalExpr(expr, env, pool); - scheme::evalExpr(car(script), env, pool); - return evalScriptLoop(expr, cdr(script), env, pool); + return scheme::evalExpr(expr, env); + scheme::evalExpr(car(script), env); + return evalScriptLoop(expr, cdr(script), env); } -const value evalScript(const value& expr, const value& script, Env& env, const gc_pool& pool) { - return evalScriptLoop(expr, script, env, pool); +const value evalScript(const value& expr, const value& script, Env& env) { + return evalScriptLoop(expr, script, env); } /** * Evaluate an expression against a script provided as an input stream. */ -const value evalScript(const value& expr, istream& is, Env& env, const gc_pool& pool) { - return evalScript(expr, readScript(is), env, pool); +const value evalScript(const value& expr, istream& is, Env& env) { + return evalScript(expr, readScript(is), env); } } diff --git a/sca-cpp/trunk/modules/server/mod-python.hpp b/sca-cpp/trunk/modules/server/mod-python.hpp index 7b7b88f211..219613d1e3 100644 --- a/sca-cpp/trunk/modules/server/mod-python.hpp +++ b/sca-cpp/trunk/modules/server/mod-python.hpp @@ -52,8 +52,7 @@ struct evalImplementation { const value operator()(const list<value>& params) const { const value expr = append<value>(params, px); debug(expr, "modeval::python::evalImplementation::input"); - gc_pool pool(gc_current_pool()); - const failable<value> val = python::evalScript(expr, impl, pool); + const failable<value> val = python::evalScript(expr, impl); debug(val, "modeval::python::evalImplementation::result"); if (!hasContent(val)) return mklist<value>(value(), reason(val)); diff --git a/sca-cpp/trunk/modules/server/mod-scheme.hpp b/sca-cpp/trunk/modules/server/mod-scheme.hpp index 6325b6c719..d62578544f 100644 --- a/sca-cpp/trunk/modules/server/mod-scheme.hpp +++ b/sca-cpp/trunk/modules/server/mod-scheme.hpp @@ -61,9 +61,8 @@ struct evalImplementation { const value operator()(const list<value>& params) const { const value expr = cons<value>(car(params), append(scheme::quotedParameters(cdr(params)), px)); debug(expr, "modeval::scheme::evalImplementation::input"); - gc_pool pool(gc_current_pool()); - scheme::Env globalEnv = scheme::setupEnvironment(pool); - const value val = scheme::evalScript(expr, impl, globalEnv, pool); + scheme::Env env = scheme::setupEnvironment(); + const value val = scheme::evalScript(expr, impl, env); debug(val, "modeval::scheme::evalImplementation::result"); if (isNil(val)) return mklist<value>(value(), string("Could not evaluate expression")); diff --git a/sca-cpp/trunk/test/store-script/store-script-test.cpp b/sca-cpp/trunk/test/store-script/store-script-test.cpp index 33b87037f1..fe2a64e57f 100644 --- a/sca-cpp/trunk/test/store-script/store-script-test.cpp +++ b/sca-cpp/trunk/test/store-script/store-script-test.cpp @@ -41,7 +41,7 @@ bool testScript() { ifstream is("store-script-test.scm"); ostringstream os; - scheme::evalDriverRun(is, os, pool); + scheme::evalDriverRun(is, os); assert(contains(str(os), "(\"Sample Feed\" \"")); assert(contains(str(os), "\" (\"Item\" \"")); assert(contains(str(os), "\" ((javaClass \"services.Item\") (name \"Orange\") (currencyCode \"USD\") (currencySymbol \"$\") (price 3.55))) (\"Item\" \"")); @@ -55,9 +55,9 @@ bool testEval() { ifstream is("store-script-test.scm"); ostringstream os; scheme::setupDisplay(os); - scheme::Env globalEnv = scheme::setupEnvironment(pool); + scheme::Env globalEnv = scheme::setupEnvironment(); const value exp(mklist<value>("storeui_service", string("getcatalog"))); - const value val = scheme::evalScript(exp, is, globalEnv, pool); + const value val = scheme::evalScript(exp, is, globalEnv); ostringstream vs; vs << val; @@ -70,9 +70,9 @@ bool testEval() { ostringstream os; scheme::setupDisplay(os); - scheme::Env globalEnv = scheme::setupEnvironment(pool); + scheme::Env globalEnv = scheme::setupEnvironment(); const value exp(mklist<value>("storeui_service", string("gettotal"))); - const value res = scheme::evalScript(exp, is, globalEnv, pool); + const value res = scheme::evalScript(exp, is, globalEnv); ostringstream rs; rs << res; |