#include "mlt_properties.h"
#include "mlt_tokeniser.h"
#include "mlt_log.h"
+#include "mlt_factory.h"
#include <stdio.h>
#include <stdlib.h>
#include <dlfcn.h>
#include <string.h>
+#include <limits.h>
+#include <dirent.h>
+#include <sys/stat.h>
+
+/** the default subdirectory of the datadir for holding presets */
+#define PRESETS_DIR "/presets"
/** \brief Repository class
*
return NULL;
// Construct the repository
- mlt_repository this = calloc( sizeof( struct mlt_repository_s ), 1 );
- mlt_properties_init( &this->parent, this );
- this->consumers = mlt_properties_new();
- this->filters = mlt_properties_new();
- this->producers = mlt_properties_new();
- this->transitions = mlt_properties_new();
+ mlt_repository self = calloc( 1, sizeof( struct mlt_repository_s ));
+ mlt_properties_init( &self->parent, self );
+ self->consumers = mlt_properties_new();
+ self->filters = mlt_properties_new();
+ self->producers = mlt_properties_new();
+ self->transitions = mlt_properties_new();
// Get the directory list
mlt_properties dir = mlt_properties_new();
// Call the registration function
if ( symbol_ptr != NULL )
{
- symbol_ptr( this );
+ symbol_ptr( self );
// Register the object file for closure
- mlt_properties_set_data( &this->parent, object_name, object, 0, ( mlt_destructor )dlclose, NULL );
+ mlt_properties_set_data( &self->parent, object_name, object, 0, ( mlt_destructor )dlclose, NULL );
}
else
{
mlt_properties_close( dir );
- return this;
+ return self;
}
/** Create a properties list for a service holding a function pointer to its constructor function.
* Typically, this is invoked by a module within its mlt_register().
*
* \public \memberof mlt_repository_s
- * \param this a repository
+ * \param self a repository
* \param service_type a service class
* \param service the name of a service
* \param symbol a pointer to a function to create the service
*/
-void mlt_repository_register( mlt_repository this, mlt_service_type service_type, const char *service, mlt_register_callback symbol )
+void mlt_repository_register( mlt_repository self, mlt_service_type service_type, const char *service, mlt_register_callback symbol )
{
// Add the entry point to the corresponding service list
switch ( service_type )
{
case consumer_type:
- mlt_properties_set_data( this->consumers, service, new_service( symbol ), 0, ( mlt_destructor )mlt_properties_close, NULL );
+ mlt_properties_set_data( self->consumers, service, new_service( symbol ), 0, ( mlt_destructor )mlt_properties_close, NULL );
break;
case filter_type:
- mlt_properties_set_data( this->filters, service, new_service( symbol ), 0, ( mlt_destructor )mlt_properties_close, NULL );
+ mlt_properties_set_data( self->filters, service, new_service( symbol ), 0, ( mlt_destructor )mlt_properties_close, NULL );
break;
case producer_type:
- mlt_properties_set_data( this->producers, service, new_service( symbol ), 0, ( mlt_destructor )mlt_properties_close, NULL );
+ mlt_properties_set_data( self->producers, service, new_service( symbol ), 0, ( mlt_destructor )mlt_properties_close, NULL );
break;
case transition_type:
- mlt_properties_set_data( this->transitions, service, new_service( symbol ), 0, ( mlt_destructor )mlt_properties_close, NULL );
+ mlt_properties_set_data( self->transitions, service, new_service( symbol ), 0, ( mlt_destructor )mlt_properties_close, NULL );
break;
default:
break;
/** Get the repository properties for particular service class.
*
* \private \memberof mlt_repository_s
- * \param this a repository
+ * \param self a repository
* \param type a service class
* \param service the name of a service
* \return a properties list or NULL if error
*/
-static mlt_properties get_service_properties( mlt_repository this, mlt_service_type type, const char *service )
+static mlt_properties get_service_properties( mlt_repository self, mlt_service_type type, const char *service )
{
mlt_properties service_properties = NULL;
switch ( type )
{
case consumer_type:
- service_properties = mlt_properties_get_data( this->consumers, service, NULL );
+ service_properties = mlt_properties_get_data( self->consumers, service, NULL );
break;
case filter_type:
- service_properties = mlt_properties_get_data( this->filters, service, NULL );
+ service_properties = mlt_properties_get_data( self->filters, service, NULL );
break;
case producer_type:
- service_properties = mlt_properties_get_data( this->producers, service, NULL );
+ service_properties = mlt_properties_get_data( self->producers, service, NULL );
break;
case transition_type:
- service_properties = mlt_properties_get_data( this->transitions, service, NULL );
+ service_properties = mlt_properties_get_data( self->transitions, service, NULL );
break;
default:
break;
/** Construct a new instance of a service.
*
* \public \memberof mlt_repository_s
- * \param this a repository
+ * \param self a repository
* \param profile a \p mlt_profile to give the service
* \param type a service class
* \param service the name of the service
* \param input an optional argument to the service constructor
*/
-void *mlt_repository_create( mlt_repository this, mlt_profile profile, mlt_service_type type, const char *service, void *input )
+void *mlt_repository_create( mlt_repository self, mlt_profile profile, mlt_service_type type, const char *service, const void *input )
{
- mlt_properties properties = get_service_properties( this, type, service );
+ mlt_properties properties = get_service_properties( self, type, service );
if ( properties != NULL )
{
mlt_register_callback symbol_ptr = mlt_properties_get_data( properties, "symbol", NULL );
/** Destroy a repository and free its resources.
*
* \public \memberof mlt_repository_s
- * \param this a repository
+ * \param self a repository
*/
-void mlt_repository_close( mlt_repository this )
+void mlt_repository_close( mlt_repository self )
{
- mlt_properties_close( this->consumers );
- mlt_properties_close( this->filters );
- mlt_properties_close( this->producers );
- mlt_properties_close( this->transitions );
- mlt_properties_close( &this->parent );
- free( this );
+ mlt_properties_close( self->consumers );
+ mlt_properties_close( self->filters );
+ mlt_properties_close( self->producers );
+ mlt_properties_close( self->transitions );
+ mlt_properties_close( &self->parent );
+ free( self );
}
/** Get the list of registered consumers.
mlt_properties_set_data( &self->parent, "languages", languages, 0, ( mlt_destructor )mlt_properties_close, NULL );
return languages;
}
+
+static void list_presets( mlt_properties properties, const char *path, const char *dirname )
+{
+ DIR *dir = opendir( dirname );
+
+ if ( dir )
+ {
+ struct dirent *de = readdir( dir );
+ char fullname[ PATH_MAX ];
+
+ while ( de != NULL )
+ {
+ if ( de->d_name[0] != '.' && de->d_name[strlen( de->d_name ) - 1] != '~' )
+ {
+ struct stat info;
+
+ snprintf( fullname, sizeof(fullname), "%s/%s", dirname, de->d_name );
+ stat( fullname, &info );
+ if ( S_ISDIR( info.st_mode ) )
+ {
+ // recurse into subdirectories
+ char sub[ PATH_MAX ];
+ if ( path )
+ snprintf( sub, sizeof(sub), "%s/%s", path, de->d_name );
+ else
+ strncpy( sub, de->d_name, sizeof(sub) );
+ list_presets( properties, sub, fullname );
+ }
+ else
+ {
+ // load the preset
+ mlt_properties preset = mlt_properties_load( fullname );
+ if ( preset && mlt_properties_count( preset ) )
+ {
+ snprintf( fullname, 1024, "%s/%s", path, de->d_name );
+ mlt_properties_set_data( properties, fullname, preset, 0, (mlt_destructor) mlt_properties_close, NULL );
+ }
+ }
+ }
+ de = readdir( dir );
+ }
+ closedir( dir );
+ }
+}
+
+/** Get the list of presets.
+ *
+ * \public \memberof mlt_repository_s
+ * \return a properties list of all the presets
+ */
+
+mlt_properties mlt_repository_presets( )
+{
+ mlt_properties result = mlt_properties_new();
+ char *path = getenv( "MLT_PRESETS_PATH" );
+
+ if ( path )
+ {
+ path = strdup( path );
+ }
+ else
+ {
+ path = malloc( strlen( mlt_environment( "MLT_DATA" ) ) + strlen( PRESETS_DIR ) + 1 );
+ strcpy( path, mlt_environment( "MLT_DATA" ) );
+ strcat( path, PRESETS_DIR );
+ }
+ list_presets( result, NULL, path );
+ free( path );
+
+ return result;
+}