Ticket #865: testapp.d

import tango.sys.Process;
import tango.io.model.IBuffer;
import tango.stdc.stdio;


void main()
{
    auto foo = new Process( "echo blah", null );
    foo.execute;
    auto obj = foo.stdout;
    auto ci  = obj.classinfo;

    printf( "\nSupported interfaces:\n\n" );
    do
    {
        for( int i = 0; i < ci.interfaces.length; ++i )
        {
            auto p = ci.interfaces[i];
            if( p != p.init )
                printf( "%.*s\n", p.classinfo.name );
            else
                printf( "{null}\n" );
        }
        ci = ci.base;
    } while( ci );
    printf( "\nAttempted cast:\n\n" );
    d_dynamic_cast( obj, Buffered.classinfo );
}


Object d_dynamic_cast(Object o, ClassInfo c)
{   ClassInfo oc;
    size_t offset = 0;

    printf("_d_dynamic_cast(o = %p, c = '%.*s')\n", o, c.name);

    if (o)
    {
        oc = o.classinfo;
        if (d_isbaseof2(oc, c, offset))
        {
            printf("\toffset = %d\n", offset);
            o = cast(Object)(cast(void*)o + offset);
        }
        else
            o = null;
    }
    printf("\tresult = %p\n", o);
    return o;
}


int d_isbaseof2(ClassInfo oc, ClassInfo c, inout size_t offset)
{   int i;

    if (oc is c)
        return 1;
    do
    {
        printf( "oc: %.*s\n", oc.name );

        if (oc.base is c)
            return 1;
        for (i = 0; i < oc.interfaces.length; i++)
        {
            ClassInfo ic;

            ic = oc.interfaces[i].classinfo;
            if (ic is c)
            {   offset = oc.interfaces[i].offset;
                return 1;
            }
        }
        for (i = 0; i < oc.interfaces.length; i++)
        {
            ClassInfo ic;

            ic = oc.interfaces[i].classinfo;
            if (d_isbaseof2(ic, c, offset))
            {   offset = oc.interfaces[i].offset;
                return 1;
            }
        }
        oc = oc.base;
    } while (oc);
    return 0;
}