如何在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] )
)
}