如何在vs (visual studio)调试环境下查看lua的调用栈、变量信息

编辑C:/Program Files/Microsoft Visual Studio 8/Common7/Packages/Debugger/autoexp.dat文件，

在文件最后[hresult]之上的空白插入以下代码，就可以在 visualstudio调试的时候看到lua的调用栈、变量信息

lua_State {

preview (

#(

"thread top=", [$c.top-$c.base, i]

)

)

children (

#(

[raw members]: [$c,!],

globals: [$c.l_gt],

registry: [$c.l_G->l_registry],

stack size: [$c.top-$c.base, i],

stack:#array (

expr: $c.base[$i],

size: $c.top - $c.base,

base: 1

),

callStack Size: $e.ci-$e.base_ci,

callStack:

#array (

expr: $e.ci[-$i],

size: $e.ci-$e.base_ci,

)

)

)

}

Node {

preview (

#( $c.i_key.tvk, " = ", $c.i_val )

)

children (

#(

key: $c.i_key.tvk,

val: $c.i_val,

#if( $c.i_key.nk.next != 0 ) (

#( next: $c.i_key.nk.next )

)

)

)

}

lua_TValue {

children (

#switch($c.tt)

#case 2 ( ; LUA_TLIGHTUSERDATA

ptr: #((const char*)($c.value.p))

)

#case 5 ( ; LUA_TTABLE

#(

[raw]: [$c,!],

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 part: $e )

)

)

#case 6 ( ; LUA_TFUNCTION

#if ($c.value.gc->cl.c.isC) (

#(

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 (

#($c.value.gc->cl.l)

)

)

#case 7 ( ; LUA_TUSERDATA

#(

#array (

expr: $e.value.gc->u.uv.metatable,

size: $e.value.gc->u.uv.metatable != 0,

): #( metatable: $e ),

env: $c.value.gc->u.uv.env,

ptr: #((const char*)((&$c.value.gc->u)+1)),

size: $c.value.gc->u.uv.len

)

)

#case 8 ( #($c.value.gc->th) ) ; LUA_TTHREAD

)

preview (

#switch($c.tt)

#case 0 ( "nil" ) ; LUA_TNIL

#case 1 (

#if ($c.value.b == 0) (

"false"

) #else (

"true"

)

)

#case 2 ( ; LUA_TLIGHTUSERDATA

#($c.value.p, " lightuserdata") )

#case 3 ( ; LUA_TNUMBER

#("#", $c.value.n) )

#case 4 ( ; LUA_TRING

#( $c.value.gc->ts) )

#case 5 ( ; LUA_TTABLE

#( "table" )

)

; #case 6 ( #($c.value.gc->cl) ) ; LUA_TFUNCTION

#case 6 ( ; LUA_TFUNCTION

#if ($c.value.gc->cl.c.isC) (

#($c.value.gc->cl)

) #else (

#( [((const char *) (&($e.value.gc->cl.l.p->source->tsv)+1)),sb],"(" ,*($e.value.gc->cl.l.p->lineinfo),")" )

)

)

#case 7 ( #($c.value.gc->u) ) ; LUA_TUSERDATA

#case 8 ( #($c.value.gc->th) ) ; LUA_TTHREAD

#default ( "empty" )

)

)

}

Udata {

preview (

#( "userdata size=", $c.uv.len, " ptr=", #((void*)((&$c)+1)) )

)

}

CClosure {

preview (

$c.f

)

}

LClosure {

preview (

#([(const char *) (&($e.p->source->tsv)+1),sb] ,"(",*($e.p->lineinfo),")" )

)

}

Closure {

preview (

#if ($e.c.isC) ( #($e.c) )

#else ( #($e.value.gc->cl.l) )

)

}

Table {

children (

#(

[raw]: [$c,!],

[array size]: $c.sizearray,

#array (

expr: $e.metatable,

size: $e.metatable != 0,

): #( metatable: $e ),

#array (

expr: $c.array[$i],

size: $c.sizearray,

base: 1

),

#array (

expr: #( $c.node[$i], 2 ),

size: (1<<$c.lsizenode),

base: 1

): #( key: $e )

)

)

preview (

#( "table" )

)

}

TString {

preview (

#("'", [(const char *) (&($e.tsv)+1),sb] )

)

}

CallInfo {

preview (

#( $e.func, ",",$e.func->value.gc->cl.l.p->lineinfo[$e.savedpc -$e.func->value.gc->cl.l.p->code-1] )

)

}