609 lines
14 KiB
C
609 lines
14 KiB
C
/* @(#) im_open: vips front end to file open functions
|
|
ARGS: filename and mode which is one of:
|
|
"r" read by mmap (im_mmapin)
|
|
"rw" read and write by mmap (im_mmapinrw)
|
|
"w" write for write (im_writeline)
|
|
"t" for temporary memory image
|
|
"p" for partial memory image
|
|
RETURNS: IMAGE pointer or 0 on error
|
|
Copyright: Kirk Martinez 29/5/92
|
|
|
|
Modified:
|
|
* 8/8/94 JC
|
|
* - ANSIfied
|
|
* - im_open_local added
|
|
* 16/8/94 JC
|
|
* - im_malloc() added
|
|
* 22/11/94 JC & KM
|
|
* - tiff added
|
|
* 1/2/95 JC
|
|
* - tiff removed again!
|
|
* - now just im_istiff(), im_tiff2vips() and im_vips2tiff()
|
|
* - applications have responsibility for making the translation
|
|
* 26/3/96 JC
|
|
* - im_open_local() now closes on close, not evalend
|
|
* 14/11/96 JC
|
|
* - tiff and jpeg added again
|
|
* - open for read used im_istiff() and im_isjpeg() to switch
|
|
* - open for write looks at suffix
|
|
* 23/4/97 JC
|
|
* - im_strdup() now allows NULL IMAGE parameter
|
|
* - subsample parameter added to im_tiff2vips()
|
|
* 29/10/98 JC
|
|
* - byte-swap stuff added
|
|
* 16/6/99 JC
|
|
* - 8x byte swap added for double/double complex
|
|
* - better error message if file does not exist
|
|
* - ignore case when testing suffix for save
|
|
* - fix im_mmapinrw() return test to stop coredump in edvips if
|
|
* unwritable
|
|
* 2/11/99 JC
|
|
* - malloc/strdup stuff moved to memory.c
|
|
* 5/8/00 JC
|
|
* - fixes for im_vips2tiff() changes
|
|
* 13/10/00 JC
|
|
* - ooops, missing 'else'
|
|
* 22/11/00 JC
|
|
* - ppm read/write added
|
|
* 12/2/01 JC
|
|
* - im__image_sanity() added
|
|
* 16/5/01 JC
|
|
* - now allows RW for non-native byte order, provided it's an 8-bit
|
|
* image
|
|
* 11/7/01 JC
|
|
* - im_tiff2vips() no longer has subsample option
|
|
* 25/3/02 JC
|
|
* - better im_open() error message
|
|
* 12/12/02 JC
|
|
* - sanity no longer returns errors, just warns
|
|
* 28/12/02 HB
|
|
* - Added PNG support
|
|
* 6/5/03 JC
|
|
* - added im_open_header() (from header.c)
|
|
* 22/5/03 JC
|
|
* - im__skip_dir() knows about ':' in filenames for vips2tiff etc.
|
|
* 27/11/03 JC
|
|
* - im_image_sanity() now insists x/y/bands all >0
|
|
* 6/1/04 JC
|
|
* - moved util funcs out to util.c
|
|
* 18/2/04 JC
|
|
* - added an im_init_world() to help old progs
|
|
* 16/4/04
|
|
* - oop, im_open() didn't know about input options in filenames
|
|
* 2/11/04
|
|
* - im_open( "r" ) is now lazier ... for non-VIPS formats, we delay
|
|
* read until the first ->generate()
|
|
* - so im_open_header() is now a no-op
|
|
* 22/6/05
|
|
* - if TIFF open fails, try going through libmagick
|
|
* 4/8/05
|
|
* - added analyze read
|
|
* 30/9/05
|
|
* - oops, lazy read error recovery didn't clear a pointer
|
|
* 1/5/06
|
|
* - added OpenEXR read
|
|
* 9/6/06
|
|
* - added CSV read/write
|
|
* 20/9/06
|
|
* - test for NULL filename/mode, common if you forget to check argc
|
|
* (thanks bruno)
|
|
*/
|
|
|
|
/*
|
|
|
|
This file is part of VIPS.
|
|
|
|
VIPS is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU Lesser 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 Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser 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
|
|
|
|
*/
|
|
|
|
/*
|
|
|
|
These files are distributed with VIPS - http://www.vips.ecs.soton.ac.uk
|
|
|
|
*/
|
|
|
|
/*
|
|
#define DEBUG_IO
|
|
*/
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include <config.h>
|
|
#endif /*HAVE_CONFIG_H*/
|
|
#include <vips/intl.h>
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
|
|
#include <vips/vips.h>
|
|
#include <vips/debug.h>
|
|
|
|
#ifdef WITH_DMALLOC
|
|
#include <dmalloc.h>
|
|
#endif /*WITH_DMALLOC*/
|
|
|
|
/* Suffix sets.
|
|
*/
|
|
static const char *im_suffix_vips[] = {
|
|
"v", "",
|
|
NULL
|
|
};
|
|
static const char *im_suffix_tiff[] = {
|
|
"tif", "tiff",
|
|
NULL
|
|
};
|
|
static const char *im_suffix_jpeg[] = {
|
|
"jpeg", "jpg", "jfif", "jpe",
|
|
NULL
|
|
};
|
|
static const char *im_suffix_ppm[] = {
|
|
"ppm", "pbm", "pgm",
|
|
NULL
|
|
};
|
|
static const char *im_suffix_png[] = {
|
|
"png",
|
|
NULL
|
|
};
|
|
static const char *im_suffix_csv[] = {
|
|
"csv",
|
|
NULL
|
|
};
|
|
|
|
/* Open a VIPS image and byte-swap the image data if necessary.
|
|
*/
|
|
static IMAGE *
|
|
read_vips( const char *filename )
|
|
{
|
|
IMAGE *im, *im2;
|
|
|
|
if( !(im = im_init( filename )) )
|
|
return( NULL );
|
|
if( im_openin( im ) ) {
|
|
im_close( im );
|
|
return( NULL );
|
|
}
|
|
|
|
/* Already in native format?
|
|
*/
|
|
if( im_isMSBfirst( im ) == im_amiMSBfirst() )
|
|
return( im );
|
|
|
|
/* Not native ... but maybe does not need swapping?
|
|
*/
|
|
if( im->Coding == IM_CODING_LABQ )
|
|
return( im );
|
|
if( im->Coding != IM_CODING_NONE ) {
|
|
im_close( im );
|
|
im_error( "im_open", _( "unknown coding type" ) );
|
|
return( NULL );
|
|
}
|
|
if( im->BandFmt == IM_BANDFMT_CHAR || im->BandFmt == IM_BANDFMT_UCHAR )
|
|
return( im );
|
|
|
|
/* Needs swapping :( make a little pipeline up to do this for us.
|
|
*/
|
|
if( !(im2 = im_open( filename, "p" )) )
|
|
return( NULL );
|
|
if( im_add_close_callback( im2,
|
|
(im_callback_fn) im_close, im, NULL ) ) {
|
|
im_close( im );
|
|
im_close( im2 );
|
|
return( NULL );
|
|
}
|
|
if( im_copy_swap( im, im2 ) ) {
|
|
im_close( im2 );
|
|
return( NULL );
|
|
}
|
|
|
|
return( im2 );
|
|
}
|
|
|
|
/* Delayed save: if we write to TIFF or to JPEG format, actually do the write
|
|
* to a "p" and on evalend do im_vips2tiff() or whatever. Track save
|
|
* parameters here.
|
|
*/
|
|
typedef struct {
|
|
int (*save_fn)(); /* Save function */
|
|
IMAGE *im; /* Image to save */
|
|
char *filename; /* Save args */
|
|
} SaveBlock;
|
|
|
|
/* From evalend callback: invoke a delayed save.
|
|
*/
|
|
static int
|
|
invoke_sb( SaveBlock *sb )
|
|
{
|
|
if( sb->save_fn( sb->im, sb->filename ) )
|
|
return( -1 );
|
|
|
|
return( 0 );
|
|
}
|
|
|
|
/* Attach a SaveBlock to an image.
|
|
*/
|
|
static int
|
|
attach_sb( IMAGE *out, int (*save_fn)(), const char *filename )
|
|
{
|
|
SaveBlock *sb = IM_NEW( out, SaveBlock );
|
|
|
|
if( !sb )
|
|
return( -1 );
|
|
sb->im = out;
|
|
sb->save_fn = save_fn;
|
|
sb->filename = im_strdup( out, filename );
|
|
|
|
if( im_add_evalend_callback( out,
|
|
(im_callback_fn) invoke_sb, (void *) sb, NULL ) )
|
|
return( -1 );
|
|
|
|
return( 0 );
|
|
}
|
|
|
|
/* Lazy open: init a descriptor from a filename (just read the header) but
|
|
* delay actually decoding pixels until the first call to a start function.
|
|
*/
|
|
|
|
typedef int (*OpenLazyFn)( const char *filename, IMAGE *im );
|
|
|
|
/* What we track during a delayed open.
|
|
*/
|
|
typedef struct _OpenLazy {
|
|
char *filename;
|
|
|
|
OpenLazyFn read_pixels; /* Read in pixels with this */
|
|
IMAGE *lazy_im; /* Image we read to .. copy from this */
|
|
} OpenLazy;
|
|
|
|
/* Our start function ... do the lazy open, if necessary, and return a region
|
|
* on the new image.
|
|
*/
|
|
static void *
|
|
open_lazy_start( IMAGE *out, void *a, void *dummy )
|
|
{
|
|
OpenLazy *lazy = (OpenLazy *) a;
|
|
|
|
if( !lazy->lazy_im ) {
|
|
if( !(lazy->lazy_im = im_open_local( out, "olstart", "p" )) ||
|
|
lazy->read_pixels( lazy->filename, lazy->lazy_im ) ) {
|
|
IM_FREEF( im_close, lazy->lazy_im );
|
|
return( NULL );
|
|
}
|
|
}
|
|
|
|
return( im_region_create( lazy->lazy_im ) );
|
|
}
|
|
|
|
/* Just copy.
|
|
*/
|
|
static int
|
|
open_lazy_generate( REGION *or, void *seq, void *a, void *b )
|
|
{
|
|
REGION *ir = (REGION *) seq;
|
|
|
|
Rect *r = &or->valid;
|
|
|
|
/* Ask for input we need.
|
|
*/
|
|
if( im_prepare( ir, r ) )
|
|
return( -1 );
|
|
|
|
/* Attach output region to that.
|
|
*/
|
|
if( im_region_region( or, ir, r, r->left, r->top ) )
|
|
return( -1 );
|
|
|
|
return( 0 );
|
|
}
|
|
|
|
/* Lazy open ... init the header with the first OpenLazyFn, delay actually
|
|
* decoding pixels with the second OpenLazyFn until the first generate().
|
|
*/
|
|
static int
|
|
open_lazy( OpenLazyFn read_header, OpenLazyFn read_pixels,
|
|
const char *filename, IMAGE *out )
|
|
{
|
|
OpenLazy *lazy = IM_NEW( out, OpenLazy );
|
|
|
|
if( !lazy ||
|
|
!(lazy->filename = im_strdup( out, filename )) )
|
|
return( -1 );
|
|
lazy->read_pixels = read_pixels;
|
|
lazy->lazy_im = NULL;
|
|
|
|
if( read_header( filename, out ) )
|
|
return( -1 );
|
|
|
|
if( im_generate( out,
|
|
open_lazy_start, open_lazy_generate, im_stop_one,
|
|
lazy, NULL ) )
|
|
return( -1 );
|
|
|
|
return( 0 );
|
|
}
|
|
|
|
static IMAGE *
|
|
open_sub( OpenLazyFn read_header, OpenLazyFn read_pixels, const char *filename )
|
|
{
|
|
IMAGE *im;
|
|
|
|
if( !(im = im_open( filename, "p" )) ||
|
|
open_lazy( read_header, read_pixels, filename, im ) ) {
|
|
im_close( im );
|
|
return( NULL );
|
|
}
|
|
|
|
return( im );
|
|
}
|
|
|
|
IMAGE *
|
|
im_open( const char *filename, const char *mode )
|
|
{
|
|
IMAGE *im;
|
|
|
|
/* Pass in a nonsense name for argv0 ... this init world is only here
|
|
* for old programs which are missing an im_init_world() call. We must
|
|
* have threads set up before we can process.
|
|
*/
|
|
if( im_init_world( "vips" ) )
|
|
im_error_clear();
|
|
|
|
if( !filename || !mode ) {
|
|
im_error( "im_open", _( "NULL filename or mode" ) );
|
|
return( NULL );
|
|
}
|
|
|
|
switch( mode[0] ) {
|
|
case 'r':
|
|
{
|
|
char name[FILENAME_MAX];
|
|
char options[FILENAME_MAX];
|
|
|
|
/* Break any options off the name ... eg. "fred.tif:jpeg,tile"
|
|
* etc.
|
|
*/
|
|
im_filename_split( filename, name, options );
|
|
|
|
/* Check for other formats.
|
|
|
|
FIXME ... should have a table to avoid all this
|
|
repetition
|
|
|
|
*/
|
|
if( !im_existsf( "%s", name ) ) {
|
|
im_error( "im_open",
|
|
_( "\"%s\" is not readable" ), name );
|
|
return( NULL );
|
|
}
|
|
else if( im_istiff( name ) ) {
|
|
/* If TIFF open fails, try going through libmagick.
|
|
*/
|
|
if( !(im = open_sub(
|
|
im_tiff2vips_header, im_tiff2vips,
|
|
filename )) &&
|
|
!(im = open_sub(
|
|
im_magick2vips_header, im_magick2vips,
|
|
filename )) )
|
|
return( NULL );
|
|
}
|
|
else if( im_isjpeg( name ) ) {
|
|
if( !(im = open_sub(
|
|
im_jpeg2vips_header, im_jpeg2vips, filename )) )
|
|
return( NULL );
|
|
}
|
|
else if( im_isexr( name ) ) {
|
|
if( !(im = open_sub(
|
|
im_exr2vips_header, im_exr2vips, filename )) )
|
|
return( NULL );
|
|
}
|
|
else if( im_isppm( name ) ) {
|
|
if( !(im = open_sub(
|
|
im_ppm2vips_header, im_ppm2vips, filename )) )
|
|
return( NULL );
|
|
}
|
|
else if( im_ispng( name ) ) {
|
|
if( !(im = open_sub(
|
|
im_png2vips_header, im_png2vips, filename )) )
|
|
return( NULL );
|
|
}
|
|
else if( im_filename_suffix_match( name, im_suffix_csv ) ) {
|
|
if( !(im = open_sub(
|
|
im_csv2vips_header, im_csv2vips, filename )) )
|
|
return( NULL );
|
|
}
|
|
else if( im_isvips( name ) ) {
|
|
if( mode[1] == 'w' ) {
|
|
/* Has to be native format for >8 bits.
|
|
*/
|
|
if( !(im = im_init( filename )) )
|
|
return( NULL );
|
|
if( im_openinrw( im ) ) {
|
|
im_close( im );
|
|
return( NULL );
|
|
}
|
|
if( im->Bbits != IM_BBITS_BYTE &&
|
|
im_isMSBfirst( im ) !=
|
|
im_amiMSBfirst() ) {
|
|
im_close( im );
|
|
im_error( "im_open", _( "open for read-"
|
|
"write for native format "
|
|
"images only" ) );
|
|
return( NULL );
|
|
}
|
|
}
|
|
else
|
|
im = read_vips( filename );
|
|
}
|
|
else if( im_isanalyze( name ) ) {
|
|
if( !(im = open_sub(
|
|
im_analyze2vips_header, im_analyze2vips,
|
|
filename )) )
|
|
return( NULL );
|
|
}
|
|
else if( im_ismagick( name ) ) {
|
|
/* Have this last as it can be very slow to detect
|
|
* failure.
|
|
*/
|
|
if( !(im = open_sub(
|
|
im_magick2vips_header, im_magick2vips,
|
|
filename )) )
|
|
return( NULL );
|
|
}
|
|
else {
|
|
im_error( "im_open", _( "\"%s\" is not "
|
|
"a supported format" ), filename );
|
|
return( NULL );
|
|
}
|
|
}
|
|
|
|
break;
|
|
|
|
case 'w':
|
|
/* Look at the suffix for format write.
|
|
*/
|
|
if( im_filename_suffix_match( filename, im_suffix_vips ) )
|
|
im = im_openout( filename );
|
|
else if( im_filename_suffix_match( filename,
|
|
im_suffix_tiff ) ) {
|
|
/* TIFF write. Save to a partial, and on evalend
|
|
* im_vips2tiff from that.
|
|
*/
|
|
if( !(im = im_open( "im_open:vips2tiff:1", "p" )) )
|
|
return( NULL );
|
|
if( attach_sb( im, im_vips2tiff, filename ) ) {
|
|
im_close( im );
|
|
return( NULL );
|
|
}
|
|
}
|
|
else if( im_filename_suffix_match( filename,
|
|
im_suffix_jpeg ) ) {
|
|
/* JPEG write.
|
|
*/
|
|
if( !(im = im_open( "im_open:vips2jpeg:1", "p" )) )
|
|
return( NULL );
|
|
if( attach_sb( im, im_vips2jpeg, filename ) ) {
|
|
im_close( im );
|
|
return( NULL );
|
|
}
|
|
}
|
|
else if( im_filename_suffix_match( filename, im_suffix_ppm ) ) {
|
|
/* ppm write.
|
|
*/
|
|
if( !(im = im_open( "im_open:vips2ppm:1", "p" )) )
|
|
return( NULL );
|
|
if( attach_sb( im, im_vips2ppm, filename ) ) {
|
|
im_close( im );
|
|
return( NULL );
|
|
}
|
|
}
|
|
else if( im_filename_suffix_match( filename, im_suffix_png ) ) {
|
|
/* png write.
|
|
*/
|
|
if( !(im = im_open( "im_open:vips2png:1", "p" )) )
|
|
return( NULL );
|
|
if( attach_sb( im, im_vips2png, filename ) ) {
|
|
im_close( im );
|
|
return( NULL );
|
|
}
|
|
}
|
|
else if( im_filename_suffix_match( filename, im_suffix_csv ) ) {
|
|
/* csv write.
|
|
*/
|
|
if( !(im = im_open( "im_open:vips2csv:1", "p" )) )
|
|
return( NULL );
|
|
if( attach_sb( im, im_vips2csv, filename ) ) {
|
|
im_close( im );
|
|
return( NULL );
|
|
}
|
|
}
|
|
else {
|
|
im_error( "im_open", _( "unknown suffix for save" ) );
|
|
return( NULL );
|
|
}
|
|
break;
|
|
|
|
case 't':
|
|
im = im_setbuf( filename );
|
|
break;
|
|
|
|
case 'p':
|
|
im = im_partial( filename );
|
|
break;
|
|
|
|
default:
|
|
/* Getting here means bad mode
|
|
*/
|
|
im_error( "im_open", _( "bad mode \"%s\"" ), mode );
|
|
return( NULL );
|
|
}
|
|
|
|
#ifdef DEBUG_IO
|
|
printf( "im_open: success for %s (%p)\n", im->filename, im );
|
|
#endif /*DEBUG_IO*/
|
|
|
|
return( im );
|
|
}
|
|
|
|
/* Test an image for sanity. We could add many more tests here.
|
|
*/
|
|
static const char *
|
|
image_sanity( IMAGE *im )
|
|
{
|
|
if( !im )
|
|
return( "NULL descriptor" );
|
|
if( !im->filename )
|
|
return( "NULL filename" );
|
|
if( !g_slist_find( im__open_images, im ) )
|
|
return( "not on open image list" );
|
|
|
|
if( im->Xsize <= 0 || im->Ysize <= 0 || im->Bands <= 0 )
|
|
return( "bad dimensions" );
|
|
if( im->BandFmt < -1 || im->BandFmt > IM_BANDFMT_DPCOMPLEX ||
|
|
(im->Coding != -1 &&
|
|
im->Coding != IM_CODING_NONE &&
|
|
im->Coding != IM_CODING_LABQ) ||
|
|
im->Type < -1 || im->Type > IM_TYPE_GREY16 ||
|
|
im->dtype > IM_PARTIAL || im->dhint > IM_ANY )
|
|
return( "bad enum value" );
|
|
if( im->Xres < 0 || im->Xres < 0 )
|
|
return( "bad resolution" );
|
|
|
|
return( NULL );
|
|
}
|
|
|
|
int
|
|
im_image_sanity( IMAGE *im )
|
|
{
|
|
const char *msg;
|
|
|
|
if( (msg = image_sanity( im )) ) {
|
|
im_warn( "im_image_sanity", "\"%s\" (%p) %s",
|
|
im ? (im->filename ? im->filename : "") : "",
|
|
im, msg );
|
|
im_printdesc( im );
|
|
}
|
|
|
|
return( 0 );
|
|
}
|
|
|
|
/* Just here for compatibility.
|
|
*/
|
|
IMAGE *
|
|
im_open_header( const char *file )
|
|
{
|
|
return( im_open( file, "r" ) );
|
|
}
|