1 files changed, 132 insertions, 0 deletions
diff --git a/TAO/tests/CodeSets/simple/client.cpp b/TAO/tests/CodeSets/simple/client.cpp
new file mode 100644
index 00000000000..09f6e6e1cc3
--- /dev/null
+++ b/TAO/tests/CodeSets/simple/client.cpp
@@ -0,0 +1,132 @@
+// -*- C++ -*-
+// $Id$
+
+// ============================================================================
+//
+// = LIBRARY
+//    TAO/tests/CodeSets/simple
+//
+// = FILENAME
+//    client.cpp
+//
+// = DESCRIPTION
+//   A simple client to demonstrate the use of codeset translation
+//
+// = AUTHORS
+//      Phil Mesnier <mesnier_p@ociweb.com>
+//
+// ============================================================================
+// IDL generated headers
+#include "simpleC.h"
+#include "ace/ace_wchar.h"
+
+// FUZZ: disable check_for_streams_include
+#include "ace/streams.h"
+
+#include "ace/OS_NS_string.h"
+#include "ace/Log_Msg.h"
+
+wchar_t *
+make_wstring (const char *str)
+{
+  // Short circuit null pointer case
+  if (str == 0)
+    return 0;
+
+  size_t len = strlen (str) + 1;
+  wchar_t *wstr = new wchar_t[len];
+  ACE_DEBUG ((LM_DEBUG,
+              "make_wstring: str = %s\n",str));
+  for (size_t i = 0; i < len; i++)
+    {
+      char *t = const_cast<char *> (str);
+      wstr[i] = static_cast<wchar_t> (*(t + i));
+      ACE_DEBUG ((LM_DEBUG,
+	              "wstr[%d] = %d\n", i, (short)wstr[i]));
+    }
+  return wstr;
+}
+
+// ------------------------------------------------------------
+// Client
+// ------------------------------------------------------------
+int main (int argc, char *argv[])
+{
+  char buf[1000];
+  int error_count = 0;
+
+  try
+    {
+      // Init the orb
+      CORBA::ORB_var orb= CORBA::ORB_init (argc,
+                                           argv,
+                                           "");
+
+      // Get IOR from command line (or file)
+      if (argc != 2)
+        {
+		  ACE_OS::strcpy (buf, "file://server.ior");
+        }
+      else
+        {
+          ACE_OS::strcpy (buf, argv[1]);
+        }
+
+      // The first arg should be the IOR
+      CORBA::Object_var object =
+        orb->string_to_object (buf);
+
+      // Get the server
+      simple_var server = simple::_narrow (object.in ());
+
+      const char *bare_string = "Hello World";
+
+      const char *any_string = "Any World";
+      CORBA::Any inarg;
+      inarg <<= any_string;
+      CORBA::Any_var outarg;
+
+      // Invoke the call.
+      CORBA::String_var reply =
+        server->op1 (bare_string,
+                     inarg,
+                     outarg.out ());
+
+      const char *any_reply;
+      outarg >>= any_reply;
+
+      ACE_DEBUG ((LM_DEBUG,
+                 "Client sent %s, got %s\n", bare_string, reply.in () ));
+
+      if (ACE_OS::strcmp (bare_string, reply.in ()) != 0)
+        {
+          ++error_count;
+        }
+
+      ACE_DEBUG ((LM_DEBUG,
+                 "Client sent %s, got %s\n", any_string, any_reply ));
+
+      if (ACE_OS::strcmp (any_string, any_reply) != 0)
+        {
+          ++error_count;
+        }
+#if defined (ACE_HAS_WCHAR)
+      wchar_t *wide_string = ACE_OS::strdup(ACE_TEXT_ALWAYS_WCHAR ("Wide String"));
+      wchar_t *wide_reply = server->op2 (wide_string);
+      ACE_DEBUG ((LM_DEBUG,
+                  "sent %W, got %W\n", wide_string, wide_reply));
+
+      ACE_OS::free (wide_string);
+      CORBA::wstring_free (wide_reply);
+#endif /* ACE_HAS_WCHAR */
+
+      server->shutdown ();
+    }
+  catch (const CORBA::Exception& ex)
+    {
+      ex._tao_print_exception ("Exception caught in client:");
+      return 1;
+    }
+
+  return error_count;
+}