diff options
Diffstat (limited to 'TAO/TAO_IDL/util/utl_idlist.cpp')
-rw-r--r-- | TAO/TAO_IDL/util/utl_idlist.cpp | 278 |
1 files changed, 278 insertions, 0 deletions
diff --git a/TAO/TAO_IDL/util/utl_idlist.cpp b/TAO/TAO_IDL/util/utl_idlist.cpp new file mode 100644 index 00000000000..520036950bf --- /dev/null +++ b/TAO/TAO_IDL/util/utl_idlist.cpp @@ -0,0 +1,278 @@ +// $Id$ + +/* + +COPYRIGHT + +Copyright 1992, 1993, 1994 Sun Microsystems, Inc. Printed in the United +States of America. All Rights Reserved. + +This product is protected by copyright and distributed under the following +license restricting its use. + +The Interface Definition Language Compiler Front End (CFE) is made +available for your use provided that you include this license and copyright +notice on all media and documentation and the software program in which +this product is incorporated in whole or part. You may copy and extend +functionality (but may not remove functionality) of the Interface +Definition Language CFE without charge, but you are not authorized to +license or distribute it to anyone else except as part of a product or +program developed by you or with the express written consent of Sun +Microsystems, Inc. ("Sun"). + +The names of Sun Microsystems, Inc. and any of its subsidiaries or +affiliates may not be used in advertising or publicity pertaining to +distribution of Interface Definition Language CFE as permitted herein. + +This license is effective until terminated by Sun for failure to comply +with this license. Upon termination, you shall destroy or return all code +and documentation for the Interface Definition Language CFE. + +INTERFACE DEFINITION LANGUAGE CFE IS PROVIDED AS IS WITH NO WARRANTIES OF +ANY KIND INCLUDING THE WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS +FOR A PARTICULAR PURPOSE, NONINFRINGEMENT, OR ARISING FROM A COURSE OF +DEALING, USAGE OR TRADE PRACTICE. + +INTERFACE DEFINITION LANGUAGE CFE IS PROVIDED WITH NO SUPPORT AND WITHOUT +ANY OBLIGATION ON THE PART OF Sun OR ANY OF ITS SUBSIDIARIES OR AFFILIATES +TO ASSIST IN ITS USE, CORRECTION, MODIFICATION OR ENHANCEMENT. + +SUN OR ANY OF ITS SUBSIDIARIES OR AFFILIATES SHALL HAVE NO LIABILITY WITH +RESPECT TO THE INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY +INTERFACE DEFINITION LANGUAGE CFE OR ANY PART THEREOF. + +IN NO EVENT WILL SUN OR ANY OF ITS SUBSIDIARIES OR AFFILIATES BE LIABLE FOR +ANY LOST REVENUE OR PROFITS OR OTHER SPECIAL, INDIRECT AND CONSEQUENTIAL +DAMAGES, EVEN IF SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. + +Use, duplication, or disclosure by the government is subject to +restrictions as set forth in subparagraph (c)(1)(ii) of the Rights in +Technical Data and Computer Software clause at DFARS 252.227-7013 and FAR +52.227-19. + +Sun, Sun Microsystems and the Sun logo are trademarks or registered +trademarks of Sun Microsystems, Inc. + +SunSoft, Inc. +2550 Garcia Avenue +Mountain View, California 94043 + +NOTE: + +SunOS, SunSoft, Sun, Solaris, Sun Microsystems or the Sun logo are +trademarks or registered trademarks of Sun Microsystems, Inc. + + */ + +// Implementation of a list of utl_string nodes. + +// NOTE: This list class only works correctly because we use single public +// inheritance, as opposed to multiple inheritance or public virtual. +// It relies on a type-unsafe cast from UTL_List to subclasses, which +// will cease to operate correctly if you use either multiple or +// public virtual inheritance. + +#include "utl_idlist.h" +#include "utl_identifier.h" +#include "ace/OS_Memory.h" +#include "ace/OS_NS_string.h" + +// FUZZ: disable check_for_streams_include +#include "ace/streams.h" + +ACE_RCSID (util, + utl_idlist, + "$Id$") + +// Constructor +UTL_IdList::UTL_IdList (Identifier *s, + UTL_IdList *cdr) + : UTL_List ((UTL_List *) cdr), + pd_car_data (s) +{ +} + +// Public operations + +// Copy a list. +UTL_List * +UTL_IdList::copy (void) +{ + UTL_IdList *retval = 0; + + if (this->tail () == 0) + { + ACE_NEW_RETURN (retval, + UTL_IdList (this->head ()->copy (), + 0), + 0); + } + else + { + ACE_NEW_RETURN (retval, + UTL_IdList (this->head ()->copy (), + (UTL_IdList *) this->tail ()->copy ()), + 0); + } + + return (UTL_List *) retval; +} + +// Get list item. +Identifier * +UTL_IdList::head (void) +{ + return this->pd_car_data; +} + +// Get last item of this list. +Identifier * +UTL_IdList::last_component (void) +{ + if (this->tail () == 0) + { + return this->head (); + } + + return ((UTL_IdList *) this->tail ())->last_component (); +} + +// Get first item of this list holding a non-empty string. +Identifier * +UTL_IdList::first_component (void) +{ + if (ACE_OS::strlen (this->pd_car_data->get_string ()) > 0) + { + return this->pd_car_data; + } + + return ((UTL_IdList *) this->tail ())->first_component (); +} + +int +UTL_IdList::compare (UTL_IdList *other) +{ + long this_length = this->length (); + + // Strip away any leading empty segments. + + if (ACE_OS::strlen (this->pd_car_data->get_string ()) == 0) + { + UTL_List *this_tail = this->tail (); + + if (this_tail == 0) + { + return 1; + } + + return ((UTL_IdList *) this_tail)->compare (other); + } + + if (ACE_OS::strlen (other->pd_car_data->get_string ()) == 0) + { + UTL_List *other_tail = other->tail (); + + if (other_tail == 0) + { + return 1; + } + + return this->compare ((UTL_IdList *) other->tail ()); + } + + if (this_length != other->length ()) + { + return 1; + } + + Identifier *this_id = 0; + Identifier *other_id = 0; + + for (UTL_IdListActiveIterator this_iter (this), other_iter (other); + !this_iter.is_done (); + this_iter.next (), other_iter.next ()) + { + this_id = this_iter.item (); + other_id = other_iter.item (); + + if (ACE_OS::strcmp (this_id->get_string (), + other_id->get_string ()) + != 0) + { + return 1; + } + } + + return 0; +} + +// AST Dumping. +void +UTL_IdList::dump (ACE_OSTREAM_TYPE &o) +{ + long first = true; + long second = false; + + for (UTL_IdListActiveIterator i (this); + !i.is_done (); + i.next ()) + { + if (!first) + { + o << "::"; + } + else if (second) + { + first = second = false; + } + + i.item ()->dump (o); + + if (first) + { + if (ACE_OS::strcmp (i.item ()->get_string (), "::") != 0) + { + first = false; + } + else + { + second = true; + } + } + } +} + +void +UTL_IdList::destroy (void) +{ + if (this->pd_car_data != 0) + { + this->pd_car_data->destroy (); + delete this->pd_car_data; + this->pd_car_data = 0; + } + + this->UTL_List::destroy (); +} + +// UTL_IdList active iterator. + +// Constructor +UTL_IdListActiveIterator::UTL_IdListActiveIterator (UTL_IdList *s) + : UTL_ListActiveIterator (s) +{ +} + +// Public operations. + +// Get current item. +Identifier * +UTL_IdListActiveIterator::item (void) +{ + if (this->source == 0) + { + return 0; + } + + return ((UTL_IdList *) source)->head (); +} |