correct the type of the im_decode_exif() data parameter
[imager.git] / TIFF / TIFF.pm
1 package Imager::File::TIFF;
2 use strict;
3 use Imager;
4 use vars qw($VERSION @ISA);
5
6 BEGIN {
7   $VERSION = "0.91";
8
9   require XSLoader;
10   XSLoader::load('Imager::File::TIFF', $VERSION);
11 }
12
13 Imager->register_reader
14   (
15    type=>'tiff',
16    single => 
17    sub { 
18      my ($im, $io, %hsh) = @_;
19
20      my $allow_incomplete = $hsh{allow_incomplete};
21      defined $allow_incomplete or $allow_incomplete = 0;
22
23      my $page = $hsh{page};
24      defined $page or $page = 0;
25      $im->{IMG} = i_readtiff_wiol($io, $allow_incomplete, $page);
26
27      unless ($im->{IMG}) {
28        $im->_set_error(Imager->_error_as_msg);
29        return;
30      }
31
32      return $im;
33    },
34    multiple =>
35    sub {
36      my ($io, %hsh) = @_;
37
38      my @imgs = i_readtiff_multi_wiol($io);
39      unless (@imgs) {
40        Imager->_set_error(Imager->_error_as_msg);
41        return;
42      }
43
44      return map bless({ IMG => $_, ERRSTR => undef }, "Imager"), @imgs;
45    },
46   );
47
48 Imager->register_writer
49   (
50    type=>'tiff',
51    single => 
52    sub { 
53      my ($im, $io, %hsh) = @_;
54
55      $im->_set_opts(\%hsh, "i_", $im);
56      $im->_set_opts(\%hsh, "tiff_", $im);
57      $im->_set_opts(\%hsh, "exif_", $im);
58
59      if (defined $hsh{class} && $hsh{class} eq "fax") {
60        my $fax_fine = $hsh{fax_fine};
61        defined $fax_fine or $fax_fine = 1;
62        if (!i_writetiff_wiol_faxable($im->{IMG}, $io, $fax_fine)) {
63          $im->{ERRSTR} = Imager->_error_as_msg();
64          return undef;
65        }
66      }
67      else {
68        unless (i_writetiff_wiol($im->{IMG}, $io)) {
69          $im->_set_error(Imager->_error_as_msg);
70          return;
71        }
72      }
73      return $im;
74    },
75    multiple =>
76    sub {
77      my ($class, $io, $opts, @ims) = @_;
78
79      Imager->_set_opts($opts, "tiff_", @ims);
80      Imager->_set_opts($opts, "exif_", @ims);
81
82      my @work = map $_->{IMG}, @ims;
83      my $tiff_class = $opts->{class};
84      defined $tiff_class or $tiff_class = "";
85
86      my $result;
87      if ($tiff_class eq "fax") {
88        my $fax_fine = $opts->{fax_fine};
89        defined $fax_fine or $fax_fine = 1;
90        $result = i_writetiff_multi_wiol_faxable($io, $fax_fine, @work);
91      }
92      else {
93        $result = i_writetiff_multi_wiol($io, @work);
94      }
95      unless ($result) {
96        $class->_set_error($class->_error_as_msg);
97        return;
98      }
99
100      return 1;
101    },
102   );
103
104 __END__
105
106 =head1 NAME
107
108 Imager::File::TIFF - read and write TIFF files
109
110 =head1 SYNOPSIS
111
112   use Imager;
113
114   my $img = Imager->new;
115   $img->read(file=>"foo.tiff")
116     or die $img->errstr;
117
118   $img->write(file => "foo.tif")
119     or die $img->errstr;
120
121 =head1 DESCRIPTION
122
123 Imager's TIFF support is documented in L<Imager::Files>.
124
125 =head1 AUTHOR
126
127 Tony Cook <tonyc@cpan.org>
128
129 =head1 SEE ALSO
130
131 Imager, Imager::Files.
132
133 =cut