/dports/graphics/p5-Image-ExifTool/Image-ExifTool-12.30/lib/Image/ExifTool/ |
H A D | MakerNotes.pm | 1201 my ($dataPt, $dirStart, $tagPtr) = @_; 1304 my $ifdEnd = $dirStart + $ifdLen; 1387 $shift = $dataPos + $dirStart + 2; 1479 my $valuePtr = $dirStart; 1480 my $newStart = $dirStart; 1532 my $pos = $dirStart + $offset; 1690 Set16u(25, $dataPt, $dirStart); 1707 my $t1 = Get16u($dataPt,$dirStart); 1708 my $t2 = Get16u($dataPt,$dirStart+2); 1722 my $dirStart = $$dirInfo{DirStart}; [all …]
|
H A D | PhaseOne.pm | 444 my $dirStart = $$dirInfo{DirStart} || 0; 456 my $hdr = substr($$dataPt, $dirStart, 12); 468 my $dirBuff = substr($$dataPt, $dirStart + $ifdStart, 8); 478 my $entry = $dirStart + $ifdStart + 8 + $entrySize * $index; 505 $valuePtr += $dirStart; 583 my $dirStart = $$dirInfo{DirStart} || 0; 597 my $hdr = substr($$dataPt, $dirStart, 12); 609 my $numEntries = Get32u($dataPt, $dirStart + $ifdStart); 614 $et->HDump($dirStart + $dataPos, 8, "$ifdType header"); 653 $valuePtr += $dirStart; [all …]
|
H A D | NikonCapture.pm | 716 my $dirStart = $$dirInfo{DirStart}; 724 my $tagID = Get32u($dataPt, $dirStart); 726 my $size = Get32u($dataPt, $dirStart + 18); 742 my $dirEnd = $dirStart + $dirLen; 806 return substr($$dataPt, $dirStart, 18) . 819 my $dirStart = $$dirInfo{DirStart}; 821 my $dirEnd = $dirStart + $dirLen; 825 my $num = Get32u($dataPt, $dirStart); 826 my $pos = $dirStart + 4; 856 my $dirStart = $$dirInfo{DirStart}; [all …]
|
H A D | ICC_Profile.pm | 920 my $dirStart = $$dirInfo{DirStart}; 922 my $dirEnd = $dirStart + $dirLen; 928 my $num = Get32u($dataPt, $dirStart + 8); 930 my $size = Get32u($dataPt, $dirStart + 12); 937 my $entry = $dirStart + 16 + $size * $index; 953 my $tag = substr($dataPt, $dirStart + $namePtr, $nameLen); 1074 my $dirStart = $$dirInfo{DirStart} || 0; 1092 my $len = Get32u($dataPt, $dirStart); 1097 my $pos = $dirStart + 128; # position at start of table 1119 DirStart => $dirStart, [all …]
|
H A D | Ricoh.pm | 946 my $dirStart = $$dirInfo{DirStart} || 0; 947 my $dirLen = $$dirInfo{DirLen} || $dataLen - $dirStart; 950 my $data = substr($$dataPt, $dirStart, $dirLen); 990 my $dirStart = $$dirInfo{DirStart}; 992 my $dirLen = $dataLen - $dirStart; 997 my $byteOrder = substr($$dataPt, $dirStart, 2); 1001 my $rmetaNum = Get16u($dataPt, $dirStart+4); 1025 my $audioLen = Get16u($dataPt, $dirStart+12); 1027 my $buff = substr($$dataPt, $dirStart + 14, $audioLen); 1040 my $pos = $dirStart + Get16u($dataPt, $dirStart+8);
|
H A D | FLAC.pm | 151 my $dirStart = $$dirInfo{DirStart} || 0; 152 my $dirLen = $$dirInfo{DirLen} || (length($$dataPt) - $dirStart); 185 $val = $val * 256 + ($mask & Get8u($dataPt, $i + $dirStart)); 202 $val = $val * 256 + ($mask & Get8u($dataPt, $i + $dirStart)); 215 Start => $dirStart + $i1,
|
H A D | WriteExif.pl | 138 my $dirStart = $$dirInfo{DirStart}; 245 my $entry = $dirStart + 2 + 12 * $index; 274 my ($dirInfo, $dirStart) = @_; 277 $dirStart = $$dirInfo{DirStart} || 0 unless defined $dirStart; 311 my $entry = $dirStart + 2 + 12 * $index; 506 my $dirStart = $$dirInfo{DirStart} || 0; 549 if ($dirStart < 0 or $dirStart > $dataLen-2) { 590 if ($dirStart + 4 < $dataLen) { 615 $dirEnd = $dirStart; 2102 $dirStart = 0; [all …]
|
H A D | PanasonicRaw.pm | 790 my $dirStart = $$dirInfo{DirStart}; 791 if ($dirStart) { # DirStart is non-zero in DNG-converted RW2/RWL 792 my $dirLen = $$dirInfo{DirLen} | length($$dataPt) - $dirStart; 793 my $buff = substr($$dataPt, $dirStart, $dirLen); 835 my $dirStart = $$dirInfo{DirStart}; 836 if ($dirStart) { # DirStart is non-zero in DNG-converted RW2/RWL 837 my $dirLen = $$dirInfo{DirLen} | length($$dataPt) - $dirStart; 838 my $buff = substr($$dataPt, $dirStart, $dirLen); 841 $$et{BASE} = $$dirInfo{DataPos} + ($dirStart || 0);
|
H A D | JVC.pm | 68 my $dirStart = $$dirInfo{DirStart} || 0; 70 my $dirLen = $$dirInfo{DirLen} || $dataLen - $dirStart; 73 my $data = substr($$dataPt, $dirStart, $dirLen);
|
H A D | DNG.pm | 493 my $dirStart = $$dirInfo{DirStart}; 499 $buff .= substr($$dataPt, $dirStart + 4, $dirLen - 4); 505 $$outfile = substr($$dataPt, $dirStart, 4) . substr($$outfile, 8); 577 my $dirStart = $start + 6; # pointer to maker note directory 581 my $fix = $dataPos + $dirStart - $originalPos; 588 DirStart => $dirStart, 687 my $dirStart = $start + $hdrLen; # pointer to maker note directory 690 my $hdr = substr($$dataPt, $dirStart, $dirLen < 48 ? $dirLen : 48); 703 DirStart => $dirStart, 724 $fix = $dataPos + $dirStart - $originalPos; [all …]
|
H A D | HP.pm | 209 my $dirStart = $$dirInfo{DirStart} || 0; 210 my $dirLen = $$dirInfo{DirLen} || $dataLen - $dirStart; 213 if ($dirStart or $dirLen != length($$dataPt)) { 214 my $buff = substr($$dataPt, $dirStart, $dirLen);
|
H A D | Panasonic.pm | 2628 my $dirStart = $$dirInfo{DirStart} || 0; 2632 my $numEntries = Get16u($dataPt, $dirStart); 2634 my $size = Get32u($dataPt, $dirStart + 2); 2639 Set16u($numEntries, $dataPt, $dirStart + 4); 2641 $dirInfo{DirStart} = $dirStart + 4; 2643 $dirInfo{DataPos} -= $dirStart; 2644 $dirInfo{Base} += $dirStart; 2701 my $dirStart = $start + $hdrLen; 2720 my $valStart = $dirStart + 2 + 12 * $num + 4; 2769 DirStart => $dirStart, [all …]
|
/dports/graphics/p5-Image-ExifTool-devel/Image-ExifTool-12.14/lib/Image/ExifTool/ |
H A D | MakerNotes.pm | 1201 my ($dataPt, $dirStart, $tagPtr) = @_; 1304 my $ifdEnd = $dirStart + $ifdLen; 1387 $shift = $dataPos + $dirStart + 2; 1479 my $valuePtr = $dirStart; 1480 my $newStart = $dirStart; 1532 my $pos = $dirStart + $offset; 1690 Set16u(25, $dataPt, $dirStart); 1707 my $t1 = Get16u($dataPt,$dirStart); 1708 my $t2 = Get16u($dataPt,$dirStart+2); 1722 my $dirStart = $$dirInfo{DirStart}; [all …]
|
H A D | PhaseOne.pm | 443 my $dirStart = $$dirInfo{DirStart} || 0; 455 my $hdr = substr($$dataPt, $dirStart, 12); 467 my $dirBuff = substr($$dataPt, $dirStart + $ifdStart, 8); 477 my $entry = $dirStart + $ifdStart + 8 + $entrySize * $index; 504 $valuePtr += $dirStart; 582 my $dirStart = $$dirInfo{DirStart} || 0; 596 my $hdr = substr($$dataPt, $dirStart, 12); 608 my $numEntries = Get32u($dataPt, $dirStart + $ifdStart); 613 $et->HDump($dirStart + $dataPos, 8, "$ifdType header"); 652 $valuePtr += $dirStart; [all …]
|
H A D | NikonCapture.pm | 716 my $dirStart = $$dirInfo{DirStart}; 724 my $tagID = Get32u($dataPt, $dirStart); 726 my $size = Get32u($dataPt, $dirStart + 18); 742 my $dirEnd = $dirStart + $dirLen; 806 return substr($$dataPt, $dirStart, 18) . 819 my $dirStart = $$dirInfo{DirStart}; 821 my $dirEnd = $dirStart + $dirLen; 825 my $num = Get32u($dataPt, $dirStart); 826 my $pos = $dirStart + 4; 856 my $dirStart = $$dirInfo{DirStart}; [all …]
|
H A D | ICC_Profile.pm | 920 my $dirStart = $$dirInfo{DirStart}; 922 my $dirEnd = $dirStart + $dirLen; 928 my $num = Get32u($dataPt, $dirStart + 8); 930 my $size = Get32u($dataPt, $dirStart + 12); 937 my $entry = $dirStart + 16 + $size * $index; 953 my $tag = substr($dataPt, $dirStart + $namePtr, $nameLen); 1074 my $dirStart = $$dirInfo{DirStart} || 0; 1092 my $len = Get32u($dataPt, $dirStart); 1097 my $pos = $dirStart + 128; # position at start of table 1119 DirStart => $dirStart, [all …]
|
H A D | Ricoh.pm | 946 my $dirStart = $$dirInfo{DirStart} || 0; 947 my $dirLen = $$dirInfo{DirLen} || $dataLen - $dirStart; 950 my $data = substr($$dataPt, $dirStart, $dirLen); 990 my $dirStart = $$dirInfo{DirStart}; 992 my $dirLen = $dataLen - $dirStart; 997 my $byteOrder = substr($$dataPt, $dirStart, 2); 1001 my $rmetaNum = Get16u($dataPt, $dirStart+4); 1025 my $audioLen = Get16u($dataPt, $dirStart+12); 1027 my $buff = substr($$dataPt, $dirStart + 14, $audioLen); 1040 my $pos = $dirStart + Get16u($dataPt, $dirStart+8);
|
H A D | FLAC.pm | 151 my $dirStart = $$dirInfo{DirStart} || 0; 152 my $dirLen = $$dirInfo{DirLen} || (length($$dataPt) - $dirStart); 185 $val = $val * 256 + ($mask & Get8u($dataPt, $i + $dirStart)); 202 $val = $val * 256 + ($mask & Get8u($dataPt, $i + $dirStart)); 215 Start => $dirStart + $i1,
|
H A D | WriteExif.pl | 138 my $dirStart = $$dirInfo{DirStart}; 245 my $entry = $dirStart + 2 + 12 * $index; 274 my ($dirInfo, $dirStart) = @_; 277 $dirStart = $$dirInfo{DirStart} || 0 unless defined $dirStart; 311 my $entry = $dirStart + 2 + 12 * $index; 506 my $dirStart = $$dirInfo{DirStart} || 0; 549 if ($dirStart < 0 or $dirStart > $dataLen-2) { 590 if ($dirStart + 4 < $dataLen) { 615 $dirEnd = $dirStart; 2102 $dirStart = 0; [all …]
|
H A D | PanasonicRaw.pm | 790 my $dirStart = $$dirInfo{DirStart}; 791 if ($dirStart) { # DirStart is non-zero in DNG-converted RW2/RWL 792 my $dirLen = $$dirInfo{DirLen} | length($$dataPt) - $dirStart; 793 my $buff = substr($$dataPt, $dirStart, $dirLen); 835 my $dirStart = $$dirInfo{DirStart}; 836 if ($dirStart) { # DirStart is non-zero in DNG-converted RW2/RWL 837 my $dirLen = $$dirInfo{DirLen} | length($$dataPt) - $dirStart; 838 my $buff = substr($$dataPt, $dirStart, $dirLen); 841 $$et{BASE} = $$dirInfo{DataPos} + ($dirStart || 0);
|
H A D | JVC.pm | 68 my $dirStart = $$dirInfo{DirStart} || 0; 70 my $dirLen = $$dirInfo{DirLen} || $dataLen - $dirStart; 73 my $data = substr($$dataPt, $dirStart, $dirLen);
|
H A D | DNG.pm | 493 my $dirStart = $$dirInfo{DirStart}; 499 $buff .= substr($$dataPt, $dirStart + 4, $dirLen - 4); 505 $$outfile = substr($$dataPt, $dirStart, 4) . substr($$outfile, 8); 577 my $dirStart = $start + 6; # pointer to maker note directory 581 my $fix = $dataPos + $dirStart - $originalPos; 588 DirStart => $dirStart, 687 my $dirStart = $start + $hdrLen; # pointer to maker note directory 690 my $hdr = substr($$dataPt, $dirStart, $dirLen < 48 ? $dirLen : 48); 703 DirStart => $dirStart, 724 $fix = $dataPos + $dirStart - $originalPos; [all …]
|
H A D | HP.pm | 209 my $dirStart = $$dirInfo{DirStart} || 0; 210 my $dirLen = $$dirInfo{DirLen} || $dataLen - $dirStart; 213 if ($dirStart or $dirLen != length($$dataPt)) { 214 my $buff = substr($$dataPt, $dirStart, $dirLen);
|
H A D | Panasonic.pm | 2603 my $dirStart = $$dirInfo{DirStart} || 0; 2607 my $numEntries = Get16u($dataPt, $dirStart); 2609 my $size = Get32u($dataPt, $dirStart + 2); 2614 Set16u($numEntries, $dataPt, $dirStart + 4); 2616 $dirInfo{DirStart} = $dirStart + 4; 2618 $dirInfo{DataPos} -= $dirStart; 2619 $dirInfo{Base} += $dirStart; 2676 my $dirStart = $start + $hdrLen; 2695 my $valStart = $dirStart + 2 + 12 * $num + 4; 2744 DirStart => $dirStart, [all …]
|
/dports/devel/covtool/covtool-2.1_10/ |
H A D | covstream.c | 307 char *dirStart = dirname; in normalizePathname() local 319 dirStart = dirname; in normalizePathname() 333 dirStart = dirname; in normalizePathname() 340 dirStart = dirname; in normalizePathname() 369 while(dirname > dirStart && in normalizePathname() 413 if( path[1] == '.' && isSlash(path[2]) && dirname > dirStart) in normalizePathname() 417 while(dirname > dirStart && in normalizePathname() 471 if(dirname > dirStart) in normalizePathname() 475 while(dirname > dirStart && in normalizePathname() 499 if(dirname > dirStart) in normalizePathname() [all …]
|