diff options
Diffstat (limited to 'CIAO/tools/IDL3_to_IDL2/be_sunsoft.cpp')
-rw-r--r-- | CIAO/tools/IDL3_to_IDL2/be_sunsoft.cpp | 191 |
1 files changed, 0 insertions, 191 deletions
diff --git a/CIAO/tools/IDL3_to_IDL2/be_sunsoft.cpp b/CIAO/tools/IDL3_to_IDL2/be_sunsoft.cpp deleted file mode 100644 index 71c67116ab1..00000000000 --- a/CIAO/tools/IDL3_to_IDL2/be_sunsoft.cpp +++ /dev/null @@ -1,191 +0,0 @@ -// $Id$ - -#include "be_sunsoft.h" -#include "ast_expression.h" -#include "utl_identifier.h" -#include "utl_idlist.h" -#include "utl_string.h" -#include "ace/OS_NS_stdio.h" -#include "ace/OS_NS_string.h" -#include "ace/os_include/os_ctype.h" - -ACE_RCSID (be, - be_sunsoft, - "$Id$") - -TAO_SunSoft_OutStream::TAO_SunSoft_OutStream (void) - : TAO_OutStream () -{ -} - -TAO_SunSoft_OutStream::~TAO_SunSoft_OutStream (void) -{ -} - -TAO_OutStream & -TAO_SunSoft_OutStream::print (Identifier *id) -{ - ACE_OS::fprintf (this->fp_, - id->get_string ()); - - return *this; -} - -TAO_OutStream & -TAO_SunSoft_OutStream::print (UTL_IdList *idl) -{ - long first = true; - long second = false; - Identifier *id = 0; - - for (UTL_IdListActiveIterator i (idl); !i.is_done (); i.next ()) - { - if (!first) - { - *this << "::"; - } - else if (second) - { - first = second = false; - } - - // Print the identifier. - id = i.item (); - *this << id; - - if (first) - { - if (ACE_OS::strcmp (id->get_string (), "") != 0) - { - // Does not start with a "". - first = false; - } - else - { - second = true; - } - } - } - - return *this; -} - -TAO_OutStream& -TAO_SunSoft_OutStream::print (AST_Expression *expr) -{ - AST_Expression::AST_ExprValue *ev = expr->ev (); - - if (ev) - { - switch (ev->et) - { - case AST_Expression::EV_short: - this->TAO_OutStream::print ("%hd", ev->u.sval); - break; - case AST_Expression::EV_ushort: - this->TAO_OutStream::print ("%hu%c", ev->u.usval, 'U'); - break; - case AST_Expression::EV_long: - this->TAO_OutStream::print ("%ld", ev->u.lval); - break; - case AST_Expression::EV_ulong: - this->TAO_OutStream::print ("%u%c", ev->u.ulval, 'U'); - break; - case AST_Expression::EV_longlong: -#if ! defined (ACE_LACKS_LONGLONG_T) - this->TAO_OutStream::print ("%ld", ev->u.llval); -#endif /* ! defined (ACE_LACKS_LONGLONG_T) */ - break; - case AST_Expression::EV_ulonglong: -#if ! defined (ACE_LACKS_LONGLONG_T) - this->TAO_OutStream::print ("ACE_UINT64_LITERAL ("); - this->TAO_OutStream::print (ACE_UINT64_FORMAT_SPECIFIER, - ev->u.ullval); - this->TAO_OutStream::print (")"); -#endif /* ! defined (ACE_LACKS_LONGLONG_T) */ - break; - case AST_Expression::EV_float: - this->TAO_OutStream::print ("%f%c", ev->u.fval, 'F'); - break; - case AST_Expression::EV_double: - this->TAO_OutStream::print ("%24.16G", ev->u.dval); - break; - case AST_Expression::EV_longdouble: - break; - case AST_Expression::EV_char: - // isprint() sees \ and ' as printable characters - // so we have to test for them first. - if (ev->u.cval == '\\') - this->TAO_OutStream::print ("'\\\\'"); - else if (ev->u.cval == '\'') - this->TAO_OutStream::print ("'\\''"); - - // This handles hex and octal escape sequences - // that would print out either as weird characters - // or as an unsigned number too large for a char. - else if ((unsigned char) ev->u.cval > ACE_CHAR_MAX) - this->TAO_OutStream::print ("%hd", ev->u.cval); - else if (isprint (ev->u.cval)) - this->TAO_OutStream::print ("'%c'", ev->u.cval); - else if (iscntrl (ev->u.cval)) - switch (ev->u.cval) - { - case '\n': - this->TAO_OutStream::print ("'\\n'"); - break; - case '\t': - this->TAO_OutStream::print ("'\\t'"); - break; - case '\r': - this->TAO_OutStream::print ("'\\r'"); - break; - case '\v': - this->TAO_OutStream::print ("'\\v'"); - break; - case '\f': - this->TAO_OutStream::print ("'\\f'"); - break; - case '\b': - this->TAO_OutStream::print ("'\\b'"); - break; - case '\a': - this->TAO_OutStream::print ("'\\a'"); - break; - case '\?': - this->TAO_OutStream::print ("'?'"); - break; - default: - this->TAO_OutStream::print ("'\\x%x'", ev->u.cval); - } - else - this->TAO_OutStream::print ("'\\x%x'", ev->u.cval); - break; - case AST_Expression::EV_wchar: - this->TAO_OutStream::print ("L'%lc'", ev->u.wcval); - break; - case AST_Expression::EV_octet: - this->TAO_OutStream::print ("%d", ev->u.oval); - break; - case AST_Expression::EV_bool: - this->TAO_OutStream::print ("%s", ev->u.bval ? "true" : "false"); - break; - case AST_Expression::EV_string: - this->TAO_OutStream::print ("\"%s\"", ev->u.strval->get_string ()); - break; - case AST_Expression::EV_wstring: - this->TAO_OutStream::print ("L\"%s\"", ev->u.wstrval); - break; - case AST_Expression::EV_enum: - this->print (expr->n ()); - break; - default: - break; - } - } - else - { - // XXXASG: need to add code here - } - - return *this; -} |