130 lines
4.0 KiB
Perl
Executable File
130 lines
4.0 KiB
Perl
Executable File
#------------------------------------------------------------------------------
|
|
# File: Apple.pm
|
|
#
|
|
# Description: Apple EXIF maker notes tags
|
|
#
|
|
# Revisions: 2013-09-13 - P. Harvey Created
|
|
#------------------------------------------------------------------------------
|
|
|
|
package Image::ExifTool::Apple;
|
|
|
|
use strict;
|
|
use vars qw($VERSION);
|
|
use Image::ExifTool::Exif;
|
|
use Image::ExifTool::PLIST;
|
|
|
|
$VERSION = '1.02';
|
|
|
|
%Image::ExifTool::Apple::Main = (
|
|
WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
|
|
CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
|
|
WRITABLE => 1,
|
|
GROUPS => { 0 => 'MakerNotes', 2 => 'Image' },
|
|
NOTES => 'Tags extracted from maker notes of images from the iPhone 5 with iOS 7.',
|
|
# 0x0001 - int32s: seen 0,1,2,3,4
|
|
# 0x0002 - binary plist with a single data object of size 512 bytes (iPhone5s)
|
|
0x0003 => {
|
|
Name => 'RunTime',
|
|
SubDirectory => { TagTable => 'Image::ExifTool::Apple::RunTime' },
|
|
},
|
|
# 0x0004 - int32s: normally 1, but 0 for low-light images
|
|
# 0x0005 - int32s: seen values 147-247, and 100 for blank images
|
|
# 0x0006 - int32s: seen values 120-258, and 20 for blank images
|
|
# 0x0007 - int32s: seen 1
|
|
# 0x0008 - rational64s[3]: eg) "0.02683717579 -0.7210501641 -0.6948792783"
|
|
# 0x0009 - int32s: seen 19,531
|
|
0x000a => {
|
|
Name => 'HDRImageType',
|
|
Writable => 'int32s',
|
|
PrintConv => {
|
|
3 => 'HDR Image',
|
|
4 => 'Original Image',
|
|
},
|
|
},
|
|
0x000b => {
|
|
Name => 'BurstUUID',
|
|
Writable => 'string',
|
|
Notes => 'unique ID for all images in a burst',
|
|
},
|
|
# 0x000c - rational64s[2]: eg) "0.1640625 0.19921875"
|
|
# 0x000d - int32s: 0,1,6
|
|
# 0x000e - int32s: 0,1,12
|
|
# 0x000f - int32s: 2,3
|
|
# 0x0010 - int32s: 1
|
|
# 0x0011 - string[37]: some type of UID, eg. "FFCBAC24-E547-4BBC-AF47-38B1A3D845E3\0" (iPhone 6s, iOS 6.1)
|
|
# 0x0014 - int32s: 1,2,3,5 (iPhone 6s, iOS 6.1)
|
|
);
|
|
|
|
# PLIST-format CMTime structure (ref PH)
|
|
# (CMTime ref https://developer.apple.com/library/ios/documentation/CoreMedia/Reference/CMTime/Reference/reference.html)
|
|
%Image::ExifTool::Apple::RunTime = (
|
|
PROCESS_PROC => \&Image::ExifTool::PLIST::ProcessBinaryPLIST,
|
|
GROUPS => { 0 => 'MakerNotes', 2 => 'Image' },
|
|
NOTES => q{
|
|
This PLIST-format information contains the elements of a CMTime structure
|
|
representing the amount of time the phone has been running since the last
|
|
boot, not including standby time.
|
|
},
|
|
timescale => { Name => 'RunTimeScale' }, # (seen 1000000000 --> ns)
|
|
epoch => { Name => 'RunTimeEpoch' }, # (seen 0)
|
|
value => { Name => 'RunTimeValue' }, # (should divide by RunTimeScale to get seconds)
|
|
flags => {
|
|
Name => 'RunTimeFlags',
|
|
PrintConv => { BITMASK => {
|
|
0 => 'Valid',
|
|
1 => 'Has been rounded',
|
|
2 => 'Positive infinity',
|
|
3 => 'Negative infinity',
|
|
4 => 'Indefinite',
|
|
}},
|
|
},
|
|
);
|
|
|
|
# Apple composite tags
|
|
%Image::ExifTool::Apple::Composite = (
|
|
GROUPS => { 2 => 'Camera' },
|
|
RunTimeSincePowerUp => {
|
|
Require => {
|
|
0 => 'Apple:RunTimeValue',
|
|
1 => 'Apple:RunTimeScale',
|
|
},
|
|
ValueConv => '$val[1] ? $val[0] / $val[1] : undef',
|
|
PrintConv => 'ConvertDuration($val)',
|
|
},
|
|
);
|
|
|
|
# add our composite tags
|
|
Image::ExifTool::AddCompositeTags('Image::ExifTool::Apple');
|
|
|
|
|
|
1; # end
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
Image::ExifTool::Apple - Apple EXIF maker notes 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
|
|
Apple maker notes in EXIF information.
|
|
|
|
=head1 AUTHOR
|
|
|
|
Copyright 2003-2016, 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 SEE ALSO
|
|
|
|
L<Image::ExifTool::TagNames/Apple Tags>,
|
|
L<Image::ExifTool(3pm)|Image::ExifTool>
|
|
|
|
=cut
|