diff options
author | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2010-02-07 00:36:25 +0000 |
---|---|---|
committer | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2010-02-07 00:36:25 +0000 |
commit | bb4b895471e3165c71bdfd1fdae5e1ffde8f1696 (patch) | |
tree | 57bec175bb5dbf43303f7334162b9b2b4bda03c6 /sca-cpp/trunk/modules/scheme/primitive.hpp | |
parent | 00f9947613624b251551ba709824f97f1b6c2fb1 (diff) |
Moved server configuration to HTTPD postConfig phase, to avoid running configuration commands twice and added a way for runtime modules and components to handle start/restart/stop events. Improved build scripts a little, to not depend on external environment variables.
git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@907352 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'sca-cpp/trunk/modules/scheme/primitive.hpp')
-rw-r--r-- | sca-cpp/trunk/modules/scheme/primitive.hpp | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/sca-cpp/trunk/modules/scheme/primitive.hpp b/sca-cpp/trunk/modules/scheme/primitive.hpp index f1396710f5..5a13725ffd 100644 --- a/sca-cpp/trunk/modules/scheme/primitive.hpp +++ b/sca-cpp/trunk/modules/scheme/primitive.hpp @@ -171,6 +171,18 @@ const value cdddrProc(unused const list<value>& args) { return cdddr((list<value> )car(args)); } +const value startProc(unused const list<value>& args) { + return false; +} + +const value stopProc(unused const list<value>& args) { + return false; +} + +const value restartProc(unused const list<value>& args) { + return false; +} + const value applyPrimitiveProcedure(const value& proc, list<value>& args) { const lambda<value(const list<value>&)> func(cadr((list<value>)proc)); return func(args); @@ -222,7 +234,10 @@ const list<value> primitiveProcedureNames() { + "cdddr" + "display" + "log" - + "uuid"; + + "uuid" + + "start" + + "stop" + + "restart"; } const list<value> primitiveProcedureObjects() { @@ -245,7 +260,10 @@ const list<value> primitiveProcedureObjects() { + primitiveProcedure(cdddrProc) + primitiveProcedure(displayProc) + primitiveProcedure(logProc) - + primitiveProcedure(uuidProc); + + primitiveProcedure(uuidProc) + + primitiveProcedure(startProc) + + primitiveProcedure(stopProc) + + primitiveProcedure(restartProc); } const bool isFalse(const value& exp) { |