/**
Flushes any pending writes.
@return true on success.
*/
bool flush() {
return al_fflush(get());
}
static bool slice_fflush(ALLEGRO_FILE *f)
{
SLICE_DATA *slice = al_get_file_userdata(f);
return al_fflush(slice->fp);
}
/*
* Decodes map data from a <data> node
*/
static void decode_layer_data(xmlNode *data_node, ALLEGRO_MAP_LAYER *layer)
{
char *str = g_strstrip((char *)data_node->children->content);
int datalen = layer->width * layer->height;
layer->data = (char *)calloc(datalen, sizeof(char));
char *encoding = get_xml_attribute(data_node, "encoding");
if (!encoding) {
int i = 0;
GSList *tiles = get_children_for_name(data_node, "tile");
GSList *tile_item = tiles;
while (tile_item) {
xmlNode *tile_node = (xmlNode*)tile_item->data;
tile_item = g_slist_next(tile_item);
char *gid = get_xml_attribute(tile_node, "gid");
layer->data[i] = atoi(gid);
i++;
}
g_slist_free(tiles);
}
else if (!strcmp(encoding, "base64")) {
// decompress
gsize rawlen;
unsigned char *rawdata = g_base64_decode(str, &rawlen);
// check the compression
char *compression = get_xml_attribute(data_node, "compression");
if (compression != NULL) {
if (strcmp(compression, "zlib") && strcmp(compression, "gzip")) {
fprintf(stderr, "Error: unknown compression format '%s'\n", compression);
return;
}
// set up files used by zlib to decompress the data
ALLEGRO_PATH *srcpath;
ALLEGRO_FILE *datasrc = al_make_temp_file("XXXXXX", &srcpath);
al_fwrite(datasrc, rawdata, rawlen);
al_fseek(datasrc, 0, ALLEGRO_SEEK_SET);
//al_fclose(datasrc);
//datasrc = al_fopen(al_path_cstr(srcpath, ALLEGRO_NATIVE_PATH_SEP), "rb");
ALLEGRO_FILE *datadest = al_make_temp_file("XXXXXX", NULL);
// decompress and print an error if it failed
int status = inf(datasrc, datadest);
if (status)
zerr(status);
// flush data and get the file length
al_fflush(datadest);
int len = al_fsize(datadest);
// read in the file
al_fseek(datadest, 0, ALLEGRO_SEEK_SET);
char *data = (char *)calloc(len, sizeof(char));
if (al_fread(datadest, data, len) != len) {
fprintf(stderr, "Error: failed to read in map data\n");
return;
}
// every tile id takes 4 bytes
int i;
for (i = 0; i<len; i += 4) {
int tileid = 0;
tileid |= data[i];
tileid |= data[i+1] << 8;
tileid |= data[i+2] << 16;
tileid |= data[i+3] << 24;
layer->data[i/4] = tileid;
}
/* printf("layer dimensions: %dx%d, data length = %d\n",
layer->width, layer->height, len); */
al_destroy_path(srcpath);
al_fclose(datasrc);
al_fclose(datadest);
al_free(data);
}
else {
// TODO: verify that this still works
int i;
for (i = 0; i<rawlen; i += 4) {
int tileid = 0;
tileid |= rawdata[i];
tileid |= rawdata[i+1] << 8;
tileid |= rawdata[i+2] << 16;
tileid |= rawdata[i+3] << 24;
layer->data[i/4] = tileid;
}
}
g_free(rawdata);
}
else if (!strcmp(encoding, "csv")) {
int i;
for (i = 0; i<datalen; i++) {
char *id = strtok((i == 0 ? str : NULL), ",");
layer->data[i] = atoi(id);
}
}
else {
fprintf(stderr, "Error: unknown encoding format '%s'\n", encoding);
}
}
