cond.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include "naev.h"
#include "cond.h"
 
#include "log.h"
#include "nlua.h"
#include "nluadef.h"
 
static nlua_env cond_env = LUA_NOREF; 
int cond_init (void)
{
   if (cond_env != LUA_NOREF)
      return 0;
 
   cond_env = nlua_newEnv();
   if (nlua_loadStandard(cond_env)) {
      WARN(_("Failed to load standard Lua libraries."));
      return -1;
   }
 
   return 0;
}
 
void cond_exit (void)
{
   nlua_freeEnv(cond_env);
   cond_env = LUA_NOREF;
}
 
int cond_compile( const char *cond )
{
   int ret, ref;
   char buf[STRMAX_SHORT];
 
   /* Load the string directly. */
   if (strstr( cond, "return" ) != NULL) {
      lua_pushstring(naevL, cond);
   }
   else {
      /* Append "return" first. */
      lua_pushstring(naevL, "return ");
      lua_pushstring(naevL, cond);
      lua_concat(naevL, 2);
   }
   ret = luaL_loadbuffer( naevL, lua_tostring(naevL,-1), lua_strlen(naevL,-1), "Lua Conditional" );
   switch (ret) {
      case  LUA_ERRSYNTAX:
         snprintf( buf, sizeof(buf), _("Lua conditional syntax error: %s"), lua_tostring(naevL, -1));
         goto cond_err;
      case LUA_ERRMEM:
         snprintf( buf, sizeof(buf), _("Lua Conditional ran out of memory: %s"), lua_tostring(naevL, -1));
         goto cond_err;
      default:
         break;
   }
   ref = luaL_ref( naevL, LUA_REGISTRYINDEX ); /* pops */
   lua_pop( naevL, 1 );
   return ref;
 
cond_err:
   print_with_line_numbers( cond );
   WARN( "%s", buf );
 
   /* Clear the stack. */
   lua_settop(naevL, 0);
   return LUA_NOREF;
}
 
int cond_check( const char *cond )
{
   int ret;
   char buf[STRMAX_SHORT];
 
   /* Load the string directly. */
   if (strstr( cond, "return" ) != NULL) {
      lua_pushstring(naevL, cond);
   }
   else {
      /* Append "return" first. */
      lua_pushstring(naevL, "return ");
      lua_pushstring(naevL, cond);
      lua_concat(naevL, 2);
   }
   ret = nlua_dobufenv(cond_env, lua_tostring(naevL,-1),
                       lua_strlen(naevL,-1), "Lua Conditional");
   switch (ret) {
      case  LUA_ERRSYNTAX:
         snprintf( buf, sizeof(buf), _("Lua conditional syntax error: %s"), lua_tostring(naevL, -1));
         goto cond_err;
      case LUA_ERRRUN:
         snprintf( buf, sizeof(buf), _("Lua Conditional had a runtime error: %s"), lua_tostring(naevL, -1));
         goto cond_err;
      case LUA_ERRMEM:
         snprintf( buf, sizeof(buf), _("Lua Conditional ran out of memory: %s"), lua_tostring(naevL, -1));
         goto cond_err;
      case LUA_ERRERR:
         snprintf( buf, sizeof(buf), _("Lua Conditional had an error while handling error function: %s"), lua_tostring(naevL, -1));
         goto cond_err;
      default:
         break;
   }
 
   /* Check the result. */
   if (lua_isboolean(naevL, -1)) {
      ret = !!lua_toboolean(naevL, -1);
      lua_pop(naevL, 1);
 
      /* Clear the stack. */
      lua_settop(naevL, 0);
 
      return ret;
   }
   snprintf( buf, sizeof(buf), _("Lua Conditional didn't return a boolean"));
 
cond_err:
   print_with_line_numbers( cond );
   WARN( "%s", buf );
 
   /* Clear the stack. */
   lua_settop(naevL, 0);
   return -1;
}
 
int cond_checkChunk( int chunk, const char *cond )
{
   char buf[STRMAX_SHORT];
   int ret;
 
   if (chunk==LUA_NOREF) {
      WARN(_("Trying to run Lua Conditional chunk that is not referenced!"));
      return 0;
   }
 
   ret = nlua_dochunkenv( cond_env, chunk, "Lua Conditional" );
   switch (ret) {
      case LUA_ERRRUN:
         snprintf( buf, sizeof(buf), _("Lua Conditional had a runtime error: %s"), lua_tostring(naevL, -1));
         goto cond_err;
      case LUA_ERRMEM:
         snprintf( buf, sizeof(buf), _("Lua Conditional ran out of memory: %s"), lua_tostring(naevL, -1));
         goto cond_err;
      case LUA_ERRERR:
         snprintf( buf, sizeof(buf), _("Lua Conditional had an error while handling error function: %s"), lua_tostring(naevL, -1));
         goto cond_err;
      default:
         break;
   }
 
   /* Check the result. */
   if (lua_isboolean(naevL, -1)) {
      ret = !!lua_toboolean(naevL, -1);
      lua_pop(naevL, 1);
 
      /* Clear the stack. */
      lua_settop(naevL, 0);
 
      return ret;
   }
   snprintf( buf, sizeof(buf), _("Lua Conditional didn't return a boolean"));
 
cond_err:
   print_with_line_numbers( cond );
   WARN( "%s", buf );
 
   /* Clear the stack. */
   lua_settop(naevL, 0);
   return -1;
}