testReflect.d

import core.reflect.reflect;
import core.reflect.dscope;
import core.internal.string : unsignedToTempString;
import core.stdc.stdio;
import std.stdio;

import Iobject = object;

pragma(msg, (const ClassDeclaration cd) {
    string result;
    result ~= "ClassDeclaration {\n";
    result ~= "  name: " ~ cd.name ~ "\n";

    result ~= "  location:\n";
    result ~= "    {" ~ cd.location.filename ~ ":" ~ unsignedToTempString(cd.location.line) ~ "}\n";
    result ~= "  fields: {\n";
    ClassDeclaration[] baseStack;

    for(auto base = cast()cd.base; base; base = base.base)
    {
        baseStack ~= base;
    }

    foreach_reverse(base;baseStack)
    {
        result ~= "//fields of: " ~ base.name ~ "\n";
        foreach(f;base.fields)
        {
            result ~= "    " ~ f.type.identifier ~" " ~ f.name ~
                 " {" ~ unsignedToTempString(f.offset) ~ "}" ~ ";\n";
        }
    }
    result ~= "//fields of: " ~ cd.name ~ "\n";
    foreach(f;cd.fields)
    {
            result ~= "    " ~ f.type.identifier ~" " ~ f.name ~
                 "// at offset {" ~ unsignedToTempString(f.offset) ~ "}" ~ ";\n";
    }
    result ~= "  }\n";

    result ~= "}\n";
    return result;
} (cast(immutable ClassDeclaration) nodeFromName("StructDeclaration", ReflectFlags.NoParent | ReflectFlags.NoFunctionbody)));