luaeventloop/lel_debug.c

   1 #include <stdio.h>
   2 #include <lua.h>
   3 #include <lauxlib.h>
   4
   5 #include "lel_debug.h"
   6
   7 void
   8 l_stack_dump (const char *prefix, lua_State *l)
   9 {
  10         int i, rc;
  11         int top = lua_gettop(l);
  12         char buf[1024], *p;
  13         char *e = buf+sizeof(buf);
  14
  15         fflush (stdout);
  16         fprintf (stderr, "%s--- stack ---\n", prefix);
  17
  18         p = buf;
  19         *buf = 0;
  20         for (i = 1; i <= top; i++) {  /* repeat for each level */
  21                 int t = lua_type(l, i);
  22                 switch (t) {
  23
  24                 case LUA_TNIL: /* nothing */
  25                         p += rc = snprintf (p, e - p, "  NIL");
  26                         if (rc<0) break;
  27                         break;
  28
  29                 case LUA_TSTRING:  /* strings */
  30                         p += rc = snprintf (p, e - p, "  `%s'",
  31                                         lua_tostring(l, i));
  32                         if (rc<0) break;
  33                         break;
  34
  35                 case LUA_TBOOLEAN:  /* booleans */
  36                         p += rc = snprintf (p, e-p,
  37                                         lua_toboolean(l, i) ? "true" : "false");
  38                         if (rc<0) break;
  39                         break;
  40
  41                 case LUA_TNUMBER:  /* numbers */
  42                         p += rc = snprintf (p, e-p, "  %g",
  43                                         lua_tonumber(l, i));
  44                         if (rc<0) break;
  45                         break;
  46
  47                 case LUA_TTABLE:   /* table */
  48                         p += rc = snprintf (p, e-p, "  table");
  49                         if (rc<0) break;
  50                         break;
  51
  52                 default:  /* other values */
  53                         p += rc = snprintf (p, e-p, "  %s",
  54                                         lua_typename(l, t));
  55                         if (rc<0) break;
  56                         break;
  57
  58                 }
  59         }
  60         if (p!=buf)
  61                 fprintf (stderr, "%s%s\n", prefix, buf);  /* end the listing */
  62
  63         fprintf (stderr, "%s-------------\n", prefix);
  64 }
  65