diff options
Diffstat (limited to 'TAO/examples/POA/DSI')
-rw-r--r-- | TAO/examples/POA/DSI/DSI.DSW | 41 | ||||
-rw-r--r-- | TAO/examples/POA/DSI/Database.idl | 73 | ||||
-rw-r--r-- | TAO/examples/POA/DSI/Database_i.cpp | 325 | ||||
-rw-r--r-- | TAO/examples/POA/DSI/Database_i.h | 116 | ||||
-rw-r--r-- | TAO/examples/POA/DSI/Makefile | 60 | ||||
-rw-r--r-- | TAO/examples/POA/DSI/README | 5 | ||||
-rw-r--r-- | TAO/examples/POA/DSI/client.cpp | 169 | ||||
-rw-r--r-- | TAO/examples/POA/DSI/client.dsp | 209 | ||||
-rwxr-xr-x | TAO/examples/POA/DSI/run_test.pl | 21 | ||||
-rw-r--r-- | TAO/examples/POA/DSI/server.cpp | 234 | ||||
-rw-r--r-- | TAO/examples/POA/DSI/server.dsp | 206 |
11 files changed, 0 insertions, 1459 deletions
diff --git a/TAO/examples/POA/DSI/DSI.DSW b/TAO/examples/POA/DSI/DSI.DSW deleted file mode 100644 index 81ea7e514fa..00000000000 --- a/TAO/examples/POA/DSI/DSI.DSW +++ /dev/null @@ -1,41 +0,0 @@ -Microsoft Developer Studio Workspace File, Format Version 5.00 -# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! - -############################################################################### - -Project: "client"=.\client.dsp - Package Owner=<4> - -Package=<5> -{{{ -}}} - -Package=<4> -{{{ -}}} - -############################################################################### - -Project: "server"=.\server.dsp - Package Owner=<4> - -Package=<5> -{{{ -}}} - -Package=<4> -{{{ -}}} - -############################################################################### - -Global: - -Package=<5> -{{{ -}}} - -Package=<3> -{{{ -}}} - -############################################################################### - diff --git a/TAO/examples/POA/DSI/Database.idl b/TAO/examples/POA/DSI/Database.idl deleted file mode 100644 index ed1a44b971a..00000000000 --- a/TAO/examples/POA/DSI/Database.idl +++ /dev/null @@ -1,73 +0,0 @@ -// $Id$ - -module Database -{ - typedef unsigned long Flags; - - typedef string Identifier; - - exception Unknown_Type - { - string type; - }; - - exception Unknown_Key - { - string key; - }; - - exception Duplicate_Key - { - string key; - }; - - exception Not_Found - { - string key; - }; - - interface Entry - { - readonly attribute string name; - }; - - interface Employee : Entry - { - attribute long id; - }; - - /* - interface Machine : Entry - { - attribute string make; - }; - */ - - struct NamedValue - { - Identifier name; - any value; - Flags flags; - }; - - typedef sequence<NamedValue> NVPairSequence; - - interface Agent - { - Entry create_entry (in string key, - in Identifier entry_type, - in NVPairSequence initial_attributes) - raises (Unknown_Type, - Duplicate_Key); - - Entry find_entry (in string key, - in Identifier entry_type) - raises (Unknown_Type, - Not_Found); - - void destroy_entry (in string key, - in Identifier entry_type) - raises (Unknown_Type, - Unknown_Key); - }; -}; diff --git a/TAO/examples/POA/DSI/Database_i.cpp b/TAO/examples/POA/DSI/Database_i.cpp deleted file mode 100644 index 1076bce4276..00000000000 --- a/TAO/examples/POA/DSI/Database_i.cpp +++ /dev/null @@ -1,325 +0,0 @@ -// $Id$ - -#include "Database_i.h" - -ACE_RCSID(DSI, Database_i, "$Id$") - -DatabaseImpl::Simpler_Malloc::Simpler_Malloc (void) - : MALLOC (ACE_DEFAULT_BACKING_STORE) -{ -} - -DatabaseImpl::Entry::Entry (CORBA::ORB_ptr orb, - PortableServer::POA_ptr poa) - : orb_ (CORBA::ORB::_duplicate (orb)), - poa_ (PortableServer::POA::_duplicate (poa)) -{ -} - -DatabaseImpl::Entry::~Entry (void) -{ -} - -void -DatabaseImpl::Entry::invoke (CORBA::ServerRequest_ptr request, - CORBA::Environment &env) -{ - // Get the POA Current object reference - CORBA::Object_var obj = this->orb_->resolve_initial_references ("POACurrent"); - - // Narrow the object reference to a POA Current reference - PortableServer::Current_var poa_current = PortableServer::Current::_narrow (obj.in (), env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::Current::_narrow"); - return; - } - - // The servant determines the key associated with thex database entry - // represented by self - PortableServer::ObjectId_var oid = poa_current->get_object_id (env); - if (env.exception () != 0) - return; - - // Now convert the id into a string - CORBA::String_var key = PortableServer::ObjectId_to_string (oid.in ()); - - // Get the operation name for this request - const char *operation = request->operation (); - - if (ACE_OS::strcmp (operation, "_is_a") == 0) - this->_is_a (request, env); - else - { - env.exception (new CORBA::NO_IMPLEMENT (CORBA::COMPLETED_NO)); - return; - } -} - -void -DatabaseImpl::Entry::_is_a (CORBA::ServerRequest_ptr request, - CORBA::Environment &env) -{ - CORBA::NVList_ptr list; - this->orb_->create_list (1, list); - - char *value = 0; - CORBA::Any any_1 (CORBA::_tc_string, &value); - - CORBA::NamedValue_ptr named_value_1 = list->add_value ("value", - any_1, - CORBA::ARG_IN, - env); - if (env.exception () != 0) - return; - - request->arguments (list, - env); - if (env.exception () != 0) - return; - - CORBA::Boolean result; - if (!ACE_OS::strcmp (value, "IDL:Database/Employee:1.0") || - !ACE_OS::strcmp (value, "IDL:Database/Entry:1.0") || - !ACE_OS::strcmp (value, CORBA::_tc_Object->id (env))) - result = 1; - else - result = 0; - - CORBA::Any result_any; - CORBA::Any::from_boolean from_boolean (result); - result_any <<= from_boolean; - - request->set_result (result_any, env); -} - -CORBA::RepositoryId -DatabaseImpl::Entry::_primary_interface (const PortableServer::ObjectId &oid, - PortableServer::POA_ptr poa, - CORBA::Environment &env) -{ - return 0; -} - -PortableServer::POA_ptr -DatabaseImpl::Entry::_default_POA (CORBA::Environment &env) -{ - ACE_UNUSED_ARG (env); - return PortableServer::POA::_duplicate (this->poa_.in ()); -} - -DatabaseImpl::Agent::Agent (CORBA::ORB_ptr orb, - PortableServer::POA_ptr poa) - : orb_ (CORBA::ORB::_duplicate (orb)), - poa_ (PortableServer::POA::_duplicate (poa)), - common_servant_ (orb, poa) -{ - CORBA::Environment env; - - this->poa_->set_servant (&this->common_servant_, env); - if (env.exception () != 0) - { - ACE_ERROR ((LM_ERROR, "PortableServer::POA::set_servant\n")); - ACE_OS::exit (-1); - } -} - -DatabaseImpl::Agent::~Agent (void) -{ -} - -Database::Entry_ptr -DatabaseImpl::Agent::create_entry (const char *key, - const char *entry_type, - const Database::NVPairSequence &initial_attributes, - CORBA::Environment &env) -{ - // Create a new entry in the database: - if (ACE_OS::strcmp (entry_type, "Employee") != 0 || - initial_attributes.length () != 2) - { - CORBA::Exception *exception = new Database::Unknown_Type (entry_type); - env.exception (exception); - return Database::Entry::_nil (); - } - - char *name = 0; - CORBA::Long id = 0; - - const Database::NamedValue &first = initial_attributes[0]; - const Database::NamedValue &second = initial_attributes[1]; - if (ACE_OS::strcmp (first.name.in (), "name") != 0 || - ACE_OS::strcmp (second.name.in (), "id") != 0) - { - CORBA::Exception *exception = new Database::Unknown_Type (entry_type); - env.exception (exception); - return Database::Entry::_nil (); - } - - first.value >>= name; - second.value >>= id; - - Employee *new_employee = new Employee (name, id); - DATABASE::instance ()->bind (key, new_employee); - - // creates a reference to the CORBA object used to encapsulate - // access to the new entry in the database. There is an interface - // for each entry type: - PortableServer::ObjectId_var obj_id = PortableServer::string_to_ObjectId (key); - CORBA::String_var repository_id = DatabaseImpl::entry_type_to_repository_id ("Entry"); - CORBA::Object_var obj = this->poa_->create_reference_with_id (obj_id.in (), - repository_id.in (), - env); - Database::Entry_var entry = Database::Entry::_narrow (obj, env); - if (env.exception () != 0) - return Database::Entry::_nil (); - - return entry._retn (); -} - -Database::Entry_ptr -DatabaseImpl::Agent::find_entry (const char *key, - const char *entry_type, - CORBA::Environment &env) -{ - if (ACE_OS::strcmp (entry_type, "Employee") != 0) - { - CORBA::Exception *exception = new Database::Unknown_Type (entry_type); - env.exception (exception); - return Database::Entry::_nil (); - } - - void *temp; - if (DATABASE::instance ()->find (key, temp) == 0) - { - Employee *employee = (Employee *) temp; - - // creates a reference to the CORBA object used to encapsulate - // access to the new entry in the database. There is an interface - // for each entry type: - PortableServer::ObjectId_var obj_id = PortableServer::string_to_ObjectId (key); - CORBA::String_var repository_id = DatabaseImpl::entry_type_to_repository_id ("Entry"); - CORBA::Object_var obj = this->poa_->create_reference_with_id (obj_id.in (), - repository_id.in (), - env); - Database::Entry_var entry = Database::Entry::_narrow (obj, env); - if (env.exception () != 0) - return Database::Entry::_nil (); - - return entry._retn (); - } - - else - { - CORBA::Exception *exception = new Database::Unknown_Key (key); - env.exception (exception); - return Database::Entry::_nil (); - } -} - -void -DatabaseImpl::Agent::destroy_entry (const char *key, - const char *entry_type, - CORBA::Environment &env) -{ - if (ACE_OS::strcmp (entry_type, "Employee") != 0) - { - CORBA::Exception *exception = new Database::Unknown_Type (entry_type); - env.exception (exception); - return; - } - - void *temp; - if (DATABASE::instance ()->unbind (key, temp) == 0) - { - Employee *employee = (Employee *) temp; - delete employee; - } - else - { - CORBA::Exception *exception = new Database::Unknown_Key (key); - env.exception (exception); - return; - } -} - -PortableServer::POA_ptr -DatabaseImpl::Agent::_default_POA (CORBA::Environment &env) -{ - ACE_UNUSED_ARG (env); - return PortableServer::POA::_duplicate (this->poa_.in ()); -} - -char * -DatabaseImpl::entry_type_to_repository_id (const char *entry_type) -{ - static const char *prefix = "IDL:Database/"; - static int prefix_length = ACE_OS::strlen (prefix); - static const char *suffix = ":1.0"; - static int suffix_length = ACE_OS::strlen (prefix); - - int len = - prefix_length + - ACE_OS::strlen (entry_type) + - suffix_length + - 1; - - char *result = CORBA::string_alloc (len); - ACE_OS::sprintf (result, - "%s%s%s", - prefix, - entry_type, - suffix); - return result; -} - -DatabaseImpl::Employee::Employee (const char* name, - CORBA::Long id) - : id_ (id), - name_ (0) -{ - this->name (name); -} - -DatabaseImpl::Employee::~Employee (void) -{ - DATABASE::instance ()->free (this->name_); -} - -const char * -DatabaseImpl::Employee::name (void) const -{ - return this->name_; -} - -void -DatabaseImpl::Employee::name (const char* name) -{ - DATABASE::instance ()->free (this->name_); - this->name_ = (char *) DATABASE::instance ()->malloc (ACE_OS::strlen (name) + 1); - ACE_OS::strcpy (this->name_, name); -} - -CORBA::Long -DatabaseImpl::Employee::id (void) const -{ - return this->id_; -} - -void -DatabaseImpl::Employee::id (CORBA::Long id) -{ - this->id_ = id; -} - -void * -DatabaseImpl::Employee::operator new (size_t size) -{ - return DATABASE::instance ()->malloc (size); -} - -void -DatabaseImpl::Employee::operator delete (void *pointer) -{ - DATABASE::instance ()->free (pointer); -} diff --git a/TAO/examples/POA/DSI/Database_i.h b/TAO/examples/POA/DSI/Database_i.h deleted file mode 100644 index c87bf9980ea..00000000000 --- a/TAO/examples/POA/DSI/Database_i.h +++ /dev/null @@ -1,116 +0,0 @@ -// $Id$ - -#include "DatabaseS.h" -#include "ace/Malloc.h" - -class DatabaseImpl -{ -public: - - typedef ACE_Malloc <ACE_MMAP_MEMORY_POOL, ACE_Null_Mutex> MALLOC; - - class Simpler_Malloc : public MALLOC - { - public: - Simpler_Malloc (void); - }; - - typedef ACE_Singleton <Simpler_Malloc, ACE_Null_Mutex> DATABASE; - typedef ACE_Malloc_Iterator <ACE_MMAP_MEMORY_POOL, ACE_Null_Mutex> DATABASE_ITERATOR; - - class Entry : public PortableServer::DynamicImplementation - { - public: - Entry (CORBA::ORB_ptr orb, - PortableServer::POA_ptr poa); - ~Entry (void); - - virtual void invoke (CORBA::ServerRequest_ptr request, - CORBA::Environment &env); - // The invoke() method receives requests issued to any CORBA - // object incarnated by the DSI servant and performs the - // processing necessary to execute the request. - - virtual CORBA::RepositoryId _primary_interface (const PortableServer::ObjectId &oid, - PortableServer::POA_ptr poa, - CORBA::Environment &env); - // The _primary_interface() method receives an ObjectId value and - // a POA_ptr as input parameters and returns a valid RepositoryId - // representing the most-derived interface for that oid. - - virtual PortableServer::POA_ptr _default_POA (CORBA::Environment &env); - // Returns the default POA for this servant. - - virtual void _is_a (CORBA::ServerRequest_ptr request, - CORBA::Environment &env); - // Handles the _is_a call - - protected: - CORBA::ORB_var orb_; - // ORB (auto) pointer - - PortableServer::POA_var poa_; - // Default POA - }; - - class Agent : public POA_Database::Agent - { - public: - Agent (CORBA::ORB_ptr orb, - PortableServer::POA_ptr poa); - ~Agent (void); - - virtual Database::Entry_ptr create_entry (const char *key, - const char *entry_type, - const Database::NVPairSequence &initial_attributes, - CORBA::Environment &env); - - virtual Database::Entry_ptr find_entry (const char *key, - const char *entry_type, - CORBA::Environment &env); - - virtual void destroy_entry (const char *key, - const char *entry_type, - CORBA::Environment &env); - - virtual PortableServer::POA_ptr _default_POA (CORBA::Environment &env); - // Returns the default POA for this servant. - - protected: - Entry common_servant_; - - CORBA::ORB_var orb_; - // ORB (auto) pointer - - PortableServer::POA_var poa_; - // Default POA - }; - - static char *entry_type_to_repository_id (const char *entry_type); - - class Employee - { - public: - Employee (const char* name, - CORBA::Long id); - - ~Employee (void); - - const char *name (void) const; - void name (const char* name); - - CORBA::Long id (void) const; - void id (CORBA::Long id); - - void *operator new (size_t); - void operator delete (void *pointer); - - private: - char *name_; - // Employee name. - - CORBA::Long id_; - // Employee ID. - }; - -}; diff --git a/TAO/examples/POA/DSI/Makefile b/TAO/examples/POA/DSI/Makefile deleted file mode 100644 index 08bd749d7d8..00000000000 --- a/TAO/examples/POA/DSI/Makefile +++ /dev/null @@ -1,60 +0,0 @@ -#---------------------------------------------------------------------------- -# -# $Id$ -# -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -ifndef TAO_ROOT - TAO_ROOT = $(ACE_ROOT)/TAO -endif # ! TAO_ROOT - -LDLIBS = -lTAO - -IDL_SRC = DatabaseC.cpp DatabaseS.cpp -PROG_SRCS = $(IDL_SRC) server.cpp client.cpp Database_i.cpp - -LSRC = $(PROG_SRCS) - -FILE_SVR_OBJS = DatabaseC.o DatabaseS.o server.o Database_i.o -FILE_CLT_OBJS = DatabaseC.o DatabaseS.o client.o - -BIN = server client -BUILD = $(BIN) -VLDLIBS = $(LDLIBS:%=%$(VAR)) -VBIN = $(BIN:%=%$(VAR)) - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -include $(ACE_ROOT)/include/makeinclude/wrapper_macros.GNU -include $(ACE_ROOT)/include/makeinclude/macros.GNU -include $(TAO_ROOT)/rules.tao.GNU -include $(ACE_ROOT)/include/makeinclude/rules.common.GNU -include $(ACE_ROOT)/include/makeinclude/rules.nonested.GNU -#include $(ACE_ROOT)/include/makeinclude/rules.bin.GNU -include $(ACE_ROOT)/include/makeinclude/rules.local.GNU -include $(TAO_ROOT)/taoconfig.mk - - -.PRECIOUS: DatabaseC.h DatabaseC.i DatabaseC.cpp DatabaseS.h DatabaseS.i DatabaseS.cpp - -server: $(addprefix $(VDIR),$(FILE_SVR_OBJS)) - $(LINK.cc) $(LDFLAGS) -o $@ $^ $(VLDLIBS) $(POSTLINK) - -client: $(addprefix $(VDIR),$(FILE_CLT_OBJS)) - $(LINK.cc) $(LDFLAGS) -o $@ $^ $(VLDLIBS) $(POSTLINK) - -realclean: clean - -/bin/rm -rf DatabaseC.* DatabaseS.* - -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - - - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/examples/POA/DSI/README b/TAO/examples/POA/DSI/README deleted file mode 100644 index 34a850ea3de..00000000000 --- a/TAO/examples/POA/DSI/README +++ /dev/null @@ -1,5 +0,0 @@ -$Id$ -Note: If you run the test, and nothing happens, that's a good thing. This -is more of an example than a test, and therefore is not very -verbose.If you pass the [-d] argument to the server, it will print out -some generic debugging info (multiple [-d]'s alter the output). diff --git a/TAO/examples/POA/DSI/client.cpp b/TAO/examples/POA/DSI/client.cpp deleted file mode 100644 index 88472c14903..00000000000 --- a/TAO/examples/POA/DSI/client.cpp +++ /dev/null @@ -1,169 +0,0 @@ -// $Id$ - -//=================================================================== -// = LIBRARY -// TAO/tests/POA/DSI/client -// -// = FILENAME -// client.cpp -// -// = DESCRIPTION -// A client program for the Database IDL module -// -// = AUTHOR -// Irfan Pyarali -// -//==================================================================== - -#include "ace/Get_Opt.h" -#include "ace/Read_Buffer.h" -#include "DatabaseC.h" - -ACE_RCSID(DSI, client, "$Id$") - -static char *ior = 0; -static char *iorfile = 0; -static int -parse_args (int argc, char **argv) -{ - ACE_Get_Opt get_opts (argc, argv, "k:d"); - int c; - - while ((c = get_opts ()) != -1) - switch (c) - { - case 'k': - iorfile = ACE_OS::strdup (get_opts.optarg); - break; - case 'd': - TAO_debug_level++; - break; - case '?': - default: - ACE_ERROR_RETURN ((LM_ERROR, - "usage: %s" - "[-k <iorfile>]" - "\n", - argv [0]), - -1); - } - - if (iorfile == 0) - ACE_ERROR_RETURN ((LM_ERROR, - "Please specify the IOR for the servant\n"), -1); - - // Indicates successful parsing of command line. - return 0; -} - -int -main (int argc, char **argv) -{ - CORBA::Environment env; - - // Initialize the ORB - CORBA::ORB_var orb = CORBA::ORB_init (argc, argv, 0, env); - if (env.exception () != 0) - { - env.print_exception ("CORBA::ORB_init"); - return -1; - } - - // Parse the command-line arguments to get the location of the IOR - if (parse_args (argc, argv) == -1) - return -1; - - // Read the file, and get the IOR - ACE_HANDLE input_file = ACE_OS::open (iorfile, 0); - if (input_file == ACE_INVALID_HANDLE) - ACE_ERROR_RETURN ((LM_DEBUG, - "Cannot open input file for reading IOR: %s\n", - iorfile), - -1); - ACE_Read_Buffer ior_buffer (input_file); - char *data = ior_buffer.read (); - if (data == 0) - ACE_ERROR_RETURN ((LM_ERROR, - "Unable to read ior\n"), - -1); - ior = ACE_OS::strdup (data); - ior_buffer.alloc ()-> free (data); - ACE_OS::close (input_file); - - // Get the object reference with the IOR - CORBA::Object_var object = orb->string_to_object (ior, env); - if (env.exception () != 0) - { - env.print_exception ("CORBA::ORB::string_to_object"); - return -1; - } - - // Narrow the object reference to a Database::Agent - Database::Agent_var database_agent = Database::Agent::_narrow (object.in (), env); - if (env.exception () != 0) - { - env.print_exception ("Database::Agent::_narrow"); - return -1; - } - - Database::NVPairSequence employee_attributes (2); - employee_attributes.length (2); - - Database::NamedValue &first = employee_attributes[0]; - Database::NamedValue &second = employee_attributes[1]; - - char *name = "irfan"; - CORBA::Long id = 555; - - first.name = CORBA::string_dup ("name"); - first.value <<= name; - second.name = CORBA::string_dup ("id"); - second.value <<= id; - - // Create an employee - Database::Entry_var entry = database_agent->create_entry ("irfan", - "Employee", - employee_attributes, - env); - if (env.exception () != 0) - { - env.print_exception ("Database::Agent::create_entry"); - return -1; - } - - Database::Employee_var employee = Database::Employee::_narrow (entry.in (), env); - if (env.exception () != 0) - { - env.print_exception ("Database::Employee::_narrow"); - return -1; - } - - /* - * - * NOT IMPLEMENTED YET - * - * - */ - -#if 0 - // Reset the id - employee->id (666, env); - if (env.exception () != 0) - { - env.print_exception ("Database::Employee::id"); - return -1; - } -#endif /* 0 */ - - // Destroy the employee - database_agent->destroy_entry ("irfan", - "Employee", - env); - if (env.exception () != 0) - { - env.print_exception ("Database::Entry::destroy"); - return -1; - } - - return 0; -} diff --git a/TAO/examples/POA/DSI/client.dsp b/TAO/examples/POA/DSI/client.dsp deleted file mode 100644 index 42bc61d8041..00000000000 --- a/TAO/examples/POA/DSI/client.dsp +++ /dev/null @@ -1,209 +0,0 @@ -# Microsoft Developer Studio Project File - Name="POA DSI Client" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Console Application" 0x0103
-
-CFG=POA DSI Client - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "client.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "client.mak" CFG="POA DSI Client - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "POA DSI Client - Win32 Release" (based on "Win32 (x86) Console Application")
-!MESSAGE "POA DSI Client - Win32 Debug" (based on "Win32 (x86) Console Application")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "POA DSI Client - Win32 Release"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "Release"
-# PROP BASE Intermediate_Dir "Release"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "Release"
-# PROP Ignore_Export_Lib 0
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD CPP /nologo /MD /W3 /GX /O2 /I "..\..\.." /I "..\..\..\.." /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /FD /c
-# SUBTRACT CPP /YX
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 ace.lib tao.lib /nologo /subsystem:console /machine:I386 /out:"Release/client.exe" /libpath:"..\..\..\tao" /libpath:"..\..\..\..\ace"
-# SUBTRACT LINK32 /pdb:none
-
-!ELSEIF "$(CFG)" == "POA DSI Client - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "Debug"
-# PROP BASE Intermediate_Dir "Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "Debug"
-# PROP Ignore_Export_Lib 0
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD CPP /nologo /MDd /W3 /Gm /GX /Zi /Od /I "..\..\.." /I "..\..\..\.." /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /FD /c
-# SUBTRACT CPP /YX
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 TAOd.lib aced.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept /libpath:"..\..\..\tao" /libpath:"..\..\..\..\ace"
-# SUBTRACT LINK32 /pdb:none
-
-!ENDIF
-
-# Begin Target
-
-# Name "POA DSI Client - Win32 Release"
-# Name "POA DSI Client - Win32 Debug"
-# Begin Group "Source Files"
-
-# PROP Default_Filter ""
-# Begin Source File
-
-SOURCE=.\client.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\DatabaseC.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\DatabaseS.cpp
-# End Source File
-# End Group
-# Begin Group "Header Files"
-
-# PROP Default_Filter ""
-# Begin Source File
-
-SOURCE=.\DatabaseC.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\DatabaseS.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\DatabaseS_T.h
-# End Source File
-# End Group
-# Begin Group "IDL Files"
-
-# PROP Default_Filter ""
-# Begin Source File
-
-SOURCE=.\Database.idl
-
-!IF "$(CFG)" == "POA DSI Client - Win32 Release"
-
-USERDEP__DATAB="..\..\..\tao_idl\Release\tao_idl.exe"
-# Begin Custom Build - Invoking TAO_IDL compiler
-InputPath=.\Database.idl
-InputName=Database
-
-BuildCmds= \
- ..\..\..\tao_idl\Release\tao_idl $(InputName).idl
-
-"$(InputPath)C.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)C.i" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)C.cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)S.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)S.i" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)S.cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)S_T.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)S_T.i" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)S_T.cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "POA DSI Client - Win32 Debug"
-
-USERDEP__DATAB="..\..\..\tao_idl\tao_idl.exe"
-# Begin Custom Build - Invoking TAO_IDL compiler
-InputPath=.\Database.idl
-InputName=Database
-
-BuildCmds= \
- ..\..\..\tao_idl\tao_idl $(InputName).idl
-
-"$(InputName)C.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)C.i" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)C.cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)S.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)S.i" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)S.cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)S_T.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)S_T.i" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)S_T.cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-# End Custom Build
-
-!ENDIF
-
-# End Source File
-# End Group
-# End Target
-# End Project
diff --git a/TAO/examples/POA/DSI/run_test.pl b/TAO/examples/POA/DSI/run_test.pl deleted file mode 100755 index 77416e8c4b5..00000000000 --- a/TAO/examples/POA/DSI/run_test.pl +++ /dev/null @@ -1,21 +0,0 @@ -#$Id$ -# -*- perl -*- -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -unshift @INC, '../../../../bin'; -require ACEutils; - -$iorfile = "server.ior"; -$SV = Process::Create ("server$Process::EXE_EXT", " -o $iorfile"); - -ACE::waitforfile ($iorfile); - -$status = system ("client$Process::EXE_EXT -k $iorfile"); - -$SV->Kill (); $SV->Wait (); - -unlink $iorfile; - -exit $status; diff --git a/TAO/examples/POA/DSI/server.cpp b/TAO/examples/POA/DSI/server.cpp deleted file mode 100644 index 3d1d3536b1a..00000000000 --- a/TAO/examples/POA/DSI/server.cpp +++ /dev/null @@ -1,234 +0,0 @@ -// $Id$ - -//=================================================================== -// = LIBRARY -// TAO/tests/POA/Default_Servant/server -// -// = FILENAME -// server.cpp -// -// = DESCRIPTION -// A server program for the File IDL module -// -// = AUTHOR -// Irfan Pyarali -// -//==================================================================== - -#include "Database_i.h" - -ACE_RCSID(DSI, server, "$Id$") - -static char *ior_output_file = 0; - -static int -parse_args (int argc, char **argv) -{ - ACE_Get_Opt get_opts (argc, argv, "o:d"); - int c; - - while ((c = get_opts ()) != -1) - switch (c) - { - case 'o': - ior_output_file = ACE_OS::strdup (get_opts.optarg); - break; - case 'd': - TAO_debug_level++; - break; - case '?': - default: - ACE_ERROR_RETURN ((LM_ERROR, - "usage: %s " - "[-oior_output_file]" - "[-d]" - "\n", - argv [0]), - -1); - } - - // Indicates successful parsing of command line. - return 0; -} - -int -main (int argc, char **argv) -{ - CORBA::Environment env; - - // Initialize the ORB - CORBA::ORB_var orb = CORBA::ORB_init (argc, argv, 0, env); - if (env.exception () != 0) - { - env.print_exception ("CORBA::ORB_init"); - return -1; - } - - int result = parse_args (argc, argv); - if (result != 0) - return result; - - // Get the Root POA object reference - CORBA::Object_var obj = orb->resolve_initial_references ("RootPOA"); - - // Narrow the object reference to a POA reference - PortableServer::POA_var root_poa = PortableServer::POA::_narrow (obj.in (), env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POA::_narrow"); - return -1; - } - - PortableServer::POAManager_var poa_manager = root_poa->the_POAManager (env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POA::the_POAManager"); - return -1; - } - - CORBA::PolicyList policies (5); - policies.length (5); - - // ID Assignment Policy - policies[0] = - root_poa->create_id_assignment_policy (PortableServer::USER_ID, env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POA::create_id_assignment_policy"); - return -1; - } - - // Lifespan Policy - policies[1] = - root_poa->create_lifespan_policy (PortableServer::PERSISTENT, env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POA::create_lifespan_policy"); - return -1; - } - - // Request Processing Policy - policies[2] = - root_poa->create_request_processing_policy (PortableServer::USE_DEFAULT_SERVANT, env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POA::create_request_processing_policy"); - return -1; - } - - // Servant Retention Policy - policies[3] = - root_poa->create_servant_retention_policy (PortableServer::RETAIN, env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POA::create_servant_retention_policy"); - return -1; - } - - // Id Uniqueness Policy - policies[4] = - root_poa->create_id_uniqueness_policy (PortableServer::MULTIPLE_ID, env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POA::create_id_uniqueness_policy"); - return -1; - } - - ACE_CString name = "firstPOA"; - PortableServer::POA_var first_poa = root_poa->create_POA (name.c_str (), - poa_manager.in (), - policies, - env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POA::create_POA"); - return -1; - } - - for (CORBA::ULong i = 0; - i < policies.length () && env.exception () == 0; - ++i) - { - CORBA::Policy_ptr policy = policies[i]; - policy->destroy (env); - } - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POA::create_POA"); - return -1; - } - - // Create a Database Agent Implementation object in first_poa - DatabaseImpl::Agent database_agent_impl (orb.in (), - first_poa.in ()); - - PortableServer::ObjectId_var database_agent_oid = - PortableServer::string_to_ObjectId ("DatabaseAgent"); - - first_poa->activate_object_with_id (database_agent_oid.in (), - &database_agent_impl, - env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POA::activate_object_with_id"); - return -1; - } - - CORBA::Object_var database_agent = - first_poa->id_to_reference (database_agent_oid.in (), env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POA::id_to_reference"); - return -1; - } - // Get the IOR for the "DatabaseAgent" object - CORBA::String_var database_agent_ior = - orb->object_to_string (database_agent.in (), env); - if (env.exception () != 0) - { - env.print_exception ("CORBA::ORB::object_to_string"); - return -1; - } - - if (TAO_debug_level > 0) - ACE_DEBUG ((LM_DEBUG,"%s\n", - database_agent_ior.in ())); - - // If the ior_output_file exists, output the ior to it - if (ior_output_file != 0) - { - FILE *output_file= ACE_OS::fopen (ior_output_file, "w"); - if (output_file == 0) - ACE_ERROR_RETURN ((LM_DEBUG, "Cannot open output file for writing IOR: %s", - ior_output_file), - -1); - ACE_OS::fprintf (output_file, "%s", database_agent_ior.in ()); - ACE_OS::fclose (output_file); - } - - // set the state of the poa_manager to active i.e ready to process requests - poa_manager->activate (env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POAManager::activate"); - return -1; - } - - // Run the ORB - if (orb->run () == -1) - ACE_ERROR_RETURN ((LM_ERROR, "%p\n", "CORBA::ORB::run"), -1); - - // Destroy the rootPOA and its children - root_poa->destroy (1, - 1, - env); - if (env.exception () != 0) - { - env.print_exception ("PortableServer::POA::destroy"); - return -1; - } - - return 0; -} - - diff --git a/TAO/examples/POA/DSI/server.dsp b/TAO/examples/POA/DSI/server.dsp deleted file mode 100644 index 7cc1fd71e25..00000000000 --- a/TAO/examples/POA/DSI/server.dsp +++ /dev/null @@ -1,206 +0,0 @@ -# Microsoft Developer Studio Project File - Name="POA DSI Server" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Console Application" 0x0103
-
-CFG=POA DSI Server - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "server.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "server.mak" CFG="POA DSI Server - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "POA DSI Server - Win32 Release" (based on\
- "Win32 (x86) Console Application")
-!MESSAGE "POA DSI Server - Win32 Debug" (based on\
- "Win32 (x86) Console Application")
-!MESSAGE
-
-# Begin Project
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "POA DSI Server - Win32 Release"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "Release"
-# PROP BASE Intermediate_Dir "Release"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "Release"
-# PROP Ignore_Export_Lib 0
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD CPP /nologo /MD /W3 /GX /O2 /I "..\..\.." /I "..\..\..\.." /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /FD /c
-# SUBTRACT CPP /YX
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 ace.lib tao.lib /nologo /subsystem:console /machine:I386 /libpath:"..\..\..\tao" /libpath:"..\..\..\..\ace"
-# SUBTRACT LINK32 /pdb:none
-
-!ELSEIF "$(CFG)" == "POA DSI Server - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "Debug"
-# PROP BASE Intermediate_Dir "Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "Debug"
-# PROP Ignore_Export_Lib 0
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c
-# ADD CPP /nologo /MDd /W3 /Gm /GX /Zi /Od /I "..\..\.." /I "..\..\..\.." /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /FD /c
-# SUBTRACT CPP /YX
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 TAOd.lib aced.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept /libpath:"..\..\..\tao" /libpath:"..\..\..\..\ace"
-# SUBTRACT LINK32 /pdb:none
-
-!ENDIF
-
-# Begin Target
-
-# Name "POA DSI Server - Win32 Release"
-# Name "POA DSI Server - Win32 Debug"
-# Begin Group "Source Files"
-
-# PROP Default_Filter ".cpp"
-# Begin Source File
-
-SOURCE=.\Database_i.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\DatabaseC.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\DatabaseS.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\server.cpp
-# End Source File
-# End Group
-# Begin Group "Header Files"
-
-# PROP Default_Filter ".h"
-# Begin Source File
-
-SOURCE=.\Database_i.h
-# End Source File
-# End Group
-# Begin Group "IDL Files"
-
-# PROP Default_Filter ".idl"
-# Begin Source File
-
-SOURCE=.\Database.idl
-
-!IF "$(CFG)" == "POA DSI Server - Win32 Release"
-
-USERDEP__DATAB="..\..\..\tao_idl\Release\tao_idl.exe"
-# Begin Custom Build - Invoking TAO_IDL compiler
-InputPath=.\Database.idl
-InputName=Database
-
-BuildCmds= \
- ..\..\..\tao_idl\Release\tao_idl $(InputName).idl
-
-"$(InputPath)C.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)C.i" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)C.cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)S.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)S.i" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)S.cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)S_T.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)S_T.i" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputPath)S_T.cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "POA DSI Server - Win32 Debug"
-
-USERDEP__DATAB="..\..\..\tao_idl\tao_idl.exe"
-# Begin Custom Build - Invoking TAO_IDL compiler
-InputPath=.\Database.idl
-InputName=Database
-
-BuildCmds= \
- ..\..\..\tao_idl\tao_idl $(InputName).idl
-
-"$(InputName)C.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)C.i" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)C.cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)S.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)S.i" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)S.cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)S_T.h" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)S_T.i" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-
-"$(InputName)S_T.cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- $(BuildCmds)
-# End Custom Build
-
-!ENDIF
-
-# End Source File
-# End Group
-# End Target
-# End Project
|