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