在 Visual Studio 2008 中开发 lua 的调试技巧

Visual Studio 有个好用的功能, 可以自定义调试时数据结构的可视化, 利用这个, 可以从 lua_State 结构中获得并显示信息

 

首先, 将下面代码加到 C:/Program Files/Microsoft Visual Studio 9/Common7/Packages/Debugger/autoexp.dat 文件中, 可以放在最后的 [hresult] 段之前(注意备份)

 

;------------------------------------------------------------------------------ ; lua ;------------------------------------------------------------------------------ lua_State { preview ( #( "thread top=", $c.top - $c.base ) ) children ( #( ;[raw members]: [$c,!], globals: [$c.l_gt], registry: [$c.l_G->l_registry], #array ( expr: $e.ci->func, size: $e.ci->func->tt != 0, ) : #( call: $e ), stack size: [$c.top-$c.base, i], #array ( expr: $c.base[$i], size: $c.top - $c.base, base: 1 ) ) ) } Node { preview ( #if ($c.i_key.tvk.tt) ( #( $c.i_key.tvk, " = ", $c.i_val ) ) #else ( "" ) ) children ( #if ($c.i_key.tvk.tt) ( #( key: $c.i_key.tvk, val: $c.i_val, #if( $c.i_key.nk.next != 0 ) ( #( next: $c.i_key.nk.next ) ) ) ) #else ( #array(expr: 0, size: 0) ) ) } TString { preview ( #( [&($c.tsv)+1, s] ) ) } Table { preview ( "table" ) children ( #( #array ( expr: $e.metatable, size: $e.metatable != 0, ): #( metatable: $e ), array size: $c.sizearray, #array ( expr: $c.array[$i], size: $c.sizearray, base: 1 ), #array ( expr: ($c.node[$i], 2), size: (1<<$c.lsizenode), base: 1 ): #( hash: $e ) ) ) } CClosure { preview ( #( "c function ", $c.f ) ) } LClosure { preview ( #( "lua function" ) ) } Closure { preview ( #if ($c.c.isC) ( #( "c function ", $c.c.f ) ) #else ( #( "lua function" ) ) ) } Udata { preview ( #( "userdata ", [(&$c)+1, x], " size=", $c.uv.len ) ) children ( #( #( ptr: [(&$c)+1, x] ), #( size: $c.uv.len ), #( environment: $c.uv.env ), #array ( expr: $e.uv.metatable, size: $e.uv.metatable != 0, ): #( metatable: $e ) ) ) } lua_TValue { preview ( #switch($c.tt) #case 0 ( "nil" ) ; LUA_TNIL #case 1 ; LUA_BOOLEAN ( #if ($c.value.b == 0) ( "false" ) #else ( "true" ) ) #case 2 ; LUA_TLIGHTUSERDATA ( #( "lightuserdata ", [$c.value.p, x] ) ) #case 3 ( #($c.value.n) ) ; LUA_TNUMBER #case 4 ( #([&($c.value.gc->ts.tsv)+1, s]) ) ; LUA_TSTRING #case 5 ( #($c.value.gc->h) ) ; LUA_TTABLE #case 6 ; LUA_TFUNCTION ( #if ($c.value.gc->cl.c.isC) ( #( "c function ", $c.value.gc->cl.c.f ) ) #else ( #( "lua function" ) ) ) #case 7 ; LUA_TUSERDATA ( #( "userdata ", [(&$c.value.gc->u)+1, x], " size=", $c.value.gc->u.uv.len ) ) #case 8 ( #($c.value.gc->th) ) ; LUA_TTHREAD #default ( "INVALID" ) ) children ( #switch($c.tt) #case 5 ; LUA_TTABLE ( #( array size: $c.value.gc->h.sizearray, #array ( expr: $e.value.gc->h.metatable, size: $e.value.gc->h.metatable != 0, ): #( metatable: $e ), #array ( expr: $c.value.gc->h.array[$i], size: $c.value.gc->h.sizearray, base: 1 ), #array ( expr: #($c.value.gc->h.node[$i], 2), size: (1<<$c.value.gc->h.lsizenode), base: 1 ): #( hash: $e ) ) ) #case 6 ; LUA_TFUNCTION ( #if ($c.value.gc->cl.c.isC) ( #( #( ptr: $c.value.gc->cl.c.f ), #( env: $c.value.gc->cl.c.env ), #array ( expr: $e.value.gc->cl.c.upvalue[$i], size: $e.value.gc->cl.c.nupvalues, ): #( upvalues: $e ) ) ) #else ( #array( expr: 0, size: 0 ) ) ) #case 7 ; LUA_TUSERDATA ( #( #( ptr: [(void*)((&$c.value.gc->u)+1), x] ), #( size: $c.value.gc->u.uv.len ), #( env: $c.value.gc->u.uv.env ), #array ( expr: $e.value.gc->u.uv.metatable, size: $e.value.gc->u.uv.metatable != 0, ): #( metatable: $e ) ) ) #case 8 ; LUA_TTHREAD ( #( $c.value.gc->th ) ) #default ( #array( expr: 0, size: 0 ) ) ) }

 

因为 lua_State 的结构是不可见的, 所以还需要将 lua 源码中定义相关数据结构的头文件放到你的工程中, 具体需要下列文件:

    llimits.h

    lmem.h

    lobject.h

    lstate.h

    ltm.h

    lua.h

    luaconf.h

    lzio.h

可以放到一个文件夹如 lua_details 下面, 并在你的任何一个源文件中包含 lua_details/lstate.h 编译一次.

 

现在加如断点开始调试, 是不是可以看到 lua_State 的调试信息了?

 

参考:

http://lua-users.org/lists/lua-l/2006-10/msg00491.html