mini_exiftool_vendored 8.9.7.v2 → 9.2.7.v1

data/vendor/Image-ExifTool-9.27/lib/Image/ExifTool/FLAC.pm

@@ -0,0 +1,296 @@
+#------------------------------------------------------------------------------
+# File:         FLAC.pm
+#
+# Description:  Read Free Lossless Audio Codec information
+#
+# Revisions:    11/13/2006 - P. Harvey Created
+#
+# References:   1) http://flac.sourceforge.net/
+#------------------------------------------------------------------------------
+
+package Image::ExifTool::FLAC;
+
+use strict;
+use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
+
+$VERSION = '1.04';
+
+sub ProcessBitStream($$$);
+
+# FLAC metadata blocks
+%Image::ExifTool::FLAC::Main = (
+    NOTES => q{
+        Free Lossless Audio Codec (FLAC) meta information.  ExifTool also extracts
+        ID3 information from these files.
+    },
+    0 => {
+        Name => 'StreamInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::FLAC::StreamInfo' },
+    },
+    1 => { Name => 'Padding',     Binary => 1, Unknown => 1 },
+    2 => { Name => 'Application', Binary => 1, Unknown => 1 },
+    3 => { Name => 'SeekTable',   Binary => 1, Unknown => 1 },
+    4 => {
+        Name => 'VorbisComment',
+        SubDirectory => { TagTable => 'Image::ExifTool::Vorbis::Comments' },
+    },
+    5 => { Name => 'CueSheet',    Binary => 1, Unknown => 1 },
+    6 => {
+        Name => 'Picture',
+        SubDirectory => { TagTable => 'Image::ExifTool::FLAC::Picture' },
+    },
+    # 7-126 - Reserved
+    # 127 - Invalid
+);
+
+%Image::ExifTool::FLAC::StreamInfo = (
+    PROCESS_PROC => \&ProcessBitStream,
+    NOTES => 'FLAC is big-endian, so bit 0 is the high-order bit in this table.',
+    GROUPS => { 2 => 'Audio' },
+    'Bit000-015' => 'BlockSizeMin',
+    'Bit016-031' => 'BlockSizeMax',
+    'Bit032-055' => 'FrameSizeMin',
+    'Bit056-079' => 'FrameSizeMax',
+    'Bit080-099' => 'SampleRate',
+    'Bit100-102' => {
+        Name => 'Channels',
+        ValueConv => '$val + 1',
+    },
+    'Bit103-107' => {
+        Name => 'BitsPerSample',
+        ValueConv => '$val + 1',
+    },
+    'Bit108-143' => 'TotalSamples',
+);
+
+%Image::ExifTool::FLAC::Picture = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 2 => 'Image' },
+    FORMAT => 'int32u',
+    0 => {
+        Name => 'PictureType',
+        PrintConv => { # (Note: Duplicated in ID3, ASF and FLAC modules!)
+            0 => 'Other',
+            1 => '32x32 PNG Icon',
+            2 => 'Other Icon',
+            3 => 'Front Cover',
+            4 => 'Back Cover',
+            5 => 'Leaflet',
+            6 => 'Media',
+            7 => 'Lead Artist',
+            8 => 'Artist',
+            9 => 'Conductor',
+            10 => 'Band',
+            11 => 'Composer',
+            12 => 'Lyricist',
+            13 => 'Recording Studio or Location',
+            14 => 'Recording Session',
+            15 => 'Performance',
+            16 => 'Capture from Movie or Video',
+            17 => 'Bright(ly) Colored Fish',
+            18 => 'Illustration',
+            19 => 'Band Logo',
+            20 => 'Publisher Logo',
+        },
+    },
+    1 => {
+        Name => 'PictureMIMEType',
+        Format => 'var_pstr32',
+    },
+    2 => {
+        Name => 'PictureDescription',
+        Format => 'var_pstr32',
+        ValueConv => '$self->Decode($val, "UTF8")',
+    },
+    3 => 'PictureWidth',
+    4 => 'PictureHeight',
+    5 => 'PictureBitsPerPixel',
+    6 => 'PictureIndexedColors',
+    7 => 'PictureLength',
+    8 => {
+        Name => 'Picture',
+        Format => 'undef[$val{7}]',
+        Binary => 1,
+    },
+);
+
+# FLAC composite tags
+%Image::ExifTool::FLAC::Composite = (
+    Duration => {
+        Require => {
+            0 => 'FLAC:SampleRate',
+            1 => 'FLAC:TotalSamples',
+        },
+        ValueConv => '$val[0] and $val[1] ? $val[1] / $val[0] : undef',
+        PrintConv => 'ConvertDuration($val)',
+    },
+);
+
+# add our composite tags
+Image::ExifTool::AddCompositeTags('Image::ExifTool::FLAC');
+
+
+#------------------------------------------------------------------------------
+# Process information in a bit stream
+# Inputs: 0) ExifTool object ref, 1) dirInfo ref, 2) tag table ref
+# Notes: Byte order is used to determine the ordering of bits in the stream:
+# 'MM' = bit 0 is most significant, 'II' = bit 0 is least significant
+# - can handle arbitrarily wide values (ie. 8-byte or larger integers)
+sub ProcessBitStream($$$)
+{
+    my ($exifTool, $dirInfo, $tagTablePtr) = @_;
+    my $dataPt   = $$dirInfo{DataPt};
+    my $dataPos  = $$dirInfo{DataPos};
+    my $dirStart = $$dirInfo{DirStart} || 0;
+    my $dirLen   = $$dirInfo{DirLen} || (length($$dataPt) - $dirStart);
+    my $verbose  = $exifTool->Options('Verbose');
+    my $byteOrder = GetByteOrder();
+    my $tag;
+
+    if ($verbose) {
+        $exifTool->VPrint(0, "  + [BitStream directory, $dirLen bytes, '$byteOrder' order]\n");
+    }
+    foreach $tag (sort keys %$tagTablePtr) {
+        next unless $tag =~ /^Bit(\d+)-?(\d+)?/;
+        my ($b1, $b2) = ($1, $2 || $1);     # start/end bit numbers in stream
+        my ($i1, $i2) = (int($b1 / 8), int($b2 / 8)); # start/end byte numbers
+        my ($f1, $f2) = ($b1 % 8, $b2 % 8); # start/end bit numbers within each byte
+        last if $i2 >= $dirLen;
+        my $val = 0;
+        my ($i, $mask, $extra);
+        $extra = ', Mask=0x' if $verbose and ($f1 != 0 or $f2 != 7);
+        if ($byteOrder eq 'MM') {
+            # loop from high byte to low byte
+            for ($i=$i1; $i<=$i2; ++$i) {
+                $mask = 0xff;
+                if ($i == $i1 and $f1) {
+                    # mask off high bits in first word (0 is high bit)
+                    foreach ((8-$f1) .. 7) { $mask ^= (1 << $_) }
+                }
+                if ($i == $i2 and $f2 < 7) {
+                    # mask off low bits in last word (7 is low bit)
+                    foreach (0 .. (6-$f2)) { $mask ^= (1 << $_) }
+                }
+                $val = $val * 256 + ($mask & Get8u($dataPt, $i + $dirStart));
+                $extra .= sprintf('%.2x', $mask) if $extra;
+            }
+        } else {
+            # (FLAC is big-endian, but support little-endian bit streams
+            #  so this routine can be used by other modules)
+            # loop from high byte to low byte
+            for ($i=$i2; $i>=$i1; --$i) {
+                $mask = 0xff;
+                if ($i == $i1 and $f1) {
+                    # mask off low bits in first word (0 is low bit)
+                    foreach (0 .. ($f1-1)) { $mask ^= (1 << $_) }
+                }
+                if ($i == $i2 and $f2 < 7) {
+                    # mask off high bits in last word (7 is high bit)
+                    foreach (($f2+1) .. 7) { $mask ^= (1 << $_) }
+                }
+                $val = $val * 256 + ($mask & Get8u($dataPt, $i + $dirStart));
+                $extra .= sprintf('%.2x', $mask) if $extra;
+            }
+        }
+        # shift word down until low bit is in position 0
+        until ($mask & 0x01) {
+            $val /= 2;
+            $mask >>= 1;
+        }
+        $exifTool->HandleTag($tagTablePtr, $tag, $val,
+            DataPt  => $dataPt,
+            DataPos => $dataPos,
+            Start   => $dirStart + $i1,
+            Size    => $i2 - $i1 + 1,
+            Extra   => $extra,
+        );
+    }
+    return 1;
+}
+
+#------------------------------------------------------------------------------
+# Extract information from an Ogg FLAC file
+# Inputs: 0) ExifTool object reference, 1) dirInfo reference
+# Returns: 1 on success, 0 if this wasn't a valid Ogg FLAC file
+sub ProcessFLAC($$)
+{
+    my ($exifTool, $dirInfo) = @_;
+
+    # must first check for leading/trailing ID3 information
+    unless ($exifTool->{DoneID3}) {
+        require Image::ExifTool::ID3;
+        Image::ExifTool::ID3::ProcessID3($exifTool, $dirInfo) and return 1;
+    }
+    my $raf = $$dirInfo{RAF};
+    my $verbose = $exifTool->Options('Verbose');
+    my $out = $exifTool->Options('TextOut');
+    my ($buff, $err);
+
+    # check FLAC signature
+    $raf->Read($buff, 4) == 4 and $buff eq 'fLaC' or return 0;
+    $exifTool->SetFileType();
+    SetByteOrder('MM');
+    my $tagTablePtr = GetTagTable('Image::ExifTool::FLAC::Main');
+    for (;;) {
+        # read next metadata block header
+        $raf->Read($buff, 4) == 4 or last;
+        my $flag = unpack('C', $buff);
+        my $size = unpack('N', $buff) & 0x00ffffff;
+        $raf->Read($buff, $size) == $size or $err = 1, last;
+        my $last = $flag & 0x80;    # last-metadata-block flag
+        my $tag  = $flag & 0x7f;    # tag bits
+        if ($verbose) {
+            print $out "FLAC metadata block, type $tag:\n";
+            $exifTool->VerboseDump(\$buff, DataPos => $raf->Tell() - $size);
+        }
+        $exifTool->HandleTag($tagTablePtr, $tag, undef,
+            DataPt  => \$buff,
+            DataPos => $raf->Tell() - $size,
+        );
+        last if $last;   # all done if  is set
+    }
+    $err and $exifTool->Warn('Format error in FLAC file');
+    return 1;
+}
+
+1;  # end
+
+__END__
+
+=head1 NAME
+
+Image::ExifTool::FLAC - Read Free Lossless Audio Codec 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 Free Lossless Audio Codec (FLAC) audio files.
+
+=head1 AUTHOR
+
+Copyright 2003-2013, 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://flac.sourceforge.net/>
+
+=back
+
+=head1 SEE ALSO
+
+L<Image::ExifTool::TagNames/FLAC Tags>,
+L<Image::ExifTool::TagNames/Ogg Tags>,
+L<Image::ExifTool(3pm)|Image::ExifTool>
+
+=cut
+

data/vendor/Image-ExifTool-9.27/lib/Image/ExifTool/FLIR.pm

@@ -0,0 +1,672 @@
+#------------------------------------------------------------------------------
+# File:         FLIR.pm
+#
+# Description:  Read FLIR meta information
+#
+# Revisions:    2013/03/28 - P. Harvey Created
+#
+# References:   1) http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,4898.0.html
+#               2) http://www.nuage.ch/site/flir-i7-some-analysis/
+#               3) http://www.workswell.cz/manuals/flir/hardware/A3xx_and_A6xx_models/Streaming_format_ThermoVision.pdf
+#               4) http://support.flir.com/DocDownload/Assets/62/English/1557488%24A.pdf
+#               5) http://code.google.com/p/dvelib/source/browse/trunk/flirPublicFormat/fpfConverter/Fpfimg.h?spec=svn3&r=3
+#               JD) Jens Duttke private communication
+#
+# Glossary:     FLIR = Forward Looking Infra Red
+#------------------------------------------------------------------------------
+
+package Image::ExifTool::FLIR;
+
+use strict;
+use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
+use Image::ExifTool::Exif;
+
+$VERSION = '1.01';
+
+sub ProcessFLIR($$;$);
+sub ProcessFLIRText($$$);
+
+my %temperatureInfo = (
+    Writable => 'rational64u',
+    Format => 'rational64s', # (have seen negative values)
+);
+
+# tag information for floating point Kelvin tag
+my %floatKelvin = (
+    Format => 'float',
+    ValueConv => '$val - 273.15',
+    PrintConv => 'sprintf("%.1f C",$val)',
+);
+
+# FLIR makernotes tags (ref PH)
+%Image::ExifTool::FLIR::Main = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    WRITABLE => 1,
+    PRIORITY => 0, # (unreliable)
+    NOTES => q{
+        Information extracted from the maker notes of JPEG images from thermal
+        imaging cameras by FLIR Systems Inc.
+    },
+    0x01 => { #2
+        Name => 'ImageTemperatureMax',
+        %temperatureInfo,
+        Notes => q{
+            these temperatures may be in Celcius, Kelvin or Fahrenheit, but there is no
+            way to tell which
+        },
+    },
+    0x02 => { Name => 'ImageTemperatureMin', %temperatureInfo }, #2
+    0x03 => { #1
+        Name => 'Emissivity',
+        Writable => 'rational64u',
+        PrintConv => 'sprintf("%.2f",$val)',
+        PrintConvInv => '$val',
+    },
+    # 0x04 does not change with temperature units; often 238, 250 or 457
+    0x04 => { Name => 'UnknownTemperature', %temperatureInfo, Unknown => 1 },
+    # 0x05,0x06 are unreliable.  As written by FLIR tools, these are the
+    # CameraTemperatureRangeMax/Min, but the units vary depending on the
+    # options settings.  But as written by some cameras, the values are different.
+    0x05 => { Name => 'CameraTemperatureRangeMax', %temperatureInfo, Unknown => 1 },
+    0x06 => { Name => 'CameraTemperatureRangeMin', %temperatureInfo, Unknown => 1 },
+    # 0x07 - string[33] (some sort of image ID?)
+    # 0x08 - string[33]
+    # 0x09 - undef (tool info)
+    # 0x0a - int32u: 1
+    # 0x0f - rational64u: 0/1000
+    # 0x10,0x11,0x12 - int32u: 0
+    # 0x13 - rational64u: 0/1000
+);
+
+# FLIR FFF tag table (ref PH)
+%Image::ExifTool::FLIR::FFF = (
+    GROUPS => { 0 => 'APP1', 2 => 'Image' },
+    PROCESS_PROC => \&ProcessFLIR,
+    NOTES => q{
+        Information extracted from FLIR FFF images and the FLIR APP1 segment of JPEG
+        images.
+    },
+    # 0 = free (ref 3)
+    0x01 => {
+        Name => 'RawData',
+        SubDirectory => { TagTable => 'Image::ExifTool::FLIR::RawData' },
+    },
+    # 2 = GainMap (ref 3)
+    # 3 = OffsMap (ref 3)
+    # 4 = DeadMap (ref 3)
+    # 5 = GainDeadMap (ref 3)
+    # 6 = CoarseMap (ref 3)
+    # 7 = ImageMap (ref 3)
+    0x20 => {
+        Name => 'CameraInfo', # (BasicData - ref 3)
+        SubDirectory => { TagTable => 'Image::ExifTool::FLIR::CameraInfo' },
+    },
+    # 0x21 - ToolInfo (spot tool, line tool, area tool) (Measure - ref 3)
+    0x22 => {
+        Name => 'PaletteInfo', # (ColorPal - ref 3)
+        SubDirectory => { TagTable => 'Image::ExifTool::FLIR::PaletteInfo' },
+    },
+    0x23 => {
+        Name => 'TextInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::FLIR::TextInfo' },
+    },
+    0x24 => {
+        Name => 'EmbeddedAudioFile',
+        # (sometimes has an unknown 8-byte header)
+        RawConv => q{
+            return \$val if $val =~ s/^.{0,16}?RIFF/RIFF/s;
+            $self->Warn('Unknown EmbeddedAudioFile format');
+            return undef;
+        },
+    },
+    # 0x27: 01 00 08 00 10 00 00 00
+    0x2b => {
+        Name => 'GPSInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::FLIR::GPSInfo' },
+    },
+    0x2e => {
+        Name => 'ParamInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::FLIR::ParamInfo' },
+    },
+);
+
+# FLIR raw data record (ref PH)
+%Image::ExifTool::FLIR::RawData = (
+    GROUPS => { 0 => 'APP1', 2 => 'Image' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    FORMAT => 'int16u',
+    FIRST_ENTRY => 0,
+    NOTES => q{
+        The thermal image data may be stored either as raw data, or in PNG format.
+        If stored as raw data, ExifTool adds a TIFF header to allow the data to be
+        viewed as a TIFF image.  If stored in PNG format, the PNG image is extracted
+        as-is.  Note that most FLIR cameras using the PNG format seem to write the
+        16-bit raw image data in the wrong byte order.
+    },
+    0x00 => {
+        # use this tag only to determine the byte order of the raw data
+        # (the value should be 0x0002 if the byte order is correct)
+        # - always "II" when RawThermalImageType is "TIFF"
+        # - seen both "II" and "MM" when RawThermalImageType is "PNG"
+        Name => 'RawDataByteOrder',
+        Hidden => 1,
+        RawConv => 'ToggleByteOrder() if $val >= 0x0100; undef',
+    },
+    0x01 => {
+        Name => 'RawThermalImageWidth',
+        RawConv => '$$self{RawThermalImageWidth} = $val',
+    },
+    0x02 => {
+        Name => 'RawThermalImageHeight',
+        RawConv => '$$self{RawThermalImageHeight} = $val',
+    },
+    # 0x03-0x05: 0
+    # 0x06: raw image width - 1
+    # 0x07: 0
+    # 0x08: raw image height - 1
+    # 0x09: 0,15,16
+    # 0x0a: 0,2,3,11,12,13,30
+    # 0x0b: 0,2
+    # 0x0c: 0 or a large number
+    # 0x0d: 0,3,4,6
+    # 0x0e-0x0f: 0
+    16 => {
+        Name => 'RawThermalImageType',
+        # this is actually the location of the image, but extract the
+        # image type as a separate tag because it may be useful
+        Format => 'undef[$size-0x20]',
+        Notes => 'TIFF or PNG',
+        RawConv => sub {
+            my ($val, $self) = @_;
+            my ($w, $h) = @$self{'RawThermalImageWidth','RawThermalImageHeight'};
+            my $type = 'DAT';
+            # add TIFF header only if this looks like 16-bit raw data
+            # (note: MakeTiffHeader currently works only for little-endian,
+            #  and I haven't seen any big-endian samples, but check anwyay)
+            if ($val =~ /^\x89PNG\r\n\x1a\n/) {
+                $type = 'PNG';
+            } elsif (length $val != $w * $h * 2) {
+                $self->Warn('Unrecognized FLIR raw data format');
+            } elsif (GetByteOrder() eq 'II') {
+                require Image::ExifTool::Sony;
+                $val = Image::ExifTool::Sony::MakeTiffHeader($w,$h,1,16) . $val;
+                $type = 'TIFF';
+            } else {
+                $self->Warn("Don't yet support big-endian TIFF RawThermalImage");
+            }
+            # save image data
+            $$self{RawThermalImage} = $val;
+            return $type;
+        },
+    },
+    16.1 => {
+        Name => 'RawThermalImage',
+        RawConv => '\$$self{RawThermalImage}',
+    },
+);
+
+# FLIR camera record (ref PH)
+%Image::ExifTool::FLIR::CameraInfo = (
+    GROUPS => { 0 => 'APP1', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    FIRST_ENTRY => 0,
+    0x00 => {
+        # use this tag only to determine the byte order
+        # (the value should be 0x0002 if the byte order is correct)
+        Name => 'CameraInfoByteOrder',
+        Format => 'int16u',
+        Hidden => 1,
+        RawConv => 'ToggleByteOrder() if $val >= 0x0100; undef',
+    },
+    # 0x02 - int16u: image width
+    # 0x04 - int16u: image height
+    # 0x0c - int32u: image width - 1
+    # 0x10 - int32u: image height - 1
+    0x20 => { Name => 'Emissivity',     Format => 'float', PrintConv => 'sprintf("%.2f",$val)' },
+    0x24 => { Name => 'ObjectDistance', Format => 'float', PrintConv => 'sprintf("%.2f m",$val)' },
+    0x28 => { Name => 'ReflectedApparentTemperature', %floatKelvin },
+    0x2c => { Name => 'AtmosphericTemperature',       %floatKelvin },
+    0x30 => { Name => 'IRWindowTemperature',          %floatKelvin },
+    0x34 => { Name => 'IRWindowTransmission', Format => 'float', PrintConv => 'sprintf("%.2f",$val)' },
+    # 0x38: 0
+    0x3c => {
+        Name => 'RelativeHumidity',
+        Format => 'float',
+        ValueConv => '$val > 2 ? $val / 100 : $val', # have seen value expressed as percent in FFF file
+        PrintConv => 'sprintf("%.1f %%",$val*100)',
+    },
+    # 0x40 - float: 0,6
+    # 0x44,0x48,0x4c: 0
+    # 0x50 - int32u: 1
+    # 0x54: 0
+    # 0x58,0x5c: ?
+    # 0x60 - float: 1,1.5,1.54
+    # 0x64,0x68,0x6c: 0
+    # 0x70 - float: 0.006568
+    # 0x74 - float: 0.012620
+    # 0x78 - float: -0.00227
+    # 0x7c - float: -0.00667
+    # 0x80 - float: 1.89999
+    # 0x84,0x88: 0
+    # 0x8c - float: 0,4,6
+    0x90 => { Name => 'CameraTemperatureRangeMax', %floatKelvin, Groups => { 2 => 'Camera' } },
+    0x94 => { Name => 'CameraTemperatureRangeMin', %floatKelvin, Groups => { 2 => 'Camera' } },
+    0x98 => { Name => 'UnknownTemperature1', %floatKelvin, Unknown => 1 }, # 50 degrees over camera max
+    0x9c => { Name => 'UnknownTemperature2', %floatKelvin, Unknown => 1 }, # usually 10 or 20 degrees below camera min
+    0xa0 => { Name => 'UnknownTemperature3', %floatKelvin, Unknown => 1 }, # same as camera max
+    0xa4 => { Name => 'UnknownTemperature4', %floatKelvin, Unknown => 1 }, # same as camera min
+    0xa8 => { Name => 'UnknownTemperature5', %floatKelvin, Unknown => 1 }, # usually 50 or 88 degrees over camera max
+    0xac => { Name => 'UnknownTemperature6', %floatKelvin, Unknown => 1 }, # usually 10, 20 or 40 degrees below camera min
+    0xd4 => { Name => 'CameraModel',        Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    0xf4 => { Name => 'CameraPartNumber',   Format => 'string[16]', Groups => { 2 => 'Camera' } }, #1
+    0x104 => { Name => 'CameraSerialNumber',Format => 'string[16]', Groups => { 2 => 'Camera' } }, #1
+    0x114 => { Name => 'CameraSoftware',    Format => 'string[16]', Groups => { 2 => 'Camera' } }, #1/PH (NC)
+    0x170 => { Name => 'LensModel',         Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    # note: it seems that FLIR updated their lenses at some point, so lenses with the same
+    # name may have different part numbers (ie. the FOL38 is either 1196456 or T197089)
+    0x190 => { Name => 'LensPartNumber',    Format => 'string[16]', Groups => { 2 => 'Camera' } },
+    0x1a0 => { Name => 'LensSerialNumber',  Format => 'string[16]', Groups => { 2 => 'Camera' } },
+    # 0x1d0 - int16u: 0,12,24,25,46
+    # 0x1d2 - int16u: 170,180,190,380,760,52320
+    0x1ec => { Name => 'FilterModel',       Format => 'string[16]', Groups => { 2 => 'Camera' } },
+    0x1fc => { Name => 'FilterPartNumber',  Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    0x21c => { Name => 'FilterSerialNumber',Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    0x384 => {
+        Name => 'DateTimeOriginal',
+        Description => 'Date/Time Original',
+        Format => 'undef[10]',
+        Groups => { 2 => 'Time' },
+        RawConv => q{
+            my $tm = Get32u(\$val, 0);
+            my $ss = Get32u(\$val, 4) & 0xffff;
+            my $tz = Get16s(\$val, 8);
+            ConvertUnixTime($tm - $tz * 60) . sprintf('.%.3d', $ss) . TimeZoneString(-$tz);
+        },
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    # 0x43c - string: either "Live" or the file name
+);
+
+# FLIR palette record (ref PH/JD)
+%Image::ExifTool::FLIR::PaletteInfo = (
+    GROUPS => { 0 => 'APP1', 2 => 'Image' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    FIRST_ENTRY => 0,
+    0x00 => { #JD
+        Name => 'PaletteColors',
+        RawConv => '$$self{PaletteColors} = $val',
+    },
+    0x06 => { Name => 'AboveColor', Format => 'int8u[3]', Notes => 'Y Cr Cb color components' }, #JD
+    0x09 => { Name => 'BelowColor', Format => 'int8u[3]' }, #JD
+    0x0c => { Name => 'OverflowColor', Format => 'int8u[3]' }, #JD
+    0x0f => { Name => 'UnderflowColor', Format => 'int8u[3]' }, #JD
+    0x12 => { Name => 'Isotherm1Color', Format => 'int8u[3]' }, #JD
+    0x15 => { Name => 'Isotherm2Color', Format => 'int8u[3]' }, #JD
+    0x1a => { Name => 'PaletteMethod' }, #JD
+    0x1b => { Name => 'PaletteStretch' }, #JD
+    0x30 => {
+        Name => 'PaletteFileName',
+        Format => 'string[32]',
+        # (not valid for all images)
+        RawConv => q{
+            $val =~ s/\0.*//;
+            $val =~ /^[\x20-\x7e]{3,31}$/ ? $val : undef;
+        },
+    },
+    0x50 => {
+        Name => 'PaletteName',
+        Format => 'string[32]',
+        # (not valid for all images)
+        RawConv => q{
+            $val =~ s/\0.*//;
+            $val =~ /^[\x20-\x7e]{3,31}$/ ? $val : undef;
+        },
+    },
+    0x70 => {
+        Name => 'Palette',
+        Format => 'undef[3*$$self{PaletteColors}]',
+        Notes => 'Y Cr Cb byte values for each palette color',
+        Binary => 1,
+    },
+);
+
+# FLIR text information record (ref PH)
+%Image::ExifTool::FLIR::TextInfo = (
+    GROUPS => { 0 => 'APP1', 2 => 'Image' },
+    PROCESS_PROC => \&ProcessFLIRText,
+    VARS => { NO_ID => 1 },
+    Label0 => { },
+    Value0 => { },
+    Label1 => { },
+    Value1 => { },
+    Label2 => { },
+    Value2 => { },
+    Label3 => { },
+    Value3 => { },
+    # (there could be more, and we will generate these on the fly if necessary)
+);
+
+# FLIR parameter information record (ref PH)
+%Image::ExifTool::FLIR::ParamInfo = (
+    GROUPS => { 0 => 'APP1', 2 => 'Image' },
+    PROCESS_PROC => \&ProcessFLIRText,
+    VARS => { NO_ID => 1 },
+    Generated => {
+        Name => 'DateTimeGenerated',
+        Description => 'Date/Time Generated',
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ tr/-/:/; $val',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    Param0 => { },
+    Param1 => { },
+    Param2 => { },
+    Param3 => { },
+    # (there could be more, and we will generate these on the fly if necessary)
+);
+
+# FLIR GPS record (ref PH/JD)
+%Image::ExifTool::FLIR::GPSInfo = (
+    GROUPS => { 0 => 'APP1', 2 => 'Image' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    FIRST_ENTRY => 0,
+    0x58 => {
+        Name => 'GPSMapDatum',
+        Format => 'string[16]',
+    },
+);
+
+# FLIR public image format (ref 4/5)
+%Image::ExifTool::FLIR::FPF = (
+    GROUPS => { 0 => 'FLIR', 2 => 'Image' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    NOTES => 'Tags extracted from FLIR Public image Format (FPF) files.',
+    0x20 => { Name => 'FPFVersion',         Format => 'int32u' },
+    0x24 => { Name => 'ImageDataOffset',    Format => 'int32u' },
+    0x28 => {
+        Name => 'ImageType',
+        Format => 'int16u',
+        PrintConv => {
+            0 => 'Temperature',
+            1 => 'Temperature Difference',
+            2 => 'Object Signal',
+            3 => 'Object Signal Difference',
+        },
+    },
+    0x2a => {
+        Name => 'ImagePixelFormat',
+        Format => 'int16u',
+        PrintConv => {
+            0 => '2-byte short integer',
+            1 => '4-byte long integer',
+            2 => '4-byte float',
+            3 => '8-byte double',
+        },
+    },
+    0x2c => { Name => 'ImageWidth',         Format => 'int16u' },
+    0x2e => { Name => 'ImageHeight',        Format => 'int16u' },
+    0x30 => { Name => 'ExternalTriggerCount',Format => 'int32u' },
+    0x34 => { Name => 'SequenceFrameNumber',Format => 'int32u' },
+    0x78 => { Name => 'CameraModel',        Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    0x98 => { Name => 'CameraPartNumber',   Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    0xb8 => { Name => 'CameraSerialNumber', Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    0xd8 => { Name => 'CameraTemperatureRangeMin', %floatKelvin,    Groups => { 2 => 'Camera' } },
+    0xdc => { Name => 'CameraTemperatureRangeMax', %floatKelvin,    Groups => { 2 => 'Camera' } },
+    0xe0 => { Name => 'LensModel',          Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    0x100 => { Name => 'LensPartNumber',    Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    0x120 => { Name => 'LensSerialNumber',  Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    0x140 => { Name => 'FilterModel',       Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    0x150 => { Name => 'FilterPartNumber',  Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    0x180 => { Name => 'FilterSerialNumber',Format => 'string[32]', Groups => { 2 => 'Camera' } },
+    0x1e0 => { Name => 'Emissivity',        Format => 'float', PrintConv => 'sprintf("%.2f",$val)' },
+    0x1e4 => { Name => 'ObjectDistance',    Format => 'float', PrintConv => 'sprintf("%.2f m",$val)' },
+    0x1e8 => { Name => 'ReflectedApparentTemperature', %floatKelvin },
+    0x1ec => { Name => 'AtmosphericTemperature',       %floatKelvin },
+    0x1f0 => { Name => 'RelativeHumidity',  Format => 'float', PrintConv => 'sprintf("%.1f %%",$val*100)' },
+    0x1f4 => { Name => 'ComputedAtmosphericTrans', Format => 'float', PrintConv => 'sprintf("%.2f",$val)' },
+    0x1f8 => { Name => 'EstimatedAtmosphericTrans',Format => 'float', PrintConv => 'sprintf("%.2f",$val)' },
+    0x1fc => { Name => 'ReferenceTemperature', %floatKelvin },
+    0x200 => { Name => 'IRWindowTemperature',  %floatKelvin },
+    0x204 => { Name => 'IRWindowTransmission', Format => 'float', PrintConv => 'sprintf("%.2f",$val)' },
+    0x248 => {
+        Name => 'DateTimeOriginal',
+        Description => 'Date/Time Original',
+        Groups => { 2 => 'Time' },
+        Format => 'int32u[7]',
+        ValueConv => 'sprintf("%.4d:%.2d:%.2d %.2d:%.2d:%.2d.%.3d",split(" ",$val))',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    # Notes (based on ref 4): 
+    # 1) The above date/time structure is documented to be 32 bytes for FPFVersion 1, but in
+    #    fact it is only 28.  Maybe this is why the full header length of my FPFVersion 2
+    #    sample is 892 bytes instead of 896.  If this was a documentation error, we are OK,
+    #    but if the alignment was really different in version 1, then the temperatures below
+    #    will be mis-aligned.  I don't have any version 1 samples to check this.
+    # 2) The following temperatures may not always be in Kelvin
+    0x2a4 => { Name => 'CameraScaleMin',    Format => 'float', PrintConv => 'sprintf("%.1f",$val)' },
+    0x2a8 => { Name => 'CameraScaleMax',    Format => 'float', PrintConv => 'sprintf("%.1f",$val)' },
+    0x2ac => { Name => 'CalculatedScaleMin',Format => 'float', PrintConv => 'sprintf("%.1f",$val)' },
+    0x2b0 => { Name => 'CalculatedScaleMax',Format => 'float', PrintConv => 'sprintf("%.1f",$val)' },
+    0x2b4 => { Name => 'ActualScaleMin',    Format => 'float', PrintConv => 'sprintf("%.1f",$val)' },
+    0x2b8 => { Name => 'ActualScaleMax',    Format => 'float', PrintConv => 'sprintf("%.1f",$val)' },
+);
+
+#------------------------------------------------------------------------------
+# Unescape FLIR Unicode character
+# Inputs: 0) escaped character code
+# Returns: UTF8 character
+sub UnescapeFLIR($)
+{
+    my $char = shift;
+    return $char unless length $char eq 4; # escaped ASCII char (ie. '\\')
+    my $val = hex $char;
+    return chr($val) if $val < 0x80;   # simple ASCII
+    return pack('C0U', $val) if $] >= 5.006001;
+    return Image::ExifTool::PackUTF8($val);
+}
+
+#------------------------------------------------------------------------------
+# Process FLIR text info record (ref PH)
+# Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
+# Returns: 1 on success
+sub ProcessFLIRText($$$)
+{
+    my ($exifTool, $dirInfo, $tagTablePtr) = @_;
+    my $dataPt = $$dirInfo{DataPt};
+    my $dirStart = $$dirInfo{DirStart} || 0;
+    my $dirLen = $$dirInfo{DirLen};
+
+    return 0 if $dirLen < 12;
+
+    $exifTool->VerboseDir('FLIR Text');
+
+    my $dat = substr($$dataPt, $dirStart+12, $dirLen-12);
+    $dat =~ s/\0.*//s; # truncate at null
+
+    # the parameter text contains an additional header entry...
+    if ($tagTablePtr eq \%Image::ExifTool::FLIR::ParamInfo and
+        $dat =~ /# (Generated) at (.*?)[\n\r]/)
+    {
+        $exifTool->HandleTag($tagTablePtr, $1, $2);
+    }
+
+    for (;;) {
+        $dat =~ /.(\d+).(label|value|param) (unicode|text) "(.*)"/g or last;
+        my ($tag, $val) = (ucfirst($2) . $1, $4);
+        if ($3 eq 'unicode' and $val =~ /\\/) {
+            # convert escaped Unicode characters (backslash followed by 4 hex digits)
+            $val =~ s/\\([0-9a-fA-F]{4}|.)/UnescapeFLIR($1)/sge;
+            $exifTool->Decode($val, 'UTF8');
+        }
+        $$tagTablePtr{$tag} or AddTagToTable($tagTablePtr, $tag, { Name => $tag });
+        $exifTool->HandleTag($tagTablePtr, $tag, $val);
+    }
+
+    return 1;
+}
+
+#------------------------------------------------------------------------------
+# Process FLIR FFF record (ref PH/1/3)
+# Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
+# Returns: 1 if this was a valid FFF record
+sub ProcessFLIR($$;$)
+{
+    my ($exifTool, $dirInfo, $tagTablePtr) = @_;
+    my $raf = $$dirInfo{RAF} || new File::RandomAccess($$dirInfo{DataPt});
+    my $verbose = $exifTool->Options('Verbose');
+    my $out = $exifTool->Options('TextOut');
+    my ($i, $buff, $rec);
+
+    # read and verify FFF header
+    $raf->Read($buff, 0x40) == 0x40 and $buff =~ /^FFF\0/ or return 0;
+
+    # set file type if reading from FFF file ($tagTablePtr will not be defined)
+    $exifTool->SetFileType() unless $tagTablePtr;
+
+    # FLIR file header (ref 3)
+    # 0x00 - string[4] file format ID = "FFF\0"
+    # 0x04 - string[16] file origin: seen "\0","MTX IR\0","CAMCTRL\0"
+    # 0x14 - int32u file format version = 100
+    # 0x18 - int32u offset to record directory
+    # 0x1c - int32u number of entries in record directory
+    # 0x20 - int32u next free index ID = 2
+    # 0x24 - int16u swap pattern = 0 (?)
+    # 0x28 - int16u[7] spares
+    # 0x34 - int32u[2] reserved
+    # 0x3c - int32u checksum
+
+    # determine byte ordering by validating version number
+    # (in my samples FLIR APP1 is big-endian, FFF files are little-endian)
+    my $ver = Get32u(\$buff, 0x14);
+    if ($ver != 100) {
+        $ver == 0x64000000 or $exifTool->Warn('Unsupported FLIR FFF version'), return 1;
+        ToggleByteOrder();
+    }
+
+    # read the FLIR record directory
+    my $pos = Get32u(\$buff, 0x18);
+    my $num = Get32u(\$buff, 0x1c);
+    unless ($raf->Seek($pos) and $raf->Read($buff, $num * 0x20) == $num * 0x20) {
+        $exifTool->Warn('Truncated FLIR FFF directory');
+        return 1;
+    }
+
+    unless ($tagTablePtr) {
+        $tagTablePtr = GetTagTable('Image::ExifTool::FLIR::FFF');
+        $$exifTool{SET_GROUP0} = 'FLIR'; # (set group 0 to 'FLIR' for FFF files)
+    }
+
+    for ($i=0; $i<$num; ++$i) {
+
+        # FLIR record entry (ref 3):
+        # 0x00 - int16u record type
+        # 0x02 - int16u record subtype: RawData 1=BE, 2=LE, 3=PNG; 1 for other record types
+        # 0x04 - int32u record version: seen 0x64,0x66,0x67,0x68,0x6f,0x104
+        # 0x08 - int32u index id = 1
+        # 0x0c - int32u record offset from start of FLIR data
+        # 0x10 - int32u record length
+        # 0x14 - int32u parent = 0 (?)
+        # 0x18 - int32u object number = 0 (?)
+        # 0x1c - int32u checksum: 0 for no checksum
+
+        my $entry = $i * 0x20;
+        my $recType = Get16u(\$buff, $entry);
+        next if $recType == 0;  # ignore free records
+        my $recPos = Get32u(\$buff, $entry + 0x0c);
+        my $recLen = Get32u(\$buff, $entry + 0x10);
+
+        $verbose and printf $out "%sFLIR Record 0x%.2x, offset 0x%.4x, length 0x%.4x\n",
+                                 $$exifTool{INDENT}, $recType, $recPos, $recLen;
+
+        unless ($raf->Seek($recPos) and $raf->Read($rec, $recLen) == $recLen) {
+            $exifTool->Warn('Invalid FLIR record');
+            last;
+        }
+        if ($$tagTablePtr{$recType}) {
+            $exifTool->HandleTag($tagTablePtr, $recType, undef,
+                DataPt  => \$rec,
+                DataPos => $recPos,
+                Start   => 0,
+                Size    => $recLen,
+            );
+        } elsif ($verbose > 2) {
+            my %parms = ( DataPos => $recPos, Prefix => $$exifTool{INDENT} );
+            $parms{MaxLen} = 96 if $verbose < 4;
+            Image::ExifTool::HexDump(\$rec, $recLen, %parms);
+        }
+    }
+    delete $$exifTool{SET_GROUP0};
+    return 1;
+}
+
+#------------------------------------------------------------------------------
+# Process FLIR public image format (FPF) file (ref PH/4)
+# Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
+# Returns: 1 if this was a valid FFF file
+sub ProcessFPF($$)
+{
+    my ($exifTool, $dirInfo) = @_;
+    my $raf = $$dirInfo{RAF};
+    my $buff;
+
+    $raf->Read($buff, 892) == 892 and $buff =~ /^FPF Public Image Format\0/ or return 0;
+
+    # I think these are always little-endian, but check FPFVersion just in case
+    SetByteOrder('II');
+    ToggleByteOrder() unless Get32u(\$buff, 0x20) & 0xffff;
+
+    my $tagTablePtr = GetTagTable('Image::ExifTool::FLIR::FPF');
+    $exifTool->SetFileType();
+    $exifTool->ProcessDirectory( { DataPt => \$buff, Parent => 'FPF' }, $tagTablePtr);
+    return 1;
+}
+
+1; # end
+
+__END__
+
+=head1 NAME
+
+Image::ExifTool::FLIR - Read FLIR meta information
+
+=head1 SYNOPSIS
+
+This module is loaded automatically by Image::ExifTool when required.
+
+=head1 DESCRIPTION
+
+This module contains the definitions to read meta information from FLIR
+Systems Inc. thermal image files (FFF, FPF and JPEG format).
+
+=head1 AUTHOR
+
+Copyright 2003-2013, 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://u88.n24.queensu.ca/exiftool/forum/index.php/topic,4898.0.html>
+
+=item L<http://www.nuage.ch/site/flir-i7-some-analysis/>
+
+=item L<http://www.workswell.cz/manuals/flir/hardware/A3xx_and_A6xx_models/Streaming_format_ThermoVision.pdf>
+
+=item L<http://support.flir.com/DocDownload/Assets/62/English/1557488%24A.pdf>
+
+=item L<http://code.google.com/p/dvelib/source/browse/trunk/flirPublicFormat/fpfConverter/Fpfimg.h?spec=svn3&r=3>
+
+=back
+
+=head1 SEE ALSO
+
+L<Image::ExifTool::TagNames/FLIR Tags>,
+L<Image::ExifTool(3pm)|Image::ExifTool>
+
+=cut