Comparison

util-src/signal.c @ 6620:50eaefeec013

util-src/*.c: Per convention call luaL_error() as argument to return
author Florian Zeitz <florob@babelmonkeys.de>
date Fri, 03 Apr 2015 20:30:14 +0200
parent 6615:8e4572a642cb
child 6789:6b180e77c97a
comparison
equal deleted inserted replaced
6619:78d1706982b2 6620:50eaefeec013
235 lua_gettable(L, LUA_REGISTRYINDEX); 235 lua_gettable(L, LUA_REGISTRYINDEX);
236 lua_pushvalue(L, 1); 236 lua_pushvalue(L, 1);
237 lua_gettable(L, -2); 237 lua_gettable(L, -2);
238 238
239 if(!lua_isnumber(L, -1)) { 239 if(!lua_isnumber(L, -1)) {
240 luaL_error(L, "invalid signal string"); 240 return luaL_error(L, "invalid signal string");
241 } 241 }
242 242
243 sig = (int) lua_tonumber(L, -1); 243 sig = (int) lua_tonumber(L, -1);
244 lua_pop(L, 1); /* get rid of number we pushed */ 244 lua_pop(L, 1); /* get rid of number we pushed */
245 } else { 245 } else {
246 luaL_checknumber(L, 1); /* will always error, with good error msg */ 246 luaL_checknumber(L, 1); /* will always error, with good error msg */
247 return luaL_error(L, "unreachable: invalid number was accepted");
247 } 248 }
248 249
249 /* set handler */ 250 /* set handler */
250 if(args == 1 || lua_isnil(L, 2)) { /* clear handler */ 251 if(args == 1 || lua_isnil(L, 2)) { /* clear handler */
251 lua_pushstring(L, LUA_SIGNAL); 252 lua_pushstring(L, LUA_SIGNAL);
311 lua_gettable(L, LUA_REGISTRYINDEX); 312 lua_gettable(L, LUA_REGISTRYINDEX);
312 lua_pushvalue(L, 1); 313 lua_pushvalue(L, 1);
313 lua_gettable(L, -2); 314 lua_gettable(L, -2);
314 315
315 if(!lua_isnumber(L, -1)) { 316 if(!lua_isnumber(L, -1)) {
316 luaL_error(L, "invalid signal string"); 317 return luaL_error(L, "invalid signal string");
317 } 318 }
318 319
319 ret = (lua_Number) raise((int) lua_tonumber(L, -1)); 320 ret = (lua_Number) raise((int) lua_tonumber(L, -1));
320 lua_pop(L, 1); /* get rid of number we pushed */ 321 lua_pop(L, 1); /* get rid of number we pushed */
321 lua_pushnumber(L, ret); 322 lua_pushnumber(L, ret);
355 lua_gettable(L, LUA_REGISTRYINDEX); 356 lua_gettable(L, LUA_REGISTRYINDEX);
356 lua_pushvalue(L, 2); 357 lua_pushvalue(L, 2);
357 lua_gettable(L, -2); 358 lua_gettable(L, -2);
358 359
359 if(!lua_isnumber(L, -1)) { 360 if(!lua_isnumber(L, -1)) {
360 luaL_error(L, "invalid signal string"); 361 return luaL_error(L, "invalid signal string");
361 } 362 }
362 363
363 ret = (lua_Number) kill((int) lua_tonumber(L, 1), 364 ret = (lua_Number) kill((int) lua_tonumber(L, 1),
364 (int) lua_tonumber(L, -1)); 365 (int) lua_tonumber(L, -1));
365 lua_pop(L, 1); /* get rid of number we pushed */ 366 lua_pop(L, 1); /* get rid of number we pushed */