The watermark vhook cannot handle truncated bitstreams.
[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 #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