diff options
Diffstat (limited to 'sca-cpp/trunk/components/chat')
-rw-r--r-- | sca-cpp/trunk/components/chat/Makefile.am | 13 | ||||
-rw-r--r-- | sca-cpp/trunk/components/chat/chat-listener.cpp | 57 | ||||
-rw-r--r-- | sca-cpp/trunk/components/chat/chat-sender.cpp | 58 | ||||
-rw-r--r-- | sca-cpp/trunk/components/chat/chat.composite | 21 | ||||
-rw-r--r-- | sca-cpp/trunk/components/chat/server-test.scm | 3 | ||||
-rw-r--r-- | sca-cpp/trunk/components/chat/xmpp.hpp | 37 |
6 files changed, 184 insertions, 5 deletions
diff --git a/sca-cpp/trunk/components/chat/Makefile.am b/sca-cpp/trunk/components/chat/Makefile.am index 09cb5fa26a..ea63a475e2 100644 --- a/sca-cpp/trunk/components/chat/Makefile.am +++ b/sca-cpp/trunk/components/chat/Makefile.am @@ -15,6 +15,17 @@ # specific language governing permissions and limitations # under the License. -if WANT_STORE +if WANT_CHAT + +INCLUDES = -I${LIBSTROPHE_INCLUDE} + +compdir=$(prefix)/components/chat +comp_LTLIBRARIES = libchat-sender.la libchat-listener.la + +libchat_sender_la_SOURCES = chat-sender.cpp +libchat_sender_la_LDFLAGS = -L${LIBSTROPHE_LIB} -R${LIBSTROPHE_LIB} -lstrophe -lexpat -lssl -lresolv + +libchat_listener_la_SOURCES = chat-listener.cpp +libchat_listener_la_LDFLAGS = -L${LIBSTROPHE_LIB} -R${LIBSTROPHE_LIB} -lstrophe -lexpat -lssl -lresolv endif diff --git a/sca-cpp/trunk/components/chat/chat-listener.cpp b/sca-cpp/trunk/components/chat/chat-listener.cpp new file mode 100644 index 0000000000..57642036a6 --- /dev/null +++ b/sca-cpp/trunk/components/chat/chat-listener.cpp @@ -0,0 +1,57 @@ +/* + * Licensed to the Apache Software Foundation (ASF) under one + * or more contributor license agreements. See the NOTICE file + * distributed with this work for additional information + * regarding copyright ownership. The ASF licenses this file + * to you under the Apache License, Version 2.0 (the + * "License"); you may not use this file except in compliance + * with the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, + * software distributed under the License is distributed on an + * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + * KIND, either express or implied. See the License for the + * specific language governing permissions and limitations + * under the License. + */ + +/* $Rev$ $Date$ */ + +/** + * XMPP chat listener component implementation. + */ + +#include "string.hpp" +#include "function.hpp" +#include "list.hpp" +#include "value.hpp" +#include "monad.hpp" +#include "xmpp.hpp" + +namespace tuscany { +namespace chat { + +/** + * Initialize the component. + */ +const failable<value> init(unused const list<value>& params) { + //TODO establish a session with an XMPP server for a JID and mark the current server instance busy + + return value(true); +} + +} +} + +extern "C" { + +const tuscany::value apply(const tuscany::list<tuscany::value>& params) { + const tuscany::value func(car(params)); + if (func == "init") + return tuscany::chat::init(cdr(params)); + return tuscany::mkfailure<tuscany::value>(tuscany::string("Function not supported: ") + func); +} + +} diff --git a/sca-cpp/trunk/components/chat/chat-sender.cpp b/sca-cpp/trunk/components/chat/chat-sender.cpp new file mode 100644 index 0000000000..dfcae6796a --- /dev/null +++ b/sca-cpp/trunk/components/chat/chat-sender.cpp @@ -0,0 +1,58 @@ +/* + * Licensed to the Apache Software Foundation (ASF) under one + * or more contributor license agreements. See the NOTICE file + * distributed with this work for additional information + * regarding copyright ownership. The ASF licenses this file + * to you under the Apache License, Version 2.0 (the + * "License"); you may not use this file except in compliance + * with the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, + * software distributed under the License is distributed on an + * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + * KIND, either express or implied. See the License for the + * specific language governing permissions and limitations + * under the License. + */ + +/* $Rev$ $Date$ */ + +/** + * XMPP chat sender component implementation. + */ + +#include "string.hpp" +#include "function.hpp" +#include "list.hpp" +#include "value.hpp" +#include "monad.hpp" +#include "xmpp.hpp" + +namespace tuscany { +namespace chat { + +/** + * Post an item to an XMPP JID. + */ +const failable<value> post(unused const list<value>& params) { + + //TODO post the item + + return value(true); +} + +} +} + +extern "C" { + +const tuscany::value apply(const tuscany::list<tuscany::value>& params) { + const tuscany::value func(car(params)); + if (func == "post") + return tuscany::chat::post(cdr(params)); + return tuscany::mkfailure<tuscany::value>(tuscany::string("Function not supported: ") + func); +} + +} diff --git a/sca-cpp/trunk/components/chat/chat.composite b/sca-cpp/trunk/components/chat/chat.composite index 8b797bf75b..2c19e2d0de 100644 --- a/sca-cpp/trunk/components/chat/chat.composite +++ b/sca-cpp/trunk/components/chat/chat.composite @@ -22,11 +22,24 @@ targetNamespace="http://tuscany.apache.org/xmlns/sca/components" name="chat"> - <component name="chat"> - <implementation.cpp path=".libs" library="libchat"/> + <component name="chat-sender"> + <implementation.cpp path=".libs" library="libchat-sender"/> <property name="jid">sample@apache.org</property> - <service name="chat"> - <t:binding.http uri="chat"/> + <service name="chat-sender"> + <t:binding.http uri="print-sender"/> + </service> + </component> + + <component name="chat-listener"> + <implementation.cpp path=".libs" library="libchat-listener"/> + <property name="jid">sample@apache.org</property> + <reference name="relay" target="print"/> + </component> + + <component name="print"> + <t:implementation.scheme script="server-test.scm"/> + <service name="print"> + <t:binding.http uri="print"/> </service> </component> diff --git a/sca-cpp/trunk/components/chat/server-test.scm b/sca-cpp/trunk/components/chat/server-test.scm new file mode 100644 index 0000000000..5fabe5aa17 --- /dev/null +++ b/sca-cpp/trunk/components/chat/server-test.scm @@ -0,0 +1,3 @@ +; Chat test case + +(define (print x) (display x)) diff --git a/sca-cpp/trunk/components/chat/xmpp.hpp b/sca-cpp/trunk/components/chat/xmpp.hpp new file mode 100644 index 0000000000..b9508f0a53 --- /dev/null +++ b/sca-cpp/trunk/components/chat/xmpp.hpp @@ -0,0 +1,37 @@ +/* + * Licensed to the Apache Software Foundation (ASF) under one + * or more contributor license agreements. See the NOTICE file + * distributed with this work for additional information + * regarding copyright ownership. The ASF licenses this file + * to you under the Apache License, Version 2.0 (the + * "License"); you may not use this file except in compliance + * with the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, + * software distributed under the License is distributed on an + * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + * KIND, either express or implied. See the License for the + * specific language governing permissions and limitations + * under the License. + */ + +/* $Rev$ $Date$ */ + +#ifndef tuscany_queue_hpp +#define tuscany_queue_hpp + +/** + * XMPP support functions. + */ + +#include "strophe.h" + +namespace tuscany { +namespace chat { + +} +} + +#endif /* tuscany_xmpp_hpp */ |