aseprite/src/file/file.cpp
2011-01-18 19:30:42 -03:00

1020 lines
24 KiB
C++

/* ASE - Allegro Sprite Editor
* Copyright (C) 2001-2010 David Capello
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include "config.h"
#include <allegro.h>
#include <string.h>
#include "app.h"
#include "base/mutex.h"
#include "base/scoped_lock.h"
#include "console.h"
#include "file/file.h"
#include "file/file_format.h"
#include "file/file_formats_manager.h"
#include "file/format_options.h"
#include "gui/jalert.h"
#include "modules/gui.h"
#include "modules/palettes.h"
#include "raster/raster.h"
#include "raster/quantization.h"
#include "widgets/statebar.h"
static FileOp *fop_new(FileOpType type);
static void fop_prepare_for_sequence(FileOp *fop);
static FileFormat *get_fileformat(const char *extension);
static int split_filename(const char *filename, char *left, char *right, int *width);
void get_readable_extensions(char* buf, int size)
{
FileFormatsList::iterator it = FileFormatsManager::instance().begin();
FileFormatsList::iterator end = FileFormatsManager::instance().end();
/* clear the string */
ustrncpy(buf, empty_string, size);
/* insert file format */
for (; it != end; ++it) {
if ((*it)->support(FILE_SUPPORT_LOAD)) {
if (ustrcmp(buf, empty_string) != 0)
ustrncat(buf, ",", size);
ustrncat(buf, (*it)->extensions(), size);
}
}
}
void get_writable_extensions(char* buf, int size)
{
FileFormatsList::iterator it = FileFormatsManager::instance().begin();
FileFormatsList::iterator end = FileFormatsManager::instance().end();
/* clear the string */
ustrncpy(buf, empty_string, size);
/* insert file format */
for (; it != end; ++it) {
if ((*it)->support(FILE_SUPPORT_SAVE)) {
if (ustrcmp(buf, empty_string) != 0)
ustrncat(buf, ",", size);
ustrncat(buf, (*it)->extensions(), size);
}
}
}
Sprite *sprite_load(const char *filename)
{
Sprite *sprite;
/* TODO add a option to configure what to do with the sequence */
FileOp *fop = fop_to_load_sprite(filename, FILE_LOAD_SEQUENCE_NONE);
if (!fop)
return NULL;
/* operate in this same thread */
fop_operate(fop);
fop_done(fop);
if (fop->has_error()) {
Console console;
console.printf(fop->error.c_str());
}
sprite = fop->sprite;
fop_free(fop);
return sprite;
}
int sprite_save(Sprite *sprite)
{
int ret;
FileOp *fop = fop_to_save_sprite(sprite);
if (!fop)
return -1;
/* operate in this same thread */
fop_operate(fop);
fop_done(fop);
if (fop->has_error()) {
Console console;
console.printf(fop->error.c_str());
}
ret = (!fop->has_error() ? 0: -1);
fop_free(fop);
return ret;
}
FileOp *fop_to_load_sprite(const char *filename, int flags)
{
char *extension;
FileOp *fop;
fop = fop_new(FileOpLoad);
if (!fop)
return NULL;
/* get the extension of the filename (in lower case) */
extension = jstrdup(get_extension(filename));
ustrlwr(extension);
PRINTF("Loading file \"%s\" (%s)\n", filename, extension);
/* does file exist? */
if (!file_exists(filename, FA_ALL, NULL)) {
fop_error(fop, "File not found: \"%s\"\n", filename);
goto done;
}
/* get the format through the extension of the filename */
fop->format = get_fileformat(extension);
if (!fop->format ||
!fop->format->support(FILE_SUPPORT_LOAD)) {
fop_error(fop, "ASE can't load \"%s\" files\n", extension);
goto done;
}
/* use the "sequence" interface */
if (fop->format->support(FILE_SUPPORT_SEQUENCES)) {
/* prepare to load a sequence */
fop_prepare_for_sequence(fop);
/* per now, we want load just one file */
fop->seq.filename_list.push_back(filename);
/* don't load the sequence (just the one file/one frame) */
if (!(flags & FILE_LOAD_SEQUENCE_NONE)) {
char buf[512], left[512], right[512];
int c, width, start_from;
/* first of all, we must generate the list of files to load in the
sequence... */
/* check is this could be a sequence */
start_from = split_filename(filename, left, right, &width);
if (start_from >= 0) {
/* try to get more file names */
for (c=start_from+1; ; c++) {
/* get the next file name */
usprintf(buf, "%s%0*d%s", left, width, c, right);
/* if the file doesn't exist, we doesn't need more files to load */
if (!exists(buf))
break;
/* add this file name to the list */
fop->seq.filename_list.push_back(buf);
}
}
/* TODO add a better dialog to edit file-names */
if ((flags & FILE_LOAD_SEQUENCE_ASK) &&
App::instance()->isGui()) {
/* really want load all files? */
if ((fop->seq.filename_list.size() > 1) &&
(jalert("Notice"
"<<Possible animation with:"
"<<%s"
"<<Load the sequence of bitmaps?"
"||&Agree||&Skip",
get_filename(filename)) != 1)) {
/* if the user replies "Skip", we need just one file name (the
first one) */
if (fop->seq.filename_list.size() > 1) {
fop->seq.filename_list.erase(fop->seq.filename_list.begin()+1,
fop->seq.filename_list.end());
}
}
}
}
}
else
fop->filename = filename;
/* load just one frame */
if (flags & FILE_LOAD_ONE_FRAME)
fop->oneframe = true;
done:;
jfree(extension);
return fop;
}
FileOp *fop_to_save_sprite(Sprite *sprite)
{
char extension[32], buf[2048];
FileOp *fop;
bool fatal;
fop = fop_new(FileOpSave);
if (!fop)
return NULL;
/* sprite to save */
fop->sprite = sprite;
/* get the extension of the filename (in lower case) */
ustrcpy(extension, get_extension(fop->sprite->getFilename()));
ustrlwr(extension);
PRINTF("Saving sprite \"%s\" (%s)\n", fop->sprite->getFilename(), extension);
/* get the format through the extension of the filename */
fop->format = get_fileformat(extension);
if (!fop->format ||
!fop->format->support(FILE_SUPPORT_SAVE)) {
fop_error(fop, "ASE can't save \"%s\" files\n", extension);
return fop;
}
/* warnings */
ustrcpy(buf, empty_string);
fatal = false;
/* check image type support */
switch (fop->sprite->getImgType()) {
case IMAGE_RGB:
if (!(fop->format->support(FILE_SUPPORT_RGB))) {
usprintf(buf+ustrlen(buf), "<<- %s", "RGB format");
fatal = true;
}
if (!(fop->format->support(FILE_SUPPORT_RGBA)) &&
fop->sprite->needAlpha()) {
usprintf(buf+ustrlen(buf), "<<- %s", "Alpha channel");
}
break;
case IMAGE_GRAYSCALE:
if (!(fop->format->support(FILE_SUPPORT_GRAY))) {
usprintf(buf+ustrlen(buf), "<<- Grayscale format");
fatal = true;
}
if (!(fop->format->support(FILE_SUPPORT_GRAYA)) &&
fop->sprite->needAlpha()) {
usprintf(buf+ustrlen(buf), "<<- Alpha channel");
}
break;
case IMAGE_INDEXED:
if (!(fop->format->support(FILE_SUPPORT_INDEXED))) {
usprintf(buf+ustrlen(buf), "<<- Indexed format");
fatal = true;
}
break;
}
// check frames support
if (fop->sprite->getTotalFrames() > 1) {
if (!fop->format->support(FILE_SUPPORT_FRAMES) &&
!fop->format->support(FILE_SUPPORT_SEQUENCES)) {
usprintf(buf+ustrlen(buf), "<<- Frames");
}
}
// layers support
if (fop->sprite->getFolder()->get_layers_count() > 1) {
if (!(fop->format->support(FILE_SUPPORT_LAYERS))) {
usprintf(buf+ustrlen(buf), "<<- Layers");
}
}
// Palettes support.
if (fop->sprite->getPalettes().size() > 1) {
if (!fop->format->support(FILE_SUPPORT_PALETTES) &&
!fop->format->support(FILE_SUPPORT_SEQUENCES)) {
usprintf(buf+ustrlen(buf), "<<- Palette changes between frames");
}
}
// Repositories.
MasksList masks = fop->sprite->getMasksRepository();
if (!masks.empty()) {
int count = 0;
for (MasksList::iterator it = masks.begin(); it != masks.end(); ++it) {
Mask* mask = *it;
// Names starting with '*' are ignored
if (mask->name && *mask->name == '*')
continue;
count++;
}
if ((count > 0) && !(fop->format->support(FILE_SUPPORT_MASKS_REPOSITORY))) {
usprintf(buf+ustrlen(buf), "<<- Mask Repository");
}
}
if (!fop->sprite->getPathsRepository().empty()) {
if (!(fop->format->support(FILE_SUPPORT_PATHS_REPOSITORY))) {
usprintf(buf+ustrlen(buf), "<<- Path Repository");
}
}
/* show the confirmation alert */
if (ugetc(buf)) {
/* interative */
if (App::instance()->isGui()) {
int ret;
if (fatal)
ret = jalert("Error<<File format \"%s\" doesn't support:%s"
"||&Close",
fop->format->name(), buf);
else
ret = jalert("Warning<<File format \"%s\" doesn't support:%s"
"<<Do you want continue?"
"||&Yes||&No",
fop->format->name(), buf);
/* operation can't be done (by fatal error) or the user cancel
the operation */
if ((fatal) || (ret != 1)) {
fop_free(fop);
return NULL;
}
}
/* no interactive & fatal error? */
else if (fatal) {
fop_error(fop, buf);
return fop;
}
}
// Use the "sequence" interface.
if (fop->format->support(FILE_SUPPORT_SEQUENCES)) {
fop_prepare_for_sequence(fop);
/* to save one frame */
if (fop->sprite->getTotalFrames() == 1) {
fop->seq.filename_list.push_back(fop->sprite->getFilename());
}
/* to save more frames */
else {
char buf[256], left[256], right[256];
int frame, width, start_from;
start_from = split_filename(fop->sprite->getFilename(), left, right, &width);
if (start_from < 0) {
start_from = 0;
width =
(fop->sprite->getTotalFrames() < 10)? 1:
(fop->sprite->getTotalFrames() < 100)? 2:
(fop->sprite->getTotalFrames() < 1000)? 3: 4;
}
for (frame=0; frame<fop->sprite->getTotalFrames(); frame++) {
/* get the name for this frame */
usprintf(buf, "%s%0*d%s", left, width, start_from+frame, right);
fop->seq.filename_list.push_back(buf);
}
}
}
else
fop->filename = fop->sprite->getFilename();
// Configure output format?
if (fop->format->support(FILE_SUPPORT_GET_FORMAT_OPTIONS)) {
FormatOptions* format_options = fop->format->getFormatOptions(fop);
// Does the user cancelled the operation?
if (format_options == NULL) {
fop_free(fop);
return NULL;
}
fop->seq.format_options = format_options;
fop->sprite->setFormatOptions(format_options);
}
return fop;
}
/**
* Finally does the file operation: loading or saving the sprite.
*
* It can be called from a different thread of the one used
* by @ref fop_to_load_sprite or @ref fop_to_save_sprite.
*
* After operate you must to mark the 'fop' as 'done' using @ref fop_done.
*/
void fop_operate(FileOp *fop)
{
ASSERT(fop != NULL);
ASSERT(!fop_is_done(fop));
/* load ***********************************************************/
if (fop->type == FileOpLoad &&
fop->format != NULL &&
fop->format->support(FILE_SUPPORT_LOAD)) {
/* load a sequence */
if (fop->is_sequence()) {
int frame, frames, image_index = 0;
Image *old_image;
bool loadres;
/* default palette */
fop->seq.palette->makeBlack();
/* TODO set_palette for each frame??? */
#define SEQUENCE_IMAGE() \
do { \
image_index = fop->sprite->getStock()->addImage(fop->seq.image); \
\
fop->seq.last_cel->image = image_index; \
fop->seq.layer->addCel(fop->seq.last_cel); \
\
if (fop->sprite->getPalette(frame) \
->countDiff(fop->seq.palette, NULL, NULL) > 0) { \
fop->seq.palette->setFrame(frame); \
fop->sprite->setPalette(fop->seq.palette, true); \
} \
\
old_image = fop->seq.image; \
fop->seq.image = NULL; \
fop->seq.last_cel = NULL; \
} while (0)
/* load the sequence */
frames = fop->seq.filename_list.size();
frame = 0;
old_image = NULL;
fop->seq.has_alpha = false;
fop->seq.progress_offset = 0.0f;
fop->seq.progress_fraction = 1.0f / (float)frames;
std::vector<std::string>::iterator it = fop->seq.filename_list.begin();
std::vector<std::string>::iterator end = fop->seq.filename_list.end();
for (; it != end; ++it) {
fop->filename = it->c_str();
/* call the "load" procedure to read the first bitmap */
loadres = fop->format->load(fop);
if (!loadres) {
fop_error(fop, "Error loading frame %d from file \"%s\"\n",
frame+1, fop->filename.c_str());
}
/* for the first frame... */
if (!old_image) {
/* error reading the first frame */
if (!loadres || !fop->sprite || !fop->seq.last_cel) {
if (fop->seq.image) image_free(fop->seq.image);
if (fop->seq.last_cel) cel_free(fop->seq.last_cel);
if (fop->sprite) {
delete fop->sprite;
fop->sprite = NULL;
}
break;
}
/* read ok */
else {
/* add the keyframe */
SEQUENCE_IMAGE();
}
}
/* for other frames */
else {
/* all done (or maybe not enough memory) */
if (!loadres || !fop->seq.last_cel) {
if (fop->seq.image) image_free(fop->seq.image);
if (fop->seq.last_cel) cel_free(fop->seq.last_cel);
break;
}
/* compare the old frame with the new one */
#if USE_LINK /* TODO this should be configurable through a check-box */
if (image_count_diff(old_image, fop->seq.image)) {
SEQUENCE_IMAGE();
}
/* we don't need this image */
else {
image_free(fop->seq.image);
/* but add a link frame */
fop->seq.last_cel->image = image_index;
layer_add_frame(fop->seq.layer, fop->seq.last_cel);
fop->seq.last_image = NULL;
fop->seq.last_cel = NULL;
}
#else
SEQUENCE_IMAGE();
#endif
}
frame++;
fop->seq.progress_offset += fop->seq.progress_fraction;
}
fop->filename = *fop->seq.filename_list.begin();
// Final setup
if (fop->sprite != NULL) {
// Configure the layer as the 'Background'
if (!fop->seq.has_alpha)
fop->seq.layer->configureAsBackground();
// Set the frames range
fop->sprite->setTotalFrames(frame);
// Sets special options from the specific format (e.g. BMP
// file can contain the number of bits per pixel).
fop->sprite->setFormatOptions(fop->seq.format_options);
}
}
/* direct load from one file */
else {
/* call the "load" procedure */
if (!fop->format->load(fop))
fop_error(fop, "Error loading sprite from file \"%s\"\n",
fop->filename.c_str());
}
if (fop->sprite != NULL) {
/* select the last layer */
if (fop->sprite->getFolder()->get_layers_count() > 0) {
LayerIterator last_layer = --fop->sprite->getFolder()->get_layer_end();
fop->sprite->setCurrentLayer(*last_layer);
}
/* set the filename */
if (fop->is_sequence())
fop->sprite->setFilename(fop->seq.filename_list.begin()->c_str());
else
fop->sprite->setFilename(fop->filename.c_str());
// Creates a suitable palette for RGB images
if (fop->sprite->getImgType() == IMAGE_RGB &&
fop->sprite->getPalettes().size() <= 1 &&
fop->sprite->getPalette(0)->isBlack()) {
Palette* palette = quantization::create_palette_from_rgb(fop->sprite);
fop->sprite->resetPalettes();
fop->sprite->setPalette(palette, false);
delete palette;
}
fop->sprite->markAsSaved();
}
}
/* save ***********************************************************/
else if (fop->type == FileOpSave &&
fop->format != NULL &&
fop->format->support(FILE_SUPPORT_SAVE)) {
/* save a sequence */
if (fop->is_sequence()) {
ASSERT(fop->format->support(FILE_SUPPORT_SEQUENCES));
/* create a temporary bitmap */
fop->seq.image = image_new(fop->sprite->getImgType(),
fop->sprite->getWidth(),
fop->sprite->getHeight());
if (fop->seq.image != NULL) {
int old_frame = fop->sprite->getCurrentFrame();
fop->seq.progress_offset = 0.0f;
fop->seq.progress_fraction = 1.0f / (float)fop->sprite->getTotalFrames();
/* for each frame in the sprite */
for (int frame=0; frame < fop->sprite->getTotalFrames(); ++frame) {
fop->sprite->setCurrentFrame(frame);
/* draw all the sprite in this frame in the image */
image_clear(fop->seq.image, 0);
fop->sprite->render(fop->seq.image, 0, 0);
/* setup the palette */
fop->sprite->getPalette(fop->sprite->getCurrentFrame())
->copyColorsTo(fop->seq.palette);
/* setup the filename to be used */
fop->filename = fop->seq.filename_list[fop->sprite->getCurrentFrame()];
/* call the "save" procedure... did it fail? */
if (!fop->format->save(fop)) {
fop_error(fop, "Error saving frame %d in the file \"%s\"\n",
fop->sprite->getCurrentFrame()+1, fop->filename.c_str());
break;
}
fop->seq.progress_offset += fop->seq.progress_fraction;
}
fop->filename = *fop->seq.filename_list.begin();
// Destroy the image
image_free(fop->seq.image);
// Restore frame
fop->sprite->setCurrentFrame(old_frame);
}
else {
fop_error(fop, "Not enough memory for the temporary bitmap.\n");
}
}
/* direct save to a file */
else {
/* call the "save" procedure */
if (!fop->format->save(fop))
fop_error(fop, "Error saving the sprite in the file \"%s\"\n",
fop->filename.c_str());
}
}
/* progress = 100% */
fop_progress(fop, 1.0f);
}
/**
* After mark the 'fop' as 'done' you must to free it calling @ref fop_free.
*/
void fop_done(FileOp *fop)
{
/* finally done */
ScopedLock lock(*fop->mutex);
fop->done = true;
}
void fop_stop(FileOp *fop)
{
ScopedLock lock(*fop->mutex);
if (!fop->done)
fop->stop = true;
}
void fop_free(FileOp *fop)
{
if (fop->seq.palette != NULL)
delete fop->seq.palette;
if (fop->mutex)
delete fop->mutex;
delete fop;
}
void fop_sequence_set_format_options(FileOp *fop, FormatOptions *format_options)
{
ASSERT(fop->seq.format_options == NULL);
fop->seq.format_options = format_options;
}
void fop_sequence_set_color(FileOp *fop, int index, int r, int g, int b)
{
fop->seq.palette->setEntry(index, _rgba(r, g, b, 255));
}
void fop_sequence_get_color(FileOp *fop, int index, int *r, int *g, int *b)
{
ase_uint32 c = fop->seq.palette->getEntry(index);
*r = _rgba_getr(c);
*g = _rgba_getg(c);
*b = _rgba_getb(c);
}
Image *fop_sequence_image(FileOp *fop, int imgtype, int w, int h)
{
Sprite* sprite;
// Create the image
if (!fop->sprite) {
sprite = new Sprite(imgtype, w, h, 256);
try {
LayerImage* layer = new LayerImage(sprite);
// Add the layer
sprite->getFolder()->add_layer(layer);
// Done
fop->sprite = sprite;
fop->seq.layer = layer;
}
catch (...) {
delete sprite;
throw;
}
}
else {
sprite = fop->sprite;
if (sprite->getImgType() != imgtype)
return NULL;
}
// Create a bitmap
if (fop->seq.last_cel) {
fop_error(fop, "Error: called two times \"fop_sequence_image()\".\n");
return NULL;
}
Image* image = image_new(imgtype, w, h);
if (!image) {
fop_error(fop, "Not enough memory to allocate a bitmap.\n");
return NULL;
}
fop->seq.image = image;
fop->seq.last_cel = cel_new(fop->seq.frame++, 0);
return image;
}
void fop_error(FileOp *fop, const char *format, ...)
{
char buf_error[4096];
va_list ap;
va_start(ap, format);
uvszprintf(buf_error, sizeof(buf_error), format, ap);
va_end(ap);
// Concatenate the new error
{
ScopedLock lock(*fop->mutex);
fop->error += buf_error;
}
}
void fop_progress(FileOp *fop, float progress)
{
/* rest(8); */
ScopedLock lock(*fop->mutex);
if (fop->is_sequence()) {
fop->progress =
fop->seq.progress_offset +
fop->seq.progress_fraction*progress;
}
else {
fop->progress = progress;
}
}
float fop_get_progress(FileOp *fop)
{
float progress;
{
ScopedLock lock(*fop->mutex);
progress = fop->progress;
}
return progress;
}
/**
* Returns true when the file operation finished, this means, when the
* 'fop_operate()' routine ends.
*/
bool fop_is_done(FileOp *fop)
{
bool done;
{
ScopedLock lock(*fop->mutex);
done = fop->done;
}
return done;
}
bool fop_is_stop(FileOp *fop)
{
bool stop;
{
ScopedLock lock(*fop->mutex);
stop = fop->stop;
}
return stop;
}
static FileOp *fop_new(FileOpType type)
{
FileOp *fop = new FileOp;
fop->type = type;
fop->format = NULL;
fop->sprite = NULL;
fop->mutex = new Mutex();
fop->progress = 0.0f;
fop->done = false;
fop->stop = false;
fop->oneframe = false;
fop->seq.palette = NULL;
fop->seq.image = NULL;
fop->seq.progress_offset = 0.0f;
fop->seq.progress_fraction = 0.0f;
fop->seq.frame = 0;
fop->seq.layer = NULL;
fop->seq.last_cel = NULL;
return fop;
}
static void fop_prepare_for_sequence(FileOp *fop)
{
fop->seq.palette = new Palette(0, 256);
fop->seq.format_options = NULL;
}
static FileFormat *get_fileformat(const char *extension)
{
FileFormatsList::iterator it = FileFormatsManager::instance().begin();
FileFormatsList::iterator end = FileFormatsManager::instance().end();
char buf[512], *tok;
for (; it != end; ++it) {
ustrcpy(buf, (*it)->extensions());
for (tok=ustrtok(buf, ","); tok;
tok=ustrtok(NULL, ",")) {
if (ustricmp(extension, tok) == 0)
return (*it);
}
}
return NULL;
}
/* splits a file-name like "my_ani0000.pcx" to "my_ani" and ".pcx",
returning the number of the center; returns "-1" if the function
can't split anything */
static int split_filename(const char *filename, char *left, char *right, int *width)
{
char *ptr, *ext;
char buf[16];
int chr, ret;
/* get the extension */
ext = get_extension(filename);
/* with extension */
if ((ext) && (*ext)) {
/* left side (the filename without the extension and without the '.') */
ext--;
*ext = 0;
ustrcpy(left, filename);
*ext = '.';
/* right side (the extension with the '.') */
ustrcpy(right, ext);
}
/* without extension (without right side) */
else {
ustrcpy(left, filename);
ustrcpy(right, empty_string);
}
/* remove all trailing numbers in the "left" side, and pass they to "buf" */
ptr = buf+9;
ptr[1] = 0;
ret = -1;
if (width)
*width = 0;
for (;;) {
chr = ugetat(left, -1);
if ((chr >= '0') && (chr <= '9')) {
ret = 0;
if (ptr >= buf) {
*(ptr--) = chr;
if (width)
(*width)++;
}
uremove(left, -1);
}
else
break;
}
/* convert the "buf" to integer and return it */
if (ret == 0) {
while (ptr >= buf)
*(ptr--) = '0';
ret = ustrtol(buf, NULL, 10);
}
return ret;
}
/**
* Reads a WORD (16 bits) using in little-endian byte ordering.
*/
int fgetw(FILE *file)
{
int b1, b2;
b1 = fgetc(file);
if (b1 == EOF)
return EOF;
b2 = fgetc(file);
if (b2 == EOF)
return EOF;
/* little endian */
return ((b2 << 8) | b1);
}
/**
* Reads a DWORD (32 bits) using in little-endian byte ordering.
*/
long fgetl(FILE *file)
{
int b1, b2, b3, b4;
b1 = fgetc(file);
if (b1 == EOF)
return EOF;
b2 = fgetc(file);
if (b2 == EOF)
return EOF;
b3 = fgetc(file);
if (b3 == EOF)
return EOF;
b4 = fgetc(file);
if (b4 == EOF)
return EOF;
/* little endian */
return ((b4 << 24) | (b3 << 16) | (b2 << 8) | b1);
}
/**
* Writes a word using in little-endian byte ordering.
*
* @return 0 in success or -1 in error
*/
int fputw(int w, FILE *file)
{
int b1, b2;
/* little endian */
b2 = (w & 0xFF00) >> 8;
b1 = w & 0x00FF;
if (fputc(b1, file) == b1)
if (fputc(b2, file) == b2)
return 0;
return -1;
}
/**
* Writes DWORD a using in little-endian byte ordering.
*
* @return 0 in success or -1 in error
*/
int fputl(long l, FILE *file)
{
int b1, b2, b3, b4;
/* little endian */
b4 = (int)((l & 0xFF000000L) >> 24);
b3 = (int)((l & 0x00FF0000L) >> 16);
b2 = (int)((l & 0x0000FF00L) >> 8);
b1 = (int)l & 0x00FF;
if (fputc(b1, file) == b1)
if (fputc(b2, file) == b2)
if (fputc(b3, file) == b3)
if (fputc(b4, file) == b4)
return 0;
return -1;
}