First version

7 files changed, 4101 insertions, 0 deletions

diff --git a/TAO/orbsvcs/tests/Concurrency/CC_command.cpp b/TAO/orbsvcs/tests/Concurrency/CC_command.cpp
new file mode 100644
index 00000000000..4fde1a42b1d
--- /dev/null
+++ b/TAO/orbsvcs/tests/Concurrency/CC_command.cpp
@@ -0,0 +1,667 @@
+/* -*- C++ -*- */
+// $Id$
+// ============================================================================
+//
+// = LIBRARY
+//    TAO/orbsvcs/tests
+//
+// = FILENAME
+//    CC_command.cpp
+//
+// = DESCRIPTION
+//      This is the command classes for the test of the concurrency service.
+//
+// = AUTHORS
+//	Torben Worm <tworm@cs.wustl.edu>
+//
+// ============================================================================
+
+#include "CC_command.h"
+#include "CC_test_utils.h"
+#include "CC_naming_service.h"
+#include "ace/ACE.h"
+#include "ace/Process.h"
+#include "orbsvcs/CosConcurrencyControlC.h"
+#include <stdio.h>
+
+CC_Command::~CC_Command(void)
+{
+}
+
+int CC_Command::execute()
+{
+  return 0;
+}
+
+CC_Command::CC_Command(void)
+{
+}
+
+CosConcurrencyControl::LockSet_var
+CC_Command::GetLockSet(char *lock_set_name, CORBA::Environment &_env)
+{
+  TAO_TRY
+    {
+      if(ACE_OS::strcmp(lock_set_name, "")!=0)
+        {
+          CORBA::Object_var ccls_obj =
+            CC_naming_service::Instance()->get_obj_from_name ("", lock_set_name,
+                                                              TAO_TRY_ENV);
+          TAO_CHECK_ENV;
+
+          CosConcurrencyControl::LockSet_var ccls =
+            CosConcurrencyControl::LockSet::_narrow (ccls_obj.in (),
+                                                     TAO_TRY_ENV);
+          TAO_CHECK_ENV;
+
+          return ccls;
+        }
+      else
+        {
+          // No lock set name was given. Use the global lock set.
+          if(cc_lockset_==0)
+            {
+              TAO_TRY_ENV.clear();
+              TAO_TRY_ENV.exception (new CORBA::UNKNOWN (CORBA::COMPLETED_NO));
+            }
+          else
+            return cc_lockset_;
+        }
+    }
+  TAO_CATCHANY
+    {
+      TAO_RETHROW_RETURN(0);
+    }
+  TAO_ENDTRY;
+  // We should never get here
+  return 0;
+}
+
+CORBA::Exception *CC_Command::excep_ = 0;
+
+CosConcurrencyControl::LockSet_var CC_Command::cc_lockset_(0);
+
+CC_Start_Cmd::CC_Start_Cmd(char *config_file_name)
+  : cfg_name_ (config_file_name)
+{
+  //  printf("CC_Start_Cmd::CC_Start_Cmd: config: %s\n", config_file_name);
+}
+
+CC_Start_Cmd::~CC_Start_Cmd()
+{
+  // cfg_name_ is allocated in the lexer with strdup
+  if(cfg_name_)
+    {
+      ACE_OS::free(cfg_name_);
+      cfg_name_ = 0;
+    }
+}
+
+int CC_Start_Cmd::execute(void)
+{
+  if(excep_)
+    {
+      printf("Exception: %s\n", excep_->_id());
+      delete excep_;
+      excep_ = 0;
+      return 0; // CC_FAIL
+    }
+
+  printf("Executing start command (script file: %s)\n", cfg_name_);
+
+  char cmd_line[1024];
+  int success = ACE_OS::sprintf(&cmd_line[0], "%s -c %s",
+                                "./CC_client", cfg_name_);
+  if(success>=1024 || success==-1)
+    ACE_ERROR_RETURN((LM_ERROR, "Creation of process failed: %s\n",
+                      cmd_line), 0);
+
+  ACE_Process new_process;
+  ACE_Process_Options options;
+  options.command_line(cmd_line);
+
+  if(new_process.spawn(options) == -1)
+    {
+      ACE_ERROR_RETURN((LM_ERROR, "Creation of process failed: %s\n",
+                        cmd_line), 0);
+    }
+  return 1; // CC_SUCCESS
+}
+
+CC_CreateLockSet_Cmd::CC_CreateLockSet_Cmd(char *lock_set_name)
+  : name_ (lock_set_name)
+{
+  //  printf("CC_CreateLockSet_Cmd::CC_CreateLockSet_Cmd: lock set: %s\n",
+  //         lock_set_name);
+}
+
+CC_CreateLockSet_Cmd::~CC_CreateLockSet_Cmd()
+{
+  // name_ is allocated in the lexer with strdup
+  if(name_)
+    {
+      ACE_OS::free(name_);
+      name_ = 0;
+    }
+}
+
+int CC_CreateLockSet_Cmd::execute(void)
+{
+  if(excep_)
+    {
+      printf("Exception: %s\n", excep_->_id());
+      delete excep_;
+      excep_ = 0;
+      return 0; // CC_FAIL
+    }
+
+  printf("Executing create command (lock set: %s)\n", name_);
+
+  TAO_TRY
+    {
+      CosConcurrencyControl::LockSet_ptr lock_set =
+        CC_TestUtils::create_lock_set();
+      if(ACE_OS::strcmp(name_,"")!=0)// Do not bind an empty name
+        {
+          CC_naming_service::Instance()->bind_name(name_,
+                                                   lock_set, TAO_TRY_ENV);
+          TAO_CHECK_ENV;
+        }
+      else
+        {
+          // We did not specify a name => the global lock set variable is set
+          cc_lockset_ = lock_set;
+        }
+    }
+  TAO_CATCHANY
+    {
+      TAO_TRY_ENV.print_exception("CC_CreateLockSet_Cmd::execute(void)");
+      excep_ = TAO_TRY_ENV.exception();
+    }
+  TAO_ENDTRY;
+
+  return 1; // CC_SUCCESS
+}
+
+CC_Lock_Cmd::CC_Lock_Cmd(char *lock_set_name,
+                         CosConcurrencyControl::lock_mode mode)
+  : name_(lock_set_name), mode_(mode)
+{
+  //  printf("CC_Lock_Cmd::CC_Lock_Cmd: lock set: %s, mode: %s\n",
+  //         lock_set_name, CC_TestUtils::get_lock_mode_name(mode));
+}
+
+CC_Lock_Cmd::~CC_Lock_Cmd()
+{
+}
+
+int CC_Lock_Cmd::execute(void)
+{
+  if(excep_)
+    {
+      printf("Exception: %s\n", excep_->_id());
+      delete excep_;
+      excep_ = 0;
+      return 0; // CC_FAIL
+    }
+
+  printf("Executing lock command (lock set: %s, mode: %s)\n",
+         name_, CC_TestUtils::get_lock_mode_name(mode_));
+
+  TAO_TRY
+    {
+      CosConcurrencyControl::LockSet_var ccls = GetLockSet(name_, TAO_TRY_ENV);
+      TAO_CHECK_ENV;
+      ccls->lock (mode_,
+                  TAO_TRY_ENV);
+      TAO_CHECK_ENV;
+    }
+  TAO_CATCHANY
+    {
+      TAO_TRY_ENV.print_exception ("CC_Lock_Cmd::execute(void)");
+      excep_ = TAO_TRY_ENV.exception();
+      //      return 0; // should be CC_FAIL
+    }
+  TAO_ENDTRY;
+  return 1; // CC_SUCCESS
+}
+
+CC_UnLock_Cmd::CC_UnLock_Cmd(char *lock_set_name,
+                             CosConcurrencyControl::lock_mode mode)
+  : name_(lock_set_name), mode_ (mode)
+{
+  //  printf("CC_UnLock_Cmd::CC_UnLock_Cmd: lock set: %s, mode: %s\n",
+  //         lock_set_name, CC_TestUtils::get_lock_mode_name(mode));
+}
+
+CC_UnLock_Cmd::~CC_UnLock_Cmd()
+{
+}
+
+int CC_UnLock_Cmd::execute(void)
+{
+  if(excep_)
+    {
+      printf("Exception: %s\n", excep_->_id());
+      delete excep_;
+      excep_ = 0;
+      return 0; // CC_FAIL
+    }
+
+  printf("Executing unlock command (lock set: %s, mode: %s)\n",
+         name_, CC_TestUtils::get_lock_mode_name(mode_));
+
+  TAO_TRY
+    {
+      CosConcurrencyControl::LockSet_var ccls = GetLockSet(name_, TAO_TRY_ENV);
+      TAO_CHECK_ENV;
+
+      ccls->unlock (mode_,
+                    TAO_TRY_ENV);
+      TAO_CHECK_ENV;
+
+    }
+  TAO_CATCHANY
+    {
+      TAO_TRY_ENV.print_exception ("CC_UnLock_Cmd::execute(void)");
+      excep_ = TAO_TRY_ENV.exception();
+      //      return 0; // should be CC_FAIL
+    }
+  TAO_ENDTRY;
+  return 1; // CC_SUCCESS
+}
+
+CC_TryLock_Cmd::CC_TryLock_Cmd(char *lock_set_name,
+                               CosConcurrencyControl::lock_mode mode)
+  : name_ (lock_set_name), mode_ (mode)
+{
+  //  printf("CC_TryLock_Cmd::CC_TryLock_Cmd: lock set: %s, mode %s\n",
+  //         lock_set_name, CC_TestUtils::get_lock_mode_name(mode));
+}
+
+CC_TryLock_Cmd::~CC_TryLock_Cmd()
+{
+}
+
+int CC_TryLock_Cmd::execute(void)
+{
+  if(excep_)
+    {
+      printf("Exception: %s\n", excep_->_id());
+      delete excep_;
+      excep_ = 0;
+      return 0; // CC_FAIL
+    }
+
+  printf("Executing try_lock command (lock set: %s, mode: %s)\n",
+         name_, CC_TestUtils::get_lock_mode_name(mode_));
+
+  CORBA::Boolean lock_not_held;
+
+  TAO_TRY
+    {
+      CosConcurrencyControl::LockSet_var ccls = GetLockSet(name_, TAO_TRY_ENV);
+      TAO_CHECK_ENV;
+
+      lock_not_held = ccls->try_lock (mode_,
+                                      TAO_TRY_ENV);
+      TAO_CHECK_ENV;
+
+      if (lock_not_held)
+        {
+          ACE_DEBUG ((LM_DEBUG,
+                      "%s lock not held\n",
+                      CC_TestUtils::get_lock_mode_name (mode_)));
+        }
+      else
+        ACE_DEBUG ((LM_DEBUG,
+                    "%s lock held\n",
+                    CC_TestUtils::get_lock_mode_name (mode_)));
+    }
+  TAO_CATCHANY
+    {
+      TAO_TRY_ENV.print_exception ("CC_TryLock_Cmd::execute(void)");
+      excep_ = TAO_TRY_ENV.exception();
+      //      return 0; // Should be CC_FAIL
+    }
+  TAO_ENDTRY;
+
+  return 1; // CC_SUCCESS
+}
+
+CC_ChangeMode_Cmd::CC_ChangeMode_Cmd(char *lock_set_name,
+                                     CosConcurrencyControl::lock_mode held_mode,
+                                     CosConcurrencyControl::lock_mode new_mode)
+  : name_(lock_set_name), held_mode_ (held_mode), new_mode_ (new_mode)
+{
+  //  printf("CC_ChangeMode_Cmd::CC_ChangeMode_Cmd: lock set: %s, held mode: %s, new mode: %s\n",
+  //         lock_set_name,
+  //         CC_TestUtils::get_lock_mode_name(held_mode),
+  //         CC_TestUtils::get_lock_mode_name(new_mode));
+}
+
+CC_ChangeMode_Cmd::~CC_ChangeMode_Cmd()
+{
+}
+
+int CC_ChangeMode_Cmd::execute(void)
+{
+  if(excep_)
+    {
+      printf("Exception: %s\n", excep_->_id());
+      delete excep_;
+      excep_ = 0;
+      return 0; // CC_FAIL
+    }
+
+  printf("Executing change_mode command (lock set: %s, held_mode: %s, new_mode: %s)\n",
+         name_, CC_TestUtils::get_lock_mode_name(held_mode_),
+         CC_TestUtils::get_lock_mode_name(new_mode_));
+
+  TAO_TRY
+    {
+      CosConcurrencyControl::LockSet_var ccls = GetLockSet(name_, TAO_TRY_ENV);
+      TAO_CHECK_ENV;
+
+      ccls->change_mode (held_mode_, new_mode_,
+                    TAO_TRY_ENV);
+      TAO_CHECK_ENV;
+
+    }
+  TAO_CATCHANY
+    {
+      TAO_TRY_ENV.print_exception ("CC_ChangeMode_Cmd::execute(void)");
+      excep_ = TAO_TRY_ENV.exception();
+      //      return 0; // CC_FAIL
+    }
+  TAO_ENDTRY;
+  return 1; // CC_SUCCESS
+}
+
+CC_Sleep_Cmd::CC_Sleep_Cmd(int seconds)
+  : time_ (seconds)
+{
+  //  printf("CC_Sleep_Cmd::CC_Sleep_Cmd: time: %i\n", seconds);
+}
+
+CC_Sleep_Cmd::~CC_Sleep_Cmd()
+{
+}
+
+int CC_Sleep_Cmd::execute(void)
+{
+  if(excep_)
+    {
+      printf("Exception: %s\n", excep_->_id());
+      delete excep_;
+      excep_ = 0;
+      return 0; // CC_FAIL
+    }
+
+  printf("Executing sleep command (time: %i)\n", time_);
+
+  ACE_OS::sleep(time_);
+  return 1; // CC_SUCCESS
+}
+
+CC_Repeat_Cmd::CC_Repeat_Cmd(int times)
+  : times_ (times)
+{
+  //  printf("CC_Repeat_Cmd::CC_Repeat_Cmd: times: %i\n", times);
+}
+
+CC_Repeat_Cmd::~CC_Repeat_Cmd()
+{
+}
+
+int CC_Repeat_Cmd::execute(void)
+{
+  if(excep_)
+    {
+      printf("Exception: %s\n", excep_->_id());
+      delete excep_;
+      excep_ = 0;
+      return 0; // CC_FAIL
+    }
+
+  printf("Executing repeat command (times: %i)\n", times_);
+
+  return 1; // CC_SUCCESS
+}
+
+CC_Wait_Cmd::CC_Wait_Cmd(char *prompt)
+  : prompt_ (prompt)
+{
+  //  printf("CC_Wait_Cmd::CC_Wait_Cmd: prompt: %s\n", prompt);
+}
+
+CC_Wait_Cmd::~CC_Wait_Cmd()
+{
+}
+
+int CC_Wait_Cmd::execute(void)
+{
+  if(excep_)
+    {
+      printf("Exception: %s\n", excep_->_id());
+      delete excep_;
+      excep_ = 0;
+      return 0; // CC_FAIL
+    }
+
+  printf("Executing wait command\n");
+
+  char s[1];
+  printf("%s", prompt_);
+  ACE_OS::gets(&s[0]);
+  return 1; // CC_SUCCESS
+}
+
+CC_Excep_Cmd::CC_Excep_Cmd(char *excep)
+  : ex_(excep)
+{
+  //  printf("CC_Excep_Cmd::CC_Excep_Cmd: excep: %s\n", excep);
+}
+
+CC_Excep_Cmd::~CC_Excep_Cmd(void)
+{
+  if(ex_)
+    delete ex_;
+}
+
+int
+CC_Excep_Cmd::execute(void)
+{
+  printf("Executing excep command (expected: %s)\n", ex_);
+  // First we check to see if an exception has occured. If not we fail
+  // because we expected to see one
+  if(excep_==0)
+    return 0; // CC_FAIL
+
+  // If there is an exception check that it's the expected one
+  if(ACE_OS::strcmp(excep_->_id(), ex_)==0)
+    {
+      delete excep_;
+      excep_ = 0;
+      return 1; // CC_SUCCESS
+    }
+  else
+    {
+      printf("Exception: %s\n", excep_->_id());
+      delete excep_;
+      excep_ = 0;
+      return 0; // CC_FAIL
+    }
+  return 0; // CC_FAIL - we shouldn't end here
+}
+
+CC_Dummy_Cmd::CC_Dummy_Cmd(void)
+{
+}
+
+CC_Dummy_Cmd::~CC_Dummy_Cmd(void)
+{
+}
+
+int
+CC_Dummy_Cmd::execute(void)
+{
+  return 1; // CC_SUCCESS
+}
+
+CC_Print_Cmd::CC_Print_Cmd(char * message)
+  : msg_ (message)
+{
+}
+
+CC_Print_Cmd::~CC_Print_Cmd(void)
+{
+  if(msg_)
+    {
+      ACE_OS::free(msg_);
+      msg_ = 0;
+    }
+}
+
+int
+CC_Print_Cmd::execute(void)
+{
+  printf("%s\n", msg_);
+  return 1; // CC_SUCCESS
+}
+
+CC_Lookup_Cmd::CC_Lookup_Cmd(char *lock_set_name)
+  : name_ (lock_set_name)
+{
+}
+
+CC_Lookup_Cmd::~CC_Lookup_Cmd()
+{
+  if(name_)
+    {
+      ACE_OS::free(name_);
+      name_ = 0;
+    }
+}
+
+int
+CC_Lookup_Cmd::execute(void)
+{
+  if(excep_)
+    {
+      printf("Exception: %s\n", excep_->_id());
+      delete excep_;
+      excep_ = 0;
+      return 0; // CC_FAIL
+    }
+
+  printf("Executing lookup command (lock set: %s)\n", name_);
+
+  // Do the lookup if we haven't done it before
+  if(cc_lockset_ == 0)
+    {
+      TAO_TRY
+        {
+          CORBA::Object_var ccls_obj =
+            CC_naming_service::Instance()->get_obj_from_name ("", name_,
+                                                              TAO_TRY_ENV);
+          TAO_CHECK_ENV;
+
+          CosConcurrencyControl::LockSet_var ccls =
+            CosConcurrencyControl::LockSet::_narrow (ccls_obj.in (),
+                                                     TAO_TRY_ENV);
+          TAO_CHECK_ENV;
+
+          cc_lockset_ = ccls;
+          TAO_CHECK_ENV;
+
+        }
+      TAO_CATCHANY
+        {
+          TAO_TRY_ENV.print_exception ("CC_UnLock_Cmd::execute(void)");
+          excep_ = TAO_TRY_ENV.exception();
+          //      return 0; // CC_FAIL
+        }
+      TAO_ENDTRY;
+    }
+  return 1; // CC_SUCCESS
+}
+
+CC_CommandElem::CC_CommandElem(CC_Command *cmd, CC_CommandElem *next)
+  : next_ (next), cmd_ (cmd)
+{
+}
+
+CC_CommandElem::~CC_CommandElem(void)
+{
+}
+
+CC_Command *CC_CommandElem::GetCommand(void)
+{
+  return cmd_;
+}
+
+CC_CommandElem *
+CC_CommandElem::GetNext(void)
+{
+  return next_;
+}
+
+void
+CC_CommandElem::SetNext(CC_CommandElem *next)
+{
+  next_ = next;
+}
+
+CC_CommandList::CC_CommandList(void)
+  : head_ (0), last_ (0), times_ (1)
+{
+  printf("CC_CommandList::CC_CommandList\n");
+}
+
+CC_CommandList::~CC_CommandList(void)
+{
+}
+
+int
+CC_CommandList::add(CC_Command *cmd)
+{
+  if(head_==0)
+    {
+      head_ = new CC_CommandElem(cmd, 0);
+      last_ = head_;
+    }
+  else
+    {
+      CC_CommandElem *tmp = new CC_CommandElem(cmd, 0);
+      last_->SetNext(tmp);
+      last_ = tmp;
+    }
+  return 0;
+}
+
+int
+CC_CommandList::execute(void)
+{
+  CC_CommandElem *current = head_;
+
+  for(int i=0; i<times_; i++)
+    {
+      current = head_;
+      while(current!=0)
+        {
+          if(current->GetCommand()->execute()==0) // == CC_FAIL
+            {
+              return 0; // CC_FAIL
+            }
+          current = current->GetNext();
+        }
+    }
+  return 1; // CC_SUCCESS
+}
+
+void
+CC_CommandList::setrepeat(int times)
+{
+  times_ = times;
+}
diff --git a/TAO/orbsvcs/tests/Concurrency/CC_command.h b/TAO/orbsvcs/tests/Concurrency/CC_command.h
new file mode 100644
index 00000000000..35cc548f787
--- /dev/null
+++ b/TAO/orbsvcs/tests/Concurrency/CC_command.h
@@ -0,0 +1,471 @@
+// -*- c++ -*-
+// $Id$
+
+// ============================================================================
+//
+// = LIBRARY
+//    TAO/tests/Concurrency
+//
+// = FILENAME
+//    CC_command.h
+//
+// = DESCRIPTION
+//      This file implements the command possible to execute on the
+//      concurrency service's lock set interface. The file also contains
+//      an implementation of a command list used by the command parser to
+//      store the commands to be executed.
+//
+// = AUTHORS
+//    Torben Worm <tworm@cs.wustl.edu>
+//
+// ============================================================================
+
+#include "orbsvcs/CosConcurrencyControlC.h"
+
+#ifndef _CC_COMMAND_H_
+#define _CC_COMMAND_H_
+
+class CC_Command
+  // = TITLE
+  //    Defines an abstact class for the commands towards the lock set
+  //
+  // = DESCRIPTION
+  //    This class declares an interface to run a test towards one or more
+  //    lock sets in the concurrency service. The class provides a virtual
+  //    execute method that is common for all its subclasses. It is also the
+  //    the base class for the auxillary commands start, wait, and sleep.
+{
+ public:
+  ~CC_Command(void);
+  // Destructor
+
+  virtual int execute() = 0;
+  // Abstract execute method
+
+ protected:
+  CosConcurrencyControl::LockSet_var
+    CC_Command::GetLockSet(char *lock_set_name, CORBA::Environment &_env);
+  // Function to look up the lock set we are operating on, or if the
+  // name is "" return the global lock set variable
+
+  CC_Command(void);
+  // Default constructor. We do not want instances of this class
+
+  static CORBA::Exception *excep_;
+  // The last exception raised in one of the test commands. This variable
+  // is checked by all commands in order to determine if an exception has
+  // been raised. This is necessary because sometimes we want to check that
+  // an event caused an exception (done by the CC_Excep_Cmd command class)
+  // as part of the testing.
+
+  static CosConcurrencyControl::LockSet_var cc_lockset_;
+  // This is the default lock set. The variable is either set by a create
+  // command without name or by the lookup command.
+
+ private:
+};
+
+class CC_Start_Cmd:public CC_Command
+  // = TITLE
+  //    Defines a class for the start command
+  //
+  // = DESCRIPTION
+  //   This class represents the start command. The start command is used
+  //   to start a new process with another script file in order to test the
+  //   aspects of the concurrency service that requires several processes
+  //   running at the same time.
+{
+ public:
+  CC_Start_Cmd(char *config_file_name);
+  // Constructor
+
+  virtual ~CC_Start_Cmd();
+  // Destructor
+
+  virtual int execute(void);
+  // Start the child process. The current version does not wait for the
+  // process to terminate.
+
+ private:
+  char *cfg_name_;
+  // The name of the script file
+};
+
+class CC_CreateLockSet_Cmd:public CC_Command
+  // = TITLE
+  //    Defines a class for the create command on the lock set factory
+  //
+  // = DESCRIPTION
+  //   This class represents the create command on the lock set factory.
+  //   The lock set is registered in the naming service with the provided
+  //   name.
+{
+ public:
+  CC_CreateLockSet_Cmd(char *lock_set_name);
+  // Constructor
+
+  virtual ~CC_CreateLockSet_Cmd();
+  // Destructor
+
+  virtual int execute(void);
+  // Executes the command, i.e. creates the lock set and binds the name
+  // in the naming service.
+
+ private:
+  char *name_;
+  // The name used to bind in the naming service.
+};
+
+class CC_Lock_Cmd:public CC_Command
+  // = TITLE
+  //    Defines a class for the lock command on the lock set
+  //
+  // = DESCRIPTION
+  //   This class represents the lock command on the lock set. The lock set
+  //   is looked up in the naming service.
+{
+ public:
+  CC_Lock_Cmd(char *lock_set_name, CosConcurrencyControl::lock_mode mode);
+  // Constructor.
+
+  virtual ~CC_Lock_Cmd();
+  // Destructor
+
+  virtual int execute(void);
+  // Executes the command, i.e. looks up the lock set with the requested
+  // name in the naming server and executes the lock command on that lock set.
+
+ private:
+  char *name_;
+  // The name to look up in the naming service.
+
+  CosConcurrencyControl::lock_mode mode_;
+  // The mode of the lock.
+};
+
+class CC_UnLock_Cmd:public CC_Command
+  // = TITLE
+  //    Defines a class for the unlock command on the lock set
+  //
+  // = DESCRIPTION
+  //   This class represents the unlock command on the lock set. The lock set
+  //   is looked up in the naming service.
+{
+ public:
+  CC_UnLock_Cmd(char *lock_set_name, CosConcurrencyControl::lock_mode mode);
+  // Constructor.
+
+  virtual ~CC_UnLock_Cmd();
+  // Destructor
+
+  virtual int execute(void);
+  // Executes the command, i.e. looks up the lock set with the requested
+  // name in the naming server and executes the unlock command on that
+  // lock set.
+
+ private:
+  char *name_;
+  // The name to look up in the naming service.
+
+  CosConcurrencyControl::lock_mode mode_;
+  // The mode of the lock.
+};
+
+class CC_TryLock_Cmd:public CC_Command
+  // = TITLE
+  //    Defines a class for the try_lock command on the lock set
+  //
+  // = DESCRIPTION
+  //   This class represents the try_lock command on the lock set. The lock set
+  //   is looked up in the naming service.
+{
+ public:
+  CC_TryLock_Cmd(char *lock_set_name, CosConcurrencyControl::lock_mode mode);
+  // Constructor
+
+  virtual ~CC_TryLock_Cmd();
+  // Destructor
+
+  virtual int execute(void);
+  // Executes the command, i.e. looks up the lock set with the requested
+  // name in the naming server and executes the try_lock command on that
+  // lock set.
+
+ private:
+  char *name_;
+  // The name to look up in the naming service.
+
+  CosConcurrencyControl::lock_mode mode_;
+  // The mode of the lock.
+};
+
+class CC_ChangeMode_Cmd:public CC_Command
+  // = TITLE
+  //    Defines a class for the change_mode command on the lock set
+  //
+  // = DESCRIPTION
+  //   This class represents the change_mode command on the lock set.
+  //   The lock set is looked up in the naming service.
+{
+ public:
+  CC_ChangeMode_Cmd(char *lock_set_name,
+                    CosConcurrencyControl::lock_mode held_mode,
+                    CosConcurrencyControl::lock_mode new_mode);
+  // Constructor
+
+  virtual ~CC_ChangeMode_Cmd();
+  // Destructor
+
+  virtual int execute(void);
+  // Executes the command, i.e. looks up the lock set with the requested
+  // name in the naming server and executes the change_mode command on that
+  // lock set.
+
+ private:
+  char *name_;
+  // The name to look up in the naming service.
+
+  CosConcurrencyControl::lock_mode held_mode_;
+  // The mode of the held lock
+
+  CosConcurrencyControl::lock_mode new_mode_;
+  // The new mode of the lock
+};
+
+class CC_Sleep_Cmd:public CC_Command
+  // = TITLE
+  //    Defines a class for the sleep command
+  //
+  // = DESCRIPTION
+  //   This class represents the sleep command. This command is used to make
+  //   the script pause for the requested number of second, e.g. to wait for
+  //   another process to start.
+{
+ public:
+  CC_Sleep_Cmd(int seconds);
+  // Constructor.
+
+  virtual ~CC_Sleep_Cmd();
+  // Destructor.
+
+  virtual int execute(void);
+  // Executes the command.
+
+ private:
+  int time_;
+  // The number of seconds to sleep
+};
+
+class CC_Repeat_Cmd:public CC_Command
+  // = TITLE
+  //    Defines a class for the repeat command
+  //
+  // = DESCRIPTION
+  //   This class represents the repeat command. This command is used to make
+  //   the script repeat the test the requested number of times.
+  //   The command is curently NOT implemented.
+{
+ public:
+  CC_Repeat_Cmd(int times);
+  // Constructor.
+
+  virtual ~CC_Repeat_Cmd();
+  // Destructor.
+
+  virtual int execute(void);
+  // Executes the command.
+ private:
+  int times_;
+  // The number of times the commands should be repeated
+};
+
+class CC_Wait_Cmd:public CC_Command
+  // = TITLE
+  //    Defines a class for the wait command
+  //
+  // = DESCRIPTION
+  //   This class represents the wait command. This command is used to make
+  //   the script wait for the user to press return. It is possible to print
+  //   different prompts, e.g. instructions.
+{
+ public:
+  CC_Wait_Cmd(char *prompt);
+  // Constructor.
+
+  virtual ~CC_Wait_Cmd();
+  // Destructor.
+
+  virtual int execute(void);
+  // Executes the command.
+
+ private:
+  char *prompt_;
+  // The prompt to print on the screen
+};
+
+class CC_Excep_Cmd: public CC_Command
+  // = TITLE
+  //    Defines a class for the excep command
+  //
+  // = DESCRIPTION
+  //   This class represents the excep command. This command is used to make
+  //   the script capable of dealing with cases where an exception is raised
+  //   as part of the testing.
+{
+ public:
+  CC_Excep_Cmd(char *excep);
+  // Constructor.
+
+  ~CC_Excep_Cmd(void);
+  // Destructor.
+
+  virtual int execute(void);
+  // Executes the command. Checks to see if the excep_ class variable is set,
+  // and if that's the case check that it is of the expected type. If not the
+  // test fails.
+
+ private:
+  char *ex_;
+  // The string representation of the expected exception
+};
+
+class CC_Dummy_Cmd: public CC_Command
+  // = TITLE
+  //    Defines a class for the dummy command
+  //
+  // = DESCRIPTION
+  //   This class represents the dummy command. This command is used to
+  //   put in a command in the chain that does nothing.
+{
+ public:
+  CC_Dummy_Cmd(void);
+  // Constructor.
+
+  ~CC_Dummy_Cmd(void);
+  // Destructor.
+
+  virtual int execute(void);
+  // Executes the command, i.e. does nothing.
+
+ private:
+};
+
+class CC_Print_Cmd: public CC_Command
+  // = TITLE
+  //    Defines a class for the print command
+  //
+  // = DESCRIPTION
+  //   This class represents the print command. This command is used to
+  //   print a message on stdout
+{
+ public:
+  CC_Print_Cmd(char *message);
+  // Constructor.
+
+  ~CC_Print_Cmd(void);
+  // Destructor.
+
+  virtual int execute(void);
+  // Executes the command.
+
+ private:
+  char *msg_;
+  // Holds the message to print
+};
+
+class CC_Lookup_Cmd:public CC_Command
+  // = TITLE
+  //    Defines a class for the lookup command.
+  //
+  // = DESCRIPTION
+  //   This class represents the lookup command. The lock set
+  //   is looked up in the naming service and the class variable
+  //   cc_lockset_ is set accordingly.
+{
+ public:
+  CC_Lookup_Cmd(char *lock_set_name);
+  // Constructor
+
+  virtual ~CC_Lookup_Cmd();
+  // Destructor
+
+  virtual int execute(void);
+  // Executes the command, i.e. looks up the lock set with the requested
+  // name in the naming server and sets the cc_lockset_ variable.
+
+ private:
+  char *name_;
+  // The name to look up in the naming service.
+
+};
+
+class CC_CommandElem
+  // = TITLE
+  //    Defines a class for a command element
+  //
+  // = DESCRIPTION
+  //    This class implements a command element used in the command list
+  //    below. The class is a simple tupple holding a pointer to the command
+  //    and a pointer to the next element in the list.
+{
+ public:
+  CC_CommandElem(CC_Command *cmd, CC_CommandElem *next);
+  // Constructor.
+
+  ~CC_CommandElem(void);
+  // Destructor.
+
+  CC_Command *GetCommand(void);
+  // Returns a pointer to the command in this element
+
+  CC_CommandElem *GetNext(void);
+  // Returns the pointer to the next element
+
+  void SetNext(CC_CommandElem *next);
+  // Sets the next pointer
+
+ private:
+  CC_CommandElem *next_;
+  // Pointer to the next element
+
+  CC_Command *cmd_;
+  // Pointer to the command element
+};
+
+class CC_CommandList
+  // = TITLE
+  //    Defines a class for a command list
+  //
+  // = DESCRIPTION
+  //    This class implements a command list used from the script parser
+  //    to store the parsed commands The class implements a simple single
+  //    linked list.
+{
+ public:
+  CC_CommandList(void);
+  // Constructor.
+
+  ~CC_CommandList(void);
+  // Destructor.
+
+  int add(CC_Command *cmd);
+  // Adds the command to the list
+
+  int execute(void);
+  // Executes all the commands in the list from head to tail
+
+  void setrepeat(int times);
+  // Sets the number of times to repeat the script
+
+ private:
+  CC_CommandElem *head_;
+  //  The head of the command list
+
+  CC_CommandElem *last_;
+  // The last inserted element
+
+  int times_;
+  // The number of times the script should be repeated
+};
+
+#endif /* _CC_COMMAND_H_ */
diff --git a/TAO/orbsvcs/tests/Concurrency/CC_command.l b/TAO/orbsvcs/tests/Concurrency/CC_command.l
new file mode 100644
index 00000000000..3c4dd5e90ce
--- /dev/null
+++ b/TAO/orbsvcs/tests/Concurrency/CC_command.l
@@ -0,0 +1,58 @@
+/* $id$
+ * ============================================================================
+ *
+ * = LIBRARY
+ *    TAO/orbsvcs/tests
+ *
+ * = FILENAME
+ *    CC_command.l
+ *
+ * = DESCRIPTION
+ *   This is the lex file for the concurrency service script language.
+ *
+ * = AUTHORS
+ *	Torben Worm <tworm@cs.wustl.edu>
+ *
+ * ============================================================================
+ */
+%option noyywrap
+%{
+#include "CC_command.h"
+#include "CC_command.tab.h"
+#include "ace/ACE.h"
+
+extern int line_no;
+extern char line_buf[500];
+%}
+
+%%
+
+;		       return T_TERM;
+start                  return T_START_CMD;
+create                 return T_CREATE_CMD;
+lock                   return T_LOCK_CMD;
+unlock                 return T_UNLOCK_CMD;
+try_lock               return T_TRYLOCK_CMD;
+change_mode	       return T_CHANGEMODE_CMD;
+sleep                  return T_SLEEP_CMD;
+wait                   return T_WAIT_CMD;
+print                  return T_PRINT_CMD;
+repeat                 return T_REPEAT_CMD;
+exception	       return T_EXCEP_CMD;
+lookup		       return T_LOOKUP_CMD;
+read		       return T_READ;
+intention_read         return T_IREAD;
+upgrade		       return T_UPGRADE;
+write		       return T_WRITE;
+intention_write	       return T_IWRITE;
+\".*\"		       { CC_commandlval.id = ACE_OS::strdup(&CC_commandtext[1]);
+			 CC_commandlval.id[CC_commandleng-2]='\0';
+			 return Q_STRING; }
+[0-9]+                 { CC_commandlval.num = atoi(yytext); return T_NUM; }
+[A-Za-z][A-Za-z_0-9\.:/]*  { CC_commandlval.id = ACE_OS::strdup(CC_commandtext);
+                           return T_IDENT; }
+^\/\/.*\n			{ }
+[ ]+			{ }
+\n.*                     { line_no ++;
+                           ACE_OS::strcpy(line_buf, CC_commandtext+1);
+                           yyless(1); }
diff --git a/TAO/orbsvcs/tests/Concurrency/CC_command.tab.cpp b/TAO/orbsvcs/tests/Concurrency/CC_command.tab.cpp
new file mode 100644
index 00000000000..f9328c15059
--- /dev/null
+++ b/TAO/orbsvcs/tests/Concurrency/CC_command.tab.cpp
@@ -0,0 +1,1008 @@
+// $Id$
+/*  A Bison parser, made from CC_command.y with Bison version GNU Bison version 1.21
+  */
+
+#define YYBISON 1  /* Identify Bison output.  */
+
+#define yyparse CC_commandparse
+#define yylex CC_commandlex
+#define yyerror CC_commanderror
+#define yylval CC_commandlval
+#define yychar CC_commandchar
+#define yydebug CC_commanddebug
+#define yynerrs CC_commandnerrs
+#define	T_START_CMD	258
+#define	T_CREATE_CMD	259
+#define	T_LOCK_CMD	260
+#define	T_UNLOCK_CMD	261
+#define	T_TRYLOCK_CMD	262
+#define	T_CHANGEMODE_CMD	263
+#define	T_SLEEP_CMD	264
+#define	T_WAIT_CMD	265
+#define	T_REPEAT_CMD	266
+#define	T_EXCEP_CMD	267
+#define	T_PRINT_CMD	268
+#define	T_LOOKUP_CMD	269
+#define	T_TERM	270
+#define	T_READ	271
+#define	T_IREAD	272
+#define	T_UPGRADE	273
+#define	T_WRITE	274
+#define	T_IWRITE	275
+#define	T_IDENT	276
+#define	Q_STRING	277
+#define	T_NUM	278
+
+#line 18 "CC_command.y"
+
+#include "CC_command.h"
+#include "ace/ACE.h"
+#include "orbsvcs/CosConcurrencyControlC.h"
+
+int CC_commanderror(char *s);
+int CC_commandlex(void);
+
+extern int line_no;
+extern char line_buf[500];
+extern char *CC_commandtext;
+extern CC_CommandList *cmdlist;
+
+#line 32 "CC_command.y"
+typedef union {
+  CC_Command *command;
+  CosConcurrencyControl::lock_mode lock_mode;
+  char *id;
+  int num;
+} YYSTYPE;
+
+#ifndef YYLTYPE
+typedef
+  struct yyltype
+    {
+      int timestamp;
+      int first_line;
+      int first_column;
+      int last_line;
+      int last_column;
+      char *text;
+   }
+  yyltype;
+
+#define YYLTYPE yyltype
+#endif
+
+#include <stdio.h>
+
+#ifndef __cplusplus
+#ifndef __STDC__
+#define const
+#endif
+#endif
+
+
+
+#define	YYFINAL		66
+#define	YYFLAG		-32768
+#define	YYNTBASE	24
+
+#define YYTRANSLATE(x) ((unsigned)(x) <= 278 ? yytranslate[x] : 31)
+
+static const char yytranslate[] = {     0,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     2,     2,     2,     2,     2,     1,     2,     3,     4,     5,
+     6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
+    16,    17,    18,    19,    20,    21,    22,    23
+};
+
+#if YYDEBUG != 0
+static const short yyprhs[] = {     0,
+     0,     1,     3,     6,     8,    12,    16,    19,    24,    28,
+    33,    37,    42,    46,    52,    57,    61,    64,    68,    72,
+    76,    80,    84,    86,    88,    90,    92,    94,    96,    98
+};
+
+static const short yyrhs[] = {    -1,
+    25,     0,    25,    26,     0,    26,     0,     3,    27,    15,
+     0,     4,    28,    15,     0,     4,    15,     0,     5,    28,
+    30,    15,     0,     5,    30,    15,     0,     6,    28,    30,
+    15,     0,     6,    30,    15,     0,     7,    28,    30,    15,
+     0,     7,    30,    15,     0,     8,    28,    30,    30,    15,
+     0,     8,    30,    30,    15,     0,     9,    23,    15,     0,
+    10,    15,     0,    10,    22,    15,     0,    13,    22,    15,
+     0,    14,    28,    15,     0,    11,    23,    15,     0,    12,
+    29,    15,     0,    21,     0,    21,     0,    21,     0,    16,
+     0,    17,     0,    18,     0,    19,     0,    20,     0
+};
+
+#endif
+
+#if YYDEBUG != 0
+static const short yyrline[] = { 0,
+    51,    52,    60,    61,    64,    66,    68,    70,    72,    74,
+    76,    78,    80,    82,    84,    86,    88,    90,    92,    94,
+    96,    99,   103,   105,   107,   109,   110,   111,   112,   113
+};
+
+static const char * const yytname[] = {   "$","error","$illegal.","T_START_CMD",
+"T_CREATE_CMD","T_LOCK_CMD","T_UNLOCK_CMD","T_TRYLOCK_CMD","T_CHANGEMODE_CMD",
+"T_SLEEP_CMD","T_WAIT_CMD","T_REPEAT_CMD","T_EXCEP_CMD","T_PRINT_CMD","T_LOOKUP_CMD",
+"T_TERM","T_READ","T_IREAD","T_UPGRADE","T_WRITE","T_IWRITE","T_IDENT","Q_STRING",
+"T_NUM","start","cmd_list","cmd","config_file_name","lock_set_name","exception_name",
+"lock_mode",""
+};
+#endif
+
+static const short yyr1[] = {     0,
+    24,    24,    25,    25,    26,    26,    26,    26,    26,    26,
+    26,    26,    26,    26,    26,    26,    26,    26,    26,    26,
+    26,    26,    27,    28,    29,    30,    30,    30,    30,    30
+};
+
+static const short yyr2[] = {     0,
+     0,     1,     2,     1,     3,     3,     2,     4,     3,     4,
+     3,     4,     3,     5,     4,     3,     2,     3,     3,     3,
+     3,     3,     1,     1,     1,     1,     1,     1,     1,     1
+};
+
+static const short yydefact[] = {     1,
+     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+     0,     0,     2,     4,    23,     0,     7,    24,     0,    26,
+    27,    28,    29,    30,     0,     0,     0,     0,     0,     0,
+     0,     0,     0,    17,     0,     0,    25,     0,     0,     0,
+     3,     5,     6,     0,     9,     0,    11,     0,    13,     0,
+     0,    16,    18,    21,    22,    19,    20,     8,    10,    12,
+     0,    15,    14,     0,     0,     0
+};
+
+static const short yydefgoto[] = {    64,
+    13,    14,    16,    19,    38,    26
+};
+
+static const short yypact[] = {     0,
+    -1,    14,    20,    20,    20,    20,     7,     4,     8,     1,
+    10,    13,     0,-32768,-32768,    18,-32768,-32768,    27,-32768,
+-32768,-32768,-32768,-32768,    31,    28,    31,    29,    31,    30,
+    31,    31,    37,-32768,    38,    39,-32768,    40,    41,    42,
+-32768,-32768,-32768,    43,-32768,    44,-32768,    45,-32768,    31,
+    46,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
+    47,-32768,-32768,    63,    64,-32768
+};
+
+static const short yypgoto[] = {-32768,
+-32768,    52,-32768,    12,-32768,    -4
+};
+
+
+#define	YYLAST		65
+
+
+static const short yytable[] = {    28,
+    30,    32,     1,     2,     3,     4,     5,     6,     7,     8,
+     9,    10,    11,    12,    25,    27,    29,    31,    34,    15,
+    44,    37,    46,    40,    48,    35,    50,    51,    17,    33,
+    36,    39,    42,    18,    18,    20,    21,    22,    23,    24,
+    18,    43,    45,    47,    49,    61,    20,    21,    22,    23,
+    24,    52,    53,    54,    55,    56,    57,    58,    59,    60,
+    62,    63,    65,    66,    41
+};
+
+static const short yycheck[] = {     4,
+     5,     6,     3,     4,     5,     6,     7,     8,     9,    10,
+    11,    12,    13,    14,     3,     4,     5,     6,    15,    21,
+    25,    21,    27,    12,    29,    22,    31,    32,    15,    23,
+    23,    22,    15,    21,    21,    16,    17,    18,    19,    20,
+    21,    15,    15,    15,    15,    50,    16,    17,    18,    19,
+    20,    15,    15,    15,    15,    15,    15,    15,    15,    15,
+    15,    15,     0,     0,    13
+};
+/* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
+#line 3 "/pkg/gnu/lib/bison.simple"
+
+/* Skeleton output parser for bison,
+   Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 1, or (at your option)
+   any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+
+#ifndef alloca
+#ifdef __GNUC__
+#define alloca __builtin_alloca
+#else /* not GNU C.  */
+#if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi)
+#include <alloca.h>
+#else /* not sparc */
+#if defined (MSDOS) && !defined (__TURBOC__)
+#include <malloc.h>
+#else /* not MSDOS, or __TURBOC__ */
+#if defined(_AIX)
+#include <malloc.h>
+ #pragma alloca
+#else /* not MSDOS, __TURBOC__, or _AIX */
+#ifdef __hpux
+#ifdef __cplusplus
+extern "C" {
+void *alloca (unsigned int);
+};
+#else /* not __cplusplus */
+void *alloca (unsigned int);
+#endif /* not __cplusplus */
+#endif /* __hpux */
+#endif /* not _AIX */
+#endif /* not MSDOS, or __TURBOC__ */
+#endif /* not sparc.  */
+#endif /* not GNU C.  */
+#endif /* alloca not defined.  */
+
+/* This is the parser code that is written into each bison parser
+  when the %semantic_parser declaration is not specified in the grammar.
+  It was written by Richard Stallman by simplifying the hairy parser
+  used when %semantic_parser is specified.  */
+
+/* Note: there must be only one dollar sign in this file.
+   It is replaced by the list of actions, each action
+   as one case of the switch.  */
+
+#define yyerrok		(yyerrstatus = 0)
+#define yyclearin	(yychar = YYEMPTY)
+#define YYEMPTY		-2
+#define YYEOF		0
+#define YYACCEPT	return(0)
+#define YYABORT 	return(1)
+#define YYERROR		goto yyerrlab1
+/* Like YYERROR except do call yyerror.
+   This remains here temporarily to ease the
+   transition to the new meaning of YYERROR, for GCC.
+   Once GCC version 2 has supplanted version 1, this can go.  */
+#define YYFAIL		goto yyerrlab
+#define YYRECOVERING()  (!!yyerrstatus)
+#define YYBACKUP(token, value) \
+do								\
+  if (yychar == YYEMPTY && yylen == 1)				\
+    { yychar = (token), yylval = (value);			\
+      yychar1 = YYTRANSLATE (yychar);				\
+      YYPOPSTACK;						\
+      goto yybackup;						\
+    }								\
+  else								\
+    { yyerror ("syntax error: cannot back up"); YYERROR; }	\
+while (0)
+
+#define YYTERROR	1
+#define YYERRCODE	256
+
+#ifndef YYPURE
+#define YYLEX		yylex()
+#endif
+
+#ifdef YYPURE
+#ifdef YYLSP_NEEDED
+#define YYLEX		yylex(&yylval, &yylloc)
+#else
+#define YYLEX		yylex(&yylval)
+#endif
+#endif
+
+/* If nonreentrant, generate the variables here */
+
+#ifndef YYPURE
+
+int	yychar;			/*  the lookahead symbol		*/
+YYSTYPE	yylval;			/*  the semantic value of the		*/
+				/*  lookahead symbol			*/
+
+#ifdef YYLSP_NEEDED
+YYLTYPE yylloc;			/*  location data for the lookahead	*/
+				/*  symbol				*/
+#endif
+
+int yynerrs;			/*  number of parse errors so far       */
+#endif  /* not YYPURE */
+
+#if YYDEBUG != 0
+int yydebug;			/*  nonzero means print parse trace	*/
+/* Since this is uninitialized, it does not stop multiple parsers
+   from coexisting.  */
+#endif
+
+/*  YYINITDEPTH indicates the initial size of the parser's stacks	*/
+
+#ifndef	YYINITDEPTH
+#define YYINITDEPTH 200
+#endif
+
+/*  YYMAXDEPTH is the maximum size the stacks can grow to
+    (effective only if the built-in stack extension method is used).  */
+
+#if YYMAXDEPTH == 0
+#undef YYMAXDEPTH
+#endif
+
+#ifndef YYMAXDEPTH
+#define YYMAXDEPTH 10000
+#endif
+
+/* Prevent warning if -Wstrict-prototypes.  */
+#ifdef __GNUC__
+int yyparse (void);
+#endif
+
+#if __GNUC__ > 1		/* GNU C and GNU C++ define this.  */
+#define __yy_bcopy(FROM,TO,COUNT)	__builtin_memcpy(TO,FROM,COUNT)
+#else				/* not GNU C or C++ */
+#ifndef __cplusplus
+
+/* This is the most reliable way to avoid incompatibilities
+   in available built-in functions on various systems.  */
+static void
+__yy_bcopy (from, to, count)
+     char *from;
+     char *to;
+     int count;
+{
+  register char *f = from;
+  register char *t = to;
+  register int i = count;
+
+  while (i-- > 0)
+    *t++ = *f++;
+}
+
+#else /* __cplusplus */
+
+/* This is the most reliable way to avoid incompatibilities
+   in available built-in functions on various systems.  */
+static void
+__yy_bcopy (char *from, char *to, int count)
+{
+  register char *f = from;
+  register char *t = to;
+  register int i = count;
+
+  while (i-- > 0)
+    *t++ = *f++;
+}
+
+#endif
+#endif
+
+#line 184 "/pkg/gnu/lib/bison.simple"
+int
+yyparse()
+{
+  register int yystate;
+  register int yyn;
+  register short *yyssp;
+  register YYSTYPE *yyvsp;
+  int yyerrstatus;	/*  number of tokens to shift before error messages enabled */
+  int yychar1;		/*  lookahead token as an internal (translated) token number */
+
+  short	yyssa[YYINITDEPTH];	/*  the state stack			*/
+  YYSTYPE yyvsa[YYINITDEPTH];	/*  the semantic value stack		*/
+
+  short *yyss = yyssa;		/*  refer to the stacks thru separate pointers */
+  YYSTYPE *yyvs = yyvsa;	/*  to allow yyoverflow to reallocate them elsewhere */
+
+#ifdef YYLSP_NEEDED
+  YYLTYPE yylsa[YYINITDEPTH];	/*  the location stack			*/
+  YYLTYPE *yyls = yylsa;
+  YYLTYPE *yylsp;
+
+#define YYPOPSTACK   (yyvsp--, yyssp--, yylsp--)
+#else
+#define YYPOPSTACK   (yyvsp--, yyssp--)
+#endif
+
+  int yystacksize = YYINITDEPTH;
+
+#ifdef YYPURE
+  int yychar;
+  YYSTYPE yylval;
+  int yynerrs;
+#ifdef YYLSP_NEEDED
+  YYLTYPE yylloc;
+#endif
+#endif
+
+  YYSTYPE yyval;		/*  the variable used to return		*/
+				/*  semantic values from the action	*/
+				/*  routines				*/
+
+  int yylen;
+
+#if YYDEBUG != 0
+  if (yydebug)
+    fprintf(stderr, "Starting parse\n");
+#endif
+
+  yystate = 0;
+  yyerrstatus = 0;
+  yynerrs = 0;
+  yychar = YYEMPTY;		/* Cause a token to be read.  */
+
+  /* Initialize stack pointers.
+     Waste one element of value and location stack
+     so that they stay on the same level as the state stack.
+     The wasted elements are never initialized.  */
+
+  yyssp = yyss - 1;
+  yyvsp = yyvs;
+#ifdef YYLSP_NEEDED
+  yylsp = yyls;
+#endif
+
+/* Push a new state, which is found in  yystate  .  */
+/* In all cases, when you get here, the value and location stacks
+   have just been pushed. so pushing a state here evens the stacks.  */
+yynewstate:
+
+  *++yyssp = yystate;
+
+  if (yyssp >= yyss + yystacksize - 1)
+    {
+      /* Give user a chance to reallocate the stack */
+      /* Use copies of these so that the &'s don't force the real ones into memory. */
+      YYSTYPE *yyvs1 = yyvs;
+      short *yyss1 = yyss;
+#ifdef YYLSP_NEEDED
+      YYLTYPE *yyls1 = yyls;
+#endif
+
+      /* Get the current used size of the three stacks, in elements.  */
+      int size = yyssp - yyss + 1;
+
+#ifdef yyoverflow
+      /* Each stack pointer address is followed by the size of
+	 the data in use in that stack, in bytes.  */
+      yyoverflow("parser stack overflow",
+		 &yyss1, size * sizeof (*yyssp),
+		 &yyvs1, size * sizeof (*yyvsp),
+#ifdef YYLSP_NEEDED
+		 &yyls1, size * sizeof (*yylsp),
+#endif
+		 &yystacksize);
+
+      yyss = yyss1; yyvs = yyvs1;
+#ifdef YYLSP_NEEDED
+      yyls = yyls1;
+#endif
+#else /* no yyoverflow */
+      /* Extend the stack our own way.  */
+      if (yystacksize >= YYMAXDEPTH)
+	{
+	  yyerror("parser stack overflow");
+	  return 2;
+	}
+      yystacksize *= 2;
+      if (yystacksize > YYMAXDEPTH)
+	yystacksize = YYMAXDEPTH;
+      yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
+      __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
+      yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
+      __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
+#ifdef YYLSP_NEEDED
+      yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
+      __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
+#endif
+#endif /* no yyoverflow */
+
+      yyssp = yyss + size - 1;
+      yyvsp = yyvs + size - 1;
+#ifdef YYLSP_NEEDED
+      yylsp = yyls + size - 1;
+#endif
+
+#if YYDEBUG != 0
+      if (yydebug)
+	fprintf(stderr, "Stack size increased to %d\n", yystacksize);
+#endif
+
+      if (yyssp >= yyss + yystacksize - 1)
+	YYABORT;
+    }
+
+#if YYDEBUG != 0
+  if (yydebug)
+    fprintf(stderr, "Entering state %d\n", yystate);
+#endif
+
+  goto yybackup;
+ yybackup:
+
+/* Do appropriate processing given the current state.  */
+/* Read a lookahead token if we need one and don't already have one.  */
+/* yyresume: */
+
+  /* First try to decide what to do without reference to lookahead token.  */
+
+  yyn = yypact[yystate];
+  if (yyn == YYFLAG)
+    goto yydefault;
+
+  /* Not known => get a lookahead token if don't already have one.  */
+
+  /* yychar is either YYEMPTY or YYEOF
+     or a valid token in external form.  */
+
+  if (yychar == YYEMPTY)
+    {
+#if YYDEBUG != 0
+      if (yydebug)
+	fprintf(stderr, "Reading a token: ");
+#endif
+      yychar = YYLEX;
+    }
+
+  /* Convert token to internal form (in yychar1) for indexing tables with */
+
+  if (yychar <= 0)		/* This means end of input. */
+    {
+      yychar1 = 0;
+      yychar = YYEOF;		/* Don't call YYLEX any more */
+
+#if YYDEBUG != 0
+      if (yydebug)
+	fprintf(stderr, "Now at end of input.\n");
+#endif
+    }
+  else
+    {
+      yychar1 = YYTRANSLATE(yychar);
+
+#if YYDEBUG != 0
+      if (yydebug)
+	{
+	  fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
+	  /* Give the individual parser a way to print the precise meaning
+	     of a token, for further debugging info.  */
+#ifdef YYPRINT
+	  YYPRINT (stderr, yychar, yylval);
+#endif
+	  fprintf (stderr, ")\n");
+	}
+#endif
+    }
+
+  yyn += yychar1;
+  if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
+    goto yydefault;
+
+  yyn = yytable[yyn];
+
+  /* yyn is what to do for this token type in this state.
+     Negative => reduce, -yyn is rule number.
+     Positive => shift, yyn is new state.
+       New state is final state => don't bother to shift,
+       just return success.
+     0, or most negative number => error.  */
+
+  if (yyn < 0)
+    {
+      if (yyn == YYFLAG)
+	goto yyerrlab;
+      yyn = -yyn;
+      goto yyreduce;
+    }
+  else if (yyn == 0)
+    goto yyerrlab;
+
+  if (yyn == YYFINAL)
+    YYACCEPT;
+
+  /* Shift the lookahead token.  */
+
+#if YYDEBUG != 0
+  if (yydebug)
+    fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
+#endif
+
+  /* Discard the token being shifted unless it is eof.  */
+  if (yychar != YYEOF)
+    yychar = YYEMPTY;
+
+  *++yyvsp = yylval;
+#ifdef YYLSP_NEEDED
+  *++yylsp = yylloc;
+#endif
+
+  /* count tokens shifted since error; after three, turn off error status.  */
+  if (yyerrstatus) yyerrstatus--;
+
+  yystate = yyn;
+  goto yynewstate;
+
+/* Do the default action for the current state.  */
+yydefault:
+
+  yyn = yydefact[yystate];
+  if (yyn == 0)
+    goto yyerrlab;
+
+/* Do a reduction.  yyn is the number of a rule to reduce with.  */
+yyreduce:
+  yylen = yyr2[yyn];
+  yyval = yyvsp[1-yylen]; /* implement default value of the action */
+
+#if YYDEBUG != 0
+  if (yydebug)
+    {
+      int i;
+
+      fprintf (stderr, "Reducing via rule %d (line %d), ",
+	       yyn, yyrline[yyn]);
+
+      /* Print the symbols being reduced, and their result.  */
+      for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
+	fprintf (stderr, "%s ", yytname[yyrhs[i]]);
+      fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
+    }
+#endif
+
+
+  switch (yyn) {
+
+case 2:
+#line 52 "CC_command.y"
+{ cmdlist->add(new CC_Sleep_Cmd(0));
+			   /* dummy to check exeption in the last command */
+		  if(cmdlist->execute()!=0) //CC_FAIL
+                    { printf(" ** Test succeded!!\n"); }
+                  else
+                    { printf(" ** Test FAILED!!\n"); } ;
+    break;}
+case 3:
+#line 60 "CC_command.y"
+{ cmdlist->add(yyvsp[0].command); ;
+    break;}
+case 4:
+#line 61 "CC_command.y"
+{ cmdlist->add(yyvsp[0].command); ;
+    break;}
+case 5:
+#line 65 "CC_command.y"
+{ yyval.command = new CC_Start_Cmd(yyvsp[-1].id); ;
+    break;}
+case 6:
+#line 67 "CC_command.y"
+{ yyval.command = new CC_CreateLockSet_Cmd(yyvsp[-1].id); ;
+    break;}
+case 7:
+#line 69 "CC_command.y"
+{ yyval.command = new CC_CreateLockSet_Cmd(""); ;
+    break;}
+case 8:
+#line 71 "CC_command.y"
+{ yyval.command = new CC_Lock_Cmd(yyvsp[-2].id, yyvsp[-1].lock_mode); ;
+    break;}
+case 9:
+#line 73 "CC_command.y"
+{ yyval.command = new CC_Lock_Cmd("", yyvsp[-1].lock_mode); ;
+    break;}
+case 10:
+#line 75 "CC_command.y"
+{ yyval.command = new CC_UnLock_Cmd(yyvsp[-2].id, yyvsp[-1].lock_mode); ;
+    break;}
+case 11:
+#line 77 "CC_command.y"
+{ yyval.command = new CC_UnLock_Cmd("", yyvsp[-1].lock_mode); ;
+    break;}
+case 12:
+#line 79 "CC_command.y"
+{ yyval.command = new CC_TryLock_Cmd(yyvsp[-2].id, yyvsp[-1].lock_mode); ;
+    break;}
+case 13:
+#line 81 "CC_command.y"
+{ yyval.command = new CC_TryLock_Cmd("", yyvsp[-1].lock_mode); ;
+    break;}
+case 14:
+#line 83 "CC_command.y"
+{ yyval.command = new CC_ChangeMode_Cmd(yyvsp[-3].id, yyvsp[-2].lock_mode, yyvsp[-1].lock_mode); ;
+    break;}
+case 15:
+#line 85 "CC_command.y"
+{ yyval.command = new CC_ChangeMode_Cmd("", yyvsp[-2].lock_mode, yyvsp[-1].lock_mode); ;
+    break;}
+case 16:
+#line 87 "CC_command.y"
+{ yyval.command = new CC_Sleep_Cmd(yyvsp[-1].num); ;
+    break;}
+case 17:
+#line 89 "CC_command.y"
+{ yyval.command = new CC_Wait_Cmd(""); ;
+    break;}
+case 18:
+#line 91 "CC_command.y"
+{ yyval.command = new CC_Wait_Cmd(yyvsp[-1].id); ;
+    break;}
+case 19:
+#line 93 "CC_command.y"
+{ yyval.command = new CC_Print_Cmd(yyvsp[-1].id); ;
+    break;}
+case 20:
+#line 95 "CC_command.y"
+{ yyval.command = new CC_Lookup_Cmd(yyvsp[-1].id); ;
+    break;}
+case 21:
+#line 97 "CC_command.y"
+{ cmdlist->setrepeat(yyvsp[-1].num);
+                          yyval.command = new CC_Dummy_Cmd();;
+    break;}
+case 22:
+#line 100 "CC_command.y"
+{ yyval.command = new CC_Excep_Cmd(yyvsp[-1].id); ;
+    break;}
+case 23:
+#line 103 "CC_command.y"
+{yyval.id = yyvsp[0].id; ;
+    break;}
+case 24:
+#line 105 "CC_command.y"
+{yyval.id = yyvsp[0].id; ;
+    break;}
+case 25:
+#line 107 "CC_command.y"
+{yyval.id = yyvsp[0].id; ;
+    break;}
+case 26:
+#line 109 "CC_command.y"
+{ yyval.lock_mode = CosConcurrencyControl::read; ;
+    break;}
+case 27:
+#line 110 "CC_command.y"
+{ yyval.lock_mode = CosConcurrencyControl::intention_read; ;
+    break;}
+case 28:
+#line 111 "CC_command.y"
+{ yyval.lock_mode = CosConcurrencyControl::upgrade; ;
+    break;}
+case 29:
+#line 112 "CC_command.y"
+{ yyval.lock_mode = CosConcurrencyControl::write; ;
+    break;}
+case 30:
+#line 113 "CC_command.y"
+{ yyval.lock_mode = CosConcurrencyControl::intention_write; ;
+    break;}
+}
+   /* the action file gets copied in in place of this dollarsign */
+#line 457 "/pkg/gnu/lib/bison.simple"
+
+  yyvsp -= yylen;
+  yyssp -= yylen;
+#ifdef YYLSP_NEEDED
+  yylsp -= yylen;
+#endif
+
+#if YYDEBUG != 0
+  if (yydebug)
+    {
+      short *ssp1 = yyss - 1;
+      fprintf (stderr, "state stack now");
+      while (ssp1 != yyssp)
+	fprintf (stderr, " %d", *++ssp1);
+      fprintf (stderr, "\n");
+    }
+#endif
+
+  *++yyvsp = yyval;
+
+#ifdef YYLSP_NEEDED
+  yylsp++;
+  if (yylen == 0)
+    {
+      yylsp->first_line = yylloc.first_line;
+      yylsp->first_column = yylloc.first_column;
+      yylsp->last_line = (yylsp-1)->last_line;
+      yylsp->last_column = (yylsp-1)->last_column;
+      yylsp->text = 0;
+    }
+  else
+    {
+      yylsp->last_line = (yylsp+yylen-1)->last_line;
+      yylsp->last_column = (yylsp+yylen-1)->last_column;
+    }
+#endif
+
+  /* Now "shift" the result of the reduction.
+     Determine what state that goes to,
+     based on the state we popped back to
+     and the rule number reduced by.  */
+
+  yyn = yyr1[yyn];
+
+  yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
+  if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
+    yystate = yytable[yystate];
+  else
+    yystate = yydefgoto[yyn - YYNTBASE];
+
+  goto yynewstate;
+
+yyerrlab:   /* here on detecting error */
+
+  if (! yyerrstatus)
+    /* If not already recovering from an error, report this error.  */
+    {
+      ++yynerrs;
+
+#ifdef YYERROR_VERBOSE
+      yyn = yypact[yystate];
+
+      if (yyn > YYFLAG && yyn < YYLAST)
+	{
+	  int size = 0;
+	  char *msg;
+	  int x, count;
+
+	  count = 0;
+	  /* Start X at -yyn if nec to avoid negative indexes in yycheck.  */
+	  for (x = (yyn < 0 ? -yyn : 0);
+	       x < (sizeof(yytname) / sizeof(char *)); x++)
+	    if (yycheck[x + yyn] == x)
+	      size += strlen(yytname[x]) + 15, count++;
+	  msg = (char *) malloc(size + 15);
+	  if (msg != 0)
+	    {
+	      strcpy(msg, "parse error");
+
+	      if (count < 5)
+		{
+		  count = 0;
+		  for (x = (yyn < 0 ? -yyn : 0);
+		       x < (sizeof(yytname) / sizeof(char *)); x++)
+		    if (yycheck[x + yyn] == x)
+		      {
+			strcat(msg, count == 0 ? ", expecting `" : " or `");
+			strcat(msg, yytname[x]);
+			strcat(msg, "'");
+			count++;
+		      }
+		}
+	      yyerror(msg);
+	      free(msg);
+	    }
+	  else
+	    yyerror ("parse error; also virtual memory exceeded");
+	}
+      else
+#endif /* YYERROR_VERBOSE */
+	yyerror("parse error");
+    }
+
+  goto yyerrlab1;
+yyerrlab1:   /* here on error raised explicitly by an action */
+
+  if (yyerrstatus == 3)
+    {
+      /* if just tried and failed to reuse lookahead token after an error, discard it.  */
+
+      /* return failure if at end of input */
+      if (yychar == YYEOF)
+	YYABORT;
+
+#if YYDEBUG != 0
+      if (yydebug)
+	fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
+#endif
+
+      yychar = YYEMPTY;
+    }
+
+  /* Else will try to reuse lookahead token
+     after shifting the error token.  */
+
+  yyerrstatus = 3;		/* Each real token shifted decrements this */
+
+  goto yyerrhandle;
+
+yyerrdefault:  /* current state does not do anything special for the error token. */
+
+#if 0
+  /* This is wrong; only states that explicitly want error tokens
+     should shift them.  */
+  yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
+  if (yyn) goto yydefault;
+#endif
+
+yyerrpop:   /* pop the current state because it cannot handle the error token */
+
+  if (yyssp == yyss) YYABORT;
+  yyvsp--;
+  yystate = *--yyssp;
+#ifdef YYLSP_NEEDED
+  yylsp--;
+#endif
+
+#if YYDEBUG != 0
+  if (yydebug)
+    {
+      short *ssp1 = yyss - 1;
+      fprintf (stderr, "Error: state stack now");
+      while (ssp1 != yyssp)
+	fprintf (stderr, " %d", *++ssp1);
+      fprintf (stderr, "\n");
+    }
+#endif
+
+yyerrhandle:
+
+  yyn = yypact[yystate];
+  if (yyn == YYFLAG)
+    goto yyerrdefault;
+
+  yyn += YYTERROR;
+  if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
+    goto yyerrdefault;
+
+  yyn = yytable[yyn];
+  if (yyn < 0)
+    {
+      if (yyn == YYFLAG)
+	goto yyerrpop;
+      yyn = -yyn;
+      goto yyreduce;
+    }
+  else if (yyn == 0)
+    goto yyerrpop;
+
+  if (yyn == YYFINAL)
+    YYACCEPT;
+
+#if YYDEBUG != 0
+  if (yydebug)
+    fprintf(stderr, "Shifting error token, ");
+#endif
+
+  *++yyvsp = yylval;
+#ifdef YYLSP_NEEDED
+  *++yylsp = yylloc;
+#endif
+
+  yystate = yyn;
+  goto yynewstate;
+}
+#line 115 "CC_command.y"
+
+
+int CC_commanderror(char *s)
+{
+  printf("%d: %s at %s in:\n%s\n",
+         line_no, s, CC_commandtext, line_buf);
+  ACE_OS::exit(-1);
+  return 0;
+}
diff --git a/TAO/orbsvcs/tests/Concurrency/CC_command.tab.h b/TAO/orbsvcs/tests/Concurrency/CC_command.tab.h
new file mode 100644
index 00000000000..97c32bd430b
--- /dev/null
+++ b/TAO/orbsvcs/tests/Concurrency/CC_command.tab.h
@@ -0,0 +1,31 @@
+// $Id$
+typedef union {
+  CC_Command *command;
+  CosConcurrencyControl::lock_mode lock_mode;
+  char *id;
+  int num;
+} YYSTYPE;
+#define	T_START_CMD	258
+#define	T_CREATE_CMD	259
+#define	T_LOCK_CMD	260
+#define	T_UNLOCK_CMD	261
+#define	T_TRYLOCK_CMD	262
+#define	T_CHANGEMODE_CMD	263
+#define	T_SLEEP_CMD	264
+#define	T_WAIT_CMD	265
+#define	T_REPEAT_CMD	266
+#define	T_EXCEP_CMD	267
+#define	T_PRINT_CMD	268
+#define	T_LOOKUP_CMD	269
+#define	T_TERM	270
+#define	T_READ	271
+#define	T_IREAD	272
+#define	T_UPGRADE	273
+#define	T_WRITE	274
+#define	T_IWRITE	275
+#define	T_IDENT	276
+#define	Q_STRING	277
+#define	T_NUM	278
+
+
+extern YYSTYPE CC_commandlval;
diff --git a/TAO/orbsvcs/tests/Concurrency/CC_command.y b/TAO/orbsvcs/tests/Concurrency/CC_command.y
new file mode 100644
index 00000000000..d0e1b40647b
--- /dev/null
+++ b/TAO/orbsvcs/tests/Concurrency/CC_command.y
@@ -0,0 +1,123 @@
+/* $id$
+ * ============================================================================
+ *
+ * = LIBRARY
+ *    TAO/orbsvcs/tests
+ *
+ * = FILENAME
+ *    CC_command.y
+ *
+ * = DESCRIPTION
+ *   This is the yacc file for the concurrency service script language.
+ *
+ * = AUTHORS
+ *	Torben Worm <tworm@cs.wustl.edu>
+ *
+ * ============================================================================
+ */
+%{
+#include "CC_command.h"
+#include "ace/ACE.h"
+#include "orbsvcs/CosConcurrencyControlC.h"
+
+int CC_commanderror(char *s);
+int CC_commandlex(void);
+
+extern int line_no;
+extern char line_buf[500];
+extern char *CC_commandtext;
+extern CC_CommandList *cmdlist;
+%}
+
+%union {
+  CC_Command *command;
+  CosConcurrencyControl::lock_mode lock_mode;
+  char *id;
+  int num;
+}
+
+%token T_START_CMD T_CREATE_CMD T_LOCK_CMD T_UNLOCK_CMD T_TRYLOCK_CMD
+%token T_CHANGEMODE_CMD T_SLEEP_CMD T_WAIT_CMD T_REPEAT_CMD T_EXCEP_CMD
+%token T_PRINT_CMD T_LOOKUP_CMD T_TERM
+%token T_READ T_IREAD T_UPGRADE T_WRITE T_IWRITE
+%token <id> T_IDENT Q_STRING
+%token <num> T_NUM
+
+%type <command> cmd
+%type <id> config_file_name lock_set_name exception_name
+%type <lock_mode> lock_mode
+
+%%
+start:		/* empty */
+		| cmd_list { cmdlist->add(new CC_Sleep_Cmd(0));
+			   /* dummy to check exeption in the last command */
+		  if(cmdlist->execute()!=0) //CC_FAIL
+                    { printf(" ** Test succeded!!\n"); }
+                  else
+                    { printf(" ** Test FAILED!!\n"); } }
+		;
+
+cmd_list:	cmd_list cmd { cmdlist->add($2); }
+		| cmd { cmdlist->add($1); }
+		;
+
+cmd:		  T_START_CMD config_file_name T_TERM
+			{ $$ = new CC_Start_Cmd($2); }
+		| T_CREATE_CMD lock_set_name T_TERM
+			{ $$ = new CC_CreateLockSet_Cmd($2); }
+		| T_CREATE_CMD T_TERM
+                        { $$ = new CC_CreateLockSet_Cmd(""); }
+		| T_LOCK_CMD lock_set_name lock_mode T_TERM
+			{ $$ = new CC_Lock_Cmd($2, $3); }
+		| T_LOCK_CMD lock_mode T_TERM
+			{ $$ = new CC_Lock_Cmd("", $2); }
+		| T_UNLOCK_CMD lock_set_name lock_mode T_TERM
+			{ $$ = new CC_UnLock_Cmd($2, $3); }
+		| T_UNLOCK_CMD lock_mode T_TERM
+			{ $$ = new CC_UnLock_Cmd("", $2); }
+		| T_TRYLOCK_CMD lock_set_name lock_mode T_TERM
+			{ $$ = new CC_TryLock_Cmd($2, $3); }
+		| T_TRYLOCK_CMD lock_mode T_TERM
+			{ $$ = new CC_TryLock_Cmd("", $2); }
+		| T_CHANGEMODE_CMD lock_set_name lock_mode lock_mode T_TERM
+		        { $$ = new CC_ChangeMode_Cmd($2, $3, $4); }
+		| T_CHANGEMODE_CMD lock_mode lock_mode T_TERM
+		        { $$ = new CC_ChangeMode_Cmd("", $2, $3); }
+		| T_SLEEP_CMD T_NUM T_TERM
+			{ $$ = new CC_Sleep_Cmd($2); }
+		| T_WAIT_CMD T_TERM
+			{ $$ = new CC_Wait_Cmd(""); }
+		| T_WAIT_CMD Q_STRING T_TERM
+			{ $$ = new CC_Wait_Cmd($2); }
+		| T_PRINT_CMD Q_STRING T_TERM
+			{ $$ = new CC_Print_Cmd($2); }
+		| T_LOOKUP_CMD lock_set_name T_TERM
+			{ $$ = new CC_Lookup_Cmd($2); }
+		| T_REPEAT_CMD T_NUM T_TERM
+                        { cmdlist->setrepeat($2);
+                          $$ = new CC_Dummy_Cmd();}
+		| T_EXCEP_CMD exception_name T_TERM
+			{ $$ = new CC_Excep_Cmd($2); }
+		;
+
+config_file_name: T_IDENT {$$ = $1; }
+
+lock_set_name:	T_IDENT {$$ = $1; }
+
+exception_name:	T_IDENT {$$ = $1; }
+
+lock_mode:	T_READ { $$ = CosConcurrencyControl::read; }
+		| T_IREAD { $$ = CosConcurrencyControl::intention_read; }
+		| T_UPGRADE { $$ = CosConcurrencyControl::upgrade; }
+		| T_WRITE { $$ = CosConcurrencyControl::write; }
+		| T_IWRITE { $$ = CosConcurrencyControl::intention_write; }
+
+%%
+
+int CC_commanderror(char *s)
+{
+  printf("%d: %s at %s in:\n%s\n",
+         line_no, s, CC_commandtext, line_buf);
+  ACE_OS::exit(-1);
+  return 0;
+}
diff --git a/TAO/orbsvcs/tests/Concurrency/lex.CC_command.cpp b/TAO/orbsvcs/tests/Concurrency/lex.CC_command.cpp
new file mode 100644
index 00000000000..a18b4d47f9c
--- /dev/null
+++ b/TAO/orbsvcs/tests/Concurrency/lex.CC_command.cpp
@@ -0,0 +1,1743 @@
+// $Id$
+#define yy_create_buffer CC_command_create_buffer
+#define yy_delete_buffer CC_command_delete_buffer
+#define yy_scan_buffer CC_command_scan_buffer
+#define yy_scan_string CC_command_scan_string
+#define yy_scan_bytes CC_command_scan_bytes
+#define yy_flex_debug CC_command_flex_debug
+#define yy_init_buffer CC_command_init_buffer
+#define yy_flush_buffer CC_command_flush_buffer
+#define yy_load_buffer_state CC_command_load_buffer_state
+#define yy_switch_to_buffer CC_command_switch_to_buffer
+#define yyin CC_commandin
+#define yyleng CC_commandleng
+#define yylex CC_commandlex
+#define yyout CC_commandout
+#define yyrestart CC_commandrestart
+#define yytext CC_commandtext
+
+/* A lexical scanner generated by flex */
+
+/* Scanner skeleton version:
+ * $Header$
+ */
+
+#define FLEX_SCANNER
+#define YY_FLEX_MAJOR_VERSION 2
+#define YY_FLEX_MINOR_VERSION 5
+
+#include <stdio.h>
+
+
+/* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
+#ifdef c_plusplus
+#ifndef __cplusplus
+#define __cplusplus
+#endif
+#endif
+
+
+#ifdef __cplusplus
+
+#include <stdlib.h>
+#include <unistd.h>
+
+/* Use prototypes in function declarations. */
+#define YY_USE_PROTOS
+
+/* The "const" storage-class-modifier is valid. */
+#define YY_USE_CONST
+
+#else	/* ! __cplusplus */
+
+#if __STDC__
+
+#define YY_USE_PROTOS
+#define YY_USE_CONST
+
+#endif	/* __STDC__ */
+#endif	/* ! __cplusplus */
+
+#ifdef __TURBOC__
+ #pragma warn -rch
+ #pragma warn -use
+#include <io.h>
+#include <stdlib.h>
+#define YY_USE_CONST
+#define YY_USE_PROTOS
+#endif
+
+#ifdef YY_USE_CONST
+#define yyconst const
+#else
+#define yyconst
+#endif
+
+
+#ifdef YY_USE_PROTOS
+#define YY_PROTO(proto) proto
+#else
+#define YY_PROTO(proto) ()
+#endif
+
+/* Returned upon end-of-file. */
+#define YY_NULL 0
+
+/* Promotes a possibly negative, possibly signed char to an unsigned
+ * integer for use as an array index.  If the signed char is negative,
+ * we want to instead treat it as an 8-bit unsigned char, hence the
+ * double cast.
+ */
+#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
+
+/* Enter a start condition.  This macro really ought to take a parameter,
+ * but we do it the disgusting crufty way forced on us by the ()-less
+ * definition of BEGIN.
+ */
+#define BEGIN yy_start = 1 + 2 *
+
+/* Translate the current start state into a value that can be later handed
+ * to BEGIN to return to the state.  The YYSTATE alias is for lex
+ * compatibility.
+ */
+#define YY_START ((yy_start - 1) / 2)
+#define YYSTATE YY_START
+
+/* Action number for EOF rule of a given start state. */
+#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
+
+/* Special action meaning "start processing a new file". */
+#define YY_NEW_FILE yyrestart( yyin )
+
+#define YY_END_OF_BUFFER_CHAR 0
+
+/* Size of default input buffer. */
+#define YY_BUF_SIZE 16384
+
+typedef struct yy_buffer_state *YY_BUFFER_STATE;
+
+extern int yyleng;
+extern FILE *yyin, *yyout;
+
+#define EOB_ACT_CONTINUE_SCAN 0
+#define EOB_ACT_END_OF_FILE 1
+#define EOB_ACT_LAST_MATCH 2
+
+/* The funky do-while in the following #define is used to turn the definition
+ * int a single C statement (which needs a semi-colon terminator).  This
+ * avoids problems with code like:
+ *
+ * 	if ( condition_holds )
+ *		yyless( 5 );
+ *	else
+ *		do_something_else();
+ *
+ * Prior to using the do-while the compiler would get upset at the
+ * "else" because it interpreted the "if" statement as being all
+ * done when it reached the ';' after the yyless() call.
+ */
+
+/* Return all but the first 'n' matched characters back to the input stream. */
+
+#define yyless(n) \
+	do \
+		{ \
+		/* Undo effects of setting up yytext. */ \
+		*yy_cp = yy_hold_char; \
+		YY_RESTORE_YY_MORE_OFFSET \
+		yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ; \
+		YY_DO_BEFORE_ACTION; /* set up yytext again */ \
+		} \
+	while ( 0 )
+
+#define unput(c) yyunput( c, yytext_ptr )
+
+/* The following is because we cannot portably get our hands on size_t
+ * (without autoconf's help, which isn't available because we want
+ * flex-generated scanners to compile on their own).
+ */
+typedef unsigned int yy_size_t;
+
+
+struct yy_buffer_state
+	{
+	FILE *yy_input_file;
+
+	char *yy_ch_buf;		/* input buffer */
+	char *yy_buf_pos;		/* current position in input buffer */
+
+	/* Size of input buffer in bytes, not including room for EOB
+	 * characters.
+	 */
+	yy_size_t yy_buf_size;
+
+	/* Number of characters read into yy_ch_buf, not including EOB
+	 * characters.
+	 */
+	int yy_n_chars;
+
+	/* Whether we "own" the buffer - i.e., we know we created it,
+	 * and can realloc() it to grow it, and should free() it to
+	 * delete it.
+	 */
+	int yy_is_our_buffer;
+
+	/* Whether this is an "interactive" input source; if so, and
+	 * if we're using stdio for input, then we want to use getc()
+	 * instead of fread(), to make sure we stop fetching input after
+	 * each newline.
+	 */
+	int yy_is_interactive;
+
+	/* Whether we're considered to be at the beginning of a line.
+	 * If so, '^' rules will be active on the next match, otherwise
+	 * not.
+	 */
+	int yy_at_bol;
+
+	/* Whether to try to fill the input buffer when we reach the
+	 * end of it.
+	 */
+	int yy_fill_buffer;
+
+	int yy_buffer_status;
+#define YY_BUFFER_NEW 0
+#define YY_BUFFER_NORMAL 1
+	/* When an EOF's been seen but there's still some text to process
+	 * then we mark the buffer as YY_EOF_PENDING, to indicate that we
+	 * shouldn't try reading from the input source any more.  We might
+	 * still have a bunch of tokens to match, though, because of
+	 * possible backing-up.
+	 *
+	 * When we actually see the EOF, we change the status to "new"
+	 * (via yyrestart()), so that the user can continue scanning by
+	 * just pointing yyin at a new input file.
+	 */
+#define YY_BUFFER_EOF_PENDING 2
+	};
+
+static YY_BUFFER_STATE yy_current_buffer = 0;
+
+/* We provide macros for accessing buffer states in case in the
+ * future we want to put the buffer states in a more general
+ * "scanner state".
+ */
+#define YY_CURRENT_BUFFER yy_current_buffer
+
+
+/* yy_hold_char holds the character lost when yytext is formed. */
+static char yy_hold_char;
+
+static int yy_n_chars;		/* number of characters read into yy_ch_buf */
+
+
+int yyleng;
+
+/* Points to current character in buffer. */
+static char *yy_c_buf_p = (char *) 0;
+static int yy_init = 1;		/* whether we need to initialize */
+static int yy_start = 0;	/* start state number */
+
+/* Flag which is used to allow yywrap()'s to do buffer switches
+ * instead of setting up a fresh yyin.  A bit of a hack ...
+ */
+static int yy_did_buffer_switch_on_eof;
+
+void yyrestart YY_PROTO(( FILE *input_file ));
+
+void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
+void yy_load_buffer_state YY_PROTO(( void ));
+YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
+void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
+void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
+void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b ));
+#define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer )
+
+YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size ));
+YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str ));
+YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len ));
+
+static void *yy_flex_alloc YY_PROTO(( yy_size_t ));
+static void *yy_flex_realloc YY_PROTO(( void *, yy_size_t ));
+static void yy_flex_free YY_PROTO(( void * ));
+
+#define yy_new_buffer yy_create_buffer
+
+#define yy_set_interactive(is_interactive) \
+	{ \
+	if ( ! yy_current_buffer ) \
+		yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
+	yy_current_buffer->yy_is_interactive = is_interactive; \
+	}
+
+#define yy_set_bol(at_bol) \
+	{ \
+	if ( ! yy_current_buffer ) \
+		yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
+	yy_current_buffer->yy_at_bol = at_bol; \
+	}
+
+#define YY_AT_BOL() (yy_current_buffer->yy_at_bol)
+
+
+#define yywrap() 1
+#define YY_SKIP_YYWRAP
+typedef unsigned char YY_CHAR;
+FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
+typedef int yy_state_type;
+extern char *yytext;
+#define yytext_ptr yytext
+
+static yy_state_type yy_get_previous_state YY_PROTO(( void ));
+static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
+static int yy_get_next_buffer YY_PROTO(( void ));
+static void yy_fatal_error YY_PROTO(( yyconst char msg[] ));
+
+/* Done after the current pattern has been matched and before the
+ * corresponding action - sets up yytext.
+ */
+#define YY_DO_BEFORE_ACTION \
+	yytext_ptr = yy_bp; \
+	yyleng = (int) (yy_cp - yy_bp); \
+	yy_hold_char = *yy_cp; \
+	*yy_cp = '\0'; \
+	yy_c_buf_p = yy_cp;
+
+#define YY_NUM_RULES 25
+#define YY_END_OF_BUFFER 26
+static yyconst short int yy_accept[124] =
+    {   0,
+        0,    0,   26,   25,   24,   23,   25,   20,    1,   21,
+       21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
+       25,   24,   23,    0,   19,   20,   21,   21,   21,   21,
+       21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
+       21,    0,   21,   21,   21,   21,   21,   21,   21,   21,
+       21,   21,   21,   21,   21,   21,   21,   21,    0,   22,
+       21,   21,   21,   21,    4,   21,   21,   14,   21,   21,
+       21,   21,   21,   21,    9,   21,   21,   21,   21,   21,
+       21,   10,   21,    8,    2,   21,   21,   21,   17,   21,
+        3,   21,   21,   13,   11,   21,    5,   21,   21,   21,
+
+       21,   21,   16,   21,   21,   21,    6,   21,   12,   21,
+       21,   21,    7,   21,   21,   21,   21,   21,   21,   15,
+       21,   18,    0
+    } ;
+
+static yyconst int yy_ec[256] =
+    {   0,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    2,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    3,    1,    4,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    5,    6,    7,    7,    7,
+        7,    7,    7,    7,    7,    7,    7,    5,    8,    1,
+        1,    1,    1,    1,    9,    9,    9,    9,    9,    9,
+        9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
+        9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
+        1,    1,    1,    1,   10,    1,   11,    9,   12,   13,
+
+       14,    9,   15,   16,   17,    9,   18,   19,   20,   21,
+       22,   23,    9,   24,   25,   26,   27,    9,   28,   29,
+       30,    9,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1
+    } ;
+
+static yyconst int yy_meta[31] =
+    {   0,
+        1,    2,    1,    1,    3,    3,    3,    1,    3,    3,
+        3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
+        3,    3,    3,    3,    3,    3,    3,    3,    3,    3
+    } ;
+
+static yyconst short int yy_base[128] =
+    {   0,
+        0,  136,  141,  143,    0,  137,  135,  131,  143,    0,
+       15,  108,  115,  113,  110,  119,   14,  108,   11,   24,
+      125,    0,  127,  125,  124,  120,    0,  115,  111,  112,
+       97,   24,  105,   26,  107,  109,   89,   99,  102,   99,
+       98,  112,   92,  101,   97,   96,   91,   90,   86,   93,
+       91,   90,   79,   92,   79,   76,   73,   72,   95,  143,
+       81,   69,   71,   72,    0,   65,   65,    0,   79,   66,
+       62,   68,   74,   74,    0,   70,   69,   68,   55,   54,
+       56,    0,   52,    0,    0,   55,   58,   62,    0,   64,
+        0,   56,   55,    0,    0,   59,    0,   56,   49,   46,
+
+       45,   48,    0,   43,   43,   42,    0,   49,    0,   51,
+       46,   14,    0,   45,   30,   40,   30,   32,   18,    0,
+       29,    0,  143,   49,   52,   38,   55
+    } ;
+
+static yyconst short int yy_def[128] =
+    {   0,
+      123,    1,  123,  123,  124,  123,  125,  123,  123,  126,
+      126,  126,  126,  126,  126,  126,  126,  126,  126,  126,
+      123,  124,  123,  125,  125,  123,  126,  126,  126,  126,
+      126,  126,  126,  126,  126,  126,  126,  126,  126,  126,
+      126,  127,  126,  126,  126,  126,  126,  126,  126,  126,
+      126,  126,  126,  126,  126,  126,  126,  126,  127,  123,
+      126,  126,  126,  126,  126,  126,  126,  126,  126,  126,
+      126,  126,  126,  126,  126,  126,  126,  126,  126,  126,
+      126,  126,  126,  126,  126,  126,  126,  126,  126,  126,
+      126,  126,  126,  126,  126,  126,  126,  126,  126,  126,
+
+      126,  126,  126,  126,  126,  126,  126,  126,  126,  126,
+      126,  126,  126,  126,  126,  126,  126,  126,  126,  126,
+      126,  126,    0,  123,  123,  123,  123
+    } ;
+
+static yyconst short int yy_nxt[174] =
+    {   0,
+        4,    5,    6,    7,    4,    4,    8,    9,   10,    4,
+       10,   11,   10,   12,   10,   10,   13,   10,   14,   10,
+       10,   10,   15,   16,   17,   18,   19,   20,   10,   10,
+       28,   38,   35,   39,   40,   47,   50,  114,   29,   36,
+       27,  115,  122,  121,  120,   48,  119,   41,   51,   22,
+      118,   22,   24,  117,   24,   59,   59,   59,  116,  113,
+      112,  111,  110,  109,  108,  107,  106,  105,  104,  103,
+      102,  101,  100,   99,   98,   97,   96,   95,   94,   93,
+       92,   91,   90,   89,   88,   87,   86,   85,   84,   83,
+       82,   81,   80,   79,   78,   77,   60,   76,   75,   74,
+
+       73,   72,   71,   70,   69,   68,   67,   66,   65,   64,
+       63,   62,   61,   60,   58,   57,   56,   55,   54,   53,
+       52,   49,   46,   45,   44,   43,   26,   25,   25,   23,
+       42,   37,   34,   33,   32,   31,   30,   26,   25,   23,
+      123,   21,    3,  123,  123,  123,  123,  123,  123,  123,
+      123,  123,  123,  123,  123,  123,  123,  123,  123,  123,
+      123,  123,  123,  123,  123,  123,  123,  123,  123,  123,
+      123,  123,  123
+    } ;
+
+static yyconst short int yy_chk[174] =
+    {   0,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
+       11,   19,   17,   19,   20,   32,   34,  112,   11,   17,
+      126,  112,  121,  119,  118,   32,  117,   20,   34,  124,
+      116,  124,  125,  115,  125,  127,  127,  127,  114,  111,
+      110,  108,  106,  105,  104,  102,  101,  100,   99,   98,
+       96,   93,   92,   90,   88,   87,   86,   83,   81,   80,
+       79,   78,   77,   76,   74,   73,   72,   71,   70,   69,
+       67,   66,   64,   63,   62,   61,   59,   58,   57,   56,
+
+       55,   54,   53,   52,   51,   50,   49,   48,   47,   46,
+       45,   44,   43,   42,   41,   40,   39,   38,   37,   36,
+       35,   33,   31,   30,   29,   28,   26,   25,   24,   23,
+       21,   18,   16,   15,   14,   13,   12,    8,    7,    6,
+        3,    2,  123,  123,  123,  123,  123,  123,  123,  123,
+      123,  123,  123,  123,  123,  123,  123,  123,  123,  123,
+      123,  123,  123,  123,  123,  123,  123,  123,  123,  123,
+      123,  123,  123
+    } ;
+
+static yy_state_type yy_last_accepting_state;
+static char *yy_last_accepting_cpos;
+
+/* The intent behind this definition is that it'll catch
+ * any uses of REJECT which flex missed.
+ */
+#define REJECT reject_used_but_not_detected
+#define yymore() yymore_used_but_not_detected
+#define YY_MORE_ADJ 0
+#define YY_RESTORE_YY_MORE_OFFSET
+char *yytext;
+#line 1 "CC_command.l"
+#define INITIAL 0
+/* $id$
+ * ============================================================================
+ *
+ * = LIBRARY
+ *    TAO/orbsvcs/tests
+ *
+ * = FILENAME
+ *    CC_command.l
+ *
+ * = DESCRIPTION
+ *   This is the lex file for the concurrency service script language.
+ *
+ * = AUTHORS
+ *	Torben Worm <tworm@cs.wustl.edu>
+ *
+ * ============================================================================
+ */
+#line 20 "CC_command.l"
+#include "CC_command.h"
+#include "CC_command.tab.h"
+#include "ace/ACE.h"
+
+extern int line_no;
+extern char line_buf[500];
+#line 484 "lex.CC_command.c"
+
+/* Macros after this point can all be overridden by user definitions in
+ * section 1.
+ */
+
+#ifndef YY_SKIP_YYWRAP
+#ifdef __cplusplus
+extern "C" int yywrap YY_PROTO(( void ));
+#else
+extern int yywrap YY_PROTO(( void ));
+#endif
+#endif
+
+#ifndef YY_NO_UNPUT
+static void yyunput YY_PROTO(( int c, char *buf_ptr ));
+#endif
+
+#ifndef yytext_ptr
+static void yy_flex_strncpy YY_PROTO(( char *, yyconst char *, int ));
+#endif
+
+#ifdef YY_NEED_STRLEN
+static int yy_flex_strlen YY_PROTO(( yyconst char * ));
+#endif
+
+#ifndef YY_NO_INPUT
+#ifdef __cplusplus
+static int yyinput YY_PROTO(( void ));
+#else
+static int input YY_PROTO(( void ));
+#endif
+#endif
+
+#if YY_STACK_USED
+static int yy_start_stack_ptr = 0;
+static int yy_start_stack_depth = 0;
+static int *yy_start_stack = 0;
+#ifndef YY_NO_PUSH_STATE
+static void yy_push_state YY_PROTO(( int new_state ));
+#endif
+#ifndef YY_NO_POP_STATE
+static void yy_pop_state YY_PROTO(( void ));
+#endif
+#ifndef YY_NO_TOP_STATE
+static int yy_top_state YY_PROTO(( void ));
+#endif
+
+#else
+#define YY_NO_PUSH_STATE 1
+#define YY_NO_POP_STATE 1
+#define YY_NO_TOP_STATE 1
+#endif
+
+#ifdef YY_MALLOC_DECL
+YY_MALLOC_DECL
+#else
+#if __STDC__
+#ifndef __cplusplus
+#include <stdlib.h>
+#endif
+#else
+/* Just try to get by without declaring the routines.  This will fail
+ * miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int)
+ * or sizeof(void*) != sizeof(int).
+ */
+#endif
+#endif
+
+/* Amount of stuff to slurp up with each read. */
+#ifndef YY_READ_BUF_SIZE
+#define YY_READ_BUF_SIZE 8192
+#endif
+
+/* Copy whatever the last rule matched to the standard output. */
+
+#ifndef ECHO
+/* This used to be an fputs(), but since the string might contain NUL's,
+ * we now use fwrite().
+ */
+#define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
+#endif
+
+/* Gets input and stuffs it into "buf".  number of characters read, or YY_NULL,
+ * is returned in "result".
+ */
+#ifndef YY_INPUT
+#define YY_INPUT(buf,result,max_size) \
+	if ( yy_current_buffer->yy_is_interactive ) \
+		{ \
+		int c = '*', n; \
+		for ( n = 0; n < max_size && \
+			     (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
+			buf[n] = (char) c; \
+		if ( c == '\n' ) \
+			buf[n++] = (char) c; \
+		if ( c == EOF && ferror( yyin ) ) \
+			YY_FATAL_ERROR( "input in flex scanner failed" ); \
+		result = n; \
+		} \
+	else if ( ((result = fread( buf, 1, max_size, yyin )) == 0) \
+		  && ferror( yyin ) ) \
+		YY_FATAL_ERROR( "input in flex scanner failed" );
+#endif
+
+/* No semi-colon after return; correct usage is to write "yyterminate();" -
+ * we don't want an extra ';' after the "return" because that will cause
+ * some compilers to complain about unreachable statements.
+ */
+#ifndef yyterminate
+#define yyterminate() return YY_NULL
+#endif
+
+/* Number of entries by which start-condition stack grows. */
+#ifndef YY_START_STACK_INCR
+#define YY_START_STACK_INCR 25
+#endif
+
+/* Report a fatal error. */
+#ifndef YY_FATAL_ERROR
+#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
+#endif
+
+/* Default declaration of generated scanner - a define so the user can
+ * easily add parameters.
+ */
+#ifndef YY_DECL
+#define YY_DECL int yylex YY_PROTO(( void ))
+#endif
+
+/* Code executed at the beginning of each rule, after yytext and yyleng
+ * have been set up.
+ */
+#ifndef YY_USER_ACTION
+#define YY_USER_ACTION
+#endif
+
+/* Code executed at the end of each rule. */
+#ifndef YY_BREAK
+#define YY_BREAK break;
+#endif
+
+#define YY_RULE_SETUP \
+	if ( yyleng > 0 ) \
+		yy_current_buffer->yy_at_bol = \
+				(yytext[yyleng - 1] == '\n'); \
+	YY_USER_ACTION
+
+YY_DECL
+	{
+	register yy_state_type yy_current_state;
+	register char *yy_cp, *yy_bp;
+	register int yy_act;
+
+#line 28 "CC_command.l"
+
+
+#line 641 "lex.CC_command.c"
+
+	if ( yy_init )
+		{
+		yy_init = 0;
+
+#ifdef YY_USER_INIT
+		YY_USER_INIT;
+#endif
+
+		if ( ! yy_start )
+			yy_start = 1;	/* first start state */
+
+		if ( ! yyin )
+			yyin = stdin;
+
+		if ( ! yyout )
+			yyout = stdout;
+
+		if ( ! yy_current_buffer )
+			yy_current_buffer =
+				yy_create_buffer( yyin, YY_BUF_SIZE );
+
+		yy_load_buffer_state();
+		}
+
+	while ( 1 )		/* loops until end-of-file is reached */
+		{
+		yy_cp = yy_c_buf_p;
+
+		/* Support of yytext. */
+		*yy_cp = yy_hold_char;
+
+		/* yy_bp points to the position in yy_ch_buf of the start of
+		 * the current run.
+		 */
+		yy_bp = yy_cp;
+
+		yy_current_state = yy_start;
+		yy_current_state += YY_AT_BOL();
+yy_match:
+		do
+			{
+			register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
+			if ( yy_accept[yy_current_state] )
+				{
+				yy_last_accepting_state = yy_current_state;
+				yy_last_accepting_cpos = yy_cp;
+				}
+			while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
+				{
+				yy_current_state = (int) yy_def[yy_current_state];
+				if ( yy_current_state >= 124 )
+					yy_c = yy_meta[(unsigned int) yy_c];
+				}
+			yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
+			++yy_cp;
+			}
+		while ( yy_base[yy_current_state] != 143 );
+
+yy_find_action:
+		yy_act = yy_accept[yy_current_state];
+		if ( yy_act == 0 )
+			{ /* have to back up */
+			yy_cp = yy_last_accepting_cpos;
+			yy_current_state = yy_last_accepting_state;
+			yy_act = yy_accept[yy_current_state];
+			}
+
+		YY_DO_BEFORE_ACTION;
+
+
+do_action:	/* This label is used only to access EOF actions. */
+
+
+		switch ( yy_act )
+	{ /* beginning of action switch */
+			case 0: /* must back up */
+			/* undo the effects of YY_DO_BEFORE_ACTION */
+			*yy_cp = yy_hold_char;
+			yy_cp = yy_last_accepting_cpos;
+			yy_current_state = yy_last_accepting_state;
+			goto yy_find_action;
+
+case 1:
+YY_RULE_SETUP
+#line 30 "CC_command.l"
+return T_TERM;
+	YY_BREAK
+case 2:
+YY_RULE_SETUP
+#line 31 "CC_command.l"
+return T_START_CMD;
+	YY_BREAK
+case 3:
+YY_RULE_SETUP
+#line 32 "CC_command.l"
+return T_CREATE_CMD;
+	YY_BREAK
+case 4:
+YY_RULE_SETUP
+#line 33 "CC_command.l"
+return T_LOCK_CMD;
+	YY_BREAK
+case 5:
+YY_RULE_SETUP
+#line 34 "CC_command.l"
+return T_UNLOCK_CMD;
+	YY_BREAK
+case 6:
+YY_RULE_SETUP
+#line 35 "CC_command.l"
+return T_TRYLOCK_CMD;
+	YY_BREAK
+case 7:
+YY_RULE_SETUP
+#line 36 "CC_command.l"
+return T_CHANGEMODE_CMD;
+	YY_BREAK
+case 8:
+YY_RULE_SETUP
+#line 37 "CC_command.l"
+return T_SLEEP_CMD;
+	YY_BREAK
+case 9:
+YY_RULE_SETUP
+#line 38 "CC_command.l"
+return T_WAIT_CMD;
+	YY_BREAK
+case 10:
+YY_RULE_SETUP
+#line 39 "CC_command.l"
+return T_PRINT_CMD;
+	YY_BREAK
+case 11:
+YY_RULE_SETUP
+#line 40 "CC_command.l"
+return T_REPEAT_CMD;
+	YY_BREAK
+case 12:
+YY_RULE_SETUP
+#line 41 "CC_command.l"
+return T_EXCEP_CMD;
+	YY_BREAK
+case 13:
+YY_RULE_SETUP
+#line 42 "CC_command.l"
+return T_LOOKUP_CMD;
+	YY_BREAK
+case 14:
+YY_RULE_SETUP
+#line 43 "CC_command.l"
+return T_READ;
+	YY_BREAK
+case 15:
+YY_RULE_SETUP
+#line 44 "CC_command.l"
+return T_IREAD;
+	YY_BREAK
+case 16:
+YY_RULE_SETUP
+#line 45 "CC_command.l"
+return T_UPGRADE;
+	YY_BREAK
+case 17:
+YY_RULE_SETUP
+#line 46 "CC_command.l"
+return T_WRITE;
+	YY_BREAK
+case 18:
+YY_RULE_SETUP
+#line 47 "CC_command.l"
+return T_IWRITE;
+	YY_BREAK
+case 19:
+YY_RULE_SETUP
+#line 48 "CC_command.l"
+{ CC_commandlval.id = ACE_OS::strdup(&CC_commandtext[1]);
+			 CC_commandlval.id[CC_commandleng-2]='\0';
+			 return Q_STRING; }
+	YY_BREAK
+case 20:
+YY_RULE_SETUP
+#line 51 "CC_command.l"
+{ CC_commandlval.num = atoi(yytext); return T_NUM; }
+	YY_BREAK
+case 21:
+YY_RULE_SETUP
+#line 52 "CC_command.l"
+{ CC_commandlval.id = ACE_OS::strdup(CC_commandtext);
+                           return T_IDENT; }
+	YY_BREAK
+case 22:
+YY_RULE_SETUP
+#line 54 "CC_command.l"
+{ }
+	YY_BREAK
+case 23:
+YY_RULE_SETUP
+#line 55 "CC_command.l"
+{ }
+	YY_BREAK
+case 24:
+YY_RULE_SETUP
+#line 56 "CC_command.l"
+{ line_no ++;
+                           ACE_OS::strcpy(line_buf, CC_commandtext+1);
+                           yyless(1); }
+	YY_BREAK
+case 25:
+YY_RULE_SETUP
+#line 59 "CC_command.l"
+ECHO;
+	YY_BREAK
+#line 855 "lex.CC_command.c"
+case YY_STATE_EOF(INITIAL):
+	yyterminate();
+
+	case YY_END_OF_BUFFER:
+		{
+		/* Amount of text matched not including the EOB char. */
+		int yy_amount_of_matched_text = (int) (yy_cp - yytext_ptr) - 1;
+
+		/* Undo the effects of YY_DO_BEFORE_ACTION. */
+		*yy_cp = yy_hold_char;
+		YY_RESTORE_YY_MORE_OFFSET
+
+		if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_NEW )
+			{
+			/* We're scanning a new file or input source.  It's
+			 * possible that this happened because the user
+			 * just pointed yyin at a new source and called
+			 * yylex().  If so, then we have to assure
+			 * consistency between yy_current_buffer and our
+			 * globals.  Here is the right place to do so, because
+			 * this is the first action (other than possibly a
+			 * back-up) that will match for the new input source.
+			 */
+			yy_n_chars = yy_current_buffer->yy_n_chars;
+			yy_current_buffer->yy_input_file = yyin;
+			yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL;
+			}
+
+		/* Note that here we test for yy_c_buf_p "<=" to the position
+		 * of the first EOB in the buffer, since yy_c_buf_p will
+		 * already have been incremented past the NUL character
+		 * (since all states make transitions on EOB to the
+		 * end-of-buffer state).  Contrast this with the test
+		 * in input().
+		 */
+		if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
+			{ /* This was really a NUL. */
+			yy_state_type yy_next_state;
+
+			yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text;
+
+			yy_current_state = yy_get_previous_state();
+
+			/* Okay, we're now positioned to make the NUL
+			 * transition.  We couldn't have
+			 * yy_get_previous_state() go ahead and do it
+			 * for us because it doesn't know how to deal
+			 * with the possibility of jamming (and we don't
+			 * want to build jamming into it because then it
+			 * will run more slowly).
+			 */
+
+			yy_next_state = yy_try_NUL_trans( yy_current_state );
+
+			yy_bp = yytext_ptr + YY_MORE_ADJ;
+
+			if ( yy_next_state )
+				{
+				/* Consume the NUL. */
+				yy_cp = ++yy_c_buf_p;
+				yy_current_state = yy_next_state;
+				goto yy_match;
+				}
+
+			else
+				{
+				yy_cp = yy_c_buf_p;
+				goto yy_find_action;
+				}
+			}
+
+		else switch ( yy_get_next_buffer() )
+			{
+			case EOB_ACT_END_OF_FILE:
+				{
+				yy_did_buffer_switch_on_eof = 0;
+
+				if ( yywrap() )
+					{
+					/* Note: because we've taken care in
+					 * yy_get_next_buffer() to have set up
+					 * yytext, we can now set up
+					 * yy_c_buf_p so that if some total
+					 * hoser (like flex itself) wants to
+					 * call the scanner after we return the
+					 * YY_NULL, it'll still work - another
+					 * YY_NULL will get returned.
+					 */
+					yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
+
+					yy_act = YY_STATE_EOF(YY_START);
+					goto do_action;
+					}
+
+				else
+					{
+					if ( ! yy_did_buffer_switch_on_eof )
+						YY_NEW_FILE;
+					}
+				break;
+				}
+
+			case EOB_ACT_CONTINUE_SCAN:
+				yy_c_buf_p =
+					yytext_ptr + yy_amount_of_matched_text;
+
+				yy_current_state = yy_get_previous_state();
+
+				yy_cp = yy_c_buf_p;
+				yy_bp = yytext_ptr + YY_MORE_ADJ;
+				goto yy_match;
+
+			case EOB_ACT_LAST_MATCH:
+				yy_c_buf_p =
+				&yy_current_buffer->yy_ch_buf[yy_n_chars];
+
+				yy_current_state = yy_get_previous_state();
+
+				yy_cp = yy_c_buf_p;
+				yy_bp = yytext_ptr + YY_MORE_ADJ;
+				goto yy_find_action;
+			}
+		break;
+		}
+
+	default:
+		YY_FATAL_ERROR(
+			"fatal flex scanner internal error--no action found" );
+	} /* end of action switch */
+		} /* end of scanning one token */
+	} /* end of yylex */
+
+
+/* yy_get_next_buffer - try to read in a new buffer
+ *
+ * Returns a code representing an action:
+ *	EOB_ACT_LAST_MATCH -
+ *	EOB_ACT_CONTINUE_SCAN - continue scanning from current position
+ *	EOB_ACT_END_OF_FILE - end of file
+ */
+
+static int yy_get_next_buffer()
+	{
+	register char *dest = yy_current_buffer->yy_ch_buf;
+	register char *source = yytext_ptr;
+	register int number_to_move, i;
+	int ret_val;
+
+	if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
+		YY_FATAL_ERROR(
+		"fatal flex scanner internal error--end of buffer missed" );
+
+	if ( yy_current_buffer->yy_fill_buffer == 0 )
+		{ /* Don't try to fill the buffer, so this is an EOF. */
+		if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 )
+			{
+			/* We matched a single character, the EOB, so
+			 * treat this as a final EOF.
+			 */
+			return EOB_ACT_END_OF_FILE;
+			}
+
+		else
+			{
+			/* We matched some text prior to the EOB, first
+			 * process it.
+			 */
+			return EOB_ACT_LAST_MATCH;
+			}
+		}
+
+	/* Try to read more data. */
+
+	/* First move last chars to start of buffer. */
+	number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1;
+
+	for ( i = 0; i < number_to_move; ++i )
+		*(dest++) = *(source++);
+
+	if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING )
+		/* don't do the read, it's not guaranteed to return an EOF,
+		 * just force an EOF
+		 */
+		yy_current_buffer->yy_n_chars = yy_n_chars = 0;
+
+	else
+		{
+		int num_to_read =
+			yy_current_buffer->yy_buf_size - number_to_move - 1;
+
+		while ( num_to_read <= 0 )
+			{ /* Not enough room in the buffer - grow it. */
+#ifdef YY_USES_REJECT
+			YY_FATAL_ERROR(
+"input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
+#else
+
+			/* just a shorter name for the current buffer */
+			YY_BUFFER_STATE b = yy_current_buffer;
+
+			int yy_c_buf_p_offset =
+				(int) (yy_c_buf_p - b->yy_ch_buf);
+
+			if ( b->yy_is_our_buffer )
+				{
+				int new_size = b->yy_buf_size * 2;
+
+				if ( new_size <= 0 )
+					b->yy_buf_size += b->yy_buf_size / 8;
+				else
+					b->yy_buf_size *= 2;
+
+				b->yy_ch_buf = (char *)
+					/* Include room in for 2 EOB chars. */
+					yy_flex_realloc( (void *) b->yy_ch_buf,
+							 b->yy_buf_size + 2 );
+				}
+			else
+				/* Can't grow it, we don't own it. */
+				b->yy_ch_buf = 0;
+
+			if ( ! b->yy_ch_buf )
+				YY_FATAL_ERROR(
+				"fatal error - scanner input buffer overflow" );
+
+			yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
+
+			num_to_read = yy_current_buffer->yy_buf_size -
+						number_to_move - 1;
+#endif
+			}
+
+		if ( num_to_read > YY_READ_BUF_SIZE )
+			num_to_read = YY_READ_BUF_SIZE;
+
+		/* Read in more data. */
+		YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
+			yy_n_chars, num_to_read );
+
+		yy_current_buffer->yy_n_chars = yy_n_chars;
+		}
+
+	if ( yy_n_chars == 0 )
+		{
+		if ( number_to_move == YY_MORE_ADJ )
+			{
+			ret_val = EOB_ACT_END_OF_FILE;
+			yyrestart( yyin );
+			}
+
+		else
+			{
+			ret_val = EOB_ACT_LAST_MATCH;
+			yy_current_buffer->yy_buffer_status =
+				YY_BUFFER_EOF_PENDING;
+			}
+		}
+
+	else
+		ret_val = EOB_ACT_CONTINUE_SCAN;
+
+	yy_n_chars += number_to_move;
+	yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
+	yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
+
+	yytext_ptr = &yy_current_buffer->yy_ch_buf[0];
+
+	return ret_val;
+	}
+
+
+/* yy_get_previous_state - get the state just before the EOB char was reached */
+
+static yy_state_type yy_get_previous_state()
+	{
+	register yy_state_type yy_current_state;
+	register char *yy_cp;
+
+	yy_current_state = yy_start;
+	yy_current_state += YY_AT_BOL();
+
+	for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
+		{
+		register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
+		if ( yy_accept[yy_current_state] )
+			{
+			yy_last_accepting_state = yy_current_state;
+			yy_last_accepting_cpos = yy_cp;
+			}
+		while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
+			{
+			yy_current_state = (int) yy_def[yy_current_state];
+			if ( yy_current_state >= 124 )
+				yy_c = yy_meta[(unsigned int) yy_c];
+			}
+		yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
+		}
+
+	return yy_current_state;
+	}
+
+
+/* yy_try_NUL_trans - try to make a transition on the NUL character
+ *
+ * synopsis
+ *	next_state = yy_try_NUL_trans( current_state );
+ */
+
+#ifdef YY_USE_PROTOS
+static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state )
+#else
+static yy_state_type yy_try_NUL_trans( yy_current_state )
+yy_state_type yy_current_state;
+#endif
+	{
+	register int yy_is_jam;
+	register char *yy_cp = yy_c_buf_p;
+
+	register YY_CHAR yy_c = 1;
+	if ( yy_accept[yy_current_state] )
+		{
+		yy_last_accepting_state = yy_current_state;
+		yy_last_accepting_cpos = yy_cp;
+		}
+	while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
+		{
+		yy_current_state = (int) yy_def[yy_current_state];
+		if ( yy_current_state >= 124 )
+			yy_c = yy_meta[(unsigned int) yy_c];
+		}
+	yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
+	yy_is_jam = (yy_current_state == 123);
+
+	return yy_is_jam ? 0 : yy_current_state;
+	}
+
+
+#ifndef YY_NO_UNPUT
+#ifdef YY_USE_PROTOS
+static void yyunput( int c, register char *yy_bp )
+#else
+static void yyunput( c, yy_bp )
+int c;
+register char *yy_bp;
+#endif
+	{
+	register char *yy_cp = yy_c_buf_p;
+
+	/* undo effects of setting up yytext */
+	*yy_cp = yy_hold_char;
+
+	if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
+		{ /* need to shift things up to make room */
+		/* +2 for EOB chars. */
+		register int number_to_move = yy_n_chars + 2;
+		register char *dest = &yy_current_buffer->yy_ch_buf[
+					yy_current_buffer->yy_buf_size + 2];
+		register char *source =
+				&yy_current_buffer->yy_ch_buf[number_to_move];
+
+		while ( source > yy_current_buffer->yy_ch_buf )
+			*--dest = *--source;
+
+		yy_cp += (int) (dest - source);
+		yy_bp += (int) (dest - source);
+		yy_current_buffer->yy_n_chars =
+			yy_n_chars = yy_current_buffer->yy_buf_size;
+
+		if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
+			YY_FATAL_ERROR( "flex scanner push-back overflow" );
+		}
+
+	*--yy_cp = (char) c;
+
+
+	yytext_ptr = yy_bp;
+	yy_hold_char = *yy_cp;
+	yy_c_buf_p = yy_cp;
+	}
+#endif	/* ifndef YY_NO_UNPUT */
+
+
+#ifdef __cplusplus
+static int yyinput()
+#else
+static int input()
+#endif
+	{
+	int c;
+
+	*yy_c_buf_p = yy_hold_char;
+
+	if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
+		{
+		/* yy_c_buf_p now points to the character we want to return.
+		 * If this occurs *before* the EOB characters, then it's a
+		 * valid NUL; if not, then we've hit the end of the buffer.
+		 */
+		if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
+			/* This was really a NUL. */
+			*yy_c_buf_p = '\0';
+
+		else
+			{ /* need more input */
+			int offset = yy_c_buf_p - yytext_ptr;
+			++yy_c_buf_p;
+
+			switch ( yy_get_next_buffer() )
+				{
+				case EOB_ACT_LAST_MATCH:
+					/* This happens because yy_g_n_b()
+					 * sees that we've accumulated a
+					 * token and flags that we need to
+					 * try matching the token before
+					 * proceeding.  But for input(),
+					 * there's no matching to consider.
+					 * So convert the EOB_ACT_LAST_MATCH
+					 * to EOB_ACT_END_OF_FILE.
+					 */
+
+					/* Reset buffer status. */
+					yyrestart( yyin );
+
+					/* fall through */
+
+				case EOB_ACT_END_OF_FILE:
+					{
+					if ( yywrap() )
+						return EOF;
+
+					if ( ! yy_did_buffer_switch_on_eof )
+						YY_NEW_FILE;
+#ifdef __cplusplus
+					return yyinput();
+#else
+					return input();
+#endif
+					}
+
+				case EOB_ACT_CONTINUE_SCAN:
+					yy_c_buf_p = yytext_ptr + offset;
+					break;
+				}
+			}
+		}
+
+	c = *(unsigned char *) yy_c_buf_p;	/* cast for 8-bit char's */
+	*yy_c_buf_p = '\0';	/* preserve yytext */
+	yy_hold_char = *++yy_c_buf_p;
+
+	yy_current_buffer->yy_at_bol = (c == '\n');
+
+	return c;
+	}
+
+
+#ifdef YY_USE_PROTOS
+void yyrestart( FILE *input_file )
+#else
+void yyrestart( input_file )
+FILE *input_file;
+#endif
+	{
+	if ( ! yy_current_buffer )
+		yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
+
+	yy_init_buffer( yy_current_buffer, input_file );
+	yy_load_buffer_state();
+	}
+
+
+#ifdef YY_USE_PROTOS
+void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
+#else
+void yy_switch_to_buffer( new_buffer )
+YY_BUFFER_STATE new_buffer;
+#endif
+	{
+	if ( yy_current_buffer == new_buffer )
+		return;
+
+	if ( yy_current_buffer )
+		{
+		/* Flush out information for old buffer. */
+		*yy_c_buf_p = yy_hold_char;
+		yy_current_buffer->yy_buf_pos = yy_c_buf_p;
+		yy_current_buffer->yy_n_chars = yy_n_chars;
+		}
+
+	yy_current_buffer = new_buffer;
+	yy_load_buffer_state();
+
+	/* We don't actually know whether we did this switch during
+	 * EOF (yywrap()) processing, but the only time this flag
+	 * is looked at is after yywrap() is called, so it's safe
+	 * to go ahead and always set it.
+	 */
+	yy_did_buffer_switch_on_eof = 1;
+	}
+
+
+#ifdef YY_USE_PROTOS
+void yy_load_buffer_state( void )
+#else
+void yy_load_buffer_state()
+#endif
+	{
+	yy_n_chars = yy_current_buffer->yy_n_chars;
+	yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
+	yyin = yy_current_buffer->yy_input_file;
+	yy_hold_char = *yy_c_buf_p;
+	}
+
+
+#ifdef YY_USE_PROTOS
+YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
+#else
+YY_BUFFER_STATE yy_create_buffer( file, size )
+FILE *file;
+int size;
+#endif
+	{
+	YY_BUFFER_STATE b;
+
+	b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
+	if ( ! b )
+		YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
+
+	b->yy_buf_size = size;
+
+	/* yy_ch_buf has to be 2 characters longer than the size given because
+	 * we need to put in 2 end-of-buffer characters.
+	 */
+	b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 );
+	if ( ! b->yy_ch_buf )
+		YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
+
+	b->yy_is_our_buffer = 1;
+
+	yy_init_buffer( b, file );
+
+	return b;
+	}
+
+
+#ifdef YY_USE_PROTOS
+void yy_delete_buffer( YY_BUFFER_STATE b )
+#else
+void yy_delete_buffer( b )
+YY_BUFFER_STATE b;
+#endif
+	{
+	if ( ! b )
+		return;
+
+	if ( b == yy_current_buffer )
+		yy_current_buffer = (YY_BUFFER_STATE) 0;
+
+	if ( b->yy_is_our_buffer )
+		yy_flex_free( (void *) b->yy_ch_buf );
+
+	yy_flex_free( (void *) b );
+	}
+
+
+#ifndef YY_ALWAYS_INTERACTIVE
+#ifndef YY_NEVER_INTERACTIVE
+extern int isatty YY_PROTO(( int ));
+#endif
+#endif
+
+#ifdef YY_USE_PROTOS
+void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
+#else
+void yy_init_buffer( b, file )
+YY_BUFFER_STATE b;
+FILE *file;
+#endif
+
+
+	{
+	yy_flush_buffer( b );
+
+	b->yy_input_file = file;
+	b->yy_fill_buffer = 1;
+
+#if YY_ALWAYS_INTERACTIVE
+	b->yy_is_interactive = 1;
+#else
+#if YY_NEVER_INTERACTIVE
+	b->yy_is_interactive = 0;
+#else
+	b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
+#endif
+#endif
+	}
+
+
+#ifdef YY_USE_PROTOS
+void yy_flush_buffer( YY_BUFFER_STATE b )
+#else
+void yy_flush_buffer( b )
+YY_BUFFER_STATE b;
+#endif
+
+	{
+	if ( ! b )
+		return;
+
+	b->yy_n_chars = 0;
+
+	/* We always need two end-of-buffer characters.  The first causes
+	 * a transition to the end-of-buffer state.  The second causes
+	 * a jam in that state.
+	 */
+	b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
+	b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
+
+	b->yy_buf_pos = &b->yy_ch_buf[0];
+
+	b->yy_at_bol = 1;
+	b->yy_buffer_status = YY_BUFFER_NEW;
+
+	if ( b == yy_current_buffer )
+		yy_load_buffer_state();
+	}
+
+
+#ifndef YY_NO_SCAN_BUFFER
+#ifdef YY_USE_PROTOS
+YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size )
+#else
+YY_BUFFER_STATE yy_scan_buffer( base, size )
+char *base;
+yy_size_t size;
+#endif
+	{
+	YY_BUFFER_STATE b;
+
+	if ( size < 2 ||
+	     base[size-2] != YY_END_OF_BUFFER_CHAR ||
+	     base[size-1] != YY_END_OF_BUFFER_CHAR )
+		/* They forgot to leave room for the EOB's. */
+		return 0;
+
+	b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
+	if ( ! b )
+		YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
+
+	b->yy_buf_size = size - 2;	/* "- 2" to take care of EOB's */
+	b->yy_buf_pos = b->yy_ch_buf = base;
+	b->yy_is_our_buffer = 0;
+	b->yy_input_file = 0;
+	b->yy_n_chars = b->yy_buf_size;
+	b->yy_is_interactive = 0;
+	b->yy_at_bol = 1;
+	b->yy_fill_buffer = 0;
+	b->yy_buffer_status = YY_BUFFER_NEW;
+
+	yy_switch_to_buffer( b );
+
+	return b;
+	}
+#endif
+
+
+#ifndef YY_NO_SCAN_STRING
+#ifdef YY_USE_PROTOS
+YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str )
+#else
+YY_BUFFER_STATE yy_scan_string( yy_str )
+yyconst char *yy_str;
+#endif
+	{
+	int len;
+	for ( len = 0; yy_str[len]; ++len )
+		;
+
+	return yy_scan_bytes( yy_str, len );
+	}
+#endif
+
+
+#ifndef YY_NO_SCAN_BYTES
+#ifdef YY_USE_PROTOS
+YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len )
+#else
+YY_BUFFER_STATE yy_scan_bytes( bytes, len )
+yyconst char *bytes;
+int len;
+#endif
+	{
+	YY_BUFFER_STATE b;
+	char *buf;
+	yy_size_t n;
+	int i;
+
+	/* Get memory for full buffer, including space for trailing EOB's. */
+	n = len + 2;
+	buf = (char *) yy_flex_alloc( n );
+	if ( ! buf )
+		YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
+
+	for ( i = 0; i < len; ++i )
+		buf[i] = bytes[i];
+
+	buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR;
+
+	b = yy_scan_buffer( buf, n );
+	if ( ! b )
+		YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
+
+	/* It's okay to grow etc. this buffer, and we should throw it
+	 * away when we're done.
+	 */
+	b->yy_is_our_buffer = 1;
+
+	return b;
+	}
+#endif
+
+
+#ifndef YY_NO_PUSH_STATE
+#ifdef YY_USE_PROTOS
+static void yy_push_state( int new_state )
+#else
+static void yy_push_state( new_state )
+int new_state;
+#endif
+	{
+	if ( yy_start_stack_ptr >= yy_start_stack_depth )
+		{
+		yy_size_t new_size;
+
+		yy_start_stack_depth += YY_START_STACK_INCR;
+		new_size = yy_start_stack_depth * sizeof( int );
+
+		if ( ! yy_start_stack )
+			yy_start_stack = (int *) yy_flex_alloc( new_size );
+
+		else
+			yy_start_stack = (int *) yy_flex_realloc(
+					(void *) yy_start_stack, new_size );
+
+		if ( ! yy_start_stack )
+			YY_FATAL_ERROR(
+			"out of memory expanding start-condition stack" );
+		}
+
+	yy_start_stack[yy_start_stack_ptr++] = YY_START;
+
+	BEGIN(new_state);
+	}
+#endif
+
+
+#ifndef YY_NO_POP_STATE
+static void yy_pop_state()
+	{
+	if ( --yy_start_stack_ptr < 0 )
+		YY_FATAL_ERROR( "start-condition stack underflow" );
+
+	BEGIN(yy_start_stack[yy_start_stack_ptr]);
+	}
+#endif
+
+
+#ifndef YY_NO_TOP_STATE
+static int yy_top_state()
+	{
+	return yy_start_stack[yy_start_stack_ptr - 1];
+	}
+#endif
+
+#ifndef YY_EXIT_FAILURE
+#define YY_EXIT_FAILURE 2
+#endif
+
+#ifdef YY_USE_PROTOS
+static void yy_fatal_error( yyconst char msg[] )
+#else
+static void yy_fatal_error( msg )
+char msg[];
+#endif
+	{
+	(void) fprintf( stderr, "%s\n", msg );
+	exit( YY_EXIT_FAILURE );
+	}
+
+
+
+/* Redefine yyless() so it works in section 3 code. */
+
+#undef yyless
+#define yyless(n) \
+	do \
+		{ \
+		/* Undo effects of setting up yytext. */ \
+		yytext[yyleng] = yy_hold_char; \
+		yy_c_buf_p = yytext + n; \
+		yy_hold_char = *yy_c_buf_p; \
+		*yy_c_buf_p = '\0'; \
+		yyleng = n; \
+		} \
+	while ( 0 )
+
+
+/* Internal utility routines. */
+
+#ifndef yytext_ptr
+#ifdef YY_USE_PROTOS
+static void yy_flex_strncpy( char *s1, yyconst char *s2, int n )
+#else
+static void yy_flex_strncpy( s1, s2, n )
+char *s1;
+yyconst char *s2;
+int n;
+#endif
+	{
+	register int i;
+	for ( i = 0; i < n; ++i )
+		s1[i] = s2[i];
+	}
+#endif
+
+#ifdef YY_NEED_STRLEN
+#ifdef YY_USE_PROTOS
+static int yy_flex_strlen( yyconst char *s )
+#else
+static int yy_flex_strlen( s )
+yyconst char *s;
+#endif
+	{
+	register int n;
+	for ( n = 0; s[n]; ++n )
+		;
+
+	return n;
+	}
+#endif
+
+
+#ifdef YY_USE_PROTOS
+static void *yy_flex_alloc( yy_size_t size )
+#else
+static void *yy_flex_alloc( size )
+yy_size_t size;
+#endif
+	{
+	return (void *) malloc( size );
+	}
+
+#ifdef YY_USE_PROTOS
+static void *yy_flex_realloc( void *ptr, yy_size_t size )
+#else
+static void *yy_flex_realloc( ptr, size )
+void *ptr;
+yy_size_t size;
+#endif
+	{
+	/* The cast to (char *) in the following accommodates both
+	 * implementations that use char* generic pointers, and those
+	 * that use void* generic pointers.  It works with the latter
+	 * because both ANSI C and C++ allow castless assignment from
+	 * any pointer type to void*, and deal with argument conversions
+	 * as though doing an assignment.
+	 */
+	return (void *) realloc( (char *) ptr, size );
+	}
+
+#ifdef YY_USE_PROTOS
+static void yy_flex_free( void *ptr )
+#else
+static void yy_flex_free( ptr )
+void *ptr;
+#endif
+	{
+	free( ptr );
+	}
+
+#if YY_MAIN
+int main()
+	{
+	yylex();
+	return 0;
+	}
+#endif
+#line 59 "CC_command.l"