X-Git-Url: http://research.m1stereo.tv/gitweb?a=blobdiff_plain;f=src%2Fmodules%2Fwestley%2Fconsumer_westley.c;h=fdc26b4f699327204baa0dcccd85d0d8ebbcc78a;hb=b6c72f309b9b2637109ffe020b4de4b278473c42;hp=437d9f4c159f3adb8d298f74bd26b1e8c0009721;hpb=6405eb05b56e753e9ab7c9ac2c16826d3a0c0ec5;p=melted diff --git a/src/modules/westley/consumer_westley.c b/src/modules/westley/consumer_westley.c index 437d9f4..fdc26b4 100644 --- a/src/modules/westley/consumer_westley.c +++ b/src/modules/westley/consumer_westley.c @@ -3,54 +3,161 @@ * Copyright (C) 2003-2004 Ushodaya Enterprises Limited * Author: Dan Dennedy * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2 of the License, or - * (at your option) any later version. + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation; either + * version 2.1 of the License, or (at your option) any later version. * - * This program is distributed in the hope that it will be useful, + * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. * - * You should have received a copy of the GNU General Public License - * along with this program; if not, write to the Free Software Foundation, - * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ -#include "consumer_westley.h" #include #include #include #include #include +#include #include #define ID_SIZE 128 +#define _x (const xmlChar*) +#define _s (const char*) + +// This maintains counters for adding ids to elements +struct serialise_context_s +{ + mlt_properties id_map; + int producer_count; + int multitrack_count; + int playlist_count; + int tractor_count; + int filter_count; + int transition_count; + int pass; + mlt_properties hide_map; + char *root; + char *store; +}; +typedef struct serialise_context_s* serialise_context; + /** Forward references to static functions. */ static int consumer_start( mlt_consumer parent ); static int consumer_is_stopped( mlt_consumer this ); +static void serialise_service( serialise_context context, mlt_service service, xmlNode *node ); + +typedef enum +{ + westley_existing, + westley_producer, + westley_multitrack, + westley_playlist, + westley_tractor, + westley_filter, + westley_transition +} +westley_type; + +/** Create or retrieve an id associated to this service. +*/ + +static char *westley_get_id( serialise_context context, mlt_service service, westley_type type ) +{ + char *id = NULL; + int i = 0; + mlt_properties map = context->id_map; + + // Search the map for the service + for ( i = 0; i < mlt_properties_count( map ); i ++ ) + if ( mlt_properties_get_data_at( map, i, NULL ) == service ) + break; + + // If the service is not in the map, and the type indicates a new id is needed... + if ( i >= mlt_properties_count( map ) && type != westley_existing ) + { + // Attempt to reuse existing id + id = mlt_properties_get( MLT_SERVICE_PROPERTIES( service ), "id" ); + + // If no id, or the id is used in the map (for another service), then + // create a new one. + if ( id == NULL || mlt_properties_get_data( map, id, NULL ) != NULL ) + { + char temp[ ID_SIZE ]; + do + { + switch( type ) + { + case westley_producer: + sprintf( temp, "producer%d", context->producer_count ++ ); + break; + case westley_multitrack: + sprintf( temp, "multitrack%d", context->multitrack_count ++ ); + break; + case westley_playlist: + sprintf( temp, "playlist%d", context->playlist_count ++ ); + break; + case westley_tractor: + sprintf( temp, "tractor%d", context->tractor_count ++ ); + break; + case westley_filter: + sprintf( temp, "filter%d", context->filter_count ++ ); + break; + case westley_transition: + sprintf( temp, "transition%d", context->transition_count ++ ); + break; + case westley_existing: + // Never gets here + break; + } + } + while( mlt_properties_get_data( map, temp, NULL ) != NULL ); + + // Set the data at the generated name + mlt_properties_set_data( map, temp, service, 0, NULL, NULL ); + + // Get the pointer to the name (i is the end of the list) + id = mlt_properties_get_name( map, i ); + } + else + { + // Store the existing id in the map + mlt_properties_set_data( map, id, service, 0, NULL, NULL ); + } + } + else if ( type == westley_existing ) + { + id = mlt_properties_get_name( map, i ); + } + + return id; +} /** This is what will be called by the factory - anything can be passed in via the argument, but keep it simple. */ -mlt_consumer consumer_westley_init( char *arg ) +mlt_consumer consumer_westley_init( mlt_profile profile, mlt_service_type type, const char *id, char *arg ) { // Create the consumer object mlt_consumer this = calloc( sizeof( struct mlt_consumer_s ), 1 ); // If no malloc'd and consumer init ok - if ( this != NULL && mlt_consumer_init( this, NULL ) == 0 ) + if ( this != NULL && mlt_consumer_init( this, NULL, profile ) == 0 ) { // Allow thread to be started/stopped this->start = consumer_start; this->is_stopped = consumer_is_stopped; - mlt_properties_set( mlt_consumer_properties( this ), "resource", arg ); + mlt_properties_set( MLT_CONSUMER_PROPERTIES( this ), "resource", arg ); // Return the consumer produced return this; @@ -63,23 +170,7 @@ mlt_consumer consumer_westley_init( char *arg ) return NULL; } - -// This maintains counters for adding ids to elements -struct serialise_context_s -{ - int producer_count; - int multitrack_count; - int playlist_count; - int tractor_count; - int filter_count; - int transition_count; - int pass; - mlt_properties producer_map; -}; -typedef struct serialise_context_s* serialise_context; - - -static inline void serialise_properties( mlt_properties properties, xmlNode *node ) +static void serialise_properties( serialise_context context, mlt_properties properties, xmlNode *node ) { int i; xmlNode *p; @@ -93,292 +184,557 @@ static inline void serialise_properties( mlt_properties properties, xmlNode *nod mlt_properties_get_value( properties, i ) != NULL && strcmp( name, "westley" ) != 0 && strcmp( name, "in" ) != 0 && - strcmp( name, "out" ) != 0 ) + strcmp( name, "out" ) != 0 && + strcmp( name, "id" ) != 0 && + strcmp( name, "title" ) != 0 && + strcmp( name, "root" ) != 0 && + strcmp( name, "width" ) != 0 && + strcmp( name, "height" ) != 0 ) { - p = xmlNewChild( node, NULL, "property", NULL ); - xmlNewProp( p, "name", mlt_properties_get_name( properties, i ) ); - xmlNodeSetContent( p, mlt_properties_get_value( properties, i ) ); + char *value = mlt_properties_get_value( properties, i ); + if ( strcmp( context->root, "" ) && !strncmp( value, context->root, strlen( context->root ) ) ) + value += strlen( context->root ) + 1; + p = xmlNewTextChild( node, NULL, _x("property"), _x(value) ); + xmlNewProp( p, _x("name"), _x(name) ); } } } -static void serialise_service( serialise_context context, mlt_service service, xmlNode *node ) +static void serialise_store_properties( serialise_context context, mlt_properties properties, xmlNode *node, char *store ) { int i; - xmlNode *child = node; - char id[ ID_SIZE + 1 ]; - char key[ 11 ]; - id[ ID_SIZE ] = '\0'; - key[ 10 ] = '\0'; + xmlNode *p; - // Iterate over consumer/producer connections - while ( service != NULL ) + // Enumerate the properties + for ( i = 0; store != NULL && i < mlt_properties_count( properties ); i++ ) { - mlt_properties properties = mlt_service_properties( service ); - char *mlt_type = mlt_properties_get( properties, "mlt_type" ); - - // Tell about the producer - if ( strcmp( mlt_type, "producer" ) == 0 ) + char *name = mlt_properties_get_name( properties, i ); + if ( !strncmp( name, store, strlen( store ) ) ) { - if ( context->pass == 0 ) + char *value = mlt_properties_get_value( properties, i ); + if ( value != NULL ) { - child = xmlNewChild( node, NULL, "producer", NULL ); + if ( strcmp( context->root, "" ) && !strncmp( value, context->root, strlen( context->root ) ) ) + value += strlen( context->root ) + 1; + p = xmlNewTextChild( node, NULL, _x("property"), _x(value) ); + xmlNewProp( p, _x("name"), _x(name) ); + } + } + } +} - // Set the id - if ( mlt_properties_get( properties, "id" ) == NULL ) +static inline void serialise_service_filters( serialise_context context, mlt_service service, xmlNode *node ) +{ + int i; + xmlNode *p; + mlt_filter filter = NULL; + + // Enumerate the filters + for ( i = 0; ( filter = mlt_producer_filter( MLT_PRODUCER( service ), i ) ) != NULL; i ++ ) + { + mlt_properties properties = MLT_FILTER_PROPERTIES( filter ); + if ( mlt_properties_get_int( properties, "_fezzik" ) == 0 ) + { + // Get a new id - if already allocated, do nothing + char *id = westley_get_id( context, MLT_FILTER_SERVICE( filter ), westley_filter ); + if ( id != NULL ) + { + int in = mlt_properties_get_position( properties, "in" ); + int out = mlt_properties_get_position( properties, "out" ); + p = xmlNewChild( node, NULL, _x("filter"), NULL ); + xmlNewProp( p, _x("id"), _x(id) ); + if ( mlt_properties_get( properties, "title" ) ) + xmlNewProp( p, _x("title"), _x(mlt_properties_get( properties, "title" )) ); + if ( in != 0 || out != 0 ) { - snprintf( id, ID_SIZE, "producer%d", context->producer_count++ ); - xmlNewProp( child, "id", id ); + char temp[ 20 ]; + sprintf( temp, "%d", in ); + xmlNewProp( p, _x("in"), _x(temp) ); + sprintf( temp, "%d", out ); + xmlNewProp( p, _x("out"), _x(temp) ); } - else - strncpy( id, mlt_properties_get( properties, "id" ), ID_SIZE ); - serialise_properties( properties, child ); + serialise_properties( context, properties, p ); + serialise_service_filters( context, MLT_FILTER_SERVICE( filter ), p ); + } + } + } +} + +static void serialise_producer( serialise_context context, mlt_service service, xmlNode *node ) +{ + xmlNode *child = node; + mlt_service parent = MLT_SERVICE( mlt_producer_cut_parent( MLT_PRODUCER( service ) ) ); + + if ( context->pass == 0 ) + { + mlt_properties properties = MLT_SERVICE_PROPERTIES( parent ); + // Get a new id - if already allocated, do nothing + char *id = westley_get_id( context, parent, westley_producer ); + if ( id == NULL ) + return; + + child = xmlNewChild( node, NULL, _x("producer"), NULL ); + + // Set the id + xmlNewProp( child, _x("id"), _x(id) ); + if ( mlt_properties_get( properties, "title" ) ) + xmlNewProp( child, _x("title"), _x(mlt_properties_get( properties, "title" )) ); + xmlNewProp( child, _x("in"), _x(mlt_properties_get( properties, "in" )) ); + xmlNewProp( child, _x("out"), _x(mlt_properties_get( properties, "out" )) ); + serialise_properties( context, properties, child ); + serialise_service_filters( context, service, child ); + + // Add producer to the map + mlt_properties_set_int( context->hide_map, id, mlt_properties_get_int( properties, "hide" ) ); + } + else + { + char *id = westley_get_id( context, parent, westley_existing ); + mlt_properties properties = MLT_SERVICE_PROPERTIES( service ); + xmlNewProp( node, _x("parent"), _x(id) ); + xmlNewProp( node, _x("in"), _x(mlt_properties_get( properties, "in" )) ); + xmlNewProp( node, _x("out"), _x(mlt_properties_get( properties, "out" )) ); + } +} + +static void serialise_tractor( serialise_context context, mlt_service service, xmlNode *node ); + +static void serialise_multitrack( serialise_context context, mlt_service service, xmlNode *node ) +{ + int i; + + if ( context->pass == 0 ) + { + // Iterate over the tracks to collect the producers + for ( i = 0; i < mlt_multitrack_count( MLT_MULTITRACK( service ) ); i++ ) + { + mlt_producer producer = mlt_producer_cut_parent( mlt_multitrack_track( MLT_MULTITRACK( service ), i ) ); + serialise_service( context, MLT_SERVICE( producer ), node ); + } + } + else + { + // Get a new id - if already allocated, do nothing + char *id = westley_get_id( context, service, westley_multitrack ); + if ( id == NULL ) + return; + + // Serialise the tracks + for ( i = 0; i < mlt_multitrack_count( MLT_MULTITRACK( service ) ); i++ ) + { + xmlNode *track = xmlNewChild( node, NULL, _x("track"), NULL ); + int hide = 0; + mlt_producer producer = mlt_multitrack_track( MLT_MULTITRACK( service ), i ); + mlt_properties properties = MLT_PRODUCER_PROPERTIES( producer ); - // Add producer to the map - snprintf( key, 10, "%p", service ); - mlt_properties_set( context->producer_map, key, id ); + mlt_service parent = MLT_SERVICE( mlt_producer_cut_parent( producer ) ); + + char *id = westley_get_id( context, MLT_SERVICE( parent ), westley_existing ); + xmlNewProp( track, _x("producer"), _x(id) ); + if ( mlt_producer_is_cut( producer ) ) + { + xmlNewProp( track, _x("in"), _x(mlt_properties_get( properties, "in" )) ); + xmlNewProp( track, _x("out"), _x(mlt_properties_get( properties, "out" )) ); + serialise_store_properties( context, MLT_PRODUCER_PROPERTIES( producer ), track, context->store ); + serialise_store_properties( context, MLT_PRODUCER_PROPERTIES( producer ), track, "meta." ); + serialise_service_filters( context, MLT_PRODUCER_SERVICE( producer ), track ); } - else + + hide = mlt_properties_get_int( context->hide_map, id ); + if ( hide ) + xmlNewProp( track, _x("hide"), _x( hide == 1 ? "video" : ( hide == 2 ? "audio" : "both" ) ) ); + } + serialise_service_filters( context, service, node ); + } +} + +static void serialise_playlist( serialise_context context, mlt_service service, xmlNode *node ) +{ + int i; + xmlNode *child = node; + mlt_playlist_clip_info info; + mlt_properties properties = MLT_SERVICE_PROPERTIES( service ); + + if ( context->pass == 0 ) + { + // Get a new id - if already allocated, do nothing + char *id = westley_get_id( context, service, westley_playlist ); + if ( id == NULL ) + return; + + // Iterate over the playlist entries to collect the producers + for ( i = 0; i < mlt_playlist_count( MLT_PLAYLIST( service ) ); i++ ) + { + if ( ! mlt_playlist_get_clip_info( MLT_PLAYLIST( service ), &info, i ) ) { - snprintf( key, 10, "%p", service ); - xmlNewProp( node, "producer", mlt_properties_get( context->producer_map, key ) ); + if ( info.producer != NULL ) + { + mlt_producer producer = mlt_producer_cut_parent( info.producer ); + char *service_s = mlt_properties_get( MLT_PRODUCER_PROPERTIES( producer ), "mlt_service" ); + char *resource_s = mlt_properties_get( MLT_PRODUCER_PROPERTIES( producer ), "resource" ); + if ( resource_s != NULL && !strcmp( resource_s, "" ) ) + serialise_playlist( context, MLT_SERVICE( producer ), node ); + else if ( service_s != NULL && strcmp( service_s, "blank" ) != 0 ) + serialise_service( context, MLT_SERVICE( producer ), node ); + } } - if ( mlt_properties_get( properties, "westley" ) != NULL ) - break; } + + child = xmlNewChild( node, NULL, _x("playlist"), NULL ); - // Tell about the framework container producers - else if ( strcmp( mlt_type, "mlt_producer" ) == 0 ) + // Set the id + xmlNewProp( child, _x("id"), _x(id) ); + if ( mlt_properties_get( properties, "title" ) ) + xmlNewProp( child, _x("title"), _x(mlt_properties_get( properties, "title" )) ); + + // Store application specific properties + serialise_store_properties( context, properties, child, context->store ); + serialise_store_properties( context, properties, child, "meta." ); + + // Add producer to the map + mlt_properties_set_int( context->hide_map, id, mlt_properties_get_int( properties, "hide" ) ); + + // Iterate over the playlist entries + for ( i = 0; i < mlt_playlist_count( MLT_PLAYLIST( service ) ); i++ ) { - // Recurse on multitrack's tracks - if ( strcmp( mlt_properties_get( properties, "resource" ), "" ) == 0 ) + if ( ! mlt_playlist_get_clip_info( MLT_PLAYLIST( service ), &info, i ) ) { - if ( context->pass == 0 ) + mlt_producer producer = mlt_producer_cut_parent( info.producer ); + char *service_s = mlt_properties_get( MLT_PRODUCER_PROPERTIES( producer ), "mlt_service" ); + if ( service_s != NULL && strcmp( service_s, "blank" ) == 0 ) { - // Iterate over the tracks - for ( i = 0; i < mlt_multitrack_count( MLT_MULTITRACK( service ) ); i++ ) - { - serialise_service( context, MLT_SERVICE( mlt_multitrack_track( MLT_MULTITRACK( service ), i ) ), node ); - } + char length[ 20 ]; + length[ 19 ] = '\0'; + xmlNode *entry = xmlNewChild( child, NULL, _x("blank"), NULL ); + snprintf( length, 19, "%d", (int)info.frame_count ); + xmlNewProp( entry, _x("length"), _x(length) ); } else { - // Iterate over the tracks to collect the producers - for ( i = 0; i < mlt_multitrack_count( MLT_MULTITRACK( service ) ); i++ ) + char temp[ 20 ]; + xmlNode *entry = xmlNewChild( child, NULL, _x("entry"), NULL ); + id = westley_get_id( context, MLT_SERVICE( producer ), westley_existing ); + xmlNewProp( entry, _x("producer"), _x(id) ); + sprintf( temp, "%d", (int)info.frame_in ); + xmlNewProp( entry, _x("in"), _x(temp) ); + sprintf( temp, "%d", (int)info.frame_out ); + xmlNewProp( entry, _x("out"), _x(temp) ); + if ( info.repeat > 1 ) { - serialise_service( context, MLT_SERVICE( mlt_multitrack_track( MLT_MULTITRACK( service ), i ) ), node ); + sprintf( temp, "%d", info.repeat ); + xmlNewProp( entry, _x("repeat"), _x(temp) ); } - - child = xmlNewChild( node, NULL, "multitrack", NULL ); - - // Set the id - if ( mlt_properties_get( properties, "id" ) == NULL ) + if ( mlt_producer_is_cut( info.cut ) ) { - snprintf( id, ID_SIZE, "multitrack%d", context->multitrack_count++ ); - xmlNewProp( child, "id", id ); - } - - // Iterate over the tracks - for ( i = 0; i < mlt_multitrack_count( MLT_MULTITRACK( service ) ); i++ ) - { - xmlNode *track = xmlNewChild( child, NULL, "track", NULL ); - snprintf( key, 10, "%p", MLT_SERVICE( mlt_multitrack_track( MLT_MULTITRACK( service ), i ) ) ); - xmlNewProp( track, "producer", mlt_properties_get( context->producer_map, key ) ); + serialise_store_properties( context, MLT_PRODUCER_PROPERTIES( info.cut ), entry, context->store ); + serialise_store_properties( context, MLT_PRODUCER_PROPERTIES( info.cut ), entry, "meta." ); + serialise_service_filters( context, MLT_PRODUCER_SERVICE( info.cut ), entry ); } } + } + } + + serialise_service_filters( context, service, child ); + } + else if ( xmlStrcmp( node->name, _x("tractor") ) != 0 ) + { + char *id = westley_get_id( context, service, westley_existing ); + xmlNewProp( node, _x("producer"), _x(id) ); + } +} + +static void serialise_tractor( serialise_context context, mlt_service service, xmlNode *node ) +{ + xmlNode *child = node; + mlt_properties properties = MLT_SERVICE_PROPERTIES( service ); + + if ( context->pass == 0 ) + { + // Recurse on connected producer + serialise_service( context, mlt_service_producer( service ), node ); + } + else + { + // Get a new id - if already allocated, do nothing + char *id = westley_get_id( context, service, westley_tractor ); + if ( id == NULL ) + return; + + child = xmlNewChild( node, NULL, _x("tractor"), NULL ); + + // Set the id + xmlNewProp( child, _x("id"), _x(id) ); + if ( mlt_properties_get( properties, "title" ) ) + xmlNewProp( child, _x("title"), _x(mlt_properties_get( properties, "title" )) ); + if ( mlt_properties_get( properties, "global_feed" ) ) + xmlNewProp( child, _x("global_feed"), _x(mlt_properties_get( properties, "global_feed" )) ); + xmlNewProp( child, _x("in"), _x(mlt_properties_get( properties, "in" )) ); + xmlNewProp( child, _x("out"), _x(mlt_properties_get( properties, "out" )) ); + + // Store application specific properties + serialise_store_properties( context, MLT_SERVICE_PROPERTIES( service ), child, context->store ); + serialise_store_properties( context, MLT_SERVICE_PROPERTIES( service ), child, "meta." ); + + // Recurse on connected producer + serialise_service( context, mlt_service_producer( service ), child ); + serialise_service_filters( context, service, child ); + } +} + +static void serialise_filter( serialise_context context, mlt_service service, xmlNode *node ) +{ + xmlNode *child = node; + mlt_properties properties = MLT_SERVICE_PROPERTIES( service ); + + // Recurse on connected producer + serialise_service( context, mlt_service_producer( service ), node ); + + if ( context->pass == 1 ) + { + // Get a new id - if already allocated, do nothing + char *id = westley_get_id( context, service, westley_filter ); + if ( id == NULL ) + return; + + child = xmlNewChild( node, NULL, _x("filter"), NULL ); + + // Set the id + xmlNewProp( child, _x("id"), _x(id) ); + if ( mlt_properties_get( properties, "title" ) ) + xmlNewProp( child, _x("title"), _x(mlt_properties_get( properties, "title" )) ); + xmlNewProp( child, _x("in"), _x(mlt_properties_get( properties, "in" )) ); + xmlNewProp( child, _x("out"), _x(mlt_properties_get( properties, "out" )) ); + + serialise_properties( context, properties, child ); + serialise_service_filters( context, service, child ); + } +} + +static void serialise_transition( serialise_context context, mlt_service service, xmlNode *node ) +{ + xmlNode *child = node; + mlt_properties properties = MLT_SERVICE_PROPERTIES( service ); + + // Recurse on connected producer + serialise_service( context, MLT_SERVICE( MLT_TRANSITION( service )->producer ), node ); + + if ( context->pass == 1 ) + { + // Get a new id - if already allocated, do nothing + char *id = westley_get_id( context, service, westley_transition ); + if ( id == NULL ) + return; + + child = xmlNewChild( node, NULL, _x("transition"), NULL ); + + // Set the id + xmlNewProp( child, _x("id"), _x(id) ); + if ( mlt_properties_get( properties, "title" ) ) + xmlNewProp( child, _x("title"), _x(mlt_properties_get( properties, "title" )) ); + xmlNewProp( child, _x("in"), _x(mlt_properties_get( properties, "in" )) ); + xmlNewProp( child, _x("out"), _x(mlt_properties_get( properties, "out" )) ); + + serialise_properties( context, properties, child ); + serialise_service_filters( context, service, child ); + } +} + +static void serialise_service( serialise_context context, mlt_service service, xmlNode *node ) +{ + // Iterate over consumer/producer connections + while ( service != NULL ) + { + mlt_properties properties = MLT_SERVICE_PROPERTIES( service ); + char *mlt_type = mlt_properties_get( properties, "mlt_type" ); + + // Tell about the producer + if ( strcmp( mlt_type, "producer" ) == 0 ) + { + char *mlt_service = mlt_properties_get( properties, "mlt_service" ); + if ( mlt_properties_get( properties, "westley" ) == NULL && ( mlt_service != NULL && !strcmp( mlt_service, "tractor" ) ) ) + { + context->pass = 0; + serialise_tractor( context, service, node ); + context->pass = 1; + serialise_tractor( context, service, node ); + context->pass = 0; + break; + } + else + { + serialise_producer( context, service, node ); + } + if ( mlt_properties_get( properties, "westley" ) != NULL ) + break; + } + + // Tell about the framework container producers + else if ( strcmp( mlt_type, "mlt_producer" ) == 0 ) + { + char *resource = mlt_properties_get( properties, "resource" ); + + // Recurse on multitrack's tracks + if ( strcmp( resource, "" ) == 0 ) + { + serialise_multitrack( context, service, node ); break; } // Recurse on playlist's clips - else if ( strcmp( mlt_properties_get( properties, "resource" ), "" ) == 0 ) + else if ( strcmp( resource, "" ) == 0 ) { - mlt_playlist_clip_info info; - - if ( context->pass == 0 ) - { - // Iterate over the playlist entries to collect the producers - for ( i = 0; i < mlt_playlist_count( MLT_PLAYLIST( service ) ); i++ ) - { - if ( ! mlt_playlist_get_clip_info( MLT_PLAYLIST( service ), &info, i ) ) - { - if ( strcmp( mlt_properties_get( mlt_producer_properties( info.producer ), "mlt_service" ), "blank" ) != 0 ) - { - serialise_service( context, MLT_SERVICE( info.producer ), node ); - } - } - } - - child = xmlNewChild( node, NULL, "playlist", NULL ); - - // Set the id - if ( mlt_properties_get( properties, "id" ) == NULL ) - { - snprintf( id, ID_SIZE, "playlist%d", context->playlist_count++ ); - xmlNewProp( child, "id", id ); - } - else - strncpy( id, mlt_properties_get( properties, "id" ), ID_SIZE ); - - // Add producer to the map - snprintf( key, 10, "%p", service ); - mlt_properties_set( context->producer_map, key, id ); - - // Iterate over the playlist entries - for ( i = 0; i < mlt_playlist_count( MLT_PLAYLIST( service ) ); i++ ) - { - if ( ! mlt_playlist_get_clip_info( MLT_PLAYLIST( service ), &info, i ) ) - { - if ( strcmp( mlt_properties_get( mlt_producer_properties( info.producer ), "mlt_service" ), "blank" ) == 0 ) - { - char length[ 20 ]; - length[ 19 ] = '\0'; - xmlNode *entry = xmlNewChild( child, NULL, "blank", NULL ); - snprintf( length, 19, "%lld", info.frame_count ); - xmlNewProp( entry, "length", length ); - } - else - { - xmlNode *entry = xmlNewChild( child, NULL, "entry", NULL ); - snprintf( key, 10, "%p", MLT_SERVICE( info.producer ) ); - xmlNewProp( entry, "producer", mlt_properties_get( context->producer_map, key ) ); - xmlNewProp( entry, "in", mlt_properties_get( mlt_producer_properties( info.producer ), "in" ) ); - xmlNewProp( entry, "out", mlt_properties_get( mlt_producer_properties( info.producer ), "out" ) ); - } - } - } - } - else if ( strcmp( (const char*) node->name, "tractor" ) != 0 ) - { - snprintf( key, 10, "%p", service ); - xmlNewProp( node, "producer", mlt_properties_get( context->producer_map, key ) ); - } + serialise_playlist( context, service, node ); } // Recurse on tractor's producer - else if ( strcmp( mlt_properties_get( properties, "resource" ), "" ) == 0 ) + else if ( strcmp( resource, "" ) == 0 ) { - if ( context->pass == 0 ) - { - // Recurse on connected producer - serialise_service( context, mlt_service_get_producer( service ), node ); - } - else - { - child = xmlNewChild( node, NULL, "tractor", NULL ); - - // Set the id - if ( mlt_properties_get( properties, "id" ) == NULL ) - { - snprintf( id, ID_SIZE, "tractor%d", context->tractor_count++ ); - xmlNewProp( child, "id", id ); - } - - xmlNewProp( child, "in", mlt_properties_get( properties, "in" ) ); - xmlNewProp( child, "out", mlt_properties_get( properties, "out" ) ); - - // Recurse on connected producer - serialise_service( context, mlt_service_get_producer( service ), child ); - } + context->pass = 0; + serialise_tractor( context, service, node ); + context->pass = 1; + serialise_tractor( context, service, node ); + context->pass = 0; break; } + + // Treat it as a normal producer + else + { + serialise_producer( context, service, node ); + } } // Tell about a filter else if ( strcmp( mlt_type, "filter" ) == 0 ) { - // Recurse on connected producer - serialise_service( context, MLT_SERVICE( MLT_FILTER( service )->producer ), node ); - - if ( context->pass == 1 ) - { - child = xmlNewChild( node, NULL, "filter", NULL ); - - // Set the id - if ( mlt_properties_get( properties, "id" ) == NULL ) - { - snprintf( id, ID_SIZE, "filter%d", context->filter_count++ ); - xmlNewProp( child, "id", id ); - xmlNewProp( child, "in", mlt_properties_get( properties, "in" ) ); - xmlNewProp( child, "out", mlt_properties_get( properties, "out" ) ); - } - - serialise_properties( properties, child ); - } + serialise_filter( context, service, node ); break; } // Tell about a transition else if ( strcmp( mlt_type, "transition" ) == 0 ) { - // Recurse on connected producer - serialise_service( context, MLT_SERVICE( MLT_TRANSITION( service )->producer ), node ); - - if ( context->pass == 1 ) - { - child = xmlNewChild( node, NULL, "transition", NULL ); - - // Set the id - if ( mlt_properties_get( properties, "id" ) == NULL ) - { - snprintf( id, ID_SIZE, "transition%d", context->transition_count++ ); - xmlNewProp( child, "id", id ); - xmlNewProp( child, "in", mlt_properties_get( properties, "in" ) ); - xmlNewProp( child, "out", mlt_properties_get( properties, "out" ) ); - } - - serialise_properties( properties, child ); - } + serialise_transition( context, service, node ); break; } // Get the next connected service - service = mlt_service_get_producer( service ); + service = mlt_service_producer( service ); } } -static int consumer_start( mlt_consumer this ) +xmlDocPtr westley_make_doc( mlt_consumer consumer, mlt_service service ) { - mlt_service inigo = NULL; - xmlDoc *doc = xmlNewDoc( "1.0" ); - xmlNode *root = xmlNewNode( NULL, "westley" ); + mlt_properties properties = MLT_SERVICE_PROPERTIES( service ); + xmlDocPtr doc = xmlNewDoc( _x("1.0") ); + xmlNodePtr root = xmlNewNode( NULL, _x("westley") ); + struct serialise_context_s *context = calloc( 1, sizeof( struct serialise_context_s ) ); + xmlDocSetRootElement( doc, root ); + + // If we have root, then deal with it now + if ( mlt_properties_get( properties, "root" ) != NULL ) + { + xmlNewProp( root, _x("root"), _x(mlt_properties_get( properties, "root" )) ); + context->root = strdup( mlt_properties_get( properties, "root" ) ); + } + else + { + context->root = strdup( "" ); + } + + // Assign the additional 'storage' pattern for properties + context->store = mlt_properties_get( MLT_CONSUMER_PROPERTIES( consumer ), "store" ); + + // Assign a title property + if ( mlt_properties_get( properties, "title" ) != NULL ) + xmlNewProp( root, _x("title"), _x(mlt_properties_get( properties, "title" )) ); + mlt_properties_set_int( properties, "global_feed", 1 ); + + // Construct the context maps + context->id_map = mlt_properties_new(); + context->hide_map = mlt_properties_new(); + + // Ensure producer is a framework producer + mlt_properties_set( MLT_SERVICE_PROPERTIES( service ), "mlt_type", "mlt_producer" ); + + // In pass one, we serialise the end producers and playlists, + // adding them to a map keyed by address. + serialise_service( context, service, root ); + + // In pass two, we serialise the tractor and reference the + // producers and playlists + context->pass++; + serialise_service( context, service, root ); + + // Cleanup resource + mlt_properties_close( context->id_map ); + mlt_properties_close( context->hide_map ); + free( context->root ); + free( context ); + + return doc; +} + +static int consumer_start( mlt_consumer this ) +{ + xmlDocPtr doc = NULL; // Get the producer service - mlt_service service = mlt_service_get_producer( mlt_consumer_service( this ) ); + mlt_service service = mlt_service_producer( MLT_CONSUMER_SERVICE( this ) ); if ( service != NULL ) { - struct serialise_context_s *context = calloc( 1, sizeof( struct serialise_context_s ) ); - context->producer_map = mlt_properties_new(); - - // Remember inigo - if ( mlt_properties_get( mlt_service_properties( service ), "mlt_service" ) != NULL && - strcmp( mlt_properties_get( mlt_service_properties( service ), "mlt_service" ), "inigo" ) == 0 ) - inigo = service; - - // Ensure producer is a framework producer - mlt_properties_set( mlt_service_properties( service ), "mlt_type", "mlt_producer" ); + mlt_properties properties = MLT_CONSUMER_PROPERTIES( this ); + char *resource = mlt_properties_get( properties, "resource" ); - // In pass one, we serialise the end producers and playlists, - // adding them to a map keyed by address. - serialise_service( context, service, root ); + // Set the title if provided + if ( mlt_properties_get( properties, "title" ) ) + mlt_properties_set( MLT_SERVICE_PROPERTIES( service ), "title", mlt_properties_get( properties, "title" ) ); + else if ( mlt_properties_get( MLT_SERVICE_PROPERTIES( service ), "title" ) == NULL ) + mlt_properties_set( MLT_SERVICE_PROPERTIES( service ), "title", "Anonymous Submission" ); - // In pass two, we serialise the tractor and reference the - // producers and playlists - context->pass++; - serialise_service( context, service, root ); + // Check for a root on the consumer properties and pass to service + if ( mlt_properties_get( properties, "root" ) ) + mlt_properties_set( MLT_SERVICE_PROPERTIES( service ), "root", mlt_properties_get( properties, "root" ) ); - mlt_properties_close( context->producer_map ); - free( context ); - - if ( mlt_properties_get( mlt_consumer_properties( this ), "resource" ) == NULL ) + // Specify roots in other cases... + if ( resource != NULL && mlt_properties_get( properties, "root" ) == NULL ) + { + // Get the current working directory + char *cwd = getcwd( NULL, 0 ); + mlt_properties_set( MLT_SERVICE_PROPERTIES( service ), "root", cwd ); + free( cwd ); + } + + // Make the document + doc = westley_make_doc( this, service ); + + // Handle the output + if ( resource == NULL || !strcmp( resource, "" ) ) + { xmlDocFormatDump( stdout, doc, 1 ); + } + else if ( strchr( resource, '.' ) == NULL ) + { + xmlChar *buffer = NULL; + int length = 0; + xmlDocDumpMemoryEnc( doc, &buffer, &length, "utf-8" ); + mlt_properties_set( properties, resource, _s(buffer) ); + xmlFree( buffer ); + } else - xmlSaveFormatFile( mlt_properties_get( mlt_consumer_properties( this ), "resource" ), doc, 1 ); + { + xmlSaveFormatFileEnc( resource, doc, "utf-8", 1 ); + } + + // Close the document + xmlFreeDoc( doc ); } - - xmlFreeDoc( doc ); + mlt_consumer_stop( this ); + mlt_consumer_stopped( this ); + return 0; } @@ -386,4 +742,3 @@ static int consumer_is_stopped( mlt_consumer this ) { return 1; } -