]>
Commit | Line | Data |
---|---|---|
9b1ec2b8 TC |
1 | package Imager::Preprocess; |
2 | use strict; | |
3 | require Exporter; | |
5715f7c3 | 4 | use vars qw(@ISA @EXPORT $VERSION); |
93bc63ea TC |
5 | use Getopt::Long; |
6 | use Text::ParseWords; | |
9b1ec2b8 TC |
7 | |
8 | @EXPORT = qw(preprocess); | |
9 | @ISA = qw(Exporter); | |
10 | ||
5715f7c3 TC |
11 | $VERSION = "1.000"; |
12 | ||
9b1ec2b8 | 13 | sub preprocess { |
93bc63ea TC |
14 | unshift @ARGV, grep /^-/, shellwords($ENV{IMAGER_PREPROCESS_OPTS}) |
15 | if $ENV{IMAGER_PREPROCESS_OPTS}; | |
16 | my $skip_lines = 0; | |
17 | GetOptions("l" => \$skip_lines) | |
18 | or usage(); | |
19 | my $keep_lines = !$skip_lines; | |
20 | ||
9b1ec2b8 TC |
21 | my $src = shift @ARGV; |
22 | my $dest = shift @ARGV | |
23 | or usage(); | |
24 | ||
25 | open SRC, "< $src" | |
26 | or die "Cannot open $src: $!\n"; | |
27 | ||
28 | my $cond; | |
29 | my $cond_line; | |
30 | my $save_code; | |
31 | my @code; | |
32 | my $code_line; | |
33 | my @out; | |
34 | my $failed; | |
35 | ||
36 | push @out, | |
37 | "#define IM_ROUND_8(x) ((int)((x)+0.5))\n", | |
38 | "#define IM_ROUND_double(x) (x)\n", | |
39 | "#define IM_LIMIT_8(x) ((x) < 0 ? 0 : (x) > 255 ? 255 : (x))\n", | |
93bc63ea TC |
40 | "#define IM_LIMIT_double(x) ((x) < 0.0 ? 0.0 : (x) > 1.0 ? 1.0 : (x))\n"; |
41 | push @out, "#line 1 \"$src\"\n" if $keep_lines; | |
9b1ec2b8 TC |
42 | while (defined(my $line = <SRC>)) { |
43 | if ($line =~ /^\#code\s+(\S.+)$/) { | |
44 | $save_code | |
45 | and do { warn "$src:$code_line:Unclosed #code block\n"; ++$failed; }; | |
46 | ||
47 | $cond = $1; | |
48 | $cond_line = $.; | |
49 | $code_line = $. + 1; | |
50 | $save_code = 1; | |
51 | } | |
52 | elsif ($line =~ /^\#code\s*$/) { | |
53 | $save_code | |
54 | and do { warn "$src:$code_line:Unclosed #code block\n"; ++$failed; }; | |
55 | ||
56 | $cond = ''; | |
57 | $cond_line = 0; | |
58 | $code_line = $. + 1; | |
59 | $save_code = 1; | |
60 | } | |
9e713610 | 61 | elsif ($line =~ /^\#\/code\s*$/) { |
9b1ec2b8 TC |
62 | $save_code |
63 | or do { warn "$src:$.:#/code without #code\n"; ++$failed; next; }; | |
64 | ||
65 | if ($cond) { | |
93bc63ea | 66 | push @out, "#line $cond_line \"$src\"\n" if $keep_lines; |
9b1ec2b8 TC |
67 | push @out, " if ($cond) {\n"; |
68 | } | |
69 | push @out, | |
70 | "#undef IM_EIGHT_BIT\n", | |
71 | "#define IM_EIGHT_BIT 1\n", | |
72 | "#undef IM_FILL_COMBINE\n", | |
73 | "#define IM_FILL_COMBINE(fill) ((fill)->combine)\n", | |
74 | "#undef IM_FILL_FILLER\n", | |
75 | "#define IM_FILL_FILLER(fill) ((fill)->f_fill_with_color)\n"; | |
93bc63ea | 76 | push @out, "#line $code_line \"$src\"\n" if $keep_lines; |
9b1ec2b8 TC |
77 | push @out, byte_samples(@code); |
78 | push @out, " }\n", " else {\n" | |
79 | if $cond; | |
80 | push @out, | |
81 | "#undef IM_EIGHT_BIT\n", | |
82 | "#undef IM_FILL_COMBINE\n", | |
83 | "#define IM_FILL_COMBINE(fill) ((fill)->combinef)\n", | |
84 | "#undef IM_FILL_FILLER\n", | |
85 | "#define IM_FILL_FILLER(fill) ((fill)->f_fill_with_fcolor)\n"; | |
93bc63ea | 86 | push @out, "#line $code_line \"$src\"\n" if $keep_lines; |
9b1ec2b8 TC |
87 | push @out, double_samples(@code); |
88 | push @out, " }\n" | |
89 | if $cond; | |
93bc63ea | 90 | push @out, "#line ",$.+1," \"$src\"\n" if $keep_lines; |
9b1ec2b8 TC |
91 | @code = (); |
92 | $save_code = 0; | |
93 | } | |
94 | elsif ($save_code) { | |
95 | push @code, $line; | |
96 | } | |
97 | else { | |
98 | push @out, $line; | |
99 | } | |
100 | } | |
101 | ||
102 | if ($save_code) { | |
103 | warn "$src:$code_line:#code block not closed by EOF\n"; | |
104 | ++$failed; | |
105 | } | |
106 | ||
107 | close SRC; | |
108 | ||
109 | $failed | |
110 | and die "Errors during parsing, aborting\n"; | |
111 | ||
112 | open DEST, "> $dest" | |
113 | or die "Cannot open $dest: $!\n"; | |
114 | print DEST @out; | |
115 | close DEST; | |
116 | } | |
117 | ||
118 | sub byte_samples { | |
119 | # important we make a copy | |
120 | my @lines = @_; | |
121 | ||
122 | for (@lines) { | |
123 | s/\bIM_GPIX\b/i_gpix/g; | |
124 | s/\bIM_GLIN\b/i_glin/g; | |
125 | s/\bIM_PPIX\b/i_ppix/g; | |
126 | s/\bIM_PLIN\b/i_plin/g; | |
127 | s/\bIM_GSAMP\b/i_gsamp/g; | |
128 | s/\bIM_SAMPLE_MAX\b/255/g; | |
129 | s/\bIM_SAMPLE_MAX2\b/65025/g; | |
130 | s/\bIM_SAMPLE_T/i_sample_t/g; | |
131 | s/\bIM_COLOR\b/i_color/g; | |
132 | s/\bIM_WORK_T\b/int/g; | |
133 | s/\bIM_Sf\b/"%d"/g; | |
134 | s/\bIM_Wf\b/"%d"/g; | |
135 | s/\bIM_SUFFIX\((\w+)\)/$1_8/g; | |
136 | s/\bIM_ROUND\(/IM_ROUND_8(/g; | |
137 | s/\bIM_ADAPT_COLORS\(/i_adapt_colors(/g; | |
138 | s/\bIM_LIMIT\(/IM_LIMIT_8(/g; | |
139 | s/\bIM_RENDER_LINE\(/i_render_line(/g; | |
140 | s/\bIM_FILL_COMBINE_F\b/i_fill_combine_f/g; | |
141 | } | |
142 | ||
143 | @lines; | |
144 | } | |
145 | ||
146 | sub double_samples { | |
147 | # important we make a copy | |
148 | my @lines = @_; | |
149 | ||
150 | for (@lines) { | |
151 | s/\bIM_GPIX\b/i_gpixf/g; | |
152 | s/\bIM_GLIN\b/i_glinf/g; | |
153 | s/\bIM_PPIX\b/i_ppixf/g; | |
154 | s/\bIM_PLIN\b/i_plinf/g; | |
155 | s/\bIM_GSAMP\b/i_gsampf/g; | |
156 | s/\bIM_SAMPLE_MAX\b/1.0/g; | |
157 | s/\bIM_SAMPLE_MAX2\b/1.0/g; | |
158 | s/\bIM_SAMPLE_T/i_fsample_t/g; | |
159 | s/\bIM_COLOR\b/i_fcolor/g; | |
160 | s/\bIM_WORK_T\b/double/g; | |
161 | s/\bIM_Sf\b/"%f"/g; | |
162 | s/\bIM_Wf\b/"%f"/g; | |
163 | s/\bIM_SUFFIX\((\w+)\)/$1_double/g; | |
164 | s/\bIM_ROUND\(/IM_ROUND_double(/g; | |
165 | s/\bIM_ADAPT_COLORS\(/i_adapt_fcolors(/g; | |
166 | s/\bIM_LIMIT\(/IM_LIMIT_double(/g; | |
167 | s/\bIM_RENDER_LINE\(/i_render_linef(/g; | |
168 | s/\bIM_FILL_COMBINE_F\b/i_fill_combinef_f/g; | |
169 | } | |
170 | ||
171 | @lines; | |
172 | } | |
173 | ||
93bc63ea TC |
174 | sub usage { |
175 | die <<EOS; | |
176 | Usage: perl -MImager::Preprocess -epreprocess [-l] infile outfile | |
177 | -l don't produce #line directives | |
178 | infile - input file | |
179 | outfile output file | |
180 | ||
181 | See perldoc Imager::Preprocess for details. | |
182 | EOS | |
183 | } | |
184 | ||
9b1ec2b8 TC |
185 | 1; |
186 | ||
187 | __END__ | |
188 | ||
189 | =head1 NAME | |
190 | ||
5715f7c3 TC |
191 | =for stopwords preprocessor |
192 | ||
9b1ec2b8 TC |
193 | Imager::Preprocess - simple preprocessor for handling multiple sample sizes |
194 | ||
195 | =head1 SYNOPSIS | |
196 | ||
197 | /* in the source: */ | |
198 | #code condition true to work with 8-bit samples | |
199 | ... code using preprocessor types/values ... | |
200 | #/code | |
201 | ||
93bc63ea TC |
202 | # process and make #line directives |
203 | perl -MImager::Preprocess -epreprocess foo.im foo.c | |
204 | ||
205 | # process and no #line directives | |
206 | perl -MImager::Preprocess -epreprocess -l foo.im foo.c | |
9b1ec2b8 TC |
207 | |
208 | =head1 DESCRIPTION | |
209 | ||
210 | This is a simple preprocessor that aims to reduce duplication of | |
211 | source code when implementing an algorithm both for 8-bit samples and | |
212 | double samples in Imager. | |
213 | ||
5715f7c3 TC |
214 | Imager's C<Makefile.PL> currently scans the F<MANIFEST> for F<.im> |
215 | files and adds Makefile files to convert these to F<.c> files. | |
9b1ec2b8 TC |
216 | |
217 | The beginning of a sample-independent section of code is preceded by: | |
218 | ||
219 | #code expression | |
220 | ||
221 | where I<expression> should return true if processing should be done at | |
222 | 8-bits/sample. | |
223 | ||
224 | You can also use a #code block around a function definition to produce | |
225 | 8-bit and double sample versions of a function. In this case #code | |
226 | has no expression and you will need to use IM_SUFFIX() to produce | |
227 | different function names. | |
228 | ||
229 | The end of a sample-independent section of code is terminated by: | |
230 | ||
231 | #/code | |
232 | ||
233 | #code sections cannot be nested. | |
234 | ||
235 | #/code without a starting #code is an error. | |
236 | ||
237 | The following types and values are defined in a #code section: | |
238 | ||
239 | =over | |
240 | ||
241 | =item * | |
242 | ||
5715f7c3 | 243 | IM_GPIX(C<im>, C<x>, C<y>, C<&col>) |
9b1ec2b8 TC |
244 | |
245 | =item * | |
246 | ||
5715f7c3 | 247 | IM_GLIN(C<im>, C<l>, C<r>, C<y>, C<colors>) |
9b1ec2b8 TC |
248 | |
249 | =item * | |
250 | ||
5715f7c3 | 251 | IM_PPIX(C<im>, C<x>, C<y>, C<&col>) |
9b1ec2b8 TC |
252 | |
253 | =item * | |
254 | ||
5715f7c3 | 255 | IM_PLIN(C<im>, C<x>, C<y>, C<colors>) |
9b1ec2b8 TC |
256 | |
257 | =item * | |
258 | ||
5715f7c3 | 259 | IM_GSAMP(C<im>, C<l>, C<r>, C<y>, C<samples>, C<chans>, C<chan_count>) |
9b1ec2b8 TC |
260 | |
261 | These correspond to the appropriate image function, eg. IM_GPIX() | |
262 | becomes i_gpix() or i_gpixf() as appropriate. | |
263 | ||
264 | =item * | |
265 | ||
5715f7c3 | 266 | IM_ADAPT_COLORS(C<dest_channels>, C<src_channels>, C<colors>, C<count>) |
9b1ec2b8 TC |
267 | |
268 | Call i_adapt_colors() or i_adapt_fcolors(). | |
269 | ||
270 | =item * | |
271 | ||
5715f7c3 | 272 | IM_FILL_COMBINE(C<fill>) - retrieve the combine function from a fill |
9b1ec2b8 TC |
273 | object. |
274 | ||
275 | =item * | |
276 | ||
5715f7c3 | 277 | IM_FILL_FILLER(C<fill>) - retrieve the fill_with_* function from a fill |
9b1ec2b8 TC |
278 | object. |
279 | ||
280 | =item * | |
281 | ||
282 | IM_SAMPLE_MAX - maximum value for a sample | |
283 | ||
284 | =item * | |
285 | ||
286 | IM_SAMPLE_MAX2 - maximum value for a sample, squared | |
287 | ||
288 | =item * | |
289 | ||
290 | IM_SAMPLE_T - type of a sample (i_sample_t or i_fsample_t) | |
291 | ||
292 | =item * | |
293 | ||
294 | IM_COLOR - color type, either i_color or i_fcolor. | |
295 | ||
296 | =item * | |
297 | ||
298 | IM_WORK_T - working sample type, either int or double. | |
299 | ||
300 | =item * | |
301 | ||
302 | IM_Sf - format string for the sample type, C<"%d"> or C<"%f">. | |
303 | ||
304 | =item * | |
305 | ||
306 | IM_Wf - format string for the work type, C<"%d"> or C<"%f">. | |
307 | ||
308 | =item * | |
309 | ||
310 | IM_SUFFIX(identifier) - adds _8 or _double onto the end of identifier. | |
311 | ||
312 | =item * | |
313 | ||
314 | IM_EIGHT_BIT - this is a macro defined only in 8-bit/sample code. | |
315 | ||
316 | =back | |
317 | ||
318 | Other types, functions and values may be added in the future. | |
319 | ||
320 | =head1 AUTHOR | |
321 | ||
322 | Tony Cook <tony@imager.perl.org> | |
323 | ||
324 | =cut |