Ignore:
Timestamp:
2021-02-26T19:39:51+13:00 (3 years ago)
Author:
anupama
Message:

Committing the improvements to EmbeddedMetaPlugin's processing of Keywords vs other metadata fields. Keywords were literally stored as arrays of words rather than phrases in PDFs (at least in Diego's sample PDF), whereas other meta fields like Subjects and Creators stored them as arrays of phrases. To get both to work, Kathy updated EXIF to a newer version, to retrieve the actual EXIF values stored in the PDF. And Kathy and Dr Bainbridge came up with a new option that I added called apply_join_before_split_to_metafields that's a regex which can list the metadata fields to apply the join_before_split to and whcih previously always got applied to all metadata fields. Now it's applied to any *Keywords metafields by default, as that's the metafield we have experience of that behaves differently to the others, as it stores by word instead of phrases. Tested on Diego's sample PDF. Diego has double-checked it to works on his sample PDF too, setting the split char to ; and turning on the join_before_split and leaving apply_join_before_split_to_metafields at its default of .*Keywords. File changes are strings.properties for the tooltip, the plugin introducing the option and working with it and Kathy's EXIF updates affecting cpan/File and cpan/Image.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • main/trunk/greenstone2/perllib/cpan/Image/ExifTool/FujiFilm.pm

    r24107 r34921  
    55#
    66# Revisions:    11/25/2003 - P. Harvey Created
    7 #               11/14/2007 - PH Added abilty to write RAF images
     7#               11/14/2007 - PH Added ability to write RAF images
    88#
    99# References:   1) http://park2.wakwak.com/~tsuruzoh/Computer/Digicams/exif-e.html
    … …  
    1414#               6) http://forums.dpreview.com/forums/readflat.asp?forum=1012&thread=31350384
    1515#                  and http://forum.photome.de/viewtopic.php?f=2&t=353&p=742#p740
     16#               7) Kai Lappalainen private communication
     17#               8) https://exiftool.org/forum/index.php/topic,5223.0.html
     18#               9) Zilvinas Brobliauskas private communication
     19#               10) Albert Shan private communication
     20#               11) https://exiftool.org/forum/index.php/topic,8377.0.html
     21#               12) https://exiftool.org/forum/index.php/topic,9607.0.html
     22#               13) https://exiftool.org/forum/index.php/topic=10481.0.html
     23#               IB) Iliah Borg private communication (LibRaw)
    1624#               JD) Jens Duttke private communication
    1725#------------------------------------------------------------------------------
    … …  
    2432use Image::ExifTool::Exif;
    2533
    26 $VERSION = '1.31';
     34$VERSION = '1.79';
    2735
    2836sub ProcessFujiDir($$$);
    … …  
    3038
    3139# the following RAF version numbers have been tested for writing:
     40# (as of ExifTool 11.70, this lookup is no longer used if the version number is numerical)
    3241my %testedRAF = (
    33     '0100' => 'E550, E900, S5600, S6000fd, S6500fd, HS10/HS11, S200EXR, X100 (all Ver1.00)',
    34     '0102' => 'S100FS Ver1.02',
     42    '0100' => 'E550, E900, F770, S5600, S6000fd, S6500fd, HS10/HS11, HS30, S200EXR, X100, XF1, X-Pro1, X-S1, XQ2 Ver1.00, X-T100, GFX 50R, XF10',
     43    '0101' => 'X-E1, X20 Ver1.01, X-T3',
     44    '0102' => 'S100FS, X10 Ver1.02',
     45    '0103' => 'IS Pro Ver1.03',
    3546    '0104' => 'S5Pro Ver1.04',
    3647    '0106' => 'S5Pro Ver1.06',
    3748    '0111' => 'S5Pro Ver1.11',
    3849    '0114' => 'S9600 Ver1.00',
     50    '0132' => 'X-T2 Ver1.32',
     51    '0144' => 'X100T Ver1.44',
    3952    '0159' => 'S2Pro Ver1.00',
     53    '0200' => 'X10 Ver2.00',
     54    '0201' => 'X-H1 Ver2.01',
    4055    '0212' => 'S3Pro Ver2.12',
    4156    '0216' => 'S3Pro Ver2.16', # (NC)
    4257    '0218' => 'S3Pro Ver2.18',
    43     '0264' => 'F700  Ver2.00',
     58    '0240' => 'X-E1 Ver2.40',
     59    '0264' => 'F700 Ver2.00',
    4460    '0266' => 'S9500 Ver1.01',
     61    '0261' => 'X-E1 Ver2.61',
    4562    '0269' => 'S9500 Ver1.02',
    4663    '0271' => 'S3Pro Ver2.71', # UV/IR model?
     64    '0300' => 'X-E2',
     65   # 0400  - expect to see this for X-T1
     66    '0540' => 'X-T1 Ver5.40',
    4767    '0712' => 'S5000 Ver3.00',
    48     '0716' => 'S5000 Ver3.00', # (yes, 2 RAF versions with the same firmware version)
     68    '0716' => 'S5000 Ver3.00', # (yes, 2 RAF versions with the same Software version)
     69    '0Dgi' => 'X-A10 Ver1.01 and X-A3 Ver1.02', # (yes, non-digits in the firmware number)
    4970);
    5071
    … …  
    6889        Writable => 'undef',
    6990    },
    70     0x0010 => { #PH (how does this compare to actual serial number?)
     91    0x0010 => { #PH/IB
    7192        Name => 'InternalSerialNumber',
    7293        Writable => 'string',
    7394        Notes => q{
    74             this number is unique, and contains the date of manufacture, but doesn't
    75             necessarily correspond to the camera body number -- this needs to be checked
    76         },
    77         # ie)  "FPX20017035 592D31313034060427796060110384"
     95            this number is unique for most models, and contains the camera model ID and
     96            the date of manufacture
     97        },
     98        # eg)  "FPX20017035 592D31313034060427796060110384"
    7899        # "FPX 20495643     592D313335310701318AD010110047" (F40fd)
    79         #                               yymmdd
     100        #                   HHHHHHHHHHHHyymmdd
     101        #   HHHHHHHHHHHH = camera body number in hex
     102        #   yymmdd       = date of manufacture
    80103        PrintConv => q{
    81             return $val unless $val=~/^(.*)(\d{2})(\d{2})(\d{2})(.{12})$/;
    82             my $yr = $2 + ($2 < 70 ? 2000 : 1900);
    83             return "$1 $yr:$3:$4 $5";
    84         },
    85         PrintConvInv => '$_=$val; s/ (19|20)(\d{2}):(\d{2}):(\d{2}) /$2$3$4/; $_',
     104            if ($val =~ /^(.*?\s*)([0-9a-fA-F]*)(\d{2})(\d{2})(\d{2})(.{12})\s*\0*$/s
     105                and $4 >= 1 and $4 <= 12 and $5 >= 1 and $5 <= 31)
     106            {
     107                my $yr = $3 + ($3 < 70 ? 2000 : 1900);
     108                my $sn = pack 'H*', $2;
     109                return "$1$sn $yr:$4:$5 $6";
     110            } else {
     111                # handle a couple of models which use a slightly different format
     112                $val =~ s/\b(592D(3[0-9])+)/pack("H*",$1).' '/e;
     113            }
     114            return $val;
     115        },
     116        # (this inverse conversion doesn't work in all cases, so it is best to write
     117        #  the ValueConv value if an authentic internal serial number is required)
     118        PrintConvInv => '$_=$val; s/(\S+) (19|20)(\d{2}):(\d{2}):(\d{2}) /unpack("H*",$1)."$3$4$5"/e; $_',
    86119    },
    87120    0x1000 => {
    … …  
    94127        Writable => 'int16u',
    95128        PrintConv => {
    96             0x01 => 'Soft',
    97             0x02 => 'Soft2',
    98             0x03 => 'Normal',
    99             0x04 => 'Hard',
    100             0x05 => 'Hard2',
    101             0x82 => 'Medium Soft', #2
    102             0x84 => 'Medium Hard', #2
     129            0x00 => '-4 (softest)', #10
     130            0x01 => '-3 (very soft)',
     131            0x02 => '-2 (soft)',
     132            0x03 => '0 (normal)',
     133            0x04 => '+2 (hard)',
     134            0x05 => '+3 (very hard)',
     135            0x06 => '+4 (hardest)',
     136            0x82 => '-1 (medium soft)', #2
     137            0x84 => '+1 (medium hard)', #2
    103138            0x8000 => 'Film Simulation', #2
    104139            0xffff => 'n/a', #2
    … …  
    111146        PrintConv => {
    112147            0x0   => 'Auto',
     148            0x1   => 'Auto (white priority)', #forum10890
     149            0x2   => 'Auto (ambiance priority)', #forum10890
    113150            0x100 => 'Daylight',
    114151            0x200 => 'Cloudy',
    … …  
    120157            0x400 => 'Incandescent',
    121158            0x500 => 'Flash', #4
     159            0x600 => 'Underwater', #forum6109
    122160            0xf00 => 'Custom',
    123161            0xf01 => 'Custom2', #2
    … …  
    134172        Writable => 'int16u',
    135173        PrintConv => {
    136             0x0   => 'Normal',
    137             0x080 => 'Medium High', #2
    138             0x100 => 'High',
    139             0x180 => 'Medium Low', #2
     174            0x0   => '0 (normal)', # # ("Color 0", ref 8)
     175            0x080 => '+1 (medium high)', #2 ("Color +1", ref 8)
     176            0x100 => '+2 (high)', # ("Color +2", ref 8)
     177            0x0c0 => '+3 (very high)',
     178            0x0e0 => '+4 (highest)',
     179            0x180 => '-1 (medium low)', #2 ("Color -1", ref 8)
    140180            0x200 => 'Low',
    141181            0x300 => 'None (B&W)', #2
    142             0x301 => 'B&W Green Filter', #PH (X100)
     182            0x301 => 'B&W Red Filter', #PH/8
    143183            0x302 => 'B&W Yellow Filter', #PH (X100)
    144             0x303 => 'B&W Blue Filter', #PH (X100)
     184            0x303 => 'B&W Green Filter', #PH/8
    145185            0x310 => 'B&W Sepia', #PH (X100)
     186            0x400 => '-2 (low)', #8 ("Color -2")
     187            0x4c0 => '-3 (very low)',
     188            0x4e0 => '-4 (lowest)',
     189            0x500 => 'Acros', #PH (X-Pro2)
     190            0x501 => 'Acros Red Filter', #PH (X-Pro2)
     191            0x502 => 'Acros Yellow Filter', #PH (X-Pro2)
     192            0x503 => 'Acros Green Filter', #PH (X-Pro2)
    146193            0x8000 => 'Film Simulation', #2
    147194        },
    … …  
    185232        Flags => 'PrintHex',
    186233        Writable => 'int16u',
     234        RawConv => '$val == 0x100 ? undef : $val',
    187235        PrintConv => {
    188236            0x40 => 'Low',
    … …  
    192240    },
    193241    0x100e => { #PH (X100)
    194         Name => 'HighISONoiseReduction',
     242        Name => 'NoiseReduction',
    195243        Flags => 'PrintHex',
    196244        Writable => 'int16u',
    197245        PrintConv => {
    198             0x000 => 'Normal',
    199             0x100 => 'Strong',
    200             0x200 => 'Weak',
     246            0x000 => '0 (normal)', # ("NR 0, ref 8)
     247            0x100 => '+2 (strong)', # ("NR+2, ref 8)
     248            0x180 => '+1 (medium strong)', #8 ("NR+1")
     249            0x1c0 => '+3 (very strong)',
     250            0x1e0 => '+4 (strongest)',
     251            0x200 => '-2 (weak)', # ("NR-2, ref 8)
     252            0x280 => '-1 (medium weak)', #8 ("NR-1")
     253            0x2c0 => '-3 (very weak)', #10 (-3)
     254            0x2e0 => '-4 (weakest)', #10 (-4)
    201255        },
    202256    },
    … …  
    204258        Name => 'FujiFlashMode',
    205259        Writable => 'int16u',
     260        PrintHex => 1,
    206261        PrintConv => {
    207262            0 => 'Auto',
    … …  
    210265            3 => 'Red-eye reduction',
    211266            4 => 'External', #JD
     267            16 => 'Commander',
     268            0x8000 => 'Not Attached', #10 (X-T2) (or external flash off)
     269            0x8120 => 'TTL', #10 (X-T2)
     270            0x8320 => 'TTL Auto - Did not fire',
     271            0x9840 => 'Manual', #10 (X-T2)
     272            0x9860 => 'Flash Commander', #13
     273            0x9880 => 'Multi-flash', #10 (X-T2)
     274            0xa920 => '1st Curtain (front)', #10 (EF-X500 flash)
     275            0xaa20 => 'TTL Slow - 1st Curtain (front)', #13
     276            0xab20 => 'TTL Auto - 1st Curtain (front)', #13
     277            0xad20 => 'TTL - Red-eye Flash - 1st Curtain (front)', #13
     278            0xae20 => 'TTL Slow - Red-eye Flash - 1st Curtain (front)', #13
     279            0xaf20 => 'TTL Auto - Red-eye Flash - 1st Curtain (front)', #13
     280            0xc920 => '2nd Curtain (rear)', #10
     281            0xca20 => 'TTL Slow - 2nd Curtain (rear)', #13
     282            0xcb20 => 'TTL Auto - 2nd Curtain (rear)', #13
     283            0xcd20 => 'TTL - Red-eye Flash - 2nd Curtain (rear)', #13
     284            0xce20 => 'TTL Slow - Red-eye Flash - 2nd Curtain (rear)', #13
     285            0xcf20 => 'TTL Auto - Red-eye Flash - 2nd Curtain (rear)', #13
     286            0xe920 => 'High Speed Sync (HSS)', #10
    212287        },
    213288    },
    … …  
    230305            0 => 'Auto',
    231306            1 => 'Manual',
    232         },
     307            65535 => 'Movie', #forum10766
     308        },
     309    },
     310    0x1022 => { #8/forum6579
     311        Name => 'AFMode',
     312        Writable => 'int16u',
     313        Notes => '"No" for manual and some AF-multi focus modes',
     314        PrintConv => {
     315            0 => 'No',
     316            1 => 'Single Point',
     317            256 => 'Zone',
     318            512 => 'Wide/Tracking',
     319        },
     320    },
     321    0x102b => {
     322        Name => 'PrioritySettings',
     323        SubDirectory => { TagTable => 'Image::ExifTool::FujiFilm::PrioritySettings' },
     324    },
     325    0x102d => {
     326        Name => 'FocusSettings',
     327        SubDirectory => { TagTable => 'Image::ExifTool::FujiFilm::FocusSettings' },
     328    },
     329    0x102e => {
     330        Name => 'AFCSettings',
     331        SubDirectory => { TagTable => 'Image::ExifTool::FujiFilm::AFCSettings' },
    233332    },
    234333    0x1023 => { #2
    … …  
    250349        Writable => 'int16u',
    251350        PrintConv => {
    252             0x0 => 'Auto',
     351            0x0 => 'Auto', # (or 'SR+' if SceneRecognition present, ref 11)
    253352            0x1 => 'Portrait',
    254353            0x2 => 'Landscape',
    … …  
    270369            0x12 => 'Fireworks', #3
    271370            0x13 => 'Underwater', #3
     371            0x14 => 'Portrait with Skin Correction', #7
    272372            0x16 => 'Panorama', #PH (X100)
     373            0x17 => 'Night (tripod)', #7
     374            0x18 => 'Pro Low-light', #7
     375            0x19 => 'Pro Focus', #7
     376            0x1a => 'Portrait 2', #PH (NC, T500, maybe "Smile & Shoot"?)
     377            0x1b => 'Dog Face Detection', #7
     378            0x1c => 'Cat Face Detection', #7
     379            0x30 => 'HDR', #forum10799
     380            0x40 => 'Advanced Filter',
    273381            0x100 => 'Aperture-priority AE',
    274382            0x200 => 'Shutter speed priority AE',
    … …  
    276384        },
    277385    },
    278 # this usually has a value of 1
    279 #    0x1032 => { #2
    280 #        Name => 'ShutterCount',
    281 #        Writable => 'int16u',
    282 #    },
     386    0x1032 => { #8
     387        Name => 'ExposureCount',
     388        Writable => 'int16u',
     389        Notes => 'number of exposures used for this image',
     390    },
    283391    0x1033 => { #6
    284392        Name => 'EXRAuto',
    … …  
    299407        },
    300408    },
    301     0x1100 => {
     409    0x1040 => { #8
     410        Name => 'ShadowTone',
     411        Writable => 'int32s',
     412        PrintConv => {
     413            -64 => '+4 (hardest)',
     414            -48 => '+3 (very hard)',
     415            -32 => '+2 (hard)',
     416            -16 => '+1 (medium hard)',
     417            0 => '0 (normal)',
     418            16 => '-1 (medium soft)',
     419            32 => '-2 (soft)',
     420        },
     421    },
     422    0x1041 => { #8
     423        Name => 'HighlightTone',
     424        Writable => 'int32s',
     425        PrintConv => {
     426            -64 => '+4 (hardest)',
     427            -48 => '+3 (very hard)',
     428            -32 => '+2 (hard)',
     429            -16 => '+1 (medium hard)',
     430            0 => '0 (normal)',
     431            16 => '-1 (medium soft)',
     432            32 => '-2 (soft)',
     433        },
     434    },
     435    0x1044 => { #forum7668
     436        Name => 'DigitalZoom',
     437        Writable => 'int32u',
     438        ValueConv => '$val / 8',
     439        ValueConvInv => '$val * 8',
     440    },
     441    0x1045 => { #12
     442        Name => 'LensModulationOptimizer',
     443        Writable => 'int32u',
     444        PrintConv => { 0 => 'Off', 1 => 'On' },
     445    },
     446    0x1047 => { #12
     447        Name => 'GrainEffect',
     448        Writable => 'int32s',
     449        PrintConv => {
     450            0 => 'Off',
     451            32 => 'Weak',
     452            64 => 'Strong',
     453        },
     454    },
     455    0x1048 => { #12
     456        Name => 'ColorChromeEffect',
     457        Writable => 'int32s',
     458        PrintConv => {
     459            0 => 'Off',
     460            32 => 'Weak',
     461            64 => 'Strong',
     462        },
     463    },
     464    0x1049 => { #12
     465        Name => 'BWAdjustment',
     466        Notes => 'positive values are warm, negative values are cool',
     467        Format => 'int8s',
     468        PrintConv => '$val > 0 ? "+$val" : $val',
     469        PrintConvInv => '$val + 0',
     470    },
     471    # 0x104b - BWAdjustment for Green->Magenta (forum10800)
     472    0x104d => { #forum9634
     473        Name => 'CropMode',
     474        Writable => 'int16u',
     475        PrintConv => { # (perhaps this is a bit mask?)
     476            0 => 'n/a',
     477            1 => 'Full-frame on GFX', #IB
     478            2 => 'Sports Finder Mode', # (mechanical shutter)
     479            4 => 'Electronic Shutter 1.25x Crop', # (continuous high)
     480        },
     481    },
     482    0x1050 => { #forum6109
     483        Name => 'ShutterType',
     484        Writable => 'int16u',
     485        PrintConv => {
     486            0 => 'Mechanical',
     487            1 => 'Electronic',
     488            2 => 'Electronic (long shutter speed)', #12
     489            3 => 'Electronic Front Curtain', #10
     490        },
     491    },
     492    0x1100 => [{
    302493        Name => 'AutoBracketing',
     494        Condition => '$$self{Model} eq "X-T3"',
     495        Notes => 'X-T3 only',
     496        Writable => 'int16u',
     497        PrintConv => {
     498            0 => 'Off',
     499            1 => 'On',
     500            2 => 'Pre-shot', #12 (Electronic Shutter and Continuous High drive mode only)
     501        },
     502    },{
     503        Name => 'AutoBracketing',
     504        Notes => 'other models',
    303505        Writable => 'int16u',
    304506        PrintConv => {
    … …  
    307509            2 => 'No flash & flash', #3
    308510        },
    309     },
     511    }],
    310512    0x1101 => {
    311513        Name => 'SequenceNumber',
    312514        Writable => 'int16u',
     515    },
     516    0x1103 => {
     517        Name => 'DriveSettings',
     518        SubDirectory => { TagTable => 'Image::ExifTool::FujiFilm::DriveSettings' },
     519    },
     520    # (0x1150-0x1152 exist only for Pro Low-light and Pro Focus PictureModes)
     521    # 0x1150 - Pro Low-light - val=1; Pro Focus - val=2 (ref 7); HDR - val=128 (forum10799)
     522    # 0x1151 - Pro Low-light - val=4 (number of pictures taken?); Pro Focus - val=2,3 (ref 7); HDR - val=3 (forum10799)
     523    # 0x1152 - Pro Low-light - val=1,3,4 (stacked pictures used?); Pro Focus - val=1,2 (ref 7); HDR - val=3 (forum10799)
     524    0x1153 => { #forum7668
     525        Name => 'PanoramaAngle',
     526        Writable => 'int16u',
     527    },
     528    0x1154 => { #forum7668
     529        Name => 'PanoramaDirection',
     530        Writable => 'int16u',
     531        PrintConv => {
     532            1 => 'Right',
     533            2 => 'Up',
     534            3 => 'Left',
     535            4 => 'Down',
     536        },
     537    },
     538    0x1201 => { #forum6109
     539        Name => 'AdvancedFilter',
     540        Writable => 'int32u',
     541        PrintHex => 1,
     542        PrintConv => {
     543            0x10000 => 'Pop Color',
     544            0x20000 => 'Hi Key',
     545            0x30000 => 'Toy Camera',
     546            0x40000 => 'Miniature',
     547            0x50000 => 'Dynamic Tone',
     548            0x60001 => 'Partial Color Red',
     549            0x60002 => 'Partial Color Yellow',
     550            0x60003 => 'Partial Color Green',
     551            0x60004 => 'Partial Color Blue',
     552            0x60005 => 'Partial Color Orange',
     553            0x60006 => 'Partial Color Purple',
     554            0x70000 => 'Soft Focus',
     555            0x90000 => 'Low Key',
     556        },
    313557    },
    314558    0x1210 => { #2
    … …  
    349593        Name => 'GEImageSize',
    350594        Condition => '$$self{Make} =~ /^GENERAL IMAGING/',
    351         Format => 'string',
     595        Writable => 'string',
    352596        Notes => 'GE models only',
    353597    },
    … …  
    366610        PrintHex => 1,
    367611        PrintConv => {
    368             0x000 => 'F0/Standard',
     612            0x000 => 'F0/Standard (Provia)', # X-Pro2 "Provia/Standard"
    369613            0x100 => 'F1/Studio Portrait',
    370614            0x110 => 'F1a/Studio Portrait Enhanced Saturation',
    371             0x120 => 'F1b/Studio Portrait Smooth Skin Tone',
     615            0x120 => 'F1b/Studio Portrait Smooth Skin Tone (Astia)', # X-Pro2 "Astia/Soft"
    372616            0x130 => 'F1c/Studio Portrait Increased Sharpness',
    373             0x200 => 'F2/Fujichrome',
     617            0x200 => 'F2/Fujichrome (Velvia)', # X-Pro2 "Velvia/Vivid"
    374618            0x300 => 'F3/Studio Portrait Ex',
    375619            0x400 => 'F4/Velvia',
     620            0x500 => 'Pro Neg. Std', #PH (X-Pro1)
     621            0x501 => 'Pro Neg. Hi', #PH (X-Pro1)
     622            0x600 => 'Classic Chrome', #forum6109
     623            0x700 => 'Eterna', #12
     624            0x800 => 'Classic Negative', #forum10536
     625            0x900 => 'Bleach Bypass', #forum10890
     626            0xa00 => 'Nostalgic Neg', #forum12085
    376627        },
    377628    },
    … …  
    381632        PrintHex => 1,
    382633        PrintConv => {
    383             0x000 => 'Auto (100-400%)',
     634            0x000 => 'Auto',
    384635            0x001 => 'Manual', #(ref http://forum.photome.de/viewtopic.php?f=2&t=353)
    385636            0x100 => 'Standard (100%)',
    … …  
    392643        Name => 'DevelopmentDynamicRange',
    393644        Writable => 'int16u',
     645        # (shows 200, 400 or 800 for HDR200,HDR400,HDR800, ref forum10799)
    394646    },
    395647    0x1404 => { #2
    … …  
    411663    # 0x1408 - values: '0100', 'S100', 'VQ10'
    412664    # 0x1409 - values: same as 0x1408
    413     # 0x140a - values: 0, 1, 3, 5, 7
     665    # 0x140a - values: 0, 1, 3, 5, 7 (bit 2=red-eye detection, ref 11/13)
    414666    0x140b => { #6
    415667        Name => 'AutoDynamicRange',
    … …  
    418670        PrintConvInv => '$val=~s/\s*\%$//; $val',
    419671    },
    420     # 0x140b - DR value for AutoDR???? (ref 6) - values: 100
    421     # 0x3820 - int16u video frame rate? - PH (HS20EXR)
    422     # 0x3821 - int16u video frame width? - PH (HS20EXR)
    423     # 0x3822 - int16u video frame height? - PH (HS20EXR)
     672    0x104e => { #forum10800 (X-Pro3)
     673        Name => 'ColorChromeFXBlue',
     674        Writable => 'int32s',
     675        PrintConv => {
     676            0 => 'Off',
     677            32 => 'Weak', # (NC)
     678            64 => 'Strong',
     679        },
     680    },
     681    0x1422 => { #8
     682        Name => 'ImageStabilization',
     683        Writable => 'int16u',
     684        Count => 3,
     685        PrintConv => [{
     686            0 => 'None',
     687            1 => 'Optical', #PH
     688            2 => 'Sensor-shift', #PH
     689            3 => 'OIS Lens', #forum9815 (optical+sensor?)
     690            512 => 'Digital', #PH
     691        },{
     692            0 => 'Off',
     693            1 => 'On (mode 1, continuous)',
     694            2 => 'On (mode 2, shooting only)',
     695        }],
     696    },
     697    0x1425 => { # if present and 0x1031 PictureMode is zero, then PictureMode is SR+, not Auto (ref 11)
     698        Name => 'SceneRecognition',
     699        Writable => 'int16u',
     700        PrintHex => 1,
     701        PrintConv => {
     702            0 => 'Unrecognized',
     703            0x100 => 'Portrait Image',
     704            0x103 => 'Night Portrait', #forum10651
     705            0x105 => 'Backlit Portrait', #forum10651
     706            0x200 => 'Landscape Image',
     707            0x300 => 'Night Scene',
     708            0x400 => 'Macro',
     709        },
     710    },
     711    0x1431 => { #forum6109
     712        Name => 'Rating',
     713        Groups => { 2 => 'Image' },
     714        Writable => 'int32u',
     715        Priority => 0,
     716    },
     717    0x1436 => { #8
     718        Name => 'ImageGeneration',
     719        Writable => 'int16u',
     720        PrintConv => {
     721            0 => 'Original Image',
     722            1 => 'Re-developed from RAW',
     723        },
     724    },
     725    0x1438 => { #forum6579 (X-T1 firmware version 3)
     726        Name => 'ImageCount',
     727        Notes => 'may reset to 0 when new firmware is installed',
     728        Writable => 'int16u',
     729        ValueConv => '$val & 0x7fff',
     730        ValueConvInv => '$val | 0x8000',
     731    },
     732    0x1443 => { #12 (X-T3)
     733        Name => 'DRangePriority',
     734        Writable => 'int16u',
     735        PrintConv => { 0 => 'Auto', 1 => 'Fixed' },
     736    },
     737    0x1444 => { #12 (X-T3, only exists if DRangePriority is 'Auto')
     738        Name => 'DRangePriorityAuto',
     739        Writable => 'int16u',
     740        PrintConv => {
     741            1 => 'Weak',
     742            2 => 'Strong',
     743            3 => 'Plus',    #forum10799
     744        },
     745    },
     746    0x1445 => { #12 (X-T3, only exists if DRangePriority is 'Fixed')
     747        Name => 'DRangePriorityFixed',
     748        Writable => 'int16u',
     749        PrintConv => { 1 => 'Weak', 2 => 'Strong' },
     750    },
     751    0x1446 => { #12
     752        Name => 'FlickerReduction',
     753        Writable => 'int32u',
     754        # seen values: Off=0x0000, On=0x2100,0x3100
     755        PrintConv => q{
     756            my $on = ((($val >> 8) & 0x0f) == 1) ? 'On' : 'Off';
     757            return sprintf('%s (0x%.4x)', $on, $val);
     758        },
     759        PrintConvInv => '$val=~/(0x[0-9a-f]+)/i; hex $1',
     760    },
     761    0x3803 => { #forum10037
     762        Name => 'VideoRecordingMode',
     763        Groups => { 2 => 'Video' },
     764        Writable => 'int32u',
     765        PrintHex => 1,
     766        PrintConv => {
     767            0x00 => 'Normal',
     768            0x10 => 'F-log',
     769            0x20 => 'HLG',
     770        },
     771    },
     772    0x3804 => { #forum10037
     773        Name => 'PeripheralLighting',
     774        Groups => { 2 => 'Video' },
     775        Writable => 'int16u',
     776        PrintConv => { 0 => 'Off', 1 => 'On' },
     777    },
     778    # 0x3805 - int16u: seen 1
     779    0x3806 => { #forum10037
     780        Name => 'VideoCompression',
     781        Groups => { 2 => 'Video' },
     782        Writable => 'int16u',
     783        PrintConv => {
     784            1 => 'Log GOP',
     785            2 => 'All Intra',
     786        },
     787    },
     788    # 0x3810 - int32u: related to video codec (ref forum10037)
     789    0x3820 => { #PH (HS20EXR MOV)
     790        Name => 'FrameRate',
     791        Writable => 'int16u',
     792        Groups => { 2 => 'Video' },
     793    },
     794    0x3821 => { #PH (HS20EXR MOV)
     795        Name => 'FrameWidth',
     796        Writable => 'int16u',
     797        Groups => { 2 => 'Video' },
     798    },
     799    0x3822 => { #PH (HS20EXR MOV)
     800        Name => 'FrameHeight',
     801        Writable => 'int16u',
     802        Groups => { 2 => 'Video' },
     803    },
     804    0x3824 => { #forum10480 (X series)
     805        Name => 'FullHDHighSpeedRec',
     806        Writable => 'int32u',
     807        Groups => { 2 => 'Video' },
     808        PrintConv => { 1 => 'Off', 2 => 'On' },
     809    },
     810    0x4005 => { #forum9634
     811        Name => 'FaceElementSelected', # (could be face or eye)
     812        Writable => 'int16u',
     813        Count => 4,
     814    },
    424815    0x4100 => { #PH
    425816        Name => 'FacesDetected',
    … …  
    435826        },
    436827    },
     828    0x4200 => { #11
     829        Name => 'NumFaceElements',
     830        Writable => 'int16u',
     831    },
     832    0x4201 => { #11
     833        Name => 'FaceElementTypes',
     834        Writable => 'int8u',
     835        Count => -1,
     836        PrintConv => [{
     837            1 => 'Face',
     838            2 => 'Left Eye',
     839            3 => 'Right Eye',
     840        },'REPEAT'],
     841    },
     842    # 0x4202 int8u[-1] - number of cooredinates in each rectangle? (ref 11)
     843    0x4203 => { #11
     844        Name => 'FaceElementPositions',
     845        Writable => 'int16u',
     846        Count => -1,
     847        Notes => q{
     848            left, top, right and bottom coordinates in full-sized image for each face
     849            element
     850        },
     851    },
     852    # 0x4101-0x4105 - exist only if face detection active
    437853    # 0x4104 - also related to face detection (same number of entries as FacePositions)
     854    # 0x4200 - same as 0x4100?
    438855    # 0x4203 - same as 0x4103
    439856    # 0x4204 - same as 0x4104
    … …  
    461878    },
    462879    # 0xb212 - also found in MPIMage2 images - PH
     880);
     881
     882# Focus Priority settings, tag 0x102b (X-T3, ref forum 9607)
     883%Image::ExifTool::FujiFilm::PrioritySettings = (
     884    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
     885    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
     886    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     887    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     888    FORMAT => 'int16u',
     889    WRITABLE => 1,
     890    0.1 => {
     891        Name => 'AF-SPriority',
     892        Mask => 0x000f,
     893        PrintConv => {
     894            1 => 'Release',
     895            2 => 'Focus',
     896        },
     897    },
     898    0.2 => {
     899        Name => 'AF-CPriority',
     900        Mask => 0x00f0,
     901        PrintConv => {
     902            1 => 'Release',
     903            2 => 'Focus',
     904        },
     905    },
     906);
     907
     908# Focus settings, tag 0x102d (X-T3, ref forum 9607)
     909%Image::ExifTool::FujiFilm::FocusSettings = (
     910    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
     911    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
     912    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     913    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     914    FORMAT => 'int32u',
     915    WRITABLE => 1,
     916    0.1 => {
     917        Name => 'FocusMode2',
     918        Mask => 0x000000ff,
     919        PrintConv => {
     920            0x00 => 'AF-M',
     921            0x01 => 'AF-S',
     922            0x02 => 'AF-C',
     923            0x11 => 'AF-S (Auto)',
     924        },
     925    },
     926    0.2 => {
     927        Name => 'AFAreaMode',
     928        Mask => 0x0f00,
     929        PrintConv => {
     930            0 => 'Single Point',
     931            1 => 'Zone',
     932            2 => 'Wide/Tracking',
     933        },
     934    },
     935    0.3 => {
     936        Name => 'AFAreaPointSize',
     937        Mask => 0xf000,
     938        PrintConv => {
     939            0 => 'n/a',
     940            OTHER => sub { return $_[0] },
     941        },
     942    },
     943    0.4 => {
     944        Name => 'AFAreaZoneSize',
     945        Mask => 0xf0000,
     946        PrintConv => {
     947            0 => 'n/a',
     948            OTHER => sub {
     949                my ($val, $inv) = @_;
     950                return "$val x $val" unless $inv;
     951                $val =~ s/ ?x.*//;
     952                return $val;
     953            },
     954        },
     955    },
     956);
     957
     958# AF-C settings, tag 0x102e (ref forum 9607)
     959%Image::ExifTool::FujiFilm::AFCSettings = (
     960    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
     961    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
     962    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     963    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     964    FORMAT => 'int32u',
     965    WRITABLE => 1,
     966    0 => {
     967        Name => 'AF-CSetting',
     968        PrintHex => 3,
     969        PrintSort => 1, # sort PrintConv by value
     970        # decode in-camera preset values (X-T3)
     971        PrintConv => {
     972            0x102 => 'Set 1 (multi-purpose)',              # (2,0,Auto)
     973            0x203 => 'Set 2 (ignore obstacles)',           # (3,0,Center)
     974            0x122 => 'Set 3 (accelerating subject)',       # (2,2,Auto)
     975            0x010 => 'Set 4 (suddenly appearing subject)', # (0,1,Front)
     976            0x123 => 'Set 5 (erratic motion)',             # (3,2,Auto)
     977            OTHER => sub {
     978                my ($val, $inv) = @_;
     979                return $val =~ /(0x\w+)/ ? hex $1 : undef if $inv;
     980                return sprintf 'Set 6 (custom 0x%.3x)', $val;
     981            },
     982        },
     983    },
     984    0.1 => {
     985        Name => 'AF-CTrackingSensitivity',
     986        Mask => 0x000f, # (values 0-4)
     987    },
     988    0.2 => {
     989        Name => 'AF-CSpeedTrackingSensitivity',
     990        Mask => 0x00f0,
     991        # (values 0-2)
     992    },
     993    0.3 => {
     994        Name => 'AF-CZoneAreaSwitching',
     995        Mask => 0x0f00,
     996        PrintConv => {
     997            0 => 'Front',
     998            1 => 'Auto',
     999            2 => 'Center',
     1000        },
     1001    },
     1002);
     1003
     1004# DriveMode settings, tag 0x1103 (X-T3, ref forum 9607)
     1005%Image::ExifTool::FujiFilm::DriveSettings = (
     1006    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
     1007    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
     1008    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     1009    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     1010    FORMAT => 'int32u',
     1011    WRITABLE => 1,
     1012    0.1 => {
     1013        Name => 'DriveMode',
     1014        Mask => 0x000000ff,
     1015        PrintConv => {
     1016            0 => 'Single',
     1017            1 => 'Continuous Low',
     1018            2 => 'Continuous High',
     1019        },
     1020    },
     1021    0.2 => {
     1022        Name => 'DriveSpeed',
     1023        Mask => 0xff000000,
     1024        PrintConv => {
     1025            0 => 'n/a',
     1026            OTHER => sub {
     1027                my ($val, $inv) = @_;
     1028                return "$val fps" unless $inv;
     1029                $val =~ s/ ?fps$//;
     1030                return $val;
     1031            },
     1032        },
     1033    },
    4631034);
    4641035
    … …  
    5121083        Count => 2,
    5131084        Notes => 'including borders',
    514         ValueConv => 'my @v=reverse split(" ",$val);"@v"',
     1085        ValueConv => 'my @v=reverse split(" ",$val);"@v"', # reverse to show width first
    5151086        PrintConv => '$val=~tr/ /x/; $val',
     1087    },
     1088    0x110 => {
     1089        Name => 'RawImageCropTopLeft',
     1090        Format => 'int16u',
     1091        Count => 2,
     1092        Notes => 'top margin first, then left margin',
     1093    },
     1094    0x111 => {
     1095        Name => 'RawImageCroppedSize',
     1096        Format => 'int16u',
     1097        Count => 2,
     1098        Notes => 'including borders',
     1099        ValueConv => 'my @v=reverse split(" ",$val);"@v"', # reverse to show width first
     1100        PrintConv => '$val=~tr/ /x/; $val',
     1101    },
     1102    0x115 => {
     1103        Name => 'RawImageAspectRatio',
     1104        Format => 'int16u',
     1105        Count => 2,
     1106        ValueConv => 'my @v=reverse split(" ",$val);"@v"', # reverse to show width first
     1107        PrintConv => '$val=~tr/ /:/; $val',
    5161108    },
    5171109    0x121 => [
    … …  
    5501142        },
    5511143    },
     1144    0x131 => { #5
     1145        Name => 'XTransLayout',
     1146        Description => 'X-Trans Layout',
     1147        Format => 'int8u',
     1148        Count => 36,
     1149        PrintConv => '$val =~ tr/012 /RGB/d; join " ", $val =~ /....../g',
     1150    },
     1151    0x2000 => { #IB
     1152        Name => 'WB_GRGBLevelsAuto',
     1153        Format => 'int16u',
     1154        Count => 4, # (ignore the duplicate values)
     1155    },
     1156    0x2100 => { #IB
     1157        Name => 'WB_GRGBLevelsDaylight',
     1158        Format => 'int16u',
     1159        Count => 4,
     1160    },
     1161    0x2200 => { #IB
     1162        Name => 'WB_GRGBLevelsCloudy',
     1163        Format => 'int16u',
     1164        Count => 4,
     1165    },
     1166    0x2300 => { #IB
     1167        Name => 'WB_GRGBLevelsDaylightFluor',
     1168        Format => 'int16u',
     1169        Count => 4,
     1170    },
     1171    0x2301 => { #IB
     1172        Name => 'WB_GRGBLevelsDayWhiteFluor',
     1173        Format => 'int16u',
     1174        Count => 4,
     1175    },
     1176    0x2302 => { #IB
     1177        Name => 'WB_GRGBLevelsWhiteFluorescent',
     1178        Format => 'int16u',
     1179        Count => 4,
     1180    },
     1181    0x2310 => { #IB
     1182        Name => 'WB_GRGBLevelsWarmWhiteFluor',
     1183        Format => 'int16u',
     1184        Count => 4,
     1185    },
     1186    0x2311 => { #IB
     1187        Name => 'WB_GRGBLevelsLivingRoomWarmWhiteFluor',
     1188        Format => 'int16u',
     1189        Count => 4,
     1190    },
     1191    0x2400 => { #IB
     1192        Name => 'WB_GRGBLevelsTungsten',
     1193        Format => 'int16u',
     1194        Count => 4,
     1195    },
     1196    # 0x2f00 => WB_GRGBLevelsCustom: int32u count, then count * (int16u GRGBGRGB), ref IB
    5521197    0x2ff0 => {
    5531198        Name => 'WB_GRGBLevels',
    … …  
    5551200        Count => 4,
    5561201    },
     1202    0x9200 => { #Frank Markesteijn
     1203        Name => 'RelativeExposure',
     1204        Format => 'rational32s',
     1205        ValueConv => 'log($val) / log(2)',
     1206        ValueConvInv => 'exp($val * log(2))',
     1207        PrintConv => '$val ? sprintf("%+.1f",$val) : 0',
     1208        PrintConvInv => '$val',
     1209    },
     1210    # 0x9200 - relative exposure? (ref Frank Markesteijn)
     1211    0x9650 => { #Frank Markesteijn
     1212        Name => 'RawExposureBias',
     1213        Format => 'rational32s',
     1214        PrintConv => '$val ? sprintf("%+.1f",$val) : 0',
     1215        PrintConvInv => '$val',
     1216    },
     1217    0xc000 => {
     1218        Name => 'RAFData',
     1219        SubDirectory => {
     1220            TagTable => 'Image::ExifTool::FujiFilm::RAFData',
     1221            ByteOrder => 'Little-endian',
     1222        }
     1223    },
     1224);
     1225
     1226%Image::ExifTool::FujiFilm::RAFData = (
     1227    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
     1228    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     1229    DATAMEMBER => [ 0, 4, 8 ],
     1230    FIRST_ENTRY => 0,
     1231    # (FujiFilm image dimensions are REALLY confusing)
     1232    # --> this needs some cleaning up
     1233    # [Note to self: See email from Iliah Borg for more information about WB settings in this data]
     1234    0 => {
     1235        Name => 'RawImageWidth',
     1236        Format => 'int32u',
     1237        DataMember => 'FujiWidth',
     1238        RawConv => '$val < 10000 ? $$self{FujiWidth} = $val : undef', #5
     1239        ValueConv => '$$self{FujiLayout} ? ($val / 2) : $val',
     1240    },
     1241    4 => [
     1242        {
     1243            Name => 'RawImageWidth',
     1244            Condition => 'not $$self{FujiWidth}',
     1245            Format => 'int32u',
     1246            DataMember => 'FujiWidth',
     1247            RawConv => '$val < 10000 ? $$self{FujiWidth} = $val : undef', #PH
     1248            ValueConv => '$$self{FujiLayout} ? ($val / 2) : $val',
     1249        },
     1250        {
     1251            Name => 'RawImageHeight',
     1252            Format => 'int32u',
     1253            DataMember => 'FujiHeight',
     1254            RawConv => '$$self{FujiHeight} = $val',
     1255            ValueConv => '$$self{FujiLayout} ? ($val * 2) : $val',
     1256        },
     1257    ],
     1258    8 => [
     1259        {
     1260            Name => 'RawImageWidth',
     1261            Condition => 'not $$self{FujiWidth}',
     1262            Format => 'int32u',
     1263            DataMember => 'FujiWidth',
     1264            RawConv => '$val < 10000 ? $$self{FujiWidth} = $val : undef', #PH
     1265            ValueConv => '$$self{FujiLayout} ? ($val / 2) : $val',
     1266        },
     1267        {
     1268            Name => 'RawImageHeight',
     1269            Condition => 'not $$self{FujiHeight}',
     1270            Format => 'int32u',
     1271            DataMember => 'FujiHeight',
     1272            RawConv => '$$self{FujiHeight} = $val',
     1273            ValueConv => '$$self{FujiLayout} ? ($val * 2) : $val',
     1274        },
     1275    ],
     1276    12 => {
     1277        Name => 'RawImageHeight',
     1278        Condition => 'not $$self{FujiHeight}',
     1279        Format => 'int32u',
     1280        ValueConv => '$$self{FujiLayout} ? ($val * 2) : $val',
     1281    },
     1282);
     1283
     1284# TIFF IFD-format information stored in FujiFilm RAF images (ref 5)
     1285%Image::ExifTool::FujiFilm::IFD = (
     1286    PROCESS_PROC => \&Image::ExifTool::Exif::ProcessExif,
     1287    GROUPS => { 0 => 'RAF', 1 => 'FujiIFD', 2 => 'Image' },
     1288    NOTES => 'Tags found in the FujiIFD information of RAF images from some models.',
     1289    0xf000 => {
     1290        Name => 'FujiIFD',
     1291        Groups => { 1 => 'FujiIFD' },
     1292        Flags => 'SubIFD',
     1293        SubDirectory => {
     1294            TagTable => 'Image::ExifTool::FujiFilm::IFD',
     1295            DirName => 'FujiSubIFD',
     1296            Start => '$val',
     1297        },
     1298    },
     1299    0xf001 => 'RawImageFullWidth',
     1300    0xf002 => 'RawImageFullHeight',
     1301    0xf003 => 'BitsPerSample',
     1302    # 0xf004 - values: 4
     1303    # 0xf005 - values: 1374, 1668
     1304    # 0xf006 - some sort of flag indicating packed format?
     1305    0xf007 => {
     1306        Name => 'StripOffsets',
     1307        IsOffset => 1,
     1308        OffsetPair => 0xf008,  # point to associated byte counts
     1309    },
     1310    0xf008 => {
     1311        Name => 'StripByteCounts',
     1312        OffsetPair => 0xf007,  # point to associated offsets
     1313    },
     1314    # 0xf009 - values: 0, 3
     1315    0xf00a => 'BlackLevel', #IB
     1316    0xf00b => 'GeometricDistortionParams', #9 (rational64s[23, 35 or 43])
     1317    0xf00c => 'WB_GRBLevelsStandard', #IB (GRBXGRBX; X=17 is standard illuminant A, X=21 is D65)
     1318    0xf00d => 'WB_GRBLevelsAuto', #IB
     1319    0xf00e => 'WB_GRBLevels',
     1320    0xf00f => 'ChromaticAberrationParams', # (rational64s[23])
     1321    0xf010 => 'VignettingParams', #9 (rational64s[31 or 64])
    5571322);
    5581323
    … …  
    5691334);
    5701335
     1336# tags in FujiFilm QuickTime videos (ref PH)
     1337# (similar information in Kodak,Minolta,Nikon,Olympus,Pentax and Sanyo videos)
     1338%Image::ExifTool::FujiFilm::MOV = (
     1339    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
     1340    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     1341    FIRST_ENTRY => 0,
     1342    NOTES => 'This information is found in MOV videos from some FujiFilm cameras.',
     1343    0x00 => {
     1344        Name => 'Make',
     1345        Format => 'string[24]',
     1346    },
     1347    0x18 => {
     1348        Name => 'Model',
     1349        Description => 'Camera Model Name',
     1350        Format => 'string[16]',
     1351    },
     1352    0x2e => { # (NC)
     1353        Name => 'ExposureTime',
     1354        Format => 'int32u',
     1355        ValueConv => '$val ? 1 / $val : 0',
     1356        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
     1357    },
     1358    0x32 => {
     1359        Name => 'FNumber',
     1360        Format => 'rational64u',
     1361        PrintConv => 'sprintf("%.1f",$val)',
     1362    },
     1363    0x3a => { # (NC)
     1364        Name => 'ExposureCompensation',
     1365        Format => 'rational64s',
     1366        PrintConv => '$val ? sprintf("%+.1f", $val) : 0',
     1367    },
     1368);
     1369
    5711370#------------------------------------------------------------------------------
    5721371# decode information from FujiFilm face recognition information
    … …  
    5751374sub ProcessFaceRec($$$)
    5761375{
    577     my ($exifTool, $dirInfo, $tagTablePtr) = @_;
     1376    my ($et, $dirInfo, $tagTablePtr) = @_;
    5781377    my $dataPt = $$dirInfo{DataPt};
    5791378    my $dataPos = $$dirInfo{DataPos} + ($$dirInfo{Base} || 0);
    … …  
    5831382    my $end = $dirStart + $dirLen;
    5841383    my ($i, $n, $p, $val);
    585     $exifTool->VerboseDir('FaceRecInfo');
     1384    $et->VerboseDir('FaceRecInfo');
    5861385    for ($i=1; ; ++$i) {
    5871386        last if $pos + 8 > $end;
    … …  
    5981397        last if $p < $dirStart or $p + $n > $end;
    5991398        $val = substr($$dataPt, $p, $n);
    600         $exifTool->HandleTag($tagTablePtr, "Face${i}Name", $val,
     1399        $et->HandleTag($tagTablePtr, "Face${i}Name", $val,
    6011400            DataPt  => $dataPt,
    6021401            DataPos => $dataPos,
    … …  
    6091408        $val = substr($$dataPt, $p, $n);
    6101409        $val =~ s/(\d{4})(\d{2})(\d{2})/$1:$2:$2/;
    611         $exifTool->HandleTag($tagTablePtr, "Face${i}Birthday", $val,
     1410        $et->HandleTag($tagTablePtr, "Face${i}Birthday", $val,
    6121411            DataPt  => $dataPt,
    6131412            DataPos => $dataPos,
    … …  
    6151414            Size    => $n,
    6161415        );
    617         $exifTool->HandleTag($tagTablePtr, "Face${i}Category", undef,
     1416        $et->HandleTag($tagTablePtr, "Face${i}Category", undef,
    6181417            DataPt  => $dataPt,
    6191418            DataPos => $dataPos,
    … …  
    6321431sub ProcessFujiDir($$$)
    6331432{
    634     my ($exifTool, $dirInfo, $tagTablePtr) = @_;
     1433    my ($et, $dirInfo, $tagTablePtr) = @_;
    6351434    my $raf = $$dirInfo{RAF};
    6361435    my $offset = $$dirInfo{DirStart};
    … …  
    6401439    my $entries = unpack 'N', $buff;
    6411440    $entries < 256 or return 0;
    642     $exifTool->Options('Verbose') and $exifTool->VerboseDir('Fuji', $entries);
     1441    $et->Options('Verbose') and $et->VerboseDir('Fuji', $entries);
    6431442    SetByteOrder('MM');
    6441443    my $pos = $offset + 4;
    … …  
    6491448        my ($val, $vbuf);
    6501449        $raf->Read($vbuf, $len) or return 0;
    651         my $tagInfo = $exifTool->GetTagInfo($tagTablePtr, $tag);
     1450        my $tagInfo = $et->GetTagInfo($tagTablePtr, $tag);
    6521451        if ($tagInfo and $$tagInfo{Format}) {
    6531452            $val = ReadValue(\$vbuf, 0, $$tagInfo{Format}, $$tagInfo{Count}, $len);
    … …  
    6601459            $val = \$vbuf;
    6611460        }
    662         $exifTool->HandleTag($tagTablePtr, $tag, $val,
     1461        $et->HandleTag($tagTablePtr, $tag, $val,
    6631462            Index   => $index,
    6641463            DataPt  => \$vbuf,
    … …  
    6781477sub WriteRAF($$)
    6791478{
    680     my ($exifTool, $dirInfo) = @_;
     1479    my ($et, $dirInfo) = @_;
    6811480    my $raf = $$dirInfo{RAF};
    6821481    my ($hdr, $jpeg, $outJpeg, $offset, $err, $buff);
    … …  
    6851484    $hdr =~ /^FUJIFILM/            or return 0;
    6861485    my $ver = substr($hdr, 0x3c, 4);
    687     $ver =~ /^\d{4}$/             or return 0;
     1486    $ver =~ /^\d{4}$/ or $testedRAF{$ver} or return 0;
    6881487
    6891488    # get the position and size of embedded JPEG
    … …  
    6911490    # check to be sure the JPEG starts in the expected location
    6921491    if ($jpos > 0x94 or $jpos < 0x68 or $jpos & 0x03) {
    693         $exifTool->Error("Unsupported or corrupted RAF image (version $ver)");
     1492        $et->Error("Unsupported or corrupted RAF image (version $ver)");
    6941493        return 1;
    6951494    }
    6961495    # check to make sure this version of RAF has been tested
    697     unless ($testedRAF{$ver}) {
    698         $exifTool->Error("RAF version $ver not yet tested", 1) and return 1;
    699     }
     1496    #(removed in ExifTool 11.70)
     1497    #unless ($testedRAF{$ver}) {
     1498    #    $et->Warn("RAF version $ver not yet tested", 1);
     1499    #}
    7001500    # read the embedded JPEG
    7011501    unless ($raf->Seek($jpos, 0) and $raf->Read($jpeg, $jlen) == $jlen) {
    702         $exifTool->Error('Error reading RAF meta information');
     1502        $et->Error('Error reading RAF meta information');
    7031503        return 1;
    7041504    }
    7051505    # use same write directories as JPEG
    706     $exifTool->InitWriteDirs('JPEG');
     1506    $et->InitWriteDirs('JPEG');
    7071507    # rewrite the embedded JPEG in memory
    7081508    my %jpegInfo = (
    … …  
    7111511        OutFile => \$outJpeg,
    7121512    );
    713     $$exifTool{FILE_TYPE} = 'JPEG';
    714     my $success = $exifTool->WriteJPEG(\%jpegInfo);
    715     $$exifTool{FILE_TYPE} = 'RAF';
     1513    $$et{FILE_TYPE} = 'JPEG';
     1514    my $success = $et->WriteJPEG(\%jpegInfo);
     1515    $$et{FILE_TYPE} = 'RAF';
    7161516    unless ($success and $outJpeg) {
    717         $exifTool->Error("Invalid RAF format");
     1517        $et->Error("Invalid RAF format");
    7181518        return 1;
    7191519    }
    … …  
    7361536            $raf->Read($buff, $oldPadLen) != $oldPadLen)
    7371537        {
    738             $exifTool->Error('Bad RAF pointer at 0x5c');
     1538            $et->Error('Bad RAF pointer at 0x5c');
    7391539            return 1;
    7401540        }
    7411541        # make sure padding is only zero bytes (can be >100k for HS10)
     1542        # (have seen non-null padding in X-Pro1)
    7421543        if ($buff =~ /[^\0]/) {
    743             $exifTool->Error('Non-null bytes found in padding');
    744             return 1;
     1544            return 1 if $et->Error('Non-null bytes found in padding', 2);
    7451545        }
    7461546    }
    … …  
    7491549    # update necessary pointers in header
    7501550    foreach $offset (0x5c, 0x64, 0x78, 0x80) {
    751         last if $offset >= $jpos;    # some versions have a short header
     1551        last if $offset >= $jpos;   # some versions have a short header
    7521552        my $oldPtr = Get32u(\$hdr, $offset);
    7531553        next unless $oldPtr;        # don't update if pointer is zero
    … …  
    7611561    # copy over the rest of the RAF image
    7621562    unless ($raf->Seek($nextPtr, 0)) {
    763         $exifTool->Error('Error reading RAF image');
     1563        $et->Error('Error reading RAF image');
    7641564        return 1;
    7651565    }
    … …  
    7761576sub ProcessRAF($$)
    7771577{
    778     my ($exifTool, $dirInfo) = @_;
     1578    my ($et, $dirInfo) = @_;
    7791579    my ($buff, $jpeg, $warn, $offset);
    7801580
    … …  
    7871587    $raf->Read($jpeg, $jlen) == $jlen or return 0;
    7881588
    789     $exifTool->FoundTag('RAFVersion', substr($buff, 0x3c, 4));
     1589    $et->SetFileType();
     1590    $et->FoundTag('RAFVersion', substr($buff, 0x3c, 4));
    7901591
    7911592    # extract information from embedded JPEG
    … …  
    7941595        RAF    => new File::RandomAccess(\$jpeg),
    7951596    );
    796     $$exifTool{BASE} += $jpos;
    797     my $rtnVal = $exifTool->ProcessJPEG(\%dirInfo);
    798     $$exifTool{BASE} -= $jpos;
    799     $exifTool->FoundTag('PreviewImage', \$jpeg) if $rtnVal;
    800 
    801     # extract information from Fuji RAF directories
    802     my $num = '';
    803     foreach $offset (0x5c, 0x78) {
     1597    $$et{BASE} += $jpos;
     1598    my $rtnVal = $et->ProcessJPEG(\%dirInfo);
     1599    $$et{BASE} -= $jpos;
     1600    $et->FoundTag('PreviewImage', \$jpeg) if $rtnVal;
     1601
     1602    # extract information from Fuji RAF and TIFF directories
     1603    my ($rafNum, $ifdNum) = ('','');
     1604    foreach $offset (0x5c, 0x64, 0x78, 0x80) {
    8041605        last if $offset >= $jpos;
    8051606        unless ($raf->Seek($offset, 0) and $raf->Read($buff, 4)) {
    … …  
    8091610        my $start = unpack('N',$buff);
    8101611        next unless $start;
    811 
    812         %dirInfo = (
    813             RAF      => $raf,
    814             DirStart => $start,
    815         );
    816         $$exifTool{SET_GROUP1} = "RAF$num";
    817         my $tagTablePtr = GetTagTable('Image::ExifTool::FujiFilm::RAF');
    818         $exifTool->ProcessDirectory(\%dirInfo, $tagTablePtr) or $warn = 1;
    819         delete $$exifTool{SET_GROUP1};
    820 
    821         $num = ($num || 1) + 1;
     1612        if ($offset == 0x64 or $offset == 0x80) {
     1613            # parse FujiIFD directory
     1614            %dirInfo = (
     1615                RAF  => $raf,
     1616                Base => $start,
     1617            );
     1618            $$et{SET_GROUP1} = "FujiIFD$ifdNum";
     1619            my $tagTablePtr = GetTagTable('Image::ExifTool::FujiFilm::IFD');
     1620            # this is TIFF-format data only for some models, so no warning if it fails
     1621            $et->ProcessTIFF(\%dirInfo, $tagTablePtr, \&Image::ExifTool::ProcessTIFF);
     1622            delete $$et{SET_GROUP1};
     1623            $ifdNum = ($ifdNum || 1) + 1;
     1624        } else {
     1625            # parse RAF directory
     1626            %dirInfo = (
     1627                RAF      => $raf,
     1628                DirStart => $start,
     1629            );
     1630            $$et{SET_GROUP1} = "RAF$rafNum";
     1631            my $tagTablePtr = GetTagTable('Image::ExifTool::FujiFilm::RAF');
     1632            $et->ProcessDirectory(\%dirInfo, $tagTablePtr) or $warn = 1;
     1633            delete $$et{SET_GROUP1};
     1634            $rafNum = ($rafNum || 1) + 1;
     1635        }
    8221636    }
    823     $warn and $exifTool->Warn('Possibly corrupt RAF information');
     1637    $warn and $et->Warn('Possibly corrupt RAF information');
    8241638
    8251639    return $rtnVal;
    … …  
    8461660=head1 AUTHOR
    8471661
    848 Copyright 2003-2011, Phil Harvey (phil at owl.phy.queensu.ca)
     1662Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
    8491663
    8501664This library is free software; you can redistribute it and/or modify it
Note: See TracChangeset for help on using the changeset viewer.