TAO/TAO_IDL/util/utl_strlist.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 // Implementation of a list of utl_string nodes.
  66
  67 // NOTE: This list class only works correctly because we use single public
  68 //       inheritance, as opposed to multiple inheritance or public virtual.
  69 //       It relies on a type-unsafe cast from UTL_List to subclasses, which
  70 //       will cease to operate correctly if you use either multiple or
  71 //       public virtual inheritance.
  72
  73 #include "utl_strlist.h"
  74 #include "utl_string.h"
  75
  76 // FUZZ: disable check_for_streams_include
  77 #include "ace/streams.h"
  78
  79 #include "ace/OS_Memory.h"
  80 #include "ace/OS_NS_string.h"
  81
  82 UTL_StrList::UTL_StrList (UTL_String *s,
  83                           UTL_StrList *cdr)
  84   : UTL_List(cdr),
  85     pd_car_data(s)
  86 {
  87 }
  88
  89 UTL_StrList::~UTL_StrList (void)
  90 {
  91 }
  92
  93 // Get list item.
  94 UTL_String *
  95 UTL_StrList::head (void)
  96 {
  97   return this->pd_car_data;
  98 }
  99
 100 // Set list item.
 101 void
 102 UTL_StrList::set_head (UTL_String *s)
 103 {
 104   this->pd_car_data = s;
 105 }
 106
 107 // Get last item of this list
 108 UTL_String *
 109 UTL_StrList::last_component (void)
 110 {
 111   if (this->tail () == 0)
 112     {
 113       return pd_car_data;
 114     }
 115
 116   return ((UTL_StrList *) this->tail ())->last_component();
 117 }
 118
 119 // Copy a list.
 120 UTL_List *
 121 UTL_StrList::copy (void)
 122 {
 123   UTL_List *retval = 0;
 124
 125   if (this->tail () == 0)
 126     {
 127       ACE_NEW_RETURN (retval,
 128                       UTL_StrList (head (),
 129                                    0),
 130                       0);
 131     }
 132   else
 133     {
 134       ACE_NEW_RETURN (retval,
 135                       UTL_StrList (head (),
 136                                    (UTL_StrList *) this->tail ()->copy ()),
 137                       0);
 138     }
 139
 140   return retval;
 141 }
 142
 143 void
 144 UTL_StrList::destroy (void)
 145 {
 146   UTL_String *str = 0;
 147
 148   for (UTL_StrlistActiveIterator i (this); !i.is_done (); i.next ())
 149     {
 150       str = i.item ();
 151       str->destroy ();
 152       delete str;
 153       str = 0;
 154     }
 155 }
 156
 157 // AST Dumping
 158 void
 159 UTL_StrList::dump (ACE_OSTREAM_TYPE &o)
 160 {
 161   char *s = 0;
 162   bool first = true;
 163   bool second = false;
 164
 165   for (UTL_StrlistActiveIterator i (this); !i.is_done(); i.next ())
 166     {
 167       if (!first)
 168         {
 169           o << "::";
 170         }
 171       else if (second)
 172         {
 173           first = second = false;
 174         }
 175
 176       s = i.item ()->get_string ();
 177       o << s;
 178
 179       if (first)
 180         {
 181           if (ACE_OS::strcmp (s, "::") != 0)
 182             {
 183               first = false;
 184             }
 185           else
 186             {
 187               second = true;
 188             }
 189         }
 190     }
 191 }
 192
 193 /*
 194  * Redefinition of inherited virtual operations
 195  */
 196
 197 // UTL_StrList active iterator
 198
 199 /*
 200  * Constructor
 201  */
 202
 203 UTL_StrlistActiveIterator::UTL_StrlistActiveIterator (UTL_StrList *s)
 204   : UTL_ListActiveIterator (s)
 205 {
 206 }
 207
 208 /*
 209  * Private operations
 210  */
 211
 212 /*
 213  * Public operations
 214  */
 215
 216 // Get current item
 217 UTL_String *
 218 UTL_StrlistActiveIterator::item (void)
 219 {
 220   if (source == 0)
 221     {
 222       return 0;
 223     }
 224
 225   return ((UTL_StrList *) source)->head ();
 226 }
 227
 228 /*
 229  * Redefinition of inherited virtual operations
 230  */