summaryrefslogtreecommitdiff
path: root/CIAO/tools/IDL3_to_IDL2/be_sunsoft.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'CIAO/tools/IDL3_to_IDL2/be_sunsoft.cpp')
-rw-r--r--CIAO/tools/IDL3_to_IDL2/be_sunsoft.cpp191
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;
-}