1 /*****************************************************************************
2 * avs.c: avisynth input
3 *****************************************************************************
4 * Copyright (C) 2009-2011 x264 project
6 * Authors: Steven Walters <kemuri9@gmail.com>
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 2 of the License, or
11 * (at your option) any later version.
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02111, USA.
22 * This program is also available under a commercial proprietary license.
23 * For more information, contact us at licensing@x264.com.
24 *****************************************************************************/
28 #define FAIL_IF_ERROR( cond, ... ) FAIL_IF_ERR( cond, "avs", __VA_ARGS__ )
30 #define AVSC_NO_DECLSPEC
32 #include "extras/avisynth_c.h"
33 #define AVSC_DECLARE_FUNC(name) name##_func name
35 /* AVS uses a versioned interface to control backwards compatibility */
36 /* YV12 support is required, which was added in 2.5 */
37 #define AVS_INTERFACE_25 2
40 #include <libavutil/pixfmt.h>
43 /* maximum size of the sequence of filters to try on non script files */
44 #define AVS_MAX_SEQUENCE 5
46 #define LOAD_AVS_FUNC(name, continue_on_fail)\
48 h->func.name = (void*)GetProcAddress( h->library, #name );\
49 if( !continue_on_fail && !h->func.name )\
56 AVS_ScriptEnvironment *env;
61 AVSC_DECLARE_FUNC( avs_clip_get_error );
62 AVSC_DECLARE_FUNC( avs_create_script_environment );
63 AVSC_DECLARE_FUNC( avs_delete_script_environment );
64 AVSC_DECLARE_FUNC( avs_get_error );
65 AVSC_DECLARE_FUNC( avs_get_frame );
66 AVSC_DECLARE_FUNC( avs_get_video_info );
67 AVSC_DECLARE_FUNC( avs_function_exists );
68 AVSC_DECLARE_FUNC( avs_invoke );
69 AVSC_DECLARE_FUNC( avs_release_clip );
70 AVSC_DECLARE_FUNC( avs_release_value );
71 AVSC_DECLARE_FUNC( avs_release_video_frame );
72 AVSC_DECLARE_FUNC( avs_take_clip );
76 /* load the library and functions we require from it */
77 static int x264_avs_load_library( avs_hnd_t *h )
79 h->library = LoadLibrary( "avisynth" );
82 LOAD_AVS_FUNC( avs_clip_get_error, 0 );
83 LOAD_AVS_FUNC( avs_create_script_environment, 0 );
84 LOAD_AVS_FUNC( avs_delete_script_environment, 1 );
85 LOAD_AVS_FUNC( avs_get_error, 1 );
86 LOAD_AVS_FUNC( avs_get_frame, 0 );
87 LOAD_AVS_FUNC( avs_get_video_info, 0 );
88 LOAD_AVS_FUNC( avs_function_exists, 0 );
89 LOAD_AVS_FUNC( avs_invoke, 0 );
90 LOAD_AVS_FUNC( avs_release_clip, 0 );
91 LOAD_AVS_FUNC( avs_release_value, 0 );
92 LOAD_AVS_FUNC( avs_release_video_frame, 0 );
93 LOAD_AVS_FUNC( avs_take_clip, 0 );
96 FreeLibrary( h->library );
100 /* generate a filter sequence to try based on the filename extension */
101 static void avs_build_filter_sequence( char *filename_ext, const char *filter[AVS_MAX_SEQUENCE+1] )
104 const char *all_purpose[] = { "FFmpegSource2", "DSS2", "DirectShowSource", 0 };
105 if( !strcasecmp( filename_ext, "avi" ) )
106 filter[i++] = "AVISource";
107 if( !strcasecmp( filename_ext, "d2v" ) )
108 filter[i++] = "MPEG2Source";
109 if( !strcasecmp( filename_ext, "dga" ) )
110 filter[i++] = "AVCSource";
111 for( int j = 0; all_purpose[j] && i < AVS_MAX_SEQUENCE; j++ )
112 filter[i++] = all_purpose[j];
115 static AVS_Value update_clip( avs_hnd_t *h, const AVS_VideoInfo **vi, AVS_Value res, AVS_Value release )
117 h->func.avs_release_clip( h->clip );
118 h->clip = h->func.avs_take_clip( res, h->env );
119 h->func.avs_release_value( release );
120 *vi = h->func.avs_get_video_info( h->clip );
124 static int open_file( char *psz_filename, hnd_t *p_handle, video_info_t *info, cli_input_opt_t *opt )
126 FILE *fh = fopen( psz_filename, "r" );
129 FAIL_IF_ERROR( !x264_is_regular_file( fh ), "AVS input is incompatible with non-regular file `%s'\n", psz_filename );
132 avs_hnd_t *h = malloc( sizeof(avs_hnd_t) );
135 FAIL_IF_ERROR( x264_avs_load_library( h ), "failed to load avisynth\n" )
136 h->env = h->func.avs_create_script_environment( AVS_INTERFACE_25 );
137 if( h->func.avs_get_error )
139 const char *error = h->func.avs_get_error( h->env );
140 FAIL_IF_ERROR( error, "%s\n", error );
142 AVS_Value arg = avs_new_value_string( psz_filename );
144 char *filename_ext = get_filename_extension( psz_filename );
146 if( !strcasecmp( filename_ext, "avs" ) )
148 res = h->func.avs_invoke( h->env, "Import", arg, NULL );
149 FAIL_IF_ERROR( avs_is_error( res ), "%s\n", avs_as_string( res ) )
150 /* check if the user is using a multi-threaded script and apply distributor if necessary.
151 adapted from avisynth's vfw interface */
152 AVS_Value mt_test = h->func.avs_invoke( h->env, "GetMTMode", avs_new_value_bool( 0 ), NULL );
153 int mt_mode = avs_is_int( mt_test ) ? avs_as_int( mt_test ) : 0;
154 h->func.avs_release_value( mt_test );
155 if( mt_mode > 0 && mt_mode < 5 )
157 AVS_Value temp = h->func.avs_invoke( h->env, "Distributor", res, NULL );
158 h->func.avs_release_value( res );
162 else /* non script file */
164 /* cycle through known source filters to find one that works */
165 const char *filter[AVS_MAX_SEQUENCE+1] = { 0 };
166 avs_build_filter_sequence( filename_ext, filter );
168 for( i = 0; filter[i]; i++ )
170 x264_cli_log( "avs", X264_LOG_INFO, "trying %s... ", filter[i] );
171 if( !h->func.avs_function_exists( h->env, filter[i] ) )
173 x264_cli_printf( X264_LOG_INFO, "not found\n" );
176 if( !strncasecmp( filter[i], "FFmpegSource", 12 ) )
178 x264_cli_printf( X264_LOG_INFO, "indexing... " );
181 res = h->func.avs_invoke( h->env, filter[i], arg, NULL );
182 if( !avs_is_error( res ) )
184 x264_cli_printf( X264_LOG_INFO, "succeeded\n" );
187 x264_cli_printf( X264_LOG_INFO, "failed\n" );
189 FAIL_IF_ERROR( !filter[i], "unable to find source filter to open `%s'\n", psz_filename )
191 FAIL_IF_ERROR( !avs_is_clip( res ), "`%s' didn't return a video clip\n", psz_filename )
192 h->clip = h->func.avs_take_clip( res, h->env );
193 const AVS_VideoInfo *vi = h->func.avs_get_video_info( h->clip );
194 FAIL_IF_ERROR( !avs_has_video( vi ), "`%s' has no video data\n", psz_filename )
195 /* if the clip is made of fields instead of frames, call weave to make them frames */
196 if( avs_is_field_based( vi ) )
198 x264_cli_log( "avs", X264_LOG_WARNING, "detected fieldbased (separated) input, weaving to frames\n" );
199 AVS_Value tmp = h->func.avs_invoke( h->env, "Weave", res, NULL );
200 FAIL_IF_ERROR( avs_is_error( tmp ), "couldn't weave fields into frames\n" )
201 res = update_clip( h, &vi, tmp, res );
202 info->interlaced = 1;
203 info->tff = avs_is_tff( vi );
206 /* if swscale is not available, convert CSPs to yv12 */
207 if( !avs_is_yv12( vi ) )
209 x264_cli_log( "avs", X264_LOG_WARNING, "converting input clip to YV12\n" );
210 FAIL_IF_ERROR( vi->width&1 || vi->height&1, "input clip width or height not divisible by 2 (%dx%d)\n", vi->width, vi->height )
211 const char *arg_name[2] = { NULL, "interlaced" };
212 AVS_Value arg_arr[2] = { res, avs_new_value_bool( info->interlaced ) };
213 AVS_Value res2 = h->func.avs_invoke( h->env, "ConvertToYV12", avs_new_value_array( arg_arr, 2 ), arg_name );
214 FAIL_IF_ERROR( avs_is_error( res2 ), "couldn't convert input clip to YV12\n" )
215 res = update_clip( h, &vi, res2, res );
218 h->func.avs_release_value( res );
220 info->width = vi->width;
221 info->height = vi->height;
222 info->fps_num = vi->fps_numerator;
223 info->fps_den = vi->fps_denominator;
224 h->num_frames = info->num_frames = vi->num_frames;
225 info->thread_safe = 1;
227 if( avs_is_rgb32( vi ) )
228 info->csp = X264_CSP_BGRA | X264_CSP_VFLIP;
229 else if( avs_is_rgb24( vi ) )
230 info->csp = X264_CSP_BGR | X264_CSP_VFLIP;
231 else if( avs_is_yuy2( vi ) )
232 info->csp = PIX_FMT_YUYV422 | X264_CSP_OTHER;
233 else if( avs_is_yv24( vi ) )
234 info->csp = X264_CSP_I444;
235 else if( avs_is_yv16( vi ) )
236 info->csp = X264_CSP_I422;
237 else if( avs_is_yv12( vi ) )
238 info->csp = X264_CSP_I420;
239 else if( avs_is_yv411( vi ) )
240 info->csp = PIX_FMT_YUV411P | X264_CSP_OTHER;
241 else if( avs_is_y8( vi ) )
242 info->csp = PIX_FMT_GRAY8 | X264_CSP_OTHER;
244 info->csp = X264_CSP_NONE;
246 info->csp = X264_CSP_I420;
254 static int picture_alloc( cli_pic_t *pic, int csp, int width, int height )
256 if( x264_cli_pic_alloc( pic, X264_CSP_NONE, width, height ) )
259 const x264_cli_csp_t *cli_csp = x264_cli_get_csp( csp );
261 pic->img.planes = cli_csp->planes;
263 else if( csp == (PIX_FMT_YUV411P | X264_CSP_OTHER) )
266 pic->img.planes = 1; //y8 and yuy2 are one plane
271 static int read_frame( cli_pic_t *pic, hnd_t handle, int i_frame )
273 static const int plane[3] = { AVS_PLANAR_Y, AVS_PLANAR_U, AVS_PLANAR_V };
274 avs_hnd_t *h = handle;
275 if( i_frame >= h->num_frames )
277 AVS_VideoFrame *frm = pic->opaque = h->func.avs_get_frame( h->clip, i_frame );
278 const char *err = h->func.avs_clip_get_error( h->clip );
279 FAIL_IF_ERROR( err, "%s occurred while reading frame %d\n", err, i_frame )
280 for( int i = 0; i < pic->img.planes; i++ )
282 /* explicitly cast away the const attribute to avoid a warning */
283 pic->img.plane[i] = (uint8_t*)avs_get_read_ptr_p( frm, plane[i] );
284 pic->img.stride[i] = avs_get_pitch_p( frm, plane[i] );
289 static int release_frame( cli_pic_t *pic, hnd_t handle )
291 avs_hnd_t *h = handle;
292 h->func.avs_release_video_frame( pic->opaque );
296 static void picture_clean( cli_pic_t *pic )
298 memset( pic, 0, sizeof(cli_pic_t) );
301 static int close_file( hnd_t handle )
303 avs_hnd_t *h = handle;
304 h->func.avs_release_clip( h->clip );
305 if( h->func.avs_delete_script_environment )
306 h->func.avs_delete_script_environment( h->env );
307 FreeLibrary( h->library );
312 const cli_input_t avs_input = { open_file, picture_alloc, read_frame, release_frame, picture_clean, close_file };