nlua_safelanes.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
 
#include "naev.h"
#include "nlua_safelanes.h"
 
#include "array.h"
#include "collision.h"
#include "nlua_faction.h"
#include "nlua_jump.h"
#include "nlua_spob.h"
#include "nlua_system.h"
#include "nlua_vec2.h"
#include "nluadef.h"
#include "safelanes.h"
 
/* diffs */
static int safelanesL_get( lua_State *L );
static const luaL_Reg safelanesL_methods[] = {
   { "get", safelanesL_get },
   {0,0}
}; 
int nlua_loadSafelanes( nlua_env env )
{
   nlua_register(env, "safelanes", safelanesL_methods, 0);
   return 0;
}
 
static int safelanesL_get( lua_State *L )
{
   int i, j, faction, standing;
   StarSystem *sys;
   SafeLane *lanes;
   Spob *pnt;
   JumpPoint *jmp;
   const char *std;
 
   if (!lua_isnoneornil(L,1))
      faction = luaL_validfaction( L, 1 );
   else
      faction = -1;
   std = luaL_optstring(L, 2, NULL);
   if (!lua_isnoneornil(L,3))
      sys = luaL_validsystem( L, 3 );
   else
      sys = cur_system;
 
   /* Translate standing into number. */
   standing = 0;
   if ((faction >= 0) && (std != NULL)) {
      if (strcmp(std,"friendly")==0)
         standing |= SAFELANES_FRIENDLY;
      else if (strcmp(std,"neutral")==0)
         standing |= SAFELANES_NEUTRAL;
      else if (strcmp(std,"hostile")==0)
         standing |= SAFELANES_HOSTILE;
      else if (strcmp(std,"non-friendly")==0)
         standing |= SAFELANES_NEUTRAL | SAFELANES_HOSTILE;
      else if (strcmp(std,"non-hostile")==0)
         standing |= SAFELANES_NEUTRAL | SAFELANES_FRIENDLY;
      else
         NLUA_ERROR(L,_("Unknown standing type '%s'!"), std);
   }
 
   lanes = safelanes_get( faction, standing, sys );
   lua_newtable( L );
   for (i=0; i<array_size(lanes); i++) {
      lua_newtable( L );
      for (j=0; j<2; j++) {
         switch (lanes[i].point_type[j]) {
            case SAFELANE_LOC_SPOB:
               pnt = spob_getIndex( lanes[i].point_id[j] );
               //lua_pushspob( L, lanes[i].point_id[j] );
#ifdef DEBUGGING
               if (pnt==NULL)
                  NLUA_ERROR(L, _("Spob is invalid"));
#endif /* DEBUGGING */
               lua_pushvector( L, pnt->pos );
               break;
            case SAFELANE_LOC_DEST_SYS:
               //jump.srcid = system_index( sys );
               //jump.destid = lanes[i].point_id[j];
               //lua_pushjump( L, jump );
               jmp = jump_getTarget( system_getIndex(lanes[i].point_id[j]), sys );
#ifdef DEBUGGING
               if (jmp==NULL)
                  NLUA_ERROR(L, _("Jump is invalid"));
#endif /* DEBUGGING */
               lua_pushvector( L, jmp->pos );
               break;
            default:
               NLUA_ERROR( L, _("Safe-lane vertex type is invalid.") );
         }
         lua_rawseti( L, -2, j+1 );
      }
      lua_pushstring( L, "faction" ); /* key */
      lua_pushfaction( L, lanes[i].faction ); /* value */
      lua_rawset( L, -3 );
      lua_rawseti( L, -2, i+1 );
   }
   array_free( lanes );
 
   return 1;
}