dev_spob.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include <stdlib.h>
 
#include "naev.h"
#include "dev_spob.h"
 
#include "conf.h"
#include "dev_uniedit.h"
#include "nfile.h"
#include "nstring.h"
#include "nxml.h"
#include "physics.h"
#include "start.h"
 
int dpl_saveSpob( const Spob *p )
{
   xmlDocPtr doc;
   xmlTextWriterPtr writer;
   char *file, *cleanName;
   const char *lua_default = start_spob_lua_default();
 
   /* Create the writer. */
   writer = xmlNewTextWriterDoc(&doc, 0);
   if (writer == NULL) {
      WARN(_("testXmlwriterDoc: Error creating the xml writer"));
      return -1;
   }
 
   /* Set the writer parameters. */
   xmlw_setParams( writer );
 
   /* Start writer. */
   xmlw_start(writer);
   xmlw_startElem( writer, "spob" );
 
   /* Attributes. */
   xmlw_attr( writer, "name", "%s", p->name );
 
   /* Some global attributes. */
   if (p->display!=NULL)
      xmlw_elem( writer, "display", "%s", p->display );
   if (p->feature!=NULL)
      xmlw_elem( writer, "feature", "%s", p->feature );
   if ((p->lua_file!=NULL) && ((lua_default==NULL) || strcmp(lua_default,p->lua_file)!=0))
      xmlw_elem( writer, "lua", "%s", p->lua_file );
   if (spob_isFlag(p,SPOB_RADIUS))
      xmlw_elem( writer, "radius", "%f", p->radius );
   if (p->marker != NULL)
      xmlw_elem( writer, "marker", "%s", p->marker->name );
 
   /* Position. */
   xmlw_startElem( writer, "pos" );
   xmlw_attr( writer, "x", "%f", p->pos.x );
   xmlw_attr( writer, "y", "%f", p->pos.y );
   xmlw_endElem( writer ); /* "pos" */
 
   /* GFX. */
   xmlw_startElem( writer, "GFX" );
   if (p->gfx_spacePath != NULL)
      xmlw_elem( writer, "space", "%s", p->gfx_spacePath );
   if (p->gfx_exteriorPath != NULL)
      xmlw_elem( writer, "exterior", "%s", p->gfx_exteriorPath );
   xmlw_endElem( writer ); /* "GFX" */
 
   /* Presence. */
   if (p->presence.faction >= 0) {
      xmlw_startElem( writer, "presence" );
      xmlw_elem( writer, "faction", "%s", faction_name( p->presence.faction ) );
      xmlw_elem( writer, "base", "%f", p->presence.base );
      xmlw_elem( writer, "bonus", "%f", p->presence.bonus );
      xmlw_elem( writer, "range", "%d", p->presence.range );
      xmlw_endElem( writer );
   }
 
   /* General. */
   xmlw_startElem( writer, "general" );
   xmlw_elem( writer, "class", "%s", p->class );
   xmlw_elem( writer, "population", "%g", (double)p->population );
   xmlw_elem( writer, "hide", "%f", p->hide );
   xmlw_startElem( writer, "services" );
   if (spob_hasService( p, SPOB_SERVICE_LAND ))
      xmlw_elemEmpty( writer, "land" );
   if (spob_hasService( p, SPOB_SERVICE_REFUEL ))
      xmlw_elemEmpty( writer, "refuel" );
   if (spob_hasService( p, SPOB_SERVICE_BAR ))
      xmlw_elemEmpty( writer, "bar" );
   if (spob_hasService( p, SPOB_SERVICE_MISSIONS ))
      xmlw_elemEmpty( writer, "missions" );
   if (spob_hasService( p, SPOB_SERVICE_COMMODITY ))
      xmlw_elemEmpty( writer, "commodity" );
   if (spob_hasService( p, SPOB_SERVICE_OUTFITS ))
      xmlw_elemEmpty( writer, "outfits" );
   if (spob_hasService( p, SPOB_SERVICE_SHIPYARD ))
      xmlw_elemEmpty( writer, "shipyard" );
   if (spob_hasService( p, SPOB_SERVICE_BLACKMARKET ))
      xmlw_elemEmpty( writer, "blackmarket" );
   if (spob_isFlag( p, SPOB_NOMISNSPAWN ))
      xmlw_elemEmpty( writer, "nomissionspawn" );
   if (spob_isFlag( p, SPOB_UNINHABITED ))
      xmlw_elemEmpty( writer, "uninhabited" );
   xmlw_endElem( writer ); /* "services" */
   if (spob_hasService( p, SPOB_SERVICE_LAND )) {
      if (p->presence.faction >= 0) {
         xmlw_startElem( writer, "commodities" );
         for (int i=0; i<array_size(p->commodities); i++) {
            Commodity *c = p->commodities[i];
            if (!commodity_isFlag(c,COMMODITY_FLAG_STANDARD))
               xmlw_elem( writer, "commodity", "%s", c->name );
         }
         xmlw_endElem( writer ); /* "commodities" */
      }
 
      xmlw_elem( writer, "description", "%s", p->description );
      if (spob_hasService( p, SPOB_SERVICE_BAR ))
         xmlw_elem( writer, "bar", "%s", p->bar_description );
   }
   xmlw_endElem( writer ); /* "general" */
 
   /* Tech. */
   if (spob_hasService( p, SPOB_SERVICE_LAND ))
      tech_groupWrite( writer, p->tech );
 
   if (array_size(p->tags)>0) {
      xmlw_startElem( writer, "tags" );
      for (int i=0; i<array_size(p->tags); i++)
         xmlw_elem( writer, "tag", "%s", p->tags[i] );
      xmlw_endElem( writer ); /* "tags" */
   }
 
   xmlw_endElem( writer ); /* "spob" */
   xmlw_done( writer );
 
   /* No need for writer anymore. */
   xmlFreeTextWriter( writer );
 
   /* Write data. */
   cleanName = uniedit_nameFilter( p->name );
   asprintf( &file, "%s/%s.xml", conf.dev_save_spob, cleanName );
   if (xmlSaveFileEnc( file, doc, "UTF-8" ) < 0)
      WARN("Failed writing '%s'!", file);
 
   /* Clean up. */
   xmlFreeDoc(doc);
   free(cleanName);
   free(file);
 
   return 0;
}
 
int dpl_saveAll (void)
{
   const Spob *p = spob_getAll();
 
   /* Write spobs. */
   for (int i=0; i<array_size(p); i++)
      dpl_saveSpob( &p[i] );
 
   return 0;
}