#include <dlfcn.h>
#include <stdlib.h>
#include <limits.h>
+#include <math.h>
+
+#if defined(WIN32)
+#define LIBSUF ".dll"
+#define FREI0R_PLUGIN_PATH "\\lib\\frei0r-1"
+#elif defined(__DARWIN__) && defined(RELOCATABLE)
+#define LIBSUF ".so"
+#define FREI0R_PLUGIN_PATH "/lib/frei0r-1"
+#else
+#define LIBSUF ".so"
#define FREI0R_PLUGIN_PATH "/usr/lib/frei0r-1:/usr/lib64/frei0r-1:/opt/local/lib/frei0r-1:/usr/local/lib/frei0r-1:$HOME/.frei0r-1/lib"
+#endif
+
+#define GET_FREI0R_PATH (getenv("FREI0R_PATH") ? getenv("FREI0R_PATH") : getenv("MLT_FREI0R_PLUGIN_PATH") ? getenv("MLT_FREI0R_PLUGIN_PATH") : FREI0R_PLUGIN_PATH)
+
+#define CLAMP( x, min, max ) ((x) < (min) ? (min) : (x) > (max) ? (max) : (x))
extern mlt_filter filter_frei0r_init( mlt_profile profile, mlt_service_type type, const char *id, char *arg );
extern mlt_frame filter_process( mlt_filter this, mlt_frame frame );
extern void transition_close( mlt_transition this );
extern mlt_frame transition_process( mlt_transition transition, mlt_frame a_frame, mlt_frame b_frame );
+static char* get_frei0r_path()
+{
+#ifdef WIN32
+ char *dirname = malloc( strlen( mlt_environment( "MLT_APPDIR" ) ) + strlen( FREI0R_PLUGIN_PATH ) + 1 );
+ strcpy( dirname, mlt_environment( "MLT_APPDIR" ) );
+ strcat( dirname, FREI0R_PLUGIN_PATH );
+ return dirname;
+#elif defined(__DARWIN__) && defined(RELOCATABLE)
+ char *dirname = malloc( strlen( mlt_environment( "MLT_APPDIR" ) ) + strlen( FREI0R_PLUGIN_PATH ) + 1 );
+ strcpy( dirname, mlt_environment( "MLT_APPDIR" ) );
+ strcat( dirname, FREI0R_PLUGIN_PATH );
+ return dirname;
+#else
+ return strdup( GET_FREI0R_PATH );
+#endif
+}
+
+static void check_thread_safe( mlt_properties properties, const char *name )
+{
+ char dirname[PATH_MAX];
+ snprintf( dirname, PATH_MAX, "%s/frei0r/not_thread_safe.txt", mlt_environment( "MLT_DATA" ) );
+ mlt_properties not_thread_safe = mlt_properties_load( dirname );
+ int i;
+
+ for ( i = 0; i < mlt_properties_count( not_thread_safe ); i++ )
+ {
+ if ( strcmp( name, mlt_properties_get_name( not_thread_safe, i ) ) == 0 )
+ {
+ mlt_properties_set_int( properties, "_not_thread_safe", 1 );
+ break;
+ }
+ }
+ mlt_properties_close( not_thread_safe );
+}
+
static mlt_properties fill_param_info ( mlt_service_type type, const char *service_name, char *name )
{
char file[ PATH_MAX ];
};
snprintf( file, PATH_MAX, "%s/frei0r/%s_%s.yml", mlt_environment( "MLT_DATA" ), servicetype, service_name );
+ memset(&stat_buff, 0, sizeof(stat_buff));
stat(file,&stat_buff);
if (S_ISREG(stat_buff.st_mode)){
void (*param_info)(f0r_param_info_t*,int param_index)=dlsym(handle,"f0r_get_param_info");
void (*f0r_init)(void)=dlsym(handle,"f0r_init");
void (*f0r_deinit)(void)=dlsym(handle,"f0r_deinit");
+ f0r_instance_t (*f0r_construct)(unsigned int , unsigned int)=dlsym(handle, "f0r_construct");
+ void (*f0r_destruct)(f0r_instance_t)=dlsym(handle, "f0r_destruct");
+ void (*f0r_get_param_value)(f0r_instance_t instance, f0r_param_t param, int param_index)=dlsym(handle,"f0r_get_param_value" );
if (!plginfo || !param_info) {
dlclose(handle);
return NULL;
int j=0;
f0r_init();
+ f0r_instance_t instance = f0r_construct(720, 576);
+ if (!instance) {
+ f0r_deinit();
+ dlclose(handle);
+ mlt_properties_close(metadata);
+ return NULL;
+ }
plginfo(&info);
- snprintf ( string, sizeof(string) , "%d.%d" , info.major_version , info.minor_version );
- mlt_properties_set ( metadata, "schema_version" , "0.1" );
+ snprintf ( string, sizeof(string) , "%d" , info.minor_version );
+ mlt_properties_set_double ( metadata, "schema_version" , 0.1 );
mlt_properties_set ( metadata, "title" , info.name );
- mlt_properties_set ( metadata, "version", string );
+ mlt_properties_set_double ( metadata, "version",
+ info.major_version + info.minor_version / pow( 10, strlen( string ) ) );
mlt_properties_set ( metadata, "identifier" , service_name );
mlt_properties_set ( metadata, "description" , info.explanation );
mlt_properties_set ( metadata, "creator" , info.author );
break;
}
- mlt_properties parameter = mlt_properties_new ( );
- mlt_properties_set_data ( metadata , "parameters" , parameter , 0 , ( mlt_destructor )mlt_properties_close, NULL );
mlt_properties tags = mlt_properties_new ( );
mlt_properties_set_data ( metadata , "tags" , tags , 0 , ( mlt_destructor )mlt_properties_close, NULL );
mlt_properties_set ( tags , "0" , "Video" );
+ mlt_properties parameter = mlt_properties_new ( );
+ mlt_properties_set_data ( metadata , "parameters" , parameter , 0 , ( mlt_destructor )mlt_properties_close, NULL );
+
for (j=0;j<info.num_params;j++){
snprintf ( string , sizeof(string), "%d" , j );
mlt_properties pnum = mlt_properties_new ( );
mlt_properties_set_data ( parameter , string , pnum , 0 , ( mlt_destructor )mlt_properties_close, NULL );
f0r_param_info_t paraminfo;
param_info(¶minfo,j);
- mlt_properties_set ( pnum , "identifier" , paraminfo.name );
+ mlt_properties_set ( pnum , "identifier" , string );
mlt_properties_set ( pnum , "title" , paraminfo.name );
mlt_properties_set ( pnum , "description" , paraminfo.explanation);
if ( paraminfo.type == F0R_PARAM_DOUBLE ){
+ double deflt = 0;
mlt_properties_set ( pnum , "type" , "float" );
mlt_properties_set ( pnum , "minimum" , "0" );
mlt_properties_set ( pnum , "maximum" , "1" );
- mlt_properties_set ( pnum , "readonly" , "no" );
+ f0r_get_param_value( instance, &deflt, j);
+ mlt_properties_set_double ( pnum, "default", CLAMP(deflt, 0.0, 1.0) );
+ mlt_properties_set ( pnum , "mutable" , "yes" );
mlt_properties_set ( pnum , "widget" , "spinner" );
}else
if ( paraminfo.type == F0R_PARAM_BOOL ){
+ double deflt = 0;
mlt_properties_set ( pnum , "type" , "boolean" );
mlt_properties_set ( pnum , "minimum" , "0" );
mlt_properties_set ( pnum , "maximum" , "1" );
- mlt_properties_set ( pnum , "readonly" , "no" );
+ f0r_get_param_value( instance, &deflt, j);
+ mlt_properties_set_int ( pnum, "default", deflt != 0.0 );
+ mlt_properties_set ( pnum , "mutable" , "yes" );
+ mlt_properties_set ( pnum , "widget" , "checkbox" );
}else
if ( paraminfo.type == F0R_PARAM_COLOR ){
+ char colorstr[8];
+ f0r_param_color_t deflt = {0, 0, 0};
+
mlt_properties_set ( pnum , "type" , "color" );
- mlt_properties_set ( pnum , "readonly" , "no" );
+ f0r_get_param_value( instance, &deflt, j);
+ sprintf( colorstr, "#%02x%02x%02x", (unsigned) CLAMP(deflt.r * 255, 0 , 255),
+ (unsigned) CLAMP(deflt.g * 255, 0 , 255), (unsigned) CLAMP(deflt.b * 255, 0 , 255));
+ colorstr[7] = 0;
+ mlt_properties_set ( pnum , "default", colorstr );
+ mlt_properties_set ( pnum , "mutable" , "yes" );
+ mlt_properties_set ( pnum , "widget" , "color" );
}else
if ( paraminfo.type == F0R_PARAM_STRING ){
+ char *deflt = NULL;
mlt_properties_set ( pnum , "type" , "string" );
- mlt_properties_set ( pnum , "readonly" , "no" );
+ f0r_get_param_value( instance, &deflt, j );
+ mlt_properties_set ( pnum , "default", deflt );
+ mlt_properties_set ( pnum , "mutable" , "yes" );
+ mlt_properties_set ( pnum , "widget" , "text" );
}
}
+ f0r_destruct(instance);
f0r_deinit();
dlclose(handle);
free(name);
return metadata;
}
-static void * load_lib( mlt_profile profile, mlt_service_type type , void* handle){
+static void * load_lib( mlt_profile profile, mlt_service_type type , void* handle, const char *name ){
int i=0;
void (*f0r_get_plugin_info)(f0r_plugin_info_t*),
const uint32_t* inframe2,const uint32_t* inframe3, uint32_t* outframe);
if ( ( f0r_construct = dlsym(handle, "f0r_construct") ) &&
- (f0r_update = dlsym(handle,"f0r_update") ) &&
(f0r_destruct = dlsym(handle,"f0r_destruct") ) &&
(f0r_get_plugin_info = dlsym(handle,"f0r_get_plugin_info") ) &&
(f0r_get_param_info = dlsym(handle,"f0r_get_param_info") ) &&
(f0r_deinit= dlsym(handle,"f0r_deinit" ) )
){
+ f0r_update=dlsym(handle,"f0r_update");
f0r_update2=dlsym(handle,"f0r_update2");
f0r_plugin_info_t info;
void* ret=NULL;
mlt_properties properties=NULL;
+ char minor[12];
if (type == producer_type && info.plugin_type == F0R_PLUGIN_TYPE_SOURCE ){
- mlt_producer this = mlt_producer_new( );
+ mlt_producer this = mlt_producer_new( profile );
if ( this != NULL )
{
this->get_frame = producer_get_frame;
ret=transition;
}
}
- mlt_properties_set_data(properties, "_dlclose_handle", handle , sizeof (void*) , NULL , NULL );
+ check_thread_safe( properties, name );
+ mlt_properties_set_data(properties, "_dlclose_handle", handle , sizeof ( handle ) , NULL , NULL );
mlt_properties_set_data(properties, "_dlclose", dlclose , sizeof (void*) , NULL , NULL );
- mlt_properties_set_data(properties, "f0r_construct", f0r_construct , sizeof(void*),NULL,NULL);
- mlt_properties_set_data(properties, "f0r_update", f0r_update , sizeof(void*),NULL,NULL);
+ mlt_properties_set_data(properties, "f0r_construct", f0r_construct , sizeof( f0r_construct ),NULL,NULL);
+ mlt_properties_set_data(properties, "f0r_update", f0r_update , sizeof( f0r_update ),NULL,NULL);
if (f0r_update2)
- mlt_properties_set_data(properties, "f0r_update2", f0r_update2 , sizeof(void*),NULL,NULL);
- mlt_properties_set_data(properties, "f0r_destruct", f0r_destruct , sizeof(void*),NULL,NULL);
+ mlt_properties_set_data(properties, "f0r_update2", f0r_update2 , sizeof( f0r_update2 ),NULL,NULL);
+ mlt_properties_set_data(properties, "f0r_destruct", f0r_destruct , sizeof( f0r_destruct ),NULL,NULL);
mlt_properties_set_data(properties, "f0r_get_plugin_info", f0r_get_plugin_info , sizeof(void*),NULL,NULL);
mlt_properties_set_data(properties, "f0r_get_param_info", f0r_get_param_info , sizeof(void*),NULL,NULL);
mlt_properties_set_data(properties, "f0r_set_param_value", f0r_set_param_value , sizeof(void*),NULL,NULL);
mlt_properties_set_data(properties, "f0r_get_param_value", f0r_get_param_value , sizeof(void*),NULL,NULL);
+ // Let frei0r plugin version be serialized using same format as metadata
+ snprintf( minor, sizeof( minor ), "%d", info.minor_version );
+ mlt_properties_set_double( properties, "version", info.major_version + info.minor_version / pow( 10, strlen( minor ) ) );
+
+ // Use the global param name map for backwards compatibility when
+ // param names change and setting frei0r params by name instead of index.
+ mlt_properties param_name_map = mlt_properties_get_data( mlt_global_properties(), "frei0r.param_name_map", NULL );
+ if ( param_name_map ) {
+ // Lookup my plugin in the map
+ param_name_map = mlt_properties_get_data( param_name_map, name, NULL );
+ mlt_properties_set_data( properties, "_param_name_map", param_name_map, 0, NULL, NULL );
+ }
return ret;
}else{
- printf("some was wrong\n");
+ mlt_log_error( NULL, "frei0r plugin \"%s\" is missing a function\n", name );
dlerror();
}
return NULL;
static void * create_frei0r_item ( mlt_profile profile, mlt_service_type type, const char *id, void *arg){
mlt_tokeniser tokeniser = mlt_tokeniser_init ( );
+ char *frei0r_path = get_frei0r_path();
int dircount=mlt_tokeniser_parse_new (
tokeniser,
- getenv("MLT_FREI0R_PLUGIN_PATH") ? getenv("MLT_FREI0R_PLUGIN_PATH") : FREI0R_PLUGIN_PATH,
+ frei0r_path,
":"
);
void* ret=NULL;
while (dircount--){
char soname[PATH_MAX];
+ char *myid = strdup( id );
+#ifdef WIN32
+ char *firstname = strtok( myid, "." );
+#else
char *save_firstptr = NULL;
- char *firstname=strtok_r(strdup(id),".",&save_firstptr);
+ char *firstname = strtok_r( myid, ".", &save_firstptr );
+#endif
char* directory = mlt_tokeniser_get_string (tokeniser, dircount);
- firstname=strtok_r(NULL,".",&save_firstptr);
+#ifdef WIN32
+ firstname = strtok( NULL, "." );
+#else
+ firstname = strtok_r( NULL, ".", &save_firstptr );
+#endif
if (strncmp(directory, "$HOME", 5))
- snprintf(soname, PATH_MAX, "%s/%s.so", directory, firstname);
+ snprintf(soname, PATH_MAX, "%s/%s" LIBSUF, directory, firstname );
else
- snprintf(soname, PATH_MAX, "%s%s/%s.so", getenv("HOME"), strchr(directory, '/'), firstname);
+ snprintf(soname, PATH_MAX, "%s%s/%s" LIBSUF, getenv("HOME"), strchr(directory, '/'), firstname );
if (firstname){
void* handle=dlopen(soname,RTLD_LAZY);
if (handle ){
- ret=load_lib ( profile , type , handle );
+ ret=load_lib ( profile , type , handle, firstname );
}else{
dlerror();
}
}
+ free( myid );
}
mlt_tokeniser_close ( tokeniser );
+ free( frei0r_path );
return ret;
}
{
int i=0;
mlt_tokeniser tokeniser = mlt_tokeniser_init ( );
+ char *frei0r_path = get_frei0r_path();
int dircount=mlt_tokeniser_parse_new (
tokeniser ,
- getenv("MLT_FREI0R_PLUGIN_PATH") ? getenv("MLT_FREI0R_PLUGIN_PATH") : FREI0R_PLUGIN_PATH,
+ frei0r_path,
":"
);
char dirname[PATH_MAX];
snprintf( dirname, PATH_MAX, "%s/frei0r/blacklist.txt", mlt_environment( "MLT_DATA" ) );
mlt_properties blacklist = mlt_properties_load( dirname );
+ // Load a param name map into global properties for backwards compatibility when
+ // param names change and setting frei0r params by name instead of index.
+ snprintf( dirname, PATH_MAX, "%s/frei0r/param_name_map.yaml", mlt_environment( "MLT_DATA" ) );
+ mlt_properties_set_data( mlt_global_properties(), "frei0r.param_name_map",
+ mlt_properties_parse_yaml( dirname ), 0, (mlt_destructor) mlt_properties_close, NULL );
+
while (dircount--){
mlt_properties direntries = mlt_properties_new();
snprintf(dirname, PATH_MAX, "%s", directory);
else
snprintf(dirname, PATH_MAX, "%s%s", getenv("HOME"), strchr(directory, '/'));
- mlt_properties_dir_list(direntries, dirname ,"*.so",1);
+ mlt_properties_dir_list(direntries, dirname ,"*" LIBSUF, 1);
for (i=0; i<mlt_properties_count(direntries);i++){
char* name=mlt_properties_get_value(direntries,i);
char* shortname=name+strlen(dirname)+1;
+#ifdef WIN32
+ char* firstname = strtok( shortname, "." );
+#else
char *save_firstptr = NULL;
+ char* firstname = strtok_r( shortname, ".", &save_firstptr );
+#endif
char pluginname[1024]="frei0r.";
- char* firstname = strtok_r ( shortname , "." , &save_firstptr );
- strcat(pluginname,firstname);
+ if ( firstname )
+ strncat( pluginname, firstname, sizeof( pluginname ) - strlen( pluginname ) -1 );
- if ( mlt_properties_get( blacklist, firstname ) )
+ if ( firstname && mlt_properties_get( blacklist, firstname ) )
continue;
- void* handle=dlopen(strcat(name,".so"),RTLD_LAZY);
+ void* handle=dlopen(strcat(name, LIBSUF),RTLD_LAZY);
if (handle){
void (*plginfo)(f0r_plugin_info_t*)=dlsym(handle,"f0r_get_plugin_info");
}
mlt_tokeniser_close ( tokeniser );
mlt_properties_close( blacklist );
+ free( frei0r_path );
}