r2corba 1.5.1-universal-java

data/lib/corba/cbase/Request.rb

@@ -0,0 +1,134 @@
+#--------------------------------------------------------------------
+# Request.rb - C++/TAO CORBA Request 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
+
+    module Request
+
+      def add_in_arg(tc, val, nm='')
+        self._arguments << [nm, CORBA::ARG_IN, tc, val]
+        self._arguments.size
+      end
+
+      def add_out_arg(tc, nm='')
+        self._arguments << [nm, CORBA::ARG_OUT, tc]
+        self._arguments.size
+      end
+
+      def add_inout_arg(tc, val, nm='')
+        self._arguments << [nm, CORBA::ARG_INOUT, tc, val]
+        self._arguments.size
+      end
+
+      def arguments
+        self._arguments
+      end
+
+      def arguments=(*args)
+        if args.size == 1
+          raise ArgumentError, 'invalid argument list' unless ::Array === args.first && args.first.all? {|a| ::Array === a }
+          args = args.first
+        else
+          raise ArgumentError, 'invalid argument list' unless args.all? {|a| ::Array === a }
+        end
+        # clear current arguments
+        self._arguments.clear
+        # add new arguments
+        args.each do |nm, flag, tc, val|
+          case flag
+          when CORBA::ARG_IN
+            self.add_in_arg(tc, val, nm)
+          when CORBA::ARG_OUT
+            self.add_out_arg(tc, nm)
+          when CORBA::ARG_INOUT
+            self.add_inout_arg(tc, val, nm)
+          end
+        end
+      end
+
+      def exceptions
+        self._exceptions
+      end
+
+      def exceptions=(exl)
+        self._exceptions.clear
+        begin
+          self._exceptions.concat(exl)
+        rescue
+          raise CORBA::BAD_PARAM.new(0, CORBA::COMPLETED_NO)
+        end
+      end
+
+      def set_return_type(tc)
+        @_rettc = tc
+      end
+
+      def return_value
+        return nil if @_rettc.nil? || @_rettc.kind == CORBA::TK_VOID || @_rettc.kind == CORBA::TK_NULL
+        self._return_value(@_rettc)
+      end
+
+      def invoke
+        self._invoke({
+          :arg_list => self._arguments,
+          :result_type => @_rettc,
+          :exc_list => self._exceptions
+          })
+      end
+
+      def send_oneway
+        self._send_oneway(self._arguments)
+      end
+
+      def send_deferred
+        self._send_deferred({
+          :arg_list => self._arguments,
+          :result_type => @_rettc,
+          :exc_list => self._exceptions
+          })
+      end
+
+      def poll_response
+        begin
+          ret = self._poll_response
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+        @_args = self._get_arguments(@_args || []) if ret
+        ret
+      end
+
+      def get_response
+        begin
+          ret = self._get_response
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+        @_args = self._get_arguments(@_args || [])
+        ret
+      end
+
+      protected
+
+      def _arguments
+        @_args ||= []
+      end
+
+      def _exceptions
+        @_excl ||= []
+      end
+
+    end
+
+  end # CORBA
+end # R2CORBA

data/lib/corba/cbase/Streams.rb

@@ -0,0 +1,129 @@
+#--------------------------------------------------------------------
+# Streams.rb - C++/TAO Definition of CORBA CDR Streams
+#
+# 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
+      module InputStream
+        def read_member(tc)
+          tc = tc.resolved_tc # takes care of recursive typecodes
+          v = case tc.kind
+          when TK_ANY
+            read_any()
+          when TK_BOOLEAN
+            read_boolean()
+          when TK_SHORT
+            read_short()
+          when TK_LONG
+            read_long()
+          when TK_USHORT
+            read_ushort()
+          when TK_WCHAR
+            read_wchar()
+          when TK_ULONG
+            read_ulong()
+          when TK_LONGLONG
+            read_longlong()
+          when TK_ULONGLONG
+            read_ulonglong()
+          when TK_OCTET
+            read_octet()
+          when TK_FLOAT
+            read_float()
+          when TK_DOUBLE
+            read_double()
+          when TK_LONGDOUBLE
+            raise CORBA::NO_IMPLEMENT.new('LongDouble not supported',0,CORBA::COMPLETED_NO)
+          when TK_FIXED
+            read_fixed()
+          when TK_CHAR
+            read_char()
+          when TK_STRING
+            read_string()
+          when TK_WSTRING
+            read_wstring()
+          when TK_OBJREF
+            read_Object()
+          when TK_TYPECODE
+            read_TypeCode()
+          when TK_ARRAY, TK_SEQUENCE,
+               TK_ENUM, TK_STRUCT, TK_EXCEPT, TK_UNION,
+               TK_PRINCIPAL
+            read_construct(tc)
+          when TK_ABSTRACT_INTERFACE
+            read_Abstract()
+          when TK_VALUE, TK_VALUE_BOX, TK_EVENT
+            read_Value()
+            ## TODO: TK_NATIVE
+          end
+          v
+        end
+      end
+
+      module OutputStream
+        def write_member(tc, value)
+          tc = tc.resolved_tc # takes care of recursive typecodes
+          case tc.kind
+          when TK_ANY
+            write_any(value)
+          when TK_BOOLEAN
+            write_boolean(value)
+          when TK_SHORT
+            write_short(value)
+          when TK_LONG
+            write_long(value)
+          when TK_USHORT
+            write_ushort(value)
+          when TK_WCHAR
+            write_wchar(value)
+          when TK_ULONG
+            write_ulong(value)
+          when TK_LONGLONG
+            write_longlong(value)
+          when TK_ULONGLONG
+            write_ulonglong(value)
+          when TK_OCTET
+            write_octet(value)
+          when TK_FLOAT
+            write_float(value)
+          when TK_DOUBLE
+            write_double(value)
+          when TK_LONGDOUBLE
+            raise CORBA::NO_IMPLEMENT.new('LongDouble not supported',0,CORBA::COMPLETED_NO)
+          when TK_FIXED
+            write_fixed(value)
+          when TK_CHAR
+            write_char(value)
+          when TK_STRING
+            write_string(value)
+          when TK_WSTRING
+            write_wstring(value)
+          when TK_OBJREF
+            write_Object(value)
+          when TK_TYPECODE
+            write_TypeCode(value)
+          when TK_ARRAY, TK_SEQUENCE,
+               TK_ENUM, TK_STRUCT, TK_EXCEPT, TK_UNION,
+               TK_PRINCIPAL
+            write_construct(value, tc)
+          when TK_ABSTRACT_INTERFACE
+            write_Abstract(value)
+          when TK_VALUE, TK_VALUE_BOX, TK_EVENT
+            write_Value(value)
+            ## TODO: TK_NATIVE
+          end
+        end
+      end
+    end
+  end
+end

data/lib/corba/cbase/Stub.rb

@@ -0,0 +1,19 @@
+#--------------------------------------------------------------------
+# Stub.rb - C++/TAO CORBA Stub 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
+    module Stub
+      include R2CORBA::CORBA::Portable::Stub
+    end # Stub
+  end # CORBA
+end # R2CORBA

data/lib/corba/cbase/Typecode.rb

@@ -0,0 +1,441 @@
+#--------------------------------------------------------------------
+# Typecode.rb - C++/TAO specific CORBA TypeCode 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
+    class TypeCode
+
+      def kind
+        begin
+          self.tc_.kind
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end
+
+      def member_label(index)
+        begin
+          self.tc_.member_label(index.to_i)
+        rescue ::NativeException
+          CORBA::Exception.native2r($!)
+        end
+      end
+
+      class Recursive < CORBA::TypeCode
+
+        def initialize(id)
+          begin
+            @tc_ = CORBA::Native::TypeCode.create_recursive_tc(id)
+          rescue ::NativeException
+            CORBA::Exception.native2r($!)
+          end
+        end
+
+      end # Recursive
+
+      class String < CORBA::TypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+          else
+            begin
+              @tc_ = CORBA::Native::TypeCode.create_tc(TK_STRING, args.shift.to_i)
+            rescue ::NativeException
+              CORBA::Exception.native2r($!)
+            end
+          end
+        end
+
+      end # String
+
+      class WString < CORBA::TypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+          else
+            begin
+              @tc_ = CORBA::Native::TypeCode.create_tc(TK_WSTRING, args.shift.to_i)
+            rescue ::NativeException
+              CORBA::Exception.native2r($!)
+            end
+          end
+        end
+
+      end # WString
+
+      class Fixed < CORBA::TypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+          else
+            digits, scale = args
+            begin
+              @tc_ = CORBA::Native::TypeCode.create_tc(TK_FIXED, digits.to_i, scale.to_i)
+            rescue ::NativeException
+              CORBA::Exception.native2r($!)
+            end
+          end
+        end
+
+      end # Fixed
+
+      class Sequence < CORBA::TypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+          else
+            element_tc, bound = args
+            raise ArgumentError, 'expected CORBA::TypeCode' unless element_tc.is_a?(CORBA::TypeCode)
+            begin
+              @tc_ = CORBA::Native::TypeCode.create_tc(TK_SEQUENCE, bound.to_i, element_tc.tc_)
+            rescue ::NativeException
+              CORBA::Exception.native2r($!)
+            end
+          end
+        end
+
+      end
+
+      class Array < CORBA::TypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+          else
+            content_tc = args.shift
+            length = args
+            raise ArgumentError, 'expected CORBA::TypeCode' unless content_tc.is_a?(CORBA::TypeCode)
+            if length.size>1
+              this_len = length.shift
+              content_tc = self.class.new(content_tc, *length)
+            else
+              this_len = length.first
+            end
+            begin
+              @tc_ = CORBA::Native::TypeCode.create_tc(TK_ARRAY, this_len.to_i, content_tc.tc_)
+            rescue ::NativeException
+              CORBA::Exception.native2r($!)
+            end
+          end
+        end
+
+      end # Array
+
+      class IdentifiedTypeCode < CORBA::TypeCode
+
+        def initialize(id)
+          CORBA::TypeCode.register_id_type(id.to_s, self)
+        end
+
+      end # IdentifiedTypeCode
+
+      class Alias < IdentifiedTypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+            @type = nil
+            super(@tc_.id)
+          else
+            id, name, orig_tc, type = args
+            raise ArgumentError, 'expected CORBA::TypeCode' unless orig_tc.is_a?(CORBA::TypeCode)
+            begin
+              @tc_ = CORBA::Native::TypeCode.create_tc(TK_ALIAS, id.to_s, name.to_s, orig_tc.tc_)
+            rescue ::NativeException
+              CORBA::Exception.native2r($!)
+            end
+            @type = type
+            super(id)
+          end
+        end
+
+      end # Alias
+
+      class Valuetype < IdentifiedTypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+            @type = nil
+            @members = []
+            @tc_.member_count.times do |i|
+              @members << [@tc_.member_name(i), TypeCode.from_native(@tc_.member_type(i))]
+            end
+            super(id)
+          else
+            id, name, modifier, base, members_, type_ = args
+            raise ArgumentError, 'expected CORBA::Typecode' unless base.nil? || base.is_a?(CORBA::TypeCode)
+            raise ArgumentError, 'expected members Array' unless members_.is_a?(::Array) || type_.nil?
+            if type_.nil? && !members_.is_a?(::Array)
+              type_ = members_
+              members_ = []
+            end
+            @type = type_
+            @members = []
+            members_.each { |n, tc, access| add_member(n, tc, access) }
+            n_members = @members.collect do |n, tc, access|
+              [n.to_s, tc.tc_, access == :public ? CORBA::PUBLIC_MEMBER : CORBA::PRIVATE_MEMBER]
+            end
+            @tc_ = _create_tc(id, name, modifier, base, n_members)
+            super(id)
+          end
+        end
+
+        protected
+
+        def _create_tc(id,name,modifier,base,members)
+          begin
+            CORBA::Native::TypeCode.create_tc(TK_VALUE, id.to_s, name.to_s,
+                                              CORBA::VT_MODIFIERS[modifier],
+                                              base.nil? ? nil : base.tc_,
+                                              members)
+          rescue ::NativeException
+            CORBA::Exception.native2r($!)
+          end
+        end
+
+      end # Valuetype
+
+      class Eventtype < Valuetype
+
+        protected
+
+        def _create_tc(id,name,modifier,base,members)
+          begin
+            CORBA::Native::TypeCode.create_tc(TK_EVENT, id.to_s, name.to_s,
+                                              CORBA::VT_MODIFIERS[modifier],
+                                              base.nil? ? nil : base.tc_,
+                                              members)
+          rescue ::NativeException
+            CORBA::Exception.native2r($!)
+          end
+        end
+
+      end # Eventtype
+
+      class Valuebox < IdentifiedTypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+            @type = nil
+            super(@tc_.id)
+          else
+            id, name, boxed_tc, type = args
+            raise ArgumentError, 'expected CORBA::TypeCode' unless boxed_tc.is_a?(CORBA::TypeCode)
+            begin
+              @tc_ = CORBA::Native::TypeCode.create_tc(TK_VALUE_BOX, id.to_s, name.to_s, boxed_tc.tc_)
+            rescue ::NativeException
+              CORBA::Exception.native2r($!)
+            end
+            @type = type
+            super(id)
+            ## autoregister
+            CORBA::ORB._check_value_factory(@type::Factory) if @type < CORBA::Portable::BoxedValueBase
+          end
+        end
+
+      end # Valuebox
+
+      class ObjectRef < IdentifiedTypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+            @type = CORBA::Object
+            super(@tc_.id)
+          else
+            id, name, type = args
+            begin
+              @tc_ = CORBA::Native::TypeCode.create_tc(TK_OBJREF, id.to_s, name.to_s)
+            rescue ::NativeException
+              CORBA::Exception.native2r($!)
+            end
+            @type = type
+            super(id)
+          end
+        end
+
+      end # ObjectRef
+
+      class AbstractInterface < IdentifiedTypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+            @type = CORBA::AbstractBase
+            super(@tc_.id)
+          else
+            id, name, type = args
+            begin
+              @tc_ = CORBA::Native::TypeCode.create_tc(TK_ABSTRACT_INTERFACE, id.to_s, name.to_s)
+            rescue ::NativeException
+              CORBA::Exception.native2r($!)
+            end
+            @type = type
+            super(id)
+          end
+        end
+
+      end # AbstractInterface
+
+      class Struct < IdentifiedTypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+            @type = nil
+            @members = []
+            @tc_.member_count.times do |i|
+              @members << [@tc_.member_name(i), TypeCode.from_native(@tc_.member_type(i))]
+            end
+            super(id)
+          else
+            id, name, members_, type_ = args
+            raise ArgumentError, 'expected members Array' unless members_.is_a?(::Array) || type_.nil?
+            if type_.nil? && !members_.is_a?(::Array)
+              type_ = members_
+              members_ = []
+            end
+            @type = type_
+            @members = []
+            members_.each { |n, tc| add_member(n, tc) }
+            n_members = @members.collect {|n, tc| [n.to_s(), tc.tc_] }
+            @tc_ = _create_tc(id, name, n_members)
+            super(id)
+          end
+        end
+
+        protected
+
+        def _create_tc(id,name,members)
+          begin
+            CORBA::Native::TypeCode.create_tc(TK_STRUCT, id.to_s, name.to_s, members)
+          rescue ::NativeException
+            CORBA::Exception.native2r($!)
+          end
+        end
+
+      end # Struct
+
+      class Except < Struct
+
+        protected
+
+        def _create_tc(id,name,members)
+          begin
+            CORBA::Native::TypeCode.create_tc(TK_EXCEPT, id.to_s, name.to_s, members)
+          rescue ::NativeException
+            CORBA::Exception.native2r($!)
+          end
+        end
+
+      end # Except
+
+      class Union < IdentifiedTypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+            @type = nil
+            @switchtype = TypeCode.from_native(@tc_.discriminator_type)
+            @labels = {}
+            @members = []
+            def_inx = @tc_.default_index
+            @tc_.member_count.times do |i|
+              if def_inx < 0  || def_inx != i
+                ml_ = @tc_.member_label(i)
+              else
+                ml_ = :default
+              end
+              @labels[ml] = i
+              @members << [ml, @tc_.member_name(i), TypeCode.from_native(@tc_.member_type(i))]
+            end
+            super(id)
+          else
+            id, name, switchtype_, members_, type_, implicit_default_ = args
+            raise ::CORBA::BAD_PARAM unless members_.is_a? ::Array
+            raise ::CORBA::BAD_PARAM unless switchtype_.is_a?(CORBA::TypeCode)
+            @type = type_
+            @implicit_default = implicit_default_
+            @switchtype = switchtype_.resolved_tc
+            @labels = {}
+            @members = []
+            members_.each { |mlabel, mname, mtc|
+              add_member(mlabel, mname, mtc)
+            }
+            @id = id
+            @name = name
+            n_members = @members.collect do |ml, mn, mtc|
+              [ml, mn.to_s, mtc.tc_]
+            end
+            @tc = _create_tc(@id, @name, @switchtype, n_members)
+            super(id)
+          end
+        end
+
+        def tc_
+          @tc
+        end
+
+        protected
+
+        def _create_tc(id, name, disctc, members)
+          begin
+            CORBA::Native::TypeCode.create_tc(TK_UNION, id.to_s, name.to_s, disctc.tc_, members)
+          rescue ::NativeException
+            CORBA::Exception.native2r($!)
+          end
+        end
+
+      end # Union
+
+      class Enum < IdentifiedTypeCode
+
+        def initialize(*args)
+          if CORBA::Native::TypeCode === args.first
+            @tc_ = args.first
+            @range = (0..@tc_.member_count).freeze
+            @members = @range.to_a.collect {|i| @tc_.member_name(i) }
+            super(@tc_.id)
+          else
+            id, name, members_ = args
+            raise CORBA::BAD_PARAM unless members_.is_a? ::Array
+            @members = members_.collect {|m| m.to_s}
+            @range = (0...@members.size).freeze
+            begin
+              @tc_ = CORBA::Native::TypeCode.create_tc(TK_ENUM, id.to_s, name.to_s, @members)
+            rescue ::NativeException
+              CORBA::Exception.native2r($!)
+            end
+            super(id)
+          end
+        end
+
+      end # Enum
+
+      def TypeCode.get_primitive_tc(kind)
+        TypeCode._wrap_native(CORBA::Native::TypeCode.get_primitive_tc(kind.to_i))
+      end
+
+      # final initialization
+      self._init()
+
+    end # TypeCode
+
+  end ## module CORBA
+end ## module R2CORBA