TAO/TAO_IDL/util/utl_string.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_string.h"
  66 #include "global_extern.h"
  67 #include "fe_extern.h"
  68 #include "utl_err.h"
  69
  70 // FUZZ: disable check_for_streams_include
  71 #include "ace/streams.h"
  72
  73 #include "ace/OS_NS_ctype.h"
  74
  75 //////////////////////////////////////////////////////////////////////
  76 //// Static functions may be used by non-UTL_String i.e. const char *
  77 //////////////////////////////////////////////////////////////////////
  78
  79 bool
  80 UTL_String::strcmp_caseless (
  81   const char *lhs,
  82   const char *rhs,
  83   bool &mixed_case)
  84 {
  85   int difference;
  86
  87   // Advance until (difference between the strings is found) or (End of String)
  88   while (!(difference= static_cast<int> (*lhs) - static_cast<int> (*rhs)) && *lhs)
  89     {
  90       ++lhs;
  91       ++rhs;
  92     }
  93
  94   // If not (End of Strings, therefore difference found above) check if a
  95   // caseless match would work instead.
  96   mixed_case=
  97     (*lhs &&
  98      *rhs &&
  99      !(static_cast<int> (ACE_OS::ace_toupper (*lhs)) -
 100        static_cast<int> (ACE_OS::ace_toupper (*rhs))
 101     ) );
 102   if (mixed_case)
 103     {
 104       ++lhs;
 105       ++rhs;
 106
 107       // Continue caseless compare until (difference between strings) or (End of String)
 108       while (!(difference= static_cast<int> (ACE_OS::ace_toupper (*lhs)) -
 109                            static_cast<int> (ACE_OS::ace_toupper (*rhs))) && *lhs)
 110         {
 111           ++lhs;
 112           ++rhs;
 113         }
 114     }
 115
 116   // true is match (no difference found), false is difference found.
 117   return !difference;
 118 }
 119
 120 // Compare two const char *.
 121 bool
 122 UTL_String::compare (const char *lhs, const char *rhs)
 123 {
 124   bool result= false;
 125   bool mixed=  false;
 126
 127   if (lhs && rhs && strcmp_caseless (lhs, rhs, mixed))
 128     {
 129       result= !mixed;
 130       if (mixed) // Strings match (differing case)
 131         {
 132           if (idl_global->case_diff_error ())
 133             {
 134               idl_global->err ()->name_case_error (
 135                   const_cast<char *> (lhs),
 136                   const_cast<char *> (rhs));
 137
 138               // If we try to continue from here, we risk a crash.
 139               throw Bailout ();
 140             }
 141           else
 142             {
 143               idl_global->err ()->name_case_warning (
 144                 const_cast<char *> (lhs),
 145                 const_cast<char *> (rhs));
 146             }
 147         }
 148     }
 149
 150   return result;
 151 }
 152
 153 // Like the above but without error or warning message output.
 154 bool
 155 UTL_String::compare_quiet (const char *lhs, const char *rhs)
 156 {
 157   bool result= false;
 158   bool mixed=  false;
 159
 160   if (lhs && rhs && strcmp_caseless (lhs, rhs, mixed))
 161     {
 162       result= mixed;
 163     }
 164
 165   return result;
 166 }
 167
 168 // Get canonical representation. This is (implemented as) the all upper
 169 // case corresponding string.
 170 void
 171 UTL_String::get_canonical_rep (const char *src, char *dest)
 172 {
 173   while (!!(*dest++= static_cast<char> (ACE_OS::ace_toupper (*src++))))
 174     {}
 175 }
 176
 177 // Get canonical representation. This is (implemented as) the all upper
 178 // case corresponding string.
 179 void
 180 UTL_String::get_canonical_rep (ACE_CString &cstr)
 181 {
 182   get_canonical_rep (&cstr [0], &cstr [0]);
 183 }
 184
 185 //////////////////////////////////////////////////////////////////////
 186
 187 UTL_String::UTL_String ()
 188   : copy_taken (false),
 189     p_str      (nullptr),
 190     c_str      (nullptr)
 191 {
 192 }
 193
 194 UTL_String::UTL_String (const char *str, bool take_copy)
 195   : copy_taken (str ? take_copy : false),
 196     p_str      (this->copy_taken ? ACE::strnew (str)
 197                                  : const_cast<char *>(str)),
 198     c_str      (nullptr)
 199 {
 200 }
 201
 202 UTL_String::UTL_String (UTL_String *s, bool force_copy)
 203   : copy_taken (force_copy ? true : s->copy_taken),
 204     p_str      (this->copy_taken ? ACE::strnew (s->p_str)
 205                                  : const_cast<char *> (s->p_str)),
 206     c_str      (nullptr)
 207 {
 208 }
 209
 210 UTL_String::~UTL_String ()
 211 {
 212   delete [] this->c_str;
 213   if (copy_taken)
 214     {
 215       ACE::strdelete (this->p_str);
 216     }
 217 }
 218
 219 void
 220 UTL_String::destroy ()
 221 {
 222   delete [] this->c_str;
 223   this->c_str = nullptr;
 224   if (this->copy_taken)
 225     {
 226        ACE::strdelete (this->p_str);
 227        this->copy_taken = false;
 228     }
 229   this->p_str = nullptr;
 230 }
 231
 232 // Compare two UTL_String *.
 233 bool
 234 UTL_String::compare (UTL_String *s)
 235 {
 236   return (this->p_str && s && s->get_string () &&
 237           compare (this->p_str, s->get_string ()));
 238 }
 239
 240 bool
 241 UTL_String::compare_quiet (UTL_String *s)
 242 {
 243   return (this->p_str && s && s->get_string () &&
 244           compare_quiet (this->p_str, s->get_string ()));
 245 }
 246
 247 // Get the canonical representation from a String.
 248 char *
 249 UTL_String::get_canonical_rep ()
 250 {
 251   if (!this->c_str && this->p_str)
 252     {
 253       get_canonical_rep (
 254         this->p_str,
 255         this->c_str = new char [ACE_OS::strlen (this->p_str)+1]);
 256     }
 257
 258   return this->c_str;
 259 }
 260
 261 // AST Dumping.
 262 void
 263 UTL_String::dump (ACE_OSTREAM_TYPE &o)
 264 {
 265   o << this->p_str;
 266 }