zeroc-ice 3.7.9.1 → 3.8.0

data/dist/IceRuby/Types.cpp

@@ -0,0 +1,3133 @@
+// Copyright (c) ZeroC, Inc.
+
+#include "Types.h"
+#include "Ice/InputStream.h"
+#include "Ice/LocalExceptions.h"
+#include "Ice/OutputStream.h"
+#include "Ice/OutputUtil.h"
+#include "Ice/SlicedData.h"
+#include "Proxy.h"
+#include "Util.h"
+#include <limits>
+#include <list>
+#include <math.h>
+
+//
+// Required for RHASH_SIZE to work properly with Ruby 1.8.x.
+// T_ZOMBIE is only defined in Ruby 1.9.
+//
+#ifndef T_ZOMBIE
+#    include "st.h"
+#endif
+
+#ifndef RHASH_SIZE
+#    define RHASH_SIZE(v) RHASH(v)->tbl->num_entries
+#endif
+
+using namespace std;
+using namespace IceRuby;
+using namespace Ice;
+using namespace IceInternal;
+
+static VALUE _typeInfoClass, _exceptionInfoClass;
+
+typedef map<string, ClassInfoPtr, std::less<>> ClassInfoMap;
+static ClassInfoMap _classInfoMap;
+
+typedef map<string, ProxyInfoPtr, std::less<>> ProxyInfoMap;
+static ProxyInfoMap _proxyInfoMap;
+
+typedef map<string, ExceptionInfoPtr, std::less<>> ExceptionInfoMap;
+static ExceptionInfoMap _exceptionInfoMap;
+
+namespace IceRuby
+{
+    class InfoMapDestroyer
+    {
+    public:
+        ~InfoMapDestroyer();
+    };
+    static InfoMapDestroyer infoMapDestroyer;
+
+    string escapeString(const string& str)
+    {
+        static const string basicSourceChars = "abcdefghijklmnopqrstuvwxyz"
+                                               "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+                                               "0123456789"
+                                               "_{}[]#()<>%:;.?*+-/^&|~!=,\\\"' ";
+        static const set<char> charSet(basicSourceChars.begin(), basicSourceChars.end());
+
+        ostringstream out;
+
+        for (string::const_iterator c = str.begin(); c != str.end(); ++c)
+        {
+            if (charSet.find(*c) == charSet.end())
+            {
+                unsigned char uc = static_cast<unsigned char>(*c); // char may be signed, so make it positive
+                ostringstream s;
+                s << "\\"; // Print as octal if not in basic source character set
+                s.width(3);
+                s.fill('0');
+                s << oct;
+                s << static_cast<unsigned>(uc);
+                out << s.str();
+            }
+            else
+            {
+                out << *c; // Print normally if in basic source character set
+            }
+        }
+
+        return out.str();
+    }
+}
+
+//
+// addClassInfo()
+//
+static void
+addClassInfo(const string& id, const ClassInfoPtr& info)
+{
+    //
+    // Do not assert. An application may load statically-
+    // translated definitions and then dynamically load
+    // duplicate definitions.
+    //
+    //    assert(_classInfoMap.find(id) == _classInfoMap.end());
+    ClassInfoMap::iterator p = _classInfoMap.find(id);
+    if (p != _classInfoMap.end())
+    {
+        _classInfoMap.erase(p);
+    }
+    _classInfoMap.insert(ClassInfoMap::value_type(id, info));
+}
+
+//
+// addProxyInfo()
+//
+static void
+addProxyInfo(const string& id, const ProxyInfoPtr& info)
+{
+    //
+    // Do not assert. An application may load statically-
+    // translated definitions and then dynamically load
+    // duplicate definitions.
+    //
+    //    assert(_proxyInfoMap.find(id) == _proxyInfoMap.end());
+    ProxyInfoMap::iterator p = _proxyInfoMap.find(id);
+    if (p != _proxyInfoMap.end())
+    {
+        _proxyInfoMap.erase(p);
+    }
+    _proxyInfoMap.insert(ProxyInfoMap::value_type(id, info));
+}
+
+//
+// lookupProxyInfo()
+//
+static IceRuby::ProxyInfoPtr
+lookupProxyInfo(string_view id)
+{
+    ProxyInfoMap::iterator p = _proxyInfoMap.find(id);
+    if (p != _proxyInfoMap.end())
+    {
+        return p->second;
+    }
+    return 0;
+}
+
+//
+// addExceptionInfo()
+//
+static void
+addExceptionInfo(const string& id, const ExceptionInfoPtr& info)
+{
+    //
+    // Do not assert. An application may load statically-
+    // translated definitions and then dynamically load
+    // duplicate definitions.
+    //
+    //    assert(_exceptionInfoMap.find(id) == _exceptionInfoMap.end());
+    _exceptionInfoMap.insert(ExceptionInfoMap::value_type(id, info));
+}
+
+//
+// StreamUtil implementation
+//
+VALUE IceRuby::StreamUtil::_slicedDataType = Qnil;
+VALUE IceRuby::StreamUtil::_sliceInfoType = Qnil;
+
+IceRuby::StreamUtil::StreamUtil() = default;
+
+IceRuby::StreamUtil::~StreamUtil()
+{
+    //
+    // Make sure we break any cycles among the ValueReaders in preserved slices.
+    //
+    for (set<shared_ptr<ValueReader>>::iterator p = _readers.begin(); p != _readers.end(); ++p)
+    {
+        Ice::SlicedDataPtr slicedData = (*p)->getSlicedData();
+        for (Ice::SliceInfoSeq::const_iterator q = slicedData->slices.begin(); q != slicedData->slices.end(); ++q)
+        {
+            //
+            // Don't just call (*q)->instances.clear(), as releasing references
+            // to the instances could have unexpected side effects. We exchange
+            // the vector into a temporary and then let the temporary fall out
+            // of scope.
+            //
+            vector<shared_ptr<Ice::Value>> tmp;
+            tmp.swap((*q)->instances);
+        }
+    }
+}
+
+void
+IceRuby::StreamUtil::add(const ReadValueCallbackPtr& callback)
+{
+    _callbacks.push_back(callback);
+}
+
+void
+IceRuby::StreamUtil::add(const shared_ptr<ValueReader>& reader)
+{
+    assert(reader->getSlicedData());
+    _readers.insert(reader);
+}
+
+void
+IceRuby::StreamUtil::updateSlicedData()
+{
+    for (set<shared_ptr<ValueReader>>::iterator p = _readers.begin(); p != _readers.end(); ++p)
+    {
+        setSlicedDataMember((*p)->getObject(), (*p)->getSlicedData());
+    }
+}
+
+void
+IceRuby::StreamUtil::setSlicedDataMember(VALUE obj, const Ice::SlicedDataPtr& slicedData)
+{
+    //
+    // Create a Ruby equivalent of the SlicedData object.
+    //
+
+    assert(slicedData);
+
+    if (_slicedDataType == Qnil)
+    {
+        _slicedDataType = callRuby(rb_path2class, "Ice::SlicedData");
+        assert(!NIL_P(_slicedDataType));
+    }
+    if (_sliceInfoType == Qnil)
+    {
+        _sliceInfoType = callRuby(rb_path2class, "Ice::SliceInfo");
+        assert(!NIL_P(_sliceInfoType));
+    }
+
+    volatile VALUE sd = callRuby(rb_class_new_instance, 0, static_cast<VALUE*>(0), _slicedDataType);
+
+    volatile VALUE slices = createArray(static_cast<long>(slicedData->slices.size()));
+
+    callRuby(rb_iv_set, sd, "@slices", slices);
+
+    //
+    // Translate each SliceInfo object into its Ruby equivalent.
+    //
+    int i = 0;
+    for (vector<Ice::SliceInfoPtr>::const_iterator p = slicedData->slices.begin(); p != slicedData->slices.end(); ++p)
+    {
+        volatile VALUE slice = callRuby(rb_class_new_instance, 0, static_cast<VALUE*>(0), _sliceInfoType);
+
+        RARRAY_ASET(slices, i, slice);
+        i++;
+
+        //
+        // typeId
+        //
+        volatile VALUE typeId = createString((*p)->typeId);
+        callRuby(rb_iv_set, slice, "@typeId", typeId);
+
+        //
+        // compactId
+        //
+        volatile VALUE compactId = INT2FIX((*p)->compactId);
+        callRuby(rb_iv_set, slice, "@compactId", compactId);
+
+        //
+        // bytes
+        //
+        volatile VALUE bytes = callRuby(
+            rb_str_new,
+            (*p)->bytes.empty() ? 0 : reinterpret_cast<const char*>(&(*p)->bytes[0]),
+            static_cast<long>((*p)->bytes.size()));
+        callRuby(rb_iv_set, slice, "@bytes", bytes);
+
+        //
+        // instances
+        //
+        volatile VALUE instances = createArray(static_cast<long>((*p)->instances.size()));
+        callRuby(rb_iv_set, slice, "@instances", instances);
+
+        int j = 0;
+        for (vector<shared_ptr<Ice::Value>>::iterator q = (*p)->instances.begin(); q != (*p)->instances.end(); ++q)
+        {
+            //
+            // Each element in the instances list is an instance of ValueReader that wraps a Ruby object.
+            //
+            assert(*q);
+            auto r = dynamic_pointer_cast<ValueReader>(*q);
+            assert(r);
+            VALUE o = r->getObject();
+            assert(o != Qnil); // Should be non-nil.
+            RARRAY_ASET(instances, j, o);
+            j++;
+        }
+
+        //
+        // hasOptionalMembers
+        //
+        callRuby(rb_iv_set, slice, "@hasOptionalMembers", (*p)->hasOptionalMembers ? Qtrue : Qfalse);
+
+        //
+        // isLastSlice
+        //
+        callRuby(rb_iv_set, slice, "@isLastSlice", (*p)->isLastSlice ? Qtrue : Qfalse);
+    }
+
+    callRuby(rb_iv_set, obj, "@_ice_slicedData", sd);
+}
+
+//
+// Instances of class types may have a data member named _ice_slicedData which is an instance of the Ruby class
+// Ice::SlicedData. This data member is only set for unmarshaled instances.
+//
+Ice::SlicedDataPtr
+IceRuby::StreamUtil::getSlicedDataMember(VALUE obj, ValueMap* valueMap)
+{
+    Ice::SlicedDataPtr slicedData;
+
+    if (callRuby(rb_ivar_defined, obj, rb_intern("@_ice_slicedData")) == Qtrue)
+    {
+        volatile VALUE sd = callRuby(rb_iv_get, obj, "@_ice_slicedData");
+
+        if (sd != Qnil)
+        {
+            //
+            // The "slices" member is an array of Ice::SliceInfo objects.
+            //
+            volatile VALUE sl = callRuby(rb_iv_get, sd, "@slices");
+            assert(TYPE(sl) == T_ARRAY);
+
+            Ice::SliceInfoSeq slices;
+
+            long sz = RARRAY_LEN(sl);
+            for (long i = 0; i < sz; ++i)
+            {
+                volatile VALUE s = RARRAY_AREF(sl, i);
+
+                volatile VALUE typeId = callRuby(rb_iv_get, s, "@typeId");
+                volatile VALUE compactId = callRuby(rb_iv_get, s, "@compactId");
+
+                volatile VALUE bytes = callRuby(rb_iv_get, s, "@bytes");
+                assert(TYPE(bytes) == T_STRING);
+                const char* str = RSTRING_PTR(bytes);
+                const long len = RSTRING_LEN(bytes);
+                vector<byte> vtmp(reinterpret_cast<const byte*>(str), reinterpret_cast<const byte*>(str + len));
+                volatile VALUE hasOptionalMembers = callRuby(rb_iv_get, s, "@hasOptionalMembers");
+                volatile VALUE isLastSlice = callRuby(rb_iv_get, s, "@isLastSlice");
+
+                auto info = std::make_shared<Ice::SliceInfo>(
+                    getString(typeId),
+                    static_cast<int32_t>(getInteger(compactId)),
+                    std::move(vtmp),
+                    hasOptionalMembers == Qtrue,
+                    isLastSlice == Qtrue);
+
+                volatile VALUE instances = callRuby(rb_iv_get, s, "@instances");
+                assert(TYPE(instances) == T_ARRAY);
+                long osz = RARRAY_LEN(instances);
+                for (long j = 0; j < osz; ++j)
+                {
+                    VALUE o = RARRAY_AREF(instances, j);
+
+                    shared_ptr<Ice::Value> writer;
+
+                    ValueMap::iterator k = valueMap->find(o);
+                    if (k == valueMap->end())
+                    {
+                        writer = make_shared<ValueWriter>(o, valueMap, nullptr);
+                        valueMap->insert(ValueMap::value_type(o, writer));
+                    }
+                    else
+                    {
+                        writer = k->second;
+                    }
+
+                    info->instances.push_back(writer);
+                }
+
+                slices.push_back(info);
+            }
+
+            slicedData = std::make_shared<Ice::SlicedData>(slices);
+        }
+    }
+
+    return slicedData;
+}
+
+//
+// UnmarshalCallback implementation.
+//
+IceRuby::UnmarshalCallback::~UnmarshalCallback() = default;
+
+//
+// TypeInfo implementation.
+//
+IceRuby::TypeInfo::TypeInfo() = default;
+
+bool
+IceRuby::TypeInfo::usesClasses() const
+{
+    return false;
+}
+
+void
+IceRuby::TypeInfo::unmarshaled(VALUE, VALUE, void*)
+{
+    assert(false);
+}
+
+void
+IceRuby::TypeInfo::destroy()
+{
+}
+
+//
+// PrimitiveInfo implementation.
+//
+IceRuby::PrimitiveInfo::PrimitiveInfo() = default;
+
+IceRuby::PrimitiveInfo::PrimitiveInfo(Kind k) : kind(k) {}
+
+string
+IceRuby::PrimitiveInfo::getId() const
+{
+    switch (kind)
+    {
+        case KindBool:
+            return "bool";
+        case KindByte:
+            return "byte";
+        case KindShort:
+            return "short";
+        case KindInt:
+            return "int";
+        case KindLong:
+            return "long";
+        case KindFloat:
+            return "float";
+        case KindDouble:
+            return "double";
+        case KindString:
+            return "string";
+    }
+    assert(false);
+    return string();
+}
+
+bool
+IceRuby::PrimitiveInfo::validate(VALUE)
+{
+    //
+    // Ruby supports type coercion, such that it's technically possible for any
+    // value to be coerced to a primitive type. It would be expensive to perform
+    // this coercion twice, once to validate and again to marshal, so we skip
+    // the validation here.
+    //
+    return true;
+}
+
+bool
+IceRuby::PrimitiveInfo::variableLength() const
+{
+    return kind == KindString;
+}
+
+int
+IceRuby::PrimitiveInfo::wireSize() const
+{
+    switch (kind)
+    {
+        case KindBool:
+        case KindByte:
+            return 1;
+        case KindShort:
+            return 2;
+        case KindInt:
+            return 4;
+        case KindLong:
+            return 8;
+        case KindFloat:
+            return 4;
+        case KindDouble:
+            return 8;
+        case KindString:
+            return 1;
+    }
+    assert(false);
+    return 0;
+}
+
+Ice::OptionalFormat
+IceRuby::PrimitiveInfo::optionalFormat() const
+{
+    switch (kind)
+    {
+        case KindBool:
+        case KindByte:
+            return Ice::OptionalFormat::F1;
+        case KindShort:
+            return Ice::OptionalFormat::F2;
+        case KindInt:
+            return Ice::OptionalFormat::F4;
+        case KindLong:
+            return Ice::OptionalFormat::F8;
+        case KindFloat:
+            return Ice::OptionalFormat::F4;
+        case KindDouble:
+            return Ice::OptionalFormat::F8;
+        case KindString:
+            return Ice::OptionalFormat::VSize;
+    }
+
+    assert(false);
+    return Ice::OptionalFormat::F1;
+}
+
+void
+IceRuby::PrimitiveInfo::marshal(VALUE p, Ice::OutputStream* os, ValueMap*, bool)
+{
+    switch (kind)
+    {
+        case PrimitiveInfo::KindBool:
+        {
+            os->write(static_cast<bool>(RTEST(p)));
+            break;
+        }
+        case PrimitiveInfo::KindByte:
+        {
+            long i = getInteger(p);
+            if (i >= 0 && i <= 255)
+            {
+                os->write(static_cast<uint8_t>(i));
+                break;
+            }
+            throw RubyException(rb_eTypeError, "value is out of range for a byte");
+        }
+        case PrimitiveInfo::KindShort:
+        {
+            long i = getInteger(p);
+            if (i >= SHRT_MIN && i <= SHRT_MAX)
+            {
+                os->write(static_cast<int16_t>(i));
+                break;
+            }
+            throw RubyException(rb_eTypeError, "value is out of range for a short");
+        }
+        case PrimitiveInfo::KindInt:
+        {
+            long i = getInteger(p);
+            if (i >= INT_MIN && i <= INT_MAX)
+            {
+                os->write(static_cast<int32_t>(i));
+                break;
+            }
+            throw RubyException(rb_eTypeError, "value is out of range for an int");
+        }
+        case PrimitiveInfo::KindLong:
+        {
+            os->write(getLong(p));
+            break;
+        }
+        case PrimitiveInfo::KindFloat:
+        {
+            volatile VALUE val = callRuby(rb_Float, p);
+            if (NIL_P(val))
+            {
+                throw RubyException(rb_eTypeError, "unable to convert value to a float");
+            }
+            assert(TYPE(val) == T_FLOAT);
+            double d = static_cast<double>(RFLOAT_VALUE(val));
+            if (isfinite(d) && (d > numeric_limits<float>::max() || d < -numeric_limits<float>::max()))
+            {
+                throw RubyException(rb_eTypeError, "value is out of range for a float");
+            }
+            os->write(static_cast<float>(d));
+            break;
+        }
+        case PrimitiveInfo::KindDouble:
+        {
+            volatile VALUE val = callRuby(rb_Float, p);
+            if (NIL_P(val))
+            {
+                throw RubyException(rb_eTypeError, "unable to convert value to a double");
+            }
+            assert(TYPE(val) == T_FLOAT);
+            os->write(static_cast<double>(RFLOAT_VALUE(val)));
+            break;
+        }
+        case PrimitiveInfo::KindString:
+        {
+            string val = getString(p);
+            os->write(val, false); // Bypass string conversion.
+            break;
+        }
+    }
+}
+
+void
+IceRuby::PrimitiveInfo::unmarshal(
+    Ice::InputStream* is,
+    const UnmarshalCallbackPtr& cb,
+    VALUE target,
+    void* closure,
+    bool)
+{
+    volatile VALUE val = Qnil;
+    switch (kind)
+    {
+        case PrimitiveInfo::KindBool:
+        {
+            bool b;
+            is->read(b);
+            val = b ? Qtrue : Qfalse;
+            break;
+        }
+        case PrimitiveInfo::KindByte:
+        {
+            uint8_t b;
+            is->read(b);
+            val = callRuby(rb_int2inum, b);
+            break;
+        }
+        case PrimitiveInfo::KindShort:
+        {
+            int16_t sh;
+            is->read(sh);
+            val = callRuby(rb_int2inum, sh);
+            break;
+        }
+        case PrimitiveInfo::KindInt:
+        {
+            int32_t i;
+            is->read(i);
+            val = callRuby(rb_int2inum, i);
+            break;
+        }
+        case PrimitiveInfo::KindLong:
+        {
+            int64_t l;
+            is->read(l);
+            val = callRuby(rb_ll2inum, l);
+            break;
+        }
+        case PrimitiveInfo::KindFloat:
+        {
+            float f;
+            is->read(f);
+            val = callRuby(rb_float_new, f);
+            break;
+        }
+        case PrimitiveInfo::KindDouble:
+        {
+            double d;
+            is->read(d);
+            val = callRuby(rb_float_new, d);
+            break;
+        }
+        case PrimitiveInfo::KindString:
+        {
+            string str;
+            is->read(str, false); // Bypass string conversion.
+            val = createString(str);
+            break;
+        }
+    }
+    cb->unmarshaled(val, target, closure);
+}
+
+void
+IceRuby::PrimitiveInfo::print(VALUE value, IceInternal::Output& out, PrintObjectHistory*)
+{
+    switch (kind)
+    {
+        case PrimitiveInfo::KindBool:
+        {
+            out << (RTEST(value) ? "true" : "false");
+            break;
+        }
+        case PrimitiveInfo::KindByte:
+        case PrimitiveInfo::KindShort:
+        case PrimitiveInfo::KindInt:
+        {
+            out << getInteger(value);
+            break;
+        }
+        case PrimitiveInfo::KindLong:
+        {
+            int64_t l = getLong(value);
+            out << l;
+            break;
+        }
+        case PrimitiveInfo::KindFloat:
+        case PrimitiveInfo::KindDouble:
+        {
+            double d = toDouble(value);
+            out << d;
+            break;
+        }
+        case PrimitiveInfo::KindString:
+        {
+            out << "'" << getString(value) << "'";
+            break;
+        }
+    }
+}
+
+double
+IceRuby::PrimitiveInfo::toDouble(VALUE v)
+{
+    volatile VALUE val = callRuby(rb_Float, v);
+    if (NIL_P(val))
+    {
+        throw RubyException(rb_eTypeError, "unable to convert value to a double");
+    }
+    assert(TYPE(val) == T_FLOAT);
+    return RFLOAT_VALUE(val);
+}
+
+//
+// EnumInfo implementation.
+//
+
+namespace
+{
+    struct EnumDefinitionIterator : public IceRuby::HashIterator
+    {
+        EnumDefinitionIterator() : maxValue(0) {}
+
+        virtual void element(VALUE key, VALUE value)
+        {
+            const int32_t v = static_cast<int32_t>(getInteger(key));
+            assert(enumerators.find(v) == enumerators.end());
+            enumerators[v] = value;
+
+            if (v > maxValue)
+            {
+                maxValue = v;
+            }
+        }
+
+        int32_t maxValue;
+        IceRuby::EnumeratorMap enumerators;
+    };
+}
+
+IceRuby::EnumInfo::EnumInfo(VALUE ident, VALUE t, VALUE e) : rubyClass(t), maxValue(0)
+{
+    const_cast<string&>(id) = getString(ident);
+
+    EnumDefinitionIterator iter;
+    hashIterate(e, iter);
+
+    const_cast<int32_t&>(maxValue) = iter.maxValue;
+    const_cast<EnumeratorMap&>(enumerators) = iter.enumerators;
+}
+
+string
+IceRuby::EnumInfo::getId() const
+{
+    return id;
+}
+
+bool
+IceRuby::EnumInfo::validate(VALUE val)
+{
+    return callRuby(rb_obj_is_instance_of, val, rubyClass) == Qtrue;
+}
+
+bool
+IceRuby::EnumInfo::variableLength() const
+{
+    return true;
+}
+
+int
+IceRuby::EnumInfo::wireSize() const
+{
+    return 1;
+}
+
+Ice::OptionalFormat
+IceRuby::EnumInfo::optionalFormat() const
+{
+    return Ice::OptionalFormat::Size;
+}
+
+void
+IceRuby::EnumInfo::marshal(VALUE p, Ice::OutputStream* os, ValueMap*, bool)
+{
+    assert(callRuby(rb_obj_is_instance_of, p, rubyClass) == Qtrue); // validate() should have caught this.
+
+    //
+    // Validate value.
+    //
+    volatile VALUE val = callRuby(rb_iv_get, p, "@value");
+    const int32_t ival = static_cast<int32_t>(getInteger(val));
+    if (enumerators.find(ival) == enumerators.end())
+    {
+        throw RubyException(rb_eRangeError, "invalid enumerator %ld for enum %s", ival, id.c_str());
+    }
+
+    os->writeEnum(ival, maxValue);
+}
+
+void
+IceRuby::EnumInfo::unmarshal(Ice::InputStream* is, const UnmarshalCallbackPtr& cb, VALUE target, void* closure, bool)
+{
+    int32_t val = is->readEnum(maxValue);
+
+    EnumeratorMap::const_iterator p = enumerators.find(val);
+    if (p == enumerators.end())
+    {
+        ostringstream ostr;
+        ostr << "invalid enumerator " << val << " for enum " << id;
+        throw Ice::MarshalException(__FILE__, __LINE__, ostr.str());
+    }
+
+    cb->unmarshaled(p->second, target, closure);
+}
+
+void
+IceRuby::EnumInfo::print(VALUE value, IceInternal::Output& out, PrintObjectHistory*)
+{
+    if (!validate(value))
+    {
+        out << "<invalid value - expected " << id << ">";
+        return;
+    }
+    volatile VALUE str = callRuby(rb_funcall, value, rb_intern("inspect"), 0);
+    out << getString(str);
+}
+
+//
+// DataMember implementation.
+//
+void
+IceRuby::DataMember::unmarshaled(VALUE val, VALUE target, void*)
+{
+    callRuby(rb_ivar_set, target, rubyID, val);
+}
+
+static void
+convertDataMembers(VALUE members, DataMemberList& reqMembers, DataMemberList& optMembers, bool allowOptional)
+{
+    list<DataMemberPtr> optList;
+
+    volatile VALUE arr = callRuby(rb_check_array_type, members);
+    assert(!NIL_P(arr));
+    for (long i = 0; i < RARRAY_LEN(arr); ++i)
+    {
+        volatile VALUE m = callRuby(rb_check_array_type, RARRAY_AREF(arr, i));
+        assert(!NIL_P(m));
+        assert(RARRAY_LEN(m) == (allowOptional ? 4 : 2));
+
+        DataMemberPtr member = make_shared<DataMember>();
+
+        member->name = getString(RARRAY_AREF(m, 0));
+        member->type = getType(RARRAY_AREF(m, 1));
+        string s = "@" + member->name;
+        member->rubyID = rb_intern(s.c_str());
+
+        if (allowOptional)
+        {
+            member->optional = RTEST(RARRAY_AREF(m, 2));
+            member->tag = static_cast<int>(getInteger(RARRAY_AREF(m, 3)));
+        }
+        else
+        {
+            member->optional = false;
+            member->tag = 0;
+        }
+
+        if (member->optional)
+        {
+            optList.push_back(member);
+        }
+        else
+        {
+            reqMembers.push_back(member);
+        }
+    }
+
+    if (allowOptional)
+    {
+        class SortFn
+        {
+        public:
+            static bool compare(const DataMemberPtr& lhs, const DataMemberPtr& rhs) { return lhs->tag < rhs->tag; }
+        };
+
+        optList.sort(SortFn::compare);
+        copy(optList.begin(), optList.end(), back_inserter(optMembers));
+    }
+}
+
+//
+// StructInfo implementation.
+//
+IceRuby::StructInfo::StructInfo(VALUE ident, VALUE t, VALUE m) : rubyClass(t)
+{
+    const_cast<string&>(id) = getString(ident);
+
+    DataMemberList opt;
+    convertDataMembers(m, const_cast<DataMemberList&>(members), opt, false);
+    assert(opt.empty());
+
+    _variableLength = false;
+    _wireSize = 0;
+    for (DataMemberList::const_iterator p = members.begin(); p != members.end(); ++p)
+    {
+        if (!_variableLength && (*p)->type->variableLength())
+        {
+            _variableLength = true;
+        }
+        _wireSize += (*p)->type->wireSize();
+    }
+}
+
+string
+IceRuby::StructInfo::getId() const
+{
+    return id;
+}
+
+bool
+IceRuby::StructInfo::validate(VALUE val)
+{
+    return !NIL_P(val) && callRuby(rb_obj_is_kind_of, val, rubyClass) == Qtrue;
+}
+
+bool
+IceRuby::StructInfo::variableLength() const
+{
+    return _variableLength;
+}
+
+int
+IceRuby::StructInfo::wireSize() const
+{
+    return _wireSize;
+}
+
+Ice::OptionalFormat
+IceRuby::StructInfo::optionalFormat() const
+{
+    return _variableLength ? Ice::OptionalFormat::FSize : Ice::OptionalFormat::VSize;
+}
+
+bool
+IceRuby::StructInfo::usesClasses() const
+{
+    for (const auto& dm : members)
+    {
+        if (dm->type->usesClasses())
+        {
+            return true;
+        }
+    }
+
+    return false;
+}
+
+void
+IceRuby::StructInfo::marshal(VALUE p, Ice::OutputStream* os, ValueMap* valueMap, bool optional)
+{
+    assert(!NIL_P(p) && callRuby(rb_obj_is_kind_of, p, rubyClass) == Qtrue); // validate() should have caught this.
+
+    Ice::OutputStream::size_type sizePos = 0;
+    if (optional)
+    {
+        if (_variableLength)
+        {
+            sizePos = os->startSize();
+        }
+        else
+        {
+            os->writeSize(_wireSize);
+        }
+    }
+
+    for (DataMemberList::const_iterator q = members.begin(); q != members.end(); ++q)
+    {
+        DataMemberPtr member = *q;
+        volatile VALUE val = callRuby(rb_ivar_get, p, member->rubyID);
+        if (!member->type->validate(val))
+        {
+            throw RubyException(
+                rb_eTypeError,
+                "invalid value for %s member `%s'",
+                const_cast<char*>(id.c_str()),
+                member->name.c_str());
+        }
+        member->type->marshal(val, os, valueMap, false);
+    }
+
+    if (optional && _variableLength)
+    {
+        os->endSize(sizePos);
+    }
+}
+
+void
+IceRuby::StructInfo::unmarshal(
+    Ice::InputStream* is,
+    const UnmarshalCallbackPtr& cb,
+    VALUE target,
+    void* closure,
+    bool optional)
+{
+    volatile VALUE obj = callRuby(rb_class_new_instance, 0, static_cast<VALUE*>(0), rubyClass);
+
+    if (optional)
+    {
+        if (_variableLength)
+        {
+            is->skip(4);
+        }
+        else
+        {
+            is->skipSize();
+        }
+    }
+
+    for (DataMemberList::const_iterator q = members.begin(); q != members.end(); ++q)
+    {
+        DataMemberPtr member = *q;
+        member->type->unmarshal(is, member, obj, 0, false);
+    }
+
+    cb->unmarshaled(obj, target, closure);
+}
+
+void
+IceRuby::StructInfo::print(VALUE value, IceInternal::Output& out, PrintObjectHistory* history)
+{
+    if (!validate(value))
+    {
+        out << "<invalid value - expected " << id << ">";
+        return;
+    }
+
+    out.sb();
+    for (const auto& member : members)
+    {
+        out << nl << member->name << " = ";
+        if (callRuby(rb_ivar_defined, value, member->rubyID) == Qfalse)
+        {
+            out << "<not defined>";
+        }
+        else
+        {
+            volatile VALUE val = callRuby(rb_ivar_get, value, member->rubyID);
+            member->type->print(val, out, history);
+        }
+    }
+    out.eb();
+}
+
+void
+IceRuby::StructInfo::destroy()
+{
+    for (DataMemberList::const_iterator p = members.begin(); p != members.end(); ++p)
+    {
+        (*p)->type->destroy();
+    }
+    const_cast<DataMemberList&>(members).clear();
+}
+
+//
+// SequenceInfo implementation.
+//
+IceRuby::SequenceInfo::SequenceInfo(VALUE ident, VALUE t)
+{
+    const_cast<string&>(id) = getString(ident);
+    const_cast<TypeInfoPtr&>(elementType) = getType(t);
+}
+
+string
+IceRuby::SequenceInfo::getId() const
+{
+    return id;
+}
+
+bool
+IceRuby::SequenceInfo::validate(VALUE val)
+{
+    //
+    // Accept nil, an array, a string (for sequence<byte>), or any object that responds to to_ary.
+    //
+    if (NIL_P(val) || TYPE(val) == T_ARRAY)
+    {
+        return true;
+    }
+    if (TYPE(val) == T_STRING)
+    {
+        PrimitiveInfoPtr pi = dynamic_pointer_cast<PrimitiveInfo>(elementType);
+        if (pi && pi->kind == PrimitiveInfo::KindByte)
+        {
+            return true;
+        }
+    }
+    ID rbid = rb_intern("to_ary");
+    return callRuby(rb_respond_to, val, rbid) != 0;
+}
+
+bool
+IceRuby::SequenceInfo::variableLength() const
+{
+    return true;
+}
+
+int
+IceRuby::SequenceInfo::wireSize() const
+{
+    return 1;
+}
+
+Ice::OptionalFormat
+IceRuby::SequenceInfo::optionalFormat() const
+{
+    return elementType->variableLength() ? Ice::OptionalFormat::FSize : Ice::OptionalFormat::VSize;
+}
+
+bool
+IceRuby::SequenceInfo::usesClasses() const
+{
+    return elementType->usesClasses();
+}
+
+void
+IceRuby::SequenceInfo::marshal(VALUE p, Ice::OutputStream* os, ValueMap* valueMap, bool optional)
+{
+    PrimitiveInfoPtr pi = dynamic_pointer_cast<PrimitiveInfo>(elementType);
+
+    volatile VALUE arr = Qnil;
+
+    Ice::OutputStream::size_type sizePos = 0;
+    if (optional)
+    {
+        if (elementType->variableLength())
+        {
+            sizePos = os->startSize();
+        }
+        else if (elementType->wireSize() > 1)
+        {
+            //
+            // Determine the sequence size.
+            //
+            int sz = 0;
+            if (!NIL_P(p))
+            {
+                if (TYPE(p) == T_ARRAY)
+                {
+                    sz = static_cast<int>(RARRAY_LEN(p));
+                }
+                else
+                {
+                    arr = callRuby(rb_Array, p);
+                    if (NIL_P(arr))
+                    {
+                        throw RubyException(rb_eTypeError, "unable to convert value to an array");
+                    }
+                    sz = static_cast<int>(RARRAY_LEN(arr));
+                }
+            }
+            os->writeSize(sz == 0 ? 1 : sz * elementType->wireSize() + (sz > 254 ? 5 : 1));
+        }
+    }
+
+    if (NIL_P(p))
+    {
+        os->writeSize(0);
+    }
+    else if (pi)
+    {
+        marshalPrimitiveSequence(pi, p, os);
+    }
+    else
+    {
+        if (NIL_P(arr))
+        {
+            arr = callRuby(rb_Array, p);
+            if (NIL_P(arr))
+            {
+                throw RubyException(rb_eTypeError, "unable to convert value to an array");
+            }
+        }
+
+        long sz = RARRAY_LEN(arr);
+        os->writeSize(static_cast<int32_t>(sz));
+        for (long i = 0; i < sz; ++i)
+        {
+            if (!elementType->validate(RARRAY_AREF(arr, i)))
+            {
+                throw RubyException(
+                    rb_eTypeError,
+                    "invalid value for element %ld of `%s'",
+                    i,
+                    const_cast<char*>(id.c_str()));
+            }
+            elementType->marshal(RARRAY_AREF(arr, i), os, valueMap, false);
+        }
+    }
+
+    if (optional && elementType->variableLength())
+    {
+        os->endSize(sizePos);
+    }
+}
+
+void
+IceRuby::SequenceInfo::unmarshal(
+    Ice::InputStream* is,
+    const UnmarshalCallbackPtr& cb,
+    VALUE target,
+    void* closure,
+    bool optional)
+{
+    if (optional)
+    {
+        if (elementType->variableLength())
+        {
+            is->skip(4);
+        }
+        else if (elementType->wireSize() > 1)
+        {
+            is->skipSize();
+        }
+    }
+
+    PrimitiveInfoPtr pi = dynamic_pointer_cast<PrimitiveInfo>(elementType);
+    if (pi)
+    {
+        unmarshalPrimitiveSequence(pi, is, cb, target, closure);
+        return;
+    }
+
+    int32_t sz = is->readSize();
+    volatile VALUE arr = createArray(sz);
+
+    for (int32_t i = 0; i < sz; ++i)
+    {
+        void* cl = reinterpret_cast<void*>(i);
+        elementType->unmarshal(is, shared_from_this(), arr, cl, false);
+    }
+
+    cb->unmarshaled(arr, target, closure);
+}
+
+void
+IceRuby::SequenceInfo::unmarshaled(VALUE val, VALUE target, void* closure)
+{
+    static_assert(sizeof(long) == sizeof(void*), "long and void* must have the same size");
+    long i = reinterpret_cast<long>(closure);
+    RARRAY_ASET(target, i, val);
+}
+
+void
+IceRuby::SequenceInfo::print(VALUE value, IceInternal::Output& out, PrintObjectHistory* history)
+{
+    if (!validate(value))
+    {
+        out << "<invalid value - expected " << id << ">";
+        return;
+    }
+
+    if (NIL_P(value))
+    {
+        out << "{}";
+    }
+    else
+    {
+        if (TYPE(value) == T_STRING)
+        {
+            PrimitiveInfoPtr pi = dynamic_pointer_cast<PrimitiveInfo>(elementType);
+            if (pi && pi->kind == PrimitiveInfo::KindByte)
+            {
+                out << "'" << escapeString(getString(value)) << "'";
+                return;
+            }
+        }
+
+        volatile VALUE arr = callRuby(rb_Array, value);
+        if (NIL_P(arr))
+        {
+            throw RubyException(rb_eTypeError, "unable to convert value to an array");
+        }
+
+        long sz = RARRAY_LEN(arr);
+
+        out.sb();
+        for (long i = 0; i < sz; ++i)
+        {
+            out << nl << '[' << i << "] = ";
+            elementType->print(RARRAY_AREF(arr, i), out, history);
+        }
+        out.eb();
+    }
+}
+
+void
+IceRuby::SequenceInfo::destroy()
+{
+    if (elementType)
+    {
+        elementType->destroy();
+        const_cast<TypeInfoPtr&>(elementType) = 0;
+    }
+}
+
+void
+IceRuby::SequenceInfo::marshalPrimitiveSequence(const PrimitiveInfoPtr& pi, VALUE p, Ice::OutputStream* os)
+{
+    volatile VALUE arr = Qnil;
+    volatile VALUE str = Qnil;
+
+    //
+    // Accept a string or an array for sequence<byte>.
+    //
+    if (pi->kind == PrimitiveInfo::KindByte)
+    {
+        if (TYPE(p) == T_STRING)
+        {
+            str = p;
+        }
+        else
+        {
+            arr = callRuby(rb_Array, p);
+            if (NIL_P(arr))
+            {
+                throw RubyException(rb_eTypeError, "argument is not a string or an array");
+            }
+        }
+    }
+    else
+    {
+        arr = callRuby(rb_Array, p);
+        if (NIL_P(arr))
+        {
+            throw RubyException(rb_eTypeError, "unable to convert value to an array");
+        }
+    }
+
+    switch (pi->kind)
+    {
+        case PrimitiveInfo::KindBool:
+        {
+            long sz = RARRAY_LEN(arr);
+            Ice::BoolSeq seq(static_cast<size_t>(sz));
+            for (long i = 0; i < sz; ++i)
+            {
+                seq[static_cast<size_t>(i)] = RTEST(RARRAY_AREF(arr, i));
+            }
+            os->write(seq);
+            break;
+        }
+        case PrimitiveInfo::KindByte:
+        {
+            if (!NIL_P(str))
+            {
+                const char* s = RSTRING_PTR(str);
+                const long len = RSTRING_LEN(str);
+                if (s == 0 || len == 0)
+                {
+                    os->write(int32_t(0));
+                }
+                else
+                {
+                    os->write(reinterpret_cast<const byte*>(s), reinterpret_cast<const byte*>(s + len));
+                }
+            }
+            else
+            {
+                long sz = RARRAY_LEN(arr);
+                Ice::ByteSeq seq(static_cast<size_t>(sz));
+                for (long i = 0; i < sz; ++i)
+                {
+                    long val = getInteger(RARRAY_AREF(arr, i));
+                    if (val < 0 || val > 255)
+                    {
+                        throw RubyException(rb_eTypeError, "invalid value for element %ld of sequence<byte>", i);
+                    }
+                    seq[static_cast<size_t>(i)] = static_cast<byte>(val);
+                }
+                os->write(seq);
+            }
+            break;
+        }
+        case PrimitiveInfo::KindShort:
+        {
+            long sz = RARRAY_LEN(arr);
+            Ice::ShortSeq seq(static_cast<size_t>(sz));
+            for (long i = 0; i < sz; ++i)
+            {
+                long val = getInteger(RARRAY_AREF(arr, i));
+                if (val < SHRT_MIN || val > SHRT_MAX)
+                {
+                    throw RubyException(rb_eTypeError, "invalid value for element %ld of sequence<short>", i);
+                }
+                seq[static_cast<size_t>(i)] = static_cast<int16_t>(val);
+            }
+            os->write(seq);
+            break;
+        }
+        case PrimitiveInfo::KindInt:
+        {
+            long sz = RARRAY_LEN(arr);
+            Ice::IntSeq seq(static_cast<size_t>(sz));
+            for (long i = 0; i < sz; ++i)
+            {
+                long val = getInteger(RARRAY_AREF(arr, i));
+                if (val < INT_MIN || val > INT_MAX)
+                {
+                    throw RubyException(rb_eTypeError, "invalid value for element %ld of sequence<int>", i);
+                }
+                seq[static_cast<size_t>(i)] = static_cast<int32_t>(val);
+            }
+            os->write(seq);
+            break;
+        }
+        case PrimitiveInfo::KindLong:
+        {
+            long sz = RARRAY_LEN(arr);
+            Ice::LongSeq seq(static_cast<size_t>(sz));
+            for (long i = 0; i < sz; ++i)
+            {
+                seq[static_cast<size_t>(i)] = getLong(RARRAY_AREF(arr, i));
+            }
+            os->write(seq);
+            break;
+        }
+        case PrimitiveInfo::KindFloat:
+        {
+            long sz = RARRAY_LEN(arr);
+            Ice::FloatSeq seq(static_cast<size_t>(sz));
+            for (long i = 0; i < sz; ++i)
+            {
+                volatile VALUE v = callRuby(rb_Float, RARRAY_AREF(arr, i));
+                if (NIL_P(v))
+                {
+                    throw RubyException(rb_eTypeError, "unable to convert array element %ld to a float", i);
+                }
+                assert(TYPE(v) == T_FLOAT);
+                seq[static_cast<size_t>(i)] = static_cast<float>(RFLOAT_VALUE(v));
+            }
+            os->write(seq);
+            break;
+        }
+        case PrimitiveInfo::KindDouble:
+        {
+            long sz = RARRAY_LEN(arr);
+            Ice::DoubleSeq seq(static_cast<size_t>(sz));
+            for (long i = 0; i < sz; ++i)
+            {
+                volatile VALUE v = callRuby(rb_Float, RARRAY_AREF(arr, i));
+                if (NIL_P(v))
+                {
+                    throw RubyException(rb_eTypeError, "unable to convert array element %ld to a double", i);
+                }
+                assert(TYPE(v) == T_FLOAT);
+                seq[static_cast<size_t>(i)] = RFLOAT_VALUE(v);
+            }
+            os->write(seq);
+            break;
+        }
+        case PrimitiveInfo::KindString:
+        {
+            long sz = RARRAY_LEN(arr);
+            Ice::StringSeq seq(static_cast<size_t>(sz));
+            for (long i = 0; i < sz; ++i)
+            {
+                seq[static_cast<size_t>(i)] = getString(RARRAY_AREF(arr, i));
+            }
+            if (seq.empty())
+            {
+                os->write(seq);
+            }
+            else
+            {
+                os->write(&seq[0], &seq[0] + seq.size(), false); // Bypass string conversion.
+            }
+            break;
+        }
+    }
+}
+
+void
+IceRuby::SequenceInfo::unmarshalPrimitiveSequence(
+    const PrimitiveInfoPtr& pi,
+    Ice::InputStream* is,
+    const UnmarshalCallbackPtr& cb,
+    VALUE target,
+    void* closure)
+{
+    volatile VALUE result = Qnil;
+
+    switch (pi->kind)
+    {
+        case PrimitiveInfo::KindBool:
+        {
+            pair<const bool*, const bool*> p;
+            is->read(p);
+            long sz = static_cast<long>(p.second - p.first);
+            result = createArray(sz);
+
+            if (sz > 0)
+            {
+                for (long i = 0; i < sz; ++i)
+                {
+                    RARRAY_ASET(result, i, p.first[i] ? Qtrue : Qfalse);
+                }
+            }
+            break;
+        }
+        case PrimitiveInfo::KindByte:
+        {
+            pair<const uint8_t*, const uint8_t*> p;
+            is->read(p);
+            result =
+                callRuby(rb_str_new, reinterpret_cast<const char*>(p.first), static_cast<long>(p.second - p.first));
+            break;
+        }
+        case PrimitiveInfo::KindShort:
+        {
+            pair<const int16_t*, const int16_t*> p;
+            is->read(p);
+            long sz = static_cast<long>(p.second - p.first);
+            result = createArray(sz);
+
+            if (sz > 0)
+            {
+                for (long i = 0; i < sz; ++i)
+                {
+                    RARRAY_ASET(result, i, INT2FIX(p.first[i]));
+                }
+            }
+            break;
+        }
+        case PrimitiveInfo::KindInt:
+        {
+            pair<const int32_t*, const int32_t*> p;
+            is->read(p);
+            long sz = static_cast<long>(p.second - p.first);
+            result = createArray(sz);
+
+            if (sz > 0)
+            {
+                for (long i = 0; i < sz; ++i)
+                {
+                    RARRAY_ASET(result, i, INT2FIX(p.first[i]));
+                }
+            }
+            break;
+        }
+        case PrimitiveInfo::KindLong:
+        {
+            pair<const int64_t*, const int64_t*> p;
+            is->read(p);
+            long sz = static_cast<long>(p.second - p.first);
+            result = createArray(sz);
+
+            if (sz > 0)
+            {
+                for (long i = 0; i < sz; ++i)
+                {
+                    RARRAY_ASET(result, i, callRuby(rb_ll2inum, p.first[i]));
+                }
+            }
+            break;
+        }
+        case PrimitiveInfo::KindFloat:
+        {
+            pair<const float*, const float*> p;
+            is->read(p);
+            long sz = static_cast<long>(p.second - p.first);
+            result = createArray(sz);
+
+            if (sz > 0)
+            {
+                for (long i = 0; i < sz; ++i)
+                {
+                    RARRAY_ASET(result, i, callRuby(rb_float_new, p.first[i]));
+                }
+            }
+            break;
+        }
+        case PrimitiveInfo::KindDouble:
+        {
+            pair<const double*, const double*> p;
+            is->read(p);
+            long sz = static_cast<long>(p.second - p.first);
+            result = createArray(sz);
+
+            if (sz > 0)
+            {
+                for (long i = 0; i < sz; ++i)
+                {
+                    RARRAY_ASET(result, i, callRuby(rb_float_new, p.first[i]));
+                }
+            }
+            break;
+        }
+        case PrimitiveInfo::KindString:
+        {
+            Ice::StringSeq seq;
+            is->read(seq, false); // Bypass string conversion.
+            long sz = static_cast<long>(seq.size());
+            result = createArray(sz);
+
+            for (long i = 0; i < sz; ++i)
+            {
+                RARRAY_ASET(result, i, createString(seq[static_cast<size_t>(i)]));
+            }
+            break;
+        }
+    }
+    cb->unmarshaled(result, target, closure);
+}
+
+//
+// DictionaryInfo implementation.
+//
+IceRuby::DictionaryInfo::DictionaryInfo(VALUE ident, VALUE kt, VALUE vt)
+{
+    const_cast<string&>(id) = getString(ident);
+    const_cast<TypeInfoPtr&>(keyType) = getType(kt);
+    const_cast<TypeInfoPtr&>(valueType) = getType(vt);
+
+    _variableLength = keyType->variableLength() || valueType->variableLength();
+    _wireSize = keyType->wireSize() + valueType->wireSize();
+}
+
+string
+IceRuby::DictionaryInfo::getId() const
+{
+    return id;
+}
+
+bool
+IceRuby::DictionaryInfo::validate(VALUE val)
+{
+    //
+    // Accept nil, a hash, or any object that responds to to_hash.
+    //
+    if (NIL_P(val) || TYPE(val) == T_HASH)
+    {
+        return true;
+    }
+    ID rbid = rb_intern("to_hash");
+    return callRuby(rb_respond_to, val, rbid) != 0;
+}
+
+bool
+IceRuby::DictionaryInfo::variableLength() const
+{
+    return true;
+}
+
+int
+IceRuby::DictionaryInfo::wireSize() const
+{
+    return 1;
+}
+
+Ice::OptionalFormat
+IceRuby::DictionaryInfo::optionalFormat() const
+{
+    return _variableLength ? Ice::OptionalFormat::FSize : Ice::OptionalFormat::VSize;
+}
+
+bool
+IceRuby::DictionaryInfo::usesClasses() const
+{
+    return valueType->usesClasses();
+}
+
+namespace
+{
+    struct DictionaryMarshalIterator : public IceRuby::HashIterator
+    {
+        DictionaryMarshalIterator(const IceRuby::DictionaryInfoPtr& d, Ice::OutputStream* o, IceRuby::ValueMap* m)
+            : dict(d),
+              os(o),
+              valueMap(m)
+        {
+        }
+
+        virtual void element(VALUE key, VALUE value) { dict->marshalElement(key, value, os, valueMap); }
+
+        IceRuby::DictionaryInfoPtr dict;
+        Ice::OutputStream* os;
+        IceRuby::ValueMap* valueMap;
+    };
+}
+
+void
+IceRuby::DictionaryInfo::marshal(VALUE p, Ice::OutputStream* os, ValueMap* valueMap, bool optional)
+{
+    volatile VALUE hash = Qnil;
+
+    if (!NIL_P(p))
+    {
+        hash = callRuby(rb_convert_type, p, T_HASH, "Hash", "to_hash");
+        if (NIL_P(hash))
+        {
+            throw RubyException(rb_eTypeError, "unable to convert value to a hash");
+        }
+    }
+
+    int32_t sz = 0;
+    if (!NIL_P(hash))
+    {
+        sz = static_cast<int32_t>(RHASH_SIZE(hash));
+    }
+
+    Ice::OutputStream::size_type sizePos = 0;
+    if (optional)
+    {
+        if (_variableLength)
+        {
+            sizePos = os->startSize();
+        }
+        else
+        {
+            os->writeSize(sz == 0 ? 1 : sz * _wireSize + (sz > 254 ? 5 : 1));
+        }
+    }
+
+    if (NIL_P(hash))
+    {
+        os->writeSize(0);
+    }
+    else
+    {
+        os->writeSize(sz);
+        if (sz > 0)
+        {
+            DictionaryMarshalIterator iter(shared_from_this(), os, valueMap);
+            hashIterate(hash, iter);
+        }
+    }
+
+    if (optional && _variableLength)
+    {
+        os->endSize(sizePos);
+    }
+}
+
+void
+IceRuby::DictionaryInfo::marshalElement(VALUE key, VALUE value, Ice::OutputStream* os, ValueMap* valueMap)
+{
+    if (!keyType->validate(key))
+    {
+        throw RubyException(rb_eTypeError, "invalid key in `%s' element", const_cast<char*>(id.c_str()));
+    }
+
+    if (!valueType->validate(value))
+    {
+        throw RubyException(rb_eTypeError, "invalid value in `%s' element", const_cast<char*>(id.c_str()));
+    }
+
+    keyType->marshal(key, os, valueMap, false);
+    valueType->marshal(value, os, valueMap, false);
+}
+
+void
+IceRuby::DictionaryInfo::unmarshal(
+    Ice::InputStream* is,
+    const UnmarshalCallbackPtr& cb,
+    VALUE target,
+    void* closure,
+    bool optional)
+{
+    if (optional)
+    {
+        if (_variableLength)
+        {
+            is->skip(4);
+        }
+        else
+        {
+            is->skipSize();
+        }
+    }
+
+    volatile VALUE hash = callRuby(rb_hash_new);
+
+    KeyCallbackPtr keyCB = make_shared<KeyCallback>();
+    keyCB->key = Qnil;
+
+    int32_t sz = is->readSize();
+    for (int32_t i = 0; i < sz; ++i)
+    {
+        //
+        // A dictionary key cannot be a class (or contain one), so the key must be
+        // available immediately.
+        //
+        keyType->unmarshal(is, keyCB, Qnil, 0, false);
+        assert(!NIL_P(keyCB->key));
+        if (valueType->usesClasses())
+        {
+            // Temporarily set the entry with a Qnil value to ensure the key is not GC
+            // while unmarshaling a value class
+            if (RB_TYPE_P(keyCB->key, T_STRING))
+            {
+                // For string keys create a frozen string to ensure that the key used
+                // in the map matches the one keep in the closure
+                keyCB->key = rb_str_new_frozen(keyCB->key);
+            }
+            callRuby(rb_hash_aset, hash, keyCB->key, Qnil);
+        }
+        //
+        // The callback will set the dictionary entry with the unmarshaled value,
+        // so we pass it the key.
+        //
+        void* cl = reinterpret_cast<void*>(keyCB->key);
+        valueType->unmarshal(is, shared_from_this(), hash, cl, false);
+    }
+
+    cb->unmarshaled(hash, target, closure);
+}
+
+void
+IceRuby::DictionaryInfo::unmarshaled(VALUE val, VALUE target, void* closure)
+{
+    volatile VALUE key = reinterpret_cast<VALUE>(closure);
+    callRuby(rb_hash_aset, target, key, val);
+}
+
+namespace
+{
+    struct DictionaryPrintIterator : public IceRuby::HashIterator
+    {
+        DictionaryPrintIterator(const DictionaryInfoPtr& d, IceInternal::Output& o, PrintObjectHistory* h)
+            : dict(d),
+              out(o),
+              history(h)
+        {
+        }
+
+        virtual void element(VALUE key, VALUE value) { dict->printElement(key, value, out, history); }
+
+        IceRuby::DictionaryInfoPtr dict;
+        IceInternal::Output& out;
+        IceRuby::PrintObjectHistory* history;
+    };
+}
+
+void
+IceRuby::DictionaryInfo::print(VALUE value, IceInternal::Output& out, PrintObjectHistory* history)
+{
+    if (!validate(value))
+    {
+        out << "<invalid value - expected " << id << ">";
+        return;
+    }
+
+    if (NIL_P(value))
+    {
+        out << "{}";
+    }
+    else
+    {
+        volatile VALUE hash = callRuby(rb_convert_type, value, T_HASH, "Hash", "to_hash");
+        if (NIL_P(hash))
+        {
+            throw RubyException(rb_eTypeError, "unable to convert value to a hash");
+        }
+
+        if (RHASH_SIZE(hash) == 0)
+        {
+            out << "{}";
+            return;
+        }
+
+        out.sb();
+        DictionaryPrintIterator iter(shared_from_this(), out, history);
+        hashIterate(hash, iter);
+        out.eb();
+    }
+}
+
+void
+IceRuby::DictionaryInfo::printElement(VALUE key, VALUE value, IceInternal::Output& out, PrintObjectHistory* history)
+{
+    out << nl << "key = ";
+    keyType->print(key, out, history);
+    out << nl << "value = ";
+    valueType->print(value, out, history);
+}
+
+void
+IceRuby::DictionaryInfo::KeyCallback::unmarshaled(VALUE val, VALUE, void*)
+{
+    key = val;
+}
+
+void
+IceRuby::DictionaryInfo::destroy()
+{
+    if (keyType)
+    {
+        keyType->destroy();
+        const_cast<TypeInfoPtr&>(keyType) = 0;
+    }
+    if (valueType)
+    {
+        valueType->destroy();
+        const_cast<TypeInfoPtr&>(valueType) = 0;
+    }
+}
+
+//
+// ClassInfo implementation.
+//
+
+ClassInfoPtr
+IceRuby::ClassInfo::create(VALUE ident)
+{
+    shared_ptr<ClassInfo> classInfo{new ClassInfo{ident}};
+    const_cast<VALUE&>(classInfo->typeObj) = createType(classInfo);
+    return classInfo;
+}
+
+IceRuby::ClassInfo::ClassInfo(VALUE ident)
+    : compactId(-1),
+      isBase(false),
+      interface(false),
+      rubyClass(Qnil),
+      typeObj(Qnil),
+      defined(false)
+{
+    const_cast<string&>(id) = getString(ident);
+    const_cast<bool&>(isBase) = id == Ice::Value::ice_staticId();
+}
+
+void
+IceRuby::ClassInfo::define(VALUE t, VALUE compact, VALUE intf, VALUE b, VALUE m)
+{
+    if (!NIL_P(b))
+    {
+        const_cast<ClassInfoPtr&>(base) = dynamic_pointer_cast<ClassInfo>(getType(b));
+        assert(base);
+    }
+
+    const_cast<int32_t&>(compactId) = static_cast<int32_t>(getInteger(compact));
+    const_cast<bool&>(interface) = RTEST(intf);
+    convertDataMembers(m, const_cast<DataMemberList&>(members), const_cast<DataMemberList&>(optionalMembers), true);
+    const_cast<VALUE&>(rubyClass) = t;
+    const_cast<bool&>(defined) = true;
+}
+
+string
+IceRuby::ClassInfo::getId() const
+{
+    return id;
+}
+
+bool
+IceRuby::ClassInfo::validate(VALUE val)
+{
+    if (NIL_P(val))
+    {
+        return true;
+    }
+
+    //
+    // We consider an object to be an instance of this class if its class contains
+    // an ICE_TYPE constant that refers to this class, or a subclass of this class.
+    //
+    volatile VALUE cls = CLASS_OF(val);
+    volatile VALUE type = Qnil;
+    type = callRuby(rb_const_get, cls, rb_intern("ICE_TYPE"));
+    assert(!NIL_P(type));
+    ClassInfoPtr info = dynamic_pointer_cast<ClassInfo>(getType(type));
+    assert(info);
+    return this->interface || info->isA(shared_from_this());
+}
+
+bool
+IceRuby::ClassInfo::variableLength() const
+{
+    return true;
+}
+
+int
+IceRuby::ClassInfo::wireSize() const
+{
+    return 1;
+}
+
+Ice::OptionalFormat
+IceRuby::ClassInfo::optionalFormat() const
+{
+    return Ice::OptionalFormat::Class;
+}
+
+bool
+IceRuby::ClassInfo::usesClasses() const
+{
+    return true;
+}
+
+void
+IceRuby::ClassInfo::marshal(VALUE p, Ice::OutputStream* os, ValueMap* valueMap, bool)
+{
+    if (!defined)
+    {
+        throw RubyException(rb_eRuntimeError, "class %s is declared but not defined", id.c_str());
+    }
+
+    if (NIL_P(p))
+    {
+        shared_ptr<Ice::Value> value; // nullptr
+        os->write(value);
+        return;
+    }
+
+    //
+    // Ice::ValueWriter is a subclass of Ice::Value that wraps a Ruby object for marshaling.
+    // It is possible that this Ruby object has already been marshaled, therefore we first must
+    // check the object map to see if this object is present. If so, we use the existing ValueWriter,
+    // otherwise we create a new one.
+    //
+    shared_ptr<Ice::Value> writer;
+    assert(valueMap);
+    ValueMap::iterator q = valueMap->find(p);
+    if (q == valueMap->end())
+    {
+        writer = make_shared<ValueWriter>(p, valueMap, shared_from_this());
+        valueMap->insert(ValueMap::value_type(p, writer));
+    }
+    else
+    {
+        writer = q->second;
+    }
+
+    //
+    // Give the writer to the stream. The stream will eventually call write() on it.
+    //
+    os->write(writer);
+}
+
+namespace
+{
+    void patchObject(void* addr, const shared_ptr<Ice::Value>& v)
+    {
+        ReadValueCallback* cb = static_cast<ReadValueCallback*>(addr);
+        assert(cb);
+        cb->invoke(v);
+    }
+}
+
+void
+IceRuby::ClassInfo::unmarshal(Ice::InputStream* is, const UnmarshalCallbackPtr& cb, VALUE target, void* closure, bool)
+{
+    if (!defined)
+    {
+        throw RubyException(rb_eRuntimeError, "class %s is declared but not defined", id.c_str());
+    }
+
+    //
+    // This callback is notified when the Slice value is actually read. The StreamUtil object
+    // attached to the stream keeps a reference to the callback object to ensure it lives
+    // long enough.
+    //
+    ReadValueCallbackPtr rocb = make_shared<ReadValueCallback>(shared_from_this(), cb, target, closure);
+    StreamUtil* util = reinterpret_cast<StreamUtil*>(is->getClosure());
+    assert(util);
+    util->add(rocb);
+    is->read(patchObject, rocb.get());
+}
+
+void
+IceRuby::ClassInfo::print(VALUE value, IceInternal::Output& out, PrintObjectHistory* history)
+{
+    if (!validate(value))
+    {
+        out << "<invalid value - expected " << id << ">";
+        return;
+    }
+
+    if (NIL_P(value))
+    {
+        out << "<nil>";
+    }
+    else
+    {
+        map<VALUE, int>::iterator q = history->objects.find(value);
+        if (q != history->objects.end())
+        {
+            out << "<object #" << q->second << ">";
+        }
+        else
+        {
+            volatile VALUE cls = CLASS_OF(value);
+            volatile VALUE type = Qnil;
+            ClassInfoPtr info;
+            type = callRuby(rb_const_get, cls, rb_intern("ICE_TYPE"));
+            info = dynamic_pointer_cast<ClassInfo>(getType(type));
+            assert(info);
+            out << "object #" << history->index << " (" << info->id << ')';
+            history->objects.insert(map<VALUE, int>::value_type(value, history->index));
+            ++history->index;
+            out.sb();
+            info->printMembers(value, out, history);
+            out.eb();
+        }
+    }
+}
+
+void
+IceRuby::ClassInfo::destroy()
+{
+    const_cast<ClassInfoPtr&>(base) = 0;
+    if (!members.empty())
+    {
+        DataMemberList ml = members;
+        const_cast<DataMemberList&>(members).clear();
+        for (DataMemberList::iterator p = ml.begin(); p != ml.end(); ++p)
+        {
+            (*p)->type->destroy();
+        }
+    }
+}
+
+void
+IceRuby::ClassInfo::printMembers(VALUE value, IceInternal::Output& out, PrintObjectHistory* history)
+{
+    if (base)
+    {
+        base->printMembers(value, out, history);
+    }
+
+    for (const auto& member : members)
+    {
+        out << nl << member->name << " = ";
+        if (callRuby(rb_ivar_defined, value, member->rubyID) == Qfalse)
+        {
+            out << "<not defined>";
+        }
+        else
+        {
+            volatile VALUE val = callRuby(rb_ivar_get, value, member->rubyID);
+            member->type->print(val, out, history);
+        }
+    }
+
+    for (const auto& member : optionalMembers)
+    {
+        out << nl << member->name << " = ";
+        if (callRuby(rb_ivar_defined, value, member->rubyID) == Qfalse)
+        {
+            out << "<not defined>";
+        }
+        else
+        {
+            volatile VALUE val = callRuby(rb_ivar_get, value, member->rubyID);
+            if (val == Qnil)
+            {
+                out << "<nil>";
+            }
+            else
+            {
+                member->type->print(val, out, history);
+            }
+        }
+    }
+}
+
+bool
+IceRuby::ClassInfo::isA(const ClassInfoPtr& info)
+{
+    //
+    // Return true if this class has an is-a relationship with info.
+    //
+    if (info->isBase)
+    {
+        return true;
+    }
+    else if (this == info.get())
+    {
+        return true;
+    }
+
+    return base && base->isA(info);
+}
+
+//
+// ProxyInfo implementation.
+//
+
+ProxyInfoPtr
+IceRuby::ProxyInfo::create(VALUE ident)
+{
+    shared_ptr<ProxyInfo> proxyInfo{new ProxyInfo{ident}};
+    const_cast<VALUE&>(proxyInfo->typeObj) = createType(proxyInfo);
+    return proxyInfo;
+}
+
+IceRuby::ProxyInfo::ProxyInfo(VALUE ident) : isBase(false), rubyClass(Qnil), typeObj(Qnil)
+{
+    const_cast<string&>(id) = getString(ident);
+    const_cast<bool&>(isBase) = id == Ice::Object::ice_staticId();
+}
+
+void
+IceRuby::ProxyInfo::define(VALUE t, VALUE b, VALUE i)
+{
+    if (!NIL_P(b))
+    {
+        const_cast<ProxyInfoPtr&>(base) = dynamic_pointer_cast<ProxyInfo>(getType(b));
+        assert(base);
+    }
+
+    volatile VALUE arr = callRuby(rb_check_array_type, i);
+    assert(!NIL_P(arr));
+    for (int n = 0; n < RARRAY_LEN(arr); ++n)
+    {
+        ProxyInfoPtr iface = dynamic_pointer_cast<ProxyInfo>(getType(RARRAY_AREF(arr, n)));
+        assert(iface);
+        const_cast<ProxyInfoList&>(interfaces).push_back(iface);
+    }
+
+    const_cast<VALUE&>(rubyClass) = t;
+}
+
+string
+IceRuby::ProxyInfo::getId() const
+{
+    return id;
+}
+
+bool
+IceRuby::ProxyInfo::validate(VALUE val)
+{
+    return NIL_P(val) || checkProxy(val);
+}
+
+bool
+IceRuby::ProxyInfo::variableLength() const
+{
+    return true;
+}
+
+int
+IceRuby::ProxyInfo::wireSize() const
+{
+    return 1;
+}
+
+Ice::OptionalFormat
+IceRuby::ProxyInfo::optionalFormat() const
+{
+    return Ice::OptionalFormat::FSize;
+}
+
+void
+IceRuby::ProxyInfo::marshal(VALUE p, Ice::OutputStream* os, ValueMap*, bool optional)
+{
+    Ice::OutputStream::size_type sizePos = 0;
+    if (optional)
+    {
+        sizePos = os->startSize();
+    }
+
+    std::optional<Ice::ObjectPrx> proxy;
+
+    if (!NIL_P(p))
+    {
+        assert(checkProxy(p)); // validate() should have caught this.
+        proxy = getProxy(p);
+    }
+    os->write(proxy);
+
+    if (optional)
+    {
+        os->endSize(sizePos);
+    }
+}
+
+void
+IceRuby::ProxyInfo::unmarshal(
+    Ice::InputStream* is,
+    const UnmarshalCallbackPtr& cb,
+    VALUE target,
+    void* closure,
+    bool optional)
+{
+    if (optional)
+    {
+        is->skip(4);
+    }
+
+    std::optional<Ice::ObjectPrx> proxy;
+    is->read(proxy);
+
+    if (!proxy)
+    {
+        cb->unmarshaled(Qnil, target, closure);
+        return;
+    }
+
+    if (NIL_P(rubyClass))
+    {
+        throw RubyException(rb_eRuntimeError, "class %s is declared but not defined", id.c_str());
+    }
+
+    volatile VALUE p = createProxy(proxy.value(), rubyClass);
+    cb->unmarshaled(p, target, closure);
+}
+
+void
+IceRuby::ProxyInfo::print(VALUE value, IceInternal::Output& out, PrintObjectHistory*)
+{
+    if (!validate(value))
+    {
+        out << "<invalid value - expected " << getId() << ">";
+        return;
+    }
+
+    if (NIL_P(value))
+    {
+        out << "<nil>";
+    }
+    else
+    {
+        out << getString(value);
+    }
+}
+
+bool
+IceRuby::ProxyInfo::isA(const ProxyInfoPtr& info)
+{
+    //
+    // Return true if this class has an is-a relationship with info.
+    //
+    if (info->isBase)
+    {
+        return true;
+    }
+    else if (this == info.get())
+    {
+        return true;
+    }
+    else if (base && base->isA(info))
+    {
+        return true;
+    }
+    else if (!interfaces.empty())
+    {
+        for (ProxyInfoList::const_iterator p = interfaces.begin(); p != interfaces.end(); ++p)
+        {
+            if ((*p)->isA(info))
+            {
+                return true;
+            }
+        }
+    }
+
+    return false;
+}
+
+void
+IceRuby::ProxyInfo::destroy()
+{
+    const_cast<ProxyInfoPtr&>(base) = 0;
+    const_cast<ProxyInfoList&>(interfaces).clear();
+}
+
+//
+// ValueWriter implementation.
+//
+IceRuby::ValueWriter::ValueWriter(VALUE object, ValueMap* valueMap, const ClassInfoPtr& formal)
+    : _object(object),
+      _map(valueMap),
+      _formal(formal)
+{
+    //
+    // Mark the object as in use for the lifetime of this wrapper.
+    //
+    rb_gc_register_address(&_object);
+    if (!_formal || !_formal->interface)
+    {
+        volatile VALUE cls = CLASS_OF(object);
+        volatile VALUE type = callRuby(rb_const_get, cls, rb_intern("ICE_TYPE"));
+        assert(!NIL_P(type));
+        _info = dynamic_pointer_cast<ClassInfo>(getType(type));
+        assert(_info);
+    }
+}
+
+IceRuby::ValueWriter::~ValueWriter() { rb_gc_unregister_address(&_object); }
+
+void
+IceRuby::ValueWriter::ice_preMarshal()
+{
+    ID id = rb_intern("ice_preMarshal");
+    if (callRuby(rb_respond_to, _object, id))
+    {
+        callRuby(rb_funcall, _object, id, 0);
+    }
+}
+
+void
+IceRuby::ValueWriter::_iceWrite(Ice::OutputStream* os) const
+{
+    //
+    // Retrieve the SlicedData object that we stored as a hidden member of the Ruby object.
+    //
+    Ice::SlicedDataPtr slicedData = StreamUtil::getSlicedDataMember(_object, const_cast<ValueMap*>(_map));
+
+    os->startValue(slicedData);
+    if (_formal && _formal->interface)
+    {
+        ID op = rb_intern("ice_id");
+        string id = getString(callRuby(rb_funcall, _object, op, 0));
+        os->startSlice(id, -1, true);
+        os->endSlice();
+    }
+    else
+    {
+        if (_info->id != "::Ice::UnknownSlicedValue")
+        {
+            ClassInfoPtr info = _info;
+            while (info)
+            {
+                os->startSlice(info->id, info->compactId, !info->base);
+
+                writeMembers(os, info->members);
+                writeMembers(os, info->optionalMembers); // The optional members have already been sorted by tag.
+
+                os->endSlice();
+
+                info = info->base;
+            }
+        }
+    }
+    os->endValue();
+}
+
+void
+IceRuby::ValueWriter::_iceRead(Ice::InputStream*)
+{
+    assert(false);
+}
+
+void
+IceRuby::ValueWriter::writeMembers(Ice::OutputStream* os, const DataMemberList& members) const
+{
+    for (DataMemberList::const_iterator q = members.begin(); q != members.end(); ++q)
+    {
+        DataMemberPtr member = *q;
+
+        volatile VALUE val = callRuby(rb_ivar_get, _object, member->rubyID);
+
+        if (member->optional && (val == Qnil || !os->writeOptional(member->tag, member->type->optionalFormat())))
+        {
+            continue;
+        }
+
+        if (!member->type->validate(val))
+        {
+            throw RubyException(
+                rb_eTypeError,
+                "invalid value for %s member `%s'",
+                _info->id.c_str(),
+                member->name.c_str());
+        }
+
+        member->type->marshal(val, os, _map, member->optional);
+    }
+}
+
+//
+// ValueReader implementation.
+//
+IceRuby::ValueReader::ValueReader(VALUE object, const ClassInfoPtr& info) : _object(object), _info(info)
+{
+    //
+    // Mark the object as in use for the lifetime of this wrapper.
+    //
+    rb_gc_register_address(&_object);
+}
+
+IceRuby::ValueReader::~ValueReader() { rb_gc_unregister_address(&_object); }
+
+void
+IceRuby::ValueReader::ice_postUnmarshal()
+{
+    ID id = rb_intern("ice_postUnmarshal");
+    if (callRuby(rb_respond_to, _object, id))
+    {
+        callRuby(rb_funcall, _object, id, 0);
+    }
+}
+
+void
+IceRuby::ValueReader::_iceWrite(Ice::OutputStream*) const
+{
+    assert(false);
+}
+
+void
+IceRuby::ValueReader::_iceRead(Ice::InputStream* is)
+{
+    is->startValue();
+
+    const bool unknown = _info->id == "::Ice::UnknownSlicedValue";
+
+    //
+    // Unmarshal the slices of a user-defined class.
+    //
+    if (!unknown && _info->id != Ice::Value::ice_staticId())
+    {
+        ClassInfoPtr info = _info;
+        while (info)
+        {
+            is->startSlice();
+
+            DataMemberList::const_iterator p;
+
+            for (p = info->members.begin(); p != info->members.end(); ++p)
+            {
+                DataMemberPtr member = *p;
+                member->type->unmarshal(is, member, _object, 0, false);
+            }
+
+            //
+            // The optional members have already been sorted by tag.
+            //
+            for (p = info->optionalMembers.begin(); p != info->optionalMembers.end(); ++p)
+            {
+                DataMemberPtr member = *p;
+                if (is->readOptional(member->tag, member->type->optionalFormat()))
+                {
+                    member->type->unmarshal(is, member, _object, 0, true);
+                }
+                else
+                {
+                    callRuby(rb_ivar_set, _object, member->rubyID, Qnil);
+                }
+            }
+
+            is->endSlice();
+
+            info = info->base;
+        }
+    }
+
+    _slicedData = is->endValue();
+
+    if (_slicedData)
+    {
+        StreamUtil* util = reinterpret_cast<StreamUtil*>(is->getClosure());
+        assert(util);
+        util->add(shared_ptr<ValueReader>(shared_from_this()));
+
+        //
+        // Define the "unknownTypeId" member for an instance of UnknownSlicedValue.
+        //
+        if (unknown)
+        {
+            assert(!_slicedData->slices.empty());
+
+            volatile VALUE typeId = createString(_slicedData->slices[0]->typeId);
+            callRuby(rb_iv_set, _object, "@unknownTypeId", typeId);
+        }
+    }
+}
+
+ClassInfoPtr
+IceRuby::ValueReader::getInfo() const
+{
+    return _info;
+}
+
+VALUE
+IceRuby::ValueReader::getObject() const { return _object; }
+
+Ice::SlicedDataPtr
+IceRuby::ValueReader::getSlicedData() const
+{
+    return _slicedData;
+}
+
+//
+// InfoMapDestroyer implementation.
+//
+IceRuby::InfoMapDestroyer::~InfoMapDestroyer()
+{
+    {
+        for (ProxyInfoMap::iterator p = _proxyInfoMap.begin(); p != _proxyInfoMap.end(); ++p)
+        {
+            p->second->destroy();
+        }
+    }
+    {
+        for (ClassInfoMap::iterator p = _classInfoMap.begin(); p != _classInfoMap.end(); ++p)
+        {
+            p->second->destroy();
+        }
+    }
+    _exceptionInfoMap.clear();
+}
+
+//
+// ReadValueCallback implementation.
+//
+IceRuby::ReadValueCallback::ReadValueCallback(
+    const ClassInfoPtr& info,
+    const UnmarshalCallbackPtr& cb,
+    VALUE target,
+    void* closure)
+    : _info(info),
+      _cb(cb),
+      _target(target),
+      _closure(closure)
+{
+}
+
+void
+IceRuby::ReadValueCallback::invoke(const shared_ptr<Ice::Value>& p)
+{
+    if (p)
+    {
+        auto reader = dynamic_pointer_cast<ValueReader>(p);
+        assert(reader);
+
+        //
+        // Verify that the unmarshaled object is compatible with the formal type.
+        //
+        volatile VALUE obj = reader->getObject();
+        if (!_info->interface && !_info->validate(obj))
+        {
+            throw MarshalException{
+                __FILE__,
+                __LINE__,
+                "failed to unmarshal class with type ID '" + _info->id +
+                    "': the Slice loader returned a class with type ID '" + reader->getInfo()->id + "'"};
+        }
+#ifndef NDEBUG
+        // With debug builds we force a GC to ensure that all data members are correctly keep alive.
+        rb_gc();
+#endif
+        _cb->unmarshaled(obj, _target, _closure);
+    }
+    else
+    {
+        _cb->unmarshaled(Qnil, _target, _closure);
+    }
+}
+
+//
+// ExceptionInfo implementation.
+//
+VALUE
+IceRuby::ExceptionInfo::unmarshal(Ice::InputStream* is)
+{
+    volatile VALUE obj = callRuby(rb_class_new_instance, 0, static_cast<VALUE*>(0), rubyClass);
+
+    ExceptionInfoPtr info = shared_from_this();
+    while (info)
+    {
+        is->startSlice();
+
+        DataMemberList::iterator q;
+
+        for (q = info->members.begin(); q != info->members.end(); ++q)
+        {
+            DataMemberPtr member = *q;
+            member->type->unmarshal(is, member, obj, 0, false);
+        }
+
+        //
+        // The optional members have already been sorted by tag.
+        //
+        for (q = info->optionalMembers.begin(); q != info->optionalMembers.end(); ++q)
+        {
+            DataMemberPtr member = *q;
+            if (is->readOptional(member->tag, member->type->optionalFormat()))
+            {
+                member->type->unmarshal(is, member, obj, 0, true);
+            }
+            else
+            {
+                callRuby(rb_ivar_set, obj, member->rubyID, Qnil);
+            }
+        }
+
+        is->endSlice();
+
+        info = info->base;
+    }
+
+    return obj;
+}
+
+void
+IceRuby::ExceptionInfo::print(VALUE value, IceInternal::Output& out)
+{
+    if (callRuby(rb_obj_is_kind_of, value, rubyClass) == Qfalse)
+    {
+        out << "<invalid value - expected " << id << ">";
+        return;
+    }
+
+    PrintObjectHistory history;
+    history.index = 0;
+
+    out << "exception " << id;
+    out.sb();
+    printMembers(value, out, &history);
+    out.eb();
+}
+
+void
+IceRuby::ExceptionInfo::printMembers(VALUE value, IceInternal::Output& out, PrintObjectHistory* history)
+{
+    if (base)
+    {
+        base->printMembers(value, out, history);
+    }
+
+    for (const auto& member : members)
+    {
+        out << nl << member->name << " = ";
+        if (callRuby(rb_ivar_defined, value, member->rubyID) == Qfalse)
+        {
+            out << "<not defined>";
+        }
+        else
+        {
+            volatile VALUE val = callRuby(rb_ivar_get, value, member->rubyID);
+            member->type->print(val, out, history);
+        }
+    }
+
+    for (const auto& member : optionalMembers)
+    {
+        out << nl << member->name << " = ";
+        if (callRuby(rb_ivar_defined, value, member->rubyID) == Qfalse)
+        {
+            out << "<not defined>";
+        }
+        else
+        {
+            volatile VALUE val = callRuby(rb_ivar_get, value, member->rubyID);
+            if (val == Qnil)
+            {
+                out << "<nil>";
+            }
+            else
+            {
+                member->type->print(val, out, history);
+            }
+        }
+    }
+}
+
+//
+// ExceptionReader implementation.
+//
+IceRuby::ExceptionReader::ExceptionReader(const ExceptionInfoPtr& info) : _info(info) {}
+
+IceRuby::ExceptionReader::ExceptionReader(const ExceptionReader& reader) : _info(reader._info), _ex(reader._ex)
+{
+    rb_gc_register_address(&_ex);
+}
+
+IceRuby::ExceptionReader::~ExceptionReader() { rb_gc_unregister_address(&_ex); }
+
+const char*
+IceRuby::ExceptionReader::ice_id() const noexcept
+{
+    return _info->id.c_str();
+}
+
+void
+IceRuby::ExceptionReader::ice_throw() const
+{
+    assert(false);
+}
+
+void
+IceRuby::ExceptionReader::_write(Ice::OutputStream*) const
+{
+    assert(false);
+}
+
+void
+IceRuby::ExceptionReader::_read(Ice::InputStream* is)
+{
+    is->startException();
+
+    const_cast<VALUE&>(_ex) = _info->unmarshal(is);
+    rb_gc_register_address(&_ex);
+}
+
+bool
+IceRuby::ExceptionReader::_usesClasses() const
+{
+    return _info->usesClasses;
+}
+
+VALUE
+IceRuby::ExceptionReader::getException() const { return _ex; }
+
+extern "C" VALUE
+IceRuby_defineEnum(VALUE /*self*/, VALUE id, VALUE type, VALUE enumerators)
+{
+    ICE_RUBY_TRY
+    {
+        EnumInfoPtr info = make_shared<EnumInfo>(id, type, enumerators);
+        return createType(info);
+    }
+    ICE_RUBY_CATCH
+    return Qnil;
+}
+
+extern "C" VALUE
+IceRuby_defineStruct(VALUE /*self*/, VALUE id, VALUE type, VALUE members)
+{
+    ICE_RUBY_TRY
+    {
+        StructInfoPtr info = make_shared<StructInfo>(id, type, members);
+        return createType(info);
+    }
+    ICE_RUBY_CATCH
+    return Qnil;
+}
+
+extern "C" VALUE
+IceRuby_defineSequence(VALUE /*self*/, VALUE id, VALUE elementType)
+{
+    ICE_RUBY_TRY
+    {
+        SequenceInfoPtr info = make_shared<SequenceInfo>(id, elementType);
+        return createType(info);
+    }
+    ICE_RUBY_CATCH
+    return Qnil;
+}
+
+extern "C" VALUE
+IceRuby_defineDictionary(VALUE /*self*/, VALUE id, VALUE keyType, VALUE valueType)
+{
+    ICE_RUBY_TRY
+    {
+        DictionaryInfoPtr info = make_shared<DictionaryInfo>(id, keyType, valueType);
+        return createType(info);
+    }
+    ICE_RUBY_CATCH
+    return Qnil;
+}
+
+extern "C" VALUE
+IceRuby_declareProxy(VALUE /*self*/, VALUE id)
+{
+    ICE_RUBY_TRY
+    {
+        string proxyId = getString(id);
+        proxyId += "Prx";
+
+        ProxyInfoPtr info = lookupProxyInfo(proxyId);
+        if (!info)
+        {
+            info = ProxyInfo::create(id);
+            addProxyInfo(proxyId, info);
+        }
+
+        return info->typeObj;
+    }
+    ICE_RUBY_CATCH
+    return Qnil;
+}
+
+extern "C" VALUE
+IceRuby_declareClass(VALUE /*self*/, VALUE id)
+{
+    ICE_RUBY_TRY
+    {
+        string idstr = getString(id);
+        ClassInfoPtr info = lookupClassInfo(idstr);
+        if (!info)
+        {
+            info = ClassInfo::create(id);
+            addClassInfo(idstr, info);
+        }
+
+        return info->typeObj;
+    }
+    ICE_RUBY_CATCH
+    return Qnil;
+}
+
+extern "C" VALUE
+IceRuby_defineException(VALUE /*self*/, VALUE id, VALUE type, VALUE base, VALUE members)
+{
+    ICE_RUBY_TRY
+    {
+        ExceptionInfoPtr info = make_shared<ExceptionInfo>();
+        info->id = getString(id);
+
+        if (!NIL_P(base))
+        {
+            info->base = dynamic_pointer_cast<ExceptionInfo>(getException(base));
+            assert(info->base);
+        }
+
+        convertDataMembers(members, info->members, info->optionalMembers, true);
+
+        info->usesClasses = false;
+
+        //
+        // Only examine the required members to see if any use classes.
+        //
+        for (const auto& dm : info->members)
+        {
+            if (!info->usesClasses)
+            {
+                info->usesClasses = dm->type->usesClasses();
+            }
+        }
+
+        info->rubyClass = type;
+
+        addExceptionInfo(info->id, info);
+
+        return createException(info);
+    }
+    ICE_RUBY_CATCH
+    return Qnil;
+}
+
+extern "C" VALUE
+IceRuby_TypeInfo_defineProxy(VALUE self, VALUE type, VALUE base, VALUE interfaces)
+{
+    ICE_RUBY_TRY
+    {
+        ProxyInfoPtr info = dynamic_pointer_cast<ProxyInfo>(getType(self));
+        assert(info);
+
+        info->define(type, base, interfaces);
+        rb_define_const(type, "ICE_TYPE", self);
+        rb_define_const(type, "ICE_ID", createString(info->id));
+    }
+    ICE_RUBY_CATCH
+    return Qnil;
+}
+
+extern "C" VALUE
+IceRuby_TypeInfo_defineClass(VALUE self, VALUE type, VALUE compactId, VALUE interface, VALUE base, VALUE members)
+{
+    ICE_RUBY_TRY
+    {
+        ClassInfoPtr info = dynamic_pointer_cast<ClassInfo>(getType(self));
+        assert(info);
+
+        info->define(type, compactId, interface, base, members);
+
+        if (info->compactId != -1)
+        {
+            addClassInfo(std::to_string(info->compactId), info);
+        }
+
+        if (type != Qnil && !info->interface)
+        {
+            rb_define_const(type, "ICE_TYPE", self);
+            rb_define_const(type, "ICE_ID", createString(info->id));
+        }
+    }
+    ICE_RUBY_CATCH
+    return Qnil;
+}
+
+extern "C" VALUE
+IceRuby_stringify(VALUE /*self*/, VALUE obj, VALUE type)
+{
+    ICE_RUBY_TRY
+    {
+        TypeInfoPtr info = getType(type);
+
+        ostringstream ostr;
+        IceInternal::Output out(ostr);
+        PrintObjectHistory history;
+        history.index = 0;
+        info->print(obj, out, &history);
+
+        string str = ostr.str();
+        return createString(str);
+    }
+    ICE_RUBY_CATCH
+    return Qnil;
+}
+
+extern "C" VALUE
+IceRuby_stringifyException(VALUE /*self*/, VALUE exc)
+{
+    ICE_RUBY_TRY
+    {
+        volatile VALUE cls = CLASS_OF(exc);
+        volatile VALUE type = callRuby(rb_const_get, cls, rb_intern("ICE_TYPE"));
+        ExceptionInfoPtr info = getException(type);
+
+        ostringstream ostr;
+        IceInternal::Output out(ostr);
+        info->print(exc, out);
+
+        string str = ostr.str();
+        return createString(str);
+    }
+    ICE_RUBY_CATCH
+    return Qnil;
+}
+
+//
+// lookupClassInfo()
+//
+IceRuby::ClassInfoPtr
+IceRuby::lookupClassInfo(string_view id)
+{
+    ClassInfoMap::iterator p = _classInfoMap.find(id);
+    if (p != _classInfoMap.end())
+    {
+        return p->second;
+    }
+    return 0;
+}
+
+//
+// lookupExceptionInfo()
+//
+IceRuby::ExceptionInfoPtr
+IceRuby::lookupExceptionInfo(string_view id)
+{
+    ExceptionInfoMap::iterator p = _exceptionInfoMap.find(id);
+    if (p != _exceptionInfoMap.end())
+    {
+        return p->second;
+    }
+    return 0;
+}
+
+bool
+IceRuby::initTypes(VALUE iceModule)
+{
+    //
+    // Define a class to represent TypeInfo, and another to represent ExceptionInfo.
+    //
+    _typeInfoClass = rb_define_class_under(iceModule, "Internal_TypeInfo", rb_cObject);
+    rb_undef_alloc_func(_typeInfoClass);
+    _exceptionInfoClass = rb_define_class_under(iceModule, "Internal_ExceptionInfo", rb_cObject);
+    rb_undef_alloc_func(_exceptionInfoClass);
+
+    rb_define_const(iceModule, "T_bool", createType(make_shared<PrimitiveInfo>(PrimitiveInfo::KindBool)));
+    rb_define_const(iceModule, "T_byte", createType(make_shared<PrimitiveInfo>(PrimitiveInfo::KindByte)));
+    rb_define_const(iceModule, "T_short", createType(make_shared<PrimitiveInfo>(PrimitiveInfo::KindShort)));
+    rb_define_const(iceModule, "T_int", createType(make_shared<PrimitiveInfo>(PrimitiveInfo::KindInt)));
+    rb_define_const(iceModule, "T_long", createType(make_shared<PrimitiveInfo>(PrimitiveInfo::KindLong)));
+    rb_define_const(iceModule, "T_float", createType(make_shared<PrimitiveInfo>(PrimitiveInfo::KindFloat)));
+    rb_define_const(iceModule, "T_double", createType(make_shared<PrimitiveInfo>(PrimitiveInfo::KindDouble)));
+    rb_define_const(iceModule, "T_string", createType(make_shared<PrimitiveInfo>(PrimitiveInfo::KindString)));
+
+    rb_define_module_function(iceModule, "__defineEnum", CAST_METHOD(IceRuby_defineEnum), 3);
+    rb_define_module_function(iceModule, "__defineStruct", CAST_METHOD(IceRuby_defineStruct), 3);
+    rb_define_module_function(iceModule, "__defineSequence", CAST_METHOD(IceRuby_defineSequence), 2);
+    rb_define_module_function(iceModule, "__defineDictionary", CAST_METHOD(IceRuby_defineDictionary), 3);
+    rb_define_module_function(iceModule, "__declareProxy", CAST_METHOD(IceRuby_declareProxy), 1);
+    rb_define_module_function(iceModule, "__declareClass", CAST_METHOD(IceRuby_declareClass), 1);
+    rb_define_module_function(iceModule, "__defineException", CAST_METHOD(IceRuby_defineException), 4);
+
+    rb_define_method(_typeInfoClass, "defineClass", CAST_METHOD(IceRuby_TypeInfo_defineClass), 5);
+    rb_define_method(_typeInfoClass, "defineProxy", CAST_METHOD(IceRuby_TypeInfo_defineProxy), 3);
+
+    rb_define_module_function(iceModule, "__stringify", CAST_METHOD(IceRuby_stringify), 2);
+    rb_define_module_function(iceModule, "__stringifyException", CAST_METHOD(IceRuby_stringifyException), 1);
+
+    // Keep Ice::Unset as an alias for nil, for backwards compatibility.
+    rb_define_const(iceModule, "Unset", Qnil);
+
+    return true;
+}
+
+IceRuby::TypeInfoPtr
+IceRuby::getType(VALUE obj)
+{
+    assert(TYPE(obj) == T_DATA);
+    assert(rb_obj_is_instance_of(obj, _typeInfoClass) == Qtrue);
+    TypeInfoPtr* p = reinterpret_cast<TypeInfoPtr*>(DATA_PTR(obj));
+    return *p;
+}
+
+extern "C" void
+IceRuby_TypeInfo_free(void* p)
+{
+    delete static_cast<TypeInfoPtr*>(p);
+}
+
+static const rb_data_type_t IceRuby_TypeInfoType = {
+    .wrap_struct_name = "Ice::TypeInfo",
+    .function =
+        {
+            .dfree = IceRuby_TypeInfo_free,
+        },
+    .flags = RUBY_TYPED_FREE_IMMEDIATELY,
+};
+
+VALUE
+IceRuby::createType(const TypeInfoPtr& info)
+{
+    return TypedData_Wrap_Struct(_typeInfoClass, &IceRuby_TypeInfoType, new TypeInfoPtr(info));
+}
+
+IceRuby::ExceptionInfoPtr
+IceRuby::getException(VALUE obj)
+{
+    assert(TYPE(obj) == T_DATA);
+    assert(rb_obj_is_instance_of(obj, _exceptionInfoClass) == Qtrue);
+    ExceptionInfoPtr* p = reinterpret_cast<ExceptionInfoPtr*>(DATA_PTR(obj));
+    return *p;
+}
+
+extern "C" void
+IceRuby_ExceptionInfo_free(void* p)
+{
+    delete static_cast<ExceptionInfoPtr*>(p);
+}
+
+static const rb_data_type_t IceRuby_ExceptionInfoType = {
+    .wrap_struct_name = "Ice::ExceptionInfo",
+    .function =
+        {
+            .dfree = IceRuby_ExceptionInfo_free,
+        },
+    .flags = RUBY_TYPED_FREE_IMMEDIATELY,
+};
+
+VALUE
+IceRuby::createException(const ExceptionInfoPtr& info)
+{
+    return TypedData_Wrap_Struct(_exceptionInfoClass, &IceRuby_ExceptionInfoType, new ExceptionInfoPtr(info));
+}