exiftool_vendored 9.45.0 → 9.46.0

data/bin/Image-ExifTool-9.46/lib/Image/ExifTool/Kodak.pm

@@ -0,0 +1,2014 @@
+#------------------------------------------------------------------------------
+# File:         Kodak.pm
+#
+# Description:  Kodak EXIF maker notes and APP3 "Meta" tags
+#
+# Revisions:    03/28/2005  - P. Harvey Created
+#
+# References:   1) http://search.cpan.org/dist/Image-MetaData-JPEG/
+#               2) http://www.ozhiker.com/electronics/pjmt/jpeg_info/meta.html
+#               3) http://www.cybercom.net/~dcoffin/dcraw/
+#
+# Notes:        There really isn't much public information about Kodak formats.
+#               The only source I could find was Image::MetaData::JPEG, which
+#               didn't provide information about decoding the tag values.  So
+#               this module represents a lot of work downloading sample images
+#               (about 100MB worth!), and testing with my daughter's CX4200.
+#------------------------------------------------------------------------------
+
+package Image::ExifTool::Kodak;
+
+use strict;
+use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
+use Image::ExifTool::Exif;
+
+$VERSION = '1.33';
+
+sub ProcessKodakIFD($$$);
+sub ProcessKodakText($$$);
+sub WriteKodakIFD($$$);
+
+# Kodak type 1 maker notes (ref 1)
+%Image::ExifTool::Kodak::Main = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    NOTES => q{
+        The table below contains the most common set of Kodak tags.  The following
+        Kodak camera models have been tested and found to use these tags: C360,
+        C663, C875, CX6330, CX6445, CX7330, CX7430, CX7525, CX7530, DC4800, DC4900,
+        DX3500, DX3600, DX3900, DX4330, DX4530, DX4900, DX6340, DX6440, DX6490,
+        DX7440, DX7590, DX7630, EasyShare-One, LS420, LS443, LS633, LS743, LS753,
+        V530, V550, V570, V603, V610, V705, Z650, Z700, Z710, Z730, Z740, Z760 and
+        Z7590.
+    },
+    WRITABLE => 1,
+    FIRST_ENTRY => 8,
+    0x00 => {
+        Name => 'KodakModel',
+        Format => 'string[8]',
+    },
+    0x09 => {
+        Name => 'Quality',
+        PrintConv => { #PH
+            1 => 'Fine',
+            2 => 'Normal',
+        },
+    },
+    0x0a => {
+        Name => 'BurstMode',
+        PrintConv => { 0 => 'Off', 1 => 'On' },
+    },
+    0x0c => {
+        Name => 'KodakImageWidth',
+        Format => 'int16u',
+    },
+    0x0e => {
+        Name => 'KodakImageHeight',
+        Format => 'int16u',
+    },
+    0x10 => {
+        Name => 'YearCreated',
+        Groups => { 2 => 'Time' },
+        Format => 'int16u',
+    },
+    0x12 => {
+        Name => 'MonthDayCreated',
+        Groups => { 2 => 'Time' },
+        Format => 'int8u[2]',
+        ValueConv => 'sprintf("%.2d:%.2d",split(" ", $val))',
+        ValueConvInv => '$val=~tr/:./ /;$val',
+    },
+    0x14 => {
+        Name => 'TimeCreated',
+        Groups => { 2 => 'Time' },
+        Format => 'int8u[4]',
+        Shift => 'Time',
+        ValueConv => 'sprintf("%.2d:%.2d:%.2d.%.2d",split(" ", $val))',
+        ValueConvInv => '$val=~tr/:./ /;$val',
+    },
+    0x18 => {
+        Name => 'BurstMode2',
+        Format => 'int16u',
+        Unknown => 1, # not sure about this tag (or other 'Unknown' tags)
+    },
+    0x1b => {
+        Name => 'ShutterMode',
+        PrintConv => { #PH
+            0 => 'Auto',
+            8 => 'Aperture Priority',
+            32 => 'Manual?',
+        },
+    },
+    0x1c => {
+        Name => 'MeteringMode',
+        PrintConv => { #PH
+            0 => 'Multi-segment',
+            1 => 'Center-weighted average',
+            2 => 'Spot',
+        },
+    },
+    0x1d => 'SequenceNumber',
+    0x1e => {
+        Name => 'FNumber',
+        Format => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => 'int($val * 100 + 0.5)',
+    },
+    0x20 => {
+        Name => 'ExposureTime',
+        Format => 'int32u',
+        ValueConv => '$val / 1e5',
+        ValueConvInv => '$val * 1e5',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
+    },
+    0x24 => {
+        Name => 'ExposureCompensation',
+        Format => 'int16s',
+        ValueConv => '$val / 1000',
+        ValueConvInv => '$val * 1000',
+        PrintConv => '$val > 0 ? "+$val" : $val',
+        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
+    },
+    0x26 => {
+        Name => 'VariousModes',
+        Format => 'int16u',
+        Unknown => 1,
+    },
+    0x28 => {
+        Name => 'Distance1',
+        Format => 'int32u',
+        Unknown => 1,
+    },
+    0x2c => {
+        Name => 'Distance2',
+        Format => 'int32u',
+        Unknown => 1,
+    },
+    0x30 => {
+        Name => 'Distance3',
+        Format => 'int32u',
+        Unknown => 1,
+    },
+    0x34 => {
+        Name => 'Distance4',
+        Format => 'int32u',
+        Unknown => 1,
+    },
+    0x38 => {
+        Name => 'FocusMode',
+        PrintConv => {
+            0 => 'Normal',
+            2 => 'Macro',
+        },
+    },
+    0x3a => {
+        Name => 'VariousModes2',
+        Format => 'int16u',
+        Unknown => 1,
+    },
+    0x3c => {
+        Name => 'PanoramaMode',
+        Format => 'int16u',
+        Unknown => 1,
+    },
+    0x3e => {
+        Name => 'SubjectDistance',
+        Format => 'int16u',
+        Unknown => 1,
+    },
+    0x40 => {
+        Name => 'WhiteBalance',
+        Priority => 0,
+        PrintConv => { #PH
+            0 => 'Auto',
+            1 => 'Flash?',
+            2 => 'Tungsten',
+            3 => 'Daylight',
+        },
+    },
+    0x5c => {
+        Name => 'FlashMode',
+        Flags => 'PrintHex',
+        # various models express this number differently
+        PrintConv => { #PH
+            0x00 => 'Auto',
+            0x01 => 'Fill Flash',
+            0x02 => 'Off',
+            0x03 => 'Red-Eye',
+            0x10 => 'Fill Flash',
+            0x20 => 'Off',
+            0x40 => 'Red-Eye?',
+        },
+    },
+    0x5d => {
+        Name => 'FlashFired',
+        PrintConv => { 0 => 'No', 1 => 'Yes' },
+    },
+    0x5e => {
+        Name => 'ISOSetting',
+        Format => 'int16u',
+        PrintConv => '$val ? $val : "Auto"',
+        PrintConvInv => '$val=~/^\d+$/ ? $val : 0',
+    },
+    0x60 => {
+        Name => 'ISO',
+        Format => 'int16u',
+    },
+    0x62 => {
+        Name => 'TotalZoom',
+        Format => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+    },
+    0x64 => {
+        Name => 'DateTimeStamp',
+        Format => 'int16u',
+        PrintConv => '$val ? "Mode $val" : "Off"',
+        PrintConvInv => '$val=~tr/0-9//dc; $val ? $val : 0',
+    },
+    0x66 => {
+        Name => 'ColorMode',
+        Format => 'int16u',
+        Flags => 'PrintHex',
+        # various models express this number differently
+        PrintConv => { #PH
+            0x01 => 'B&W',
+            0x02 => 'Sepia',
+            0x03 => 'B&W Yellow Filter',
+            0x04 => 'B&W Red Filter',
+            0x20 => 'Saturated Color',
+            0x40 => 'Neutral Color',
+            0x100 => 'Saturated Color',
+            0x200 => 'Neutral Color',
+            0x2000 => 'B&W',
+            0x4000 => 'Sepia',
+        },
+    },
+    0x68 => {
+        Name => 'DigitalZoom',
+        Format => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+    },
+    0x6b => {
+        Name => 'Sharpness',
+        Format => 'int8s',
+        %Image::ExifTool::Exif::printParameter,
+    },
+);
+
+# Kodak type 2 maker notes (ref PH)
+%Image::ExifTool::Kodak::Type2 = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    NOTES => q{
+        These tags are used by the Kodak DC220, DC260, DC265 and DC290,
+        Hewlett-Packard PhotoSmart 618, C500 and C912, Pentax EI-200 and EI-2000,
+        and Minolta EX1500Z.
+    },
+    WRITABLE => 1,
+    FIRST_ENTRY => 0,
+    0x08 => {
+        Name => 'KodakMaker',
+        Format => 'string[32]',
+    },
+    0x28 => {
+        Name => 'KodakModel',
+        Format => 'string[32]',
+    },
+    0x6c => {
+        Name => 'KodakImageWidth',
+        Format => 'int32u',
+    },
+    0x70 => {
+        Name => 'KodakImageHeight',
+        Format => 'int32u',
+    },
+);
+
+# Kodak type 3 maker notes (ref PH)
+%Image::ExifTool::Kodak::Type3 = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    NOTES => 'These tags are used by the DC240, DC280, DC3400 and DC5000.',
+    WRITABLE => 1,
+    FIRST_ENTRY => 0,
+    0x0c => {
+        Name => 'YearCreated',
+        Groups => { 2 => 'Time' },
+        Format => 'int16u',
+    },
+    0x0e => {
+        Name => 'MonthDayCreated',
+        Groups => { 2 => 'Time' },
+        Format => 'int8u[2]',
+        ValueConv => 'sprintf("%.2d:%.2d",split(" ", $val))',
+        ValueConvInv => '$val=~tr/:./ /;$val',
+    },
+    0x10 => {
+        Name => 'TimeCreated',
+        Groups => { 2 => 'Time' },
+        Format => 'int8u[4]',
+        Shift => 'Time',
+        ValueConv => 'sprintf("%2d:%.2d:%.2d.%.2d",split(" ", $val))',
+        ValueConvInv => '$val=~tr/:./ /;$val',
+    },
+    0x1e => {
+        Name => 'OpticalZoom',
+        Format => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+    },
+    0x37 => {
+        Name => 'Sharpness',
+        Format => 'int8s',
+        %Image::ExifTool::Exif::printParameter,
+    },
+    0x38 => {
+        Name => 'ExposureTime',
+        Format => 'int32u',
+        ValueConv => '$val / 1e5',
+        ValueConvInv => '$val * 1e5',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
+    },
+    0x3c => {
+        Name => 'FNumber',
+        Format => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => 'int($val * 100 + 0.5)',
+    },
+    0x4e => {
+        Name => 'ISO',
+        Format => 'int16u',
+    },
+);
+
+# Kodak type 4 maker notes (ref PH)
+%Image::ExifTool::Kodak::Type4 = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    NOTES => 'These tags are used by the DC200 and DC215.',
+    WRITABLE => 1,
+    FIRST_ENTRY => 0,
+    0x20 => {
+        Name => 'OriginalFileName',
+        Format => 'string[12]',
+    },
+);
+
+# Kodak type 5 maker notes (ref PH)
+%Image::ExifTool::Kodak::Type5 = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    NOTES => q{
+        These tags are used by the CX4200, CX4210, CX4230, CX4300, CX4310, CX6200
+        and CX6230.
+    },
+    WRITABLE => 1,
+    FIRST_ENTRY => 0,
+    0x14 => {
+        Name => 'ExposureTime',
+        Format => 'int32u',
+        ValueConv => '$val / 1e5',
+        ValueConvInv => '$val * 1e5',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
+    },
+    0x1a => {
+        Name => 'WhiteBalance',
+        PrintConv => {
+            1 => 'Daylight',
+            2 => 'Flash',
+            3 => 'Tungsten',
+        },
+    },
+    0x1c => {
+        Name => 'FNumber',
+        Format => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => 'int($val * 100 + 0.5)',
+    },
+    0x1e => {
+        Name => 'ISO',
+        Format => 'int16u',
+    },
+    0x20 => {
+        Name => 'OpticalZoom',
+        Format => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+    },
+    0x22 => {
+        Name => 'DigitalZoom',
+        Format => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+    },
+    0x27 => {
+        Name => 'FlashMode',
+        PrintConv => {
+            0 => 'Auto',
+            1 => 'On',
+            2 => 'Off',
+            3 => 'Red-Eye',
+        },
+    },
+    0x2a => {
+        Name => 'ImageRotated',
+        PrintConv => { 0 => 'No', 1 => 'Yes' },
+    },
+    0x2b => {
+        Name => 'Macro',
+        PrintConv => { 0 => 'On', 1 => 'Off' },
+    },
+);
+
+# Kodak type 6 maker notes (ref PH)
+%Image::ExifTool::Kodak::Type6 = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    NOTES => 'These tags are used by the DX3215 and DX3700.',
+    WRITABLE => 1,
+    FIRST_ENTRY => 0,
+    0x10 => {
+        Name => 'ExposureTime',
+        Format => 'int32u',
+        ValueConv => '$val / 1e5',
+        ValueConvInv => '$val * 1e5',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
+    },
+    0x14 => {
+        Name => 'ISOSetting',
+        Format => 'int32u',
+        Unknown => 1,
+    },
+    0x18 => {
+        Name => 'FNumber',
+        Format => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => 'int($val * 100 + 0.5)',
+    },
+    0x1a => {
+        Name => 'ISO',
+        Format => 'int16u',
+    },
+    0x1c => {
+        Name => 'OpticalZoom',
+        Format => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+    },
+    0x1e => {
+        Name => 'DigitalZoom',
+        Format => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+    },
+    0x22 => {
+        Name => 'Flash',
+        Format => 'int16u',
+        PrintConv => {
+            0 => 'No Flash',
+            1 => 'Fired',
+        },
+    },
+);
+
+# Kodak type 7 maker notes (ref PH)
+%Image::ExifTool::Kodak::Type7 = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    WRITABLE => 1,
+    FIRST_ENTRY => 0,
+    NOTES => q{
+        The maker notes of models such as the C340, C433, CC533, LS755, V803 and
+        V1003 seem to start with the camera serial number.  The C310, C315, C330,
+        C643, C743, CD33, CD43, CX7220 and CX7300 maker notes are also decoded using
+        this table, although the strings for these cameras don't conform to the
+        usual Kodak serial number format, and instead have the model name followed
+        by 8 digits.
+    },
+    0 => { # (not confirmed)
+        Name => 'SerialNumber',
+        Format => 'string[16]',
+        ValueConv => '$val=~s/\s+$//; $val', # remove trailing whitespace
+        ValueConvInv => '$val',
+    },
+);
+
+# Kodak IFD-format maker notes (ref PH)
+%Image::ExifTool::Kodak::Type8 = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    NOTES => q{
+        Kodak models such as the ZD710, P712, P850, P880, V1233, V1253, V1275,
+        V1285, Z612, Z712, Z812, Z885 use standard TIFF IFD format for the maker
+        notes.  In keeping with Kodak's strategy of inconsistent makernotes, models
+        such as the M380, M1033, M1093, V1073, V1273, Z1012, Z1085 and Z8612
+        also use these tags, but these makernotes begin with a TIFF header instead
+        of an IFD entry count and use relative instead of absolute offsets.  There
+        is a large amount of information stored in these maker notes (apparently
+        with much duplication), but relatively few tags have so far been decoded.
+    },
+    0xfc00 => [{
+        Name => 'SubIFD0',
+        Condition => '$format eq "undef"',
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        NestedHtmlDump => 2, # (so HtmlDump doesn't show these as double-referenced)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD0',
+            Base => '$start',
+            ProcessProc => \&ProcessKodakIFD,
+            WriteProc => \&WriteKodakIFD,
+        },
+    },{
+        Name => 'SubIFD0',
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        Flags => 'SubIFD',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD0',
+            Start => '$val',
+            # (odd but true: the Base for this SubIFD is different than 0xfc01-0xfc06)
+        },
+    }],
+    # SubIFD1 and higher data is preceded by a TIFF byte order mark to indicate
+    # the byte ordering used.  Beginning with the M580, these subdirectories are
+    # stored as 'undef' data rather than as a standard EXIF SubIFD.
+    0xfc01 => [{
+        Name => 'SubIFD1',
+        Condition => '$format eq "undef"',
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        NestedHtmlDump => 2,
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD1',
+            Base => '$start',
+        },
+    },{
+        Name => 'SubIFD1',
+        Condition => '$$valPt ne "\0\0\0\0"',   # may be zero if dir doesn't exist
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        Flags => 'SubIFD',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD1',
+            Start => '$val',
+            Base => '$start',
+        },
+    }],
+    0xfc02 => [{
+        Name => 'SubIFD2',
+        Condition => '$format eq "undef"',
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        NestedHtmlDump => 2,
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD2',
+            Base => '$start',
+        },
+    },{
+        Name => 'SubIFD2',
+        Condition => '$$valPt ne "\0\0\0\0"',   # may be zero if dir doesn't exist
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        Flags => 'SubIFD',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD2',
+            Start => '$val',
+            Base => '$start',
+        },
+    }],
+    0xfc03 => [{
+        Name => 'SubIFD3',
+        Condition => '$format eq "undef"',
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        NestedHtmlDump => 2,
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD3',
+            Base => '$start',
+        },
+    },{
+        Name => 'SubIFD3',
+        Condition => '$$valPt ne "\0\0\0\0"',   # may be zero if dir doesn't exist
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        Flags => 'SubIFD',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD3',
+            Start => '$val',
+            Base => '$start',
+        },
+    }],
+    # (SubIFD4 has the pointer zeroed in my samples, but support it
+    # in case it is used by future models -- ignored if pointer is zero)
+    0xfc04 => [{
+        Name => 'SubIFD4',
+        Condition => '$format eq "undef"',
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        NestedHtmlDump => 2,
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD4',
+            Base => '$start',
+        },
+    },{
+        Name => 'SubIFD4',
+        Condition => '$$valPt ne "\0\0\0\0"',   # may be zero if dir doesn't exist
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        Flags => 'SubIFD',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD4',
+            Start => '$val',
+            Base => '$start',
+        },
+    }],
+    0xfc05 => [{
+        Name => 'SubIFD5',
+        Condition => '$format eq "undef"',
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        NestedHtmlDump => 2,
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD5',
+            Base => '$start',
+        },
+    },{
+        Name => 'SubIFD5',
+        Condition => '$$valPt ne "\0\0\0\0"',   # may be zero if dir doesn't exist
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        Flags => 'SubIFD',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD5',
+            Start => '$val',
+            Base => '$start',
+        },
+    }],
+    0xfc06 => [{ # new for the M580
+        Name => 'SubIFD6',
+        Condition => '$format eq "undef"',
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        NestedHtmlDump => 2,
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD6',
+            Base => '$start',
+        },
+    },{
+        Name => 'SubIFD6',
+        Condition => '$$valPt ne "\0\0\0\0"',   # may be zero if dir doesn't exist
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        Flags => 'SubIFD',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD6',
+            Start => '$val',
+            Base => '$start',
+        },
+    }],
+    0xfcff => {
+        Name => 'SubIFD255',
+        Condition => '$format eq "undef"',
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        NestedHtmlDump => 2,
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SubIFD0',
+            # (uses the same Base as the main MakerNote IFD)
+        },
+    },
+    0xff00 => {
+        Name => 'CameraInfo',
+        Condition => '$$valPt ne "\0\0\0\0"',   # may be zero if dir doesn't exist
+        Groups => { 1 => 'MakerNotes' },        # SubIFD needs group 1 set
+        Flags => 'SubIFD',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::CameraInfo',
+            Start => '$val',
+            # (uses the same Base as the main MakerNote IFD)
+        },
+    },
+);
+
+# Kodak type 9 maker notes (ref PH)
+%Image::ExifTool::Kodak::Type9 = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    WRITABLE => 1,
+    FIRST_ENTRY => 0,
+    NOTES => q{
+        These tags are used by the Kodak C140, C180, C913, C1013, M320, M340 and
+        M550, as well as various cameras marketed by other manufacturers.
+    },
+    0x0c => [
+        {
+            Name => 'FNumber',
+            Condition => '$$self{Make} =~ /Kodak/i',
+            Format => 'int16u',
+            ValueConv => '$val / 100',
+            ValueConvInv => 'int($val * 100 + 0.5)',
+        },{
+            Name => 'FNumber',
+            Format => 'int16u',
+            ValueConv => '$val / 10',
+            ValueConvInv => 'int($val * 10 + 0.5)',
+        },
+    ],
+    0x10 => {
+        Name => 'ExposureTime',
+        Format => 'int32u',
+        ValueConv => '$val / 1e6',
+        ValueConvInv => '$val * 1e6',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
+    },
+    0x14 => {
+        Name => 'DateTimeOriginal',
+        Description => 'Date/Time Original',
+        Groups => { 2 => 'Time' },
+        Format => 'string[20]',
+        Shift => 'Time',
+        ValueConv => '$val=~s{/}{:}g; $val',
+        ValueConvInv => '$val=~s{^(\d{4}):(\d{2}):}{$1/$2/}; $val',
+        PrintConv => '$self->ConvertDateTime($val)',
+        PrintConvInv => '$self->InverseDateTime($val,0)',
+    },
+    0x34 => {
+        Name => 'ISO',
+        Format => 'int16u',
+    },
+    0x57 => {
+        Name => 'FirmwareVersion',
+        Condition => '$$self{Make} =~ /Kodak/i',
+        Format => 'string[16]',
+        Notes => 'Kodak only',
+    },
+    0xa8 => {
+        Name => 'UnknownNumber', # (was SerialNumber, but not unique for all cameras. ie C1013)
+        Condition => '$$self{Make} =~ /Kodak/i and $$valPt =~ /^([A-Z0-9]{1,11}\0|[A-Z0-9]{12})/i',
+        Format => 'string[12]',
+        Notes => 'Kodak only',
+        Writable => 0,
+    },
+    0xc4 => {
+        Name => 'UnknownNumber', # (confirmed NOT to be serial number for Easyshare Mini - PH)
+        Condition => '$$self{Make} =~ /Kodak/i and $$valPt =~ /^([A-Z0-9]{1,11}\0|[A-Z0-9]{12})/i',
+        Format => 'string[12]',
+        Notes => 'Kodak only',
+        Writable => 0,
+    },
+);
+
+# more Kodak IFD-format maker notes (ref PH)
+%Image::ExifTool::Kodak::Type10 = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PRIORITY => 0,
+    NOTES => q{
+        Another variation of the IFD-format type, this time with just a byte order
+        indicator instead of a full TIFF header.  These tags are used by the Z980.
+    },
+    # 0x01 int16u - always 0
+    0x02 => {
+        Name => 'PreviewImageSize',
+        Writable => 'int16u',
+        Count => 2,
+    },
+    # 0x03 int32u - ranges from about 33940 to 40680
+    # 0x04 int32u - always 18493
+    # 0x06 undef[4] - 07 d9 04 11
+    # 0x07 undef[3] - varies
+    # 0x08 int16u - 1 (mostly), 2
+    # 0x09 int16u - 255
+    # 0x0b int16u[2] - '0 0' (mostly), '20 0', '21 0', '1 0'
+    # 0x0c int16u - 1 (mostly), 3, 259, 260
+    # 0x0d int16u - 0
+    # 0x0e int16u - 0, 1, 2 (MeteringMode? 0=Partial, 1,2=Multi)
+    # 0x0f int16u - 0, 5 (MeteringMode? 0=Multi, 5=Partial)
+    # 0x10 int16u - ranges from about 902 to 2308
+    0x12 => {
+        Name => 'ExposureTime',
+        Writable => 'int32u',
+        ValueConv => '$val / 1e5',
+        ValueConvInv => '$val * 1e5',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
+    },
+    0x13 => {
+        Name => 'FNumber',
+        Writable => 'int16u',
+        ValueConv => '$val / 10',
+        ValueConvInv => '$val * 10',
+    },
+    0x14 => {
+        Name => 'ISO',
+        Writable => 'int16u',
+        ValueConv => 'exp($val/3*log(2))*25',
+        ValueConvInv => '3*log($val/25)/log(2)',
+        PrintConv => 'int($val + 0.5)',
+        PrintConvInv => '$val',
+    },
+    # 0x15 int16u - 18-25 (SceneMode? 21=auto, 24=Aperture Priority, 19=high speed)
+    # 0x16 int16u - 50
+    # 0x17 int16u - 0, 65535 (MeteringMode? 0=Multi, 65535=Partial)
+    # 0x19 int16u - 0, 4 (WhiteBalance? 0=Auto, 4=Manual)
+    # 0x1a int16u - 0, 65535
+    # 0x1b int16u - 416-696
+    # 0x1c int16u - 251-439 (low when 0x1b is high)
+    0x1d => {
+        Name => 'FocalLength',
+        Writable => 'int32u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+        PrintConv => '"$val mm"',
+        PrintConvInv => '$val=~s/\s*mm//;$val',
+    },
+    # 0x1e int16u - 100
+    # 0x1f int16u - 0, 1
+    # 0x20,0x21 int16u - 1
+    # 0x27 undef[4] - fe ff ff ff
+    # 0x32 undef[4] - 00 00 00 00
+    # 0x61 int32u[2] - '0 0' or '34050 0'
+    # 0x62 int8u - 0, 1
+    # 0x63 int8u - 1
+    # 0x64,0x65 int8u - 0, 1, 2
+    # 0x66 int32u - 0
+    # 0x67 int32u - 3
+    # 0x68 int32u - 0
+    # 0x3fe undef[2540]
+);
+
+# Kodak SubIFD0 tags (ref PH)
+%Image::ExifTool::Kodak::SubIFD0 = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    NOTES => 'SubIFD0 through SubIFD5 tags are written a number of newer Kodak models.',
+    0xfa02 => {
+        Name => 'SceneMode',
+        Writable => 'int16u',
+        Notes => 'may not be valid for some models', # ie. M580?
+        PrintConvColumns => 2,
+        PrintConv => {
+            1 => 'Sport',
+            3 => 'Portrait',
+            4 => 'Landscape',
+            6 => 'Beach',
+            7 => 'Night Portrait',
+            8 => 'Night Landscape',
+            9 => 'Snow',
+            10 => 'Text',
+            11 => 'Fireworks',
+            12 => 'Macro',
+            13 => 'Museum',
+            16 => 'Children',
+            17 => 'Program',
+            18 => 'Aperture Priority',
+            19 => 'Shutter Priority',
+            20 => 'Manual',
+            25 => 'Back Light',
+            28 => 'Candlelight',
+            29 => 'Sunset',
+            31 => 'Panorama Left-Right',
+            32 => 'Panorama Right-Left',
+            33 => 'Smart Scene',
+            34 => 'High ISO',
+        },
+    },
+    # 0xfa04 - values: 0 (normally), 2 (panorama shots)
+    # 0xfa0f - values: 0 (normally), 1 (macro?)
+    # 0xfa11 - some sort of FNumber (x 100)
+    0xfa19 => {
+        Name => 'SerialNumber', # (verified with Z712 - PH)
+        Writable => 'string',
+    },
+    0xfa1d => {
+        Name => 'KodakImageWidth',
+        Writable => 'int16u',
+    },
+    0xfa1e => {
+        Name => 'KodakImageHeight',
+        Writable => 'int16u',
+    },
+    0xfa20 => {
+        Name => 'SensorWidth',
+        Writable => 'int16u',
+    },
+    0xfa21 => {
+        Name => 'SensorHeight',
+        Writable => 'int16u',
+    },
+    0xfa23 => {
+        Name => 'FNumber',
+        Writable => 'int16u',
+        Priority => 0,
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+    },
+    0xfa24 => {
+        Name => 'ExposureTime',
+        Writable => 'int32u',
+        Priority => 0,
+        ValueConv => '$val / 1e5',
+        ValueConvInv => '$val * 1e5',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
+    },
+    0xfa2e => {
+        Name => 'ISO',
+        Writable => 'int16u',
+        Priority => 0,
+    },
+    0xfa3d => {
+        Name => 'OpticalZoom',
+        Writable => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+        PrintConv => 'sprintf("%.2f",$val)',
+        PrintConvInv => '$val=~s/ ?x//; $val',
+    },
+    0xfa46 => {
+        Name => 'ISO',
+        Writable => 'int16u',
+        Priority => 0,
+    },
+    # 0xfa4c - related to focal length (1=wide, 32=full zoom)
+    0xfa51 => {
+        Name => 'KodakImageWidth',
+        Writable => 'int16u',
+    },
+    0xfa52 => {
+        Name => 'KodakImageHeight',
+        Writable => 'int16u',
+    },
+    0xfa54 => {
+        Name => 'ThumbnailWidth',
+        Writable => 'int16u',
+    },
+    0xfa55 => {
+        Name => 'ThumbnailHeight',
+        Writable => 'int16u',
+    },
+    0xfa57 => {
+        Name => 'PreviewImageWidth',
+        Writable => 'int16u',
+    },
+    0xfa58 => {
+        Name => 'PreviewImageHeight',
+        Writable => 'int16u',
+    },
+);
+
+# Kodak SubIFD1 tags (ref PH)
+%Image::ExifTool::Kodak::SubIFD1 = (
+    PROCESS_PROC => \&ProcessKodakIFD,
+    WRITE_PROC => \&WriteKodakIFD,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x0027 => {
+        Name => 'ISO',
+        Writable => 'int16u',
+        Priority => 0,
+    },
+    0x0028 => {
+        Name => 'ISO',
+        Writable => 'int16u',
+        Priority => 0,
+    },
+);
+
+my %sceneModeUsed = (
+    0 => 'Program',
+    2 => 'Aperture Priority',
+    3 => 'Shutter Priority',
+    4 => 'Manual',
+    5 => 'Portrait',
+    6 => 'Sport',
+    7 => 'Children',
+    8 => 'Museum',
+    10 => 'High ISO',
+    11 => 'Text',
+    12 => 'Macro',
+    13 => 'Back Light',
+    16 => 'Landscape',
+    17 => 'Night Landscape',
+    18 => 'Night Portrait',
+    19 => 'Snow',
+    20 => 'Beach',
+    21 => 'Fireworks',
+    22 => 'Sunset',
+    23 => 'Candlelight',
+    28 => 'Panorama',
+);
+
+# Kodak SubIFD2 tags (ref PH)
+%Image::ExifTool::Kodak::SubIFD2 = (
+    PROCESS_PROC => \&ProcessKodakIFD,
+    WRITE_PROC => \&WriteKodakIFD,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x6002 => {
+        Name => 'SceneModeUsed',
+        Writable => 'int32u',
+        PrintConvColumns => 2,
+        PrintConv => \%sceneModeUsed,
+    },
+    0x6006 => {
+        Name => 'OpticalZoom',
+        Writable => 'int32u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+        PrintConv => 'sprintf("%.2f",$val)',
+        PrintConvInv => '$val=~s/ ?x//; $val',
+    },
+    # 0x6009 - some sort of FNumber (x 100)
+    0x6103 => {
+        Name => 'MaxAperture',
+        Writable => 'int32u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+    },
+    0xf002 => {
+        Name => 'SceneModeUsed',
+        Writable => 'int32u',
+        PrintConvColumns => 2,
+        PrintConv => \%sceneModeUsed,
+    },
+    0xf006 => {
+        Name => 'OpticalZoom',
+        Writable => 'int32u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+        PrintConv => 'sprintf("%.2f",$val)',
+        PrintConvInv => '$val=~s/ ?x//; $val',
+    },
+    # 0xf009 - some sort of FNumber (x 100)
+    0xf103 => {
+        Name => 'FNumber',
+        Writable => 'int32u',
+        Priority => 0,
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+    },
+    0xf104 => {
+        Name => 'ExposureTime',
+        Writable => 'int32u',
+        Priority => 0,
+        ValueConv => '$val / 1e6',
+        ValueConvInv => '$val * 1e6',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
+    },
+    0xf105 => {
+        Name => 'ISO',
+        Writable => 'int32u',
+        Priority => 0,
+        ValueConv => '$val / 10',
+        ValueConvInv => '$val * 10',
+    },
+);
+
+# Kodak SubIFD3 tags (ref PH)
+%Image::ExifTool::Kodak::SubIFD3 = (
+    PROCESS_PROC => \&ProcessKodakIFD,
+    WRITE_PROC => \&WriteKodakIFD,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x1000 => {
+        Name => 'OpticalZoom',
+        Writable => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+        PrintConv => 'sprintf("%.2f",$val)',
+        PrintConvInv => '$val=~s/ ?x//; $val',
+    },
+    # 0x1002 - related to focal length (1=wide, 32=full zoom)
+    # 0x1006 - pictures remaining? (gradually decreases as pictures are taken)
+#
+# the following unknown Kodak tags in subIFD3 may store an IFD count of 0 or 1 instead
+# of the correct value (which changes from model to model).  This bad count is fixed
+# with the "FixCount" patch.  Models known to have this problem include:
+# M380, M1033, M1093IS, V1073, V1233, V1253, V1273, V1275, V1285, Z612, Z712,
+# Z812, Z885, Z915, Z950, Z1012IS, Z1085IS, ZD710
+#
+    0x2007 => {
+        Name => 'Kodak_SubIFD3_0x2007',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x2008 => {
+        Name => 'Kodak_SubIFD3_0x2008',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x2009 => {
+        Name => 'Kodak_SubIFD3_0x2009',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x200a => {
+        Name => 'Kodak_SubIFD3_0x200a',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x200b => {
+        Name => 'Kodak_SubIFD3_0x200b',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x3020 => {
+        Name => 'Kodak_SubIFD3_0x3020',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x3030 => {
+        Name => 'Kodak_SubIFD3_0x3030',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x3040 => {
+        Name => 'Kodak_SubIFD3_0x3040',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x3050 => {
+        Name => 'Kodak_SubIFD3_0x3050',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x3060 => {
+        Name => 'Kodak_SubIFD3_0x3060',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x8001 => {
+        Name => 'Kodak_SubIFD3_0x8001',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x8002 => {
+        Name => 'Kodak_SubIFD3_0x8002',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x8003 => {
+        Name => 'Kodak_SubIFD3_0x8003',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x8004 => {
+        Name => 'Kodak_SubIFD3_0x8004',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x8005 => {
+        Name => 'Kodak_SubIFD3_0x8005',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x8006 => {
+        Name => 'Kodak_SubIFD3_0x8006',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x8007 => {
+        Name => 'Kodak_SubIFD3_0x8007',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x8008 => {
+        Name => 'Kodak_SubIFD3_0x8008',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x8009 => {
+        Name => 'Kodak_SubIFD3_0x8009',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x800a => {
+        Name => 'Kodak_SubIFD3_0x800a',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x800b => {
+        Name => 'Kodak_SubIFD3_0x800b',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+    0x800c => {
+        Name => 'Kodak_SubIFD3_0x800c',
+        Flags => [ 'FixCount', 'Unknown', 'Hidden' ],
+    },
+);
+
+# Kodak SubIFD4 tags (ref PH)
+%Image::ExifTool::Kodak::SubIFD4 = (
+    PROCESS_PROC => \&ProcessKodakIFD,
+    WRITE_PROC => \&WriteKodakIFD,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+);
+
+# Kodak SubIFD5 tags (ref PH)
+%Image::ExifTool::Kodak::SubIFD5 = (
+    PROCESS_PROC => \&ProcessKodakIFD,
+    WRITE_PROC => \&WriteKodakIFD,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x000f => {
+        Name => 'OpticalZoom',
+        Writable => 'int16u',
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+        PrintConv => 'sprintf("%.2f",$val)',
+        PrintConvInv => '$val=~s/ ?x//; $val',
+    },
+);
+
+# Kodak SubIFD6 tags (ref PH)
+%Image::ExifTool::Kodak::SubIFD6 = (
+    PROCESS_PROC => \&ProcessKodakIFD,
+    WRITE_PROC => \&WriteKodakIFD,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    NOTES => 'SubIFD6 is written by the M580.',
+);
+
+# Decoded from P712, P850 and P880 samples (ref PH)
+%Image::ExifTool::Kodak::CameraInfo = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    NOTES => 'These tags are used by the  P712, P850 and P880.',
+    0xf900 => {
+        Name => 'SensorWidth',
+        Writable => 'int16u',
+        Notes => 'effective sensor size',
+    },
+    0xf901 => {
+        Name => 'SensorHeight',
+        Writable => 'int16u',
+    },
+    0xf902 => {
+        Name => 'BayerPattern',
+        Writable => 'string',
+    },
+    0xf903 => {
+        Name => 'SensorFullWidth',
+        Writable => 'int16u',
+        Notes => 'includes black border?',
+    },
+    0xf904 => {
+        Name => 'SensorFullHeight',
+        Writable => 'int16u',
+    },
+    0xf907 => {
+        Name => 'KodakImageWidth',
+        Writable => 'int16u',
+    },
+    0xf908 => {
+        Name => 'KodakImageHeight',
+        Writable => 'int16u',
+    },
+    0xfa00 => {
+        Name => 'KodakInfoType',
+        Writable => 'string',
+    },
+    0xfa04 => {
+        Name => 'SerialNumber', # (unverified)
+        Writable => 'string',
+    },
+    0xfd04 => {
+        Name => 'FNumber',
+        Writable => 'int16u',
+        Priority => 0,
+        ValueConv => '$val / 100',
+        ValueConvInv => '$val * 100',
+    },
+    0xfd05 => {
+        Name => 'ExposureTime',
+        Writable => 'int32u',
+        Priority => 0,
+        ValueConv => '$val / 1e6',
+        ValueConvInv => '$val * 1e6',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
+    },
+    0xfd06 => {
+        Name => 'ISO',
+        Writable => 'int16u',
+        Priority => 0,
+    },
+);
+
+# treat unknown maker notes as binary data (allows viewing with -U)
+%Image::ExifTool::Kodak::Unknown = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    FIRST_ENTRY => 0,
+);
+
+# tags found in the KodakIFD (in IFD0 of KDC, DCR, TIFF and JPEG images) (ref PH)
+%Image::ExifTool::Kodak::IFD = (
+    GROUPS => { 0 => 'MakerNotes', 1 => 'KodakIFD', 2 => 'Image'},
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    WRITE_GROUP => 'KodakIFD',
+    SET_GROUP1 => 1,
+    NOTES => q{
+        These tags are found in a separate IFD of JPEG, TIFF, DCR and KDC images
+        from some older Kodak models such as the DC50, DC120, DCS760C, DCS Pro 14N,
+        14nx, SLR/n, Pro Back and Canon EOS D2000.
+    },
+    # 0x0000: int8u[4]    - values: "1 0 0 0" (DC50), "1 1 0 0" (DC120)
+    0x0001 => {
+        # (related to EV but exact meaning unknown)
+        Name => 'UnknownEV',
+        Writable => 'rational64u',
+        Unknown => 1,
+    },
+    # 0x0002: int8u       - values: 0
+    0x0003 => {
+        Name => 'ExposureValue',
+        Writable => 'rational64u',
+    },
+    # 0x0004: rational64u - values: 2.875,3.375,3.625,4,4.125,7.25
+    # 0x0005: int8u       - values: 0
+    # 0x0006: int32u[12]  - ?
+    # 0x0007: int32u[3]   - values: "65536 67932 69256"
+    0x03e9 => { Name => 'OriginalFileName', Writable => 'string' },
+    0x03eb => 'SensorLeftBorder',
+    0x03ec => 'SensorTopBorder',
+    0x03ed => 'SensorImageWidth',
+    0x03ee => 'SensorImageHeight',
+    0x03f1 => {
+        Name => 'TextualInfo',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::TextualInfo',
+        },
+    },
+    0x03fc => { #3
+        Name => 'WhiteBalance',
+        Writable => 'int16u',
+        Priority => 0,
+        PrintConv => { },   # no values yet known
+    },
+    0x03fd => { #3
+        Name => 'Processing',
+        Condition => '$count == 72',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::Processing',
+        },
+    },
+    0x0401 => {
+        Name => 'Time',
+        Groups => { 2 => 'Time' },
+        Writable => 'string',
+    },
+    0x0414 => { Name => 'NCDFileInfo',      Writable => 'string' },
+    0x0846 => { #3
+        Name => 'ColorTemperature',
+        Writable => 'int16u',
+    },
+    0x0852 => 'WB_RGBMul0', #3
+    0x0853 => 'WB_RGBMul1', #3
+    0x0854 => 'WB_RGBMul2', #3
+    0x0855 => 'WB_RGBMul3', #3
+    0x085c => { Name => 'WB_RGBCoeffs0', Binary => 1 }, #3
+    0x085d => { Name => 'WB_RGBCoeffs1', Binary => 1 }, #3
+    0x085e => { Name => 'WB_RGBCoeffs2', Binary => 1 }, #3
+    0x085f => { Name => 'WB_RGBCoeffs3', Binary => 1 }, #3
+    # 0x090d: linear table (ref 3)
+    # 0x0c81: some sort of date (manufacture date?) - PH
+    0x0ce5 => { Name => 'FirmwareVersion',  Writable => 'string' },
+    # 0x1390: value: "DCSProSLRn" (tone curve name?) - PH
+    0x1391 => { Name => 'ToneCurveFileName',Writable => 'string' },
+    0x1784 => { Name => 'ISO',              Writable => 'int32u' }, #3
+);
+
+# contains WB adjust set in software (ref 3)
+%Image::ExifTool::Kodak::Processing = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    FORMAT => 'int16u',
+    FIRST_ENTRY => 0,
+    20 => {
+        Name => 'WB_RGBLevels',
+        Format => 'int16u[3]',
+        ValueConv => q{
+            my @a = split ' ',$val;
+            foreach (@a) {
+                $_ = 2048 / $_ if $_;
+            }
+            return join ' ', @a;
+        }
+    },
+);
+
+# tags found in the Kodak KDC_IFD (in IFD0 of KDC images) (ref 3)
+%Image::ExifTool::Kodak::KDC_IFD = (
+    GROUPS => { 0 => 'MakerNotes', 1 => 'KDC_IFD', 2 => 'Image'},
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    WRITE_GROUP => 'KDC_IFD',
+    SET_GROUP1 => 1,
+    NOTES => q{
+        These tags are found in a separate IFD of KDC images from some newer Kodak
+        models such as the P880 and Z1015IS.
+    },
+    0xfa00 => {
+        Name => 'SerialNumber', #PH (unverified)
+        Writable => 'string',
+    },
+    0xfa0d => {
+        Name => 'WhiteBalance',
+        Writable => 'int8u',
+        PrintConv => { #PH
+            0 => 'Auto',
+            1 => 'Fluorescent', # (NC)
+            2 => 'Tungsten', # (NC)
+            3 => 'Daylight', # (NC)
+            6 => 'Shade', # (NC, called "Open Shade" by Kodak)
+        },
+    },
+    # the following tags are numbered for use in the Composite tag lookup
+    0xfa25 => 'WB_RGBLevelsAuto',
+    0xfa27 => 'WB_RGBLevelsTungsten', # (NC)
+    0xfa28 => 'WB_RGBLevelsFluorescent', # (NC)
+    0xfa29 => 'WB_RGBLevelsDaylight', # (NC)
+    0xfa2a => 'WB_RGBLevelsShade', # (NC)
+);
+
+# textual-based Kodak TextualInfo tags (not found in KDC images) (ref PH)
+%Image::ExifTool::Kodak::TextualInfo = (
+    GROUPS => { 0 => 'MakerNotes', 1 => 'Kodak', 2 => 'Image'},
+    PROCESS_PROC => \&ProcessKodakText,
+    NOTES => q{
+        Below is a list of tags which have been observed in the Kodak TextualInfo
+        data, however ExifTool will extract information from any tags found here.
+    },
+    'Actual Compensation' => 'ActualCompensation',
+    'AF Function'   => 'AFMode', # values: "S" (=Single?, then maybe C for Continuous, M for Manual?) - PH
+    'Aperture'      => {
+        Name => 'Aperture',
+        ValueConv => '$val=~s/^f//i; $val',
+    },
+    'Auto Bracket'  => 'AutoBracket',
+    'Brightness Value' => 'BrightnessValue',
+    'Camera'        => 'CameraModel',
+    'Camera body'   => 'CameraBody',
+    'Compensation'  => 'ExposureCompensation',
+    'Date'          => {
+        Name => 'Date',
+        Groups => { 2 => 'Time' },
+    },
+    'Exposure Bias' => 'ExposureBias',
+    'Exposure Mode' => {
+        Name => 'ExposureMode',
+        PrintConv => {
+            'M' => 'Manual',
+            'A' => 'Aperture Priority', #(NC -- I suppose this could be "Auto" too)
+            'S' => 'Shutter Priority', #(NC)
+            'P' => 'Program', #(NC)
+            'B' => 'Bulb', #(NC)
+            # have seen "Manual (M)" written by DCS760C - PH
+        },
+    },
+    'Firmware Version' => 'FirmwareVersion',
+    'Flash Compensation' => 'FlashExposureComp',
+    'Flash Fired'   => 'FlashFired',
+    'Flash Sync Mode' => 'FlashSyncMode',
+    'Focal Length'  => {
+        Name => 'FocalLength',
+        PrintConv => '"$val mm"',
+    },
+    'Height'        => 'KodakImageHeight',
+    'Image Number'  => 'ImageNumber',
+    'ISO'           => 'ISO',
+    'ISO Speed'     => 'ISO',
+    'Max Aperture'  => {
+        Name => 'MaxAperture',
+        ValueConv => '$val=~s/^f//i; $val',
+    },
+    'Meter Mode'    => 'MeterMode',
+    'Min Aperture'  => {
+        Name => 'MinAperture',
+        ValueConv => '$val=~s/^f//i; $val',
+    },
+    'Popup Flash'   => 'PopupFlash',
+    'Serial Number' => 'SerialNumber',
+    'Shooting Mode' => 'ShootingMode',
+    'Shutter'       => 'ShutterSpeed',
+    'Temperature'   => 'Temperature', # with a value of 15653, what could this be? - PH
+    'Time'          => {
+        Name => 'Time',
+        Groups => { 2 => 'Time' },
+    },
+    'White balance' => 'WhiteBalance',
+    'Width'         => 'KodakImageWidth',
+    '_other_info'   => {
+        Name => 'OtherInfo',
+        Notes => 'any other information without a tag name',
+    },
+);
+
+# Kodak APP3 "Meta" tags (ref 2)
+%Image::ExifTool::Kodak::Meta = (
+    GROUPS => { 0 => 'Meta', 1 => 'MetaIFD', 2 => 'Image'},
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    WRITE_GROUP => 'MetaIFD',   # default write group
+    NOTES => q{
+        These tags are found in the APP3 "Meta" segment of JPEG images from Kodak
+        cameras such as the DC280, DC3400, DC5000, MC3, M580, Z950 and Z981.  The
+        structure of this segment is similar to the APP1 "Exif" segment, but a
+        different set of tags is used.
+    },
+    0xc350 => 'FilmProductCode',
+    0xc351 => 'ImageSourceEK',
+    0xc352 => 'CaptureConditionsPAR',
+    0xc353 => {
+        Name => 'CameraOwner',
+        Writable => 'undef',
+        RawConv => 'Image::ExifTool::Exif::ConvertExifText($self,$val)',
+        RawConvInv => 'Image::ExifTool::Exif::EncodeExifText($self,$val)',
+    },
+    0xc354 => {
+        Name => 'SerialNumber',
+        Writable => 'undef',
+        Groups => { 2 => 'Camera' },
+        RawConv => 'Image::ExifTool::Exif::ConvertExifText($self,$val)', #PH
+        RawConvInv => 'Image::ExifTool::Exif::EncodeExifText($self,$val)',
+    },
+    0xc355 => 'UserSelectGroupTitle',
+    0xc356 => 'DealerIDNumber',
+    0xc357 => 'CaptureDeviceFID',
+    0xc358 => 'EnvelopeNumber',
+    0xc359 => 'FrameNumber',
+    0xc35a => 'FilmCategory',
+    0xc35b => 'FilmGencode',
+    0xc35c => 'ModelAndVersion',
+    0xc35d => 'FilmSize',
+    0xc35e => 'SBA_RGBShifts',
+    0xc35f => 'SBAInputImageColorspace',
+    0xc360 => 'SBAInputImageBitDepth',
+    0xc361 => {
+        Name => 'SBAExposureRecord',
+        Binary => 1,
+    },
+    0xc362 => {
+        Name => 'UserAdjSBA_RGBShifts',
+        Binary => 1,
+    },
+    0xc363 => 'ImageRotationStatus',
+    0xc364 => 'RollGuidElements',
+    0xc365 => 'MetadataNumber',
+    0xc366 => 'EditTagArray',
+    0xc367 => 'Magnification',
+    # 0xc36b - string[8]: "1.0"
+    0xc36c => 'NativeXResolution',
+    0xc36d => 'NativeYResolution',
+    0xc36e => {
+        Name => 'KodakEffectsIFD',
+        Flags => 'SubIFD',
+        Groups => { 1 => 'KodakEffectsIFD' },
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::SpecialEffects',
+            Start => '$val',
+        },
+    },
+    0xc36f => {
+        Name => 'KodakBordersIFD',
+        Flags => 'SubIFD',
+        Groups => { 1 => 'KodakBordersIFD' },
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::Borders',
+            Start => '$val',
+        },
+    },
+    0xc37a => 'NativeResolutionUnit',
+    0xc418 => 'SourceImageDirectory',
+    0xc419 => 'SourceImageFileName',
+    0xc41a => 'SourceImageVolumeName',
+    0xc46c => 'PrintQuality',
+    0xc46e => 'ImagePrintStatus',
+    # 0cx46f - int16u: 1
+);
+
+# Kodak APP3 "Meta" Special Effects sub-IFD (ref 2)
+%Image::ExifTool::Kodak::SpecialEffects = (
+    GROUPS => { 0 => 'Meta', 1 => 'KodakEffectsIFD', 2 => 'Image'},
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    0 => 'DigitalEffectsVersion',
+    1 => {
+        Name => 'DigitalEffectsName',
+        PrintConv => 'Image::ExifTool::Exif::ConvertExifText($self,$val)',
+    },
+    2 => 'DigitalEffectsType',
+);
+
+# Kodak APP3 "Meta" Borders sub-IFD (ref 2)
+%Image::ExifTool::Kodak::Borders = (
+    GROUPS => { 0 => 'Meta', 1 => 'KodakBordersIFD', 2 => 'Image'},
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    0 => 'BordersVersion',
+    1 => {
+        Name => 'BorderName',
+        PrintConv => 'Image::ExifTool::Exif::ConvertExifText($self,$val)',
+    },
+    2 => 'BorderID',
+    3 => 'BorderLocation',
+    4 => 'BorderType',
+    8 => 'WatermarkType',
+);
+
+# tags in Kodak MOV videos (ref PH)
+# (similar information in Kodak,Minolta,Nikon,Olympus,Pentax and Sanyo videos)
+%Image::ExifTool::Kodak::MOV = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    FIRST_ENTRY => 0,
+    NOTES => q{
+        This information is found in the TAGS atom of MOV videos from Kodak models
+        such as the P880.
+    },
+    0 => {
+        Name => 'Make',
+        Format => 'string[21]',
+    },
+    0x16 => {
+        Name => 'Model',
+        Format => 'string[42]',
+    },
+    0x40 => {
+        Name => 'ModelType',
+        Format => 'string[8]',
+    },
+    # (01 00 at offset 0x48)
+    0x4e => {
+        Name => 'ExposureTime',
+        Format => 'int32u',
+        ValueConv => '$val ? 10 / $val : 0',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+    },
+    0x52 => {
+        Name => 'FNumber',
+        Format => 'rational64u',
+        PrintConv => 'sprintf("%.1f",$val)',
+    },
+    0x5a => {
+        Name => 'ExposureCompensation',
+        Format => 'rational64s',
+        PrintConv => 'Image::ExifTool::Exif::PrintFraction($val)',
+    },
+    # 0x6c => 'WhiteBalance', ?
+    0x70 => {
+        Name => 'FocalLength',
+        Format => 'rational64u',
+        PrintConv => 'sprintf("%.1f mm",$val)',
+    },
+);
+
+# Kodak DcMD atoms (ref PH)
+%Image::ExifTool::Kodak::DcMD = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Video' },
+    NOTES => 'Metadata directory found in MOV and MP4 videos from some Kodak cameras.',
+    Cmbo => {
+        Name => 'CameraByteOrder',
+        PrintConv => {
+            II => 'Little-endian (Intel, II)',
+            MM => 'Big-endian (Motorola, MM)',
+        },
+    },
+    CMbo => { # (as written by Kodak Playsport video camera)
+        Name => 'CameraByteOrder',
+        PrintConv => {
+            II => 'Little-endian (Intel, II)',
+            MM => 'Big-endian (Motorola, MM)',
+        },
+    },
+    DcME => {
+        Name => 'DcME',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::DcME',
+        },
+    },
+    DcEM => {
+        Name => 'DcEM',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kodak::DcEM',
+        },
+    },
+);
+
+# Kodak DcME atoms (ref PH)
+%Image::ExifTool::Kodak::DcME = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Video' },
+    # Mtmd - 24 bytes: ("00 00 00 00 00 00 00 01" x 3)
+    # Keyw - keywords? (six bytes all zero)
+    # Rate -  2 bytes: 00 00
+);
+
+# Kodak DcEM atoms (ref PH)
+%Image::ExifTool::Kodak::DcEM = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Video' },
+    # Mtmd - 24 bytes: ("00 00 00 00 00 00 00 01" x 3)
+    # Csat - 16 bytes: 00 06 00 00 62 00 61 00 73 00 69 00 63 00 00 00 [....b.a.s.i.c...]
+    # Ksre -  8 bytes: 00 01 00 00 00 00
+);
+
+# tags in "free" atom of Kodak M5370 MP4 videos (ref PH)
+%Image::ExifTool::Kodak::Free = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Video' },
+    NOTES => q{
+        Information stored in the "free" atom of Kodak MP4 videos. (VERY bad form
+        for Kodak to store useful information in an atom intended for unused space!)
+    },
+    # (2012/01/19: Kodak files for bankruptcy -- this is poetic metadata justice)
+    Seri => {
+        Name => 'SerialNumber',
+        # byte 0 is string length;  byte 1 is zero;  string starts at byte 2
+        ValueConv => 'substr($val, 2, unpack("C",$val))',
+    },
+    SVer => {
+        Name => 'FirmwareVersion',
+        ValueConv => 'substr($val, 2, unpack("C",$val))',
+    },
+    # Clor - 2 bytes: 0 1  (?)
+    # CapM - 2 bytes: 0 1  (capture mode? = exposure mode?)
+    # WBMD - 2 bytes: 0 0  (white balance?)
+    Expc => { # (NC)
+        Name => 'ExposureCompensation',
+        Format => 'int16s',
+        ValueConv => '$val / 3', # (guess)
+        PrintConv => 'Image::ExifTool::Exif::PrintFraction($val)',
+    },
+    # Zone - 2 bytes: 0 2  (time zone? focus zone?)
+    # FoMD - 2 bytes: 0 0  (focus mode?)
+    # Shap - 2 bytes: 0 2  (sharpness?)
+    Expo => {
+        Name => 'ExposureTime',
+        Format => 'rational32u',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+    },
+    FNum => {
+        Name => 'FNumber',
+        Format => 'int16u',
+        ValueConv => '$val / 100',
+        PrintConv => 'Image::ExifTool::Exif::PrintFNumber($val)',
+    },
+    ISOS => { Name => 'ISO', Format => 'int16u' },
+    StSV => {
+        Name => 'ShutterSpeedValue',
+        Format => 'int16s',
+        ValueConv => 'abs($val)<100 ? 2**(-$val/3) : 0',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+    },
+    AprV => {
+        Name => 'ApertureValue',
+        Format => 'int16s',
+        ValueConv => '2 ** ($val / 2000)',
+        PrintConv => 'sprintf("%.1f",$val)',
+    },
+    BrtV => { # (NC)
+        Name => 'BrightnessValue',
+        Format => 'int32s',
+        ValueConv => '$val / 1000', # (guess)
+    },
+    FoLn => {
+        Name => 'FocalLength',
+        Groups => { 2 => 'Camera' },
+        Format => 'int16u',
+        PrintConv => 'sprintf("%.1f mm",$val)',
+    },
+    FL35 => {
+        Name => 'FocalLengthIn35mmFormat',
+        Groups => { 2 => 'Camera' },
+        Format => 'int16u',
+        PrintConv => '"$val mm"',
+    },
+    Scrn => {
+        Name => 'PreviewInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::Kodak::Scrn' },
+    },
+);
+
+# preview information in free/Scrn atom of MP4 videos (ref PH)
+%Image::ExifTool::Kodak::Scrn = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Image' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    FORMAT => 'int16u',
+    0 => 'PreviewImageWidth',
+    1 => 'PreviewImageHeight',
+    2 => { Name => 'PreviewImageLength', Format => 'int32u' },
+    4 => {
+        Name => 'PreviewImage',
+        Format => 'undef[$val{2}]',
+        RawConv => '$self->ValidateImage(\$val, $tag)',
+    },
+);
+
+# Kodak composite tags
+%Image::ExifTool::Kodak::Composite = (
+    GROUPS => { 2 => 'Camera' },
+    DateCreated => {
+        Groups => { 2 => 'Time' },
+        Require => {
+            0 => 'Kodak:YearCreated',
+            1 => 'Kodak:MonthDayCreated',
+        },
+        ValueConv => '"$val[0]:$val[1]"',
+    },
+    WB_RGBLevels => {
+        Require => {
+            0 => 'KDC_IFD:WhiteBalance',
+        },
+        # indices of the following entries are KDC_IFD:WhiteBalance + 1
+        Desire => {
+            1 => 'WB_RGBLevelsAuto',
+            2 => 'WB_RGBLevelsFluorescent',
+            3 => 'WB_RGBLevelsTungsten',
+            4 => 'WB_RGBLevelsDaylight',
+            5 => 'WB_RGBLevels4',
+            6 => 'WB_RGBLevels5',
+            7 => 'WB_RGBLevelsShade',
+        },
+        ValueConv => '$val[$val[0] + 1]',
+    },
+    WB_RGBLevels2 => {
+        Name => 'WB_RGBLevels',
+        Require => {
+            0 => 'KodakIFD:WhiteBalance',
+            1 => 'WB_RGBMul0',
+            2 => 'WB_RGBMul1',
+            3 => 'WB_RGBMul2',
+            4 => 'WB_RGBMul3',
+            5 => 'WB_RGBCoeffs0',
+            6 => 'WB_RGBCoeffs1',
+            7 => 'WB_RGBCoeffs2',
+            8 => 'WB_RGBCoeffs3',
+        },
+        # indices of the following entries are KDC_IFD:WhiteBalance + 1
+        Desire => {
+            9 => 'KodakIFD:ColorTemperature',
+            10 => 'Kodak:WB_RGBLevels',
+        },
+        ValueConv => 'Image::ExifTool::Kodak::CalculateRGBLevels(@val)',
+    },
+);
+
+# add our composite tags
+Image::ExifTool::AddCompositeTags('Image::ExifTool::Kodak');
+
+#------------------------------------------------------------------------------
+# Calculate RGB levels from associated tags (ref 3)
+# Inputs: 0) KodakIFD:WhiteBalance, 1-4) WB_RGBMul0-3, 5-8) WB_RGBCoeffs0-3
+#         9) (optional) KodakIFD:ColorTemperature, 10) (optional) Kodak:WB_RGBLevels
+# Returns: WB_RGBLevels or undef
+sub CalculateRGBLevels(@)
+{
+    return undef if $_[10]; # use existing software levels if they exist
+    my $wbi = $_[0];
+    return undef if $wbi < 0 or $wbi > 3;
+    my @mul = split ' ', $_[$wbi + 1], 13; # (only use the first 12 coeffs)
+    my @coefs = split ' ', ${$_[$wbi + 5]}; # (extra de-reference for Binary data)
+    my $wbtemp100 = ($_[9] || 6500) / 100;
+    return undef unless @mul >= 3 and @coefs >= 12;
+    my ($i, $c, $n, $num, @cam_mul);
+    for ($c=$n=0; $c<3; ++$c) {
+        for ($num=$i=0; $i<4; ++$i) {
+            $num += $coefs[$n++] * ($wbtemp100 ** $i);
+        }
+        $cam_mul[$c] = 2048 / ($num * $mul[$c]);
+    }
+    return join(' ', @cam_mul);
+}
+
+#------------------------------------------------------------------------------
+# Process Kodak textual TextualInfo
+# Inputs: 0) ExifTool object ref, 1) dirInfo hash ref, 2) tag table ref
+# Returns: 1 on success
+sub ProcessKodakText($$$)
+{
+    my ($et, $dirInfo, $tagTablePtr) = @_;
+    my $dataPt = $$dirInfo{DataPt};
+    my $dirStart = $$dirInfo{DirStart} || 0;
+    my $dirLen = $$dirInfo{DirLen} || length($$dataPt) - $dirStart;
+    my $data = substr($$dataPt, $dirStart, $dirLen);
+    $data =~ s/\0.*//s;     # truncate at null if it exists
+    my @lines = split /[\n\r]+/, $data;
+    my ($line, $success, @other, $tagInfo);
+    $et->VerboseDir('Kodak Text');
+    foreach $line (@lines) {
+        if ($line =~ /(.*?):\s*(.*)/) {
+            my ($tag, $val) = ($1, $2);
+            if ($$tagTablePtr{$tag}) {
+                $tagInfo = $et->GetTagInfo($tagTablePtr, $tag);
+            } else {
+                my $tagName = $tag;
+                $tagName =~ s/([A-Z])\s+([A-Za-z])/${1}_\U$2/g;
+                $tagName =~ s/([a-z])\s+([A-Za-z0-9])/${1}\U$2/g;
+                $tagName =~ s/\s+//g;
+                $tagName =~ s/[^-\w]+//g;   # delete remaining invalid characters
+                $tagName = 'NoName' unless $tagName;
+                $tagInfo = { Name => $tagName };
+                AddTagToTable($tagTablePtr, $tag, $tagInfo);
+            }
+            $et->HandleTag($tagTablePtr, $tag, $val, TagInfo => $tagInfo);
+            $success = 1;
+        } else {
+            # strip off leading/trailing white space and ignore blank lines
+            push @other, $1 if $line =~ /^\s*(\S.*?)\s*$/;
+        }
+    }
+    if ($success) {
+        if (@other) {
+            $tagInfo = $et->GetTagInfo($tagTablePtr, '_other_info');
+            $et->FoundTag($tagInfo, \@other);
+        }
+    } else {
+        $et->Warn("Can't parse Kodak TextualInfo data", 1);
+    }
+    return $success;
+}
+
+#------------------------------------------------------------------------------
+# Process Kodak IFD (with leading byte order mark)
+# Inputs: 0) ExifTool object ref, 1) dirInfo hash ref, 2) tag table ref
+# Returns: 1 on success, otherwise returns 0 and sets a Warning
+sub ProcessKodakIFD($$$)
+{
+    my ($et, $dirInfo, $tagTablePtr) = @_;
+    my $dirStart = $$dirInfo{DirStart} || 0;
+    return 1 if $dirStart <= 0 or $dirStart + 2 > $$dirInfo{DataLen};
+    my $byteOrder = substr(${$$dirInfo{DataPt}}, $dirStart, 2);
+    unless (Image::ExifTool::SetByteOrder($byteOrder)) {
+        $et->Warn("Invalid Kodak $$dirInfo{Name} directory");
+        return 1;
+    }
+    $$dirInfo{DirStart} += 2;   # skip byte order mark
+    $$dirInfo{DirLen} -= 2;
+    if ($$et{HTML_DUMP}) {
+        my $base = $$dirInfo{Base} + $$dirInfo{DataPos};
+        $et->HDump($dirStart+$base, 2, "Byte Order Mark");
+    }
+    return Image::ExifTool::Exif::ProcessExif($et, $dirInfo, $tagTablePtr);
+}
+
+#------------------------------------------------------------------------------
+# Write Kodak IFD (with leading byte order mark)
+# Inputs: 0) ExifTool object ref, 1) source dirInfo ref, 2) tag table ref
+# Returns: Exif data block (may be empty if no Exif data) or undef on error
+sub WriteKodakIFD($$$)
+{
+    my ($et, $dirInfo, $tagTablePtr) = @_;
+    my $dirStart = $$dirInfo{DirStart} || 0;
+    return '' if $dirStart <= 0 or $dirStart + 2 > $$dirInfo{DataLen};
+    my $byteOrder = substr(${$$dirInfo{DataPt}}, $dirStart, 2);
+    return '' unless Image::ExifTool::SetByteOrder($byteOrder);
+    $$dirInfo{DirStart} += 2;   # skip byte order mark
+    $$dirInfo{DirLen} -= 2;
+    my $buff = Image::ExifTool::Exif::WriteExif($et, $dirInfo, $tagTablePtr);
+    return $buff unless defined $buff and length $buff;
+    # apply one-time fixup for length of byte order mark
+    if ($$dirInfo{Fixup}) {
+        $dirInfo->{Fixup}->{Shift} += 2;
+        $$dirInfo{Fixup}->ApplyFixup(\$buff);
+        delete $$dirInfo{Fixup};
+    }
+    return Image::ExifTool::GetByteOrder() . $buff;
+}
+
+1;  # end
+
+__END__
+
+=head1 NAME
+
+Image::ExifTool::Kodak - Kodak EXIF maker notes and APP3 "Meta" tags
+
+=head1 SYNOPSIS
+
+This module is loaded automatically by Image::ExifTool when required.
+
+=head1 DESCRIPTION
+
+This module contains definitions required by Image::ExifTool to
+interpret Kodak maker notes EXIF meta information.
+
+=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<Image::MetaData::JPEG|Image::MetaData::JPEG>
+
+=item L<http://www.ozhiker.com/electronics/pjmt/jpeg_info/meta.html>
+
+=item L<http://www.cybercom.net/~dcoffin/dcraw/>
+
+=item (...plus lots of testing with my daughter's CX4200!)
+
+=back
+
+=head1 SEE ALSO
+
+L<Image::ExifTool::TagNames/Kodak Tags>,
+L<Image::ExifTool(3pm)|Image::ExifTool>
+
+=cut