r2corba 1.4.1-x86-mingw32 → 1.5.1-x86-mingw32

data/lib/corba/cbase/Request.rb

@@ -1,134 +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
+#--------------------------------------------------------------------
+# 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

@@ -1,129 +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
+#--------------------------------------------------------------------
+# 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