Erlang binding sandbox
git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@746388 13f79535-47bb-0310-9956-ffa450edef68
This commit is contained in:
wjaniszewski
parent
28a1f961f7
commit
77dfc8e1d8
48 changed files with 2946 additions and 0 deletions
205
sandbox/wjaniszewski/binding-erlang-runtime/LICENSE
Normal file
205
sandbox/wjaniszewski/binding-erlang-runtime/LICENSE
Normal file
|
|
@ -0,0 +1,205 @@
|
|||
|
||||
Apache License
|
||||
Version 2.0, January 2004
|
||||
http://www.apache.org/licenses/
|
||||
|
||||
TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
|
||||
|
||||
1. Definitions.
|
||||
|
||||
"License" shall mean the terms and conditions for use, reproduction,
|
||||
and distribution as defined by Sections 1 through 9 of this document.
|
||||
|
||||
"Licensor" shall mean the copyright owner or entity authorized by
|
||||
the copyright owner that is granting the License.
|
||||
|
||||
"Legal Entity" shall mean the union of the acting entity and all
|
||||
other entities that control, are controlled by, or are under common
|
||||
control with that entity. For the purposes of this definition,
|
||||
"control" means (i) the power, direct or indirect, to cause the
|
||||
direction or management of such entity, whether by contract or
|
||||
otherwise, or (ii) ownership of fifty percent (50%) or more of the
|
||||
outstanding shares, or (iii) beneficial ownership of such entity.
|
||||
|
||||
"You" (or "Your") shall mean an individual or Legal Entity
|
||||
exercising permissions granted by this License.
|
||||
|
||||
"Source" form shall mean the preferred form for making modifications,
|
||||
including but not limited to software source code, documentation
|
||||
source, and configuration files.
|
||||
|
||||
"Object" form shall mean any form resulting from mechanical
|
||||
transformation or translation of a Source form, including but
|
||||
not limited to compiled object code, generated documentation,
|
||||
and conversions to other media types.
|
||||
|
||||
"Work" shall mean the work of authorship, whether in Source or
|
||||
Object form, made available under the License, as indicated by a
|
||||
copyright notice that is included in or attached to the work
|
||||
(an example is provided in the Appendix below).
|
||||
|
||||
"Derivative Works" shall mean any work, whether in Source or Object
|
||||
form, that is based on (or derived from) the Work and for which the
|
||||
editorial revisions, annotations, elaborations, or other modifications
|
||||
represent, as a whole, an original work of authorship. For the purposes
|
||||
of this License, Derivative Works shall not include works that remain
|
||||
separable from, or merely link (or bind by name) to the interfaces of,
|
||||
the Work and Derivative Works thereof.
|
||||
|
||||
"Contribution" shall mean any work of authorship, including
|
||||
the original version of the Work and any modifications or additions
|
||||
to that Work or Derivative Works thereof, that is intentionally
|
||||
submitted to Licensor for inclusion in the Work by the copyright owner
|
||||
or by an individual or Legal Entity authorized to submit on behalf of
|
||||
the copyright owner. For the purposes of this definition, "submitted"
|
||||
means any form of electronic, verbal, or written communication sent
|
||||
to the Licensor or its representatives, including but not limited to
|
||||
communication on electronic mailing lists, source code control systems,
|
||||
and issue tracking systems that are managed by, or on behalf of, the
|
||||
Licensor for the purpose of discussing and improving the Work, but
|
||||
excluding communication that is conspicuously marked or otherwise
|
||||
designated in writing by the copyright owner as "Not a Contribution."
|
||||
|
||||
"Contributor" shall mean Licensor and any individual or Legal Entity
|
||||
on behalf of whom a Contribution has been received by Licensor and
|
||||
subsequently incorporated within the Work.
|
||||
|
||||
2. Grant of Copyright License. Subject to the terms and conditions of
|
||||
this License, each Contributor hereby grants to You a perpetual,
|
||||
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
|
||||
copyright license to reproduce, prepare Derivative Works of,
|
||||
publicly display, publicly perform, sublicense, and distribute the
|
||||
Work and such Derivative Works in Source or Object form.
|
||||
|
||||
3. Grant of Patent License. Subject to the terms and conditions of
|
||||
this License, each Contributor hereby grants to You a perpetual,
|
||||
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
|
||||
(except as stated in this section) patent license to make, have made,
|
||||
use, offer to sell, sell, import, and otherwise transfer the Work,
|
||||
where such license applies only to those patent claims licensable
|
||||
by such Contributor that are necessarily infringed by their
|
||||
Contribution(s) alone or by combination of their Contribution(s)
|
||||
with the Work to which such Contribution(s) was submitted. If You
|
||||
institute patent litigation against any entity (including a
|
||||
cross-claim or counterclaim in a lawsuit) alleging that the Work
|
||||
or a Contribution incorporated within the Work constitutes direct
|
||||
or contributory patent infringement, then any patent licenses
|
||||
granted to You under this License for that Work shall terminate
|
||||
as of the date such litigation is filed.
|
||||
|
||||
4. Redistribution. You may reproduce and distribute copies of the
|
||||
Work or Derivative Works thereof in any medium, with or without
|
||||
modifications, and in Source or Object form, provided that You
|
||||
meet the following conditions:
|
||||
|
||||
(a) You must give any other recipients of the Work or
|
||||
Derivative Works a copy of this License; and
|
||||
|
||||
(b) You must cause any modified files to carry prominent notices
|
||||
stating that You changed the files; and
|
||||
|
||||
(c) You must retain, in the Source form of any Derivative Works
|
||||
that You distribute, all copyright, patent, trademark, and
|
||||
attribution notices from the Source form of the Work,
|
||||
excluding those notices that do not pertain to any part of
|
||||
the Derivative Works; and
|
||||
|
||||
(d) If the Work includes a "NOTICE" text file as part of its
|
||||
distribution, then any Derivative Works that You distribute must
|
||||
include a readable copy of the attribution notices contained
|
||||
within such NOTICE file, excluding those notices that do not
|
||||
pertain to any part of the Derivative Works, in at least one
|
||||
of the following places: within a NOTICE text file distributed
|
||||
as part of the Derivative Works; within the Source form or
|
||||
documentation, if provided along with the Derivative Works; or,
|
||||
within a display generated by the Derivative Works, if and
|
||||
wherever such third-party notices normally appear. The contents
|
||||
of the NOTICE file are for informational purposes only and
|
||||
do not modify the License. You may add Your own attribution
|
||||
notices within Derivative Works that You distribute, alongside
|
||||
or as an addendum to the NOTICE text from the Work, provided
|
||||
that such additional attribution notices cannot be construed
|
||||
as modifying the License.
|
||||
|
||||
You may add Your own copyright statement to Your modifications and
|
||||
may provide additional or different license terms and conditions
|
||||
for use, reproduction, or distribution of Your modifications, or
|
||||
for any such Derivative Works as a whole, provided Your use,
|
||||
reproduction, and distribution of the Work otherwise complies with
|
||||
the conditions stated in this License.
|
||||
|
||||
5. Submission of Contributions. Unless You explicitly state otherwise,
|
||||
any Contribution intentionally submitted for inclusion in the Work
|
||||
by You to the Licensor shall be under the terms and conditions of
|
||||
this License, without any additional terms or conditions.
|
||||
Notwithstanding the above, nothing herein shall supersede or modify
|
||||
the terms of any separate license agreement you may have executed
|
||||
with Licensor regarding such Contributions.
|
||||
|
||||
6. Trademarks. This License does not grant permission to use the trade
|
||||
names, trademarks, service marks, or product names of the Licensor,
|
||||
except as required for reasonable and customary use in describing the
|
||||
origin of the Work and reproducing the content of the NOTICE file.
|
||||
|
||||
7. Disclaimer of Warranty. Unless required by applicable law or
|
||||
agreed to in writing, Licensor provides the Work (and each
|
||||
Contributor provides its Contributions) on an "AS IS" BASIS,
|
||||
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
|
||||
implied, including, without limitation, any warranties or conditions
|
||||
of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
|
||||
PARTICULAR PURPOSE. You are solely responsible for determining the
|
||||
appropriateness of using or redistributing the Work and assume any
|
||||
risks associated with Your exercise of permissions under this License.
|
||||
|
||||
8. Limitation of Liability. In no event and under no legal theory,
|
||||
whether in tort (including negligence), contract, or otherwise,
|
||||
unless required by applicable law (such as deliberate and grossly
|
||||
negligent acts) or agreed to in writing, shall any Contributor be
|
||||
liable to You for damages, including any direct, indirect, special,
|
||||
incidental, or consequential damages of any character arising as a
|
||||
result of this License or out of the use or inability to use the
|
||||
Work (including but not limited to damages for loss of goodwill,
|
||||
work stoppage, computer failure or malfunction, or any and all
|
||||
other commercial damages or losses), even if such Contributor
|
||||
has been advised of the possibility of such damages.
|
||||
|
||||
9. Accepting Warranty or Additional Liability. While redistributing
|
||||
the Work or Derivative Works thereof, You may choose to offer,
|
||||
and charge a fee for, acceptance of support, warranty, indemnity,
|
||||
or other liability obligations and/or rights consistent with this
|
||||
License. However, in accepting such obligations, You may act only
|
||||
on Your own behalf and on Your sole responsibility, not on behalf
|
||||
of any other Contributor, and only if You agree to indemnify,
|
||||
defend, and hold each Contributor harmless for any liability
|
||||
incurred by, or claims asserted against, such Contributor by reason
|
||||
of your accepting any such warranty or additional liability.
|
||||
|
||||
END OF TERMS AND CONDITIONS
|
||||
|
||||
APPENDIX: How to apply the Apache License to your work.
|
||||
|
||||
To apply the Apache License to your work, attach the following
|
||||
boilerplate notice, with the fields enclosed by brackets "[]"
|
||||
replaced with your own identifying information. (Don't include
|
||||
the brackets!) The text should be enclosed in the appropriate
|
||||
comment syntax for the file format. We also recommend that a
|
||||
file or class name and description of purpose be included on the
|
||||
same "printed page" as the copyright notice for easier
|
||||
identification within third-party archives.
|
||||
|
||||
Copyright [yyyy] [name of copyright owner]
|
||||
|
||||
Licensed 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.
|
||||
|
||||
|
||||
|
||||
6
sandbox/wjaniszewski/binding-erlang-runtime/NOTICE
Normal file
6
sandbox/wjaniszewski/binding-erlang-runtime/NOTICE
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
${pom.name}
|
||||
Copyright (c) 2005 - 2008 The Apache Software Foundation
|
||||
|
||||
This product includes software developed by
|
||||
The Apache Software Foundation (http://www.apache.org/).
|
||||
|
||||
84
sandbox/wjaniszewski/binding-erlang-runtime/pom.xml
Normal file
84
sandbox/wjaniszewski/binding-erlang-runtime/pom.xml
Normal file
|
|
@ -0,0 +1,84 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!--
|
||||
* 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.
|
||||
-->
|
||||
<project>
|
||||
<modelVersion>4.0.0</modelVersion>
|
||||
<parent>
|
||||
<groupId>org.apache.tuscany.sca</groupId>
|
||||
<artifactId>tuscany-modules</artifactId>
|
||||
<version>1.4</version>
|
||||
<relativePath>../pom.xml</relativePath>
|
||||
</parent>
|
||||
<artifactId>tuscany-binding-erlang-runtime</artifactId>
|
||||
<name>Apache Tuscany SCA Erlang Binding Runtime</name>
|
||||
|
||||
<dependencies>
|
||||
<dependency>
|
||||
<groupId>org.apache.tuscany.sca</groupId>
|
||||
<artifactId>tuscany-interface-java</artifactId>
|
||||
<version>1.4</version>
|
||||
</dependency>
|
||||
|
||||
<dependency>
|
||||
<groupId>org.apache.tuscany.sca</groupId>
|
||||
<artifactId>tuscany-implementation-java-runtime</artifactId>
|
||||
<version>1.4</version>
|
||||
<scope>runtime</scope>
|
||||
</dependency>
|
||||
|
||||
<dependency>
|
||||
<groupId>org.apache.tuscany.sca</groupId>
|
||||
<artifactId>tuscany-binding-erlang</artifactId>
|
||||
<version>1.4</version>
|
||||
</dependency>
|
||||
|
||||
<dependency>
|
||||
<groupId>jinterface</groupId>
|
||||
<artifactId>jinterface</artifactId>
|
||||
<version>1.4.2</version>
|
||||
</dependency>
|
||||
|
||||
<dependency>
|
||||
<groupId>org.apache.tuscany.sca</groupId>
|
||||
<artifactId>tuscany-host-embedded</artifactId>
|
||||
<version>1.4</version>
|
||||
<scope>test</scope>
|
||||
</dependency>
|
||||
|
||||
</dependencies>
|
||||
|
||||
<build>
|
||||
<plugins>
|
||||
<plugin>
|
||||
<groupId>org.apache.felix</groupId>
|
||||
<artifactId>maven-bundle-plugin</artifactId>
|
||||
|
||||
<configuration>
|
||||
<instructions>
|
||||
<Bundle-Version>${tuscany.version}</Bundle-Version>
|
||||
<Bundle-SymbolicName>org.apache.tuscany.sca.binding.erlang</Bundle-SymbolicName>
|
||||
<Bundle-Description>${pom.name}</Bundle-Description>
|
||||
<Export-Package>org.apache.tuscany.sca.binding.erlang*</Export-Package>
|
||||
</instructions>
|
||||
</configuration>
|
||||
</plugin>
|
||||
</plugins>
|
||||
</build>
|
||||
|
||||
</project>
|
||||
|
|
@ -0,0 +1,64 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl;
|
||||
|
||||
import org.apache.tuscany.sca.binding.erlang.ErlangBinding;
|
||||
import org.apache.tuscany.sca.core.ExtensionPointRegistry;
|
||||
import org.apache.tuscany.sca.provider.BindingProviderFactory;
|
||||
import org.apache.tuscany.sca.provider.ReferenceBindingProvider;
|
||||
import org.apache.tuscany.sca.provider.ServiceBindingProvider;
|
||||
import org.apache.tuscany.sca.runtime.RuntimeComponent;
|
||||
import org.apache.tuscany.sca.runtime.RuntimeComponentReference;
|
||||
import org.apache.tuscany.sca.runtime.RuntimeComponentService;
|
||||
|
||||
/**
|
||||
* @version $Rev: $ $Date: $
|
||||
*/
|
||||
public class ErlangBindingProviderFactory implements BindingProviderFactory<ErlangBinding> {
|
||||
|
||||
public ErlangBindingProviderFactory(ExtensionPointRegistry registry) {
|
||||
|
||||
}
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.provider.BindingProviderFactory#createReferenceBindingProvider(org.apache.tuscany.sca.runtime.RuntimeComponent, org.apache.tuscany.sca.runtime.RuntimeComponentReference, org.apache.tuscany.sca.assembly.Binding)
|
||||
*/
|
||||
public ReferenceBindingProvider createReferenceBindingProvider(RuntimeComponent component,
|
||||
RuntimeComponentReference reference,
|
||||
ErlangBinding binding) {
|
||||
return new ErlangReferenceBindingProvider(binding, reference);
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.provider.BindingProviderFactory#createServiceBindingProvider(org.apache.tuscany.sca.runtime.RuntimeComponent, org.apache.tuscany.sca.runtime.RuntimeComponentService, org.apache.tuscany.sca.assembly.Binding)
|
||||
*/
|
||||
public ServiceBindingProvider createServiceBindingProvider(RuntimeComponent component,
|
||||
RuntimeComponentService service,
|
||||
ErlangBinding binding) {
|
||||
return new ErlangServiceBindingProvider(binding, service);
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.provider.ProviderFactory#getModelType()
|
||||
*/
|
||||
public Class<ErlangBinding> getModelType() {
|
||||
return ErlangBinding.class;
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,117 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl;
|
||||
|
||||
import org.apache.tuscany.sca.binding.erlang.ErlangBinding;
|
||||
import org.apache.tuscany.sca.binding.erlang.impl.types.TypeHelpersProxy;
|
||||
import org.apache.tuscany.sca.invocation.Invoker;
|
||||
import org.apache.tuscany.sca.invocation.Message;
|
||||
import org.apache.tuscany.sca.runtime.RuntimeComponentReference;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpConnection;
|
||||
import com.ericsson.otp.erlang.OtpEpmd;
|
||||
import com.ericsson.otp.erlang.OtpErlangList;
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
import com.ericsson.otp.erlang.OtpMbox;
|
||||
import com.ericsson.otp.erlang.OtpMsg;
|
||||
import com.ericsson.otp.erlang.OtpNode;
|
||||
import com.ericsson.otp.erlang.OtpPeer;
|
||||
import com.ericsson.otp.erlang.OtpSelf;
|
||||
|
||||
/**
|
||||
* @version $Rev: $ $Date: $
|
||||
*/
|
||||
public class ErlangInvoker implements Invoker {
|
||||
|
||||
private RuntimeComponentReference reference;
|
||||
private ErlangBinding binding;
|
||||
private OtpNode node;
|
||||
|
||||
public ErlangInvoker(RuntimeComponentReference reference, ErlangBinding binding) {
|
||||
this.reference = reference;
|
||||
this.binding = binding;
|
||||
}
|
||||
|
||||
private Message sendMessage(Message msg) {
|
||||
OtpMbox tmpMbox = null;
|
||||
try {
|
||||
String nodeName = "_connector_to_" + binding.getNode();
|
||||
node = new OtpNode(nodeName);
|
||||
tmpMbox = node.createMbox();
|
||||
Object[] args = msg.getBody();
|
||||
OtpErlangObject msgPayload = TypeHelpersProxy.toErlang(args);
|
||||
tmpMbox.send(msg.getOperation().getName(), binding.getNode(), msgPayload);
|
||||
if (msg.getOperation().getOutputType() != null) {
|
||||
OtpMsg resultMsg = tmpMbox.receiveMsg();
|
||||
OtpErlangObject result = resultMsg.getMsg();
|
||||
msg.setBody(TypeHelpersProxy.toJava(result, msg.getOperation().getOutputType().getPhysical()));
|
||||
}
|
||||
} catch (Exception e) {
|
||||
msg.setFaultBody(e);
|
||||
} finally {
|
||||
if (tmpMbox != null) {
|
||||
tmpMbox.close();
|
||||
}
|
||||
if (node != null) {
|
||||
OtpEpmd.unPublishPort(node);
|
||||
node.close();
|
||||
}
|
||||
}
|
||||
return msg;
|
||||
}
|
||||
|
||||
private Message invokeOperation(Message msg) {
|
||||
OtpSelf self = null;
|
||||
OtpPeer other = null;
|
||||
OtpConnection connection = null;
|
||||
try {
|
||||
String nodeName = "_connector_to_" + binding.getNode();
|
||||
self = new OtpSelf(nodeName);
|
||||
other = new OtpPeer(binding.getNode());
|
||||
connection = self.connect(other);
|
||||
OtpErlangList params = TypeHelpersProxy.toErlangAsList((Object[])msg.getBody());
|
||||
connection.sendRPC(binding.getModule(), msg.getOperation().getName(), params);
|
||||
if (msg.getOperation().getOutputType() != null) {
|
||||
OtpErlangObject result = connection.receiveRPC();
|
||||
msg.setBody(TypeHelpersProxy.toJava(result, msg.getOperation().getOutputType().getPhysical()));
|
||||
}
|
||||
} catch (Exception e) {
|
||||
msg.setFaultBody(e);
|
||||
} finally {
|
||||
if (connection != null) {
|
||||
connection.close();
|
||||
}
|
||||
}
|
||||
return msg;
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.invocation.Invoker#invoke(org.apache.tuscany.sca.invocation.Message)
|
||||
*/
|
||||
public Message invoke(Message msg) {
|
||||
if (binding.isMbox()) {
|
||||
return sendMessage(msg);
|
||||
} else {
|
||||
return invokeOperation(msg);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,84 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl;
|
||||
|
||||
import java.util.logging.Level;
|
||||
import java.util.logging.Logger;
|
||||
|
||||
import org.apache.tuscany.sca.binding.erlang.ErlangBinding;
|
||||
import org.apache.tuscany.sca.interfacedef.InterfaceContract;
|
||||
import org.apache.tuscany.sca.interfacedef.Operation;
|
||||
import org.apache.tuscany.sca.invocation.Invoker;
|
||||
import org.apache.tuscany.sca.provider.ReferenceBindingProvider;
|
||||
import org.apache.tuscany.sca.runtime.RuntimeComponentReference;
|
||||
|
||||
/**
|
||||
* @version $Rev: $ $Date: $
|
||||
*/
|
||||
public class ErlangReferenceBindingProvider implements ReferenceBindingProvider {
|
||||
|
||||
private static final Logger logger = Logger.getLogger(ErlangReferenceBindingProvider.class.getName());
|
||||
private RuntimeComponentReference reference;
|
||||
private ErlangBinding binding;
|
||||
|
||||
public ErlangReferenceBindingProvider(ErlangBinding binding, RuntimeComponentReference reference) {
|
||||
this.reference = reference;
|
||||
this.binding = binding;
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.provider.ReferenceBindingProvider#createInvoker(org.apache.tuscany.sca.interfacedef.Operation)
|
||||
*/
|
||||
public Invoker createInvoker(Operation operation) {
|
||||
try {
|
||||
return new ErlangInvoker(reference, binding);
|
||||
} catch (Exception e) {
|
||||
logger.log(Level.WARNING, "Exception during creating Erlang invoker", e);
|
||||
}
|
||||
return null;
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.provider.ReferenceBindingProvider#getBindingInterfaceContract()
|
||||
*/
|
||||
public InterfaceContract getBindingInterfaceContract() {
|
||||
return reference.getInterfaceContract();
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.provider.ReferenceBindingProvider#start()
|
||||
*/
|
||||
public void start() {
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.provider.ReferenceBindingProvider#stop()
|
||||
*/
|
||||
public void stop() {
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.provider.ReferenceBindingProvider#supportsOneWayInvocation()
|
||||
*/
|
||||
public boolean supportsOneWayInvocation() {
|
||||
return false;
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,81 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl;
|
||||
|
||||
import org.apache.tuscany.sca.binding.erlang.ErlangBinding;
|
||||
import org.apache.tuscany.sca.interfacedef.InterfaceContract;
|
||||
import org.apache.tuscany.sca.provider.ServiceBindingProvider;
|
||||
import org.apache.tuscany.sca.runtime.RuntimeComponentService;
|
||||
import org.osoa.sca.ServiceRuntimeException;
|
||||
|
||||
/**
|
||||
* @version $Rev: 685180 $ $Date: 2008-08-12 16:17:26 +0100 (Tue, 12 Aug 2008) $
|
||||
*/
|
||||
public class ErlangServiceBindingProvider implements ServiceBindingProvider {
|
||||
|
||||
private RuntimeComponentService service;
|
||||
private ErlangBinding binding;
|
||||
|
||||
public ErlangServiceBindingProvider(ErlangBinding binding, RuntimeComponentService service) {
|
||||
this.service = service;
|
||||
this.binding = binding;
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.provider.ServiceBindingProvider#getBindingInterfaceContract()
|
||||
*/
|
||||
public InterfaceContract getBindingInterfaceContract() {
|
||||
return service.getInterfaceContract();
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.provider.ServiceBindingProvider#start()
|
||||
*/
|
||||
public void start() {
|
||||
try {
|
||||
Runnable server = new RpcServer(service, binding);
|
||||
Thread thread = new Thread(server);
|
||||
thread.start();
|
||||
} catch (Exception e) {
|
||||
throw new ServiceRuntimeException(e);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.provider.ServiceBindingProvider#stop()
|
||||
*/
|
||||
public void stop() {
|
||||
try {
|
||||
//TODO: stop RPC server
|
||||
} catch (Exception e) {
|
||||
throw new ServiceRuntimeException(e);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.provider.ServiceBindingProvider#supportsOneWayInvocation()
|
||||
*/
|
||||
public boolean supportsOneWayInvocation() {
|
||||
return false;
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,143 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl;
|
||||
|
||||
import java.io.IOException;
|
||||
import java.util.List;
|
||||
|
||||
import org.apache.tuscany.sca.binding.erlang.ErlangBinding;
|
||||
import org.apache.tuscany.sca.binding.erlang.impl.types.TypeHelpersProxy;
|
||||
import org.apache.tuscany.sca.interfacedef.DataType;
|
||||
import org.apache.tuscany.sca.interfacedef.Operation;
|
||||
import org.apache.tuscany.sca.runtime.RuntimeComponentService;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpConnection;
|
||||
import com.ericsson.otp.erlang.OtpErlangAtom;
|
||||
import com.ericsson.otp.erlang.OtpErlangList;
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
import com.ericsson.otp.erlang.OtpErlangPid;
|
||||
import com.ericsson.otp.erlang.OtpErlangRef;
|
||||
import com.ericsson.otp.erlang.OtpErlangString;
|
||||
import com.ericsson.otp.erlang.OtpErlangTuple;
|
||||
|
||||
public class RpcExecutor implements Runnable {
|
||||
|
||||
private RuntimeComponentService service;
|
||||
private ErlangBinding binding;
|
||||
private OtpConnection connection;
|
||||
|
||||
private static final OtpErlangAtom OK = new OtpErlangAtom("ok");
|
||||
private static final OtpErlangAtom ERROR = new OtpErlangAtom("error");
|
||||
|
||||
public RpcExecutor(RuntimeComponentService service, ErlangBinding binding, OtpConnection connection) {
|
||||
this.service = service;
|
||||
this.binding = binding;
|
||||
this.connection = connection;
|
||||
}
|
||||
|
||||
private void sendMessage(OtpConnection connection,
|
||||
OtpErlangPid pid,
|
||||
OtpErlangRef ref,
|
||||
OtpErlangAtom head,
|
||||
OtpErlangObject message) throws IOException {
|
||||
OtpErlangTuple tResult = new OtpErlangTuple(new OtpErlangObject[] {head, message});
|
||||
OtpErlangObject msg = null;
|
||||
if (ref != null) {
|
||||
msg = new OtpErlangTuple(new OtpErlangObject[] {ref, tResult});
|
||||
} else {
|
||||
msg = tResult;
|
||||
}
|
||||
connection.send(pid, msg);
|
||||
}
|
||||
|
||||
public void run() {
|
||||
OtpErlangTuple request = null;
|
||||
OtpErlangPid senderPid = null;
|
||||
OtpErlangRef senderRef = null;
|
||||
try {
|
||||
OtpErlangTuple call = (OtpErlangTuple)connection.receive();
|
||||
if (call.arity() == 2) {
|
||||
// is call from jinterface library
|
||||
senderPid = (OtpErlangPid)call.elementAt(0);
|
||||
request = (OtpErlangTuple)call.elementAt(1);
|
||||
} else {
|
||||
// is call from native *erl* console
|
||||
OtpErlangTuple from = (OtpErlangTuple)call.elementAt(1);
|
||||
request = (OtpErlangTuple)call.elementAt(2);
|
||||
senderPid = (OtpErlangPid)from.elementAt(0);
|
||||
senderRef = (OtpErlangRef)from.elementAt(1);
|
||||
}
|
||||
String module = ((OtpErlangAtom)request.elementAt(1)).atomValue();
|
||||
String function = ((OtpErlangAtom)request.elementAt(2)).atomValue();
|
||||
OtpErlangObject args = request.elementAt(3);
|
||||
OtpErlangList argsList = null;
|
||||
if (args instanceof OtpErlangList) {
|
||||
argsList = (OtpErlangList)args;
|
||||
} else {
|
||||
argsList = new OtpErlangList(args);
|
||||
}
|
||||
if (!binding.getModule().equals(module)) {
|
||||
sendMessage(connection, senderPid, senderRef, ERROR, new OtpErlangString("No such module"));
|
||||
} else {
|
||||
List<Operation> operations = service.getInterfaceContract().getInterface().getOperations();
|
||||
Operation operation = null;
|
||||
for (Operation o : operations) {
|
||||
if (o.getName().equals(function)) {
|
||||
operation = o;
|
||||
break;
|
||||
}
|
||||
}
|
||||
if (operation != null) {
|
||||
List<DataType> iTypes = operation.getInputType().getLogical();
|
||||
Class<?>[] forClasses = new Class<?>[iTypes.size()];
|
||||
for (int i = 0; i < iTypes.size(); i++) {
|
||||
forClasses[i] = iTypes.get(i).getPhysical();
|
||||
}
|
||||
Object result =
|
||||
service.getRuntimeWire(binding).invoke(operation,
|
||||
TypeHelpersProxy.toJavaFromList(argsList, forClasses));
|
||||
OtpErlangObject response = null;
|
||||
if (operation.getOutputType() != null && operation.getOutputType().getPhysical().isArray()) {
|
||||
response = TypeHelpersProxy.toErlangAsList(result);
|
||||
} else if (operation.getOutputType() == null) {
|
||||
Object[] arrArg = new Object[] {};
|
||||
response = TypeHelpersProxy.toErlang(arrArg);
|
||||
} else {
|
||||
Object[] arrArg = new Object[] {result};
|
||||
response = TypeHelpersProxy.toErlang(arrArg);
|
||||
}
|
||||
sendMessage(connection, senderPid, senderRef, OK, response);
|
||||
} else {
|
||||
sendMessage(connection, senderPid, senderRef, ERROR, new OtpErlangString("No such operation"));
|
||||
}
|
||||
}
|
||||
} catch (Exception e) {
|
||||
// TODO: distinguish and describe errors!
|
||||
try {
|
||||
sendMessage(connection, senderPid, senderRef, ERROR, new OtpErlangString("Error while processing request"));
|
||||
} catch (IOException e1) {
|
||||
// error while sending error message. Can't do anything now
|
||||
}
|
||||
} finally {
|
||||
connection.close();
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,61 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl;
|
||||
|
||||
import java.util.concurrent.ExecutorService;
|
||||
import java.util.concurrent.Executors;
|
||||
|
||||
import org.apache.tuscany.sca.binding.erlang.ErlangBinding;
|
||||
import org.apache.tuscany.sca.runtime.RuntimeComponentService;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpConnection;
|
||||
import com.ericsson.otp.erlang.OtpSelf;
|
||||
|
||||
public class RpcServer implements Runnable {
|
||||
|
||||
private RuntimeComponentService service;
|
||||
private ErlangBinding binding;
|
||||
private OtpSelf self;
|
||||
|
||||
public RpcServer(RuntimeComponentService service, ErlangBinding binding) throws Exception {
|
||||
this.service = service;
|
||||
this.binding = binding;
|
||||
self = new OtpSelf(binding.getNode());
|
||||
boolean registered = self.publishPort();
|
||||
if (!registered) {
|
||||
// TODO: throw exception, no epmd
|
||||
}
|
||||
}
|
||||
|
||||
public void run() {
|
||||
// TODO: thread management
|
||||
ExecutorService executors = Executors.newFixedThreadPool(10);
|
||||
while (true) {
|
||||
try {
|
||||
OtpConnection connection = self.accept();
|
||||
executors.execute(new RpcExecutor(service, binding, connection));
|
||||
} catch (Exception e) {
|
||||
// TODO: handle exception
|
||||
e.printStackTrace();
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,42 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl;
|
||||
|
||||
public class TypeMismatchException extends Exception {
|
||||
|
||||
private static final long serialVersionUID = 1L;
|
||||
private Class<?> expected;
|
||||
private Class<?> received;
|
||||
|
||||
public TypeMismatchException(Class<?> expected, Class<?> received) {
|
||||
super("Received " + received + " cannot be mapped to " + expected.getCanonicalName());
|
||||
this.expected = expected;
|
||||
this.received = received;
|
||||
}
|
||||
|
||||
public Class<?> getExpected() {
|
||||
return expected;
|
||||
}
|
||||
|
||||
public Class<?> getReceived() {
|
||||
return received;
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,40 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangAtom;
|
||||
import com.ericsson.otp.erlang.OtpErlangBoolean;
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
|
||||
public class BooleanTypeHelper implements TypeHelper {
|
||||
|
||||
public OtpErlangObject toErlang(Object object) {
|
||||
return new OtpErlangBoolean((Boolean)object);
|
||||
}
|
||||
|
||||
public Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception {
|
||||
if (object.getClass().equals(OtpErlangAtom.class)) {
|
||||
return ((OtpErlangAtom)object).booleanValue();
|
||||
} else {
|
||||
return ((OtpErlangBoolean)object).booleanValue();
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,35 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangByte;
|
||||
import com.ericsson.otp.erlang.OtpErlangLong;
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
|
||||
public class ByteTypeHelper implements TypeHelper {
|
||||
|
||||
public OtpErlangObject toErlang(Object object) {
|
||||
return new OtpErlangByte((Byte)object);
|
||||
}
|
||||
|
||||
public Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception {
|
||||
return (byte)((OtpErlangLong)object).longValue();
|
||||
}
|
||||
}
|
||||
|
|
@ -0,0 +1,36 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangChar;
|
||||
import com.ericsson.otp.erlang.OtpErlangLong;
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
|
||||
public class CharTypeHelper implements TypeHelper {
|
||||
|
||||
public OtpErlangObject toErlang(Object object) {
|
||||
return new OtpErlangChar((Character)object);
|
||||
}
|
||||
|
||||
public Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception {
|
||||
return (char)((OtpErlangLong)object).longValue();
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,35 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangDouble;
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
|
||||
public class DoubleTypeHelper implements TypeHelper {
|
||||
|
||||
public OtpErlangObject toErlang(Object object) {
|
||||
return new OtpErlangDouble((Double)object);
|
||||
}
|
||||
|
||||
public Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception {
|
||||
return ((OtpErlangDouble)object).doubleValue();
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,35 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangDouble;
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
|
||||
public class FloatTypeHelper implements TypeHelper {
|
||||
|
||||
public OtpErlangObject toErlang(Object object) {
|
||||
return new OtpErlangDouble((Float)object);
|
||||
}
|
||||
|
||||
public Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception {
|
||||
return (float)((OtpErlangDouble)object).doubleValue();
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,36 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangInt;
|
||||
import com.ericsson.otp.erlang.OtpErlangLong;
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
|
||||
public class IntTypeHelper implements TypeHelper {
|
||||
|
||||
public OtpErlangObject toErlang(Object object) {
|
||||
return new OtpErlangInt((Integer)object);
|
||||
}
|
||||
|
||||
public Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception {
|
||||
return (int)((OtpErlangLong)object).longValue();
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import java.lang.reflect.Array;
|
||||
import java.util.ArrayList;
|
||||
import java.util.List;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangList;
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
|
||||
public class ListTypeHelper implements TypeHelper {
|
||||
|
||||
public OtpErlangObject toErlang(Object object) {
|
||||
int i = 0;
|
||||
List<OtpErlangObject> elements = new ArrayList<OtpErlangObject>();
|
||||
while (true) {
|
||||
try {
|
||||
Object arrElement = Array.get(object, i);
|
||||
Object[] args = new Object[] {arrElement};
|
||||
elements.add(TypeHelpersProxy.toErlang(args));
|
||||
i++;
|
||||
} catch (ArrayIndexOutOfBoundsException e) {
|
||||
// expected
|
||||
break;
|
||||
}
|
||||
}
|
||||
return new OtpErlangList(elements.toArray(new OtpErlangObject[elements.size()]));
|
||||
}
|
||||
|
||||
public Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception {
|
||||
OtpErlangList erlangList = (OtpErlangList)object;
|
||||
Object result = Array.newInstance(forClass.getComponentType(), erlangList.arity());
|
||||
for (int i = 0; i < erlangList.arity(); i++) {
|
||||
Array.set(result, i, TypeHelpersProxy.toJava(erlangList.elementAt(i), forClass.getComponentType()));
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,35 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangLong;
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
|
||||
public class LongTypeHelper implements TypeHelper {
|
||||
|
||||
public OtpErlangObject toErlang(Object object) {
|
||||
return new OtpErlangLong((Long)object);
|
||||
}
|
||||
|
||||
public Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception {
|
||||
return ((OtpErlangLong)object).longValue();
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,36 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangLong;
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
import com.ericsson.otp.erlang.OtpErlangShort;
|
||||
|
||||
public class ShortTypeHelper implements TypeHelper {
|
||||
|
||||
public OtpErlangObject toErlang(Object object) {
|
||||
return new OtpErlangShort((Short)object);
|
||||
}
|
||||
|
||||
public Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception {
|
||||
return (short)((OtpErlangLong)object).longValue();
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,35 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
import com.ericsson.otp.erlang.OtpErlangString;
|
||||
|
||||
public class StringTypeHelper implements TypeHelper {
|
||||
|
||||
public OtpErlangObject toErlang(Object object) {
|
||||
return new OtpErlangString((String)object);
|
||||
}
|
||||
|
||||
public Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception {
|
||||
return ((OtpErlangString)object).stringValue();
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,68 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import java.lang.reflect.Field;
|
||||
import java.util.ArrayList;
|
||||
import java.util.List;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
import com.ericsson.otp.erlang.OtpErlangTuple;
|
||||
|
||||
public class TupleTypeHelper implements TypeHelper {
|
||||
|
||||
public OtpErlangObject toErlang(Object object) {
|
||||
Class<?> forClass = object.getClass();
|
||||
List<OtpErlangObject> tupleMembers = new ArrayList<OtpErlangObject>();
|
||||
Field[] fields = forClass.getFields();
|
||||
for (int i = 0; i < fields.length; i++) {
|
||||
Object[] args;
|
||||
try {
|
||||
args = new Object[] {fields[i].get(object)};
|
||||
OtpErlangObject member = TypeHelpersProxy.toErlang(args);
|
||||
tupleMembers.add(member);
|
||||
} catch (Exception e) {
|
||||
// TODO Auto-generated catch block
|
||||
e.printStackTrace();
|
||||
}
|
||||
}
|
||||
OtpErlangObject result = new OtpErlangTuple(tupleMembers.toArray(new OtpErlangObject[tupleMembers.size()]));
|
||||
return result;
|
||||
}
|
||||
|
||||
public Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception {
|
||||
Object result = null;
|
||||
OtpErlangTuple tuple = (OtpErlangTuple)object;
|
||||
Field[] fields = forClass.getFields();
|
||||
if (fields.length != tuple.arity()) {
|
||||
// TODO: received tuple with different element count - wrong
|
||||
// message, exception!
|
||||
}
|
||||
result = forClass.newInstance();
|
||||
for (int i = 0; i < tuple.arity(); i++) {
|
||||
OtpErlangObject tupleMember = tuple.elementAt(i);
|
||||
Object javaMember = TypeHelpersProxy.toJava(tupleMember, fields[i].getType());
|
||||
fields[i].setAccessible(true);
|
||||
fields[i].set(result, javaMember);
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,30 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
|
||||
public interface TypeHelper {
|
||||
|
||||
Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception;
|
||||
|
||||
OtpErlangObject toErlang(Object object);
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,147 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl.types;
|
||||
|
||||
import java.lang.reflect.Array;
|
||||
import java.util.ArrayList;
|
||||
import java.util.HashMap;
|
||||
import java.util.List;
|
||||
import java.util.Map;
|
||||
|
||||
import org.apache.tuscany.sca.binding.erlang.impl.TypeMismatchException;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangList;
|
||||
import com.ericsson.otp.erlang.OtpErlangObject;
|
||||
import com.ericsson.otp.erlang.OtpErlangTuple;
|
||||
|
||||
public class TypeHelpersProxy {
|
||||
|
||||
private static Map<Class<?>, TypeHelper> primitiveTypes = null;
|
||||
|
||||
static {
|
||||
// initiate type helpers
|
||||
primitiveTypes = new HashMap<Class<?>, TypeHelper>();
|
||||
primitiveTypes.put(boolean.class, new BooleanTypeHelper());
|
||||
primitiveTypes.put(short.class, new ShortTypeHelper());
|
||||
primitiveTypes.put(byte.class, new ByteTypeHelper());
|
||||
primitiveTypes.put(char.class, new CharTypeHelper());
|
||||
primitiveTypes.put(int.class, new IntTypeHelper());
|
||||
primitiveTypes.put(long.class, new LongTypeHelper());
|
||||
primitiveTypes.put(float.class, new FloatTypeHelper());
|
||||
primitiveTypes.put(double.class, new DoubleTypeHelper());
|
||||
primitiveTypes.put(String.class, new StringTypeHelper());
|
||||
primitiveTypes.put(Boolean.class, primitiveTypes.get(boolean.class));
|
||||
primitiveTypes.put(Character.class, primitiveTypes.get(char.class));
|
||||
primitiveTypes.put(Short.class, primitiveTypes.get(char.class));
|
||||
primitiveTypes.put(Byte.class, primitiveTypes.get(byte.class));
|
||||
primitiveTypes.put(Short.class, primitiveTypes.get(short.class));
|
||||
primitiveTypes.put(Integer.class, primitiveTypes.get(int.class));
|
||||
primitiveTypes.put(Long.class, primitiveTypes.get(long.class));
|
||||
primitiveTypes.put(Float.class, primitiveTypes.get(float.class));
|
||||
primitiveTypes.put(Double.class, primitiveTypes.get(double.class));
|
||||
primitiveTypes.put(String.class, primitiveTypes.get(String.class));
|
||||
}
|
||||
|
||||
private static TypeHelper getTypeHelper(Class<?> forClass) {
|
||||
TypeHelper typeHelper = null;
|
||||
if (forClass.isArray()) {
|
||||
typeHelper = new ListTypeHelper();
|
||||
} else {
|
||||
typeHelper = primitiveTypes.get(forClass);
|
||||
}
|
||||
if (typeHelper == null) {
|
||||
typeHelper = new TupleTypeHelper();
|
||||
}
|
||||
return typeHelper;
|
||||
}
|
||||
|
||||
public static OtpErlangObject toErlang(Object[] objects) {
|
||||
OtpErlangObject result = null;
|
||||
if (objects != null) {
|
||||
TypeHelper helper = null;
|
||||
switch (objects.length) {
|
||||
case 0:
|
||||
result = new OtpErlangList();
|
||||
break;
|
||||
case 1:
|
||||
helper = getTypeHelper(objects[0].getClass());
|
||||
result = helper.toErlang(objects[0]);
|
||||
break;
|
||||
default:
|
||||
OtpErlangObject[] erlObjects = new OtpErlangObject[objects.length];
|
||||
for (int i = 0; i < objects.length; i++) {
|
||||
helper = getTypeHelper(objects[i].getClass());
|
||||
erlObjects[i] = helper.toErlang(objects[i]);
|
||||
}
|
||||
result = new OtpErlangTuple(erlObjects);
|
||||
break;
|
||||
}
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
public static OtpErlangList toErlangAsList(Object array) {
|
||||
OtpErlangList result = null;
|
||||
if (array != null) {
|
||||
if (!array.getClass().isArray()) {
|
||||
array = new Object[] {array};
|
||||
}
|
||||
List<OtpErlangObject> attrsList = new ArrayList<OtpErlangObject>();
|
||||
int i = 0;
|
||||
while (true) {
|
||||
try {
|
||||
TypeHelper helper = getTypeHelper(Array.get(array, i).getClass());
|
||||
attrsList.add(helper.toErlang(Array.get(array, i)));
|
||||
i++;
|
||||
} catch (ArrayIndexOutOfBoundsException e) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
result = new OtpErlangList(attrsList.toArray(new OtpErlangObject[attrsList.size()]));
|
||||
} else {
|
||||
result = new OtpErlangList();
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
public static Object toJava(OtpErlangObject object, Class<?> forClass) throws Exception {
|
||||
try {
|
||||
TypeHelper helper = getTypeHelper(forClass);
|
||||
return helper.toJava(object, forClass);
|
||||
} catch (ClassCastException e) {
|
||||
throw new TypeMismatchException(forClass, object.getClass());
|
||||
}
|
||||
}
|
||||
|
||||
public static Object[] toJavaFromList(OtpErlangList objects, Class<?>[] forClass) throws Exception {
|
||||
Object[] result = new Object[objects.arity()];
|
||||
try {
|
||||
for (int i = 0; i < objects.arity(); i++) {
|
||||
TypeHelper helper = getTypeHelper(forClass[i]);
|
||||
result[i] = helper.toJava(objects.elementAt(i), forClass[i]);
|
||||
}
|
||||
} catch (ClassCastException e) {
|
||||
e.printStackTrace();
|
||||
// throw new TypeMismatchException(forClass, objects[i].getClass());
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
# 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.
|
||||
|
||||
# Implementation class for the binding extension
|
||||
org.apache.tuscany.sca.binding.erlang.impl.ErlangBindingProviderFactory;model=org.apache.tuscany.sca.binding.erlang.ErlangBinding
|
||||
|
|
@ -0,0 +1,30 @@
|
|||
package org.apache.tuscany.sca.binding.erlang.testing;
|
||||
|
||||
public interface MboxInterface {
|
||||
|
||||
String sendArgs(String arg) throws Exception;
|
||||
|
||||
boolean sendArgs(boolean arg) throws Exception;
|
||||
|
||||
float sendArgs(float arg) throws Exception;
|
||||
|
||||
double sendArgs(double arg) throws Exception;
|
||||
|
||||
long sendArgs(long arg) throws Exception;
|
||||
|
||||
int sendArgs(int arg) throws Exception;
|
||||
|
||||
char sendArgs(char arg) throws Exception;
|
||||
|
||||
short sendArgs(short arg) throws Exception;
|
||||
|
||||
byte sendArgs(byte arg) throws Exception;
|
||||
|
||||
void sendArgs(int arg1, String arg2) throws Exception;
|
||||
|
||||
StructuredTuple sendArgs(StructuredTuple arg) throws Exception;
|
||||
|
||||
String[] sendArgs(String[] arg) throws Exception;
|
||||
|
||||
String[][] sendArgs(String[][] arg);
|
||||
}
|
||||
|
|
@ -0,0 +1,65 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.testing;
|
||||
|
||||
import org.apache.tuscany.sca.binding.erlang.impl.types.TypeHelpersProxy;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangExit;
|
||||
import com.ericsson.otp.erlang.OtpMbox;
|
||||
import com.ericsson.otp.erlang.OtpMsg;
|
||||
|
||||
public class MboxListener implements Runnable {
|
||||
|
||||
private static final long TEST_TIMEOUT = 500;
|
||||
|
||||
private OtpMbox mbox;
|
||||
private OtpMsg msg;
|
||||
private Object response;
|
||||
|
||||
public MboxListener(OtpMbox mbox, Object response) {
|
||||
this.mbox = mbox;
|
||||
this.response = response;
|
||||
}
|
||||
|
||||
public void run() {
|
||||
try {
|
||||
try {
|
||||
msg = mbox.receiveMsg(TEST_TIMEOUT);
|
||||
|
||||
if (response != null) {
|
||||
Object[] args = new Object[1];
|
||||
args[0] = response;
|
||||
mbox.send(msg.getSenderPid(), TypeHelpersProxy.toErlang(args));
|
||||
}
|
||||
} catch (InterruptedException e) {
|
||||
// TODO Auto-generated catch block
|
||||
e.printStackTrace();
|
||||
}
|
||||
} catch (OtpErlangExit e) {
|
||||
// TODO Auto-generated catch block
|
||||
e.printStackTrace();
|
||||
}
|
||||
}
|
||||
|
||||
public OtpMsg getMsg() {
|
||||
return msg;
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
package org.apache.tuscany.sca.binding.erlang.testing;
|
||||
|
||||
public interface ModuleInterface {
|
||||
|
||||
String start(String arg1, String arg2) throws Exception;
|
||||
|
||||
String start() throws Exception;
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,396 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.testing;
|
||||
|
||||
import static org.junit.Assert.assertEquals;
|
||||
|
||||
import java.io.IOException;
|
||||
|
||||
import org.apache.tuscany.sca.binding.erlang.impl.TypeMismatchException;
|
||||
import org.apache.tuscany.sca.host.embedded.SCADomain;
|
||||
import org.junit.BeforeClass;
|
||||
import org.junit.Test;
|
||||
|
||||
import com.ericsson.otp.erlang.OtpErlangAtom;
|
||||
import com.ericsson.otp.erlang.OtpErlangDouble;
|
||||
import com.ericsson.otp.erlang.OtpErlangList;
|
||||
import com.ericsson.otp.erlang.OtpErlangLong;
|
||||
import com.ericsson.otp.erlang.OtpErlangString;
|
||||
import com.ericsson.otp.erlang.OtpErlangTuple;
|
||||
import com.ericsson.otp.erlang.OtpMbox;
|
||||
import com.ericsson.otp.erlang.OtpNode;
|
||||
|
||||
public class ReferenceServiceTestCase {
|
||||
|
||||
private static MboxInterface mboxReference;
|
||||
private static ServiceTestComponent moduleReference;
|
||||
private static OtpNode node;
|
||||
private static OtpMbox mbox;
|
||||
|
||||
@BeforeClass
|
||||
public static void init() throws IOException {
|
||||
SCADomain domain = SCADomain.newInstance("ErlangReference.composite");
|
||||
SCADomain.newInstance("ErlangService.composite");
|
||||
ReferenceTestComponentImpl component = domain.getService(ReferenceTestComponentImpl.class, "ReferenceTest");
|
||||
mboxReference = component.getMboxReference();
|
||||
moduleReference = component.getModuleReference();
|
||||
node = new OtpNode("MboxServer");
|
||||
mbox = node.createMbox("sendArgs");
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testStrings() throws Exception {
|
||||
String strArg = "Test message";
|
||||
String strResult = "OK";
|
||||
MboxListener mboxListener = new MboxListener(mbox, strResult);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
String testResult = mboxReference.sendArgs(strArg);
|
||||
assertEquals(strArg, ((OtpErlangString)mboxListener.getMsg().getMsg()).stringValue());
|
||||
assertEquals(strResult, testResult);
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testBooleans() throws Exception {
|
||||
boolean booleanArg = true;
|
||||
boolean booleanResult = false;
|
||||
MboxListener mboxListener = new MboxListener(mbox, booleanResult);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
boolean testResult = mboxReference.sendArgs(booleanArg);
|
||||
assertEquals(booleanArg, ((OtpErlangAtom)mboxListener.getMsg().getMsg()).booleanValue());
|
||||
assertEquals(booleanResult, testResult);
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testFloats() throws Exception {
|
||||
float floatArg = 1.0f;
|
||||
float floatResult = 2.0f;
|
||||
MboxListener mboxListener = new MboxListener(mbox, floatResult);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
float testResult = mboxReference.sendArgs(floatArg);
|
||||
assertEquals(floatArg, ((OtpErlangDouble)mboxListener.getMsg().getMsg()).doubleValue(), 0);
|
||||
assertEquals(floatResult, testResult, 0);
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testDoubles() throws Exception {
|
||||
double doubleArg = 1.0f;
|
||||
double doubleResult = 2.0f;
|
||||
MboxListener mboxListener = new MboxListener(mbox, doubleResult);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
double testResult = mboxReference.sendArgs(doubleArg);
|
||||
assertEquals(doubleArg, ((OtpErlangDouble)mboxListener.getMsg().getMsg()).doubleValue(), 0);
|
||||
assertEquals(doubleResult, testResult, 0);
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testLongs() throws Exception {
|
||||
long longArg = 1;
|
||||
long longResult = 2;
|
||||
MboxListener mboxListener = new MboxListener(mbox, longResult);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
long testResult = mboxReference.sendArgs(longArg);
|
||||
assertEquals(longArg, ((OtpErlangLong)mboxListener.getMsg().getMsg()).longValue(), 0);
|
||||
assertEquals(longResult, testResult, 0);
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testInts() throws Exception {
|
||||
int intArg = 1;
|
||||
int intResult = 2;
|
||||
MboxListener mboxListener = new MboxListener(mbox, intResult);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
int testResult = mboxReference.sendArgs(intArg);
|
||||
assertEquals(intArg, ((OtpErlangLong)mboxListener.getMsg().getMsg()).intValue(), 0);
|
||||
assertEquals(intResult, testResult, 0);
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testChars() throws Exception {
|
||||
char charArg = 1;
|
||||
char charResult = 2;
|
||||
MboxListener mboxListener = new MboxListener(mbox, charResult);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
char testResult = mboxReference.sendArgs(charArg);
|
||||
assertEquals(charArg, ((OtpErlangLong)mboxListener.getMsg().getMsg()).charValue(), 0);
|
||||
assertEquals(charResult, testResult, 0);
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testShorts() throws Exception {
|
||||
short shortArg = 1;
|
||||
short shortResult = 2;
|
||||
MboxListener mboxListener = new MboxListener(mbox, shortResult);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
short testResult = mboxReference.sendArgs(shortArg);
|
||||
assertEquals(shortArg, ((OtpErlangLong)mboxListener.getMsg().getMsg()).shortValue(), 0);
|
||||
assertEquals(shortResult, testResult, 0);
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testBytes() throws Exception {
|
||||
byte byteArg = 1;
|
||||
byte byteResult = 2;
|
||||
MboxListener mboxListener = new MboxListener(mbox, byteResult);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
byte testResult = mboxReference.sendArgs(byteArg);
|
||||
assertEquals(byteArg, ((OtpErlangLong)mboxListener.getMsg().getMsg()).byteValue(), 0);
|
||||
assertEquals(byteResult, testResult, 0);
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testMultipleArguments() throws Exception {
|
||||
MboxListener mboxListener = new MboxListener(mbox, true);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
String testString = "TupleString";
|
||||
int testInt = 10;
|
||||
mboxReference.sendArgs(testInt, testString);
|
||||
assertEquals(testInt, ((OtpErlangLong)((OtpErlangTuple)mboxListener.getMsg().getMsg()).elementAt(0))
|
||||
.longValue());
|
||||
assertEquals(testString, ((OtpErlangString)((OtpErlangTuple)mboxListener.getMsg().getMsg()).elementAt(1))
|
||||
.stringValue());
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testTuples() throws Exception {
|
||||
StructuredTuple tupleResult = new StructuredTuple();
|
||||
tupleResult.arg1.arg1 = 1;
|
||||
tupleResult.arg1.arg2 = "Tuple inside tuple";
|
||||
tupleResult.arg2 = "Tuple!";
|
||||
tupleResult.arg3 = true;
|
||||
MboxListener mboxListener = new MboxListener(mbox, tupleResult);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
StructuredTuple testArg = new StructuredTuple();
|
||||
testArg.arg2 = "Arg2a";
|
||||
testArg.arg3 = true;
|
||||
testArg.arg1.arg1 = 10;
|
||||
testArg.arg1.arg2 = "Arg2b";
|
||||
StructuredTuple testResult = mboxReference.sendArgs(testArg);
|
||||
assertEquals(tupleResult, testResult);
|
||||
OtpErlangTuple received = (OtpErlangTuple)mboxListener.getMsg().getMsg();
|
||||
assertEquals(testArg.arg1.arg1, ((OtpErlangLong)((OtpErlangTuple)received.elementAt(0)).elementAt(0))
|
||||
.longValue());
|
||||
assertEquals(testArg.arg1.arg2, ((OtpErlangString)((OtpErlangTuple)received.elementAt(0)).elementAt(1))
|
||||
.stringValue());
|
||||
assertEquals(testArg.arg2, ((OtpErlangString)received.elementAt(1)).stringValue());
|
||||
assertEquals(testArg.arg3, ((OtpErlangAtom)received.elementAt(2)).booleanValue());
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testLists() throws Exception {
|
||||
String[] testArg = new String[] {"One", "Two", "Three"};
|
||||
MboxListener mboxListener = new MboxListener(mbox, testArg);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
String[] testResult = mboxReference.sendArgs(testArg);
|
||||
assertEquals(testArg.length, testResult.length);
|
||||
for (int i = 0; i < testArg.length; i++) {
|
||||
assertEquals(testArg[i], testResult[i]);
|
||||
}
|
||||
OtpErlangList received = (OtpErlangList)mboxListener.getMsg().getMsg();
|
||||
assertEquals(testArg.length, received.arity());
|
||||
for (int i = 0; i < testArg.length; i++) {
|
||||
assertEquals(testArg[i], ((OtpErlangString)received.elementAt(i)).stringValue());
|
||||
}
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testMultiDimLists() throws Exception {
|
||||
String[][] testArg = new String[][] { {"One", "Two"}, {"Three", "Four", "Five"}, {"Six"}};
|
||||
MboxListener mboxListener = new MboxListener(mbox, testArg);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
String[][] testResult = mboxReference.sendArgs(testArg);
|
||||
assertEquals(testArg.length, testResult.length);
|
||||
for (int i = 0; i < testArg.length; i++) {
|
||||
for (int j = 0; j < testArg[i].length; j++) {
|
||||
assertEquals(testArg[i][j], testResult[i][j]);
|
||||
}
|
||||
}
|
||||
OtpErlangList received = (OtpErlangList)mboxListener.getMsg().getMsg();
|
||||
assertEquals(testArg.length, received.arity());
|
||||
for (int i = 0; i < testArg.length; i++) {
|
||||
for (int j = 0; j < testArg[i].length; j++) {
|
||||
assertEquals(testArg[i][j], (((OtpErlangString)((OtpErlangList)received.elementAt(i)).elementAt(j))
|
||||
.stringValue()));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
@Test
|
||||
public void typeMismatch() throws Exception {
|
||||
try {
|
||||
StructuredTuple arg = new StructuredTuple();
|
||||
MboxListener mboxListener = new MboxListener(mbox, true);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
mboxReference.sendArgs(arg);
|
||||
} catch (Exception e) {
|
||||
assertEquals(TypeMismatchException.class, e.getClass());
|
||||
System.out.println(e.getMessage());
|
||||
}
|
||||
|
||||
try {
|
||||
String[] arg = new String[] {"test"};
|
||||
MboxListener mboxListener = new MboxListener(mbox, true);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
mboxReference.sendArgs(arg);
|
||||
} catch (Exception e) {
|
||||
assertEquals(TypeMismatchException.class, e.getClass());
|
||||
System.out.println(e.getMessage());
|
||||
}
|
||||
|
||||
try {
|
||||
long arg = 1;
|
||||
MboxListener mboxListener = new MboxListener(mbox, true);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
mboxReference.sendArgs(arg);
|
||||
} catch (Exception e) {
|
||||
assertEquals(TypeMismatchException.class, e.getClass());
|
||||
System.out.println(e.getMessage());
|
||||
}
|
||||
|
||||
try {
|
||||
int arg = 1;
|
||||
MboxListener mboxListener = new MboxListener(mbox, true);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
mboxReference.sendArgs(arg);
|
||||
} catch (Exception e) {
|
||||
assertEquals(TypeMismatchException.class, e.getClass());
|
||||
System.out.println(e.getMessage());
|
||||
}
|
||||
|
||||
try {
|
||||
short arg = 1;
|
||||
MboxListener mboxListener = new MboxListener(mbox, true);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
mboxReference.sendArgs(arg);
|
||||
} catch (Exception e) {
|
||||
assertEquals(TypeMismatchException.class, e.getClass());
|
||||
System.out.println(e.getMessage());
|
||||
}
|
||||
|
||||
try {
|
||||
char arg = 1;
|
||||
MboxListener mboxListener = new MboxListener(mbox, true);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
mboxReference.sendArgs(arg);
|
||||
} catch (Exception e) {
|
||||
assertEquals(TypeMismatchException.class, e.getClass());
|
||||
System.out.println(e.getMessage());
|
||||
}
|
||||
|
||||
try {
|
||||
byte arg = 1;
|
||||
MboxListener mboxListener = new MboxListener(mbox, true);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
mboxReference.sendArgs(arg);
|
||||
} catch (Exception e) {
|
||||
assertEquals(TypeMismatchException.class, e.getClass());
|
||||
System.out.println(e.getMessage());
|
||||
}
|
||||
|
||||
try {
|
||||
double arg = 1;
|
||||
MboxListener mboxListener = new MboxListener(mbox, true);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
mboxReference.sendArgs(arg);
|
||||
} catch (Exception e) {
|
||||
assertEquals(TypeMismatchException.class, e.getClass());
|
||||
System.out.println(e.getMessage());
|
||||
}
|
||||
|
||||
try {
|
||||
float arg = 1;
|
||||
MboxListener mboxListener = new MboxListener(mbox, true);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
mboxReference.sendArgs(arg);
|
||||
} catch (Exception e) {
|
||||
assertEquals(TypeMismatchException.class, e.getClass());
|
||||
System.out.println(e.getMessage());
|
||||
}
|
||||
|
||||
try {
|
||||
String arg = "1";
|
||||
MboxListener mboxListener = new MboxListener(mbox, true);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
mboxReference.sendArgs(arg);
|
||||
} catch (Exception e) {
|
||||
assertEquals(TypeMismatchException.class, e.getClass());
|
||||
System.out.println(e.getMessage());
|
||||
}
|
||||
|
||||
try {
|
||||
boolean arg = true;
|
||||
MboxListener mboxListener = new MboxListener(mbox, 1);
|
||||
Thread mboxThread = new Thread(mboxListener);
|
||||
mboxThread.start();
|
||||
mboxReference.sendArgs(arg);
|
||||
} catch (Exception e) {
|
||||
assertEquals(TypeMismatchException.class, e.getClass());
|
||||
System.out.println(e.getMessage());
|
||||
}
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testRPC() throws Exception {
|
||||
String[] result = moduleReference.sayHellos();
|
||||
assertEquals(2, result.length);
|
||||
assertEquals("1", result[0]);
|
||||
assertEquals("2", result[1]);
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testRPCWithArgs() throws Exception {
|
||||
String arg1 = "One";
|
||||
String arg2 = "Two";
|
||||
String testResult = moduleReference.sayHello(arg1, arg2);
|
||||
assertEquals("Hello " + arg1 + " " + arg2, testResult);
|
||||
}
|
||||
|
||||
@Test
|
||||
public void testRPCWithComplexArgs() throws Exception {
|
||||
StructuredTuple arg = new StructuredTuple();
|
||||
arg.arg1.arg2 = "Not empty";
|
||||
arg.arg2 = "Not empty";
|
||||
StructuredTuple testResult = moduleReference.passComplexArgs(arg, new String[]{"some", "array"});
|
||||
assertEquals(arg, testResult);
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
package org.apache.tuscany.sca.binding.erlang.testing;
|
||||
|
||||
public interface ReferenceTestComponent {
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,28 @@
|
|||
package org.apache.tuscany.sca.binding.erlang.testing;
|
||||
|
||||
import org.osoa.sca.annotations.Reference;
|
||||
|
||||
public class ReferenceTestComponentImpl implements ReferenceTestComponent {
|
||||
|
||||
private MboxInterface mboxReference;
|
||||
private ServiceTestComponent moduleReference;
|
||||
|
||||
@Reference
|
||||
public void setMboxReference(MboxInterface mboxReference) {
|
||||
this.mboxReference = mboxReference;
|
||||
}
|
||||
|
||||
@Reference
|
||||
public void setModuleReference(ServiceTestComponent moduleReference) {
|
||||
this.moduleReference = moduleReference;
|
||||
}
|
||||
|
||||
public MboxInterface getMboxReference() {
|
||||
return mboxReference;
|
||||
}
|
||||
|
||||
public ServiceTestComponent getModuleReference() {
|
||||
return moduleReference;
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
package org.apache.tuscany.sca.binding.erlang.testing;
|
||||
|
||||
public interface ServiceTestComponent {
|
||||
|
||||
String sayHello(String arg1, String arg2);
|
||||
|
||||
String[] sayHellos();
|
||||
|
||||
StructuredTuple passComplexArgs(StructuredTuple arg1, String[] arg2);
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
package org.apache.tuscany.sca.binding.erlang.testing;
|
||||
|
||||
|
||||
public class ServiceTestComponentImpl implements ServiceTestComponent {
|
||||
|
||||
public String sayHello(String arg1, String arg2) {
|
||||
return "Hello " + arg1 + " " + arg2;
|
||||
}
|
||||
|
||||
public String[] sayHellos() {
|
||||
String[] result = new String[] {"1", "2"};
|
||||
return result;
|
||||
}
|
||||
|
||||
public StructuredTuple passComplexArgs(StructuredTuple arg1, String[] arg2) {
|
||||
return arg1;
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,32 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.testing;
|
||||
|
||||
public class SmallTuple {
|
||||
|
||||
public int arg1;
|
||||
public String arg2 = "";
|
||||
|
||||
public boolean equals(Object o) {
|
||||
SmallTuple comp = (SmallTuple)o;
|
||||
return arg1 == comp.arg1 && arg2.equals(arg2);
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,33 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.testing;
|
||||
|
||||
public class StructuredTuple {
|
||||
|
||||
public SmallTuple arg1 = new SmallTuple();
|
||||
public String arg2 = "";
|
||||
public boolean arg3;
|
||||
|
||||
public boolean equals(Object o) {
|
||||
StructuredTuple comp = (StructuredTuple)o;
|
||||
return arg2.equals(comp.arg2) && arg3 == comp.arg3 && arg1.equals(comp.arg1);
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,18 @@
|
|||
<composite xmlns="http://www.osoa.org/xmlns/sca/1.0"
|
||||
xmlns:tuscany="http://tuscany.apache.org/xmlns/sca/1.0"
|
||||
targetNamespace="http://sample"
|
||||
xmlns:sample="http://sample"
|
||||
name="ErlangReferenceBinding">
|
||||
|
||||
<component name="ReferenceTest">
|
||||
<implementation.java class="org.apache.tuscany.sca.binding.erlang.testing.ReferenceTestComponentImpl" />
|
||||
<reference name="mboxReference">
|
||||
<tuscany:binding.erlang node="MboxServer" mbox="true"/>
|
||||
</reference>
|
||||
|
||||
<reference name="moduleReference">
|
||||
<tuscany:binding.erlang node="RPCServer" module="hello"/>
|
||||
</reference>
|
||||
</component>
|
||||
|
||||
</composite>
|
||||
|
|
@ -0,0 +1,15 @@
|
|||
<composite xmlns="http://www.osoa.org/xmlns/sca/1.0"
|
||||
xmlns:tuscany="http://tuscany.apache.org/xmlns/sca/1.0"
|
||||
targetNamespace="http://sample"
|
||||
xmlns:sample="http://sample"
|
||||
name="ErlangServiceBinding">
|
||||
|
||||
<component name="ServiceTest">
|
||||
<implementation.java class="org.apache.tuscany.sca.binding.erlang.testing.ServiceTestComponentImpl" />
|
||||
</component>
|
||||
<service name="ServiceTest" promote="ServiceTest">
|
||||
<interface.java interface="org.apache.tuscany.sca.binding.erlang.testing.ServiceTestComponent" />
|
||||
<tuscany:binding.erlang node="RPCServer" module="hello"/>
|
||||
</service>
|
||||
|
||||
</composite>
|
||||
205
sandbox/wjaniszewski/binding-erlang/LICENSE
Normal file
205
sandbox/wjaniszewski/binding-erlang/LICENSE
Normal file
|
|
@ -0,0 +1,205 @@
|
|||
|
||||
Apache License
|
||||
Version 2.0, January 2004
|
||||
http://www.apache.org/licenses/
|
||||
|
||||
TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
|
||||
|
||||
1. Definitions.
|
||||
|
||||
"License" shall mean the terms and conditions for use, reproduction,
|
||||
and distribution as defined by Sections 1 through 9 of this document.
|
||||
|
||||
"Licensor" shall mean the copyright owner or entity authorized by
|
||||
the copyright owner that is granting the License.
|
||||
|
||||
"Legal Entity" shall mean the union of the acting entity and all
|
||||
other entities that control, are controlled by, or are under common
|
||||
control with that entity. For the purposes of this definition,
|
||||
"control" means (i) the power, direct or indirect, to cause the
|
||||
direction or management of such entity, whether by contract or
|
||||
otherwise, or (ii) ownership of fifty percent (50%) or more of the
|
||||
outstanding shares, or (iii) beneficial ownership of such entity.
|
||||
|
||||
"You" (or "Your") shall mean an individual or Legal Entity
|
||||
exercising permissions granted by this License.
|
||||
|
||||
"Source" form shall mean the preferred form for making modifications,
|
||||
including but not limited to software source code, documentation
|
||||
source, and configuration files.
|
||||
|
||||
"Object" form shall mean any form resulting from mechanical
|
||||
transformation or translation of a Source form, including but
|
||||
not limited to compiled object code, generated documentation,
|
||||
and conversions to other media types.
|
||||
|
||||
"Work" shall mean the work of authorship, whether in Source or
|
||||
Object form, made available under the License, as indicated by a
|
||||
copyright notice that is included in or attached to the work
|
||||
(an example is provided in the Appendix below).
|
||||
|
||||
"Derivative Works" shall mean any work, whether in Source or Object
|
||||
form, that is based on (or derived from) the Work and for which the
|
||||
editorial revisions, annotations, elaborations, or other modifications
|
||||
represent, as a whole, an original work of authorship. For the purposes
|
||||
of this License, Derivative Works shall not include works that remain
|
||||
separable from, or merely link (or bind by name) to the interfaces of,
|
||||
the Work and Derivative Works thereof.
|
||||
|
||||
"Contribution" shall mean any work of authorship, including
|
||||
the original version of the Work and any modifications or additions
|
||||
to that Work or Derivative Works thereof, that is intentionally
|
||||
submitted to Licensor for inclusion in the Work by the copyright owner
|
||||
or by an individual or Legal Entity authorized to submit on behalf of
|
||||
the copyright owner. For the purposes of this definition, "submitted"
|
||||
means any form of electronic, verbal, or written communication sent
|
||||
to the Licensor or its representatives, including but not limited to
|
||||
communication on electronic mailing lists, source code control systems,
|
||||
and issue tracking systems that are managed by, or on behalf of, the
|
||||
Licensor for the purpose of discussing and improving the Work, but
|
||||
excluding communication that is conspicuously marked or otherwise
|
||||
designated in writing by the copyright owner as "Not a Contribution."
|
||||
|
||||
"Contributor" shall mean Licensor and any individual or Legal Entity
|
||||
on behalf of whom a Contribution has been received by Licensor and
|
||||
subsequently incorporated within the Work.
|
||||
|
||||
2. Grant of Copyright License. Subject to the terms and conditions of
|
||||
this License, each Contributor hereby grants to You a perpetual,
|
||||
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
|
||||
copyright license to reproduce, prepare Derivative Works of,
|
||||
publicly display, publicly perform, sublicense, and distribute the
|
||||
Work and such Derivative Works in Source or Object form.
|
||||
|
||||
3. Grant of Patent License. Subject to the terms and conditions of
|
||||
this License, each Contributor hereby grants to You a perpetual,
|
||||
worldwide, non-exclusive, no-charge, royalty-free, irrevocable
|
||||
(except as stated in this section) patent license to make, have made,
|
||||
use, offer to sell, sell, import, and otherwise transfer the Work,
|
||||
where such license applies only to those patent claims licensable
|
||||
by such Contributor that are necessarily infringed by their
|
||||
Contribution(s) alone or by combination of their Contribution(s)
|
||||
with the Work to which such Contribution(s) was submitted. If You
|
||||
institute patent litigation against any entity (including a
|
||||
cross-claim or counterclaim in a lawsuit) alleging that the Work
|
||||
or a Contribution incorporated within the Work constitutes direct
|
||||
or contributory patent infringement, then any patent licenses
|
||||
granted to You under this License for that Work shall terminate
|
||||
as of the date such litigation is filed.
|
||||
|
||||
4. Redistribution. You may reproduce and distribute copies of the
|
||||
Work or Derivative Works thereof in any medium, with or without
|
||||
modifications, and in Source or Object form, provided that You
|
||||
meet the following conditions:
|
||||
|
||||
(a) You must give any other recipients of the Work or
|
||||
Derivative Works a copy of this License; and
|
||||
|
||||
(b) You must cause any modified files to carry prominent notices
|
||||
stating that You changed the files; and
|
||||
|
||||
(c) You must retain, in the Source form of any Derivative Works
|
||||
that You distribute, all copyright, patent, trademark, and
|
||||
attribution notices from the Source form of the Work,
|
||||
excluding those notices that do not pertain to any part of
|
||||
the Derivative Works; and
|
||||
|
||||
(d) If the Work includes a "NOTICE" text file as part of its
|
||||
distribution, then any Derivative Works that You distribute must
|
||||
include a readable copy of the attribution notices contained
|
||||
within such NOTICE file, excluding those notices that do not
|
||||
pertain to any part of the Derivative Works, in at least one
|
||||
of the following places: within a NOTICE text file distributed
|
||||
as part of the Derivative Works; within the Source form or
|
||||
documentation, if provided along with the Derivative Works; or,
|
||||
within a display generated by the Derivative Works, if and
|
||||
wherever such third-party notices normally appear. The contents
|
||||
of the NOTICE file are for informational purposes only and
|
||||
do not modify the License. You may add Your own attribution
|
||||
notices within Derivative Works that You distribute, alongside
|
||||
or as an addendum to the NOTICE text from the Work, provided
|
||||
that such additional attribution notices cannot be construed
|
||||
as modifying the License.
|
||||
|
||||
You may add Your own copyright statement to Your modifications and
|
||||
may provide additional or different license terms and conditions
|
||||
for use, reproduction, or distribution of Your modifications, or
|
||||
for any such Derivative Works as a whole, provided Your use,
|
||||
reproduction, and distribution of the Work otherwise complies with
|
||||
the conditions stated in this License.
|
||||
|
||||
5. Submission of Contributions. Unless You explicitly state otherwise,
|
||||
any Contribution intentionally submitted for inclusion in the Work
|
||||
by You to the Licensor shall be under the terms and conditions of
|
||||
this License, without any additional terms or conditions.
|
||||
Notwithstanding the above, nothing herein shall supersede or modify
|
||||
the terms of any separate license agreement you may have executed
|
||||
with Licensor regarding such Contributions.
|
||||
|
||||
6. Trademarks. This License does not grant permission to use the trade
|
||||
names, trademarks, service marks, or product names of the Licensor,
|
||||
except as required for reasonable and customary use in describing the
|
||||
origin of the Work and reproducing the content of the NOTICE file.
|
||||
|
||||
7. Disclaimer of Warranty. Unless required by applicable law or
|
||||
agreed to in writing, Licensor provides the Work (and each
|
||||
Contributor provides its Contributions) on an "AS IS" BASIS,
|
||||
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
|
||||
implied, including, without limitation, any warranties or conditions
|
||||
of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
|
||||
PARTICULAR PURPOSE. You are solely responsible for determining the
|
||||
appropriateness of using or redistributing the Work and assume any
|
||||
risks associated with Your exercise of permissions under this License.
|
||||
|
||||
8. Limitation of Liability. In no event and under no legal theory,
|
||||
whether in tort (including negligence), contract, or otherwise,
|
||||
unless required by applicable law (such as deliberate and grossly
|
||||
negligent acts) or agreed to in writing, shall any Contributor be
|
||||
liable to You for damages, including any direct, indirect, special,
|
||||
incidental, or consequential damages of any character arising as a
|
||||
result of this License or out of the use or inability to use the
|
||||
Work (including but not limited to damages for loss of goodwill,
|
||||
work stoppage, computer failure or malfunction, or any and all
|
||||
other commercial damages or losses), even if such Contributor
|
||||
has been advised of the possibility of such damages.
|
||||
|
||||
9. Accepting Warranty or Additional Liability. While redistributing
|
||||
the Work or Derivative Works thereof, You may choose to offer,
|
||||
and charge a fee for, acceptance of support, warranty, indemnity,
|
||||
or other liability obligations and/or rights consistent with this
|
||||
License. However, in accepting such obligations, You may act only
|
||||
on Your own behalf and on Your sole responsibility, not on behalf
|
||||
of any other Contributor, and only if You agree to indemnify,
|
||||
defend, and hold each Contributor harmless for any liability
|
||||
incurred by, or claims asserted against, such Contributor by reason
|
||||
of your accepting any such warranty or additional liability.
|
||||
|
||||
END OF TERMS AND CONDITIONS
|
||||
|
||||
APPENDIX: How to apply the Apache License to your work.
|
||||
|
||||
To apply the Apache License to your work, attach the following
|
||||
boilerplate notice, with the fields enclosed by brackets "[]"
|
||||
replaced with your own identifying information. (Don't include
|
||||
the brackets!) The text should be enclosed in the appropriate
|
||||
comment syntax for the file format. We also recommend that a
|
||||
file or class name and description of purpose be included on the
|
||||
same "printed page" as the copyright notice for easier
|
||||
identification within third-party archives.
|
||||
|
||||
Copyright [yyyy] [name of copyright owner]
|
||||
|
||||
Licensed 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.
|
||||
|
||||
|
||||
|
||||
6
sandbox/wjaniszewski/binding-erlang/NOTICE
Normal file
6
sandbox/wjaniszewski/binding-erlang/NOTICE
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
${pom.name}
|
||||
Copyright (c) 2005 - 2008 The Apache Software Foundation
|
||||
|
||||
This product includes software developed by
|
||||
The Apache Software Foundation (http://www.apache.org/).
|
||||
|
||||
65
sandbox/wjaniszewski/binding-erlang/pom.xml
Normal file
65
sandbox/wjaniszewski/binding-erlang/pom.xml
Normal file
|
|
@ -0,0 +1,65 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!--
|
||||
* 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.
|
||||
-->
|
||||
<project>
|
||||
<modelVersion>4.0.0</modelVersion>
|
||||
<parent>
|
||||
<groupId>org.apache.tuscany.sca</groupId>
|
||||
<artifactId>tuscany-modules</artifactId>
|
||||
<version>1.4</version>
|
||||
<relativePath>../pom.xml</relativePath>
|
||||
</parent>
|
||||
<artifactId>tuscany-binding-erlang</artifactId>
|
||||
<name>Apache Tuscany SCA Erlang Binding Extension</name>
|
||||
|
||||
<dependencies>
|
||||
|
||||
<dependency>
|
||||
<groupId>org.apache.tuscany.sca</groupId>
|
||||
<artifactId>tuscany-core-spi</artifactId>
|
||||
<version>1.4</version>
|
||||
</dependency>
|
||||
|
||||
<dependency>
|
||||
<groupId>org.apache.tuscany.sca</groupId>
|
||||
<artifactId>tuscany-assembly-xml</artifactId>
|
||||
<version>1.4</version>
|
||||
</dependency>
|
||||
|
||||
</dependencies>
|
||||
|
||||
<build>
|
||||
<plugins>
|
||||
<plugin>
|
||||
<groupId>org.apache.felix</groupId>
|
||||
<artifactId>maven-bundle-plugin</artifactId>
|
||||
|
||||
<configuration>
|
||||
<instructions>
|
||||
<Bundle-Version>${tuscany.version}</Bundle-Version>
|
||||
<Bundle-SymbolicName>org.apache.tuscany.sca.binding.erlang</Bundle-SymbolicName>
|
||||
<Bundle-Description>${pom.name}</Bundle-Description>
|
||||
<Export-Package>org.apache.tuscany.sca.binding.erlang*</Export-Package>
|
||||
</instructions>
|
||||
</configuration>
|
||||
</plugin>
|
||||
</plugins>
|
||||
</build>
|
||||
|
||||
</project>
|
||||
|
|
@ -0,0 +1,46 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang;
|
||||
|
||||
import javax.xml.namespace.QName;
|
||||
|
||||
import org.apache.tuscany.sca.assembly.Binding;
|
||||
import org.apache.tuscany.sca.assembly.xml.Constants;
|
||||
|
||||
/**
|
||||
* @version $Rev: $ $Date: $
|
||||
*/
|
||||
public interface ErlangBinding extends Binding {
|
||||
|
||||
QName BINDING_ERLANG_QNAME = new QName(Constants.SCA10_TUSCANY_NS, "binding.erlang");
|
||||
|
||||
String getNode();
|
||||
|
||||
void setNode(String node);
|
||||
|
||||
String getModule();
|
||||
|
||||
void setModule(String module);
|
||||
|
||||
boolean isMbox();
|
||||
|
||||
void setMbox(boolean mbox);
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,31 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang;
|
||||
|
||||
/**
|
||||
* @version $Rev: $ $Date: $
|
||||
*/
|
||||
public interface ErlangBindingFactory {
|
||||
/**
|
||||
* Create a ErlangBinding model
|
||||
* @return The ErlangBinding model
|
||||
*/
|
||||
ErlangBinding createErlangBinding();
|
||||
}
|
||||
|
|
@ -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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl;
|
||||
|
||||
import org.apache.tuscany.sca.binding.erlang.ErlangBinding;
|
||||
import org.apache.tuscany.sca.binding.erlang.ErlangBindingFactory;
|
||||
|
||||
/**
|
||||
* @version $Rev: $ $Date: $
|
||||
*/
|
||||
public class ErlangBindingFactoryImpl implements ErlangBindingFactory {
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.binding.erlang.ErlangBindingFactory#createErlangBinding()
|
||||
*/
|
||||
public ErlangBinding createErlangBinding() {
|
||||
return new ErlangBindingImpl();
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,115 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl;
|
||||
|
||||
import java.util.ArrayList;
|
||||
import java.util.List;
|
||||
|
||||
import org.apache.tuscany.sca.binding.erlang.ErlangBinding;
|
||||
import org.apache.tuscany.sca.policy.Intent;
|
||||
import org.apache.tuscany.sca.policy.IntentAttachPointType;
|
||||
import org.apache.tuscany.sca.policy.PolicySet;
|
||||
import org.apache.tuscany.sca.policy.PolicySetAttachPoint;
|
||||
|
||||
/**
|
||||
* @version $Rev: $ $Date: $
|
||||
*/
|
||||
public class ErlangBindingImpl implements ErlangBinding, PolicySetAttachPoint {
|
||||
|
||||
private String node;
|
||||
private String module;
|
||||
private boolean mbox;
|
||||
|
||||
private List<Intent> requiredIntents = new ArrayList<Intent>();
|
||||
private List<PolicySet> policySets = new ArrayList<PolicySet>();
|
||||
private IntentAttachPointType intentAttachPointType;
|
||||
private List<PolicySet> applicablePolicySets = new ArrayList<PolicySet>();
|
||||
|
||||
public String getNode() {
|
||||
return node;
|
||||
}
|
||||
|
||||
public void setNode(String nodeName) {
|
||||
this.node = nodeName;
|
||||
}
|
||||
|
||||
public String getName() {
|
||||
return null;
|
||||
}
|
||||
|
||||
public String getURI() {
|
||||
return null;
|
||||
}
|
||||
|
||||
public void setName(String arg0) {
|
||||
}
|
||||
|
||||
public void setURI(String arg0) {
|
||||
}
|
||||
|
||||
public boolean isUnresolved() {
|
||||
return false;
|
||||
}
|
||||
|
||||
public void setUnresolved(boolean arg0) {
|
||||
}
|
||||
|
||||
public List<PolicySet> getApplicablePolicySets() {
|
||||
return applicablePolicySets;
|
||||
}
|
||||
|
||||
public List<PolicySet> getPolicySets() {
|
||||
return policySets;
|
||||
}
|
||||
|
||||
public List<Intent> getRequiredIntents() {
|
||||
return requiredIntents;
|
||||
}
|
||||
|
||||
public IntentAttachPointType getType() {
|
||||
return intentAttachPointType;
|
||||
}
|
||||
|
||||
public void setType(IntentAttachPointType intentAttachPointType) {
|
||||
this.intentAttachPointType = intentAttachPointType;
|
||||
}
|
||||
|
||||
@Override
|
||||
public Object clone() throws CloneNotSupportedException {
|
||||
return super.clone();
|
||||
}
|
||||
|
||||
public String getModule() {
|
||||
return module;
|
||||
}
|
||||
|
||||
public boolean isMbox() {
|
||||
return mbox;
|
||||
}
|
||||
|
||||
public void setMbox(boolean mbox) {
|
||||
this.mbox = mbox;
|
||||
}
|
||||
|
||||
public void setModule(String module) {
|
||||
this.module = module;
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,106 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.impl;
|
||||
|
||||
import javax.xml.namespace.QName;
|
||||
import javax.xml.stream.XMLStreamException;
|
||||
import javax.xml.stream.XMLStreamReader;
|
||||
import javax.xml.stream.XMLStreamWriter;
|
||||
|
||||
import org.apache.tuscany.sca.assembly.xml.Constants;
|
||||
import org.apache.tuscany.sca.assembly.xml.PolicyAttachPointProcessor;
|
||||
import org.apache.tuscany.sca.binding.erlang.ErlangBinding;
|
||||
import org.apache.tuscany.sca.contribution.ModelFactoryExtensionPoint;
|
||||
import org.apache.tuscany.sca.contribution.processor.StAXArtifactProcessor;
|
||||
import org.apache.tuscany.sca.contribution.resolver.ModelResolver;
|
||||
import org.apache.tuscany.sca.contribution.service.ContributionReadException;
|
||||
import org.apache.tuscany.sca.contribution.service.ContributionResolveException;
|
||||
import org.apache.tuscany.sca.contribution.service.ContributionWriteException;
|
||||
import org.apache.tuscany.sca.policy.PolicyFactory;
|
||||
|
||||
/**
|
||||
* @version $Rev: $ $Date: $
|
||||
*/
|
||||
public class ErlangBindingProcessor implements StAXArtifactProcessor<ErlangBinding> {
|
||||
|
||||
private PolicyFactory policyFactory;
|
||||
private PolicyAttachPointProcessor policyProcessor;
|
||||
|
||||
public ErlangBindingProcessor(ModelFactoryExtensionPoint modelFactories) {
|
||||
this.policyFactory = modelFactories.getFactory(PolicyFactory.class);
|
||||
this.policyProcessor = new PolicyAttachPointProcessor(policyFactory);
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.contribution.processor.StAXArtifactProcessor#getArtifactType()
|
||||
*/
|
||||
public QName getArtifactType() {
|
||||
return ErlangBinding.BINDING_ERLANG_QNAME;
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.contribution.processor.StAXArtifactProcessor#read(javax.xml.stream.XMLStreamReader)
|
||||
*/
|
||||
public ErlangBinding read(XMLStreamReader reader) throws ContributionReadException, XMLStreamException {
|
||||
ErlangBinding binding = new ErlangBindingImpl();
|
||||
|
||||
// Read the policies
|
||||
policyProcessor.readPolicies(binding, reader);
|
||||
binding.setNode(reader.getAttributeValue(null, "node"));
|
||||
String mboxValue = reader.getAttributeValue(null, "mbox");
|
||||
if (mboxValue != null && mboxValue.length() > 0) {
|
||||
boolean boolMboxValue = false;
|
||||
try {
|
||||
boolMboxValue = Boolean.parseBoolean(mboxValue);
|
||||
binding.setMbox(boolMboxValue);
|
||||
} catch (Exception e) {
|
||||
e.printStackTrace();
|
||||
}
|
||||
}
|
||||
binding.setModule(reader.getAttributeValue(null, "module"));
|
||||
return binding;
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.contribution.processor.StAXArtifactProcessor#write(java.lang.Object,
|
||||
* javax.xml.stream.XMLStreamWriter)
|
||||
*/
|
||||
public void write(ErlangBinding model, XMLStreamWriter writer) throws ContributionWriteException,
|
||||
XMLStreamException {
|
||||
writer.writeStartElement(Constants.SCA10_TUSCANY_NS, "binding.erlang");
|
||||
//TODO: implement
|
||||
writer.writeEndElement();
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.contribution.processor.ArtifactProcessor#getModelType()
|
||||
*/
|
||||
public Class<ErlangBinding> getModelType() {
|
||||
return ErlangBinding.class;
|
||||
}
|
||||
|
||||
/**
|
||||
* @see org.apache.tuscany.sca.contribution.processor.ArtifactProcessor#resolve(java.lang.Object,
|
||||
* org.apache.tuscany.sca.contribution.resolver.ModelResolver)
|
||||
*/
|
||||
public void resolve(ErlangBinding model, ModelResolver resolver) throws ContributionResolveException {
|
||||
}
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
# 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.
|
||||
|
||||
# Implementation class for the model factory
|
||||
org.apache.tuscany.sca.binding.erlang.impl.ErlangBindingFactoryImpl
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
# 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.
|
||||
|
||||
# Implementation class for the artifact processor extension
|
||||
org.apache.tuscany.sca.binding.erlang.impl.ErlangBindingProcessor;qname=http://tuscany.apache.org/xmlns/sca/1.0#binding.erlang,model=org.apache.tuscany.sca.binding.erlang.ErlangBinding,factory=org.apache.tuscany.sca.binding.erlang.ErlangBindingFactory
|
||||
|
|
@ -0,0 +1,92 @@
|
|||
/*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
package org.apache.tuscany.sca.binding.erlang.testing;
|
||||
|
||||
import static org.junit.Assert.assertEquals;
|
||||
|
||||
import java.io.StringReader;
|
||||
|
||||
import javax.xml.stream.XMLInputFactory;
|
||||
import javax.xml.stream.XMLStreamReader;
|
||||
|
||||
import org.apache.tuscany.sca.assembly.Composite;
|
||||
import org.apache.tuscany.sca.binding.erlang.ErlangBinding;
|
||||
import org.apache.tuscany.sca.contribution.processor.DefaultStAXArtifactProcessorExtensionPoint;
|
||||
import org.apache.tuscany.sca.contribution.processor.ExtensibleStAXArtifactProcessor;
|
||||
import org.apache.tuscany.sca.contribution.processor.StAXArtifactProcessor;
|
||||
import org.apache.tuscany.sca.contribution.processor.StAXArtifactProcessorExtensionPoint;
|
||||
import org.apache.tuscany.sca.core.DefaultExtensionPointRegistry;
|
||||
import org.apache.tuscany.sca.core.UtilityExtensionPoint;
|
||||
import org.apache.tuscany.sca.monitor.Monitor;
|
||||
import org.apache.tuscany.sca.monitor.MonitorFactory;
|
||||
import org.apache.tuscany.sca.monitor.impl.DefaultMonitorFactoryImpl;
|
||||
import org.junit.BeforeClass;
|
||||
import org.junit.Test;
|
||||
|
||||
/**
|
||||
* General tests for binding.erlang XML processor
|
||||
*/
|
||||
public class ErlangBindingProcessorTestCase {
|
||||
|
||||
private static final String COMPOSITE =
|
||||
"<?xml version=\"1.0\" encoding=\"ASCII\"?>" + "<composite xmlns=\"http://www.osoa.org/xmlns/sca/1.0\" xmlns:tuscany=\"http://tuscany.apache.org/xmlns/sca/1.0\" targetNamespace=\"http://binding-erlang\" name=\"binding-erlang\">"
|
||||
+ " <component name=\"HelloWorldComponent\">"
|
||||
+ " <implementation.java class=\"services.HelloWorld\"/>"
|
||||
+ " <service name=\"HelloWorldService\">"
|
||||
+ " <tuscany:binding.erlang node=\"SomeNode\"/>"
|
||||
+ " </service>"
|
||||
+ " </component>"
|
||||
+ "</composite>";
|
||||
|
||||
private static XMLInputFactory inputFactory;
|
||||
private static StAXArtifactProcessor<Object> staxProcessor;
|
||||
private static Monitor monitor;
|
||||
|
||||
@BeforeClass
|
||||
public static void init() throws Exception {
|
||||
DefaultExtensionPointRegistry extensionPoints = new DefaultExtensionPointRegistry();
|
||||
inputFactory = XMLInputFactory.newInstance();
|
||||
// Create a monitor
|
||||
UtilityExtensionPoint utilities = extensionPoints.getExtensionPoint(UtilityExtensionPoint.class);
|
||||
MonitorFactory monitorFactory = new DefaultMonitorFactoryImpl();
|
||||
if (monitorFactory != null) {
|
||||
monitor = monitorFactory.createMonitor();
|
||||
utilities.addUtility(monitorFactory);
|
||||
}
|
||||
StAXArtifactProcessorExtensionPoint staxProcessors =
|
||||
new DefaultStAXArtifactProcessorExtensionPoint(extensionPoints);
|
||||
staxProcessor = new ExtensibleStAXArtifactProcessor(staxProcessors, inputFactory, null, monitor);
|
||||
}
|
||||
|
||||
/**
|
||||
* Tests reading "binding.erlang" element
|
||||
*
|
||||
* @throws Exception
|
||||
*/
|
||||
@Test
|
||||
public void testLoadValidComposite() throws Exception {
|
||||
XMLStreamReader reader = inputFactory.createXMLStreamReader(new StringReader(COMPOSITE));
|
||||
Composite composite = (Composite)staxProcessor.read(reader);
|
||||
ErlangBinding binding =
|
||||
(ErlangBinding)composite.getComponents().get(0).getServices().get(0).getBindings().get(0);
|
||||
assertEquals("SomeNode", binding.getNode());
|
||||
}
|
||||
|
||||
}
|
||||
12
sandbox/wjaniszewski/erlang-readme
Normal file
12
sandbox/wjaniszewski/erlang-readme
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
Erlang modules were created using Tuscany Java SCA 1.4 version.
|
||||
To run JUnit tests you need to run Erlang Port Mapper Daemon (Epmd) which can be found in Erlang distribution:
|
||||
http://erlang.org/download.html
|
||||
|
||||
To build modules you need jinterface library. I didn't found it in official maven repositories, so solution is to add it manually to your private maven repository. It can be done by executing:
|
||||
|
||||
mvn install:install-file -DgroupId=jinterface -DartifactId=jinterface -Dversion=1.4.2 -Dpackaging=maven-plugin -Dfile=OtpErlang.jar
|
||||
|
||||
OtpErlang.jar file can be found in official Erlang distribution:
|
||||
http://erlang.org/download.html
|
||||
or here:
|
||||
http://people.apache.org/~wjaniszewski/OtpErlang.jar
|
||||
Loading…
Add table
Add a link
Reference in a new issue