/*
- * producer_libdv.c -- a libxml2 parser of mlt service networks
+ * producer_westley.c -- a libxml2 parser of mlt service networks
* Copyright (C) 2003-2004 Ushodaya Enterprises Limited
* Author: Dan Dennedy <dan@dennedy.org>
*
{
mlt_service stack_service[ STACK_SIZE ];
int stack_service_size;
- int track_count;
mlt_properties producer_map;
mlt_properties destructors;
+ char *property;
+ mlt_properties producer_properties;
};
typedef struct deserialise_context_s *deserialise_context;
static void on_start_tractor( deserialise_context context, const xmlChar *name, const xmlChar **atts)
{
mlt_service service = mlt_tractor_service( mlt_tractor_init() );
+ mlt_properties properties = mlt_service_properties( service );
track_service( context->destructors, service, (mlt_destructor) mlt_tractor_close );
+ mlt_properties_set_position( properties, "length", 0 );
+
for ( ; atts != NULL && *atts != NULL; atts += 2 )
mlt_properties_set( mlt_service_properties( service ), (char*) atts[0], (char*) atts[1] );
+ if ( mlt_properties_get_position( properties, "length" ) < mlt_properties_get_position( properties, "out" ) )
+ {
+ mlt_position length = mlt_properties_get_position( properties, "out" ) + 1;
+ mlt_properties_set_position( properties, "length", length );
+ }
+
context_push_service( context, service );
}
static void on_start_multitrack( deserialise_context context, const xmlChar *name, const xmlChar **atts)
{
mlt_service service = mlt_multitrack_service( mlt_multitrack_init() );
+ mlt_properties properties = mlt_service_properties( service );
track_service( context->destructors, service, (mlt_destructor) mlt_multitrack_close );
+ mlt_properties_set_position( properties, "length", 0 );
+
for ( ; atts != NULL && *atts != NULL; atts += 2 )
- mlt_properties_set( mlt_service_properties( service ), (char*) atts[0], (char*) atts[1] );
+ mlt_properties_set( properties, (char*) atts[0], (char*) atts[1] );
context_push_service( context, service );
}
track_service( context->destructors, service, (mlt_destructor) mlt_playlist_close );
+ mlt_properties_set_position( properties, "length", 0 );
+
for ( ; atts != NULL && *atts != NULL; atts += 2 )
- mlt_properties_set( properties, (char*) atts[0], (char*) atts[1] );
+ {
+ mlt_properties_set( properties, ( char* )atts[0], ( char* )atts[1] );
+ if ( strcmp( atts[ 0 ], "out" ) == 0 )
+ mlt_properties_set( properties, "_westley.out", ( char* )atts[ 1 ] );
+ }
if ( mlt_properties_get( properties, "id" ) != NULL )
mlt_properties_set_data( context->producer_map, mlt_properties_get( properties, "id" ), service, 0, NULL, NULL );
static void on_start_producer( deserialise_context context, const xmlChar *name, const xmlChar **atts)
{
- mlt_properties properties = mlt_properties_new();
- mlt_service service = NULL;
+ mlt_properties properties = context->producer_properties = mlt_properties_new();
for ( ; atts != NULL && *atts != NULL; atts += 2 )
- mlt_properties_set( properties, (char*) atts[0], (char*) atts[1] );
-
- if ( mlt_properties_get( properties, "mlt_service" ) != NULL )
{
- service = MLT_SERVICE( mlt_factory_producer( mlt_properties_get( properties, "mlt_service" ),
- mlt_properties_get( properties, "resource" ) ) );
- }
- else
- {
- // Unspecified producer, use inigo
- char *args[2] = { mlt_properties_get( properties, "resource" ), 0 };
- service = MLT_SERVICE( mlt_factory_producer( "inigo", args ) );
+ mlt_properties_set( properties, (char*) atts[0], (char*) atts[1] );
}
-
- track_service( context->destructors, service, (mlt_destructor) mlt_producer_close );
-
- // Add the producer to the producer map
- if ( mlt_properties_get( properties, "id" ) != NULL )
- mlt_properties_set_data( context->producer_map, mlt_properties_get( properties, "id" ), service, 0, NULL, NULL );
-
- mlt_properties_inherit( mlt_service_properties( service ), properties );
- mlt_properties_close( properties );
-
- context_push_service( context, service );
}
static void on_start_blank( deserialise_context context, const xmlChar *name, const xmlChar **atts)
}
// Append a blank to the playlist
- mlt_playlist_blank( MLT_PLAYLIST( service ), length );
+ mlt_playlist_blank( MLT_PLAYLIST( service ), length - 1 );
// Push the playlist back onto the stack
context_push_service( context, service );
static void on_start_filter( deserialise_context context, const xmlChar *name, const xmlChar **atts)
{
+ mlt_properties properties = context->producer_properties = mlt_properties_new();
+
+ // Set the properties
+ for ( ; atts != NULL && *atts != NULL; atts += 2 )
+ mlt_properties_set( properties, (char*) atts[0], (char*) atts[1] );
+}
+
+static void on_start_transition( deserialise_context context, const xmlChar *name, const xmlChar **atts)
+{
+ mlt_properties properties = context->producer_properties = mlt_properties_new();
+
+ // Set the properties
+ for ( ; atts != NULL && *atts != NULL; atts += 2 )
+ mlt_properties_set( properties, (char*) atts[0], (char*) atts[1] );
+}
+
+static void on_start_property( deserialise_context context, const xmlChar *name, const xmlChar **atts)
+{
+ mlt_properties properties = context->producer_properties;
+ char *value = NULL;
+
+ if ( properties == NULL )
+ return;
+
+ // Set the properties
+ for ( ; atts != NULL && *atts != NULL; atts += 2 )
+ {
+ if ( strcmp( atts[ 0 ], "name" ) == 0 )
+ {
+ context->property = strdup( atts[ 1 ] );
+ }
+ else if ( strcmp( atts[ 0 ], "value" ) == 0 )
+ {
+ value = (char*) atts[ 1 ];
+ }
+ }
+
+ if ( context->property != NULL && value != NULL )
+ mlt_properties_set( properties, context->property, value );
+}
+
+static void on_end_multitrack( deserialise_context context, const xmlChar *name )
+{
+ // Get the producer (multitrack) from the stack
+ mlt_service producer = context_pop_service( context );
+
+ // Get the tractor from the stack
+ mlt_service service = context_pop_service( context );
+
+ // Connect the tractor to the producer
+ mlt_tractor_connect( MLT_TRACTOR( service ), producer );
+ mlt_properties_set_data( mlt_service_properties( service ), "multitrack",
+ MLT_MULTITRACK( producer ), 0, NULL, NULL );
+
+ // Push the tractor back onto the stack
+ context_push_service( context, service );
+
+ // Push the producer back onto the stack
+ context_push_service( context, producer );
+}
+
+static void on_end_playlist( deserialise_context context, const xmlChar *name )
+{
+ // Get the playlist from the stack
+ mlt_service service = context_pop_service( context );
+ mlt_properties properties = mlt_service_properties( service );
+
+ mlt_position in = mlt_properties_get_position( properties, "in" );
+ mlt_position out;
+
+ if ( mlt_properties_get( properties, "_westley.out" ) != NULL )
+ out = mlt_properties_get_position( properties, "_westley.out" );
+ else
+ out = mlt_properties_get_position( properties, "length" ) - 1;
+
+ if ( mlt_properties_get_position( properties, "length" ) < out )
+ mlt_properties_set_position( properties, "length", out + 1 );
+
+ mlt_producer_set_in_and_out( MLT_PRODUCER( service ), in, out );
+
+ // Push the playlist back onto the stack
+ context_push_service( context, service );
+}
+
+static void on_end_track( deserialise_context context, const xmlChar *name )
+{
+ // Get the producer from the stack
+ mlt_service producer = context_pop_service( context );
+
+ // Get the multitrack from the stack
+ mlt_service service = context_pop_service( context );
+
+ // Set the track on the multitrack
+ mlt_multitrack_connect( MLT_MULTITRACK( service ),
+ MLT_PRODUCER( producer ),
+ mlt_multitrack_count( MLT_MULTITRACK( service ) ) );
+
+ // Push the multitrack back onto the stack
+ context_push_service( context, service );
+}
+
+static void on_end_entry( deserialise_context context, const xmlChar *name )
+{
+ // Get the producer from the stack
+ mlt_service producer = context_pop_service( context );
+
+ // Get the playlist from the stack
+ mlt_service service = context_pop_service( context );
+
+ // Append the producer to the playlist
+ // TODO: THIS IS NOT CORRECT - an entry SHOULD have in/out points of its own
+ mlt_playlist_append_io( MLT_PLAYLIST( service ),
+ MLT_PRODUCER( producer ), 0,
+ mlt_properties_get_position( mlt_service_properties( producer ), "out" ) - mlt_properties_get_position( mlt_service_properties( producer ), "in" ) + 1 );
+
+ // Push the playlist back onto the stack
+ context_push_service( context, service );
+}
+
+static void on_end_tractor( deserialise_context context, const xmlChar *name )
+{
+ // Get and discard the last producer
+ mlt_producer multitrack = MLT_PRODUCER( context_pop_service( context ) );
+
+ // Get the tractor
+ mlt_service tractor = context_pop_service( context );
+ multitrack = mlt_properties_get_data( mlt_service_properties( tractor ), "multitrack", NULL );
+
+ // Inherit the producer's properties
+ mlt_properties properties = mlt_producer_properties( multitrack );
+ mlt_properties_set_position( properties, "length", mlt_producer_get_out( multitrack ) + 1 );
+ mlt_producer_set_in_and_out( multitrack, 0, mlt_producer_get_out( multitrack ) );
+ mlt_properties_set_double( properties, "fps", mlt_producer_get_fps( multitrack ) );
+
+ // Push the playlist back onto the stack
+ context_push_service( context, tractor );
+}
+
+static void on_end_property( deserialise_context context, const xmlChar *name )
+{
+ // Close this property handling
+ free( context->property );
+ context->property = NULL;
+}
+
+static void on_end_producer( deserialise_context context, const xmlChar *name )
+{
+ mlt_properties properties = context->producer_properties;
+ mlt_service service = NULL;
+
+ if ( properties == NULL )
+ return;
+
+ // Instatiate the producer
+ service = MLT_SERVICE( mlt_factory_producer( "fezzik", mlt_properties_get( properties, "resource" ) ) );
+
+ if ( service == NULL && mlt_properties_get( properties, "mlt_service" ) != NULL )
+ {
+ service = MLT_SERVICE( mlt_factory_producer( mlt_properties_get( properties, "mlt_service" ),
+ mlt_properties_get( properties, "resource" ) ) );
+ }
+
+ track_service( context->destructors, service, (mlt_destructor) mlt_producer_close );
+
+ // Add the producer to the producer map
+ if ( mlt_properties_get( properties, "id" ) != NULL )
+ mlt_properties_set_data( context->producer_map, mlt_properties_get( properties, "id" ), service, 0, NULL, NULL );
+
+ mlt_properties_inherit( mlt_service_properties( service ), properties );
+ mlt_properties_close( properties );
+ context->producer_properties = NULL;
+ properties = mlt_service_properties( service );
+
+ // Set in and out
+ mlt_producer_set_in_and_out( MLT_PRODUCER( service ),
+ mlt_properties_get_position( properties, "in" ),
+ mlt_properties_get_position( properties, "out" ) );
+
+ // Push the new producer onto the stack
+ context_push_service( context, service );
+}
+
+static void on_end_filter( deserialise_context context, const xmlChar *name )
+{
+ mlt_properties properties = context->producer_properties;
+ if ( properties == NULL )
+ return;
+
char *id;
- mlt_properties properties = mlt_properties_new();
char key[11];
key[ 10 ] = '\0';
// Get the producer from the stack
mlt_service producer = context_pop_service( context );
-
- // Set the properties
- for ( ; atts != NULL && *atts != NULL; atts += 2 )
- mlt_properties_set( properties, (char*) atts[0], (char*) atts[1] );
+//fprintf( stderr, "connecting filter to %s\n", mlt_properties_get( mlt_service_properties( producer ), "resource" ) );
// Create the filter
mlt_service service = MLT_SERVICE( mlt_factory_filter( mlt_properties_get( properties, "mlt_service" ), NULL ) );
track_service( context->destructors, service, (mlt_destructor) mlt_filter_close );
-
+
// Connect the filter to the producer
mlt_filter_connect( MLT_FILTER( service ), producer,
mlt_properties_get_int( properties, "track" ) );
+ // Set in and out from producer if non existant
+ if ( mlt_properties_get( properties, "in" ) == NULL )
+ mlt_properties_set_position( properties, "in", mlt_producer_get_in( MLT_PRODUCER( producer ) ) );
+ if ( mlt_properties_get( properties, "out" ) == NULL )
+ mlt_properties_set_position( properties, "out", mlt_producer_get_out( MLT_PRODUCER( producer ) ) );
+
// Propogate the properties
mlt_properties_inherit( mlt_service_properties( service ), properties );
mlt_properties_close( properties );
+ context->producer_properties = NULL;
+ properties = mlt_service_properties( service );
+
+ // Set in and out
+//fprintf( stderr, "setting filter in %lld out %lld\n", mlt_properties_get_position( properties, "in" ), mlt_properties_get_position( properties, "out" ) );
+ mlt_filter_set_in_and_out( MLT_FILTER( service ),
+ mlt_properties_get_position( properties, "in" ),
+ mlt_properties_get_position( properties, "out" ) );
// Get the parent producer from the stack
mlt_service tractor = context_pop_service( context );
if ( tractor != NULL )
{
- // Connect the filter to the tractor
+//fprintf( stderr, "connecting tractor %s to filter\n", mlt_properties_get( mlt_service_properties( tractor ), "resource" ) );
+ // Connect the tractor to the filter
if ( strcmp( mlt_properties_get( mlt_service_properties( tractor ), "resource" ), "<tractor>" ) == 0 )
mlt_tractor_connect( MLT_TRACTOR( tractor ), service );
context_push_service( context, tractor );
}
+//fprintf( stderr, "setting filter in %lld out %lld\n", mlt_properties_get_position( properties, "in" ), mlt_properties_get_position( properties, "out" ) );
// If a producer alias is in the producer_map, get it
snprintf( key, 10, "%p", producer );
if ( mlt_properties_get_data( context->producer_map, key, NULL ) != NULL )
producer = mlt_properties_get_data( context->producer_map, key, NULL );
-
+
// Put the producer in the producer map
id = mlt_properties_get( mlt_service_properties( producer ), "id" );
if ( id != NULL )
mlt_properties_set_data( context->producer_map, id, service, 0, NULL, NULL );
-
+
// For filter chain support, add an alias to the producer map
snprintf( key, 10, "%p", service );
mlt_properties_set_data( context->producer_map, key, producer, 0, NULL, NULL );
// Push the filter onto the stack
context_push_service( context, service );
+
}
-static void on_start_transition( deserialise_context context, const xmlChar *name, const xmlChar **atts)
+static void on_end_transition( deserialise_context context, const xmlChar *name )
{
- mlt_properties properties = mlt_properties_new();
+ mlt_properties properties = context->producer_properties;
+ if ( properties == NULL )
+ return;
// Get the producer from the stack
mlt_service producer = context_pop_service( context );
- // Set the properties
- for ( ; atts != NULL && *atts != NULL; atts += 2 )
- mlt_properties_set( properties, (char*) atts[0], (char*) atts[1] );
-
// Create the transition
mlt_service service = MLT_SERVICE( mlt_factory_transition( mlt_properties_get( properties, "mlt_service" ), NULL ) );
// Propogate the properties
mlt_properties_inherit( mlt_service_properties( service ), properties );
mlt_properties_close( properties );
+ context->producer_properties = NULL;
+ properties = mlt_service_properties( service );
+
+ // Set in and out
+ mlt_transition_set_in_and_out( MLT_TRANSITION( service ),
+ mlt_properties_get_position( properties, "in" ),
+ mlt_properties_get_position( properties, "out" ) );
// Connect the filter to the producer
mlt_transition_connect( MLT_TRANSITION( service ), producer,
- mlt_properties_get_int( mlt_service_properties( service ), "a_track" ),
- mlt_properties_get_int( mlt_service_properties( service ), "b_track" ) );
+ mlt_properties_get_int( properties, "a_track" ),
+ mlt_properties_get_int( properties, "b_track" ) );
// Get the tractor from the stack
mlt_service tractor = context_pop_service( context );
context_push_service( context, service );
}
-static void on_end_multitrack( deserialise_context context, const xmlChar *name )
-{
- // Get the producer (multitrack) from the stack
- mlt_service producer = context_pop_service( context );
-
- // Get the tractor from the stack
- mlt_service service = context_pop_service( context );
-
- // Connect the tractor to the producer
- mlt_tractor_connect( MLT_TRACTOR( service ), producer );
- mlt_properties_set_data( mlt_service_properties( service ), "multitrack",
- MLT_MULTITRACK( producer ), 0, NULL, NULL );
-
- // Push the tractor back onto the stack
- context_push_service( context, service );
-
- // Push the producer back onto the stack
- context_push_service( context, producer );
-}
-
-static void on_end_playlist( deserialise_context context, const xmlChar *name )
-{
- // Get the producer (playlist) from the stack
- mlt_service producer = context_pop_service( context );
-
- // Push the producer back onto the stack
- context_push_service( context, producer );
-}
-
-static void on_end_track( deserialise_context context, const xmlChar *name )
-{
- // Get the producer from the stack
- mlt_service producer = context_pop_service( context );
-
- // Get the multitrack from the stack
- mlt_service service = context_pop_service( context );
-
- // Set the track on the multitrack
- mlt_multitrack_connect( MLT_MULTITRACK( service ),
- MLT_PRODUCER( producer ),
- context->track_count++ );
-
- // Push the multitrack back onto the stack
- context_push_service( context, service );
-}
-
-static void on_end_entry( deserialise_context context, const xmlChar *name )
-{
- // Get the producer from the stack
- mlt_service producer = context_pop_service( context );
-
- // Get the playlist from the stack
- mlt_service service = context_pop_service( context );
-
- // Append the producer to the playlist
- mlt_playlist_append_io( MLT_PLAYLIST( service ),
- MLT_PRODUCER( producer ),
- mlt_properties_get_position( mlt_service_properties( producer ), "in" ),
- mlt_properties_get_position( mlt_service_properties( producer ), "out" ) );
-
- // Push the playlist back onto the stack
- context_push_service( context, service );
-}
-
static void on_start_element( void *ctx, const xmlChar *name, const xmlChar **atts)
{
deserialise_context context = ( deserialise_context ) ctx;
on_start_filter( context, name, atts );
else if ( strcmp( name, "transition" ) == 0 )
on_start_transition( context, name, atts );
+ else if ( strcmp( name, "property" ) == 0 )
+ on_start_property( context, name, atts );
}
static void on_end_element( void *ctx, const xmlChar *name )
else if ( strcmp( name, "entry" ) == 0 )
on_end_entry( context, name );
else if ( strcmp( name, "tractor" ) == 0 )
- {
- // Discard the last producer
- context_pop_service( context );
- }
+ on_end_tractor( context, name );
+ else if ( strcmp( name, "property" ) == 0 )
+ on_end_property( context, name );
+ else if ( strcmp( name, "producer" ) == 0 )
+ on_end_producer( context, name );
+ else if ( strcmp( name, "filter" ) == 0 )
+ on_end_filter( context, name );
+ else if ( strcmp( name, "transition" ) == 0 )
+ on_end_transition( context, name );
}
+static void on_characters( void *ctx, const xmlChar *ch, int len )
+{
+ deserialise_context context = ( deserialise_context ) ctx;
+ char *value = calloc( len + 1, 1 );
+
+ value[ len ] = 0;
+ strncpy( value, (const char*) ch, len );
+
+ if ( context->property != NULL && context->producer_properties != NULL )
+ mlt_properties_set( context->producer_properties, context->property, value );
+
+ free( value);
+}
mlt_producer producer_westley_init( char *filename )
{
+ static int init = 0;
xmlSAXHandler *sax = calloc( 1, sizeof( xmlSAXHandler ) );
struct deserialise_context_s *context = calloc( 1, sizeof( struct deserialise_context_s ) );
+ mlt_properties properties = NULL;
+ int i = 0;
context->producer_map = mlt_properties_new();
context->destructors = mlt_properties_new();
mlt_properties_set_int( context->destructors, "registered", 0 );
sax->startElement = on_start_element;
sax->endElement = on_end_element;
+ sax->characters = on_characters;
+
+ if ( !init )
+ {
+ xmlInitParser();
+ //init = 1;
+ }
- xmlInitParser();
xmlSAXUserParseFile( sax, context, filename );
- xmlCleanupParser();
- free( sax );
- mlt_properties_close( context->producer_map );
+ // Need the complete producer list for various reasons
+ properties = context->destructors;
+ // Get the last producer on the stack
mlt_service service = context_pop_service( context );
- // make the returned service destroy the connected services
- mlt_properties_set_data( mlt_service_properties( service ), "__destructors__", context->destructors, 0, (mlt_destructor) mlt_properties_close, NULL );
- free( context );
+
+ // Do we actually have a producer here?
+ if ( service != NULL )
+ {
+ // Now make sure we don't have a reference to the service in the properties
+ for ( i = mlt_properties_count( properties ) - 1; i >= 1; i -- )
+ {
+ char *name = mlt_properties_get_name( properties, i );
+ if ( mlt_properties_get_data( properties, name, NULL ) == service )
+ {
+ mlt_properties_set_data( properties, name, service, 0, NULL, NULL );
+ break;
+ }
+ }
+
+ // We are done referencing destructor property list
+ // Set this var to service properties for convenience
+ properties = mlt_service_properties( service );
+
+ // make the returned service destroy the connected services
+ mlt_properties_set_data( properties, "__destructors__", context->destructors, 0, (mlt_destructor) mlt_properties_close, NULL );
+
+ // Now assign additional properties
+ mlt_properties_set( properties, "resource", filename );
+
+ // This tells consumer_westley not to deep copy
+ mlt_properties_set( properties, "westley", "was here" );
+ }
+ else
+ {
+ // Clean up
+ mlt_properties_close( properties );
+ }
+
+ free( context->stack_service );
+ mlt_properties_close( context->producer_map );
+ //free( context );
+ free( sax );
+ xmlCleanupParser();
+ xmlMemoryDump( );
+
return MLT_PRODUCER( service );
}