Software `/` code `/` prosody

Annotate

util-src/signal.c @ 13514:a1bc6533bbba

Merge 0.12->trunk

author	Kim Alvefur <zash@zash.se>
date	Sun, 18 Aug 2024 17:01:47 +0200
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

a1bc6533bbba

util-src/signal.c

Software / code / prosody

Annotate

util-src/signal.c @ 13514:a1bc6533bbba

Software `/` code `/` prosody