r2corba 1.4.1

data/lib/corba/common/Union.rb

@@ -0,0 +1,56 @@
+#--------------------------------------------------------------------
+# Union.rb - Definition of CORBA Union class as baseclass for all
+#             IDL defined unions
+#
+# Author: Martin Corino
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the R2CORBA LICENSE which is
+# included with this program.
+#
+# Copyright (c) Remedy IT Expertise BV
+# Chamber of commerce Rotterdam nr.276339, The Netherlands
+#--------------------------------------------------------------------
+
+module R2CORBA
+  module CORBA
+    module Portable
+      class Union
+        def initialize
+          @discriminator = nil
+          @value = nil
+        end
+        def _is_at_default?
+          @discriminator == :default
+        end
+        def _value_tc
+          ix = self.class._tc.label_index(@discriminator)
+          self.class._tc.member_type(ix)
+        end
+        def _disc
+          @discriminator
+        end
+        def _disc=(val)
+          m_cur = self.class._tc.label_member(@discriminator) unless @discriminator.nil?
+          m_new = self.class._tc.label_member(val)
+          raise ::CORBA::BAD_PARAM.new(
+            "discriminator value (#{val.to_s}) outside current member for union #{self.class._tc.name}",
+            1, ::CORBA::COMPLETED_NO) unless @discriminator.nil? || m_cur == m_new
+          disc_ = @discriminator
+          @discriminator = val
+          disc_
+        end
+        def _value
+          @value
+        end
+        protected
+        def _set_value(ix, val)
+          oldval = @value
+          @discriminator = self.class._tc.member_label(ix)
+          @value = val
+          oldval
+        end
+      end
+    end
+  end
+end

data/lib/corba/common/Values.rb

@@ -0,0 +1,92 @@
+#--------------------------------------------------------------------
+# Values.rb - Definition of CORBA Valuetype base classes for all
+#             IDL defined valuetypes
+#
+# Author: Martin Corino
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the R2CORBA LICENSE which is
+# included with this program.
+#
+# Copyright (c) Remedy IT Expertise BV
+# Chamber of commerce Rotterdam nr.276339, The Netherlands
+#--------------------------------------------------------------------
+
+module R2CORBA
+  module CORBA
+    module AbstractBase
+      Id = 'IDL:omg.org/CORBA/AbstractBase:1.0'.freeze
+      Ids = [Id].freeze
+    end
+
+    module AbstractValueBase
+    end
+
+    module ValueBase
+      def do_marshal(os)
+        self.marshal(os)
+      end
+
+      def do_unmarshal(is)
+        self.unmarshal(is)
+      end
+    end
+
+    class ValueFactory
+    end
+
+    module Portable
+      module BoxedValueBase
+      end
+
+      module CustomValueBase
+        def marshal(os)
+          raise CORBA::NO_IMPLEMENT
+        end
+        def unmarshal(is)
+          raise CORBA::NO_IMPLEMENT
+        end
+      end
+
+      class ValueFactoryBase < CORBA::ValueFactory
+        def _create_default
+          raise CORBA::NO_IMPLEMENT
+        end
+
+        def value_id
+          self.class.value_id # derived classes define this
+        end
+
+        def self.register_factory(orb)
+          orb.register_value_factory(self.value_id, self.new)
+        end
+
+        def self.get_factory(orb)
+          f = orb.lookup_value_factory(self.value_id)
+          self.register_factory(orb) if f.nil?
+          f || orb.lookup_value_factory(self.value_id)
+        end
+
+        def self.unregister_factory(orb)
+          orb.unregister_value_factory(self.value_id)
+        end
+      end
+    end # Portable
+
+    VM_NONE = 0
+    VM_CUSTOM = 1
+    VM_ABSTRACT = 2
+    VM_TRUNCATABLE = 3
+
+    VT_MODIFIERS = {
+      :none => VM_NONE,
+      :abstract => VM_ABSTRACT,
+      :truncatable => VM_TRUNCATABLE,
+      :custom => VM_CUSTOM
+    }.freeze
+
+    PRIVATE_MEMBER = 0
+    PUBLIC_MEMBER = 1
+
+  end # CORBA
+end # R2CORBA

data/lib/corba/common/const.rb

@@ -0,0 +1,22 @@
+#--------------------------------------------------------------------
+# const.rb - Common constants
+#
+# Author: Martin Corino
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the R2CORBA LICENSE which is
+# included with this program.
+#
+# Copyright (c) Remedy IT Expertise BV
+# Chamber of commerce Rotterdam nr.276339, The Netherlands
+#--------------------------------------------------------------------
+module R2CORBA
+  module CORBA
+    BIG_ENDIAN, LTL_ENDIAN = 0,1
+    ENDIAN = ("Ruby".unpack("i")[0] == 2036495698)? LTL_ENDIAN: BIG_ENDIAN
+
+    ARG_IN = 1
+    ARG_OUT = 2
+    ARG_INOUT = 3
+  end
+end

data/lib/corba/common/exception.rb

@@ -0,0 +1,68 @@
+#--------------------------------------------------------------------
+# exception.rb - Common CORBA Exception definitions
+#
+# Author: Martin Corino
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the R2CORBA LICENSE which is
+# included with this program.
+#
+# Copyright (c) Remedy IT Expertise BV
+# Chamber of commerce Rotterdam nr.276339, The Netherlands
+#--------------------------------------------------------------------
+
+module R2CORBA
+  module CORBA
+    COMPLETED_YES, COMPLETED_NO, COMPLETED_MAYBE = (0..2).to_a
+    COMPLETED_TXT = ["YES", "NO", "MAYBE"].freeze
+    class Exception < StandardError
+    end
+
+    class UserException < CORBA::Exception
+    end
+
+    class InternalError < StandardError
+    end
+
+    class SystemException < CORBA::Exception
+      private_class_method :new
+      attr_accessor :minor, :completed
+      def reason
+        self.message
+      end
+      def to_s
+        "CORBA::#{self.class::Name}(#{super}) [minor=#{@minor};completed=#{COMPLETED_TXT[@completed.to_i]}]"
+      end
+    end
+
+    def CORBA.define_system_exception(name)
+      self.module_eval %Q^
+        class #{name} < SystemException
+          public_class_method :new
+          def initialize(*args)
+            super(*args)
+          end
+          Id = "IDL:omg.org/CORBA/#{name}:1.0"
+          Name = "#{name}"
+          def self._tc
+            @@tc_ ||= TypeCode::SysExcept.new(self::Id, self::Name)
+          end
+        end
+      ^
+    end
+
+    # SystemException derivatives
+    [
+      'UNKNOWN', 'BAD_PARAM', 'NO_MEMORY', 'IMP_LIMIT', 'COMM_FAILURE', 'INV_OBJREF',
+      'OBJECT_NOT_EXIST', 'NO_PERMISSION', 'INTERNAL', 'MARSHAL', 'INITIALIZE', 'NO_IMPLEMENT',
+      'BAD_TYPECODE', 'BAD_OPERATION', 'NO_RESOURCES', 'NO_RESPONSE', 'PERSIST_STORE',
+      'BAD_INV_ORDER', 'TRANSIENT', 'FREE_MEM', 'INV_IDENT', 'INV_FLAG', 'INTF_REPOS', 'BAD_CONTEXT',
+      'OBJ_ADAPTER', 'DATA_CONVERSION', 'INV_POLICY', 'REBIND', 'TIMEOUT',
+      'TRANSACTION_UNAVAILABLE', 'TRANSACTION_MODE', 'TRANSACTION_REQUIRED', 'TRANSACTION_ROLLEDBACK',
+      'INVALID_TRANSACTION', 'CODESET_INCOMPATIBLE', 'BAD_QOS', 'INVALID_ACTIVITY',
+      'ACTIVITY_COMPLETED', 'ACTIVITY_REQUIRED', 'THREAD_CANCELLED'
+    ].each do |s|
+      define_system_exception(s)
+    end
+  end # CORBA
+end # R2CORBA

data/lib/corba/common/require.rb

@@ -0,0 +1,27 @@
+#--------------------------------------------------------------------
+# require.rb - R2CORBA loader
+#
+# Author: Martin Corino
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the R2CORBA LICENSE which is
+# included with this program.
+#
+# Copyright (c) Remedy IT Expertise BV
+# Chamber of commerce Rotterdam nr.276339, The Netherlands
+#--------------------------------------------------------------------
+
+[ 'version',
+  'const',
+  'IDL',
+  'exception',
+  'Stub',
+  'Struct',
+  'Union',
+  'Typecode',
+  'Values',
+  'Any',
+  'Object',
+  'ORB',
+  'Request'
+].each { |f| require "corba/common/#{f}.rb" }

data/lib/corba/common/version.rb

@@ -0,0 +1,22 @@
+#--------------------------------------------------------------------
+# version.rb - R2CORBA version constants
+#
+# Author: Martin Corino
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the R2CORBA LICENSE which is
+# included with this program.
+#
+# Copyright (c) Remedy IT Expertise BV
+# Chamber of commerce Rotterdam nr.276339, The Netherlands
+#--------------------------------------------------------------------
+
+module R2CORBA
+
+  R2CORBA_MAJOR = 1.freeze
+  R2CORBA_MINOR = 4.freeze
+  R2CORBA_RELEASE = '1'.freeze
+
+  R2CORBA_VERSION = "#{R2CORBA_MAJOR}.#{R2CORBA_MINOR}.#{R2CORBA_RELEASE}".freeze
+
+end

data/lib/corba/idl/IDL.rb

@@ -0,0 +1,21 @@
+#--------------------------------------------------------------------
+# IDL.rb - R2CORBA inline IDL support
+#
+# Author: Martin Corino
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the R2CORBA LICENSE which is
+# included with this program.
+#
+# Copyright (c) Remedy IT Expertise BV
+# Chamber of commerce Rotterdam nr.276339, The Netherlands
+#--------------------------------------------------------------------
+module R2CORBA
+
+  module CORBA
+    def CORBA.implement(idlfile, params={}, genbits = IDL::CLIENT_STUB, &block)
+      IDL.implement(idlfile, params, genbits, &block)
+    end
+  end
+
+end

data/lib/corba/idl/IORTable.pidl

@@ -0,0 +1,62 @@
+// -*- IDL -*-
+// $Id$
+
+#ifndef R2TAO_IORTABLE_IORTABLE_PIDL
+#define R2TAO_IORTABLE_IORTABLE_PIDL
+
+/// Define a module to avoid namespace pollution
+module IORTable
+{
+  local interface Locator;
+
+  /// The object key is already in the IORTable
+  exception AlreadyBound {};
+
+  /// Cannot find the object key in the IORTable
+  exception NotFound {};
+
+  /// Define the IORTable interface
+  /**
+   *
+   *  Any TAO server can be configured as an corbaloc agent.
+   *  Such agents forward requests generated using a simple
+   *  ObjectKey in a corbaloc specifcation to the real location
+   *  of the object.
+   *  In TAO we implement this feature by dynamically (or
+   *  statically) adding a new Object Adapter to the ORB, that
+   *  handles any sort of request.
+   */
+  local interface Table
+  {
+    /// Bind @a object_key to the @a IOR
+    void bind (in string object_key,
+               in string IOR)
+      raises (AlreadyBound);
+
+    /// Bind @a object_key to the @a IOR
+    void rebind (in string object_key,
+                 in string IOR);
+
+    /// Remove the binding for @a object_key
+    void unbind (in string object_key)
+      raises (NotFound);
+
+    /// Set the locator, if no binding is set for an object_key we try
+    /// to use the locator to resolve it
+    void set_locator (in Locator the_locator);
+  };
+
+  /// Callback interface to locate object keys dynamically
+  /**
+   * The application can provide a callback interface to locate object
+   * keys dynamically.
+   */
+  local interface Locator
+  {
+    /// Returns an IOR to use for @a object_key
+    string locate (in string object_key)
+      raises (NotFound);
+  };
+};
+
+#endif /* R2TAO_IORTABLE_IORTABLE_PIDL */

data/lib/corba/idl/TAO_Ext.pidl

@@ -0,0 +1,46 @@
+// -*- IDL -*-
+// $Id$
+
+#ifndef R2TAO_TAO_EXT_IDL
+#define R2TAO_TAO_EXT_IDL
+
+#include "TimeBase.pidl"
+
+#pragma prefix "tao"
+
+module TAO
+{
+  const CORBA::PolicyType CONNECTION_TIMEOUT_POLICY_TYPE = 0x54410008;
+
+  local interface ConnectionTimeoutPolicy : CORBA::Policy {
+    readonly attribute TimeBase::TimeT relative_expiry;
+  };
+
+  //
+  // Buffering constraint.
+  //
+  typedef unsigned short BufferingConstraintMode;
+  const BufferingConstraintMode BUFFER_FLUSH         = 0x00;
+
+  // Note that timeout, message_count, and message_bytes can be or'd.
+  const BufferingConstraintMode BUFFER_TIMEOUT       = 0x01;
+  const BufferingConstraintMode BUFFER_MESSAGE_COUNT = 0x02;
+  const BufferingConstraintMode BUFFER_MESSAGE_BYTES = 0x04;
+
+  struct BufferingConstraint
+  {
+    BufferingConstraintMode mode;
+    TimeBase::TimeT timeout;
+    unsigned long message_count;
+    unsigned long message_bytes;
+  };
+
+  const CORBA::PolicyType BUFFERING_CONSTRAINT_POLICY_TYPE = 0x54410001;
+
+  local interface BufferingConstraintPolicy : CORBA::Policy
+    {
+      readonly attribute BufferingConstraint buffering_constraint;
+    };
+};
+
+#endif /* TAO_TAO_EXT_IDL */

data/lib/corba/idl/require.rb

@@ -0,0 +1,20 @@
+#--------------------------------------------------------------------
+# require.rb - R2CORBA loader
+#
+# Author: Martin Corino
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the R2CORBA LICENSE which is
+# included with this program.
+#
+# Copyright (c) Remedy IT Expertise BV
+# Chamber of commerce Rotterdam nr.276339, The Netherlands
+#--------------------------------------------------------------------
+
+require 'corba/idl/IDL.rb'
+require 'corba/idl/r2c_orb.rb'
+
+## fake Ruby into believing 'orb.rb' has already been loaded
+## which is what the IDL compiler will generate for
+## '#include "orb.idl"'
+$" << 'orb.rb'