- Timestamp:
- 2021-02-26T19:39:51+13:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cpan/Image/ExifTool/PICT.pm
r24107 r34921 21 21 use Image::ExifTool qw(:DataAccess :Utils); 22 22 23 $VERSION = '1.0 3';23 $VERSION = '1.05'; 24 24 25 25 sub ReadPictValue($$$;$); … … 274 274 # PICT image opcodes 275 275 %Image::ExifTool::PICT::Main = ( 276 PROCESS_PROC => 0, # set this to zero toomit tags from lookup276 VARS => { NO_LOOKUP => 1 }, # omit tags from lookup 277 277 NOTES => q{ 278 278 The PICT format contains no true meta information, except for the possible … … 822 822 }, 823 823 0x00a1 => [ 824 # this list for documentation only [ not currentlyextracted]824 # this list for documentation only [currently not extracted] 825 825 { 826 826 # (not actually a full Photohop IRB record it appears, but it does start … … 1025 1025 my %parms = ( Out => $out ); 1026 1026 $parms{MaxLen} = 96 if $verbose < 4; 1027 Image::ExifTool::HexDump(\$val, undef, %parms);1027 HexDump(\$val, undef, %parms); 1028 1028 } 1029 1029 } else { … … 1055 1055 my %parms = ( Out => $out ); 1056 1056 $parms{MaxLen} = 96 if $verbose < 4; 1057 Image::ExifTool::HexDump($val, undef, %parms);1057 HexDump($val, undef, %parms); 1058 1058 } 1059 1059 } … … 1082 1082 sub ProcessPICT($$) 1083 1083 { 1084 my ($e xifTool, $dirInfo) = @_;1084 my ($et, $dirInfo) = @_; 1085 1085 my $raf = $$dirInfo{RAF}; 1086 $verbose = $e xifTool->Options('Verbose');1087 $out = $e xifTool->Options('TextOut');1086 $verbose = $et->Options('Verbose'); 1087 $out = $et->Options('TextOut'); 1088 1088 $indent = ''; 1089 1089 my ($buff, $tried, @hdr, $op, $hRes, $vRes); … … 1096 1096 $op = pop @hdr; 1097 1097 # check for PICT version 1 format 1098 if ($op eq0x1101) {1098 if ($op == 0x1101) { 1099 1099 $vers = 1; 1100 1100 undef $extended; … … 1102 1102 } 1103 1103 # check for PICT version 2 format 1104 if ($op eq0x0011) {1104 if ($op == 0x0011) { 1105 1105 $raf->Read($buff, 28) == 28 or return 0; 1106 1106 if ($buff =~ /^\x02\xff\x0c\x00\xff\xff/) { … … 1139 1139 $h = int($h * $vRes / 72 + 0.5); 1140 1140 } 1141 $e xifTool->SetFileType();1142 $e xifTool->FoundTag('ImageWidth', $w);1143 $e xifTool->FoundTag('ImageHeight', $h);1144 $e xifTool->FoundTag('XResolution', $hRes) if $hRes;1145 $e xifTool->FoundTag('YResolution', $vRes) if $vRes;1141 $et->SetFileType(); 1142 $et->FoundTag('ImageWidth', $w); 1143 $et->FoundTag('ImageHeight', $h); 1144 $et->FoundTag('XResolution', $hRes) if $hRes; 1145 $et->FoundTag('YResolution', $vRes) if $vRes; 1146 1146 1147 1147 # don't extract image opcodes unless verbose 1148 return 1 unless $verbose or $e xifTool->Options('Unknown');1148 return 1 unless $verbose or $et->Options('Unknown'); 1149 1149 1150 1150 $verbose and printf $out "PICT version $vers%s\n", $extended ? ' extended' : ''; … … 1163 1163 $op = unpack('n', $buff); 1164 1164 } 1165 my $tagInfo = $e xifTool->GetTagInfo($tagTablePtr, $op);1165 my $tagInfo = $et->GetTagInfo($tagTablePtr, $op); 1166 1166 unless ($tagInfo) { 1167 1167 my $i; … … 1170 1170 next unless $op >= $reserved[$i]; 1171 1171 last if $op > $reserved[$i+1]; 1172 $tagInfo = $e xifTool->GetTagInfo($tagTablePtr, $reserved[$i]);1172 $tagInfo = $et->GetTagInfo($tagTablePtr, $reserved[$i]); 1173 1173 last; 1174 1174 } 1175 1175 last unless $tagInfo; 1176 1176 } 1177 if ($op eq0xff) {1177 if ($op == 0xff) { 1178 1178 $verbose and print $out "End of picture\n"; 1179 1179 $success = 1; … … 1182 1182 my $format = $$tagInfo{Format}; 1183 1183 unless ($format) { 1184 $e xifTool->Warn("Missing format for $$tagInfo{Name}");1184 $et->Warn("Missing format for $$tagInfo{Name}"); 1185 1185 last; 1186 1186 } … … 1191 1191 my $val = ReadPictValue($raf, $$tagInfo{Name}, $format); 1192 1192 unless (defined $val) { 1193 $e xifTool->Warn("Error reading $$tagInfo{Name} information");1193 $et->Warn("Error reading $$tagInfo{Name} information"); 1194 1194 last; 1195 1195 } … … 1201 1201 $val->{imageDescr}->{compressor} eq 'Photo - JPEG' and 1202 1202 ref $val->{imageData} eq 'SCALAR' and 1203 $e xifTool->ValidateImage($val->{imageData}, 'PreviewImage'))1203 $et->ValidateImage($val->{imageData}, 'PreviewImage')) 1204 1204 { 1205 $e xifTool->FoundTag('PreviewImage', $val->{imageData});1205 $et->FoundTag('PreviewImage', $val->{imageData}); 1206 1206 } 1207 1207 } else { 1208 # $e xifTool->FoundTag($tagInfo, $val);1208 # $et->FoundTag($tagInfo, $val); 1209 1209 } 1210 1210 } 1211 $success or $e xifTool->Warn('End of picture not found');1211 $success or $et->Warn('End of picture not found'); 1212 1212 return 1; 1213 1213 } … … 1237 1237 =head1 AUTHOR 1238 1238 1239 Copyright 2003-20 11, Phil Harvey (phil at owl.phy.queensu.ca)1239 Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com) 1240 1240 1241 1241 This library is free software; you can redistribute it and/or modify it
Note:
See TracChangeset
for help on using the changeset viewer.