Initialize correctly optind.
[libav.git] / vhook / ppm.c
1 /*
2 * PPM Video Hook
3 * Copyright (c) 2003 Charles Yates
4 *
5 * This file is part of FFmpeg.
6 *
7 * FFmpeg is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
11 *
12 * FFmpeg is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
16 *
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with FFmpeg; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20 */
21
22 #include <stdio.h>
23 #include <unistd.h>
24 #include <fcntl.h>
25 #include <sys/types.h>
26 #include <sys/wait.h>
27 #include <ctype.h>
28 #include "framehook.h"
29 #include "avformat.h"
30 #include "swscale.h"
31 #include "avstring.h"
32
33 static int sws_flags = SWS_BICUBIC;
34
35 /** Bi-directional pipe structure.
36 */
37
38 typedef struct rwpipe
39 {
40 int pid;
41 FILE *reader;
42 FILE *writer;
43 }
44 rwpipe;
45
46 /** Create a bidirectional pipe for the given command.
47 */
48
49 static rwpipe *rwpipe_open( int argc, char *argv[] )
50 {
51 rwpipe *this = av_mallocz( sizeof( rwpipe ) );
52
53 if ( this != NULL )
54 {
55 int input[ 2 ];
56 int output[ 2 ];
57
58 pipe( input );
59 pipe( output );
60
61 this->pid = fork();
62
63 if ( this->pid == 0 )
64 {
65 #define COMMAND_SIZE 10240
66 char *command = av_mallocz( COMMAND_SIZE );
67 int i;
68
69 strcpy( command, "" );
70 for ( i = 0; i < argc; i ++ )
71 {
72 av_strlcat( command, argv[ i ], COMMAND_SIZE );
73 av_strlcat( command, " ", COMMAND_SIZE );
74 }
75
76 dup2( output[ 0 ], STDIN_FILENO );
77 dup2( input[ 1 ], STDOUT_FILENO );
78
79 close( input[ 0 ] );
80 close( input[ 1 ] );
81 close( output[ 0 ] );
82 close( output[ 1 ] );
83
84 execl("/bin/sh", "sh", "-c", command, (char*)NULL );
85 _exit( 255 );
86 }
87 else
88 {
89 close( input[ 1 ] );
90 close( output[ 0 ] );
91
92 this->reader = fdopen( input[ 0 ], "r" );
93 this->writer = fdopen( output[ 1 ], "w" );
94 }
95 }
96
97 return this;
98 }
99
100 /** Read data from the pipe.
101 */
102
103 static FILE *rwpipe_reader( rwpipe *this )
104 {
105 if ( this != NULL )
106 return this->reader;
107 else
108 return NULL;
109 }
110
111 /** Write data to the pipe.
112 */
113
114 static FILE *rwpipe_writer( rwpipe *this )
115 {
116 if ( this != NULL )
117 return this->writer;
118 else
119 return NULL;
120 }
121
122 /* Read a number from the pipe - assumes PNM style headers.
123 */
124
125 static int rwpipe_read_number( rwpipe *rw )
126 {
127 int value = 0;
128 int c = 0;
129 FILE *in = rwpipe_reader( rw );
130
131 do
132 {
133 c = fgetc( in );
134
135 while( c != EOF && !isdigit( c ) && c != '#' )
136 c = fgetc( in );
137
138 if ( c == '#' )
139 while( c != EOF && c != '\n' )
140 c = fgetc( in );
141 }
142 while ( c != EOF && !isdigit( c ) );
143
144 while( c != EOF && isdigit( c ) )
145 {
146 value = value * 10 + ( c - '0' );
147 c = fgetc( in );
148 }
149
150 return value;
151 }
152
153 /** Read a PPM P6 header.
154 */
155
156 static int rwpipe_read_ppm_header( rwpipe *rw, int *width, int *height )
157 {
158 char line[ 3 ];
159 FILE *in = rwpipe_reader( rw );
160 int max;
161
162 fgets( line, 3, in );
163 if ( !strncmp( line, "P6", 2 ) )
164 {
165 *width = rwpipe_read_number( rw );
166 *height = rwpipe_read_number( rw );
167 max = rwpipe_read_number( rw );
168 return max != 255 || *width <= 0 || *height <= 0;
169 }
170 return 1;
171 }
172
173 /** Close the pipe and process.
174 */
175
176 static void rwpipe_close( rwpipe *this )
177 {
178 if ( this != NULL )
179 {
180 fclose( this->reader );
181 fclose( this->writer );
182 waitpid( this->pid, NULL, 0 );
183 av_free( this );
184 }
185 }
186
187 /** Context info for this vhook - stores the pipe and image buffers.
188 */
189
190 typedef struct
191 {
192 rwpipe *rw;
193 int size1;
194 char *buf1;
195 int size2;
196 char *buf2;
197
198 // This vhook first converts frame to RGB ...
199 struct SwsContext *toRGB_convert_ctx;
200 // ... then processes it via a PPM command pipe ...
201 // ... and finally converts back frame from RGB to initial format
202 struct SwsContext *fromRGB_convert_ctx;
203 }
204 ContextInfo;
205
206 /** Initialise the context info for this vhook.
207 */
208
209 int Configure(void **ctxp, int argc, char *argv[])
210 {
211 if ( argc > 1 )
212 {
213 *ctxp = av_mallocz(sizeof(ContextInfo));
214 if ( ctxp != NULL && argc > 1 )
215 {
216 ContextInfo *info = (ContextInfo *)*ctxp;
217 info->rw = rwpipe_open( argc - 1, &argv[ 1 ] );
218 return 0;
219 }
220 }
221 return 1;
222 }
223
224 /** Process a frame.
225 */
226
227 void Process(void *ctx, AVPicture *picture, enum PixelFormat pix_fmt, int width, int height, int64_t pts)
228 {
229 int err = 0;
230 ContextInfo *ci = (ContextInfo *) ctx;
231 AVPicture picture1;
232 AVPicture picture2;
233 AVPicture *pict = picture;
234 int out_width;
235 int out_height;
236 int i;
237 uint8_t *ptr = NULL;
238 FILE *in = rwpipe_reader( ci->rw );
239 FILE *out = rwpipe_writer( ci->rw );
240
241 /* Check that we have a pipe to talk to. */
242 if ( in == NULL || out == NULL )
243 err = 1;
244
245 /* Convert to RGB24 if necessary */
246 if ( !err && pix_fmt != PIX_FMT_RGB24 )
247 {
248 int size = avpicture_get_size(PIX_FMT_RGB24, width, height);
249
250 if ( size != ci->size1 )
251 {
252 av_free( ci->buf1 );
253 ci->buf1 = av_malloc(size);
254 ci->size1 = size;
255 err = ci->buf1 == NULL;
256 }
257
258 if ( !err )
259 {
260 avpicture_fill(&picture1, ci->buf1, PIX_FMT_RGB24, width, height);
261
262 // if we already got a SWS context, let's realloc if is not re-useable
263 ci->toRGB_convert_ctx = sws_getCachedContext(ci->toRGB_convert_ctx,
264 width, height, pix_fmt,
265 width, height, PIX_FMT_RGB24,
266 sws_flags, NULL, NULL, NULL);
267 if (ci->toRGB_convert_ctx == NULL) {
268 av_log(NULL, AV_LOG_ERROR,
269 "Cannot initialize the toRGB conversion context\n");
270 return;
271 }
272
273 // img_convert parameters are 2 first destination, then 4 source
274 // sws_scale parameters are context, 4 first source, then 2 destination
275 sws_scale(ci->toRGB_convert_ctx,
276 picture->data, picture->linesize, 0, height,
277 picture1.data, picture1.linesize);
278
279 pict = &picture1;
280 }
281 }
282
283 /* Write out the PPM */
284 if ( !err )
285 {
286 ptr = pict->data[ 0 ];
287 fprintf( out, "P6\n%d %d\n255\n", width, height );
288 for ( i = 0; !err && i < height; i ++ )
289 {
290 err = !fwrite( ptr, width * 3, 1, out );
291 ptr += pict->linesize[ 0 ];
292 }
293 if ( !err )
294 err = fflush( out );
295 }
296
297 /* Read the PPM returned. */
298 if ( !err && !rwpipe_read_ppm_header( ci->rw, &out_width, &out_height ) )
299 {
300 int size = avpicture_get_size(PIX_FMT_RGB24, out_width, out_height);
301
302 if ( size != ci->size2 )
303 {
304 av_free( ci->buf2 );
305 ci->buf2 = av_malloc(size);
306 ci->size2 = size;
307 err = ci->buf2 == NULL;
308 }
309
310 if ( !err )
311 {
312 avpicture_fill(&picture2, ci->buf2, PIX_FMT_RGB24, out_width, out_height);
313 ptr = picture2.data[ 0 ];
314 for ( i = 0; !err && i < out_height; i ++ )
315 {
316 err = !fread( ptr, out_width * 3, 1, in );
317 ptr += picture2.linesize[ 0 ];
318 }
319 }
320 }
321
322 /* Convert the returned PPM back to the input format */
323 if ( !err )
324 {
325 /* The out_width/out_height returned from the PPM
326 * filter won't necessarily be the same as width and height
327 * but it will be scaled anyway to width/height.
328 */
329 av_log(NULL, AV_LOG_DEBUG,
330 "PPM vhook: Input dimensions: %d x %d Output dimensions: %d x %d\n",
331 width, height, out_width, out_height);
332 ci->fromRGB_convert_ctx = sws_getCachedContext(ci->fromRGB_convert_ctx,
333 out_width, out_height, PIX_FMT_RGB24,
334 width, height, pix_fmt,
335 sws_flags, NULL, NULL, NULL);
336 if (ci->fromRGB_convert_ctx == NULL) {
337 av_log(NULL, AV_LOG_ERROR,
338 "Cannot initialize the fromRGB conversion context\n");
339 return;
340 }
341
342 // img_convert parameters are 2 first destination, then 4 source
343 // sws_scale parameters are context, 4 first source, then 2 destination
344 sws_scale(ci->fromRGB_convert_ctx,
345 picture2.data, picture2.linesize, 0, out_height,
346 picture->data, picture->linesize);
347 }
348 }
349
350 /** Clean up the effect.
351 */
352
353 void Release(void *ctx)
354 {
355 ContextInfo *ci;
356 ci = (ContextInfo *) ctx;
357
358 if (ctx)
359 {
360 rwpipe_close( ci->rw );
361 av_free( ci->buf1 );
362 av_free( ci->buf2 );
363 sws_freeContext(ci->toRGB_convert_ctx);
364 sws_freeContext(ci->fromRGB_convert_ctx);
365 av_free(ctx);
366 }
367 }
368