home | create | search | help
  1. ;
  2. ; Lua watch information
  3. ;
  4. lua_State {
  5.    preview (
  6.       #(
  7.          \"thread top=\", [$c.top-$c.base, i]
  8.       )
  9.    )
  10.  
  11.    children (
  12.       #(
  13.          [raw members]: [$c,!],
  14.          stack size: [$c.top-$c.base, i],
  15.          globals: [$c.l_gt],
  16.          registry: [$c.l_G->l_registry],
  17.  
  18.          #array (
  19.             expr: $e.ci->func,
  20.             size: $e.ci->func->tt != 0,
  21.          ): #( call: $e ),
  22.  
  23.          #array (
  24.             expr: $c.base[$i],
  25.             size: $c.top - $c.base,
  26.             base: 1
  27.          )
  28.       )
  29.    )
  30.    
  31. }
  32.  
  33. Node {
  34.    preview (
  35.       #( $c.i_key.tvk, \" = \", $c.i_val )
  36.    )
  37.    children (
  38.       #(
  39.          key: $c.i_key.tvk,
  40.          val: $c.i_val,
  41.          #if( $c.i_key.nk.next != 0 ) (
  42.             #( next: $c.i_key.nk.next )
  43.          )
  44.       )
  45.    )
  46. }
  47.  
  48. lua_TValue {
  49.    children (
  50.       #switch($c.tt)
  51.       #case 2 (                     ; LUA_TLIGHTUSERDATA
  52.          ptr: #((const char*)($c.value.p))
  53.       )
  54.       #case 5 (                      ; LUA_TTABLE
  55.          #(
  56.             [raw]: [$c,!],
  57.             array size: $c.value.gc->h.sizearray,
  58.             #array (
  59.                expr: $e.value.gc->h.metatable,
  60.                size: $e.value.gc->h.metatable != 0,
  61.             ): #( metatable: $e ),
  62.            
  63.             #array (
  64.                expr: $c.value.gc->h.array[$i],
  65.                size: $c.value.gc->h.sizearray,
  66.                base: 1
  67.             ),
  68.             #array (
  69.                expr: #( $c.value.gc->h.node[$i], 2 ),
  70.                size: (1<<$c.value.gc->h.lsizenode),
  71.                base: 1
  72.             ): #( hash part: $e )
  73.          )   
  74.       )
  75.       #case 6 (                     ; LUA_TFUNCTION
  76.          #if ($c.value.gc->cl.c.isC) (
  77.             #(
  78.                env: $c.value.gc->cl.c.env,
  79.                #array (
  80.                   expr: $e.value.gc->cl.c.upvalue[$i],
  81.                   size: $e.value.gc->cl.c.nupvalues,
  82.                ): #( upvalues: $e )
  83.             )
  84.          ) #else (
  85.             #($c.value.gc->cl.l)
  86.          )
  87.          
  88.       )
  89.       #case 7 (                     ; LUA_TUSERDATA
  90.          #(
  91.             #array (
  92.                expr: $e.value.gc->u.uv.metatable,
  93.                size: $e.value.gc->u.uv.metatable != 0,
  94.             ): #( metatable: $e ),
  95.             env: $c.value.gc->u.uv.env,
  96.             ptr: #((const char*)((&$c.value.gc->u)+1)),
  97.             size: $c.value.gc->u.uv.len
  98.          )
  99.       )
  100.       #case 8 ( #($c.value.gc->th) )      ; LUA_TTHREAD
  101.      
  102.    )
  103.  
  104.    preview (
  105.       #switch($c.tt)
  106.       #case 0 ( \"nil\" )               ; LUA_TNIL
  107.       #case 1 (
  108.          #if ($c.value.b == 0) (
  109.             \"false\"
  110.          ) #else (
  111.             \"true\"
  112.          )
  113.       )
  114.       #case 2 (                     ; LUA_TLIGHTUSERDATA
  115.         #($c.value.p, \" lightuserdata\") )
  116.       #case 3 (                     ; LUA_TNUMBER
  117.         #(\"number=\", $c.value.n) )
  118.       #case 4 (                     ; LUA_TSTRING
  119.         #( $c.value.gc->ts) )
  120.       #case 5 (    ; LUA_TTABLE
  121.          #( \"table\" )
  122.       )
  123.      
  124.       #case 6 ( #($c.value.gc->cl) )      ; LUA_TFUNCTION
  125.       #case 7 ( #($c.value.gc->u) )      ; LUA_TUSERDATA
  126.       #case 8 ( #($c.value.gc->th) )      ; LUA_TTHREAD
  127.       #default ( \"empty\" )
  128.       )
  129.    )
  130. }
  131.  
  132. Udata {
  133.    preview (
  134.       #( \"userdata size=\", $c.uv.len, \" ptr=\", #((void*)((&$c)+1)) )
  135.    )
  136. }
  137.  
  138. CClosure {
  139.    preview (
  140.       $c.f
  141.    )
  142. }
  143. LClosure {
  144.    preview (
  145.       \"Lua function\"
  146.    )
  147. }
  148.  
  149. Closure {
  150.    preview (
  151.       #if ($c.c.isC) ( #($c.c) )
  152.       #else ( #($c.value.gc->cl.l) )
  153.    )
  154. }
  155.  
  156. Table {
  157.    children (
  158.          #(
  159.             [raw]: [$c,!],
  160.             [array size]: $c.sizearray,
  161.             #array (
  162.                expr: $e.metatable,
  163.                size: $e.metatable != 0,
  164.             ): #( metatable: $e ),
  165.            
  166.             #array (
  167.                expr: $c.array[$i],
  168.                size: $c.sizearray,
  169.                base: 1
  170.             ),
  171.             #array (
  172.                expr: #( $c.node[$i], 2 ),
  173.                size: (1<<$c.lsizenode),
  174.                base: 1
  175.             ): #( key: $e )
  176.          )   
  177.    )
  178.  
  179.    preview (
  180.       #( \"table\" )
  181.    )
  182. }
  183.  
  184. TString {
  185.    preview (
  186.       #( (const char *) (&($c.tsv)+1) )
  187.    )
  188. }
  189.  
  190.  
Subscribe to this code! Get Firefox! Valid XHTML Valid CSS Powered By GeSHi 647 pieces of code saved