exiftool-vendored.exe 13.31.0 → 13.32.0

package/bin/exiftool_files/exiftool.pl

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '13.31';
+my $version = '13.32';
 
 $^W = 1;    # enable global warnings
 
@@ -93,9 +93,9 @@ my @csvFiles;       # list of files when reading with CSV option (in ExifTool Ch
 my @csvTags;        # order of tags for first file with CSV option (lower case)
 my @delFiles;       # list of files to delete
 my @dynamicFiles;   # list of -tagsFromFile files with dynamic names and -TAG<=FMT pairs
+my (@echo3, @echo4);# stdout and stderr echo after processing is complete
 my @efile;          # files for writing list of error/fail/same file names
 my @exclude;        # list of excluded tags
-my (@echo3, @echo4);# stdout and stderr echo after processing is complete
 my @files;          # list of files and directories to scan
 my @moreArgs;       # more arguments to process after -stay_open -@
 my @newValues;      # list of new tag values to set
@@ -110,7 +110,6 @@ my %csvTags;        # lookup for all found tags with CSV option (lower case keys
 my %database;       # lookup for database information based on file name (in ExifTool Charset)
 my %filterExt;      # lookup for filtered extensions
 my %ignore;         # directory names to ignore
-my $ignoreHidden;   # flag to ignore hidden files
 my %outComma;       # flag that output text file needs a comma
 my %outTrailer;     # trailer for output text file
 my %preserveTime;   # preserved timestamps for files
@@ -122,6 +121,7 @@ my %usedFileName;   # lookup for file names we already used in TestName feature
 my %utf8FileName;   # lookup for file names that are UTF-8 encoded
 my %warnedOnce;     # lookup for once-only warnings
 my %wext;           # -W extensions to write
+my %wroteHEAD;      # list of output txt files to which we wrote HEAD
 my $allGroup;       # show group name for all tags
 my $altEnc;         # alternate character encoding if not UTF-8
 my $argFormat;      # use exiftool argument-format output
@@ -167,6 +167,7 @@ my $forcePrint;     # string to use for missing tag values (undef to not print t
 my $geoOnly;        # flag to extract Geolocation tags only
 my $helped;         # flag to avoid printing help if no tags specified
 my $html;           # flag for html-formatted output (2=html dump)
+my $ignoreHidden;   # flag to ignore hidden files
 my $interrupted;    # flag set if CTRL-C is pressed during a critical process
 my $isBinary;       # true if value is a SCALAR ref
 my $isWriting;      # flag set if we are writing tags
@@ -219,7 +220,6 @@ my $validFile;      # flag indicating we processed a valid file
 my $verbose;        # verbose setting
 my $vout;           # verbose output file reference (\*STDOUT or \*STDERR by default)
 my $windowTitle;    # title for console window
-my %wroteHEAD;      # list of output txt files to which we wrote HEAD
 my $xml;            # flag for XML-formatted output
 
 # flag to keep the input -@ argfile open:
@@ -464,8 +464,10 @@ undef @efile;
 undef @exclude;
 undef @files;
 undef @newValues;
+undef @requestTags;
 undef @srcFmt;
 undef @tags;
+undef %altFile;
 undef %appended;
 undef %countLink;
 undef %created;
@@ -485,6 +487,7 @@ undef %usedFileName;
 undef %utf8FileName;
 undef %warnedOnce;
 undef %wext;
+undef %wroteHEAD;
 undef $allGroup;
 undef $altEnc;
 undef $argFormat;
@@ -501,8 +504,8 @@ undef $doSetFileName;
 undef $doUnzip;
 undef $end;
 undef $endDir;
-undef $escapeHTML;
 undef $escapeC;
+undef $escapeHTML;
 undef $evalWarning;
 undef $executeID;
 undef $failCondition;
@@ -513,18 +516,22 @@ undef $fixLen;
 undef $forcePrint;
 undef $geoOnly;
 undef $ignoreHidden;
+undef $isBinary;
 undef $joinLists;
 undef $langOpt;
+undef $listDir;
 undef $listItem;
 undef $multiFile;
 undef $noBinary;
 undef $outOpt;
+undef $plot;
 undef $preserveTime;
 undef $progress;
 undef $progressCount;
 undef $progressIncr;
 undef $progressMax;
 undef $progressNext;
+undef $rafStdin;
 undef $recurse;
 undef $scanWritable;
 undef $sectHeader;
@@ -534,6 +541,7 @@ undef $showTagID;
 undef $structOpt;
 undef $tagOut;
 undef $textOut;
+undef $textOut2;
 undef $textOverwrite;
 undef $tmpFile;
 undef $tmpText;
@@ -1483,8 +1491,7 @@ if (not @files and not $outOpt and not @newValues) {
 # print help
 unless ((@tags and not $outOpt) or @files or @newValues or $geoOnly) {
     if ($doGlob and $doGlob == 2) {
-        Warn "No matching files\n";
-        $rtnVal = 1;
+        Error "No matching files\n";
         next;
     }
     if ($outOpt) {

package/bin/exiftool_files/lib/Image/ExifTool/BuildTagLookup.pm

@@ -271,11 +271,11 @@ tags remain.
 
 The table below lists all EXIF tags.  Also listed are TIFF, DNG, HDP and
 other tags which are not part of the EXIF specification, but may co-exist
-with EXIF tags in some images.  Tags which are part of the EXIF 2.32
+with EXIF tags in some images.  Tags which are part of the EXIF 3.0
 specification have an underlined B<Tag Name> in the HTML version of this
 documentation.  See
-L<https://web.archive.org/web/20190624045241if_/http://www.cipa.jp:80/std/documents/e/DC-008-Translation-2019-E.pdf>
-for the official EXIF 2.32 specification.
+L<https://www.cipa.jp/std/documents/download_e.html?CIPA_DC-008-2024-E>
+for the official EXIF 3.0 specification.
 },
     GPS => q{
 These GPS tags are part of the EXIF standard, and are stored in a separate

package/bin/exiftool_files/lib/Image/ExifTool/Canon.pm

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.92';
+$VERSION = '4.93';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -2628,6 +2628,10 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
             0x7fff => 'n/a',
         },
     },
+    52 => { #github336
+        Name  => 'HDR-PQ',
+        PrintConv => { %offOn, -1 => 'n/a' },
+    },
 );
 
 # focal length information (MakerNotes tag 0x02)

package/bin/exiftool_files/lib/Image/ExifTool/Exif.pm

@@ -57,7 +57,7 @@ use vars qw($VERSION $AUTOLOAD @formatSize @formatName %formatNumber %intFormat
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::MakerNotes;
 
-$VERSION = '4.58';
+$VERSION = '4.59';
 
 sub ProcessExif($$$);
 sub WriteExif($$$);
@@ -2029,7 +2029,7 @@ my %opcodeInfo = (
         OffsetPair => -1,
     },
     0x8782 => 'T88Options', #20
-    0x87ac => 'ImageLayer',
+    0x87ac => 'ImageLayer', # Defined in the Mixed Raster Content part of RFC 2301
     0x87af => { #30
         Name => 'GeoTiffDirectory',
         Format => 'undef',
@@ -4209,6 +4209,8 @@ my %opcodeInfo = (
         },
     },
     # 0xc7d6 - int8u: 1 (SubIFD1 of Nikon Z6/Z7 NEF)
+    0xc7d7 => { Name => 'ZIFMetadata',    Binary => 1 },
+    0xc7d8 => { Name => 'ZIFAnnotations', Binary => 1 },
     0xc7e9 => { # DNG 1.5
         Name => 'DepthFormat',
         Writable => 'int16u',

package/bin/exiftool_files/lib/Image/ExifTool/Nikon.pm

@@ -65,7 +65,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::XMP;
 
-$VERSION = '4.47';
+$VERSION = '4.48';
 
 sub LensIDConv($$$);
 sub ProcessNikonAVI($$$);
@@ -1691,14 +1691,15 @@ my %cropHiSpeed = ( #IB
     4 => '3:2 Crop', # (1.2x, ref 36)
     6 => '16:9 Crop',
     8 => '2.7x Crop', #36 (D4/D500)
-    9 => 'DX Movie Crop', # (DX during movie recording, Large)
+    9 => 'DX Movie 16:9 Crop', # (DX during movie recording, Large)
     10 => '1.3x Movie Crop', #36 (D4/D500)
     11 => 'FX Uncropped',
     12 => 'DX Uncropped',
     13 => '2.8x Movie Crop', #28 (D5/D6)    5584/1936
     14 => '1.4x Movie Crop', #28 (D5/D6)    5584/3856
     15 => '1.5x Movie Crop', #36 (D4/D500)  5600/3872
-    17 => '1:1 Crop',
+    17 => 'FX 1:1 Crop',
+    18 => 'DX 1:1 Crop',
     OTHER => sub {
         my ($val, $inv, $conv) = @_;
         return undef if $inv;

package/bin/exiftool_files/lib/Image/ExifTool/Olympus.pm

@@ -40,7 +40,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::APP12;
 
-$VERSION = '2.86';
+$VERSION = '2.87';
 
 sub PrintLensInfo($$$);
 
@@ -447,6 +447,7 @@ my %olympusCameraTypes = (
     S0101 => 'OM-5', #IB
     S0121 => 'OM-1MarkII', #forum15652
     S0123 => 'OM-3', #forum17208
+    S0130 => 'OM-5MarkII', #forum17465
     SR45 => 'D220',
     SR55 => 'D320L',
     SR83 => 'D340L',

package/bin/exiftool_files/lib/Image/ExifTool/Pentax.pm

@@ -46,6 +46,7 @@
 #              IB) Iliah Borg private communication (LibRaw)
 #              JD) Jens Duttke private communication
 #              NJ) Niels Kristian Bech Jensen private communication
+#              KG) Karsten Gieselmann private communication
 #
 # Notes:        See POD documentation at the bottom of this file
 #------------------------------------------------------------------------------
@@ -58,11 +59,14 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::HP;
 
-$VERSION = '3.52';
+$VERSION = '3.53';
 
 sub CryptShutterCount($$);
 sub PrintFilter($$$);
 sub DecodeAFPoints($$$$;$);
+sub AFPointNamesK3III($$;$);
+sub AFPointValuesK3III($$);
+sub AFAreasK3III($$);
 
 # pentax lens type codes (ref 4)
 # The first number gives the lens series, and the 2nd gives the model number
@@ -1148,31 +1152,38 @@ my %binaryDataAttrs = (
             Notes => 'Pentax models',
             Writable => 'int16u',
             PrintConvColumns => 2,
+            PrintHex => 1,
             PrintConv => { #PH
-                0 => 'Normal',
-                1 => 'Macro',
-                2 => 'Infinity',
-                3 => 'Manual',
-                4 => 'Super Macro', #JD
-                5 => 'Pan Focus',
-                6 => 'Auto-area', # (GR III)
-                8 => 'Select', # (GR III)
-                9 => 'Pinpoint', # (GR III)
-                10 => 'Tracking', # (GR III)
-                11 => 'Continuous', # (GR III)
-                12 => 'Snap', # (GR III)
-                16 => 'AF-S (Focus-priority)', #17
-                17 => 'AF-C (Focus-priority)', #17
-                18 => 'AF-A (Focus-priority)', #PH (educated guess)
-                32 => 'Contrast-detect (Focus-priority)', #PH (K-5)
-                33 => 'Tracking Contrast-detect (Focus-priority)', #PH (K-5)
+                0x00 => 'Normal',
+                0x01 => 'Macro',
+                0x02 => 'Infinity',
+                0x03 => 'Manual',
+                0x04 => 'Super Macro', #JD
+                0x05 => 'Pan Focus',
+                0x06 => 'Auto-area', # (GR III)
+                0x07 => 'Zone Select', # (GR III)
+                0x08 => 'Select', # (GR III)
+                0x09 => 'Pinpoint', # (GR III)
+                0x0a => 'Tracking', # (GR III)
+                0x0b => 'Continuous', # (GR III)
+                0x0c => 'Snap', # (GR III)
+                0x10 => 'AF-S (Focus-priority)', #17
+                0x11 => 'AF-C (Focus-priority)', #17
+                0x12 => 'AF-A (Focus-priority)', #PH (educated guess)
+                0x20 => 'Contrast-detect (Focus-priority)', #PH (K-5)
+                0x21 => 'Tracking Contrast-detect (Focus-priority)', #PH (K-5)
                 # bit 8 indicates release priority
-                272 => 'AF-S (Release-priority)', #PH (K-5,K-3)
-                273 => 'AF-C (Release-priority)', #PH (K-5,K-3)
-                274 => 'AF-A (Release-priority)', #PH (K-3)
-                288 => 'Contrast-detect (Release-priority)', #PH (K-01)
-                # 32777 (0x8009) - seen for Ricoh GR III
-                # 32779 (0x800b) - seen for Ricoh GR III
+                0x110 => 'AF-S (Release-priority)', #PH (K-5,K-3)
+                0x111 => 'AF-C (Release-priority)', #PH (K-5,K-3)
+                0x112 => 'AF-A (Release-priority)', #PH (K-3)
+                0x120 => 'Contrast-detect (Release-priority)', #PH (K-01)
+                # bit 15 indicates macro mode (disabled for MF, and defaults to Select for Snap, Infinity)
+                0x8006 => 'Auto-area (Macro)', # (GR III)
+                0x8007 => 'Zone Select (Macro)', # (GR III)
+                0x8008 => 'Select (Macro)', # (GR III)
+                0x8009 => 'Pinpoint (Macro)', # (GR III)
+                0x800a => 'Tracking (Macro)', # (GR III)
+                0x800b => 'Continuous (Macro)', # (GR III)
             },
         },{
             Name => 'FocusMode',
@@ -1188,7 +1199,7 @@ my %binaryDataAttrs = (
     ],
     0x000e => [{ #29
         Name => 'AFPointSelected',
-        Condition => '$$self{Model} =~ /K-1\b/',
+        Condition => '$$self{Model} =~ /(K-1|645Z)\b/', # (NC for 645Z)
         Writable => 'int16u',
         Notes => 'K-1',
         PrintConvColumns => 2,
@@ -1367,16 +1378,20 @@ my %binaryDataAttrs = (
             9 => 'Lower-left',
             10 => 'Bottom',
             11 => 'Lower-right',
-        },
+        },{
         # (second number exists for K-5II(s) is usually 0, but is 1 for AF.C with
         # AFPointMode=='Select' and extended tracking focus points are enabled in the settings)
-        ],
+        # -----
+        #KG: for K-70 and older models with 11 PDAF points (K-S2, K-S1, K-50, K-500, K-30, K-5II(s) )
+            0 => 'Single Point',     # Select AF (1-point) in both PDAF and CAF modes
+            1 => 'Expanded Area',    # Expanded Area AF in AF-C
+        }],
     }],
     0x000f => [{ #PH
         Name => 'AFPointsInFocus',
-        Condition => '$$self{Model} =~ /K-3\b/',
+        Condition => '$$self{Model} =~ /K-(3|S1|S2)\b/',  #KG: valid also for K-S1/S2
         Writable => 'int32u',
-        Notes => 'K-3 only',
+        Notes => 'K-3, K-S1 and K-S2 only',
         PrintHex => 1,
         PrintConv => {
             0 => '(none)',
@@ -2169,7 +2184,7 @@ my %binaryDataAttrs = (
             11 => 'Flat', #31 (K-70)
             # the following values from GR III
             256 => 'Standard',
-            257 => 'Vivid', 
+            257 => 'Vivid',
             258 => 'Monotone',
             259 => 'Soft Monotone',
             260 => 'Hard Monotone',
@@ -3097,13 +3112,15 @@ my %binaryDataAttrs = (
     # 0x0406 - undef[4116] (K-5)
     # 0x0407 - undef[3072] (Q DNG)
     # 0x0408 - undef[1024] (Q DNG)
+    0x040c => {
+        Name => 'AFInfoK3III',
+        SubDirectory => { TagTable => 'Image::ExifTool::Pentax::AFInfoK3III' },
+    },
     0x0e00 => {
         Name => 'PrintIM',
         Description => 'Print Image Matching',
         Writable => 0,
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::PrintIM::Main',
-        },
+        SubDirectory => { TagTable => 'Image::ExifTool::PrintIM::Main' },
     },
 );
 
@@ -5006,11 +5023,11 @@ my %binaryDataAttrs = (
     # 0x0a - values: 00,05,0d,15,86,8e,a6,ae
     0x0b => { #JD
         Name => 'AFPointsInFocus',
-        Condition => '$$self{Model} !~ /(K-(1|3|70)|KP)\b/',
+        Condition => '$$self{Model} !~ /(K-(1|3|70|S1|S2)|KP)\b/',  #KG: valid also for K-S1/S2
         Notes => q{
-            models other than the K-1, K-3, K-70 and KP.  May report two points in focus
-            even though a single AFPoint has been selected, in which case the selected
-            AFPoint is the first reported
+            models other than the K-1, K-3, K-70, KP and K-S1/S2. May report two points
+            in focus even though a single AFPoint has been selected, in which case the
+            selected AFPoint is the first reported
         },
         PrintConvColumns => 2,
         PrintConv => {
@@ -5043,34 +5060,34 @@ my %binaryDataAttrs = (
         Format => 'int16uRev[69]',
         Unknown => 1,
         Notes => 'some unknown values related to each AFPoint',
-        # order is the same as AFPoints below, but there is an additional value for
+        # order is the same as AFPointsSelected below, but there is an additional value for
         # each AF point starting at offset 28 in the array (yes, the range overlaps
         # with the 1st values)
         # (values are int16s stored in reversed byte order)
         ValueConv => 'my @a=split " ",$val;$_>32767 and $_-=65536 foreach @a;join " ",@a',
-        PrintConv => \&AFPointValues,
+        PrintConv => \&AFPointValuesK3III,
     },
     0x12a => { # byte has a value of 2 if corresponding AF point is selected
-        Name => 'AFPointsSelected',
+        Name => 'AFPointsSelected', # (should probably be "AFPointSelected", but the bitmask allows multiple points)
         Condition => '$$self{Model} eq "PENTAX K-3 Mark III"', # any other models?
         Notes => q{
             K-3III only. 41 selectable AF points from a total of 101 available in a 13x9
             grid. Columns are labelled A-M and rows are 1-9. The center point is G5
         },
         Format => 'int8u[41]',
-        PrintConv => 'Image::ExifTool::Pentax::AFPointsK3iii($val,$self,2)',
+        PrintConv => 'Image::ExifTool::Pentax::AFPointNamesK3III($val,$self,2)',
     },
 #
 # (maybe not coincidentally, there are 60 unknown bytes
 #  here, and there are also 60 non-selectable AF points)
 #
     0x18f => { # byte has a value of 1 if corresponding AF point is ... in focus maybe?
-        # usually the same points as AFPoints above, but not always
+        # usually the same points as AFPointsSelected above, but not always
         Name => 'AFPointsUnknown',
         Condition => '$$self{Model} eq "PENTAX K-3 Mark III"', # any other models?
         Unknown => 1,
         Format => 'int8u[41]',
-        PrintConv => \&AFPointsK3iii,
+        PrintConv => \&AFPointNamesK3III,
     },
     0x1fa => {
         Name => 'LiveView',
@@ -5097,7 +5114,7 @@ my %binaryDataAttrs = (
         Name => 'NumCAFPoints',
         RawConv => '$$self{NumCAFPoints} = ($val & 0x0f) * ($val >> 4); $val',
         ValueConv => '($val >> 4) * ($val & 0x0f)',
-    }, 
+    },
     1.1 => {
         Name => 'CAFGridSize',
         ValueConv => '($val >> 4) . " " . ($val & 0x0f)', # (width x height)
@@ -5687,6 +5704,95 @@ my %binaryDataAttrs = (
         ValueConvInv => '-$val * 2',
     },
 );
+
+%Image::ExifTool::Pentax::AFInfoK3III = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    FORMAT => 'int16u',
+    DATAMEMBER => [ 3 ],
+    NOTES => 'AF tags written by the K-3 Mark III, GR III and GR IIIx.',
+    0 => {
+        Name => 'AFInfo',
+        Format => 'int16u[$size/2]',
+        Notes => q{
+            entire AFInfoK3III structure. Provides access to raw numerical values and
+            facilitates the writing of the whole structure
+        },
+        Unknown => 1,
+    },
+    0.1 => {
+        Name => 'AFMode',
+        PrintConv => {
+            0 => 'Phase Detect',
+            2 => 'Contrast Detect',
+            255 => 'Manual Focus',
+        },
+    },
+    1 => {
+        Name => 'AFSelectionMode',
+        PrintHex => 1,
+        PrintConv => {
+            0 => 'Manual Focus',
+            1 => 'Spot',
+            2 => 'Select (5-points)',
+            3 => 'Expanded Area (S)',
+            4 => 'Expanded Area (M)',
+            5 => 'Expanded Area (L)',
+            6 => 'Select (S)',
+            7 => 'Zone Select (21-point)',
+            8 => 'Select XS',
+            0xff => 'Auto Area',
+            # Contrast-detect modes
+            0x2001 => 'Contrast-detect Auto Area',
+            0x2002 => 'Contrast-detect Select', # (GR III)
+            0x2003 => 'Pinpoint', # (GR III)
+            0x2004 => 'Tracking',
+            0x2005 => 'Continuous', # (GR III)
+            0x2006 => 'Face Detection',
+            0x2007 => 'Contrast-detect Select (S)',
+            0x2008 => 'Contrast-detect Select (M)',
+            0x2009 => 'Contrast-detect Select (L)',
+            0x200a => 'Contrast-detect Zone Select', # (GR III)
+            0x200b => 'Contrast-detect Spot',
+        },
+    },
+    3 => {
+        Name => 'NumAFPoints',
+        RawConv => '$$self{NumAFPoints} = $val',
+    },
+    # the data for each AF point consists of 7 int16u values:
+    # the frame width/height, the X/Y position of the focus area,
+    # width/height of the focus area (0/0 for phase-detect modes),
+    # followed by a flags word
+    7 => { # (the same for all areas in my samples, so only extract the first)
+        Name => 'AFFrameSize',
+        Condition => '$$self{NumAFPoints} > 0',
+        Format => 'int16u[2]',
+        Writable => 0,
+        PrintConv => '$val=~s/ /x/; $val',
+    },
+    7.1 => {
+        Name => 'AFAreas',
+        Format => 'int16u[7 * $val{3}]',
+        Notes => q{
+            X,Y position of each AF area, width, with "in-focus" for points in focus,
+            "central" for the center of the selected area, or "peripheral" for points
+            outside the selected area
+        },
+        Writable => 0,
+        List => 1, # (for documentation purposes only)
+        PrintConv => \&AFAreasK3III,
+    },
+    11 => { # (the same for all areas in my samples, so only extract the first)
+        Name => 'AFAreaSize',
+        Condition => '$$self{NumAFPoints} > 0 and $$valPt !~ /^\0\0\0\0/',
+        Notes => 'only for contrast-detect modes',
+        Format => 'int16u[2]',
+        Writable => 0,
+        PrintConv => '$val=~s/ /x/; $val',
+    },
+);
+
 # white balance RGGB levels (ref 28)
 %Image::ExifTool::Pentax::WBLevels = (
     %binaryDataAttrs,
@@ -5750,7 +5856,7 @@ my %binaryDataAttrs = (
     },
 );
 
-# lens information for Penax Q (ref PH)
+# lens information for Pentax Q (ref PH)
 # (306 bytes long, I wonder if this contains vignetting information too?)
 %Image::ExifTool::Pentax::LensInfoQ = (
     %binaryDataAttrs,
@@ -6461,9 +6567,9 @@ sub DecodeAFPoints($$$$;$)
 }
 
 #------------------------------------------------------------------------------
-# Print AF Point names for K-3III (ref PH)
+# Print K-3III AF Point names (ref PH)
 # Inputs: 0) value, 1) ExifTool ref, 2) optional value to match
-sub AFPointsK3iii($$;$)
+sub AFPointNamesK3III($$;$)
 {
     my @a = split ' ', $_[0];
     my $match = $_[2];
@@ -6477,10 +6583,10 @@ sub AFPointsK3iii($$;$)
 }
 
 #------------------------------------------------------------------------------
-# Print AF point values for K-3III (ref PH)
+# Print K-3III AF point values (ref PH)
 # Inputs: 0) value, 1) ExifTool ref
 # Notes: this is experimental and not well understood
-sub AFPointValues($$)
+sub AFPointValuesK3III($$)
 {
     my @a = split ' ', shift;
     my @vals;
@@ -6499,6 +6605,25 @@ sub AFPointValues($$)
     return @vals ? join ',', sort @vals : '(none)';
 }
 
+#------------------------------------------------------------------------------
+# Print K-3III AF point positions from tag 0x040c (ref KG)
+# Inputs: 0) raw value, 1) ExifTool ref
+sub AFAreasK3III($$)
+{
+    my ($val, $et) = @_;
+    return '(none)' unless $val;
+    my @vals = split ' ', $val;
+    # flags bits: [mask, value, description]
+    my @flags = ([0x10,0x10,'central'],[0x08,0,'peripheral'],[0x04,0x04,'in-focus']);
+    my ($i, @strs);
+    for ($i=0; $i+7<=@vals; $i+=7) {
+        my @a;
+        ($vals[$i+6] & $$_[0]) == $$_[1] and push @a, $$_[2] foreach @flags;
+        push @strs, $vals[$i+2] . ',' . $vals[$i+3] . (@a ? '(' . join(',',@a) . ')' : '');
+    }
+    return \@strs;
+}
+
 #------------------------------------------------------------------------------
 # Convert Pentax hex-based EV (modulo 8) to real number
 # Inputs: 0) value to convert

package/bin/exiftool_files/lib/Image/ExifTool/Sony.pm

@@ -34,7 +34,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::Minolta;
 
-$VERSION = '3.73';
+$VERSION = '3.74';
 
 sub ProcessSRF($$$);
 sub ProcessSR2($$$);
@@ -176,6 +176,7 @@ sub PrintInvLensSpec($;$$);
     32888 => 'Sony FE 85mm F1.4 GM II', #JR
     32889 => 'Sony FE 28-70mm F2 GM',
     32890 => 'Sony FE 400-800mm F6.3-8 G OSS', #JR
+    32891 => 'Sony FE 50-150mm F2 GM', #github335
 
   # (comment this out so LensID will report the LensModel, which is more useful)
   # 32952 => 'Metabones Canon EF Speed Booster Ultra', #JR (corresponds to 184, but 'Advanced' mode, LensMount reported as E-mount)