r2corba 1.5.1-universal-java

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 = 5.freeze
+  R2CORBA_RELEASE = '1'.freeze
+
+  R2CORBA_VERSION = "#{R2CORBA_MAJOR}.#{R2CORBA_MINOR}.#{R2CORBA_RELEASE}".freeze
+
+end

data/lib/corba/idl/BiDirPolicyC.rb

@@ -0,0 +1,63 @@
+# -*- 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('BiDirPolicy.pidl', {}, CORBA::IDL::CLIENT_STUB) {
+
+  module BiDirPolicy
+
+    class BidirectionalPolicyValue < CORBA::_tc_ushort.get_type
+      def BidirectionalPolicyValue._tc; @@tc_BidirectionalPolicyValue ||= CORBA::TypeCode::Alias.new('IDL:omg.org/BiDirPolicy/BidirectionalPolicyValue:1.0', 'BidirectionalPolicyValue', CORBA::_tc_ushort, self); end
+    end # typedef BidirectionalPolicyValue
+    NORMAL = 0
+    BOTH = 1
+    BIDIRECTIONAL_POLICY_TYPE = 37
+
+    module BidirectionalPolicy  ## interface
+
+      include CORBA::Policy
+
+      Id = 'IDL:omg.org/BiDirPolicy/BidirectionalPolicy:1.0'.freeze
+      Ids = [ Id,
+              CORBA::Policy::Id ].freeze
+
+      def BidirectionalPolicy._tc; @@tc_BidirectionalPolicy ||= CORBA::TypeCode::ObjectRef.new(Id, 'BidirectionalPolicy', self); end
+      self._tc  # register typecode
+
+      def BidirectionalPolicy._narrow(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(obj)._narrow!(self)
+      end
+
+      def BidirectionalPolicy._duplicate(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(super(obj))._narrow!(self)
+      end
+
+      def _interface_repository_id
+        BiDirPolicy::BidirectionalPolicy::Id
+      end
+
+
+      def value()
+        raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+        _ret = self._invoke('_get_value', {
+          :result_type => BiDirPolicy::BidirectionalPolicyValue._tc})
+        _ret
+      end #of attribute value getter
+    end #of interface BidirectionalPolicy
+
+  end #of module BiDirPolicy
+
+  } ## end of 'BiDirPolicy.pidl'
+end #of module R2CORBA
+
+# -*- END -*-

data/lib/corba/idl/CosNamingC.rb

@@ -0,0 +1,461 @@
+# -*- 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
+#
+require 'corba'
+
+CORBA.implement('CosNaming.idl', {}, CORBA::IDL::CLIENT_STUB) {
+
+module CosNaming
+
+  class Istring < String
+    def Istring._tc; @@tc_Istring ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CosNaming/Istring:1.0', 'Istring', CORBA::_tc_string, self); end
+  end # typedef Istring
+
+  class NameComponent < CORBA::Portable::Struct
+
+    def NameComponent._tc
+      @@tc_NameComponent ||= CORBA::TypeCode::Struct.new('IDL:omg.org/CosNaming/NameComponent:1.0'.freeze, 'NameComponent',
+         [['r_id', CosNaming::Istring._tc],
+          ['kind', CosNaming::Istring._tc]], self)
+    end
+    self._tc  # register typecode
+    attr_accessor :r_id
+    attr_accessor :kind
+    def initialize(*param_)
+      @r_id = param_.shift
+      @kind = param_.shift
+    end
+
+  end #of struct NameComponent
+  class Name < Array
+    def Name._tc
+      @@tc_Name ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CosNaming/Name:1.0', 'Name',
+        CORBA::TypeCode::Sequence.new(CosNaming::NameComponent._tc), self)
+    end
+  end # typedef Name
+  class BindingType < ::Fixnum
+    def BindingType._tc
+      @@tc_BindingType ||= CORBA::TypeCode::Enum.new('IDL:omg.org/CosNaming/BindingType:1.0'.freeze, 'BindingType', [
+          'Nobject',
+          'Ncontext'])
+    end
+    self._tc  # register typecode
+  end # enum BindingType
+  Nobject = 0
+  Ncontext = 1
+
+  class Binding < CORBA::Portable::Struct
+
+    def Binding._tc
+      @@tc_Binding ||= CORBA::TypeCode::Struct.new('IDL:omg.org/CosNaming/Binding:1.0'.freeze, 'Binding',
+         [['binding_name', CosNaming::Name._tc],
+          ['binding_type', CosNaming::BindingType._tc]], self)
+    end
+    self._tc  # register typecode
+    attr_accessor :binding_name
+    attr_accessor :binding_type
+    def initialize(*param_)
+      @binding_name = param_.shift
+      @binding_type = param_.shift
+    end
+
+  end #of struct Binding
+  class BindingList < Array
+    def BindingList._tc
+      @@tc_BindingList ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CosNaming/BindingList:1.0', 'BindingList',
+        CORBA::TypeCode::Sequence.new(CosNaming::Binding._tc), self)
+    end
+  end # typedef BindingList
+  module BindingIterator; end  ## interface forward
+
+  module NamingContext  ## interface
+
+    Id = 'IDL:omg.org/CosNaming/NamingContext:1.0'.freeze
+    Ids = [ Id ].freeze
+
+    def NamingContext._tc; @@tc_NamingContext ||= CORBA::TypeCode::ObjectRef.new(Id, 'NamingContext', self); end
+    self._tc  # register typecode
+
+    def NamingContext._narrow(obj)
+      return nil if CORBA.is_nil(obj)
+      return CORBA::Stub.create_stub(obj)._narrow!(self)
+    end
+
+    def NamingContext._duplicate(obj)
+      return nil if CORBA.is_nil(obj)
+      return CORBA::Stub.create_stub(super(obj))._narrow!(self)
+    end
+
+    def _interface_repository_id
+      CosNaming::NamingContext::Id
+    end
+
+    class NotFoundReason < ::Fixnum
+      def NotFoundReason._tc
+        @@tc_NotFoundReason ||= CORBA::TypeCode::Enum.new('IDL:omg.org/CosNaming/NamingContext/NotFoundReason:1.0'.freeze, 'NotFoundReason', [
+            'Missing_node',
+            'Not_context',
+            'Not_object'])
+      end
+      self._tc  # register typecode
+    end # enum NotFoundReason
+    Missing_node = 0
+    Not_context = 1
+    Not_object = 2
+
+    class NotFound < CORBA::UserException
+
+      def NotFound._tc
+        @@tc_NotFound ||= CORBA::TypeCode::Except.new('IDL:omg.org/CosNaming/NamingContext/NotFound:1.0'.freeze, 'NotFound',
+           [['why', CosNaming::NamingContext::NotFoundReason._tc],
+            ['rest_of_name', CosNaming::Name._tc]], self)
+      end
+      self._tc  # register typecode
+      attr_accessor :why
+      attr_accessor :rest_of_name
+      def initialize(*param_)
+        @why = param_.shift
+        @rest_of_name = param_.shift
+      end
+
+    end #of exception NotFound
+
+    class CannotProceed < CORBA::UserException
+
+      def CannotProceed._tc
+        @@tc_CannotProceed ||= CORBA::TypeCode::Except.new('IDL:omg.org/CosNaming/NamingContext/CannotProceed:1.0'.freeze, 'CannotProceed',
+           [['cxt', CosNaming::NamingContext._tc],
+            ['rest_of_name', CosNaming::Name._tc]], self)
+      end
+      self._tc  # register typecode
+      attr_accessor :cxt
+      attr_accessor :rest_of_name
+      def initialize(*param_)
+        @cxt = param_.shift
+        @rest_of_name = param_.shift
+      end
+
+    end #of exception CannotProceed
+
+    class InvalidName < CORBA::UserException
+
+      def InvalidName._tc
+        @@tc_InvalidName ||= CORBA::TypeCode::Except.new('IDL:omg.org/CosNaming/NamingContext/InvalidName:1.0'.freeze, 'InvalidName', self)
+      end
+      self._tc  # register typecode
+    end #of exception InvalidName
+
+    class AlreadyBound < CORBA::UserException
+
+      def AlreadyBound._tc
+        @@tc_AlreadyBound ||= CORBA::TypeCode::Except.new('IDL:omg.org/CosNaming/NamingContext/AlreadyBound:1.0'.freeze, 'AlreadyBound', self)
+      end
+      self._tc  # register typecode
+    end #of exception AlreadyBound
+
+    class NotEmpty < CORBA::UserException
+
+      def NotEmpty._tc
+        @@tc_NotEmpty ||= CORBA::TypeCode::Except.new('IDL:omg.org/CosNaming/NamingContext/NotEmpty:1.0'.freeze, 'NotEmpty', self)
+      end
+      self._tc  # register typecode
+    end #of exception NotEmpty
+
+    def bind(n, obj)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      n = CosNaming::Name._tc.validate(n)
+      obj = CORBA._tc_Object.validate(obj)
+      _ret = self._invoke('bind', {
+        :arg_list => [
+          ['n', CORBA::ARG_IN, CosNaming::Name._tc, n],
+          ['obj', CORBA::ARG_IN, CORBA._tc_Object, obj]],
+        :result_type => CORBA._tc_void,
+        :exc_list => [
+          CosNaming::NamingContext::NotFound._tc,
+          CosNaming::NamingContext::CannotProceed._tc,
+          CosNaming::NamingContext::InvalidName._tc,
+          CosNaming::NamingContext::AlreadyBound._tc]})
+      _ret
+    end #of operation bind
+
+    def rebind(n, obj)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      n = CosNaming::Name._tc.validate(n)
+      obj = CORBA._tc_Object.validate(obj)
+      _ret = self._invoke('rebind', {
+        :arg_list => [
+          ['n', CORBA::ARG_IN, CosNaming::Name._tc, n],
+          ['obj', CORBA::ARG_IN, CORBA._tc_Object, obj]],
+        :result_type => CORBA._tc_void,
+        :exc_list => [
+          CosNaming::NamingContext::NotFound._tc,
+          CosNaming::NamingContext::CannotProceed._tc,
+          CosNaming::NamingContext::InvalidName._tc]})
+      _ret
+    end #of operation rebind
+
+    def bind_context(n, nc)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      n = CosNaming::Name._tc.validate(n)
+      nc = CosNaming::NamingContext._tc.validate(nc)
+      _ret = self._invoke('bind_context', {
+        :arg_list => [
+          ['n', CORBA::ARG_IN, CosNaming::Name._tc, n],
+          ['nc', CORBA::ARG_IN, CosNaming::NamingContext._tc, nc]],
+        :result_type => CORBA._tc_void,
+        :exc_list => [
+          CosNaming::NamingContext::NotFound._tc,
+          CosNaming::NamingContext::CannotProceed._tc,
+          CosNaming::NamingContext::InvalidName._tc,
+          CosNaming::NamingContext::AlreadyBound._tc]})
+      _ret
+    end #of operation bind_context
+
+    def rebind_context(n, nc)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      n = CosNaming::Name._tc.validate(n)
+      nc = CosNaming::NamingContext._tc.validate(nc)
+      _ret = self._invoke('rebind_context', {
+        :arg_list => [
+          ['n', CORBA::ARG_IN, CosNaming::Name._tc, n],
+          ['nc', CORBA::ARG_IN, CosNaming::NamingContext._tc, nc]],
+        :result_type => CORBA._tc_void,
+        :exc_list => [
+          CosNaming::NamingContext::NotFound._tc,
+          CosNaming::NamingContext::CannotProceed._tc,
+          CosNaming::NamingContext::InvalidName._tc]})
+      _ret
+    end #of operation rebind_context
+
+    def resolve(n)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      n = CosNaming::Name._tc.validate(n)
+      _ret = self._invoke('resolve', {
+        :arg_list => [
+          ['n', CORBA::ARG_IN, CosNaming::Name._tc, n]],
+        :result_type => CORBA._tc_Object,
+        :exc_list => [
+          CosNaming::NamingContext::NotFound._tc,
+          CosNaming::NamingContext::CannotProceed._tc,
+          CosNaming::NamingContext::InvalidName._tc]})
+      _ret
+    end #of operation resolve
+
+    def unbind(n)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      n = CosNaming::Name._tc.validate(n)
+      _ret = self._invoke('unbind', {
+        :arg_list => [
+          ['n', CORBA::ARG_IN, CosNaming::Name._tc, n]],
+        :result_type => CORBA._tc_void,
+        :exc_list => [
+          CosNaming::NamingContext::NotFound._tc,
+          CosNaming::NamingContext::CannotProceed._tc,
+          CosNaming::NamingContext::InvalidName._tc]})
+      _ret
+    end #of operation unbind
+
+    def new_context()
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      _ret = self._invoke('new_context', {
+        :result_type => CosNaming::NamingContext._tc})
+      _ret
+    end #of operation new_context
+
+    def bind_new_context(n)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      n = CosNaming::Name._tc.validate(n)
+      _ret = self._invoke('bind_new_context', {
+        :arg_list => [
+          ['n', CORBA::ARG_IN, CosNaming::Name._tc, n]],
+        :result_type => CosNaming::NamingContext._tc,
+        :exc_list => [
+          CosNaming::NamingContext::NotFound._tc,
+          CosNaming::NamingContext::AlreadyBound._tc,
+          CosNaming::NamingContext::CannotProceed._tc,
+          CosNaming::NamingContext::InvalidName._tc]})
+      _ret
+    end #of operation bind_new_context
+
+    def destroy()
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      _ret = self._invoke('destroy', {
+        :result_type => CORBA._tc_void,
+        :exc_list => [
+          CosNaming::NamingContext::NotEmpty._tc]})
+      _ret
+    end #of operation destroy
+
+    def list(how_many)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      how_many = CORBA._tc_ulong.validate(how_many)
+      _ret = self._invoke('list', {
+        :arg_list => [
+          ['how_many', CORBA::ARG_IN, CORBA._tc_ulong, how_many],
+          ['bl', CORBA::ARG_OUT, CosNaming::BindingList._tc],
+          ['bi', CORBA::ARG_OUT, (CORBA::TypeCode.typecode_for_id('IDL:omg.org/CosNaming/BindingIterator:1.0') || CORBA::TypeCode::ObjectRef.new('IDL:omg.org/CosNaming/BindingIterator:1.0', 'BindingIterator', CosNaming::BindingIterator))]],
+        :result_type => CORBA._tc_void})
+      _ret
+    end #of operation list
+  end #of interface NamingContext
+
+
+  module BindingIterator  ## interface
+
+    Id = 'IDL:omg.org/CosNaming/BindingIterator:1.0'.freeze
+    Ids = [ Id ].freeze
+
+    def BindingIterator._tc; @@tc_BindingIterator ||= CORBA::TypeCode::ObjectRef.new(Id, 'BindingIterator', self); end
+    self._tc  # register typecode
+
+    def BindingIterator._narrow(obj)
+      return nil if CORBA.is_nil(obj)
+      return CORBA::Stub.create_stub(obj)._narrow!(self)
+    end
+
+    def BindingIterator._duplicate(obj)
+      return nil if CORBA.is_nil(obj)
+      return CORBA::Stub.create_stub(super(obj))._narrow!(self)
+    end
+
+    def _interface_repository_id
+      CosNaming::BindingIterator::Id
+    end
+
+
+    def next_one()
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      _ret = self._invoke('next_one', {
+        :arg_list => [
+          ['b', CORBA::ARG_OUT, CosNaming::Binding._tc]],
+        :result_type => CORBA._tc_boolean})
+      _ret
+    end #of operation next_one
+
+    def next_n(how_many)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      how_many = CORBA._tc_ulong.validate(how_many)
+      _ret = self._invoke('next_n', {
+        :arg_list => [
+          ['how_many', CORBA::ARG_IN, CORBA._tc_ulong, how_many],
+          ['bl', CORBA::ARG_OUT, CosNaming::BindingList._tc]],
+        :result_type => CORBA._tc_boolean})
+      _ret
+    end #of operation next_n
+
+    def destroy()
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      _ret = self._invoke('destroy', {
+        :result_type => CORBA._tc_void})
+      _ret
+    end #of operation destroy
+  end #of interface BindingIterator
+
+
+  module NamingContextExt  ## interface
+
+    include CosNaming::NamingContext
+
+    Id = 'IDL:omg.org/CosNaming/NamingContextExt:1.0'.freeze
+    Ids = [ Id,
+            CosNaming::NamingContext::Id ].freeze
+
+    def NamingContextExt._tc; @@tc_NamingContextExt ||= CORBA::TypeCode::ObjectRef.new(Id, 'NamingContextExt', self); end
+    self._tc  # register typecode
+
+    def NamingContextExt._narrow(obj)
+      return nil if CORBA.is_nil(obj)
+      return CORBA::Stub.create_stub(obj)._narrow!(self)
+    end
+
+    def NamingContextExt._duplicate(obj)
+      return nil if CORBA.is_nil(obj)
+      return CORBA::Stub.create_stub(super(obj))._narrow!(self)
+    end
+
+    def _interface_repository_id
+      CosNaming::NamingContextExt::Id
+    end
+
+    class StringName < String
+      def StringName._tc; @@tc_StringName ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CosNaming/NamingContextExt/StringName:1.0', 'StringName', CORBA::_tc_string, self); end
+    end # typedef StringName
+    class Address < String
+      def Address._tc; @@tc_Address ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CosNaming/NamingContextExt/Address:1.0', 'Address', CORBA::_tc_string, self); end
+    end # typedef Address
+    class URLString < String
+      def URLString._tc; @@tc_URLString ||= CORBA::TypeCode::Alias.new('IDL:omg.org/CosNaming/NamingContextExt/URLString:1.0', 'URLString', CORBA::_tc_string, self); end
+    end # typedef URLString
+
+    def to_string(n)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      n = CosNaming::Name._tc.validate(n)
+      _ret = self._invoke('to_string', {
+        :arg_list => [
+          ['n', CORBA::ARG_IN, CosNaming::Name._tc, n]],
+        :result_type => CosNaming::NamingContextExt::StringName._tc,
+        :exc_list => [
+          CosNaming::NamingContext::InvalidName._tc]})
+      _ret
+    end #of operation to_string
+
+    def to_name(sn)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      sn = CosNaming::NamingContextExt::StringName._tc.validate(sn)
+      _ret = self._invoke('to_name', {
+        :arg_list => [
+          ['sn', CORBA::ARG_IN, CosNaming::NamingContextExt::StringName._tc, sn]],
+        :result_type => CosNaming::Name._tc,
+        :exc_list => [
+          CosNaming::NamingContext::InvalidName._tc]})
+      _ret
+    end #of operation to_name
+
+    class InvalidAddress < CORBA::UserException
+
+      def InvalidAddress._tc
+        @@tc_InvalidAddress ||= CORBA::TypeCode::Except.new('IDL:omg.org/CosNaming/NamingContextExt/InvalidAddress:1.0'.freeze, 'InvalidAddress', self)
+      end
+      self._tc  # register typecode
+    end #of exception InvalidAddress
+
+    def to_url(addr, sn)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      addr = CosNaming::NamingContextExt::Address._tc.validate(addr)
+      sn = CosNaming::NamingContextExt::StringName._tc.validate(sn)
+      _ret = self._invoke('to_url', {
+        :arg_list => [
+          ['addr', CORBA::ARG_IN, CosNaming::NamingContextExt::Address._tc, addr],
+          ['sn', CORBA::ARG_IN, CosNaming::NamingContextExt::StringName._tc, sn]],
+        :result_type => CosNaming::NamingContextExt::URLString._tc,
+        :exc_list => [
+          CosNaming::NamingContextExt::InvalidAddress._tc,
+          CosNaming::NamingContext::InvalidName._tc]})
+      _ret
+    end #of operation to_url
+
+    def resolve_str(n)
+      raise ::CORBA::NO_IMPLEMENT unless self.respond_to?(:_invoke, true)
+      n = CosNaming::NamingContextExt::StringName._tc.validate(n)
+      _ret = self._invoke('resolve_str', {
+        :arg_list => [
+          ['n', CORBA::ARG_IN, CosNaming::NamingContextExt::StringName._tc, n]],
+        :result_type => CORBA._tc_Object,
+        :exc_list => [
+          CosNaming::NamingContext::NotFound._tc,
+          CosNaming::NamingContext::CannotProceed._tc,
+          CosNaming::NamingContext::InvalidName._tc]})
+      _ret
+    end #of operation resolve_str
+  end #of interface NamingContextExt
+
+end #of module CosNaming
+
+} ## end of 'CosNaming.idl'
+# -*- END -*-