1 files changed, 112 insertions, 0 deletions
diff --git a/TAO/orbsvcs/orbsvcs/ETCL/ETCL_Interpreter.cpp b/TAO/orbsvcs/orbsvcs/ETCL/ETCL_Interpreter.cpp
new file mode 100644
index 00000000000..2f083900155
--- /dev/null
+++ b/TAO/orbsvcs/orbsvcs/ETCL/ETCL_Interpreter.cpp
@@ -0,0 +1,112 @@
+// -*- C++ -*-
+// $Id$
+
+#include "orbsvcs/ETCL/ETCL_Interpreter.h"
+#include "orbsvcs/ETCL/ETCL_Constraint.h"
+#include "ace/Guard_T.h"
+#include "ace/Thread_Mutex.h"
+
+ACE_RCSID(ETCL, ETCL_Interpreter, "$Id$")
+
+
+TAO_BEGIN_VERSIONED_NAMESPACE_DECL
+
+TAO_SYNCH_MUTEX TAO_ETCL_Interpreter::parserMutex__;
+
+TAO_ETCL_Interpreter::TAO_ETCL_Interpreter (void)
+  : root_ (0)
+{
+}
+
+TAO_ETCL_Interpreter::~TAO_ETCL_Interpreter (void)
+{
+  delete this->root_;
+}
+
+int
+TAO_ETCL_Interpreter::build_tree (const char* constraints)
+{
+  ACE_GUARD_RETURN (TAO_SYNCH_MUTEX,
+                    guard,
+                    TAO_ETCL_Interpreter::parserMutex__,
+                    -1);
+
+  TAO_Lex_String_Input::reset ((char*)constraints);
+
+  yyval.constraint = 0;
+  int return_value = ::yyparse ();
+
+  if (return_value == 0 && yyval.constraint != 0)
+    {
+      this->root_ = yyval.constraint;
+    }
+  else
+    {
+      this->root_ = 0;
+    }
+
+  return return_value;
+}
+
+int
+TAO_ETCL_Interpreter::is_empty_string (const char* str)
+{
+  int return_value = 0;
+
+  if (str != 0)
+    {
+      int i = 0;
+
+      while (str[i] != '\0')
+        {
+          if (str[i] != ' ')
+            {
+              break;
+            }
+
+          i++;
+        }
+
+      if (str[i] == '\0')
+        {
+          return_value = 1;
+        }
+    }
+
+  return return_value;
+}
+
+char* TAO_Lex_String_Input::string_ = 0;
+char* TAO_Lex_String_Input::current_ = 0;
+char* TAO_Lex_String_Input::end_ = 0;
+
+// Routine to have Lex read its input from the constraint string.
+
+int
+TAO_Lex_String_Input::copy_into (char* buf, 
+                                 int max_size)
+{
+  int chars_left =  TAO_Lex_String_Input::end_ - TAO_Lex_String_Input::current_;
+  int n = max_size > chars_left ? chars_left : max_size;
+
+  if (n > 0)
+    {
+      ACE_OS:: memcpy (buf,
+                       TAO_Lex_String_Input::current_,
+                       n);
+      TAO_Lex_String_Input::current_ += n;
+    }
+
+  return n;
+}
+
+void
+TAO_Lex_String_Input::reset (char* input_string)
+{
+  TAO_Lex_String_Input::string_ = input_string;
+  TAO_Lex_String_Input::current_ = input_string;
+  TAO_Lex_String_Input::end_ = 
+    input_string + ACE_OS::strlen (TAO_Lex_String_Input::string_);
+}
+
+TAO_END_VERSIONED_NAMESPACE_DECL