From bb4b895471e3165c71bdfd1fdae5e1ffde8f1696 Mon Sep 17 00:00:00 2001
From: jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68>
Date: Sun, 7 Feb 2010 00:36:25 +0000
Subject: 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
---
 sca-cpp/trunk/modules/scheme/primitive.hpp | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

(limited to 'sca-cpp/trunk/modules/scheme/primitive.hpp')

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) {
-- 
cgit v1.2.3