X-Git-Url: https://git.sesse.net/?p=mlt;a=blobdiff_plain;f=src%2Fmodules%2Fxml%2Fproducer_xml.c;h=086657f4263d6ab9f7363c7a25c7ed8f24dae35e;hp=b161bd6a612b2cdd912b5cd213fb2fcc048ea335;hb=236717e4ecc23e458e191b6c9a2ba70915b80937;hpb=0d422babb828f64febdbcb91dedd9595db0dec92

diff --git a/src/modules/xml/producer_xml.c b/src/modules/xml/producer_xml.c
index b161bd6a..086657f4 100644
--- a/src/modules/xml/producer_xml.c
+++ b/src/modules/xml/producer_xml.c
@@ -1568,6 +1568,47 @@ static int file_exists( char *file )
 	return exists;
 }
 
+// This function will add remaing services in the context service stack marked
+// with a "xml_retain" property to a property named "xml_retain" on the returned
+// service. The property is a mlt_properties data property.
+
+static void retain_services( struct deserialise_context_s *context, mlt_service service )
+{
+	mlt_properties retain_list = mlt_properties_new();
+	enum service_type type;
+	mlt_service retain_service = context_pop_service( context, &type );
+
+	while ( retain_service )
+	{
+		mlt_properties retain_properties = MLT_SERVICE_PROPERTIES( retain_service );
+		
+		if ( mlt_properties_get_int( retain_properties, "xml_retain" ) )
+		{
+			// Remove the retained service from the destructors list.
+			int i;
+			for ( i = mlt_properties_count( context->destructors ) - 1; i >= 1; i -- )
+			{
+				const char *name = mlt_properties_get_name( context->destructors, i );
+				if ( mlt_properties_get_data_at( context->destructors, i, NULL ) == retain_service )
+				{
+					mlt_properties_set_data( context->destructors, name, retain_service, 0, NULL, NULL );
+					break;
+				}
+			}
+			const char *name = mlt_properties_get( retain_properties, "id" );
+			if ( name )
+				mlt_properties_set_data( retain_list, name, retain_service, 0,
+					(mlt_destructor) mlt_service_close, NULL );
+		}
+		retain_service = context_pop_service( context, &type );
+	}
+	if ( mlt_properties_count( retain_list ) > 0 )
+	{
+		mlt_properties_set_data( MLT_SERVICE_PROPERTIES(service), "xml_retain", retain_list, 0,
+			(mlt_destructor) mlt_properties_close, NULL );
+	}
+}
+
 mlt_producer producer_xml_init( mlt_profile profile, mlt_service_type servtype, const char *id, char *data )
 {
 	xmlSAXHandler *sax, *sax_orig;
@@ -1816,6 +1857,8 @@ mlt_producer producer_xml_init( mlt_profile profile, mlt_service_type servtype,
 			(mlt_destructor) mlt_consumer_close, NULL );
 
 		mlt_properties_set_int( properties, "seekable", context->seekable );
+
+		retain_services( context, service );
 	}
 	else
 	{