Java tutorial
//package com.java2s; /* * %W% %E% * * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved. * ORACLE PROPRIETARY/CONFIDENTIAL. Use is subject to license terms. */ import org.omg.CORBA.TCKind; import org.omg.CORBA.Any; import org.omg.CORBA.TypeCode; import org.omg.CORBA.Principal; import org.omg.CORBA.portable.Streamable; import org.omg.CORBA.TypeCodePackage.BadKind; import com.sun.corba.se.impl.encoding.CDROutputStream; import java.io.Serializable; import java.math.BigDecimal; import com.sun.corba.se.spi.logging.CORBALogDomains; import com.sun.corba.se.impl.logging.ORBUtilSystemException; public class Main { static void marshalIn(org.omg.CORBA.portable.OutputStream s, TypeCode typeCode, long l, Object o) { switch (typeCode.kind().value()) { case TCKind._tk_null: case TCKind._tk_void: case TCKind._tk_native: // nothing to write break; case TCKind._tk_short: s.write_short((short) (l & 0xFFFFL)); break; case TCKind._tk_ushort: s.write_ushort((short) (l & 0xFFFFL)); break; case TCKind._tk_enum: case TCKind._tk_long: s.write_long((int) (l & 0xFFFFFFFFL)); break; case TCKind._tk_ulong: s.write_ulong((int) (l & 0xFFFFFFFFL)); break; case TCKind._tk_float: s.write_float(Float.intBitsToFloat((int) (l & 0xFFFFFFFFL))); break; case TCKind._tk_double: s.write_double(Double.longBitsToDouble(l)); break; case TCKind._tk_boolean: if (l == 0) s.write_boolean(false); else s.write_boolean(true); break; case TCKind._tk_char: s.write_char((char) (l & 0xFFFFL)); break; case TCKind._tk_octet: s.write_octet((byte) (l & 0xFFL)); break; case TCKind._tk_any: s.write_any((Any) o); break; case TCKind._tk_TypeCode: s.write_TypeCode((TypeCode) o); break; case TCKind._tk_Principal: s.write_Principal((Principal) o); break; case TCKind._tk_objref: s.write_Object((org.omg.CORBA.Object) o); break; case TCKind._tk_longlong: s.write_longlong(l); break; case TCKind._tk_ulonglong: s.write_ulonglong(l); break; case TCKind._tk_wchar: s.write_wchar((char) (l & 0xFFFFL)); break; case TCKind._tk_string: s.write_string((String) o); break; case TCKind._tk_wstring: s.write_wstring((String) o); break; case TCKind._tk_value: case TCKind._tk_value_box: ((org.omg.CORBA_2_3.portable.OutputStream) s).write_value((Serializable) o); break; case TCKind._tk_fixed: // _REVISIT_ As soon as the java-rtf adds digits and scale parameters to // OutputStream, this check will be unnecessary if (s instanceof CDROutputStream) { try { ((CDROutputStream) s).write_fixed((BigDecimal) o, typeCode.fixed_digits(), typeCode.fixed_scale()); } catch (BadKind badKind) { // impossible } } else { s.write_fixed((BigDecimal) o); } break; case TCKind._tk_struct: case TCKind._tk_union: case TCKind._tk_sequence: case TCKind._tk_array: case TCKind._tk_alias: case TCKind._tk_except: ((Streamable) o)._write(s); break; case TCKind._tk_abstract_interface: ((org.omg.CORBA_2_3.portable.OutputStream) s).write_abstract_interface(o); break; case TCKind._tk_longdouble: // Unspecified for Java default: ORBUtilSystemException wrapper = ORBUtilSystemException.get((com.sun.corba.se.spi.orb.ORB) s.orb(), CORBALogDomains.RPC_PRESENTATION); throw wrapper.typecodeNotSupported(); } } }