TAO/TAO_IDL/util/utl_identifier.cpp

   1 /*
   2
   3 COPYRIGHT
   4
   5 Copyright 1992, 1993, 1994 Sun Microsystems, Inc.  Printed in the United
   6 States of America.  All Rights Reserved.
   7
   8 This product is protected by copyright and distributed under the following
   9 license restricting its use.
  10
  11 The Interface Definition Language Compiler Front End (CFE) is made
  12 available for your use provided that you include this license and copyright
  13 notice on all media and documentation and the software program in which
  14 this product is incorporated in whole or part. You may copy and extend
  15 functionality (but may not remove functionality) of the Interface
  16 Definition Language CFE without charge, but you are not authorized to
  17 license or distribute it to anyone else except as part of a product or
  18 program developed by you or with the express written consent of Sun
  19 Microsystems, Inc. ("Sun").
  20
  21 The names of Sun Microsystems, Inc. and any of its subsidiaries or
  22 affiliates may not be used in advertising or publicity pertaining to
  23 distribution of Interface Definition Language CFE as permitted herein.
  24
  25 This license is effective until terminated by Sun for failure to comply
  26 with this license.  Upon termination, you shall destroy or return all code
  27 and documentation for the Interface Definition Language CFE.
  28
  29 INTERFACE DEFINITION LANGUAGE CFE IS PROVIDED AS IS WITH NO WARRANTIES OF
  30 ANY KIND INCLUDING THE WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS
  31 FOR A PARTICULAR PURPOSE, NONINFRINGEMENT, OR ARISING FROM A COURSE OF
  32 DEALING, USAGE OR TRADE PRACTICE.
  33
  34 INTERFACE DEFINITION LANGUAGE CFE IS PROVIDED WITH NO SUPPORT AND WITHOUT
  35 ANY OBLIGATION ON THE PART OF Sun OR ANY OF ITS SUBSIDIARIES OR AFFILIATES
  36 TO ASSIST IN ITS USE, CORRECTION, MODIFICATION OR ENHANCEMENT.
  37
  38 SUN OR ANY OF ITS SUBSIDIARIES OR AFFILIATES SHALL HAVE NO LIABILITY WITH
  39 RESPECT TO THE INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY
  40 INTERFACE DEFINITION LANGUAGE CFE OR ANY PART THEREOF.
  41
  42 IN NO EVENT WILL SUN OR ANY OF ITS SUBSIDIARIES OR AFFILIATES BE LIABLE FOR
  43 ANY LOST REVENUE OR PROFITS OR OTHER SPECIAL, INDIRECT AND CONSEQUENTIAL
  44 DAMAGES, EVEN IF SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
  45
  46 Use, duplication, or disclosure by the government is subject to
  47 restrictions as set forth in subparagraph (c)(1)(ii) of the Rights in
  48 Technical Data and Computer Software clause at DFARS 252.227-7013 and FAR
  49 52.227-19.
  50
  51 Sun, Sun Microsystems and the Sun logo are trademarks or registered
  52 trademarks of Sun Microsystems, Inc.
  53
  54 SunSoft, Inc.
  55 2550 Garcia Avenue
  56 Mountain View, California  94043
  57
  58 NOTE:
  59
  60 SunOS, SunSoft, Sun, Solaris, Sun Microsystems or the Sun logo are
  61 trademarks or registered trademarks of Sun Microsystems, Inc.
  62
  63 */
  64
  65 #include "utl_identifier.h"
  66 #include "global_extern.h"
  67 #include "utl_err.h"
  68 #include "utl_string.h"
  69 #include "fe_private.h"
  70
  71 // FUZZ: disable check_for_streams_include
  72 #include "ace/streams.h"
  73 #include "ace/OS_NS_string.h"
  74
  75 Identifier::Identifier (void)
  76   : pv_string (0),
  77     escaped_ (false)
  78 {
  79 }
  80
  81 Identifier::Identifier (const char *s)
  82   : pv_string (0),
  83     escaped_ (false)
  84 {
  85   preprocess_and_replace_string (s);
  86 }
  87
  88 Identifier::Identifier (const Identifier &other)
  89   : pv_string (0),
  90     escaped_ (other.escaped ())
  91 {
  92   *this = other;
  93 }
  94
  95 Identifier::~Identifier (void)
  96 {
  97   if (this->pv_string != 0)
  98     {
  99       ACE::strdelete (this->pv_string);
 100     }
 101 }
 102
 103 // Operations.
 104
 105 char *
 106 Identifier::get_string (void)
 107 {
 108   return this->pv_string;
 109 }
 110
 111 const char *
 112 Identifier::get_string (void) const
 113 {
 114   return this->pv_string;
 115 }
 116
 117 void
 118 Identifier::replace_string (const char * s)
 119 {
 120   if (pv_string)
 121     {
 122       delete [] this->pv_string;
 123     }
 124   this->pv_string = s ? ACE::strnew (s) : 0;
 125 }
 126
 127 void
 128 Identifier::preprocess_and_replace_string (const char * s)
 129 {
 130   bool shift = false;
 131
 132   if (*s == '_')
 133     {
 134       // Only one leading underscore is allowed.
 135       if (s[1] == '_')
 136         {
 137           idl_global->err ()->error0 (UTL_Error::EIDL_UNDERSCORE);
 138         }
 139
 140       shift = true;
 141       this->escaped_ = true;
 142       ACE_CString str (s);
 143       const char *c_prefix = "_cxx_";
 144
 145       if (str.find ("_tc_") == 0
 146           || str.find ("_tao_") == 0)
 147         {
 148           shift = false;
 149         }
 150       else if (str.find (c_prefix) == 0)
 151         {
 152           str = str.substr (ACE_OS::strlen (c_prefix));
 153           const char *eh_suffix = "_excep";
 154           ACE_CString::size_type pos =
 155             str.length () - ACE_OS::strlen (eh_suffix);
 156
 157           // If we have an AMI exception holder suffix, strip it off.
 158           if (str.find (eh_suffix) == pos)
 159             {
 160               str = str.substr (0, pos);
 161             }
 162
 163           TAO_IDL_CPP_Keyword_Table cpp_key_tbl;
 164           unsigned int len =
 165             static_cast<unsigned int> (str.length ());
 166           const TAO_IDL_CPP_Keyword_Entry *entry =
 167             cpp_key_tbl.lookup (str.c_str (), len);
 168
 169           if (entry != 0)
 170             {
 171               shift = false;
 172             }
 173         }
 174     }
 175
 176   replace_string (shift ? s + 1 : s);
 177 }
 178
 179 // Compare two Identifier *
 180 bool
 181 Identifier::compare (Identifier *o)
 182 {
 183   if (!o ||
 184       !o->pv_string ||
 185       !this->pv_string ||
 186       this->escaped_ ^ o->escaped_)
 187     {
 188       return false;
 189     }
 190
 191   return !ACE_OS::strcmp (this->pv_string, o->pv_string);
 192 }
 193
 194 // Report the appropriate error if the two identifiers differ only in case.
 195 bool
 196 Identifier::case_compare (Identifier *o)
 197 {
 198   return UTL_String::compare (this->pv_string, o->pv_string);
 199 }
 200
 201 // Report no error if the two identifiers differ only in case.
 202 bool
 203 Identifier::case_compare_quiet (Identifier *o)
 204 {
 205   return UTL_String::compare_quiet (this->pv_string, o->pv_string);
 206 }
 207
 208 Identifier *
 209 Identifier::copy (void)
 210 {
 211   Identifier *retval = 0;
 212   ACE_NEW_RETURN (retval,
 213                   Identifier (this->pv_string),
 214                   0);
 215
 216   retval->escaped_ = this->escaped_;
 217
 218   return retval;
 219 }
 220
 221 bool
 222 Identifier::escaped (void) const
 223 {
 224   return this->escaped_;
 225 }
 226
 227 // Dumping.
 228 void
 229 Identifier::dump (ACE_OSTREAM_TYPE &o)
 230 {
 231   if (this->pv_string == 0)
 232     {
 233       return;
 234     }
 235
 236   /*
 237    * Annotation ids are prefixed with '@' to effectively create an alternative
 238    * namespace for them. This hides that hack from dumping.
 239    */
 240   o << ((pv_string[0] == '@') ? pv_string + 1 : pv_string);
 241 }
 242
 243 void
 244 Identifier::destroy (void)
 245 {
 246 }
 247
 248 bool
 249 Identifier::operator== (const Identifier &other) const
 250 {
 251   return !ACE_OS::strcmp (pv_string, other.get_string ());
 252 }
 253
 254 Identifier &
 255 Identifier::operator= (const Identifier &other)
 256 {
 257   replace_string (other.get_string ());
 258   return *this;
 259 }