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_check( const char *cond )
{
   int ret;
 
   /* 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:
         WARN(_("Lua conditional syntax error: %s"), lua_tostring(naevL, -1));
         goto cond_err;
      case LUA_ERRRUN:
         WARN(_("Lua Conditional had a runtime error: %s"), lua_tostring(naevL, -1));
         goto cond_err;
      case LUA_ERRMEM:
         WARN(_("Lua Conditional ran out of memory: %s"), lua_tostring(naevL, -1));
         goto cond_err;
      case LUA_ERRERR:
         WARN(_("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;
   }
   WARN(_("Lua Conditional didn't return a boolean"));
 
cond_err:
   /* Clear the stack. */
   lua_settop(naevL, 0);
   return -1;
}