aboutsummaryrefslogtreecommitdiffstats
path: root/lib/orber/c_src
diff options
context:
space:
mode:
Diffstat (limited to 'lib/orber/c_src')
-rw-r--r--lib/orber/c_src/InitialReference.cc205
-rw-r--r--lib/orber/c_src/InitialReference.hh59
-rw-r--r--lib/orber/c_src/Makefile23
-rw-r--r--lib/orber/c_src/Makefile.in113
-rw-r--r--lib/orber/c_src/main.cc31
5 files changed, 431 insertions, 0 deletions
diff --git a/lib/orber/c_src/InitialReference.cc b/lib/orber/c_src/InitialReference.cc
new file mode 100644
index 0000000000..a95fa0f599
--- /dev/null
+++ b/lib/orber/c_src/InitialReference.cc
@@ -0,0 +1,205 @@
+/**
+ *<copyright>
+ * <year>1997-2007</year>
+ * <holder>Ericsson AB, All Rights Reserved</holder>
+ *</copyright>
+ *<legalnotice>
+ * The contents of this file are subject to the Erlang Public License,
+ * Version 1.1, (the "License"); you may not use this file except in
+ * compliance with the License. You should have received a copy of the
+ * Erlang Public License along with this software. If not, it can be
+ * retrieved online at http://www.erlang.org/.
+ *
+ * Software distributed under the License is distributed on an "AS IS"
+ * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+ * the License for the specific language governing rights and limitations
+ * under the License.
+ *
+ * The Initial Developer of the Original Code is Ericsson AB.
+ *</legalnotice>
+ */
+/**
+ * InitialReference is a class which generates the INIT reference
+ * which can be used by the InitialReferences interface.
+ *
+ * creation date: 1997-11-04
+ */
+#include "InitialReference.hh"
+
+InitialReference::InitialReference()
+{
+ host = 0;
+ iorString = 0;
+};
+
+InitialReference::~InitialReference()
+{
+ if(host){
+ delete host;
+ delete iorString;
+ }
+};
+
+ /**
+ * Returns the stringified objectreference to the initial reference server
+ */
+char* InitialReference::stringified_ior(char* newhost, int newport)
+{
+ STRINGSTREAM iorByteString;
+ STRINGSTREAM profileData;
+
+ STRINGBUF *s;
+ STRINGBUF *profileDataBuf;
+ STRINGBUF *iorByteStringBuf;
+ long profileDataLength = 0;
+ char *str;
+
+ // byte_order followed by ' {"", [{0, '
+ // char iorBytesFirstPart[] = {0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0};
+ char iorBytesFirstPart[48] = {0,0,0,0,0,0,0,32,73,68,76,58,79,114,98,101,114,47,73,110,105,116,105,97,108,82,101,102,101,114,101,110,99,101,115,58,49,46,48,0,0,0,0,1,0,0,0,0};
+ // the objectkey "INIT
+ char iorBytesLastPart[8] = {0,0,0,4,73,78,73,84};
+
+ // Fix the ProfileData struct.
+ char pdPrefix[4] = {0,1,0,0};
+ char hsize[4];
+ char profileDataLengthBytes[4];
+ char portbytes[2];
+ long hostLength = strlen(newhost);
+
+
+ if(host)
+ if(strcmp(newhost, host) == 0 && newport == port)
+ return iorString;
+ else {
+ delete host;
+ delete iorString;
+ }
+ host = new char[hostLength+1];
+ memcpy(host, newhost, hostLength+1);
+ port = newport;
+
+ enc_ulong(hostLength + 1, hsize);
+ enc_ushort(port, portbytes);
+
+ profileDataBuf = profileData.rdbuf();
+
+ profileDataBuf->sputn(pdPrefix, 4);
+ profileDataBuf->sputn(hsize, 4);
+ profileDataBuf->sputn(host, hostLength);
+ profileDataBuf->sputc(0);
+ profileDataLength = 4 + 4 + hostLength + 1;
+
+ profileDataLength = align(profileDataBuf, profileDataLength, 2);
+
+ profileDataBuf->sputn(portbytes, 2);
+ profileDataLength += 2;
+
+ profileDataLength = align(profileDataBuf, profileDataLength, 4);
+
+ profileDataBuf->sputn(iorBytesLastPart, 8);
+ profileDataLength += 8;
+ //cout << "pd length: " << profileDataLength << "\n";
+
+ enc_ulong(profileDataLength, profileDataLengthBytes);
+
+ // Fix the whole IOR
+
+ iorByteStringBuf = iorByteString.rdbuf();
+
+ iorByteStringBuf->sputn(iorBytesFirstPart, 48);
+ iorByteStringBuf->sputn(profileDataLengthBytes, 4);
+#ifdef HAVE_SSTREAM
+ iorByteStringBuf->sputn(profileData.str().data(), profileDataLength);
+#else
+ str = profileData.str();
+ iorByteStringBuf->sputn(str, profileDataLength);
+ delete str;
+#endif
+
+ createIOR(iorByteString, 48 + 4 + profileDataLength);
+
+ return iorString;
+}
+
+
+void InitialReference::enc_ushort(int s, char *byteArray)
+{
+ byteArray[0] = (char) ((s >> 8) & 0xFF);
+ byteArray[1] = (char) ((s >> 0) & 0xFF);
+
+ return;
+}
+
+void InitialReference::enc_ulong(long l, char *byteArray)
+{
+ byteArray[0] = (char) ((l >> 24) & 0xFF);
+ byteArray[1] = (char) ((l >> 16) & 0xFF);
+ byteArray[2] = (char) ((l >> 8) & 0xFF);
+ byteArray[3] = (char) ((l >> 0) & 0xFF);
+
+ return;
+}
+
+void InitialReference::createIOR(strstream& byte, long length)
+{
+ STRINGBUF *stringbuf;
+ STRINGSTREAM string;
+
+ int i;
+#ifdef HAVE_SSTREAM
+ const char *c;
+ const char *bytestr = byte.str().c_str();
+#else
+ char *c;
+ char *bytestr = byte.str();
+#endif
+ int b, n1, n2, c1, c2;
+
+ stringbuf = string.rdbuf();
+ stringbuf->sputn("IOR:",4);
+
+ for(i = 0, c = bytestr; i < length; c++, i++)
+ {
+ b = *c;
+ if(b<0) b+= 256;
+ n1 = b / 16;
+ n2 = b % 16;
+ c1 = (n1 < 10) ? ('0' + n1) : ('a' + (n1 - 10));
+ c2 = (n2 < 10) ? ('0' + n2) : ('a' + (n2 - 10));
+
+ stringbuf->sputc(c1);
+ stringbuf->sputc(c2);
+
+ }
+
+ stringbuf->sputc(0);
+
+ delete bytestr;
+
+#ifdef HAVE_SSTREAM
+ iorString = (char *)string.str().c_str();
+#else
+ iorString = string.str();
+#endif
+
+ return;
+}
+
+long InitialReference::align(STRINGBUF* sbuf, long currentLength,
+ int alignment)
+{
+ long length = currentLength;
+
+ int remainder = alignment - (currentLength % alignment);
+ if (remainder == alignment) return length;
+
+ for (int i = 0; i < remainder; i++)
+ {
+ sbuf->sputc(0);
+ length++;
+ }
+ return length;
+}
+
+
diff --git a/lib/orber/c_src/InitialReference.hh b/lib/orber/c_src/InitialReference.hh
new file mode 100644
index 0000000000..1c3c5c8e0d
--- /dev/null
+++ b/lib/orber/c_src/InitialReference.hh
@@ -0,0 +1,59 @@
+/**
+ *<copyright>
+ * <year>1997-2007</year>
+ * <holder>Ericsson AB, All Rights Reserved</holder>
+ *</copyright>
+ *<legalnotice>
+ * The contents of this file are subject to the Erlang Public License,
+ * Version 1.1, (the "License"); you may not use this file except in
+ * compliance with the License. You should have received a copy of the
+ * Erlang Public License along with this software. If not, it can be
+ * retrieved online at http://www.erlang.org/.
+ *
+ * Software distributed under the License is distributed on an "AS IS"
+ * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+ * the License for the specific language governing rights and limitations
+ * under the License.
+ *
+ * The Initial Developer of the Original Code is Ericsson AB.
+ *</legalnotice>
+ */
+/*
+ * InitialReference is a class for creating an external IOR for the object
+ * reference INIT.
+ */
+#ifndef _INITIALREFERENCE_HH
+#define _INITIALREFERENCE_HH
+#include <stdio.h>
+#include <string.h>
+
+#if HAVE_SSTREAM
+#include <sstream>
+typedef std::stringstream STRINGSTREAM;
+typedef std::stringbuf STRINGBUF;
+#else
+#include <strstream.h>
+typedef strstream STRINGSTREAM;
+typedef strstreambuf STRINGBUF;
+#endif
+
+class InitialReference {
+private:
+ char* iorString;
+ char* host;
+ int port;
+
+ void enc_ushort(int s, char *byteArray);
+ void enc_ulong(long l, char *byteArray);
+ void createIOR(STRINGSTREAM& byte, long length);
+ long align(STRINGBUF* sbuf, long currentLength, int alignment);
+
+public:
+ InitialReference();
+ ~InitialReference();
+
+ char* stringified_ior(char* host, int port);
+
+};
+
+#endif
diff --git a/lib/orber/c_src/Makefile b/lib/orber/c_src/Makefile
new file mode 100644
index 0000000000..73ab79d145
--- /dev/null
+++ b/lib/orber/c_src/Makefile
@@ -0,0 +1,23 @@
+#
+# %CopyrightBegin%
+#
+# Copyright Ericsson AB 1997-2009. All Rights Reserved.
+#
+# The contents of this file are subject to the Erlang Public License,
+# Version 1.1, (the "License"); you may not use this file except in
+# compliance with the License. You should have received a copy of the
+# Erlang Public License along with this software. If not, it can be
+# retrieved online at http://www.erlang.org/.
+#
+# Software distributed under the License is distributed on an "AS IS"
+# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+# the License for the specific language governing rights and limitations
+# under the License.
+#
+# %CopyrightEnd%
+#
+#
+# Invoke with GNU make or clearmake -C gnu.
+#
+
+include $(ERL_TOP)/make/run_make.mk
diff --git a/lib/orber/c_src/Makefile.in b/lib/orber/c_src/Makefile.in
new file mode 100644
index 0000000000..56f0d57545
--- /dev/null
+++ b/lib/orber/c_src/Makefile.in
@@ -0,0 +1,113 @@
+#
+# %CopyrightBegin%
+#
+# Copyright Ericsson AB 1997-2009. All Rights Reserved.
+#
+# The contents of this file are subject to the Erlang Public License,
+# Version 1.1, (the "License"); you may not use this file except in
+# compliance with the License. You should have received a copy of the
+# Erlang Public License along with this software. If not, it can be
+# retrieved online at http://www.erlang.org/.
+#
+# Software distributed under the License is distributed on an "AS IS"
+# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+# the License for the specific language governing rights and limitations
+# under the License.
+#
+# %CopyrightEnd%
+#
+#
+include $(ERL_TOP)/make/target.mk
+include $(ERL_TOP)/make/$(TARGET)/otp.mk
+
+CXX = @CXX@
+CC = @CC@
+LIBS = @LIBS@
+
+OBJDIR = ../priv/obj/$(TARGET)
+
+# ----------------------------------------------------
+# Application version
+# ----------------------------------------------------
+include ../vsn.mk
+VSN=$(ORBER_VSN)
+
+# ----------------------------------------------------
+# Release directory specification
+# ----------------------------------------------------
+RELSYSDIR = $(RELEASE_PATH)/lib/orber-$(VSN)
+
+# ----------------------------------------------------
+# Target Specs
+# ----------------------------------------------------
+CC_FILES = \
+ InitialReference.cc
+
+HH_FILES = \
+ InitialReference.hh
+
+ALL_CFLAGS = @CFLAGS@ @DEFS@ $(CFLAGS)
+
+# ----------------------------------------------------
+# Targets
+# ----------------------------------------------------
+
+debug opt: $(OBJDIR) orber
+
+ifeq ($(findstring win32,$(TARGET)),win32)
+orber:
+ echo "Nothing to build on NT"
+else
+ifeq ($(findstring vxworks,$(TARGET)),vxworks)
+orber:
+ echo "Nothing to build for VxWorks"
+
+else
+orber:
+ echo "Nothing to build"
+endif
+endif
+
+clean:
+
+docs:
+
+# ----------------------------------------------------
+# Special Build Targets
+# ----------------------------------------------------
+
+$(OBJDIR):
+ -mkdir -p $(OBJDIR)
+
+$(OBJDIR)/%.o: %.c
+ $(CC) -c -o $@ $(ALL_CFLAGS) $<
+
+# ----------------------------------------------------
+# Release Target
+# ----------------------------------------------------
+include $(ERL_TOP)/make/otp_release_targets.mk
+
+ifeq ($(findstring win32,$(TARGET)),win32)
+release_spec: opt
+ $(INSTALL_DIR) $(RELSYSDIR)/priv/src
+ $(INSTALL_DIR) $(RELSYSDIR)/priv/include
+ $(INSTALL_PROGRAM) $(CC_FILES) $(RELSYSDIR)/priv/src
+ $(INSTALL_PROGRAM) $(HH_FILES) $(RELSYSDIR)/priv/include
+else
+ifeq ($(findstring vxworks,$(TARGET)),vxworks)
+release_spec:
+ $(INSTALL_DIR) $(RELSYSDIR)/priv/src
+ $(INSTALL_DIR) $(RELSYSDIR)/priv/include
+ $(INSTALL_PROGRAM) $(CC_FILES) $(RELSYSDIR)/priv/src
+ $(INSTALL_PROGRAM) $(HH_FILES) $(RELSYSDIR)/priv/include
+else
+release_spec: opt
+ $(INSTALL_DIR) $(RELSYSDIR)/priv/src
+ $(INSTALL_DIR) $(RELSYSDIR)/priv/include
+ $(INSTALL_DATA) $(CC_FILES) $(RELSYSDIR)/priv/src
+ $(INSTALL_DATA) $(HH_FILES) $(RELSYSDIR)/priv/include
+endif
+endif
+
+
+release_docs_spec:
diff --git a/lib/orber/c_src/main.cc b/lib/orber/c_src/main.cc
new file mode 100644
index 0000000000..c1d17078c5
--- /dev/null
+++ b/lib/orber/c_src/main.cc
@@ -0,0 +1,31 @@
+/**
+ *<copyright>
+ * <year>1997-2007</year>
+ * <holder>Ericsson AB, All Rights Reserved</holder>
+ *</copyright>
+ *<legalnotice>
+ * The contents of this file are subject to the Erlang Public License,
+ * Version 1.1, (the "License"); you may not use this file except in
+ * compliance with the License. You should have received a copy of the
+ * Erlang Public License along with this software. If not, it can be
+ * retrieved online at http://www.erlang.org/.
+ *
+ * Software distributed under the License is distributed on an "AS IS"
+ * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+ * the License for the specific language governing rights and limitations
+ * under the License.
+ *
+ * The Initial Developer of the Original Code is Ericsson AB.
+ *</legalnotice>
+ */
+
+#include "InitialReference.hh"
+
+main()
+{
+ InitialReference ir;
+
+ cout << ir.stringified_ior("fingolfin", 4001) << "\n";
+
+
+}
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-03 18:17:05 +0000