summaryrefslogtreecommitdiffstats
path: root/sca-cpp/trunk/modules/scheme/primitive.hpp
diff options
context:
space:
mode:
authorjsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68>2010-02-07 00:36:25 +0000
committerjsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68>2010-02-07 00:36:25 +0000
commitbb4b895471e3165c71bdfd1fdae5e1ffde8f1696 (patch)
tree57bec175bb5dbf43303f7334162b9b2b4bda03c6 /sca-cpp/trunk/modules/scheme/primitive.hpp
parent00f9947613624b251551ba709824f97f1b6c2fb1 (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.hpp22
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) {