Contributing the working CORBA prototype.

2005-05-15  Audrius Meskauskas, Lithuania  <AudriusA@Bioinformatics.org>

	* gnu/CORBA/Version.java,
	gnu/CORBA/IOR.java,
	gnu/CORBA/IOR_contructed_object.java,
	gnu/CORBA/Restricted_ORB.java,
	gnu/CORBA/Functional_ORB.java,
	gnu/CORBA/gnuAny.java,
	gnu/CORBA/gnuContext.java,
	gnu/CORBA/gnuContextList.java,
	gnu/CORBA/gnuEnvironment.java,
	gnu/CORBA/gnuExceptionList.java,
	gnu/CORBA/gnuRequest.java,
	gnu/CORBA/gnuNVList.java,
	gnu/CORBA/gnuNamedValue.java,
	gnu/CORBA/Simple_delegate.java,
	gnu/CORBA/BigDecimalHelper.java,
	gnu/CORBA/Unexpected.java,
	gnu/CORBA/OctetHolder.java,
	gnu/CORBA/TypeCodeHelper.java,
	gnu/CORBA/corbaArrayList.java,
	gnu/CORBA/WCharHolder.java,
	gnu/CORBA/WStringHolder.java,
	gnu/CORBA/IOR_Delegate.java,
	gnu/CORBA/fixedTypeCode.java,
	gnu/CORBA/generalTypeCode.java,
	gnu/CORBA/holderFactory.java,
	gnu/CORBA/recordTypeCode.java,
	gnu/CORBA/recursiveTypeCode.java,
	gnu/CORBA/stringTypeCode.java,
	gnu/CORBA/Connected_objects.java,
	gnu/CORBA/ByteArrayComparator.java,
	gnu/CORBA/binaryReply.java,
	gnu/CORBA/typeNamer.java,
	gnu/CORBA/streamRequest.java,
	gnu/CORBA/stubFinder.java,
	gnu/CORBA/bufferedResponseHandler.java,
	gnu/CORBA/ExceptionCreator.java,
	gnu/CORBA/ObjectCreator.java,
	gnu/CORBA/aliasTypeCode.java: New files.
	* gnu/CORBA/NamingService/snConverter.java,
	gnu/CORBA/NamingService/Ext.java,
	gnu/CORBA/NamingService/cmpNameComponent.java,
	gnu/CORBA/NamingService/TransientContext.java,
	gnu/CORBA/NamingService/NamingMap.java,
	gnu/CORBA/NamingService/Binding_iterator_impl.java,
	gnu/CORBA/NamingService/NamingServiceTransient.java,
	gnu/CORBA/NamingService/NameValidator.java: New files.
	* gnu/CORBA/CDR/aligningInputStream.java,
	gnu/CORBA/CDR/aligningOutputStream.java,
	gnu/CORBA/CDR/cdrOutput.java,
	gnu/CORBA/CDR/cdrInput.java,
	gnu/CORBA/CDR/cdrBufOutput.java,
	gnu/CORBA/CDR/encapsulatedOutput.java,
	gnu/CORBA/CDR/cdrBufInput.java,
	gnu/CORBA/CDR/testBinaryIO.java: New files.
	* org/omg/CORBA/StringHolder.java,
	* org/omg/CORBA/StringSeqHelper.java,
	* org/omg/CORBA/StringSeqHolder.java: Read and write string,
	not wstring and use stringTypeCode.
	* org/omg/CORBA/Any.java: Adding serialVersionUID.
	* org/omg/CORBA/FixedHolder: Use fixedTypeCode.
	* org/omg/CORBA/UNKNOWN.java: Making constructors public.
	* org/omg/CORBA/UserException.java: Inherit
	from org.omg.CORBA.portable.IDLEntity.
	* org/omg/CORBA/ORB.java,
	org/omg/CORBA/Object.java: Replacing empty class
	declarations with implementation.
	* gnu/CORBA/primitiveTypeCode.java: Exception fixes.
	* gnu/CORBA/primitiveArrayTypeCode.java: Adding extra
	parameter in constructor.
	* gnu/CORBA/GIOP/CancelHeader.java,
	gnu/CORBA/GIOP/ErrorMessage.java,
	gnu/CORBA/GIOP/MessageHeader.java,
	gnu/CORBA/GIOP/ReplyHeader.java,
	gnu/CORBA/GIOP/RequestHeader.java,
	gnu/CORBA/GIOP/ServiceContext.java,
	gnu/CORBA/GIOP/cxCodeSet.java,
	gnu/CORBA/GIOP/CharSets_OSF.java,
	gnu/CORBA/GIOP/v1_0/CancelHeader.java,
	gnu/CORBA/GIOP/v1_0/RequestHeader.java,
	gnu/CORBA/GIOP/v1_0/ReplyHeader.java,
	gnu/CORBA/GIOP/v1_2/RequestHeader.java,
	gnu/CORBA/GIOP/v1_2/ReplyHeader.java: New files.
	org/omg/CosNaming/_NamingContextStub.java,
	org/omg/CosNaming/_NamingContextImplBase.java,
	org/omg/CosNaming/BindingHelper.java,
	org/omg/CosNaming/BindingListHelper.java,
	org/omg/CosNaming/NameComponentHelper.java,
	org/omg/CosNaming/NameHelper.java,
	org/omg/CosNaming/BindingTypeHelper.java,
	org/omg/CosNaming/NamingContextHelper.java,
	org/omg/CosNaming/BindingIteratorHelper.java,
	org/omg/CosNaming/_NamingContextExtStub.java,
	org/omg/CosNaming/NamingContextExt.java,
	org/omg/CosNaming/NamingContextExtHelper.java,
	org/omg/CosNaming/NamingContextExtHolder.java,
	org/omg/CosNaming/NamingContextExtOperations.java,
	org/omg/CosNaming/_NamingContextExtImplBase.java,
	org/omg/CosNaming/NamingContextOperations.java,
	org/omg/CosNaming/NamingContext.java,
	org/omg/CosNaming/NameComponent.java,
	org/omg/CosNaming/BindingIterator.java,
	org/omg/CosNaming/_BindingIteratorStub.java,
	org/omg/CosNaming/Binding.java,
	org/omg/CosNaming/BindingType.java,
	org/omg/CosNaming/BindingIteratorHolder.java,
	org/omg/CosNaming/BindingListHolder.java,
	org/omg/CosNaming/BindingHolder.java,
	org/omg/CosNaming/BindingTypeHolder.java,
	org/omg/CosNaming/NameComponentHolder.java,
	org/omg/CosNaming/NameHolder.java,
	org/omg/CosNaming/NamingContextHolder.java,
	org/omg/CosNaming/_BindingIteratorImplBase.java,
	org/omg/CosNaming/package.html,
	org/omg/CosNaming/NamingContextExtPackage/InvalidAddress.java,
	org/omg/CosNaming/NamingContextExtPackage/InvalidAddressHolder.java,
	org/omg/CosNaming/NamingContextExtPackage/package.html,
	org/omg/CosNaming/NamingContextExtPackage/AddressHelper.java,
	org/omg/CosNaming/NamingContextExtPackage/URLStringHelper.java,
	org/omg/CosNaming/NamingContextExtPackage/StringNameHelper.java,
	org/omg/CosNaming/NamingContextExtPackage/InvalidAddressHelper.java,
	org/omg/CosNaming/NamingContextPackage/NotEmpty.java,
	org/omg/CosNaming/NamingContextPackage/NotFound.java,
	org/omg/CosNaming/NamingContextPackage/NotFoundReason.java,
	org/omg/CosNaming/NamingContextPackage/NotFoundReasonHolder.java,
	org/omg/CosNaming/NamingContextPackage/NotFoundHolder.java,
	org/omg/CosNaming/NamingContextPackage/NotEmptyHolder.java,
	org/omg/CosNaming/NamingContextPackage/AlreadyBoundHolder.java,
	org/omg/CosNaming/NamingContextPackage/CannotProceedHolder.java,
	org/omg/CosNaming/NamingContextPackage/InvalidNameHolder.java,
	org/omg/CosNaming/NamingContextPackage/CannotProceed.java,
	org/omg/CosNaming/NamingContextPackage/InvalidName.java,
	org/omg/CosNaming/NamingContextPackage/AlreadyBound.java,
	org/omg/CosNaming/NamingContextPackage/NotFoundHelper.java,
	org/omg/CosNaming/NamingContextPackage/NotEmptyHelper.java,
	org/omg/CosNaming/NamingContextPackage/AlreadyBoundHelper.java,
	org/omg/CosNaming/NamingContextPackage/InvalidNameHelper.java,
	org/omg/CosNaming/NamingContextPackage/NotFoundReasonHelper.java,
	org/omg/CosNaming/NamingContextPackage/CannotProceedHelper.java,
	org/omg/CosNaming/NamingContextPackage/package.html: New files.
	* examples/gnu/classpath/examples/CORBA/NamingService/Demo.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/Demo.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/comServer.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/passThisHelper.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/passThisHolder.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/returnThis.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/passThis.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/returnThisHelper.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/returnThisHolder.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/DirectTest.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/RequestTest.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/comServant.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/ourUserException.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/node.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/nodeHelper.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/nodeHolder.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/_comTesterStub.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/ourUserExceptionHelper.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/_comTesterImplBase.java,
	examples/gnu/classpath/examples/CORBA/SimpleCommunication/communication/comTester.java:
	New files.

1 files changed, 368 insertions, 0 deletions

diff --git a/gnu/CORBA/Restricted_ORB.java b/gnu/CORBA/Restricted_ORB.java
new file mode 100644
index 000000000..8697f2874
--- /dev/null
+++ b/gnu/CORBA/Restricted_ORB.java
@@ -0,0 +1,368 @@
+/* RestrictedORB.java --
+   Copyright (C) 2005 Free Software Foundation, Inc.
+
+This file is part of GNU Classpath.
+
+GNU Classpath is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU Classpath is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Classpath; see the file COPYING.  If not, write to the
+Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+02111-1307 USA.
+
+Linking this library statically or dynamically with other modules is
+making a combined work based on this library.  Thus, the terms and
+conditions of the GNU General Public License cover the whole
+combination.
+
+As a special exception, the copyright holders of this library give you
+permission to link this library with independent modules to produce an
+executable, regardless of the license terms of these independent
+modules, and to copy and distribute the resulting executable under
+terms of your choice, provided that you also meet, for each linked
+independent module, the terms and conditions of the license of that
+module.  An independent module is a module which is not derived from
+or based on this library.  If you modify this library, you may extend
+this exception to your version of the library, but you are not
+obligated to do so.  If you do not wish to do so, delete this
+exception statement from your version. */
+
+
+package gnu.CORBA;
+
+import gnu.CORBA.CDR.cdrBufOutput;
+
+import org.omg.CORBA.Any;
+import org.omg.CORBA.BAD_PARAM;
+import org.omg.CORBA.ContextList;
+import org.omg.CORBA.Environment;
+import org.omg.CORBA.ExceptionList;
+import org.omg.CORBA.NO_IMPLEMENT;
+import org.omg.CORBA.NVList;
+import org.omg.CORBA.NamedValue;
+import org.omg.CORBA.ORB;
+import org.omg.CORBA.ORBPackage.InvalidName;
+import org.omg.CORBA.StructMember;
+import org.omg.CORBA.TCKind;
+import org.omg.CORBA.TypeCode;
+import org.omg.CORBA.TypeCodePackage.BadKind;
+import org.omg.CORBA.UnionMember;
+import org.omg.CORBA.portable.OutputStream;
+
+import java.applet.Applet;
+
+import java.util.Properties;
+
+/**
+ * This class implements so-called Singleton ORB, a highly restricted version
+ * that cannot communicate over network. This ORB is provided
+ * for the potentially malicious applets with heavy security restrictions.
+ * It, however, supports some basic features that might be needed even
+ * when the network access is not granted.
+ *
+ * This ORB can only create typecodes,
+ * {@link Any}, {@link ContextList}, {@link NVList} and
+ * {@link org.omg.CORBA.portable.OutputStream} that writes to an
+ * internal buffer.
+ *
+ * All other methods throw the {@link NO_IMPLEMENT} exception.
+ *
+ * @author Audrius Meskauskas (AudriusA@Bioinformatics.org)
+ */
+public class Restricted_ORB
+  extends ORB
+{
+  /**
+   * The singleton instance of this ORB.
+   */
+  public static final ORB Singleton = new Restricted_ORB();
+
+  /**
+   * Create a new instance of the RestrictedORB. This is used
+   * in derived classes only.
+   */
+  protected Restricted_ORB()
+  {
+  }
+
+  /** {@inheritDoc} */
+  public TypeCode create_alias_tc(String id, String name, TypeCode typecode)
+  {
+    return new aliasTypeCode(typecode, id, name);
+  }
+
+  /** {@inheritDoc} */
+  public Any create_any()
+  {
+    return new gnuAny();
+  }
+
+  /** {@inheritDoc} */
+  public TypeCode create_array_tc(int length, TypeCode element_type)
+  {
+    primitiveArrayTypeCode p =
+      new primitiveArrayTypeCode(TCKind.tk_array, element_type);
+    p.setLength(length);
+    return p;
+  }
+
+  /** {@inheritDoc} */
+  public ContextList create_context_list()
+  {
+    return new gnuContextList();
+  }
+
+  /** {@inheritDoc} */
+  public TypeCode create_enum_tc(String id, String name, String[] values)
+  {
+    recordTypeCode r = new recordTypeCode(TCKind.tk_enum);
+    for (int i = 0; i < values.length; i++)
+      {
+        r.field().name = values [ i ];
+      }
+
+    r.setId(id);
+    r.setName(name);
+
+    return r;
+  }
+
+  /** {@inheritDoc} */
+  public Environment create_environment()
+  {
+    return new gnuEnvironment();
+  }
+
+  /** {@inheritDoc} */
+  public ExceptionList create_exception_list()
+  {
+    return new gnuExceptionList();
+  }
+
+  /** {@inheritDoc} */
+  public TypeCode create_exception_tc(String id, String name,
+                                      StructMember[] members
+                                     )
+  {
+    recordTypeCode r = new recordTypeCode(TCKind.tk_except);
+    r.setId(id);
+    r.setName(name);
+
+    for (int i = 0; i < members.length; i++)
+      {
+        r.add(members [ i ]);
+      }
+
+    return r;
+  }
+
+  /**
+   * This method is not allowed for a RestrictedORB.
+   *
+   * @throws NO_IMPLEMENT, always.
+   */
+  public TypeCode create_interface_tc(String id, String name)
+  {
+    no();
+    return null;
+  }
+
+  /** {@inheritDoc} */
+  public NVList create_list(int count)
+  {
+    return new gnuNVList(count);
+  }
+
+  /** {@inheritDoc} */
+  public NamedValue create_named_value(String s, Any any, int flags)
+  {
+    return new gnuNamedValue();
+  }
+
+  /** {@inheritDoc} */
+  public OutputStream create_output_stream()
+  {
+    cdrBufOutput stream = new cdrBufOutput();
+    stream.setOrb(this);
+    return stream;
+  }
+
+  /** {@inheritDoc} */
+  public TypeCode create_sequence_tc(int bound, TypeCode element_type)
+  {
+    primitiveArrayTypeCode p =
+      new primitiveArrayTypeCode(TCKind.tk_sequence, element_type);
+    p.setLength(bound);
+    return p;
+  }
+
+  /** {@inheritDoc} */
+  public TypeCode create_string_tc(int bound)
+  {
+    stringTypeCode p = new stringTypeCode(TCKind.tk_string);
+    p.setLength(bound);
+    return p;
+  }
+
+  /** {@inheritDoc} */
+  public TypeCode create_struct_tc(String id, String name,
+                                   StructMember[] members
+                                  )
+  {
+    recordTypeCode r = new recordTypeCode(TCKind.tk_struct);
+    r.setId(id);
+    r.setName(name);
+
+    for (int i = 0; i < members.length; i++)
+      {
+        r.add(members [ i ]);
+      }
+
+    return r;
+  }
+
+  /** {@inheritDoc} */
+  public TypeCode create_union_tc(String id, String name, TypeCode type,
+                                  UnionMember[] members
+                                 )
+  {
+    recordTypeCode r = new recordTypeCode(TCKind.tk_union);
+    r.setId(id);
+    r.setName(name);
+
+    for (int i = 0; i < members.length; i++)
+      {
+        r.add(members [ i ]);
+      }
+
+    return r;
+  }
+
+  /** {@inheritDoc} */
+  public TypeCode create_wstring_tc(int bound)
+  {
+    stringTypeCode p = new stringTypeCode(TCKind.tk_wstring);
+    p.setLength(bound);
+    return p;
+  }
+
+  /** {@inheritDoc} */
+  public TypeCode get_primitive_tc(TCKind tcKind)
+  {
+    try
+      {
+        return typeNamer.getPrimitveTC(tcKind);
+      }
+    catch (BadKind ex)
+      {
+        throw new BAD_PARAM("This is not a primitive type code: " +
+                            tcKind.value()
+                           );
+      }
+  }
+
+  /**
+   * This method is not allowed for a RestrictedORB.
+   *
+   * @throws NO_IMPLEMENT, always.
+   */
+  public String[] list_initial_services()
+  {
+    no();
+    throw new InternalError();
+  }
+
+  /**
+   * This method is not allowed for a RestrictedORB.
+   *
+   * @throws NO_IMPLEMENT, always.
+   */
+  public String object_to_string(org.omg.CORBA.Object forObject)
+  {
+    no();
+    throw new InternalError();
+  }
+
+  /**
+   * This method is not allowed for a RestrictedORB.
+   *
+   * @throws InvalidName never in this class, but it is thrown
+   * in the derived classes.
+   *
+   * @throws NO_IMPLEMENT, always.
+   */
+  public org.omg.CORBA.Object resolve_initial_references(String name)
+                                                  throws InvalidName
+  {
+    no();
+    throw new InternalError();
+  }
+
+  /**
+   * Shutdown the ORB server.
+   *
+   * For RestrictedORB, returns witout action.
+   */
+  public void run()
+  {
+  }
+
+  /**
+   * Shutdown the ORB server.
+   *
+   * For RestrictedORB, returns witout action.
+   */
+  public void shutdown(boolean wait_for_completion)
+  {
+  }
+
+  /**
+   * This method is not allowed for a RestrictedORB.
+   *
+   * @throws NO_IMPLEMENT, always.
+   */
+  public org.omg.CORBA.Object string_to_object(String IOR)
+  {
+    no();
+    throw new InternalError();
+  }
+
+  /**
+   * This method is not allowed for a RestrictedORB.
+   *
+   * @throws NO_IMPLEMENT, always.
+   */
+  protected void set_parameters(Applet app, Properties props)
+  {
+    no();
+  }
+
+  /**
+   * This method is not allowed for a RestrictedORB.
+   *
+   * @throws NO_IMPLEMENT, always.
+   */
+  protected void set_parameters(String[] args, Properties props)
+  {
+    no();
+  }
+
+  /**
+   * Throws an exception, stating that the given method is not supported
+   * by the Restricted ORB.
+   */
+  private final void no()
+  {
+    // Apart the programming errors, this can only happen if the
+    // malicious code is trying to do that it is not allowed.
+    throw new NO_IMPLEMENT("Use init(args, props) for the functional version.");
+  }
+}