Function print_class

ogsr_engine/xrGame/script_engine_help.cpp:154–260

}

static void print_class(lua_State* L, luabind::detail::class_rep* crep)
{
    luabind::internal_string S;
    // print class and bases
    {
        S = (crep->get_class_type() != luabind::detail::class_rep::cpp_class) ? "LUA class " : "C++ class ";
        S.append(crep->name());
        typedef luabind::internal_vector<luabind::detail::class_rep::base_info> BASES;
        const BASES& bases = crep->bases();
        BASES::const_iterator I = bases.begin(), B = I;
        BASES::const_iterator E = bases.end();
        if (B != E)
            S.append(" : ");
        for (; I != E; ++I)
        {
            if (I != B)
                S.append(",");
            S.append((*I).base->name());
        }
        FastMsg("%s {", S.c_str());
    }
    // print class constants
    {
        const luabind::detail::class_rep::STATIC_CONSTANTS& constants = crep->static_constants();
        luabind::detail::class_rep::STATIC_CONSTANTS::const_iterator I = constants.begin();
        luabind::detail::class_rep::STATIC_CONSTANTS::const_iterator E = constants.end();
        for (; I != E; ++I)
            FastMsg("    const %s = %d;", (*I).first, (*I).second);
        if (!constants.empty())
            FastMsg("    ");
    }
    // print class properties
    using namespace luabind::detail;
    {
        typedef luabind::internal_map<const char*, luabind::detail::class_rep::callback, luabind::detail::ltstr> PROPERTIES;
        const PROPERTIES& properties = crep->properties();
        const PROPERTIES& properties_rw = crep->properties_rw();
        PROPERTIES::const_iterator I = properties.begin();
        PROPERTIES::const_iterator E = properties.end();
        for (; I != E; ++I)
        {
            LPCSTR pname = (*I).first;
            PROPERTIES::const_iterator X = properties_rw.find(pname);

            luabind::internal_string cname = "";
            if (X != properties_rw.end())
            {
                luabind::detail::class_rep::callback cb = properties_rw.at(pname);
                if ((size_t)cb.sig > 0x1000u)
                    cb.sig(L, cname);

                FastMsg(" property\t\t\t%-25s%s;", pname, extract_last_params(cname).c_str());
            }
            else
                FastMsg(" property\t\t\t%s;", pname);
        }
        if (!properties.empty())
            FastMsg("    ");