nlua_var.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include <lauxlib.h>
#include <lua.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
 
#include "naev.h"
#include "nlua_var.h"
 
#include "array.h"
#include "log.h"
#include "nluadef.h"
#include "nstring.h"
#include "nxml.h"
#include "nlua_time.h"
#include "lvar.h"
 
/*
 * variable stack
 */
static lvar* var_stack = NULL; 
/* externed */
 
/* var */
static int varL_peek( lua_State *L );
static int varL_pop( lua_State *L );
static int varL_push( lua_State *L );
static const luaL_Reg var_methods[] = {
   { "peek", varL_peek },
   { "pop", varL_pop },
   { "push", varL_push },
   {0,0}
}; 
int nlua_loadVar( nlua_env env )
{
   nlua_register(env, "var", var_methods, 0);
   return 0;
}
 
static lvar *var_get( const char *str )
{
   return lvar_get( var_stack, str );
}
 
int var_save( xmlTextWriterPtr writer )
{
   xmlw_startElem(writer, "vars");
   lvar_save( var_stack, writer );
   xmlw_endElem(writer); /* "vars" */
   return 0;
}
 
int var_load( xmlNodePtr parent )
{
   xmlNodePtr node = parent->xmlChildrenNode;
   var_cleanup();
   do {
      xml_onlyNodes(node);
      if (!xml_isNode(node,"vars"))
         continue;
      var_stack = lvar_load( node );
   } while (xml_nextNode(node));
   return 0;
}
 
static int var_add( lvar *new_var, int sort )
{
   if (var_stack==NULL)
      var_stack = array_create( lvar );
   return lvar_addArray( &var_stack, new_var, sort );
}
 
int var_checkflag( const char* str )
{
   return var_get( str ) != NULL;
}
 
static int varL_peek( lua_State *L )
{
   const char *str = luaL_checkstring(L,1);
   lvar *mv = var_get( str );
   if (mv == NULL)
      return 0;
   return lvar_push( L, mv );
}
 
static int varL_pop( lua_State *L )
{
   const char* str = luaL_checkstring(L,1);
   lvar *mv = var_get( str );
   if (mv == NULL)
      return 0;
   lvar_rmArray( &var_stack, mv );
   return 0;
}
 
static int varL_push( lua_State *L )
{
   const char *str = luaL_checkstring(L,1);
   lvar var = lvar_tovar( L, str, 2 );
   var_add( &var, 1 );
   return 0;
}
 
void var_cleanup (void)
{
   lvar_freeArray( var_stack );
   var_stack = NULL;
}