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 <stdio.h>
#include <stdlib.h>

 
#include "nlua_var.h"
 
#include "array.h"
#include "lvar.h"
#include "nxml.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;
}