1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
package Data::ParseBinary::Graphics::EMF;
use strict;
use warnings;
use Data::ParseBinary;
## Enhanced Meta File
my $record_type = Enum(ULInt32("record_type"),
ABORTPATH => 68,
ANGLEARC => 41,
ARC => 45,
ARCTO => 55,
BEGINPATH => 59,
BITBLT => 76,
CHORD => 46,
CLOSEFIGURE => 61,
CREATEBRUSHINDIRECT => 39,
CREATEDIBPATTERNBRUSHPT => 94,
CREATEMONOBRUSH => 93,
CREATEPALETTE => 49,
CREATEPEN => 38,
DELETEOBJECT => 40,
ELLIPSE => 42,
ENDPATH => 60,
EOF => 14,
EXCLUDECLIPRECT => 29,
EXTCREATEFONTINDIRECTW => 82,
EXTCREATEPEN => 95,
EXTFLOODFILL => 53,
EXTSELECTCLIPRGN => 75,
EXTTEXTOUTA => 83,
EXTTEXTOUTW => 84,
FILLPATH => 62,
FILLRGN => 71,
FLATTENPATH => 65,
FRAMERGN => 72,
GDICOMMENT => 70,
HEADER => 1,
INTERSECTCLIPRECT => 30,
INVERTRGN => 73,
LINETO => 54,
MASKBLT => 78,
MODIFYWORLDTRANSFORM => 36,
MOVETOEX => 27,
OFFSETCLIPRGN => 26,
PAINTRGN => 74,
PIE => 47,
PLGBLT => 79,
POLYBEZIER => 2,
POLYBEZIER16 => 85,
POLYBEZIERTO => 5,
POLYBEZIERTO16 => 88,
POLYDRAW => 56,
POLYDRAW16 => 92,
POLYGON => 3,
POLYGON16 => 86,
POLYLINE => 4,
POLYLINE16 => 87,
POLYLINETO => 6,
POLYLINETO16 => 89,
POLYPOLYGON => 8,
POLYPOLYGON16 => 91,
POLYPOLYLINE => 7,
POLYPOLYLINE16 => 90,
POLYTEXTOUTA => 96,
POLYTEXTOUTW => 97,
REALIZEPALETTE => 52,
RECTANGLE => 43,
RESIZEPALETTE => 51,
RESTOREDC => 34,
ROUNDRECT => 44,
SAVEDC => 33,
SCALEVIEWPORTEXTEX => 31,
SCALEWINDOWEXTEX => 32,
SELECTCLIPPATH => 67,
SELECTOBJECT => 37,
SELECTPALETTE => 48,
SETARCDIRECTION => 57,
SETBKCOLOR => 25,
SETBKMODE => 18,
SETBRUSHORGEX => 13,
SETCOLORADJUSTMENT => 23,
SETDIBITSTODEVICE => 80,
SETMAPMODE => 17,
SETMAPPERFLAGS => 16,
SETMETARGN => 28,
SETMITERLIMIT => 58,
SETPALETTEENTRIES => 50,
SETPIXELV => 15,
SETPOLYFILLMODE => 19,
SETROP2 => 20,
SETSTRETCHBLTMODE => 21,
SETTEXTALIGN => 22,
SETTEXTCOLOR => 24,
SETVIEWPORTEXTEX => 11,
SETVIEWPORTORGEX => 12,
SETWINDOWEXTEX => 9,
SETWINDOWORGEX => 10,
SETWORLDTRANSFORM => 35,
STRETCHBLT => 77,
STRETCHDIBITS => 81,
STROKEANDFILLPATH => 63,
STROKEPATH => 64,
WIDENPATH => 66,
_default_ => $DefaultPass,
);
my $generic_record = Struct("records",
$record_type,
ULInt32("record_size"), # Size of the record in bytes
RoughUnion("params", # Parameters
Field("raw", sub { $_->ctx(1)->{record_size} - 8 }),
ExtractingAdapter(
Struct("params",
Array(sub { int(($_->ctx(1)->{record_size} - 8) / 4) }, ULInt32("params")),
Padding(sub {$_->ctx(1)->{record_size} % 4}),
),
"params"),
),
);
my $header_record = Struct("header_record",
Const($record_type, "HEADER"),
ULInt32("record_size"), # Size of the record in bytes
SLInt32("bounds_left"), # Left inclusive bounds
SLInt32("bounds_right"), # Right inclusive bounds
SLInt32("bounds_top"), # Top inclusive bounds
SLInt32("bounds_bottom"), # Bottom inclusive bounds
SLInt32("frame_left"), # Left side of inclusive picture frame
SLInt32("frame_right"), # Right side of inclusive picture frame
SLInt32("frame_top"), # Top side of inclusive picture frame
SLInt32("frame_bottom"), # Bottom side of inclusive picture frame
Const(ULInt32("signature"), 0x464D4520),
ULInt32("version"), # Version of the metafile
ULInt32("size"), # Size of the metafile in bytes
ULInt32("num_of_records"), # Number of records in the metafile
ULInt16("num_of_handles"), # Number of handles in the handle table
Padding(2),
ULInt32("description_size"), # Size of description string in WORDs
ULInt32("description_offset"), # Offset of description string in metafile
ULInt32("num_of_palette_entries"), # Number of color palette entries
SLInt32("device_width_pixels"), # Width of reference device in pixels
SLInt32("device_height_pixels"), # Height of reference device in pixels
SLInt32("device_width_mm"), # Width of reference device in millimeters
SLInt32("device_height_mm"), # Height of reference device in millimeters
# description string
If( sub {$_->ctx->{description_offset} != 0 and $_->ctx->{description_size} != 0},
Pointer(sub { $_->ctx->{description_offset} },
String("description", sub { $_->ctx->{description_size} }, encoding => 'UTF-16LE' )
#StringAdapter(
# Array(sub { $_->ctx->{description_size} },
# Field("description", 2)
# )
#)
),
),
# padding up to end of record
Padding(sub { $_->ctx->{record_size} - 88 }),
);
our $emf_parser = Struct("emf_file",
$header_record,
Array(sub { $_->ctx->{header_record}->{num_of_records} - 1 },
$generic_record
),
);
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw($emf_parser);
1;
__END__
=head1 NAME
Data::ParseBinary::Graphics::EMF
=head1 SYNOPSIS
use Data::ParseBinary::Graphics::EMF qw{$emf_parser};
my $data = $emf_parser->parse(CreateStreamReader(File => $fh));
This parser just do not work on my example file. Have to take a look on it.
This is a part of the Data::ParseBinary package, and is just one ready-made parser.
please go to the main page for additional usage info.
=cut
|
