You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
libksquirrel/kernel/kls_xcf/xcf2pnm/utils.c

165 lines
4.0 KiB

/* Generic support functions for Xcftools
*
* Copyright (C) 2006 Henning Makholm
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of version 2 of the GNU General Public License as
* published by the Free Software Foundation.
*
* 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
*/
#include "xcftools.h"
#include <string.h>
#include <stdarg.h>
#include <stdlib.h>
#include <errno.h>
const char *progname = "$0" ;
int verboseFlag = 0 ;
static void __ATTRIBUTE__((noreturn))
vFatalGeneric(int status,const char *format,va_list args)
{
if( format ) {
if( *format == '!' ) {
vfprintf(stderr,format+1,args);
fprintf(stderr,": %s\n",strerror(errno));
} else {
vfprintf(stderr,format,args);
fputc('\n',stderr);
}
}
exit(status);
}
void
FatalGeneric(int status,const char* format,...)
{
va_list v; va_start(v,format);
if( format ) fprintf(stderr,"%s: ",progname);
vFatalGeneric(status,format,v);
}
void
FatalUnexpected(const char* format,...)
{
va_list v; va_start(v,format);
fprintf(stderr,"%s: ",progname);
vFatalGeneric(127,format,v) ;
}
void
FatalBadXCF(const char* format,...)
{
va_list v; va_start(v,format);
fprintf(stderr,"%s: %s:\n ",progname,_("Corrupted or malformed XCF file"));
vFatalGeneric(125,format,v) ;
}
void
xcfCheckspace(uint32_t addr,int spaceafter,const char *format,...)
{
if( xcf_length < spaceafter || addr > xcf_length - spaceafter ) {
va_list v; va_start(v,format);
fprintf(stderr,"%s: %s\n ",progname,_("Corrupted or truncated XCF file"));
fprintf(stderr,"(0x%" PRIXPTR " bytes): ",(uintptr_t)xcf_length);
vFatalGeneric(125,format,v) ;
}
}
void
FatalUnsupportedXCF(const char* format,...)
{
va_list v; va_start(v,format);
fprintf(stderr,"%s: %s\n ",progname,
_("The image contains features not understood by this program:"));
vFatalGeneric(123,format,v) ;
}
void
gpl_blurb(void)
{
fprintf(stderr,PACKAGE_STRING "\n");
fprintf(stderr,
_("This program is free software; you can modify and distribute it\n"
"under the terms of the GNU General Public License, version 2.\n"
"There is no warranty for %s.\n\n"),
PACKAGE_NAME);
fprintf(stderr,
_("Type \"%s -h\" to get an option summary.\n"),progname);
exit(1) ;
}
/* ******************************************************* */
void *
xcfmalloc(size_t size)
{
void *ptr = malloc(size);
if( !ptr )
FatalUnexpected(_("Out of memory"));
return ptr ;
}
void
xcffree(void *block)
{
if( xcf_file &&
(uint8_t*)block >= xcf_file &&
(uint8_t*)block < xcf_file + xcf_length )
;
else
free(block);
}
/* ******************************************************* */
FILE *
openout(const char *name)
{
FILE *newfile ;
if( strcmp(name,"-") == 0 )
return stdout ;
newfile = fopen(name,"wb") ;
if( newfile == NULL )
FatalUnexpected(_("!Cannot create file %s"),name);
return newfile ;
}
void
closeout(FILE *f,const char *name)
{
if( f == NULL )
return ;
if( fflush(f) == 0 ) {
errno = 0 ;
if( !ferror(f) ) {
if( fclose(f) == 0 )
return ;
} else if( errno == 0 ) {
/* Attempt to coax a valid errno out of the standard library,
* following an idea by Bruno Haible
* http://lists.gnu.org/archive/html/bug-gnulib/2003-09/msg00157.html
*/
if( fputc('\0', f) != EOF &&
fflush(f) == 0 )
errno = EIO ; /* Argh, everything succeds. Just call it an I/O error */
}
}
FatalUnexpected(_("!Error writing file %s"),name);
}