nluadef.h

/*
 * See Licensing and Copyright notice in naev.h
 */
#pragma once

#include <assert.h>
#include <lauxlib.h>
#include <lua.h>
#include <lualib.h>
 
#include "attributes.h"
#include "log.h"
 
/* Fixes clangd warning about #pragma GCC diagnostic pop
 * See: https://github.com/clangd/clangd/issues/1167 */
static_assert( 1, "" );
/*
 * A number of Lua error functions don't return, but aren't marked
 * as such. These redeclarations ensure that the compiler and analyzer are
 * aware that no return will take place when compiling our code.
 */
#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Wredundant-decls"
 
NORETURN extern int lua_error( lua_State *L );
NORETURN extern int luaL_error( lua_State *L, const char *fmt, ... );
NORETURN extern int luaL_typerror( lua_State *L, int narg, const char *tname );
 
#pragma GCC diagnostic pop
 
/*
 * debug stuff
 */
#ifdef DEBUG_PARANOID
#define NLUA_DEBUG( str, ... )                                                 \
   ( DEBUG( "Lua: " str "\n", ##__VA_ARGS__ ), abort() )
#else /* DEBUG_PARANOID */
#define NLUA_DEBUG( str, ... ) ( DEBUG( "Lua: " str "\n", ##__VA_ARGS__ ) )
#endif /* DEBUG_PARANOID */
#define NLUA_INVALID_PARAMETER( L, idx )                                       \
   {                                                                           \
      DEBUG( "Invalid parameter %d for %s.", idx, __func__ );                  \
      return luaL_error( L, "Invalid parameter %d for %s.", idx, __func__ );   \
   }
#define NLUA_INVALID_PARAMETER_NORET( L, idx )                                 \
   {                                                                           \
      DEBUG( "Invalid parameter %d for %s.", idx, __func__ );                  \
      luaL_error( L, "Invalid parameter %d for %s.", idx, __func__ );          \
   }
#define NLUA_MIN_ARGS( n )                                                     \
   if ( lua_gettop( L ) < n ) {                                                \
      DEBUG( "Too few arguments for %s.", __func__ );                          \
      return luaL_error( L, "Too few arguments for %s.", __func__ );           \
   }
 
/*
 * Error stuff.
 */
#define NLUA_ERROR( L, str, ... ) ( luaL_error( L, str, ##__VA_ARGS__ ) )