r2corba 1.4.1-x86-mingw32

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/TAO_ExtC.rb

@@ -0,0 +1,179 @@
+# -*- Ruby -*-
+#
+# ****  Code generated by the R2CORBA IDL Compiler ****
+# R2CORBA has been developed by:
+#        Remedy IT
+#        Nijkerk, GLD
+#        The Netherlands
+#        http://www.remedy.nl  http://www.theaceorb.nl
+#
+
+module R2CORBA
+
+  CORBA.implement('lib/corba/idl/TAO_Ext.pidl', {}, CORBA::IDL::CLIENT_STUB) {
+
+  ## include
+  CORBA.implement('TimeBase.pidl', {}, CORBA::IDL::CLIENT_STUB) {
+
+  module TimeBase
+
+    class TimeT < CORBA::_tc_ulonglong.get_type
+      def TimeT._tc; @@tc_TimeT ||= CORBA::TypeCode::Alias.new('IDL:omg.org/TimeBase/TimeT:1.0', 'TimeT', CORBA::_tc_ulonglong, self); end
+    end # typedef TimeT
+    class InaccuracyT < TimeBase::TimeT
+      def InaccuracyT._tc; @@tc_InaccuracyT ||= CORBA::TypeCode::Alias.new('IDL:omg.org/TimeBase/InaccuracyT:1.0', 'InaccuracyT',TimeBase::TimeT._tc, self); end
+    end # typedef InaccuracyT
+    class TdfT < CORBA::_tc_short.get_type
+      def TdfT._tc; @@tc_TdfT ||= CORBA::TypeCode::Alias.new('IDL:omg.org/TimeBase/TdfT:1.0', 'TdfT', CORBA::_tc_short, self); end
+    end # typedef TdfT
+
+    class UtcT < CORBA::Portable::Struct
+
+      def UtcT._tc
+        @@tc_UtcT ||= CORBA::TypeCode::Struct.new('IDL:omg.org/TimeBase/UtcT:1.0'.freeze, 'UtcT',
+           [['time', TimeBase::TimeT._tc],
+            ['inacclo', CORBA._tc_ulong],
+            ['inacchi', CORBA._tc_ushort],
+            ['tdf', TimeBase::TdfT._tc]], self)
+      end
+      self._tc  # register typecode
+      attr_accessor :time
+      attr_accessor :inacclo
+      attr_accessor :inacchi
+      attr_accessor :tdf
+      def initialize(*param_)
+        @time = param_.shift
+        @inacclo = param_.shift
+        @inacchi = param_.shift
+        @tdf = param_.shift
+      end
+
+    end #of struct UtcT
+
+    class IntervalT < CORBA::Portable::Struct
+
+      def IntervalT._tc
+        @@tc_IntervalT ||= CORBA::TypeCode::Struct.new('IDL:omg.org/TimeBase/IntervalT:1.0'.freeze, 'IntervalT',
+           [['lower_bound', TimeBase::TimeT._tc],
+            ['upper_bound', TimeBase::TimeT._tc]], self)
+      end
+      self._tc  # register typecode
+      attr_accessor :lower_bound
+      attr_accessor :upper_bound
+      def initialize(*param_)
+        @lower_bound = param_.shift
+        @upper_bound = param_.shift
+      end
+
+    end #of struct IntervalT
+  end #of module TimeBase
+
+
+  } ## end of include 'TimeBase.pidl'
+
+  module TAO
+
+    CONNECTION_TIMEOUT_POLICY_TYPE = 1413545992
+
+    module ConnectionTimeoutPolicy  ## interface
+
+      include CORBA::Policy
+
+      Id = 'IDL:tao/TAO/ConnectionTimeoutPolicy:1.0'.freeze
+      Ids = [ Id,
+              CORBA::Policy::Id ].freeze
+
+      def ConnectionTimeoutPolicy._tc; @@tc_ConnectionTimeoutPolicy ||= CORBA::TypeCode::ObjectRef.new(Id, 'ConnectionTimeoutPolicy', self); end
+      self._tc  # register typecode
+
+      def ConnectionTimeoutPolicy._narrow(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(obj)._unchecked_narrow!(self)
+      end
+
+      def ConnectionTimeoutPolicy._duplicate(obj)
+        obj
+      end
+
+      def _interface_repository_id
+        TAO::ConnectionTimeoutPolicy::Id
+      end
+
+
+      def relative_expiry()
+        raise ::CORBA::NO_IMPLEMENT.new(
+                 'unimplemented attribute on local interface',
+                 1, ::CORBA::COMPLETED_NO)
+      end #of attribute relative_expiry getter
+    end #of interface ConnectionTimeoutPolicy
+
+    class BufferingConstraintMode < CORBA::_tc_ushort.get_type
+      def BufferingConstraintMode._tc; @@tc_BufferingConstraintMode ||= CORBA::TypeCode::Alias.new('IDL:tao/TAO/BufferingConstraintMode:1.0', 'BufferingConstraintMode', CORBA::_tc_ushort, self); end
+    end # typedef BufferingConstraintMode
+    BUFFER_FLUSH = 0
+    BUFFER_TIMEOUT = 1
+    BUFFER_MESSAGE_COUNT = 2
+    BUFFER_MESSAGE_BYTES = 4
+
+    class BufferingConstraint < CORBA::Portable::Struct
+
+      def BufferingConstraint._tc
+        @@tc_BufferingConstraint ||= CORBA::TypeCode::Struct.new('IDL:tao/TAO/BufferingConstraint:1.0'.freeze, 'BufferingConstraint',
+           [['mode', TAO::BufferingConstraintMode._tc],
+            ['timeout', TimeBase::TimeT._tc],
+            ['message_count', CORBA._tc_ulong],
+            ['message_bytes', CORBA._tc_ulong]], self)
+      end
+      self._tc  # register typecode
+      attr_accessor :mode
+      attr_accessor :timeout
+      attr_accessor :message_count
+      attr_accessor :message_bytes
+      def initialize(*param_)
+        @mode = param_.shift
+        @timeout = param_.shift
+        @message_count = param_.shift
+        @message_bytes = param_.shift
+      end
+
+    end #of struct BufferingConstraint
+    BUFFERING_CONSTRAINT_POLICY_TYPE = 1413545985
+
+    module BufferingConstraintPolicy  ## interface
+
+      include CORBA::Policy
+
+      Id = 'IDL:tao/TAO/BufferingConstraintPolicy:1.0'.freeze
+      Ids = [ Id,
+              CORBA::Policy::Id ].freeze
+
+      def BufferingConstraintPolicy._tc; @@tc_BufferingConstraintPolicy ||= CORBA::TypeCode::ObjectRef.new(Id, 'BufferingConstraintPolicy', self); end
+      self._tc  # register typecode
+
+      def BufferingConstraintPolicy._narrow(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(obj)._unchecked_narrow!(self)
+      end
+
+      def BufferingConstraintPolicy._duplicate(obj)
+        obj
+      end
+
+      def _interface_repository_id
+        TAO::BufferingConstraintPolicy::Id
+      end
+
+
+      def buffering_constraint()
+        raise ::CORBA::NO_IMPLEMENT.new(
+                 'unimplemented attribute on local interface',
+                 1, ::CORBA::COMPLETED_NO)
+      end #of attribute buffering_constraint getter
+    end #of interface BufferingConstraintPolicy
+
+  end #of module TAO
+
+  } ## end of 'lib/corba/idl/TAO_Ext.pidl'
+end #of module R2CORBA
+
+# -*- END -*-