1 files changed, 123 insertions, 0 deletions
diff --git a/modules/CIAO/CCF/CCF/CIDL/Parser.hpp b/modules/CIAO/CCF/CCF/CIDL/Parser.hpp
new file mode 100644
index 00000000000..719f97f184d
--- /dev/null
+++ b/modules/CIAO/CCF/CCF/CIDL/Parser.hpp
@@ -0,0 +1,123 @@
+// file      : CCF/CIDL/Parser.hpp
+// author    : Boris Kolpackov <boris@dre.vanderbilt.edu>
+// cvs-id    : $Id$
+
+#ifndef CCF_CIDL_PARSER_HPP
+#define CCF_CIDL_PARSER_HPP
+
+#include "CCF/CompilerElements/Context.hpp"
+
+#include "CCF/IDL3/Parser.hpp"
+
+#include "CCF/CIDL/LexicalAnalyzer.hpp"
+#include "CCF/CIDL/SemanticAction.hpp"
+
+namespace CCF
+{
+  namespace CIDL
+  {
+    using IDL3::ActionExecutor;
+    using IDL3::NoArgAction;
+    using IDL3::OneArgAction;
+    using IDL3::TwoArgAction;
+
+    class Parser : public virtual IDL3::Parser
+    {
+    protected:
+      LexicalAnalyzer const& lexer_;
+      SemanticAction::Factory& actions_;
+
+      //
+      // Primitives (alphabetic order).
+      //
+
+      KeywordParser COMPOSITION;
+      KeywordParser ENTITY;
+      KeywordParser EXECUTOR;
+      KeywordParser IMPLEMENTS;
+      KeywordParser PROCESS;
+      KeywordParser SERVICE;
+      KeywordParser SESSION;
+
+      //
+      // Language
+      //
+
+      Rule extension;
+
+      // Composition
+      Rule composition_decl;
+      Rule composition_category;
+
+      // Home executor
+      Rule home_executor_decl;
+      Rule home_executor_home_impl_decl;
+      Rule home_executor_executor_decl;
+
+    public:
+      Parser (CompilerElements::Context& context,
+              Diagnostic::Stream& dout,
+              LexicalAnalyzer const& l,
+              SemanticAction::Factory& f);
+
+    protected:
+      void
+      act_composition_begin_core (Iterator begin, Iterator) const
+      {
+        SemanticAction::Composition::Category::Value c;
+
+        if((*begin)->lexeme () == "entity")
+        {
+          c = SemanticAction::Composition::Category::entity;
+        }
+        else if ((*begin)->lexeme () == "process")
+        {
+          c = SemanticAction::Composition::Category::process;
+        }
+        else if ((*begin)->lexeme () == "service")
+        {
+          c = SemanticAction::Composition::Category::service;
+        }
+        else
+        {
+          c = SemanticAction::Composition::Category::session;
+        }
+
+        begin++;
+
+        actions_.composition ().begin (
+          ReferenceCounting::strict_cast<SimpleIdentifier> (*begin), c);
+      }
+
+      // Composition
+      //
+      ActionExecutor<Parser>
+      act_composition_begin;
+
+      ScopeAction
+      act_composition_open_scope;
+
+      ScopeAction
+      act_composition_close_scope;
+
+      NoArgAction<SemanticAction::Composition>
+      act_composition_end;
+
+      // Home Executor
+      //
+      OneArgAction<SimpleIdentifierPtr, SemanticAction::HomeExecutor>
+      act_home_executor_begin;
+
+      OneArgAction<IdentifierPtr, SemanticAction::HomeExecutor>
+      act_home_executor_implements;
+
+      OneArgAction<SimpleIdentifierPtr, SemanticAction::HomeExecutor>
+      act_home_executor_manages;
+
+      NoArgAction<SemanticAction::HomeExecutor>
+      act_home_executor_end;
+    };
+  }
+}
+
+#endif  // CCF_CIDL_PARSER_HPP