r2corba 1.4.1-x86-mingw32

data/lib/corba/idl/CosNamingS.rb

@@ -0,0 +1,309 @@
+# -*- 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/poa.rb'
+
+module POA
+  CORBA.implement('CosNaming.idl', {}, CORBA::IDL::SERVANT_INTF) {
+
+  module CosNaming
+
+    class BindingIterator < PortableServer::Servant; end  ## servant forward
+
+    class NamingContext < PortableServer::Servant ## servant
+
+      module Intf
+        Id = 'IDL:omg.org/CosNaming/NamingContext:1.0'.freeze
+        Ids = [ Id ]
+        Operations = {}
+
+        Operations.store(:bind, {
+          :arg_list => [
+            ['n', CORBA::ARG_IN, ::CosNaming::Name._tc],
+            ['obj', CORBA::ARG_IN, CORBA._tc_Object]],
+          :result_type => CORBA._tc_void,
+          :exc_list => [
+            ::CosNaming::NamingContext::NotFound._tc,
+            ::CosNaming::NamingContext::CannotProceed._tc,
+            ::CosNaming::NamingContext::InvalidName._tc,
+            ::CosNaming::NamingContext::AlreadyBound._tc]})
+
+        def bind(n, obj)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:rebind, {
+          :arg_list => [
+            ['n', CORBA::ARG_IN, ::CosNaming::Name._tc],
+            ['obj', CORBA::ARG_IN, CORBA._tc_Object]],
+          :result_type => CORBA._tc_void,
+          :exc_list => [
+            ::CosNaming::NamingContext::NotFound._tc,
+            ::CosNaming::NamingContext::CannotProceed._tc,
+            ::CosNaming::NamingContext::InvalidName._tc]})
+
+        def rebind(n, obj)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:bind_context, {
+          :arg_list => [
+            ['n', CORBA::ARG_IN, ::CosNaming::Name._tc],
+            ['nc', CORBA::ARG_IN, ::CosNaming::NamingContext._tc]],
+          :result_type => CORBA._tc_void,
+          :exc_list => [
+            ::CosNaming::NamingContext::NotFound._tc,
+            ::CosNaming::NamingContext::CannotProceed._tc,
+            ::CosNaming::NamingContext::InvalidName._tc,
+            ::CosNaming::NamingContext::AlreadyBound._tc]})
+
+        def bind_context(n, nc)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:rebind_context, {
+          :arg_list => [
+            ['n', CORBA::ARG_IN, ::CosNaming::Name._tc],
+            ['nc', CORBA::ARG_IN, ::CosNaming::NamingContext._tc]],
+          :result_type => CORBA._tc_void,
+          :exc_list => [
+            ::CosNaming::NamingContext::NotFound._tc,
+            ::CosNaming::NamingContext::CannotProceed._tc,
+            ::CosNaming::NamingContext::InvalidName._tc]})
+
+        def rebind_context(n, nc)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:resolve, {
+          :arg_list => [
+            ['n', CORBA::ARG_IN, ::CosNaming::Name._tc]],
+          :result_type => CORBA._tc_Object,
+          :exc_list => [
+            ::CosNaming::NamingContext::NotFound._tc,
+            ::CosNaming::NamingContext::CannotProceed._tc,
+            ::CosNaming::NamingContext::InvalidName._tc]})
+
+        def resolve(n)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:unbind, {
+          :arg_list => [
+            ['n', CORBA::ARG_IN, ::CosNaming::Name._tc]],
+          :result_type => CORBA._tc_void,
+          :exc_list => [
+            ::CosNaming::NamingContext::NotFound._tc,
+            ::CosNaming::NamingContext::CannotProceed._tc,
+            ::CosNaming::NamingContext::InvalidName._tc]})
+
+        def unbind(n)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:new_context, {
+          :result_type => ::CosNaming::NamingContext._tc})
+
+        def new_context()
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:bind_new_context, {
+          :arg_list => [
+            ['n', CORBA::ARG_IN, ::CosNaming::Name._tc]],
+          :result_type => ::CosNaming::NamingContext._tc,
+          :exc_list => [
+            ::CosNaming::NamingContext::NotFound._tc,
+            ::CosNaming::NamingContext::AlreadyBound._tc,
+            ::CosNaming::NamingContext::CannotProceed._tc,
+            ::CosNaming::NamingContext::InvalidName._tc]})
+
+        def bind_new_context(n)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:destroy, {
+          :result_type => CORBA._tc_void,
+          :exc_list => [
+            ::CosNaming::NamingContext::NotEmpty._tc]})
+
+        def destroy()
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:list, {
+          :arg_list => [
+            ['how_many', CORBA::ARG_IN, CORBA._tc_ulong],
+            ['bl', CORBA::ARG_OUT, ::CosNaming::BindingList._tc],
+            ['bi', CORBA::ARG_OUT, ::CosNaming::BindingIterator._tc]],
+          :result_type => CORBA._tc_void})
+
+        def list(how_many)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+      end #of Intf
+
+      Id = Intf::Id
+
+      include_interface(PortableServer::Servant::Intf)
+
+      include Intf
+
+      def _this; ::CosNaming::NamingContext._narrow(super); end
+    end #of servant NamingContext
+
+    class BindingIterator < PortableServer::Servant ## servant
+
+      module Intf
+        Id = 'IDL:omg.org/CosNaming/BindingIterator:1.0'.freeze
+        Ids = [ Id ]
+        Operations = {}
+
+        Operations.store(:next_one, {
+          :arg_list => [
+            ['b', CORBA::ARG_OUT, ::CosNaming::Binding._tc]],
+          :result_type => CORBA._tc_boolean})
+
+        def next_one()
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:next_n, {
+          :arg_list => [
+            ['how_many', CORBA::ARG_IN, CORBA._tc_ulong],
+            ['bl', CORBA::ARG_OUT, ::CosNaming::BindingList._tc]],
+          :result_type => CORBA._tc_boolean})
+
+        def next_n(how_many)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:destroy, {
+          :result_type => CORBA._tc_void})
+
+        def destroy()
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+      end #of Intf
+
+      Id = Intf::Id
+
+      include_interface(PortableServer::Servant::Intf)
+
+      include Intf
+
+      def _this; ::CosNaming::BindingIterator._narrow(super); end
+    end #of servant BindingIterator
+
+    class NamingContextExt < PortableServer::Servant ## servant
+
+      module Intf
+        Id = 'IDL:omg.org/CosNaming/NamingContextExt:1.0'.freeze
+        Ids = [ Id ]
+        Operations = {}
+
+        Operations.store(:to_string, {
+          :arg_list => [
+            ['n', CORBA::ARG_IN, ::CosNaming::Name._tc]],
+          :result_type => ::CosNaming::NamingContextExt::StringName._tc,
+          :exc_list => [
+            ::CosNaming::NamingContext::InvalidName._tc]})
+
+        def to_string(n)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:to_name, {
+          :arg_list => [
+            ['sn', CORBA::ARG_IN, ::CosNaming::NamingContextExt::StringName._tc]],
+          :result_type => ::CosNaming::Name._tc,
+          :exc_list => [
+            ::CosNaming::NamingContext::InvalidName._tc]})
+
+        def to_name(sn)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:to_url, {
+          :arg_list => [
+            ['addr', CORBA::ARG_IN, ::CosNaming::NamingContextExt::Address._tc],
+            ['sn', CORBA::ARG_IN, ::CosNaming::NamingContextExt::StringName._tc]],
+          :result_type => ::CosNaming::NamingContextExt::URLString._tc,
+          :exc_list => [
+            ::CosNaming::NamingContextExt::InvalidAddress._tc,
+            ::CosNaming::NamingContext::InvalidName._tc]})
+
+        def to_url(addr, sn)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+        Operations.store(:resolve_str, {
+          :arg_list => [
+            ['n', CORBA::ARG_IN, ::CosNaming::NamingContextExt::StringName._tc]],
+          :result_type => CORBA._tc_Object,
+          :exc_list => [
+            ::CosNaming::NamingContext::NotFound._tc,
+            ::CosNaming::NamingContext::CannotProceed._tc,
+            ::CosNaming::NamingContext::InvalidName._tc]})
+
+        def resolve_str(n)
+          raise ::CORBA::NO_IMPLEMENT.new(
+                   'unimplemented servant operation',
+                   1, ::CORBA::COMPLETED_NO)
+        end
+
+      end #of Intf
+
+      Id = Intf::Id
+
+      include_interface(CosNaming::NamingContext::Intf)
+
+      include Intf
+
+      def _this; ::CosNaming::NamingContextExt._narrow(super); end
+    end #of servant NamingContextExt
+  end #of module CosNaming
+
+  } ## end of 'CosNaming.idl'
+end #of module POA
+# -*- 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/IORTableC.rb

@@ -0,0 +1,117 @@
+# -*- 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/IORTable.pidl', {}, CORBA::IDL::CLIENT_STUB) {
+
+  module IORTable
+
+    module Locator; end  ## interface forward
+
+    class AlreadyBound < CORBA::UserException
+
+      def AlreadyBound._tc
+        @@tc_AlreadyBound ||= CORBA::TypeCode::Except.new('IDL:IORTable/AlreadyBound:1.0'.freeze, 'AlreadyBound', self)
+      end
+      self._tc  # register typecode
+    end #of exception AlreadyBound
+
+    class NotFound < CORBA::UserException
+
+      def NotFound._tc
+        @@tc_NotFound ||= CORBA::TypeCode::Except.new('IDL:IORTable/NotFound:1.0'.freeze, 'NotFound', self)
+      end
+      self._tc  # register typecode
+    end #of exception NotFound
+
+    module Table  ## interface
+
+      Id = 'IDL:IORTable/Table:1.0'.freeze
+      Ids = [ Id ].freeze
+
+      def Table._tc; @@tc_Table ||= CORBA::TypeCode::ObjectRef.new(Id, 'Table', self); end
+      self._tc  # register typecode
+
+      def Table._narrow(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(obj)._unchecked_narrow!(self)
+      end
+
+      def Table._duplicate(obj)
+        obj
+      end
+
+      def _interface_repository_id
+        IORTable::Table::Id
+      end
+
+
+      def bind(object_key, iOR)
+        raise ::CORBA::NO_IMPLEMENT.new(
+                 'unimplemented operation on local interface',
+                 1, ::CORBA::COMPLETED_NO)
+      end #of operation bind
+
+      def rebind(object_key, iOR)
+        raise ::CORBA::NO_IMPLEMENT.new(
+                 'unimplemented operation on local interface',
+                 1, ::CORBA::COMPLETED_NO)
+      end #of operation rebind
+
+      def unbind(object_key)
+        raise ::CORBA::NO_IMPLEMENT.new(
+                 'unimplemented operation on local interface',
+                 1, ::CORBA::COMPLETED_NO)
+      end #of operation unbind
+
+      def set_locator(the_locator)
+        raise ::CORBA::NO_IMPLEMENT.new(
+                 'unimplemented operation on local interface',
+                 1, ::CORBA::COMPLETED_NO)
+      end #of operation set_locator
+    end #of interface Table
+
+
+    module Locator  ## interface
+
+      Id = 'IDL:IORTable/Locator:1.0'.freeze
+      Ids = [ Id ].freeze
+
+      def Locator._tc; @@tc_Locator ||= CORBA::TypeCode::ObjectRef.new(Id, 'Locator', self); end
+      self._tc  # register typecode
+
+      def Locator._narrow(obj)
+        return nil if CORBA.is_nil(obj)
+        return CORBA::Stub.create_stub(obj)._unchecked_narrow!(self)
+      end
+
+      def Locator._duplicate(obj)
+        obj
+      end
+
+      def _interface_repository_id
+        IORTable::Locator::Id
+      end
+
+
+      def locate(object_key)
+        raise ::CORBA::NO_IMPLEMENT.new(
+                 'unimplemented operation on local interface',
+                 1, ::CORBA::COMPLETED_NO)
+      end #of operation locate
+    end #of interface Locator
+
+  end #of module IORTable
+
+  } ## end of 'lib/corba/idl/IORTable.pidl'
+end #of module R2CORBA
+
+# -*- END -*-