avoid dead code in i_tt_glyph_names()
[imager.git] / fileformatdocs / bmpdump.pl
CommitLineData
e6a612d4
TC
1#!perl
2use strict;
3use Getopt::Long;
4
5my $dumpall = 0;
6my $image = 0;
7GetOptions(dumpall => \$dumpall,
8 image => \$image);
9
10my $file = shift
11 or die "Usage: $0 filename\n";
12
13open my $fh, "<", $file
14 or die "$0: cannot open '$file': $!\n";
15
16binmode $fh;
17
18my $filehead;
19read($fh, $filehead, 14) == 14
20 or die "Could not read file header: $!\n";
21my ($h_type, $h_size, $res1, $res2, $h_offset)
22 = unpack("A2VvvV", $filehead);
23
24$h_type eq "BM"
25 or die "Not a BMP file - no BM signature\n";
26
27print <<EOS;
28File header:
29 Type: $h_type
30 Size: $h_size
31 Res1: $res1
32 Res2: $res2
33 Offset: $h_offset
34EOS
35
36my $bmi;
37read($fh, $bmi, 40) == 40
38 or die "Could not read BITMAPINFO\n";
39
40my ($i_size, $i_width, $i_height, $i_planes, $i_bits, $i_compress, $i_size_img, $i_xppm, $i_yppm, $clr_used, $clr_imp) =
41 unpack("VVVvvVVVVVV", $bmi);
42printf <<EOS,
43Bitmapinfo:
44 biSize: %d
45 biWidth: %d
46 biHeight: %d
47 biPlanes: %d
48 biBitCount: %d
49 biCompression: %d
50 biSizeImage: %d
51 biXPelsPerMeter: %d
52 biYPelsPerMeter: %d
53 biClrUsed: %d
54 biClrImportant: %d
55EOS
56 $i_size, $i_width, $i_height, $i_planes, $i_bits, $i_compress, $i_size_img, $i_xppm, $i_yppm, $clr_used, $clr_imp;
57
58$i_size < 40
59 and die "biSize too small\n";
60
61if ($i_size > 40) {
62 my $extra_head;
63 read($fh, $extra_head, $i_size - 40) == $i_size - 40
64 or die "Failed to read rest of header\n";
65}