diff options
Diffstat (limited to 'TAO/tests/Objref_Sequence_Test/client.cpp')
-rw-r--r-- | TAO/tests/Objref_Sequence_Test/client.cpp | 133 |
1 files changed, 133 insertions, 0 deletions
diff --git a/TAO/tests/Objref_Sequence_Test/client.cpp b/TAO/tests/Objref_Sequence_Test/client.cpp new file mode 100644 index 00000000000..3fb96a60ce4 --- /dev/null +++ b/TAO/tests/Objref_Sequence_Test/client.cpp @@ -0,0 +1,133 @@ +//$Id$ +#include "TestC.h" +#include "ace/Get_Opt.h" + +const char *ior = "file://test.ior"; + +int +parse_args (int argc, char *argv[]) +{ + ACE_Get_Opt get_opts (argc, argv, "k:"); + int c; + + while ((c = get_opts ()) != -1) + switch (c) + { + case 'k': + ior = get_opts.opt_arg (); + break; + + case '?': + default: + ACE_ERROR_RETURN ((LM_ERROR, + "usage: %s " + "-k <ior> " + "\n", + argv [0]), + -1); + } + // Indicates sucessful parsing of the command line + return 0; +} + + +int +main (int argc, char *argv []) +{ + ACE_DECLARE_NEW_CORBA_ENV; + + + + ACE_TRY + { + CORBA::ORB_var orb = + CORBA::ORB_init (argc, + argv, + "" + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + if (parse_args (argc, argv) == -1) + return -1; + + // Connect to the server + CORBA::Object_var tmp = + orb->string_to_object(ior + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + Server_var server = Server::_narrow (tmp.in () + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + // Create object instances + // This portion of the test was given by Petr Tuma and am just + // leaving it alone -- Bala + ServerSequence_var vServers; + ServerSequence_var vAddition; + + CORBA::ULong iStep; + CORBA::ULong iSize, iOldSize, iAddSize; + CORBA::ULong iCount; + + ACE_NEW_RETURN (vServers, + ServerSequence (), + -1); + + iSize = 1; + iStep = 1; + while (iSize <= 50000) + { + iOldSize = vServers->length (); + iAddSize = iSize - iOldSize; + + server->CreateExtra (iAddSize, + vAddition.out () + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + + vServers->length (iSize); + for (iCount = 0 ; iCount < iAddSize ; iCount ++) + { + vServers [iOldSize + iCount] = + Server::_duplicate (vAddition [iCount]); + }; + + vAddition = 0; + + if (iStep * 5 > iSize) + { + iSize += iStep; + } + else + { + iStep *= 10; + iSize = iStep; + }; + }; + + //------------- End of donated untouched section + + ACE_DEBUG ((LM_DEBUG, + "(%P|%t) Call delete on the server \n")); + + server->DeleteExtra (vServers.in () + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + ACE_DEBUG ((LM_DEBUG, + "(%P|%t) Calling shutdown \n")); + server->shutdown (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_TRY_CHECK; + + } + ACE_CATCHANY + { + ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, ""); + ACE_CHECK_RETURN (-1); + } + ACE_ENDTRY; + + return 0; +} |