1a2cdf64c9
When ha_panic() is called by the watchdog, we try to guess from ha_task_dump() and ha_thread_dump_one() if the thread was stuck while executing lua from the stream context. However we consider this is the case by simply checking if the stream hlua context was set, but this is not very precise because if the hlua context is set, then it simply means that at least one lua instruction was executed at the stream level, not that the stuck was currently executing lua when the panic occured. This is especially true with filters, one could simply register a lua filter that does nothing but this will still end up initializing the stream hlua context for each stream. If the thread end up being stuck during the stream handling, then debug dumping functions will report that the stream was stuck while handling lua, which is not necessarilly true, and could in fact confuse us even more. So here we take another approach, we add the BUSY flag to hlua context: this flag is set by hlua_ctx_resume() around lua_resume() call, this way we can precisely tell if the thread was handling lua when it was interrupted, and we rely on this flag in debug functions to check if the thread was effectively stuck inside lua or not while processing the stream No backport needed unless a commit depends on it.
85 lines
3.6 KiB
C
85 lines
3.6 KiB
C
/*
|
|
* include/haproxy/hlua.h
|
|
* Lua core management functions
|
|
*
|
|
* Copyright (C) 2015-2016 Thierry Fournier <tfournier@arpalert.org>
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation, version 2.1
|
|
* exclusively.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
|
*/
|
|
|
|
#ifndef _HAPROXY_HLUA_H
|
|
#define _HAPROXY_HLUA_H
|
|
|
|
#include <haproxy/hlua-t.h>
|
|
|
|
#ifdef USE_LUA
|
|
|
|
/* The following macros are used to set flags. */
|
|
#define HLUA_SET_RUN(__hlua) do {(__hlua)->flags |= HLUA_RUN;} while(0)
|
|
#define HLUA_CLR_RUN(__hlua) do {(__hlua)->flags &= ~HLUA_RUN;} while(0)
|
|
#define HLUA_IS_RUNNING(__hlua) ((__hlua)->flags & HLUA_RUN)
|
|
#define HLUA_SET_BUSY(__hlua) do {(__hlua)->flags |= HLUA_BUSY;} while(0)
|
|
#define HLUA_CLR_BUSY(__hlua) do {(__hlua)->flags &= ~HLUA_BUSY;} while(0)
|
|
#define HLUA_IS_BUSY(__hlua) ((__hlua)->flags & HLUA_BUSY)
|
|
#define HLUA_SET_CTRLYIELD(__hlua) do {(__hlua)->flags |= HLUA_CTRLYIELD;} while(0)
|
|
#define HLUA_CLR_CTRLYIELD(__hlua) do {(__hlua)->flags &= ~HLUA_CTRLYIELD;} while(0)
|
|
#define HLUA_IS_CTRLYIELDING(__hlua) ((__hlua)->flags & HLUA_CTRLYIELD)
|
|
#define HLUA_SET_WAKERESWR(__hlua) do {(__hlua)->flags |= HLUA_WAKERESWR;} while(0)
|
|
#define HLUA_CLR_WAKERESWR(__hlua) do {(__hlua)->flags &= ~HLUA_WAKERESWR;} while(0)
|
|
#define HLUA_IS_WAKERESWR(__hlua) ((__hlua)->flags & HLUA_WAKERESWR)
|
|
#define HLUA_SET_WAKEREQWR(__hlua) do {(__hlua)->flags |= HLUA_WAKEREQWR;} while(0)
|
|
#define HLUA_CLR_WAKEREQWR(__hlua) do {(__hlua)->flags &= ~HLUA_WAKEREQWR;} while(0)
|
|
#define HLUA_IS_WAKEREQWR(__hlua) ((__hlua)->flags & HLUA_WAKEREQWR)
|
|
#define HLUA_CLR_NOYIELD(__hlua) do {(__hlua)->flags &= ~HLUA_NOYIELD;} while(0)
|
|
#define HLUA_SET_NOYIELD(__hlua) do {(__hlua)->flags |= HLUA_NOYIELD;} while(0)
|
|
#define HLUA_CANT_YIELD(__hlua) ((__hlua)->flags & HLUA_NOYIELD)
|
|
|
|
|
|
#define HLUA_INIT(__hlua) do { (__hlua)->T = 0; } while(0)
|
|
|
|
/* Lua HAProxy integration functions. */
|
|
const char *hlua_traceback(lua_State *L, const char* sep);
|
|
void hlua_ctx_destroy(struct hlua *lua);
|
|
void hlua_init();
|
|
int hlua_post_init();
|
|
void hlua_applet_tcp_fct(struct appctx *ctx);
|
|
void hlua_applet_http_fct(struct appctx *ctx);
|
|
int hlua_event_sub(lua_State *L, event_hdl_sub_list *sub_list);
|
|
struct task *hlua_process_task(struct task *task, void *context, unsigned int state);
|
|
const char *hlua_show_current_location(const char *pfx);
|
|
int hlua_ref(lua_State *L);
|
|
void hlua_pushref(lua_State *L, int ref);
|
|
void hlua_unref(lua_State *L, int ref);
|
|
struct hlua *hlua_gethlua(lua_State *L);
|
|
void hlua_yieldk(lua_State *L, int nresults, lua_KContext ctx, lua_KFunction k, int timeout, unsigned int flags);
|
|
|
|
#else /* USE_LUA */
|
|
|
|
/************************ For use when Lua is disabled ********************/
|
|
|
|
#define HLUA_IS_RUNNING(__hlua) 0
|
|
|
|
#define HLUA_INIT(__hlua)
|
|
|
|
/* Empty function for compilation without Lua. */
|
|
static inline void hlua_init() { }
|
|
static inline int hlua_post_init() { return 1; }
|
|
static inline void hlua_ctx_destroy(struct hlua *lua) { }
|
|
static inline const char *hlua_show_current_location(const char *pfx) { return NULL; }
|
|
|
|
#endif /* USE_LUA */
|
|
|
|
#endif /* _HAPROXY_HLUA_H */
|