TAO/orbsvcs/IFR_Service/be_global.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    be_global.cpp
   5  *
   6  *  Stores global data specific to the compiler back end.
   7  *
   8  *  @author Jeff Parsons <parsons@cs.wustl.edu>
   9  */
  10 //=============================================================================
  11
  12
  13 #include "orbsvcs/Log_Macros.h"
  14 #include "be_global.h"
  15 #include "ast_generator.h"
  16 #include "global_extern.h"
  17 #include "idl_defines.h"
  18
  19 TAO_IFR_BE_Export BE_GlobalData *be_global = 0;
  20
  21 BE_GlobalData::BE_GlobalData ()
  22   : removing_ (false),
  23     filename_ (0),
  24     enable_locking_ (false),
  25     do_included_files_ (true),
  26     allow_duplicate_typedefs_ (false)
  27 {
  28   // At this point, the FE has been initialized.  We can
  29   // now instruct it that we want to preserve c++ keywords.
  30   idl_global->preserve_cpp_keywords (true);
  31 }
  32
  33 BE_GlobalData::~BE_GlobalData ()
  34 {
  35 }
  36
  37 bool
  38 BE_GlobalData::removing () const
  39 {
  40   return this->removing_;
  41 }
  42
  43 void
  44 BE_GlobalData::removing (bool value)
  45 {
  46   this->removing_ = value;
  47 }
  48
  49 CORBA::ORB_ptr
  50 BE_GlobalData::orb () const
  51 {
  52   return this->orb_.in ();
  53 }
  54
  55 void
  56 BE_GlobalData::orb (CORBA::ORB_ptr orb)
  57 {
  58   this->orb_ = orb;
  59 }
  60
  61 CORBA::Repository_ptr
  62 BE_GlobalData::repository () const
  63 {
  64   return this->repository_.in ();
  65 }
  66
  67 void
  68 BE_GlobalData::repository (CORBA::Repository_ptr repo)
  69 {
  70   this->repository_ = repo;
  71 }
  72
  73 ACE_Unbounded_Stack<CORBA::Container_ptr> &
  74 BE_GlobalData::ifr_scopes ()
  75 {
  76   return this->ifr_scopes_;
  77 }
  78
  79 void
  80 BE_GlobalData::destroy ()
  81 {
  82 }
  83
  84 const char *
  85 BE_GlobalData::filename () const
  86 {
  87   return this->filename_;
  88 }
  89
  90 void
  91 BE_GlobalData::filename (char *fname)
  92 {
  93   this->filename_ = fname;
  94 }
  95
  96 bool
  97 BE_GlobalData::enable_locking () const
  98 {
  99   return this->enable_locking_;
 100 }
 101
 102 void
 103 BE_GlobalData::enable_locking (bool value)
 104 {
 105   this->enable_locking_ = value;
 106 }
 107
 108 bool
 109 BE_GlobalData::do_included_files () const
 110 {
 111   return this->do_included_files_;
 112 }
 113
 114 void
 115 BE_GlobalData::do_included_files (bool val)
 116 {
 117   this->do_included_files_ = val;
 118 }
 119
 120 bool
 121 BE_GlobalData::allow_duplicate_typedefs () const
 122 {
 123   return this->allow_duplicate_typedefs_;
 124 }
 125
 126 void
 127 BE_GlobalData::allow_duplicate_typedefs (bool val)
 128 {
 129   this->allow_duplicate_typedefs_ = val;
 130 }
 131
 132 ACE_CString
 133 BE_GlobalData::orb_args () const
 134 {
 135   return this->orb_args_;
 136 }
 137
 138 void
 139 BE_GlobalData::orb_args (const ACE_CString& args)
 140 {
 141   this->orb_args_ = args;
 142 }
 143
 144 ACE_CString
 145 BE_GlobalData::spawn_options ()
 146 {
 147   return this->orb_args_ + idl_global->idl_flags ();
 148 }
 149
 150 #define UNKNOWN_OPTION \
 151   ORBSVCS_ERROR (( \
 152       LM_ERROR, \
 153       ACE_TEXT ("IDL: I don't understand the '%s' option\n"), \
 154       av[i])); \
 155   idl_global->parse_args_exit (1);
 156
 157 void
 158 BE_GlobalData::parse_args (long &i, char **av)
 159 {
 160   switch (av[i][1])
 161     {
 162       case 'L':
 163         if (av[i][2] == '\0')
 164           {
 165             be_global->enable_locking (true);
 166           }
 167         else
 168           {
 169             UNKNOWN_OPTION;
 170           }
 171         break;
 172
 173       case 'r':
 174         if (av[i][2] == '\0')
 175           {
 176             be_global->removing (true);
 177           }
 178         else
 179           {
 180             UNKNOWN_OPTION;
 181           }
 182         break;
 183
 184       case 'S':
 185         // Suppress ...
 186         if (av[i][2] == 'i' && av[i][3] == '\0')
 187           {
 188             // ... processing of included IDL files.
 189             be_global->do_included_files (0);
 190           }
 191         else
 192           {
 193             UNKNOWN_OPTION;
 194           }
 195         break;
 196
 197       case 'T':
 198         if (av[i][2] == '\0')
 199           {
 200             be_global->allow_duplicate_typedefs (true);
 201           }
 202         else
 203           {
 204             UNKNOWN_OPTION;
 205           }
 206         break;
 207
 208       default:
 209         UNKNOWN_OPTION;
 210     }
 211 }
 212