disallow strcat
[ffmpeg.git] / vhook / ppm.c
1 /*
2  * PPM Video Hook 
3  * Copyright (c) 2003 Charles Yates
4  *
5  * This library is free software; you can redistribute it and/or
6  * modify it under the terms of the GNU Lesser General Public
7  * License as published by the Free Software Foundation; either
8  * version 2 of the License, or (at your option) any later version.
9  *
10  * This library is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13  * Lesser General Public License for more details.
14  *
15  * You should have received a copy of the GNU Lesser General Public
16  * License along with this library; if not, write to the Free Software
17  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
18  */
19
20 #include <stdio.h>
21 #include <unistd.h>
22 #include <fcntl.h>
23 #include <sys/types.h>
24 #include <sys/wait.h>
25 #include <ctype.h>
26 #include "framehook.h"
27
28 /** Bi-directional pipe structure.
29 */
30
31 typedef struct rwpipe
32 {
33     int pid;
34     FILE *reader;
35     FILE *writer;
36 }
37 rwpipe;
38
39 /** Create a bidirectional pipe for the given command.
40 */
41
42 rwpipe *rwpipe_open( int argc, char *argv[] )
43 {
44     rwpipe *this = av_mallocz( sizeof( rwpipe ) );
45
46     if ( this != NULL )
47     {
48         int input[ 2 ];
49         int output[ 2 ];
50
51         pipe( input );
52         pipe( output );
53
54         this->pid = fork();
55
56         if ( this->pid == 0 )
57         {
58 #define COMMAND_SIZE 10240
59             char *command = av_mallocz( COMMAND_SIZE );
60             int i;
61
62             strcpy( command, "" );
63             for ( i = 0; i < argc; i ++ )
64             {
65                 pstrcat( command, COMMAND_SIZE, argv[ i ] );
66                 pstrcat( command, COMMAND_SIZE, " " );
67             }
68
69             dup2( output[ 0 ], STDIN_FILENO );
70             dup2( input[ 1 ], STDOUT_FILENO );
71
72             close( input[ 0 ] );
73             close( input[ 1 ] );
74             close( output[ 0 ] );
75             close( output[ 1 ] );
76
77             execl("/bin/sh", "sh", "-c", command, NULL );
78             exit( 255 );
79         }
80         else
81         {
82             close( input[ 1 ] );
83             close( output[ 0 ] );
84
85             this->reader = fdopen( input[ 0 ], "r" );
86             this->writer = fdopen( output[ 1 ], "w" );
87         }
88     }
89
90     return this;
91 }
92
93 /** Read data from the pipe.
94 */
95
96 FILE *rwpipe_reader( rwpipe *this )
97 {
98     if ( this != NULL )
99         return this->reader;
100     else
101         return NULL;
102 }
103
104 /** Write data to the pipe.
105 */
106
107 FILE *rwpipe_writer( rwpipe *this )
108 {
109     if ( this != NULL )
110         return this->writer;
111     else
112         return NULL;
113 }
114
115 /* Read a number from the pipe - assumes PNM style headers.
116 */
117
118 int rwpipe_read_number( rwpipe *rw )
119 {
120     int value = 0;
121     int c = 0;
122     FILE *in = rwpipe_reader( rw );
123
124     do 
125     {
126         c = fgetc( in );
127
128         while( c != EOF && !isdigit( c ) && c != '#' )
129             c = fgetc( in );
130
131         if ( c == '#' )
132             while( c != EOF && c != '\n' )
133                 c = fgetc( in );
134     }
135     while ( c != EOF && !isdigit( c ) );
136
137     while( c != EOF && isdigit( c ) )
138     {
139         value = value * 10 + ( c - '0' );
140         c = fgetc( in );
141     }
142
143     return value;
144 }
145
146 /** Read a PPM P6 header.
147 */
148
149 int rwpipe_read_ppm_header( rwpipe *rw, int *width, int *height )
150 {
151     char line[ 3 ];
152     FILE *in = rwpipe_reader( rw );
153     int max;
154
155     fgets( line, 3, in );
156     if ( !strncmp( line, "P6", 2 ) )
157     {
158         *width = rwpipe_read_number( rw );
159         *height = rwpipe_read_number( rw );
160         max = rwpipe_read_number( rw );
161         return max != 255 || *width <= 0 || *height <= 0;
162     }
163     return 1;
164 }
165
166 /** Close the pipe and process.
167 */
168
169 void rwpipe_close( rwpipe *this )
170 {
171     if ( this != NULL )
172     {
173         fclose( this->reader );
174         fclose( this->writer );
175         waitpid( this->pid, NULL, 0 );
176         av_free( this );
177     }
178 }
179
180 /** Context info for this vhook - stores the pipe and image buffers.
181 */
182
183 typedef struct 
184 {
185     rwpipe *rw;
186     int size1;
187     char *buf1;
188     int size2;
189     char *buf2;
190
191 ContextInfo;
192
193 /** Initialise the context info for this vhook.
194 */
195
196 int Configure(void **ctxp, int argc, char *argv[])
197 {
198     if ( argc > 1 )
199     {
200         *ctxp = av_mallocz(sizeof(ContextInfo));
201         if ( ctxp != NULL && argc > 1 )
202         {
203             ContextInfo *info = (ContextInfo *)*ctxp;
204             info->rw = rwpipe_open( argc - 1, &argv[ 1 ] );
205             return 0;
206         }
207     }
208     return 1;
209 }
210
211 /** Process a frame.
212 */
213
214 void Process(void *ctx, AVPicture *picture, enum PixelFormat pix_fmt, int width, int height, int64_t pts)
215 {
216     int err = 0;
217     ContextInfo *ci = (ContextInfo *) ctx;
218     AVPicture picture1;
219     AVPicture picture2;
220     AVPicture *pict = picture;
221     int out_width;
222     int out_height;
223     int i;
224     uint8_t *ptr = NULL;
225     FILE *in = rwpipe_reader( ci->rw );
226     FILE *out = rwpipe_writer( ci->rw );
227
228     /* Check that we have a pipe to talk to. */
229     if ( in == NULL || out == NULL )
230         err = 1;
231
232     /* Convert to RGB24 if necessary */
233     if ( !err && pix_fmt != PIX_FMT_RGB24 ) 
234     {
235         int size = avpicture_get_size(PIX_FMT_RGB24, width, height);
236
237         if ( size != ci->size1 )
238         {
239             av_free( ci->buf1 );
240             ci->buf1 = av_malloc(size);
241             ci->size1 = size;
242             err = ci->buf1 == NULL;
243         }
244
245         if ( !err )
246         {
247             avpicture_fill(&picture1, ci->buf1, PIX_FMT_RGB24, width, height);
248             if (img_convert(&picture1, PIX_FMT_RGB24, picture, pix_fmt, width, height) < 0)
249                 err = 1;
250             pict = &picture1;
251         }
252     }
253
254     /* Write out the PPM */
255     if ( !err )
256     {
257         ptr = pict->data[ 0 ];
258         fprintf( out, "P6\n%d %d\n255\n", width, height );
259         for ( i = 0; !err && i < height; i ++ )
260         {
261             err = !fwrite( ptr, width * 3, 1, out );
262             ptr += pict->linesize[ 0 ];
263         }
264         if ( !err )
265             err = fflush( out );
266     }
267
268     /* Read the PPM returned. */
269     if ( !err && !rwpipe_read_ppm_header( ci->rw, &out_width, &out_height ) )
270     {
271         int size = avpicture_get_size(PIX_FMT_RGB24, out_width, out_height);
272
273         if ( size != ci->size2 )
274         {
275             av_free( ci->buf2 );
276             ci->buf2 = av_malloc(size);
277             ci->size2 = size;
278             err = ci->buf2 == NULL;
279         }
280
281         if ( !err )
282         {
283             avpicture_fill(&picture2, ci->buf2, PIX_FMT_RGB24, out_width, out_height);
284             ptr = picture2.data[ 0 ];
285             for ( i = 0; !err && i < out_height; i ++ )
286             {
287                 err = !fread( ptr, out_width * 3, 1, in );
288                 ptr += picture2.linesize[ 0 ];
289             }
290         }
291     }
292
293     /* Convert the returned PPM back to the input format */
294     if ( !err )
295     {
296         /* Actually, this is wrong, since the out_width/out_height returned from the
297          * filter won't necessarily be the same as width and height - img_resample 
298          * won't scale rgb24, so the only way out of this is to convert to something 
299          * that img_resample does like [which may or may not be pix_fmt], rescale 
300          * and finally convert to pix_fmt... slow, but would provide the most flexibility.
301          *
302          * Currently, we take the upper left width/height pixels from the filtered image,
303          * smaller images are going to be corrupted or cause a crash.
304          *
305          * Finally, what should we do in case of this call failing? Up to now, failures
306          * are gracefully ignored and the original image is returned - in this case, a
307          * failure may corrupt the input.
308          */
309         if (img_convert(picture, pix_fmt, &picture2, PIX_FMT_RGB24, width, height) < 0) 
310         {
311         }
312     }
313 }
314
315 /** Clean up the effect.
316 */
317
318 void Release(void *ctx)
319 {
320     ContextInfo *ci;
321     ci = (ContextInfo *) ctx;
322
323     if (ctx)
324     {
325         rwpipe_close( ci->rw );
326         av_free( ci->buf1 );
327         av_free( ci->buf2 );
328         av_free(ctx);
329     }
330 }
331