mini_exiftool_vendored 8.9.7.v2 → 9.2.7.v1

data/vendor/Image-ExifTool-8.97/lib/Image/ExifTool/DV.pm

@@ -1,319 +0,0 @@
-#------------------------------------------------------------------------------
-# File:         DV.pm
-#
-# Description:  Read DV meta information
-#
-# Revisions:    2010/12/24 - P. Harvey Created
-#
-# References:   1) http://www.ffmpeg.org/
-#               2) http://dvswitch.alioth.debian.org/wiki/DV_format/
-#------------------------------------------------------------------------------
-
-package Image::ExifTool::DV;
-
-use strict;
-use vars qw($VERSION);
-use Image::ExifTool qw(:DataAccess :Utils);
-
-$VERSION = '1.00';
-
-# DV profiles (ref 1)
-my @dvProfiles = (
-    {
-        DSF => 0,
-        VideoSType => 0x0,
-        FrameSize => 120000,
-        VideoFormat => 'IEC 61834, SMPTE-314M - 525/60 (NTSC)',
-        VideoScanType => 'Progressive',
-        Colorimetry => '4:1:1',
-        FrameRate => 30000/1001,
-        ImageHeight => 480,
-        ImageWidth => 720,
-    },{
-        DSF => 1,
-        VideoSType => 0x0,
-        FrameSize => 144000,
-        VideoFormat => 'IEC 61834 - 625/50 (PAL)',
-        VideoScanType => 'Progressive',
-        Colorimetry => '4:2:0',
-        FrameRate => 25/1,
-        ImageHeight => 576,
-        ImageWidth => 720,
-    },{
-        DSF => 1,
-        VideoSType => 0x0,
-        FrameSize => 144000,
-        VideoFormat => 'SMPTE-314M - 625/50 (PAL)',
-        VideoScanType => 'Progressive',
-        Colorimetry => '4:1:1',
-        FrameRate => 25/1,
-        ImageHeight => 576,
-        ImageWidth => 720,
-    },{
-        DSF => 0,
-        VideoSType => 0x4,
-        FrameSize => 240000,
-        VideoFormat => 'DVCPRO50: SMPTE-314M - 525/60 (NTSC) 50 Mbps',
-        VideoScanType => 'Progressive',
-        Colorimetry => '4:2:2',
-        FrameRate => 30000/1001,
-        ImageHeight => 480,
-        ImageWidth => 720,
-    },{
-        DSF => 1,
-        VideoSType => 0x4,
-        FrameSize => 288000,
-        VideoFormat => 'DVCPRO50: SMPTE-314M - 625/50 (PAL) 50 Mbps',
-        VideoScanType => 'Progressive',
-        Colorimetry => '4:2:2',
-        FrameRate => 25/1,
-        ImageHeight => 576,
-        ImageWidth => 720,
-    },{
-        DSF => 0,
-        VideoSType => 0x14,
-        FrameSize => 480000,
-        VideoFormat => 'DVCPRO HD: SMPTE-370M - 1080i60 100 Mbps',
-        VideoScanType => 'Interlaced',
-        Colorimetry => '4:2:2',
-        FrameRate => 30000/1001,
-        ImageHeight => 1080,
-        ImageWidth => 1280,
-    },{
-        DSF => 1,
-        VideoSType => 0x14,
-        FrameSize => 576000,
-        VideoFormat => 'DVCPRO HD: SMPTE-370M - 1080i50 100 Mbps',
-        VideoScanType => 'Interlaced',
-        Colorimetry => '4:2:2',
-        FrameRate => 25/1,
-        ImageHeight => 1080,
-        ImageWidth => 1440,
-    },{
-        DSF => 0,
-        VideoSType => 0x18,
-        FrameSize => 240000,
-        VideoFormat => 'DVCPRO HD: SMPTE-370M - 720p60 100 Mbps',
-        VideoScanType => 'Progressive',
-        Colorimetry => '4:2:2',
-        FrameRate => 60000/1001,
-        ImageHeight => 720,
-        ImageWidth => 960,
-    },{
-        DSF => 1,
-        VideoSType => 0x18,
-        FrameSize => 288000,
-        VideoFormat => 'DVCPRO HD: SMPTE-370M - 720p50 100 Mbps',
-        VideoScanType => 'Progressive',
-        Colorimetry => '4:2:2',
-        FrameRate => 50/1,
-        ImageHeight => 720,
-        ImageWidth => 960,
-    },{
-        DSF => 1,
-        VideoSType => 0x1,
-        FrameSize => 144000,
-        VideoFormat => 'IEC 61883-5 - 625/50 (PAL)',
-        VideoScanType => 'Progressive',
-        Colorimetry => '4:2:0',
-        FrameRate => 25/1,
-        ImageHeight => 576,
-        ImageWidth => 720,
-    },
-);
-
-# tags to extract, in the order we want to extract them
-my @dvTags = (
-    'DateTimeOriginal', 'ImageWidth',  'ImageHeight',   'Duration',
-    'TotalBitrate',     'VideoFormat', 'VideoScanType', 'FrameRate',
-    'AspectRatio',      'Colorimetry', 'AudioChannels', 'AudioSampleRate',
-    'AudioBitsPerSample',
-);
-
-# DV tags
-%Image::ExifTool::DV::Main = (
-    GROUPS => { 2 => 'Video' },
-    VARS => { NO_ID => 1 },
-    NOTES => 'The following tags are extracted from DV videos.',
-    DateTimeOriginal => {
-        Groups => { 2 => 'Time' },
-        PrintConv => '$self->ConvertDateTime($val)',
-    },
-    ImageWidth         => { },
-    ImageHeight        => { },
-    Duration           => { PrintConv => 'ConvertDuration($val)' },
-    TotalBitrate       => { PrintConv => 'ConvertBitrate($val)' },
-    VideoFormat        => { },
-    VideoScanType      => { },
-    FrameRate          => { PrintConv => 'int($val * 1000 + 0.5) / 1000' },
-    AspectRatio        => { },
-    Colorimetry        => { },
-    AudioChannels      => { Groups => { 2 => 'Audio' } },
-    AudioSampleRate    => { Groups => { 2 => 'Audio' } },
-    AudioBitsPerSample => { Groups => { 2 => 'Audio' } },
-);
-
-#------------------------------------------------------------------------------
-# Read information in a DV file (ref 1)
-# Inputs: 0) ExifTool ref, 1) dirInfo ref
-# Returns: 1 on success, 0 if this wasn't a valid DV file
-sub ProcessDV($$)
-{
-    my ($exifTool, $dirInfo) = @_;
-    local $_;
-    my $raf = $$dirInfo{RAF};
-    my ($buff, $start, $profile, $tag, $i, $j);
-
-    $raf->Read($buff, 12000) or return 0;
-    if ($buff =~ /\x1f\x07\0[\x3f\xbf]/sg) {
-        $start = pos($buff) - 4;
-    } else {
-        while ($buff =~ /[\0\xff]\x3f\x07\0.{76}\xff\x3f\x07\x01/sg) {
-            next if pos($buff) - 163 < 0;
-            $start = pos($buff) - 163;
-            last;
-        }
-        return 0 unless defined $start;
-    }
-    my $len = length $buff;
-    # must at least have a full DIF header
-    return 0 if $start + 80 * 6 > $len;
-
-    $exifTool->SetFileType();
-
-    my $pos = $start;
-    my $dsf = Get8u(\$buff, $pos + 3) & 0x80 >> 7;
-    my $stype = Get8u(\$buff, $pos + 80*5 + 48 + 3) & 0x1f;
-
-    # 576i50 25Mbps 4:1:1 is a special case
-    if ($dsf == 1 && $stype == 0 && Get8u(\$buff, 4) & 0x07) {
-        $profile = $dvProfiles[2];
-    } else {
-        foreach (@dvProfiles) {
-            next unless $dsf == $$_{DSF} and $stype == $$_{VideoSType};
-            $profile = $_;
-            last;
-        }
-        $profile or $exifTool->Warn("Unrecognized DV profile"), return 1;
-    }
-    my $tagTablePtr = GetTagTable('Image::ExifTool::DV::Main');
-
-    # calculate total bit rate and duration
-    my $byteRate = $$profile{FrameSize} * $$profile{FrameRate};
-    my $fileSize = $$exifTool{VALUE}{FileSize};
-    $$profile{TotalBitrate} = 8 * $byteRate;
-    $$profile{Duration} = $fileSize / $byteRate if defined $fileSize;
-
-    # read DVPack metadata from the VAUX DIF's to extract video tags
-    delete $$profile{DateTimeOriginal};
-    delete $$profile{AspectRatio};
-    my ($date, $time, $is16_9);
-    for ($i=1; $i<6; ++$i) {
-        $pos += 80;
-        my $type = Get8u(\$buff, $pos);
-        next unless ($type & 0xf0) == 0x50;   # look for VAUX types
-        for ($j=0; $j<15; ++$j) {
-            my $p = $pos + $j * 5 + 3;
-            $type = Get8u(\$buff, $p);
-            if ($type == 0x61) { # video control
-                my $apt = Get8u(\$buff, $start + 4) & 0x07;
-                my $t = Get8u(\$buff, $p + 2);
-                $is16_9 = (($t & 0x07) == 0x02 or (not $apt and ($t & 0x07) == 0x07));
-            } elsif ($type == 0x62) { # date
-                # mask off unused bits
-                my @d = unpack('C*', substr($buff, $p + 1, 4));
-                # (ignore timezone in byte 0 until we can test this properly - see ref 2)
-                $date = sprintf('%.2x:%.2x:%.2x', $d[3], $d[2] & 0x1f, $d[1] & 0x3f);
-                if ($date =~ /[a-f]/) {
-                    undef $date;    # invalid date
-                } else {
-                    # add century (this will work until 2089)
-                    $date = ($date lt '9' ? '20' : '19') . $date;
-                }
-                undef $time;
-            } elsif ($type == 0x63 and $date) { # time
-                # (ignore frames past second in byte 0 for now - see ref 2)
-                my $val = Get32u(\$buff, $p + 1) & 0x007f7f3f;
-                my @t = unpack('C*', substr($buff, $p + 1, 4));
-                $time = sprintf('%.2x:%.2x:%.2x', $t[3] & 0x3f, $t[2] & 0x7f, $t[1] & 0x7f);
-                last;
-            } else {
-                undef $time;    # must be consecutive
-            }
-        }
-    }
-    if ($date and $time) {
-        $$profile{DateTimeOriginal} = "$date $time";
-        $$profile{AspectRatio} = $is16_9 ? '16:9' : '5:4' if defined $is16_9;
-    }
-
-    # read audio tags if available
-    delete $$profile{AudioSampleRate};
-    delete $$profile{AudioBitsPerSample};
-    delete $$profile{AudioChannels};
-    $pos = $start + 80*6 + 80*16*3 + 3;
-    if ($pos + 4 < $len and Get8u(\$buff, $pos) == 0x50) {
-        my $smpls = Get8u(\$buff, $pos + 1);
-        my $freq = (Get8u(\$buff, $pos + 4) >> 3) & 0x07;
-        my $stype = Get8u(\$buff, $pos + 3) & 0x1f;
-        my $quant = Get8u(\$buff, $pos + 4) & 0x07;
-        if ($freq < 3) {
-            $$profile{AudioSampleRate} = {0=>48000, 1=>44100, 2=>32000}->{$freq};
-        }
-        if ($stype < 3) {
-            $stype = 2 if $stype == 0 and $quant and $freq == 2;
-            $$profile{AudioChannels} = {0=>2, 1=>0, 2=>4, 3=>8}->{$stype};
-        }
-        $$profile{AudioBitsPerSample} = $quant ? 12 : 16;
-    }
-
-    # save our metadata
-    foreach $tag (@dvTags) {
-        next unless defined $$profile{$tag};
-        $exifTool->HandleTag($tagTablePtr, $tag, $$profile{$tag});
-    }
-
-    return 1;
-}
-
-1;  # end
-
-__END__
-
-=head1 NAME
-
-Image::ExifTool::DV - Read DV meta information
-
-=head1 SYNOPSIS
-
-This module is used by Image::ExifTool
-
-=head1 DESCRIPTION
-
-This module contains definitions required by Image::ExifTool to read meta
-information from DV (raw Digital Video) files.
-
-=head1 AUTHOR
-
-Copyright 2003-2012, Phil Harvey (phil at owl.phy.queensu.ca)
-
-This library is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=head1 REFERENCES
-
-=over 4
-
-=item L<http://ffmpeg.org/>
-
-=item L<http://dvswitch.alioth.debian.org/wiki/DV_format/>
-
-=back
-
-=head1 SEE ALSO
-
-L<Image::ExifTool::TagNames/DV Tags>,
-L<Image::ExifTool(3pm)|Image::ExifTool>
-
-=cut
-

data/vendor/Image-ExifTool-8.97/lib/Image/ExifTool/DjVu.pm

@@ -1,373 +0,0 @@
-#------------------------------------------------------------------------------
-# File:         DjVu.pm
-#
-# Description:  Read DjVu archive meta information
-#
-# Revisions:    09/25/2008 - P. Harvey Created
-#
-# References:   1) http://djvu.sourceforge.net/ (DjVu v3 specification, Nov 2005)
-#               2) http://www.djvu.org/
-#
-# Notes:        DjVu files are recognized and the IFF structure is processed
-#               by Image::ExifTool::AIFF
-#------------------------------------------------------------------------------
-
-package Image::ExifTool::DjVu;
-
-use strict;
-use vars qw($VERSION);
-use Image::ExifTool qw(:DataAccess :Utils);
-
-$VERSION = '1.03';
-
-sub ParseAnt($);
-sub ProcessAnt($$$);
-sub ProcessMeta($$$);
-sub ProcessBZZ($$$);
-
-# DjVu chunks that we parse (ref 4)
-%Image::ExifTool::DjVu::Main = (
-    GROUPS => { 2 => 'Image' },
-    NOTES => 'Information is extracted from the following chunks in DjVu images.',
-    INFO => {
-        SubDirectory => { TagTable => 'Image::ExifTool::DjVu::Info' },
-    },
-    FORM => {
-        TypeOnly => 1,  # extract chunk type only, then descend into chunk
-        SubDirectory => { TagTable => 'Image::ExifTool::DjVu::Form' },
-    },
-    ANTa => {
-        SubDirectory => { TagTable => 'Image::ExifTool::DjVu::Ant' },
-    },
-    ANTz => {
-        Name => 'CompressedAnnotation',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::DjVu::Ant',
-            ProcessProc => \&ProcessBZZ,
-        }
-    },
-    INCL => 'IncludedFileID',
-);
-
-# information in the DjVu INFO chunk
-%Image::ExifTool::DjVu::Info = (
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    GROUPS => { 2 => 'Image' },
-    FORMAT => 'int8u',
-    PRIORITY => 0, # first INFO block takes priority
-    0 => {
-        Name => 'ImageWidth',
-        Format => 'int16u',
-    },
-    2 => {
-        Name => 'ImageHeight',
-        Format => 'int16u',
-    },
-    4 => {
-        Name => 'DjVuVersion',
-        Description => 'DjVu Version',
-        Format => 'int8u[2]',
-        # (this may be just one byte as with version 0.16)
-        ValueConv => '$val=~/(\d+) (\d+)/ ? "$2.$1" : "0.$val"',
-    },
-    6 => {
-        Name => 'SpatialResolution',
-        Format => 'int16u',
-        ValueConv => '(($val & 0xff)<<8) + ($val>>8)', # (little-endian!)
-    },
-    8 => {
-        Name => 'Gamma',
-        ValueConv => '$val / 10',
-    },
-    9 => {
-        Name => 'Orientation',
-        Mask => 0x07, # (upper 5 bits reserved)
-        PrintConv => {
-            1 => 'Horizontal (normal)',
-            2 => 'Rotate 180',
-            5 => 'Rotate 90 CW',
-            6 => 'Rotate 270 CW',
-        },
-    },
-);
-
-# information in the DjVu FORM chunk
-%Image::ExifTool::DjVu::Form = (
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    GROUPS => { 2 => 'Image' },
-    0 => {
-        Name => 'SubfileType',
-        Format => 'undef[4]',
-        Priority => 0,
-        PrintConv => {
-            DJVU => 'Single-page image',
-            DJVM => 'Multi-page document',
-            PM44 => 'Color IW44',
-            BM44 => 'Grayscale IW44',
-            DJVI => 'Shared component',
-            THUM => 'Thumbnail image',
-        },
-    },
-);
-
-# tags found in the DjVu annotation chunk (ANTz or ANTa)
-%Image::ExifTool::DjVu::Ant = (
-    PROCESS_PROC => \&Image::ExifTool::DjVu::ProcessAnt,
-    GROUPS => { 2 => 'Image' },
-    NOTES => 'Information extracted from annotation chunks.',
-    # Note: For speed, ProcessAnt() pre-scans for known tag ID's, so if any
-    # new tags are added here they must also be added to the pre-scan check
-    metadata => {
-        SubDirectory => { TagTable => 'Image::ExifTool::DjVu::Meta' }
-    },
-    xmp => {
-        Name => 'XMP',
-        SubDirectory => { TagTable => 'Image::ExifTool::XMP::Main' }
-    },
-);
-
-# tags found in the DjVu annotation metadata
-%Image::ExifTool::DjVu::Meta = (
-    PROCESS_PROC => \&Image::ExifTool::DjVu::ProcessMeta,
-    GROUPS => { 1 => 'DjVu-Meta', 2 => 'Image' },
-    NOTES => q{
-        This table lists the standard DjVu metadata tags, but ExifTool will extract
-        any tags that exist even if they don't appear here.  The DjVu v3
-        documentation endorses tags borrowed from two standards: 1) BibTeX
-        bibliography system tags (all lowercase Tag ID's in the table below), and 2)
-        PDF DocInfo tags (capitalized Tag ID's).
-    },
-    # BibTeX tags (ref http://en.wikipedia.org/wiki/BibTeX)
-    address     => { Groups => { 2 => 'Location' } },
-    annote      => { Name => 'Annotation' },
-    author      => { Groups => { 2 => 'Author' } },
-    booktitle   => { Name => 'BookTitle' },
-    chapter     => { },
-    crossref    => { Name => 'CrossRef' },
-    edition     => { },
-    eprint      => { Name => 'EPrint' },
-    howpublished=> { Name => 'HowPublished' },
-    institution => { },
-    journal     => { },
-    key         => { },
-    month       => { Groups => { 2 => 'Time' } },
-    note        => { },
-    number      => { },
-    organization=> { },
-    pages       => { },
-    publisher   => { },
-    school      => { },
-    series      => { },
-    title       => { },
-    type        => { },
-    url         => { Name => 'URL' },
-    volume      => { },
-    year        => { Groups => { 2 => 'Time' } },
-    # PDF tags (same as Image::ExifTool::PDF::Info)
-    Title       => { },
-    Author      => { Groups => { 2 => 'Author' } },
-    Subject     => { },
-    Keywords    => { },
-    Creator     => { },
-    Producer    => { },
-    CreationDate => {
-        Name => 'CreateDate',
-        Groups => { 2 => 'Time' },
-        # RFC 3339 date/time format
-        ValueConv => 'require Image::ExifTool::XMP; Image::ExifTool::XMP::ConvertXMPDate($val)',
-        PrintConv => '$self->ConvertDateTime($val)',
-    },
-    ModDate => {
-        Name => 'ModifyDate',
-        Groups => { 2 => 'Time' },
-        ValueConv => 'require Image::ExifTool::XMP; Image::ExifTool::XMP::ConvertXMPDate($val)',
-        PrintConv => '$self->ConvertDateTime($val)',
-    },
-    Trapped => {
-        # remove leading '/' from '/True' or '/False'
-        ValueConv => '$val=~s{^/}{}; $val',
-    },
-);
-
-#------------------------------------------------------------------------------
-# Parse DjVu annotation "s-expression" syntax (recursively)
-# Inputs: 0) data ref (with pos($$dataPt) set to start of annotation)
-# Returns: reference to list of tokens/references, or undef if no tokens,
-#          and the position in $$dataPt is set to end of last token
-# Notes: The DjVu annotation syntax is not well documented, so I make
-#        a number of assumptions here!
-sub ParseAnt($)
-{
-    my $dataPt = shift;
-    my (@toks, $tok, $more);
-    # (the DjVu annotation syntax really sucks, and requires that every
-    # single token be parsed in order to properly scan through the items)
-Tok: for (;;) {
-        # find the next token
-        last unless $$dataPt =~ /(\S)/sg;   # get next non-space character
-        if ($1 eq '(') {       # start of list
-            $tok = ParseAnt($dataPt);
-        } elsif ($1 eq ')') {  # end of list
-            $more = 1;
-            last;
-        } elsif ($1 eq '"') {  # quoted string
-            $tok = '';
-            for (;;) {
-                # get string up to the next quotation mark
-                # this doesn't work in perl 5.6.2! grrrr
-                # last Tok unless $$dataPt =~ /(.*?)"/sg;
-                # $tok .= $1;
-                my $pos = pos($$dataPt);
-                last Tok unless $$dataPt =~ /"/sg;
-                $tok .= substr($$dataPt, $pos, pos($$dataPt)-1-$pos);
-                # we're good unless quote was escaped by odd number of backslashes
-                last unless $tok =~ /(\\+)$/ and length($1) & 0x01;
-                $tok .= '"';    # quote is part of the string
-            }
-            # convert C escape sequences (allowed in quoted text)
-            $tok = eval qq{"$tok"};
-        } else {                # key name
-            pos($$dataPt) = pos($$dataPt) - 1;
-            # allow anything in key but whitespace, braces and double quotes
-            # (this is one of those assumptions I mentioned)
-            $$dataPt =~ /([^\s()"]+)/sg;
-            $tok = $1;
-        }
-        push @toks, $tok if defined $tok;
-    }
-    # prevent further parsing unless more after this
-    pos($$dataPt) = length $$dataPt unless $more;
-    return @toks ? \@toks : undef;
-}
-
-#------------------------------------------------------------------------------
-# Process DjVu annotation chunk (ANTa or decoded ANTz)
-# Inputs: 0) ExifTool object reference, 1) DirInfo reference, 2) tag table ref
-# Returns: 1 on success
-sub ProcessAnt($$$)
-{
-    my ($exifTool, $dirInfo, $tagTablePtr) = @_;
-    my $dataPt = $$dirInfo{DataPt};
-
-    # quick pre-scan to check for metadata or XMP
-    return 1 unless $$dataPt =~ /\(\s*(metadata|xmp)[\s("]/s;
-
-    # parse annotations into a tree structure
-    pos($$dataPt) = 0;
-    my $toks = ParseAnt($dataPt) or return 0;
-
-    # process annotations individually
-    my $ant;
-    foreach $ant (@$toks) {
-        next unless ref $ant eq 'ARRAY' and @$ant >= 2;
-        my $tag = shift @$ant;
-        next if ref $tag or not defined $$tagTablePtr{$tag};
-        if ($tag eq 'metadata') {
-            # ProcessMeta() takes array reference
-            $exifTool->HandleTag($tagTablePtr, $tag, $ant);
-        } else {
-            next if ref $$ant[0];   # only process simple values
-            $exifTool->HandleTag($tagTablePtr, $tag, $$ant[0]);
-        }
-    }
-    return 1;
-}
-
-#------------------------------------------------------------------------------
-# Process DjVu metadata
-# Inputs: 0) ExifTool object reference, 1) DirInfo reference, 2) tag table ref
-# Returns: 1 on success
-# Notes: input dirInfo DataPt is a reference to a list of pre-parsed metadata entries
-sub ProcessMeta($$$)
-{
-    my ($exifTool, $dirInfo, $tagTablePtr) = @_;
-    my $dataPt = $$dirInfo{DataPt};
-    return 0 unless ref $$dataPt eq 'ARRAY';
-    $exifTool->VerboseDir('Metadata', scalar @$$dataPt);
-    my ($item, $err);
-    foreach $item (@$$dataPt) {
-        # make sure item is a simple tag/value pair
-        $err=1, next unless ref $item eq 'ARRAY' and @$item >= 2 and
-                            not ref $$item[0] and not ref $$item[1];
-        # add any new tags to the table
-        unless ($$tagTablePtr{$$item[0]}) {
-            my $name = $$item[0];
-            $name =~ tr/-_a-zA-Z0-9//dc; # remove illegal characters
-            length $name or $err = 1, next;
-            AddTagToTable($tagTablePtr, $$item[0], { Name => ucfirst($name) });
-        }
-        $exifTool->HandleTag($tagTablePtr, $$item[0], $$item[1]);
-    }
-    $err and $exifTool->Warn('Ignored invalid metadata entry(s)');
-    return 1;
-}
-
-#------------------------------------------------------------------------------
-# Process BZZ-compressed data (in DjVu images)
-# Inputs: 0) ExifTool object reference, 1) DirInfo reference, 2) tag table ref
-# Returns: 1 on success
-sub ProcessBZZ($$$)
-{
-    my ($exifTool, $dirInfo, $tagTablePtr) = @_;
-    require Image::ExifTool::BZZ;
-    my $buff = Image::ExifTool::BZZ::Decode($$dirInfo{DataPt});
-    unless (defined $buff) {
-        $exifTool->Warn("Error decoding $$dirInfo{DirName}");
-        return 0;
-    }
-    my $verbose = $exifTool->Options('Verbose');
-    if ($verbose >= 3) {
-        # dump the decoded data in very verbose mode
-        $exifTool->VerboseDir("Decoded $$dirInfo{DirName}", 0, length $buff);
-        $exifTool->VerboseDump(\$buff);
-    }
-    $$dirInfo{DataPt} = \$buff;
-    $$dirInfo{DataLen} = $$dirInfo{DirLen} = length $buff;
-    # process the data using the default process proc for this table
-    my $processProc = $$tagTablePtr{PROCESS_PROC} or return 0;
-    return &$processProc($exifTool, $dirInfo, $tagTablePtr);
-}
-
-1;  # end
-
-__END__
-
-=head1 NAME
-
-Image::ExifTool::DjVu - Read DjVu meta information
-
-=head1 SYNOPSIS
-
-This module is used by Image::ExifTool
-
-=head1 DESCRIPTION
-
-This module contains definitions required by Image::ExifTool to extract meta
-information from DjVu images.  Parsing of the DjVu IFF structure is done by
-Image::ExifTool::AIFF.
-
-=head1 AUTHOR
-
-Copyright 2003-2012, Phil Harvey (phil at owl.phy.queensu.ca)
-
-This library is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=head1 REFERENCES
-
-=over 4
-
-=item L<http://djvu.sourceforge.net/>
-
-=item L<http://www.djvu.org/>
-
-=back
-
-=head1 SEE ALSO
-
-L<Image::ExifTool::TagNames/DjVu Tags>,
-L<Image::ExifTool::AIFF(3pm)|Image::ExifTool::AIFF>,
-L<Image::ExifTool(3pm)|Image::ExifTool>
-
-=cut
-