Software `/` code `/` prosody

Annotate

util-src/signal.c @ 13532:9970d333a63f

mod_pubsub: Use error registry This is what util.error was made for! This replaces the custom error stanza builder with common code in util.stanza that knows enough about util.error and namespaced errors. Some awkwardness remains in the way util.pubsub returns conflicting form fields.

author	Kim Alvefur <zash@zash.se>
date	Sun, 27 Oct 2024 15:18:24 +0100
parent	13448:93b4ce0115f0
child	13617:7722a3aa2ff5

rev	line source
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	1 /*
2405 88f73ee1c46f util.signal: Update header comment for new filename Matthew Wild <mwild1@gmail.com> parents: 2343 diff changeset	2 * signal.c -- Signal Handler Library for Lua
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	3 *
2431 c4d32b35fe60 util.signal: Update version in header, and author's email Matthew Wild <mwild1@gmail.com> parents: 2430 diff changeset	4 * Version: 1.000+changes
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	5 *
2431 c4d32b35fe60 util.signal: Update version in header, and author's email Matthew Wild <mwild1@gmail.com> parents: 2430 diff changeset	6 * Copyright (C) 2007 Patrick J. Donnelly (batrick@batbytes.com)
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	7 *
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	8 * This software is distributed under the same license as Lua 5.0:
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	9 *
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	10 * Permission is hereby granted, free of charge, to any person obtaining a
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	11 * copy of this software and associated documentation files (the "Software"),
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	12 * to deal in the Software without restriction, including without limitation
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	13 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	14 * and/or sell copies of the Software, and to permit persons to whom the
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	15 * Software is furnished to do so, subject to the following conditions:
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	16 *
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	17 * The above copyright notice and this permission notice shall be included
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	18 * in all copies or substantial portions of the Software.
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	19 *
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	20 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	21 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	22 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	23 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	24 * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	25 * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	26 * OTHER DEALINGS IN THE SOFTWARE.
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	27 */
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	28
9150 c1d5f52274cf net, pposix, signal: Check for redefined defines, fix warnings. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 8420 diff changeset	29 #ifndef _GNU_SOURCE
7973 703f7f45feb4 util.signal: Enable all GNU features, _DEFAULT_SOURCE doesn't have the desired effect before glibc 2.19 Kim Alvefur <zash@zash.se> parents: 7971 diff changeset	30 #define _GNU_SOURCE
9150 c1d5f52274cf net, pposix, signal: Check for redefined defines, fix warnings. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 8420 diff changeset	31 #endif
7931 b619b85e01aa util.pposix, configure: Move _GNU_SOURCE macro into source files Kim Alvefur <zash@zash.se> parents: 7889 diff changeset	32
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	33 #include <signal.h>
2459 66f60e69567b util.signal: Using stdlib.h instead of malloc.h. Tobias Markmann <tm@ayena.de> parents: 2432 diff changeset	34 #include <stdlib.h>
13439 1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	35 #ifdef __linux__
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	36 #include <unistd.h>
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	37 #include <sys/signalfd.h>
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	38 #endif
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	39
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	40 #include "lua.h"
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	41 #include "lauxlib.h"
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	42
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	43 #if (LUA_VERSION_NUM < 503)
763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	44 #define lua_isinteger(L, n) lua_isnumber(L, n)
763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	45 #endif
6413 a552f4170aed util-src/.c: Add macro for compiling with Lua 5.2 Kim Alvefur <zash@zash.se>* parents: 6412 diff changeset	46
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	47 #ifndef lsig
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	48
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	49 #define lsig
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	50
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	51 struct lua_signal {
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7818 diff changeset	52 char name; / name of the signal */
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	53 int sig; /* the signal */
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	54 };
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	55
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	56 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	57
8414 7ea3311ca632 util.signal: Use a static array to keep track of pending signals (fixes #1029) Kim Alvefur <zash@zash.se> parents: 7973 diff changeset	58 #define MAX_PENDING_SIGNALS 32
7ea3311ca632 util.signal: Use a static array to keep track of pending signals (fixes #1029) Kim Alvefur <zash@zash.se> parents: 7973 diff changeset	59
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	60 #define LUA_SIGNAL "lua_signal"
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	61
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	62 static const struct lua_signal lua_signals[] = {
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	63 /* ANSI C signals */
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	64 #ifdef SIGABRT
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	65 {"SIGABRT", SIGABRT},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	66 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	67 #ifdef SIGFPE
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	68 {"SIGFPE", SIGFPE},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	69 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	70 #ifdef SIGILL
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	71 {"SIGILL", SIGILL},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	72 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	73 #ifdef SIGINT
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	74 {"SIGINT", SIGINT},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	75 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	76 #ifdef SIGSEGV
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	77 {"SIGSEGV", SIGSEGV},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	78 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	79 #ifdef SIGTERM
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	80 {"SIGTERM", SIGTERM},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	81 #endif
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	82 /* posix signals */
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	83 #ifdef SIGHUP
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	84 {"SIGHUP", SIGHUP},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	85 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	86 #ifdef SIGQUIT
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	87 {"SIGQUIT", SIGQUIT},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	88 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	89 #ifdef SIGTRAP
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	90 {"SIGTRAP", SIGTRAP},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	91 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	92 #ifdef SIGKILL
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	93 {"SIGKILL", SIGKILL},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	94 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	95 #ifdef SIGUSR1
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	96 {"SIGUSR1", SIGUSR1},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	97 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	98 #ifdef SIGUSR2
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	99 {"SIGUSR2", SIGUSR2},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	100 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	101 #ifdef SIGPIPE
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	102 {"SIGPIPE", SIGPIPE},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	103 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	104 #ifdef SIGALRM
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	105 {"SIGALRM", SIGALRM},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	106 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	107 #ifdef SIGCHLD
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	108 {"SIGCHLD", SIGCHLD},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	109 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	110 #ifdef SIGCONT
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	111 {"SIGCONT", SIGCONT},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	112 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	113 #ifdef SIGSTOP
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	114 {"SIGSTOP", SIGSTOP},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	115 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	116 #ifdef SIGTTIN
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	117 {"SIGTTIN", SIGTTIN},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	118 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	119 #ifdef SIGTTOU
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	120 {"SIGTTOU", SIGTTOU},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	121 #endif
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	122 /* some BSD signals */
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	123 #ifdef SIGIOT
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	124 {"SIGIOT", SIGIOT},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	125 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	126 #ifdef SIGBUS
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	127 {"SIGBUS", SIGBUS},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	128 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	129 #ifdef SIGCLD
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	130 {"SIGCLD", SIGCLD},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	131 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	132 #ifdef SIGURG
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	133 {"SIGURG", SIGURG},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	134 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	135 #ifdef SIGXCPU
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	136 {"SIGXCPU", SIGXCPU},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	137 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	138 #ifdef SIGXFSZ
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	139 {"SIGXFSZ", SIGXFSZ},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	140 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	141 #ifdef SIGVTALRM
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	142 {"SIGVTALRM", SIGVTALRM},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	143 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	144 #ifdef SIGPROF
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	145 {"SIGPROF", SIGPROF},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	146 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	147 #ifdef SIGWINCH
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	148 {"SIGWINCH", SIGWINCH},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	149 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	150 #ifdef SIGPOLL
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	151 {"SIGPOLL", SIGPOLL},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	152 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	153 #ifdef SIGIO
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	154 {"SIGIO", SIGIO},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	155 #endif
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	156 /* add odd signals */
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	157 #ifdef SIGSTKFLT
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	158 {"SIGSTKFLT", SIGSTKFLT}, /* stack fault */
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	159 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	160 #ifdef SIGSYS
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	161 {"SIGSYS", SIGSYS},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	162 #endif
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	163 {NULL, 0}
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	164 };
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	165
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7818 diff changeset	166 static lua_State *Lsig = NULL;
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	167 static lua_Hook Hsig = NULL;
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	168 static int Hmask = 0;
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	169 static int Hcount = 0;
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	170
10480 94cacf9fd0ae util..c: Add static qualifiers everywhere Emmanuel Gil Peyrot <linkmauve@linkmauve.fr>* parents: 9151 diff changeset	171 static int signals[MAX_PENDING_SIGNALS];
94cacf9fd0ae util..c: Add static qualifiers everywhere Emmanuel Gil Peyrot <linkmauve@linkmauve.fr>* parents: 9151 diff changeset	172 static int nsig = 0;
2430 69d377c84fe3 util.signal: Queue up multiple signals, instead of trampling on the previous debug hook (and never clearing our own) Matthew Wild <mwild1@gmail.com> parents: 2405 diff changeset	173
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7818 diff changeset	174 static void sighook(lua_State L, lua_Debug ar) {
9151 fee3933ff346 pposix, signal: Ignore unused arguments. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 9150 diff changeset	175 (void)ar;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	176 /* restore the old hook */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	177 lua_sethook(L, Hsig, Hmask, Hcount);
2432 1e045b3e9dce util.signal: Restore the old debug hook earlier, just in case we receive another signal between clearing the signal queue and restoring it Matthew Wild <mwild1@gmail.com> parents: 2431 diff changeset	178
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	179 lua_pushstring(L, LUA_SIGNAL);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	180 lua_gettable(L, LUA_REGISTRYINDEX);
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	181
8420 fb27aff6d491 util.signal: Fix loop (fixes #1047) Kim Alvefur <zash@zash.se> parents: 8414 diff changeset	182 for(int i = 0; i < nsig; i++) {
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	183 lua_pushinteger(L, signals[i]);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	184 lua_gettable(L, -2);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	185 lua_call(L, 0, 0);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	186 };
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	187
8414 7ea3311ca632 util.signal: Use a static array to keep track of pending signals (fixes #1029) Kim Alvefur <zash@zash.se> parents: 7973 diff changeset	188 nsig = 0;
7ea3311ca632 util.signal: Use a static array to keep track of pending signals (fixes #1029) Kim Alvefur <zash@zash.se> parents: 7973 diff changeset	189
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	190 lua_pop(L, 1); /* pop lua_signal table */
2430 69d377c84fe3 util.signal: Queue up multiple signals, instead of trampling on the previous debug hook (and never clearing our own) Matthew Wild <mwild1@gmail.com> parents: 2405 diff changeset	191
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	192 }
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	193
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	194 static void handle(int sig) {
8414 7ea3311ca632 util.signal: Use a static array to keep track of pending signals (fixes #1029) Kim Alvefur <zash@zash.se> parents: 7973 diff changeset	195 if(nsig == 0) {
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	196 /* Store the existing debug hook (if any) and its parameters */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	197 Hsig = lua_gethook(Lsig);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	198 Hmask = lua_gethookmask(Lsig);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	199 Hcount = lua_gethookcount(Lsig);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	200
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	201 /* Set our new debug hook */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	202 lua_sethook(Lsig, sighook, LUA_MASKCALL \| LUA_MASKRET \| LUA_MASKCOUNT, 1);
8414 7ea3311ca632 util.signal: Use a static array to keep track of pending signals (fixes #1029) Kim Alvefur <zash@zash.se> parents: 7973 diff changeset	203 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	204
8414 7ea3311ca632 util.signal: Use a static array to keep track of pending signals (fixes #1029) Kim Alvefur <zash@zash.se> parents: 7973 diff changeset	205 if(nsig < MAX_PENDING_SIGNALS) {
8420 fb27aff6d491 util.signal: Fix loop (fixes #1047) Kim Alvefur <zash@zash.se> parents: 8414 diff changeset	206 signals[nsig++] = sig;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	207 }
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	208 }
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	209
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	210 /*
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	211 * l_signal == signal(signal [, func [, chook]])
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	212 *
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	213 * signal = signal number or string
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	214 * func = Lua function to call
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	215 * chook = catch within C functions
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	216 * if caught, Lua function _must_
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	217 * exit, as the stack is most likely
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	218 * in an unstable state.
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	219 */
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	220
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7818 diff changeset	221 static int l_signal(lua_State *L) {
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	222 int args = lua_gettop(L);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	223 int t, sig; /* type, signal */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	224
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	225 /* get type of signal */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	226 luaL_checkany(L, 1);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	227 t = lua_type(L, 1);
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	228
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	229 if(t == LUA_TNUMBER) {
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	230 sig = (int) lua_tointeger(L, 1);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	231 } else if(t == LUA_TSTRING) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	232 lua_pushstring(L, LUA_SIGNAL);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	233 lua_gettable(L, LUA_REGISTRYINDEX);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	234 lua_pushvalue(L, 1);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	235 lua_gettable(L, -2);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	236
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	237 if(!lua_isinteger(L, -1)) {
6620 50eaefeec013 util-src/.c: Per convention call luaL_error() as argument to return Florian Zeitz <florob@babelmonkeys.de>* parents: 6615 diff changeset	238 return luaL_error(L, "invalid signal string");
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	239 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	240
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	241 sig = (int) lua_tointeger(L, -1);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	242 lua_pop(L, 1); /* get rid of number we pushed */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	243 } else {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	244 luaL_checknumber(L, 1); /* will always error, with good error msg */
6620 50eaefeec013 util-src/.c: Per convention call luaL_error() as argument to return Florian Zeitz <florob@babelmonkeys.de>* parents: 6615 diff changeset	245 return luaL_error(L, "unreachable: invalid number was accepted");
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	246 }
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	247
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	248 /* set handler */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	249 if(args == 1 \|\| lua_isnil(L, 2)) { /* clear handler */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	250 lua_pushstring(L, LUA_SIGNAL);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	251 lua_gettable(L, LUA_REGISTRYINDEX);
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	252 lua_pushinteger(L, sig);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	253 lua_gettable(L, -2); /* return old handler */
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	254 lua_pushinteger(L, sig);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	255 lua_pushnil(L);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	256 lua_settable(L, -4);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	257 lua_remove(L, -2); /* remove LUA_SIGNAL table */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	258 signal(sig, SIG_DFL);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	259 } else {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	260 luaL_checktype(L, 2, LUA_TFUNCTION);
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	261
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	262 lua_pushstring(L, LUA_SIGNAL);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	263 lua_gettable(L, LUA_REGISTRYINDEX);
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	264
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	265 lua_pushinteger(L, sig);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	266 lua_pushvalue(L, 2);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	267 lua_settable(L, -3);
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	268
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	269 /* Set the state for the handler */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	270 Lsig = L;
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	271
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	272 if(lua_toboolean(L, 3)) { /* c hook? */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	273 if(signal(sig, handle) == SIG_ERR) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	274 lua_pushboolean(L, 0);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	275 } else {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	276 lua_pushboolean(L, 1);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	277 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	278 } else { /* lua_hook */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	279 if(signal(sig, handle) == SIG_ERR) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	280 lua_pushboolean(L, 0);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	281 } else {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	282 lua_pushboolean(L, 1);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	283 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	284 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	285 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	286
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	287 return 1;
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	288 }
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	289
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	290 /*
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	291 * l_raise == raise(signal)
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	292 *
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	293 * signal = signal number or string
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	294 */
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	295
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7818 diff changeset	296 static int l_raise(lua_State *L) {
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	297 /* int args = lua_gettop(L); */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	298 int t = 0; /* type */
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	299 lua_Integer ret;
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	300
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	301 luaL_checkany(L, 1);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	302
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	303 t = lua_type(L, 1);
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	304
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	305 if(t == LUA_TNUMBER) {
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	306 ret = (lua_Integer) raise((int) lua_tointeger(L, 1));
763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	307 lua_pushinteger(L, ret);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	308 } else if(t == LUA_TSTRING) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	309 lua_pushstring(L, LUA_SIGNAL);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	310 lua_gettable(L, LUA_REGISTRYINDEX);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	311 lua_pushvalue(L, 1);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	312 lua_gettable(L, -2);
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	313
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	314 if(!lua_isnumber(L, -1)) {
6620 50eaefeec013 util-src/.c: Per convention call luaL_error() as argument to return Florian Zeitz <florob@babelmonkeys.de>* parents: 6615 diff changeset	315 return luaL_error(L, "invalid signal string");
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	316 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	317
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	318 ret = (lua_Integer) raise((int) lua_tointeger(L, -1));
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	319 lua_pop(L, 1); /* get rid of number we pushed */
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	320 lua_pushinteger(L, ret);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	321 } else {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	322 luaL_checknumber(L, 1); /* will always error, with good error msg */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	323 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	324
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	325 return 1;
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	326 }
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	327
3282 8ef3beed0779 util.signal: Make kill() available on OS X (thanks darkrain). Waqas Hussain <waqas20@gmail.com> parents: 3274 diff changeset	328 #if defined(__unix__) \|\| defined(__APPLE__)
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	329
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	330 /* define some posix only functions */
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	331
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	332 /*
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	333 * l_kill == kill(pid, signal)
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	334 *
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	335 * pid = process id
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	336 * signal = signal number or string
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	337 */
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	338
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7818 diff changeset	339 static int l_kill(lua_State *L) {
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	340 int t; /* type */
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	341 lua_Integer ret; /* return value */
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	342
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	343 luaL_checknumber(L, 1); /* must be int for pid */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	344 luaL_checkany(L, 2); /* check for a second arg */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	345
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	346 t = lua_type(L, 2);
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	347
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	348 if(t == LUA_TNUMBER) {
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	349 ret = (lua_Integer) kill((int) lua_tointeger(L, 1),
763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	350 (int) lua_tointeger(L, 2));
763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	351 lua_pushinteger(L, ret);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	352 } else if(t == LUA_TSTRING) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	353 lua_pushstring(L, LUA_SIGNAL);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	354 lua_gettable(L, LUA_REGISTRYINDEX);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	355 lua_pushvalue(L, 2);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	356 lua_gettable(L, -2);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	357
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	358 if(!lua_isnumber(L, -1)) {
6620 50eaefeec013 util-src/.c: Per convention call luaL_error() as argument to return Florian Zeitz <florob@babelmonkeys.de>* parents: 6615 diff changeset	359 return luaL_error(L, "invalid signal string");
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	360 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	361
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	362 ret = (lua_Integer) kill((int) lua_tointeger(L, 1),
763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	363 (int) lua_tointeger(L, -1));
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	364 lua_pop(L, 1); /* get rid of number we pushed */
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	365 lua_pushinteger(L, ret);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	366 } else {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	367 luaL_checknumber(L, 2); /* will always error, with good error msg */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	368 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	369
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	370 return 1;
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	371 }
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	372
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	373 #endif
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	374
13439 1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	375 #ifdef __linux__
13441 6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	376 struct lsignalfd {
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	377 int fd;
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	378 sigset_t mask;
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	379 };
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	380
13439 1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	381 static int l_signalfd(lua_State *L) {
13441 6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	382 struct lsignalfd *sfd = lua_newuserdata(L, sizeof(struct lsignalfd));
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	383
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	384 sigemptyset(&sfd->mask);
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	385 sigaddset(&sfd->mask, luaL_checkinteger(L, 1));
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	386
13448 93b4ce0115f0 util.signal: Fail signalfd() if unable to change signal mask Kim Alvefur <zash@zash.se> parents: 13441 diff changeset	387 if (sigprocmask(SIG_BLOCK, &sfd->mask, NULL) != 0) {
93b4ce0115f0 util.signal: Fail signalfd() if unable to change signal mask Kim Alvefur <zash@zash.se> parents: 13441 diff changeset	388 lua_pushnil(L);
93b4ce0115f0 util.signal: Fail signalfd() if unable to change signal mask Kim Alvefur <zash@zash.se> parents: 13441 diff changeset	389 return 1;
93b4ce0115f0 util.signal: Fail signalfd() if unable to change signal mask Kim Alvefur <zash@zash.se> parents: 13441 diff changeset	390 };
13441 6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	391
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	392 sfd->fd = signalfd(-1, &sfd->mask, SFD_NONBLOCK);
13439 1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	393
13441 6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	394 if(sfd->fd == -1) {
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	395 lua_pushnil(L);
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	396 return 1;
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	397 }
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	398
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	399 luaL_setmetatable(L, "signalfd");
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	400 return 1;
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	401 }
13439 1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	402
13441 6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	403 static int l_signalfd_getfd(lua_State *L) {
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	404 struct lsignalfd *sfd = luaL_checkudata(L, 1, "signalfd");
13439 1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	405
13441 6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	406 if (sfd->fd == -1) {
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	407 lua_pushnil(L);
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	408 return 1;
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	409 }
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	410
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	411 lua_pushinteger(L, sfd->fd);
13439 1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	412 return 1;
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	413 }
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	414
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	415 static int l_signalfd_read(lua_State *L) {
13441 6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	416 struct lsignalfd *sfd = luaL_checkudata(L, 1, "signalfd");
13439 1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	417 struct signalfd_siginfo siginfo;
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	418
13441 6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	419 if(read(sfd->fd, &siginfo, sizeof(siginfo)) < 0) {
13439 1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	420 return 0;
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	421 }
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	422
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	423 lua_pushinteger(L, siginfo.ssi_signo);
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	424 return 1;
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	425 }
13441 6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	426
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	427 static int l_signalfd_close(lua_State *L) {
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	428 struct lsignalfd *sfd = luaL_checkudata(L, 1, "signalfd");
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	429
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	430 if(close(sfd->fd) != 0) {
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	431 lua_pushboolean(L, 0);
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	432 return 1;
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	433 }
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	434
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	435 sfd->fd = -1;
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	436 lua_pushboolean(L, 1);
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	437 return 1;
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	438 }
13439 1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	439 #endif
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	440
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	441 static const struct luaL_Reg lsignal_lib[] = {
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	442 {"signal", l_signal},
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	443 {"raise", l_raise},
3282 8ef3beed0779 util.signal: Make kill() available on OS X (thanks darkrain). Waqas Hussain <waqas20@gmail.com> parents: 3274 diff changeset	444 #if defined(__unix__) \|\| defined(__APPLE__)
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	445 {"kill", l_kill},
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	446 #endif
13439 1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	447 #ifdef __linux__
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	448 {"signalfd", l_signalfd},
1e229d710a3c util.signal: Add support for signalfd(2) on Linux Kim Alvefur <zash@zash.se> parents: 12976 diff changeset	449 #endif
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	450 {NULL, NULL}
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	451 };
8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	452
12976 a187600ec7d6 util: Add compat for prosody module name change to C sources Kim Alvefur <zash@zash.se> parents: 12575 diff changeset	453 int luaopen_prosody_util_signal(lua_State *L) {
7818 54669df178c2 util-src: Make C modules assert that the Lua runtime matches what it was compiled for Kim Alvefur <zash@zash.se> parents: 6789 diff changeset	454 luaL_checkversion(L);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	455 int i = 0;
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	456
13441 6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	457 #ifdef __linux__
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	458 luaL_newmetatable(L, "signalfd");
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	459 lua_pushcfunction(L, l_signalfd_close);
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	460 lua_setfield(L, -2, "__gc");
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	461 lua_createtable(L, 0, 1);
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	462 {
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	463 lua_pushcfunction(L, l_signalfd_getfd);
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	464 lua_setfield(L, -2, "getfd");
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	465 lua_pushcfunction(L, l_signalfd_read);
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	466 lua_setfield(L, -2, "read");
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	467 lua_pushcfunction(L, l_signalfd_close);
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	468 lua_setfield(L, -2, "close");
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	469 }
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	470 lua_setfield(L, -2, "__index");
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	471 lua_pop(L, 1);
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	472 #endif
6d96b6eeee5a util.signal: Wrap signalfd in an userdatum for gc handling etc Kim Alvefur <zash@zash.se> parents: 13439 diff changeset	473
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	474 /* add the library */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	475 lua_newtable(L);
6789 6b180e77c97a util-src/.c: Invert Lua 5.2 compat to be 5.2+ by default and a macro to support 5.1 Kim Alvefur <zash@zash.se>* parents: 6620 diff changeset	476 luaL_setfuncs(L, lsignal_lib, 0);
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	477
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	478 /* push lua_signals table into the registry */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	479 /* put the signals inside the library table too,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	480 * they are only a reference */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	481 lua_pushstring(L, LUA_SIGNAL);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	482 lua_newtable(L);
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	483
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	484 while(lua_signals[i].name != NULL) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	485 /* registry table */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	486 lua_pushstring(L, lua_signals[i].name);
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	487 lua_pushinteger(L, lua_signals[i].sig);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	488 lua_settable(L, -3);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	489 /* signal table */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	490 lua_pushstring(L, lua_signals[i].name);
10799 763bb2ce3f60 util.pposix,signal: Pass around various OS numbers as integers [Lua 5.3] Kim Alvefur <zash@zash.se> parents: 10480 diff changeset	491 lua_pushinteger(L, lua_signals[i].sig);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	492 lua_settable(L, -5);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	493 i++;
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	494 }
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	495
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	496 /* add newtable to the registry */
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	497 lua_settable(L, LUA_REGISTRYINDEX);
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	498
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	499 return 1;
988 8cb9a0d59e78 util.lsignal: Add lsignal library for catching POSIX signals Matthew Wild <mwild1@gmail.com> parents: diff changeset	500 }
12976 a187600ec7d6 util: Add compat for prosody module name change to C sources Kim Alvefur <zash@zash.se> parents: 12575 diff changeset	501 int luaopen_util_signal(lua_State *L) {
a187600ec7d6 util: Add compat for prosody module name change to C sources Kim Alvefur <zash@zash.se> parents: 12575 diff changeset	502 return luaopen_prosody_util_signal(L);
a187600ec7d6 util: Add compat for prosody module name change to C sources Kim Alvefur <zash@zash.se> parents: 12575 diff changeset	503 }

prosody

9970d333a63f

util-src/signal.c

Software / code / prosody

Annotate

util-src/signal.c @ 13532:9970d333a63f

Software `/` code `/` prosody