summaryrefslogtreecommitdiff
path: root/TAO/CIAO/CCF/CCF/CIDL/SemanticAction/Impl/Factory.cpp
blob: 33ac8583dc3871612178e243acfd837eaacff44d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
// file      : CCF/CIDL/SemanticAction/Impl/Factory.cpp
// author    : Boris Kolpackov <boris@dre.vanderbilt.edu>
// cvs-id    : $Id$

#include "CCF/IDL2/SemanticGraph/Elements.hpp"
#include "CCF/IDL2/SemanticGraph/Module.hpp"
#include "CCF/IDL2/SemanticGraph/Interface.hpp"

#include "CCF/CIDL/SemanticAction/Impl/Factory.hpp"

namespace CCF
{
  namespace CIDL
  {
    namespace SemanticAction
    {
      namespace Impl
      {
        using namespace SemanticGraph;

        Factory::
        ~Factory () throw ()
        {
        }

        Factory::
        Factory (CompilerElements::Context& context,
                   Diagnostic::Stream& dout,
                   SemanticGraph::TranslationUnit& tu)
            : IDL2::SemanticAction::Impl::Factory (context, dout, tu),
              IDL3::SemanticAction::Impl::Factory (context, dout, tu),

              composition_ (ctx_),
              home_executor_ (ctx_)
        {
          //@@ I am still not sure what is the right way to do this.
          //   Current approach suppresses Components.idl inclusion
          //   and implicitly defines necessary types.
          //

          //@@ this region is inserted after principal which is
          //   somewhat strange. It doesn't affect anything as
          //   long as no code is generated for this region.
          //

          // Implied translation region with CCM-related types.
          //
          TranslationRegion& ctr (tu.new_node<TranslationRegion> ());
          tu.new_edge<ContainsImplied> (tu, ctr, ".components");

          Root& cr (tu.new_node<Root> ());
          tu.new_edge<ContainsRoot> (ctr, cr);

          Module& cm (tu.new_node<Module> ());
          tu.new_edge<Defines> (cr, cm, "Components");

          tu.new_edge<Defines> (
            cm, tu.new_node<LocalInterface> (), "EnterpriseComponent");
        }
      }
    }
  }
}