← Back to branch summary

~ubuntu-branches/ubuntu/karmic/libimage-exiftool-perl/karmic

« back to all changes in this revision

Viewing changes to lib/Image/ExifTool/SigmaRaw.pm

  • Committer: Bazaar Package Importer
  • Author(s): Mari Wang
  • Date: 2008-02-04 20:32:53 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20080204203253-mpbal8trlfe1fz5d
Tags: 7.00-1
http://bugs.debian.org/456430
http://bugs.debian.org/435589
http://bugs.debian.org/436100
* Upload of new production release (Closes: #456430)
* Added Recommends: libcompress-zlib-perl (Closes: #435589)
* Package now includes iptc2xmp.args and xmp2iptc.args, they are put
  into /usr/share/libimage-exiftool/ (Closes: #436100)
* Updated standards-version (3.7.2 -> 3.7.3). No changes needed.
* Lots of updates and bugfixes compared to last debian version
  (6.90).  See the Changes file for details
* Upload sponsored by Petter Reinholdtsen

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Image/ExifTool/SigmaRaw.pm
14
14
use vars qw($VERSION);
15
15
use Image::ExifTool qw(:DataAccess :Utils);
16
16
 
17
 
$VERSION = '1.02';
 
17
$VERSION = '1.03';
18
18
 
19
19
sub ProcessX3FHeader($$$);
20
20
sub ProcessX3FDirectory($$$);
90
90
            A => 'Average',
91
91
        },
92
92
    },
 
93
    AFAREA      => 'AFArea', # observed: CENTER_V
 
94
    AFINFOCUS   => 'AFInFocus', # observed: H
93
95
    AFMODE      => 'FocusMode',
94
96
    AP_DESC     => 'ApertureDisplayed',
95
97
    APERTURE => {
103
105
    CAMMODEL    => 'Model',
104
106
    CAMNAME     => 'CameraName',
105
107
    CAMSERIAL   => 'SerialNumber',
 
108
    COLORSPACE  => 'ColorSpace', # observed: sRGB
106
109
    DRIVE => {
107
110
        Name => 'DriveMode',
108
111
        PrintConv => {
115
118
            OFF    => 'Off',
116
119
        },
117
120
    },
 
121
    EVAL_STATE  => 'EvalState', # observed: POST-EXPOSURE
118
122
    EXPCOMP => {
119
123
        Name => 'ExposureCompensation',
120
124
        Groups => { 2 => 'Image' },
136
140
        Name => 'FlashMode',
137
141
        PrintConv => 'ucfirst(lc($val))',
138
142
    },
 
143
    FLASHEXPCOMP=> 'FlashExpComp',
 
144
    FLASHPOWER  => 'FlashPower',
 
145
    FLASHTTLMODE=> 'FlashTTLMode', # observed: ON
 
146
    FLASHTYPE   => 'FlashType', # observed: NONE
139
147
    FLENGTH => {
140
148
        Name => 'FocalLength',
141
149
        PrintConv => 'sprintf("%.1fmm",$val)',
187
195
        PrintConv => '$self->ConvertDateTime($val)',
188
196
    },
189
197
    WB_DESC     => 'WhiteBalance',
 
198
    VERSION_BF  => 'VersionBF',
190
199
);
191
200
 
192
201
#------------------------------------------------------------------------------
261
270
    my $dataPt = $$dirInfo{DataPt};
262
271
    my $size = length($$dataPt);
263
272
    my $verbose = $exifTool->Options('Verbose');
 
273
    my $unknown = $exifTool->Options('Unknown');
264
274
 
265
275
    unless ($size >= 24 and $$dataPt =~ /^SECp/) {
266
276
        $exifTool->Warn('Bad properties header');
284
294
        }
285
295
        my $tag = ExtractUnicodeString($exifTool, \@chars, $namePos);
286
296
        my $val = ExtractUnicodeString($exifTool, \@chars, $valPos);
 
297
        if (not $$tagTablePtr{$tag} and $unknown and $tag =~ /^\w+$/) {
 
298
            my $tagInfo = {
 
299
                Name => "SigmaRaw_$tag",
 
300
                Description => Image::ExifTool::MakeDescription('SigmaRaw', $tag),
 
301
                Unknown => 1,
 
302
                Writable => 0,  # can't write unknown tags
 
303
            };
 
304
            # add tag information to table
 
305
            Image::ExifTool::AddTagToTable($tagTablePtr, $tag, $tagInfo);
 
306
        }
 
307
        
287
308
        $exifTool->HandleTag($tagTablePtr, $tag, $val,
288
309
            Index => $index,
289
310
            DataPt => $dataPt,