exiftool_vendored 9.78.0 → 9.99.0

data/bin/Image-ExifTool-9.78/lib/Image/ExifTool/PhotoCD.pm

@@ -1,507 +0,0 @@
-#------------------------------------------------------------------------------
-# File:         PhotoCD.pm
-#
-# Description:  Read Kodak Photo CD Image Pac (PCD) metadata
-#
-# Revisions:    2012/05/07 - P. Harvey Created
-#
-# References:   1) http://pcdtojpeg.sourceforge.net/
-#------------------------------------------------------------------------------
-
-package Image::ExifTool::PhotoCD;
-
-use strict;
-use vars qw($VERSION);
-use Image::ExifTool qw(:DataAccess :Utils);
-use Image::ExifTool::Exif;  # (for Composite:ImageSize)
-
-$VERSION = '1.01';
-
-sub ProcessExtData($$$);
-
-# PhotoCD info
-%Image::ExifTool::PhotoCD::Main = (
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    GROUPS => { 2 => 'Image' },
-    NOTES => 'Tags extracted from Kodak Photo CD Image Pac (PCD) files.',
-    7 => {
-        Name => 'SpecificationVersion',
-        Format => 'int8u[2]',
-        RawConv => '$val eq "255 255" ? "n/a" : $val',
-        ValueConv => '$val =~ tr/ /./; $val',
-    },
-    9 => {
-        Name => 'AuthoringSoftwareRelease',
-        Format => 'int8u[2]',
-        RawConv => '$val eq "255 255" ? "n/a" : $val',
-        ValueConv => '$val =~ tr/ /./; $val',
-    },
-    11 => {
-        Name => 'ImageMagnificationDescriptor',
-        Format => 'int8u[2]',
-        ValueConv => '$val =~ tr/ /./; $val',
-    },
-    13 => {
-        Name => 'CreateDate',
-        Format => 'int32u',
-        Groups => { 2 => 'Time' },
-        RawConv => '$val == 0xffffffff ? undef : $val',
-        ValueConv => 'ConvertUnixTime($val,1)',
-        PrintConv => '$self->ConvertDateTime($val)',
-    },
-    17 => {
-        Name => 'ModifyDate',
-        Format => 'int32u',
-        Groups => { 2 => 'Time' },
-        RawConv => '$val == 0xffffffff ? undef : $val',
-        ValueConv => 'ConvertUnixTime($val,1)',
-        PrintConv => '$self->ConvertDateTime($val)',
-    },
-    21 => {
-        Name => 'ImageMedium',
-        PrintConv => {
-            0 => 'Color negative',
-            1 => 'Color reversal',
-            2 => 'Color hard copy',
-            3 => 'Thermal hard copy',
-            4 => 'Black and white negative',
-            5 => 'Black and white reversal',
-            6 => 'Black and white hard copy',
-            7 => 'Internegative',
-            8 => 'Synthetic image',
-        },
-    },
-    22 => {
-        Name => 'ProductType',
-        Format => 'string[20]',
-        ValueConv => '$val =~ s/[ \0]+$//; $val',
-    },
-    42 => {
-        Name => 'ScannerVendorID',
-        Format => 'string[20]',
-        ValueConv => '$val =~ s/[ \0]+$//; $val',
-    },
-    62 => {
-        Name => 'ScannerProductID',
-        Format => 'string[16]',
-        ValueConv => '$val =~ s/[ \0]+$//; $val',
-    },
-    78 => {
-        Name => 'ScannerFirmwareVersion',
-        Format => 'string[4]',
-        ValueConv => '$val =~ s/[ \0]+$//; $val',
-    },
-    82 => {
-        Name => 'ScannerFirmwareDate',
-        Format => 'string[8]',
-        ValueConv => '$val =~ s/[ \0]+$//; $val',
-    },
-    90 => {
-        Name => 'ScannerSerialNumber',
-        Format => 'string[20]',
-        ValueConv => '$val =~ s/[ \0]+$//; $val',
-    },
-    110 => {
-        Name => 'ScannerPixelSize',
-        Format => 'undef[2]',
-        ValueConv => 'join(".",unpack("H2H2",$val))',
-        PrintConv => '"$val micrometers"',
-    },
-    112 => {
-        Name => 'ImageWorkstationMake',
-        Format => 'string[20]',
-        ValueConv => '$val =~ s/[ \0]+$//; $val',
-    },
-    132 => {
-        Name => 'CharacterSet',
-        PrintConv => {
-            1 => '38 characters ISO 646',
-            2 => '65 characters ISO 646',
-            3 => '95 characters ISO 646',
-            4 => '191 characters ISO 8850-1',
-            5 => 'ISO 2022',
-            6 => 'Includes characters not ISO 2375 registered',
-        },
-    },
-    133 => {
-        Name => 'CharacterEscapeSequence',
-        Format => 'undef[32]',
-        Binary => 1,
-        Unknown => 1,
-    },
-    165 => {
-        Name => 'PhotoFinisherName',
-        Format => 'string[60]',
-        ValueConv => '$val =~ s/[ \0]+$//; $val',
-    },
-    225 => {
-        Name => 'HasSBA',
-        Format => 'undef[3]',
-        Hidden => 1,
-        RawConv => '$val eq "SBA" and $$self{HasSBA} = 1; undef',
-    },
-    228 => {
-        Name => 'SceneBalanceAlgorithmRevision',
-        Condition => '$$self{HasSBA}',
-        Format => 'int8u[2]',
-        ValueConv => '$val =~ tr/ /./; $val',
-    },
-    230 => {
-        Name => 'SceneBalanceAlgorithmCommand',
-        Condition => '$$self{HasSBA}',
-        PrintConv => {
-            0 => 'Neutral SBA On, Color SBA On',
-            1 => 'Neutral SBA Off, Color SBA Off',
-            2 => 'Neutral SBA On, Color SBA Off',
-            3 => 'Neutral SBA Off, Color SBA On',
-        },
-    },
-    325 => {
-        Name => 'SceneBalanceAlgorithmFilmID',
-        Condition => '$$self{HasSBA}',
-        Format => 'int16u',
-        PrintConv => {
-            1 => '3M ScotchColor AT 100',
-            2 => '3M ScotchColor AT 200',
-            3 => '3M ScotchColor HR2 400',
-            7 => '3M Scotch HR 200 Gen 2',
-            9 => '3M Scotch HR 400 Gen 2',
-            16 => 'Agfa Agfacolor XRS 400 Gen 1',
-            17 => 'Agfa Agfacolor XRG/XRS 400',
-            18 => 'Agfa Agfacolor XRG/XRS 200',
-            19 => 'Agfa Agfacolor XRS 1000 Gen 2',
-            20 => 'Agfa Agfacolor XRS 400 Gen 2',
-            21 => 'Agfa Agfacolor XRS/XRC 100',
-            26 => 'Fuji Reala 100 (JAPAN)',
-            27 => 'Fuji Reala 100 Gen 1',
-            28 => 'Fuji Reala 100 Gen 2',
-            29 => 'Fuji SHR 400 Gen 2',
-            30 => 'Fuji Super HG 100',
-            31 => 'Fuji Super HG 1600 Gen 1',
-            32 => 'Fuji Super HG 200',
-            33 => 'Fuji Super HG 400',
-            34 => 'Fuji Super HG 100 Gen 2',
-            35 => 'Fuji Super HR 100 Gen 1',
-            36 => 'Fuji Super HR 100 Gen 2',
-            37 => 'Fuji Super HR 1600 Gen 2',
-            38 => 'Fuji Super HR 200 Gen 1',
-            39 => 'Fuji Super HR 200 Gen 2',
-            40 => 'Fuji Super HR 400 Gen 1',
-            43 => 'Fuji NSP 160S (Pro)',
-            45 => 'Kodak Kodacolor VR 100 Gen 2',
-            47 => 'Kodak Gold 400 Gen 3',
-            55 => 'Kodak Ektar 100 Gen 1',
-            56 => 'Kodak Ektar 1000 Gen 1',
-            57 => 'Kodak Ektar 125 Gen 1',
-            58 => 'Kodak Royal Gold 25 RZ',
-            60 => 'Kodak Gold 1600 Gen 1',
-            61 => 'Kodak Gold 200 Gen 2',
-            62 => 'Kodak Gold 400 Gen 2',
-            65 => 'Kodak Kodacolor VR 100 Gen 1',
-            66 => 'Kodak Kodacolor VR 1000 Gen 2',
-            67 => 'Kodak Kodacolor VR 1000 Gen 1',
-            68 => 'Kodak Kodacolor VR 200 Gen 1',
-            69 => 'Kodak Kodacolor VR 400 Gen 1',
-            70 => 'Kodak Kodacolor VR 200 Gen 2',
-            71 => 'Kodak Kodacolor VRG 100 Gen 1',
-            72 => 'Kodak Gold 100 Gen 2',
-            73 => 'Kodak Kodacolor VRG 200 Gen 1',
-            74 => 'Kodak Gold 400 Gen 1',
-            87 => 'Kodak Ektacolor Gold 160',
-            88 => 'Kodak Ektapress 1600 Gen 1 PPC',
-            89 => 'Kodak Ektapress Gold 100 Gen 1 PPA',
-            90 => 'Kodak Ektapress Gold 400 PPB-3',
-            92 => 'Kodak Ektar 25 Professional PHR',
-            97 => 'Kodak T-Max 100 Professional',
-            98 => 'Kodak T-Max 3200 Professional',
-            99 => 'Kodak T-Max 400 Professional',
-            101 => 'Kodak Vericolor 400 Prof VPH',
-            102 => 'Kodak Vericolor III Pro',
-            121 => 'Konika Konica Color SR-G 3200',
-            122 => 'Konika Konica Color Super SR100',
-            123 => 'Konika Konica Color Super SR 400',
-            138 => 'Kodak Gold Unknown',
-            139 => 'Kodak Unknown Neg A- Normal SBA',
-            143 => 'Kodak Ektar 100 Gen 2',
-            147 => 'Kodak Kodacolor CII',
-            148 => 'Kodak Kodacolor II',
-            149 => 'Kodak Gold Plus 200 Gen 3',
-            150 => 'Kodak Internegative +10% Contrast',
-            151 => 'Agfa Agfacolor Ultra 50',
-            152 => 'Fuji NHG 400',
-            153 => 'Agfa Agfacolor XRG 100',
-            154 => 'Kodak Gold Plus 100 Gen 3',
-            155 => 'Konika Konica Color Super SR200 Gen 1',
-            156 => 'Konika Konica Color SR-G 160',
-            157 => 'Agfa Agfacolor Optima 125',
-            158 => 'Agfa Agfacolor Portrait 160',
-            162 => 'Kodak Kodacolor VRG 400 Gen 1',
-            163 => 'Kodak Gold 200 Gen 1',
-            164 => 'Kodak Kodacolor VRG 100 Gen 2',
-            174 => 'Kodak Internegative +20% Contrast',
-            175 => 'Kodak Internegative +30% Contrast',
-            176 => 'Kodak Internegative +40% Contrast',
-            184 => 'Kodak TMax-100 D-76 CI = .40',
-            185 => 'Kodak TMax-100 D-76 CI = .50',
-            186 => 'Kodak TMax-100 D-76 CI = .55',
-            187 => 'Kodak TMax-100 D-76 CI = .70',
-            188 => 'Kodak TMax-100 D-76 CI = .80',
-            189 => 'Kodak TMax-100 TMax CI = .40',
-            190 => 'Kodak TMax-100 TMax CI = .50',
-            191 => 'Kodak TMax-100 TMax CI = .55',
-            192 => 'Kodak TMax-100 TMax CI = .70',
-            193 => 'Kodak TMax-100 TMax CI = .80',
-            195 => 'Kodak TMax-400 D-76 CI = .40',
-            196 => 'Kodak TMax-400 D-76 CI = .50',
-            197 => 'Kodak TMax-400 D-76 CI = .55',
-            198 => 'Kodak TMax-400 D-76 CI = .70',
-            214 => 'Kodak TMax-400 D-76 CI = .80',
-            215 => 'Kodak TMax-400 TMax CI = .40',
-            216 => 'Kodak TMax-400 TMax CI = .50',
-            217 => 'Kodak TMax-400 TMax CI = .55',
-            218 => 'Kodak TMax-400 TMax CI = .70',
-            219 => 'Kodak TMax-400 TMax CI = .80',
-            224 => '3M ScotchColor ATG 400/EXL 400',
-            266 => 'Agfa Agfacolor Optima 200',
-            267 => 'Konika Impressa 50',
-            268 => 'Polaroid Polaroid CP 200',
-            269 => 'Konika Konica Color Super SR200 Gen 2',
-            270 => 'ILFORD XP2 400',
-            271 => 'Polaroid Polaroid Color HD2 100',
-            272 => 'Polaroid Polaroid Color HD2 400',
-            273 => 'Polaroid Polaroid Color HD2 200',
-            282 => '3M ScotchColor ATG-1 200',
-            284 => 'Konika XG 400',
-            307 => 'Kodak Universal Reversal B/W',
-            308 => 'Kodak RPC Copy Film Gen 1',
-            312 => 'Kodak Universal E6',
-            324 => 'Kodak Gold Ultra 400 Gen 4',
-            328 => 'Fuji Super G 100',
-            329 => 'Fuji Super G 200',
-            330 => 'Fuji Super G 400 Gen 2',
-            333 => 'Kodak Universal K14',
-            334 => 'Fuji Super G 400 Gen 1',
-            366 => 'Kodak Vericolor HC 6329 VHC',
-            367 => 'Kodak Vericolor HC 4329 VHC',
-            368 => 'Kodak Vericolor L 6013 VPL',
-            369 => 'Kodak Vericolor L 4013 VPL',
-            418 => 'Kodak Ektacolor Gold II 400 Prof',
-            430 => 'Kodak Royal Gold 1000',
-            431 => 'Kodak Kodacolor VR 200 / 5093',
-            432 => 'Kodak Gold Plus 100 Gen 4',
-            443 => 'Kodak Royal Gold 100',
-            444 => 'Kodak Royal Gold 400',
-            445 => 'Kodak Universal E6 auto-balance',
-            446 => 'Kodak Universal E6 illum. corr.',
-            447 => 'Kodak Universal K14 auto-balance',
-            448 => 'Kodak Universal K14 illum. corr.',
-            449 => 'Kodak Ektar 100 Gen 3 SY',
-            456 => 'Kodak Ektar 25',
-            457 => 'Kodak Ektar 100 Gen 3 CX',
-            458 => 'Kodak Ektapress Plus 100 Prof PJA-1',
-            459 => 'Kodak Ektapress Gold II 100 Prof',
-            460 => 'Kodak Pro 100 PRN',
-            461 => 'Kodak Vericolor HC 100 Prof VHC-2',
-            462 => 'Kodak Prof Color Neg 100',
-            463 => 'Kodak Ektar 1000 Gen 2',
-            464 => 'Kodak Ektapress Plus 1600 Pro PJC-1',
-            465 => 'Kodak Ektapress Gold II 1600 Prof',
-            466 => 'Kodak Super Gold 1600 GF Gen 2',
-            467 => 'Kodak Kodacolor 100 Print Gen 4',
-            468 => 'Kodak Super Gold 100 Gen 4',
-            469 => 'Kodak Gold 100 Gen 4',
-            470 => 'Kodak Gold III 100 Gen 4',
-            471 => 'Kodak Funtime 100 FA',
-            472 => 'Kodak Funtime 200 FB',
-            473 => 'Kodak Kodacolor VR 200 Gen 4',
-            474 => 'Kodak Gold Super 200 Gen 4',
-            475 => 'Kodak Kodacolor 200 Print Gen 4',
-            476 => 'Kodak Super Gold 200 Gen 4',
-            477 => 'Kodak Gold 200 Gen 4',
-            478 => 'Kodak Gold III 200 Gen 4',
-            479 => 'Kodak Gold Ultra 400 Gen 5',
-            480 => 'Kodak Super Gold 400 Gen 5',
-            481 => 'Kodak Gold 400 Gen 5',
-            482 => 'Kodak Gold III 400 Gen 5',
-            483 => 'Kodak Kodacolor 400 Print Gen 5',
-            484 => 'Kodak Ektapress Plus 400 Prof PJB-2',
-            485 => 'Kodak Ektapress Gold II 400 Prof G5',
-            486 => 'Kodak Pro 400 PPF-2',
-            487 => 'Kodak Ektacolor Gold II 400 EGP-4',
-            488 => 'Kodak Ektacolor Gold 400 Prof EGP-4',
-            489 => 'Kodak Ektapress Gold II Multspd PJM',
-            490 => 'Kodak Pro 400 MC PMC',
-            491 => 'Kodak Vericolor 400 Prof VPH-2',
-            492 => 'Kodak Vericolor 400 Plus Prof VPH-2',
-            493 => 'Kodak Unknown Neg Product Code 83',
-            505 => 'Kodak Ektacolor Pro Gold 160 GPX',
-            508 => 'Kodak Royal Gold 200',
-            517 => 'Kodak 4050000000',
-            519 => 'Kodak Gold Plus 100 Gen 5',
-            520 => 'Kodak Gold 800 Gen 1',
-            521 => 'Kodak Gold Super 200 Gen 5',
-            522 => 'Kodak Ektapress Plus 200 Prof',
-            523 => 'Kodak 4050 E6 auto-balance',
-            524 => 'Kodak 4050 E6 ilum. corr.',
-            525 => 'Kodak 4050 K14',
-            526 => 'Kodak 4050 K14 auto-balance',
-            527 => 'Kodak 4050 K14 ilum. corr.',
-            528 => 'Kodak 4050 Reversal B&W',
-            532 => 'Kodak Advantix 200',
-            533 => 'Kodak Advantix 400',
-            534 => 'Kodak Advantix 100',
-            535 => 'Kodak Ektapress Multspd Prof PJM-2',
-            536 => 'Kodak Kodacolor VR 200 Gen 5',
-            537 => 'Kodak Funtime 200 FB Gen 2',
-            538 => 'Kodak Commercial 200',
-            539 => 'Kodak Royal Gold 25 Copystand',
-            540 => 'Kodak Kodacolor DA 100 Gen 5',
-            545 => 'Kodak Kodacolor VR 400 Gen 2',
-            546 => 'Kodak Gold 100 Gen 6',
-            547 => 'Kodak Gold 200 Gen 6',
-            548 => 'Kodak Gold 400 Gen 6',
-            549 => 'Kodak Royal Gold 100 Gen 2',
-            550 => 'Kodak Royal Gold 200 Gen 2',
-            551 => 'Kodak Royal Gold 400 Gen 2',
-            552 => 'Kodak Gold Max 800 Gen 2',
-            554 => 'Kodak 4050 E6 high contrast',
-            555 => 'Kodak 4050 E6 low saturation high contrast',
-            556 => 'Kodak 4050 E6 low saturation',
-            557 => 'Kodak Universal E-6 Low Saturation',
-            558 => 'Kodak T-Max T400 CN',
-            563 => 'Kodak Ektapress PJ100',
-            564 => 'Kodak Ektapress PJ400',
-            565 => 'Kodak Ektapress PJ800',
-            567 => 'Kodak Portra 160NC',
-            568 => 'Kodak Portra 160VC',
-            569 => 'Kodak Portra 400NC',
-            570 => 'Kodak Portra 400VC',
-            575 => 'Kodak Advantix 100-2',
-            576 => 'Kodak Advantix 200-2',
-            577 => 'Kodak Advantix Black & White + 400',
-            578 => 'Kodak Ektapress PJ800-2',
-        },
-    },
-    331 => {
-        Name => 'CopyrightStatus',
-        Condition => '$$self{HasSBA}',
-        RawConv => '$$self{CopyrightStatus} = $val',
-        PrintConv => {
-            1 => 'Restrictions apply',
-            0xff => 'Not specified',
-        },
-    },
-    332 => {
-        Name => 'CopyrightFileName',
-        Condition => '$$self{CopyrightStatus} and $$self{CopyrightStatus} == 1',
-        Format => 'string[12]',
-        ValueConv => '$val =~ s/[ \0]+$//; $val',
-    },
-    1538 => {
-        Name => 'Orientation',
-        Mask => 0x03,
-        RawConv => '$$self{Orient} = $val',
-        PrintConv => {
-            0 => 'Horizontal (normal)',
-            1 => 'Rotate 270 CW',
-            2 => 'Rotate 180',
-            3 => 'Rotate 90 CW',
-        },
-    },
-    1538.1 => {
-        Name => 'ImageWidth',
-        Mask => 0x0c,
-        # 0x00=Base (768x512), 0x04=4Base (1536x1024), 0x08=16Base (3072x2048)
-        ValueConv => '($$self{Orient} & 0x01 ? 512 : 768) * (($val || 2) / 2)',
-    },
-    1538.2 => {
-        Name => 'ImageHeight',
-        Mask => 0x0c,
-        ValueConv => '($$self{Orient} & 0x01 ? 768 : 512) * (($val || 2) / 2)',
-    },
-    1538.3 => {
-        Name => 'CompressionClass',
-        Mask => 0x60,
-        PrintConv => {
-            0x00 => 'Class 1 - 35mm film; Pictoral hard copy',
-            0x20 => 'Class 2 - Large format film',
-            0x40 => 'Class 3 - Text and graphics, high resolution',
-            0x60 => 'Class 4 - Text and graphics, high dynamic range',
-        },
-    },
-    #1544 => 'InterleaveRatio',
-    #1545 => 'ADPCMResolution',
-    #1546 => {
-    #    Name => 'ADPCMMagnificationPanning',
-    #    Format => 'int8u[2]',
-    #},
-    #1548 => 'ADPCMMagnificationFactor',
-    #1549 => {
-    #    Name => 'ADPCMDisplayOffset',
-    #    Format => 'int8u[2]',
-    #},
-    #1551 => 'ADPCMTransitionDescriptor',
-);
-
-#------------------------------------------------------------------------------
-# Extract information from a PhotoCD image
-# Inputs: 0) ExifTool object reference, 1) dirInfo reference
-# Returns: 1 on success, 0 if this wasn't a valid PhotoCD file
-sub ProcessPCD($$)
-{
-    my ($et, $dirInfo) = @_;
-    my $raf = $$dirInfo{RAF};
-    my $buff;
-    return 0 unless $raf->Seek(2048, 0) and
-                    $raf->Read($buff, 2048) == 2048 and
-                    $buff =~ /^PCD_IPI/;
-    SetByteOrder('MM');
-    $et->SetFileType();
-    my %dirInfo = (
-        DirName => 'PhotoCD',
-        DataPt => \$buff,
-        DataPos => 4096,
-    );
-    my $tagTablePtr = GetTagTable('Image::ExifTool::PhotoCD::Main');
-    return $et->ProcessBinaryData(\%dirInfo, $tagTablePtr);
-}
-
-1;  # end
-
-__END__
-
-=head1 NAME
-
-Image::ExifTool::PhotoCD - Read Kodak Photo CD Image Pac (PCD) metadata
-
-=head1 SYNOPSIS
-
-This module is used by Image::ExifTool
-
-=head1 DESCRIPTION
-
-This module contains routines required by Image::ExifTool to extract
-information from Kodak Photo CD Image Pac (PCD) files.
-
-=head1 AUTHOR
-
-Copyright 2003-2014, 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://pcdtojpeg.sourceforge.net/>
-
-=back
-
-=head1 SEE ALSO
-
-L<Image::ExifTool::TagNames/PhotoCD Tags>,
-L<Image::ExifTool(3pm)|Image::ExifTool>
-
-=cut
-