blob: e1952fc9056704220e7a03ad00d803dcfd51eb45 (plain)

ofs	hex dump	ascii
0000	ff d8 ff e0 00 10 4a 46 49 46 00 01 01 01 00 48 00 48 00 00 ff fe 00 3b 43 72 65 61 74 6f 72 3a	......JFIF.....H.H.....;Creator:
0020	20 50 6f 6c 79 56 69 65 77 ae 20 56 65 72 73 69 6f 6e 20 33 2e 35 35 20 62 79 20 50 6f 6c 79 62	.PolyView..Version.3.55.by.Polyb
0040	79 74 65 73 0d 0a 51 75 61 6c 69 74 79 3a 20 36 30 ff db 00 43 00 08 06 06 07 06 05 08 07 07 07	ytes..Quality:.60...C...........
0060	09 09 08 0a 0c 14 0d 0c 0b 0b 0c 19 12 13 0f 14 1d 1a 1f 1e 1d 1a 1c 1c 20 24 2e 27 20 22 2c 23	.........................$.'.",#
0080	1c 1c 28 37 29 2c 30 31 34 34 34 1f 27 39 3d 38 32 3c 2e 33 34 32 ff db 00 43 01 09 09 09 0c 0b	..(7),01444.'9=82<.342...C......
00a0	0c 18 0d 0d 18 32 21 1c 21 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32	.....2!.!22222222222222222222222
00c0	32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 ff c0 00 11 08	222222222222222222222222222.....
00e0	00 52 00 c8 03 01 11 00 02 11 01 03 11 01 ff c4 00 1c 00 00 01 05 01 01 01 00 00 00 00 00 00 00	.R..............................
0100	00 00 00 01 00 02 04 05 06 03 08 07 ff c4 00 46 10 00 02 01 03 03 02 03 05 02 0a 07 06 07 00 00	...............F................
0120	00 01 02 03 00 04 11 05 12 21 31 41 06 13 51 14 22 61 71 91 81 a1 15 23 24 25 32 53 93 b1 b2 d1	.........!1A..Q."aq....#$%2S....
0140	07 16 42 43 52 62 92 33 34 35 54 72 73 44 55 63 a2 c1 f0 f1 ff c4 00 19 01 00 03 01 01 01 00 00	..BCRb.345TrsDUc................
0160	00 00 00 00 00 00 00 00 00 00 01 02 03 04 05 ff c4 00 2b 11 00 02 02 01 03 04 02 01 04 02 03 00	..................+.............
0180	00 00 00 00 00 01 02 11 21 03 12 31 13 41 51 91 22 61 14 32 52 71 f0 a1 b1 42 e1 f1 ff da 00 0c	........!..1.AQ."a.2Rq...B......
01a0	03 01 00 02 11 03 11 00 3f 00 f8 16 da 56 07 44 b7 79 0e 11 19 be 43 34 9b a0 c1 d3 d8 67 3f dc	........?....V.D.y....C4.....g?.
01c0	c9 fe 93 4b 72 f2 16 82 34 fb 83 fd c4 bf e9 34 6e 5e 42 d0 8e 9f 70 07 30 c8 3e 6a 45 3d c1 61	...Kr...4......4n^B...p.0.>jE=.a
01e0	fc 1d 72 46 44 12 e3 fe 83 4b 72 00 1d 3e e0 0c 98 24 03 d7 69 a7 b9 05 80 58 cc 7f bb 6f a5 1b	..rFD....Kr..>...$..i....X...o..
0200	82 d0 7d 82 6f d5 37 d2 8d c1 68 3e c1 37 ea 9b e9 46 e1 58 bd 82 6f d5 3f d2 8b 0b 0f e0 e9 cf	..}.o.7...h>.7...F.X..o.?.......
0220	f7 2f f4 a3 70 c4 34 cb 96 fd 1b 79 4f c9 49 a4 e6 bc 80 7f 05 5e 7f ca 4f fb 33 4b 7c 7c 8c 07	./..p.4....yO.I......^..O.3K||..
0240	4b bc 07 1e c7 3f ec cd 1d 48 f9 10 c9 2c a7 8b 89 20 74 3e 8c 31 4d 49 3e 02 d1 cf d9 e4 1d 63	K....?...H...,....t>.1MI>......c
0260	6f a1 a7 60 13 69 30 24 18 5c 11 d4 6d 34 58 ad 0d f2 24 c6 76 36 3d 71 4e c2 c7 9b 1b 90 32 60	o..`.i0$.\..m4X...$.v6=qN.....2`
0280	90 7c d4 8a 5b 90 5a 40 f6 49 bb c6 df 4a 76 82 d0 45 95 c1 56 61 0b 95 5c 02 71 eb 45 a0 b4 21	.|..[.Z@.I...Jv..E..Va..\.q.E..!
02a0	63 72 7a 42 c6 96 f4 4e f8 f9 0f b0 5c fe a5 a8 df 1f 21 d4 8f 93 94 b0 bc 4e 51 d4 ab 0e c6 9a	crzB...N....\.....!......NQ.....
02c0	69 f0 52 69 e5 1d 00 a4 32 e3 42 b8 b8 b4 9a 69 2d a5 68 e4 d8 17 2b d4 82 7a 54 4e 11 9e 24 89	i.Ri....2.B....i-.h...+..zTN..$.
02e0	94 9c 5a 69 97 d7 1a 97 89 6c 40 37 17 37 90 a9 38 05 b1 8c fa 66 b3 fc 7d 2f da 57 57 51 77 0d	..Zi.....l@7.7..8....f..}/.WWQw.
0300	be b3 e2 19 11 da 2b eb a6 89 06 5d 97 90 80 f7 3c 71 47 e3 e9 7e d1 75 b5 7c b0 de 2c f7 72 19	......+....]....<qG..~.u.|..,.r.
0320	6e f5 18 a7 91 54 82 4c dd 40 19 c7 4f 8f d7 34 41 c6 2a a3 1a 14 9c 9e 5c 82 fa f6 a9 04 10 db	n....T.L.@..O..4A.*.....\.......
0340	a5 d5 c4 5b 57 dd 3e 67 1b 08 18 c0 c5 1d 1d 39 36 e9 07 5b 51 2a b6 6c 7f a3 29 af af bc 67 a6	...[W.>g.......96..[Q*.l..)...g.
0360	ad ed d9 b8 b6 7f 33 31 48 77 03 ee 36 32 08 a7 0d 38 29 61 09 6a 4d e1 b3 ef e3 4c b0 03 fd ca	......31Hw..62...8)a.jM....L....
0380	int arg; lua_State *L1 = getthread(L, &arg); lua_Debug ar; if (lua_isnumber(L, arg+2)) { level = (int)lua_tointeger(L, arg+2); lua_pop(L, 1); } else level = (L == L1) ? 1 : 0; /* level 0 may be this own function */ if (lua_gettop(L) == arg) lua_pushliteral(L, ""); else if (!lua_isstring(L, arg+1)) return 1; /* message is not a string */ else lua_pushliteral(L, "\n"); lua_pushliteral(L, "stack traceback:"); while (lua_getstack(L1, level++, &ar)) { if (level > LEVELS1 && firstpart) { /* no more than `LEVELS2' more levels? */ if (!lua_getstack(L1, level+LEVELS2, &ar)) level--; /* keep going */ else { lua_pushliteral(L, "\n\t..."); /* too many levels */ while (lua_getstack(L1, level+LEVELS2, &ar)) /* find last levels */ level++; } firstpart = 0; continue; } lua_pushliteral(L, "\n\t"); lua_getinfo(L1, "Snl", &ar); lua_pushfstring(L, "%s:", ar.short_src); if (ar.currentline > 0) lua_pushfstring(L, "%d:", ar.currentline); if (*ar.namewhat != '\0') /* is there a name? */ lua_pushfstring(L, " in function " LUA_QS, ar.name); else { if (*ar.what == 'm') /* main? */ lua_pushfstring(L, " in main chunk"); else if (*ar.what == 'C' || *ar.what == 't') lua_pushliteral(L, " ?"); /* C function or tail call */ else lua_pushfstring(L, " in function <%s:%d>", ar.short_src, ar.linedefined); } lua_concat(L, lua_gettop(L) - arg); } lua_concat(L, lua_gettop(L) - arg); return 1; } /* lua.c */ static int traceback (lua_State *L) { lua_pushcfunction(L, db_errorfb); lua_pushvalue(L, 1); /* pass error message */ lua_pushinteger(L, 2); /* skip this function and traceback */ lua_call(L, 2, 1); /* call debug.traceback */ return 1; } static int docall (lua_State *L) { int status; int base = lua_gettop(L); /* function index */ lua_pushcfunction(L, traceback); /* push traceback function */ lua_insert(L, base); /* put it under chunk and args */ status = lua_pcall(L, 0, 0, base); lua_remove(L, base); /* remove traceback function */ /* force a complete garbage collection in case of errors */ if (status != 0) lua_gc(L, LUA_GCCOLLECT, 0); return status; } /***************** Plugin Entry Point *****************/ enum plugin_status plugin_start(const void* parameter) { const char* filename; int status; PLUGINLIB_EXIT_INIT if (parameter == NULL) { rb->splash(HZ, "Play a .lua file!"); return PLUGIN_ERROR; } else { filename = (char*) parameter; lua_State *L = luaL_newstate(); rocklua_openlibs(L); status = luaL_loadfile(L, filename); if (!status) { rb->lcd_clear_display(); status = docall(L); } dlmalloc_stats(); if (status) { DEBUGF("%s\n", lua_tostring(L, -1)); rb->splashf(5 * HZ, "%s", lua_tostring(L, -1)); lua_pop(L, 1); } lua_close(L); } return PLUGIN_OK; }