2 * producer_westley.c -- a libxml2 parser of mlt service networks
3 * Copyright (C) 2003-2004 Ushodaya Enterprises Limited
4 * Author: Dan Dennedy <dan@dennedy.org>
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 // TODO: destroy unreferenced producers (they are currently destroyed
22 // when the returned producer is closed).
24 #include "producer_westley.h"
25 #include <framework/mlt.h>
32 #include <libxml/parser.h>
33 #include <libxml/parserInternals.h> // for xmlCreateFileParserCtxt
34 #include <libxml/tree.h>
36 #define STACK_SIZE 1000
37 #define BRANCH_SIG_LEN 4000
44 extern xmlDocPtr
westley_make_doc( mlt_service service
);
61 mlt_dummy_filter_type
,
62 mlt_dummy_transition_type
,
63 mlt_dummy_producer_type
,
66 struct deserialise_context_s
68 enum service_type stack_types
[ STACK_SIZE
];
69 mlt_service stack_service
[ STACK_SIZE
];
70 int stack_service_size
;
71 mlt_properties producer_map
;
72 mlt_properties destructors
;
76 xmlNodePtr stack_node
[ STACK_SIZE
];
79 int entity_is_replace
;
81 int branch
[ STACK_SIZE
];
82 const xmlChar
*publicId
;
83 const xmlChar
*systemId
;
84 mlt_properties params
;
86 typedef struct deserialise_context_s
*deserialise_context
;
88 /** Convert the numerical current branch address to a dot-delimited string.
90 static char *serialise_branch( deserialise_context
this, char *s
)
95 for ( i
= 0; i
< this->depth
; i
++ )
97 int len
= strlen( s
);
98 snprintf( s
+ len
, BRANCH_SIG_LEN
- len
, "%d.", this->branch
[ i
] );
106 static int context_push_service( deserialise_context
this, mlt_service that
, enum service_type type
)
108 int ret
= this->stack_service_size
>= STACK_SIZE
- 1;
111 this->stack_service
[ this->stack_service_size
] = that
;
112 this->stack_types
[ this->stack_service_size
++ ] = type
;
114 // Record the tree branch on which this service lives
115 if ( that
!= NULL
&& mlt_properties_get( MLT_SERVICE_PROPERTIES( that
), "_westley_branch" ) == NULL
)
117 char s
[ BRANCH_SIG_LEN
];
118 mlt_properties_set( MLT_SERVICE_PROPERTIES( that
), "_westley_branch", serialise_branch( this, s
) );
127 static mlt_service
context_pop_service( deserialise_context
this, enum service_type
*type
)
129 mlt_service result
= NULL
;
130 if ( this->stack_service_size
> 0 )
132 result
= this->stack_service
[ -- this->stack_service_size
];
134 *type
= this->stack_types
[ this->stack_service_size
];
142 static int context_push_node( deserialise_context
this, xmlNodePtr node
)
144 int ret
= this->stack_node_size
>= STACK_SIZE
- 1;
146 this->stack_node
[ this->stack_node_size
++ ] = node
;
153 static xmlNodePtr
context_pop_node( deserialise_context
this )
155 xmlNodePtr result
= NULL
;
156 if ( this->stack_node_size
> 0 )
157 result
= this->stack_node
[ -- this->stack_node_size
];
162 // Set the destructor on a new service
163 static void track_service( mlt_properties properties
, void *service
, mlt_destructor destructor
)
165 int registered
= mlt_properties_get_int( properties
, "registered" );
166 char *key
= mlt_properties_get( properties
, "registered" );
167 mlt_properties_set_data( properties
, key
, service
, 0, destructor
, NULL
);
168 mlt_properties_set_int( properties
, "registered", ++ registered
);
172 // Prepend the property value with the document root
173 static inline void qualify_property( deserialise_context context
, mlt_properties properties
, char *name
)
175 char *resource
= mlt_properties_get( properties
, name
);
176 if ( resource
!= NULL
)
178 // Qualify file name properties
179 char *root
= mlt_properties_get( context
->producer_map
, "root" );
180 if ( root
!= NULL
&& strcmp( root
, "" ) )
182 char *full_resource
= malloc( strlen( root
) + strlen( resource
) + 2 );
183 if ( resource
[ 0 ] != '/' && strchr( resource
, ':' ) == NULL
)
185 strcpy( full_resource
, root
);
186 strcat( full_resource
, "/" );
187 strcat( full_resource
, resource
);
191 strcpy( full_resource
, resource
);
193 mlt_properties_set( properties
, name
, full_resource
);
194 free( full_resource
);
200 /** This function adds a producer to a playlist or multitrack when
201 there is no entry or track element.
204 static int add_producer( deserialise_context context
, mlt_service service
, mlt_position in
, mlt_position out
)
206 // Return value (0 = service remains top of stack, 1 means it can be removed)
209 // Get the parent producer
210 enum service_type type
;
211 mlt_service container
= context_pop_service( context
, &type
);
214 if ( service
!= NULL
&& container
!= NULL
)
216 char *container_branch
= mlt_properties_get( MLT_SERVICE_PROPERTIES( container
), "_westley_branch" );
217 char *service_branch
= mlt_properties_get( MLT_SERVICE_PROPERTIES( service
), "_westley_branch" );
218 contained
= !strncmp( container_branch
, service_branch
, strlen( container_branch
) );
223 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
224 char *hide_s
= mlt_properties_get( properties
, "hide" );
226 // Indicate that this service is no longer top of stack
231 case mlt_tractor_type
:
233 mlt_multitrack multitrack
= mlt_tractor_multitrack( MLT_TRACTOR( container
) );
234 mlt_multitrack_connect( multitrack
, MLT_PRODUCER( service
), mlt_multitrack_count( multitrack
) );
237 case mlt_multitrack_type
:
239 mlt_multitrack_connect( MLT_MULTITRACK( container
),
240 MLT_PRODUCER( service
),
241 mlt_multitrack_count( MLT_MULTITRACK( container
) ) );
244 case mlt_playlist_type
:
246 mlt_playlist_append_io( MLT_PLAYLIST( container
), MLT_PRODUCER( service
), in
, out
);
251 fprintf( stderr
, "Producer defined inside something that isn't a container\n" );
255 // Set the hide state of the track producer
256 if ( hide_s
!= NULL
)
258 if ( strcmp( hide_s
, "video" ) == 0 )
259 mlt_properties_set_int( properties
, "hide", 1 );
260 else if ( strcmp( hide_s
, "audio" ) == 0 )
261 mlt_properties_set_int( properties
, "hide", 2 );
262 else if ( strcmp( hide_s
, "both" ) == 0 )
263 mlt_properties_set_int( properties
, "hide", 3 );
267 // Put the parent producer back
268 if ( container
!= NULL
)
269 context_push_service( context
, container
, type
);
274 /** Attach filters defined on that to this.
277 static void attach_filters( mlt_service
this, mlt_service that
)
282 mlt_filter filter
= NULL
;
283 for ( i
= 0; ( filter
= mlt_service_filter( that
, i
) ) != NULL
; i
++ )
285 mlt_service_attach( this, filter
);
286 attach_filters( MLT_FILTER_SERVICE( filter
), MLT_FILTER_SERVICE( filter
) );
291 static void on_start_tractor( deserialise_context context
, const xmlChar
*name
, const xmlChar
**atts
)
293 mlt_tractor tractor
= mlt_tractor_new( );
294 mlt_service service
= MLT_TRACTOR_SERVICE( tractor
);
295 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
297 track_service( context
->destructors
, service
, (mlt_destructor
) mlt_tractor_close
);
299 for ( ; atts
!= NULL
&& *atts
!= NULL
; atts
+= 2 )
300 mlt_properties_set( MLT_SERVICE_PROPERTIES( service
), (char*) atts
[0], atts
[1] == NULL ?
"" : (char*) atts
[1] );
302 mlt_properties_set_int( MLT_TRACTOR_PROPERTIES( tractor
), "global_feed", 1 );
304 if ( mlt_properties_get( properties
, "id" ) != NULL
)
305 mlt_properties_set_data( context
->producer_map
, mlt_properties_get( properties
, "id" ), service
, 0, NULL
, NULL
);
307 context_push_service( context
, service
, mlt_tractor_type
);
310 static void on_end_tractor( deserialise_context context
, const xmlChar
*name
)
313 enum service_type type
;
314 mlt_service tractor
= context_pop_service( context
, &type
);
316 if ( tractor
!= NULL
&& type
== mlt_tractor_type
)
318 // See if the tractor should be added to a playlist or multitrack
319 if ( add_producer( context
, tractor
, 0, mlt_producer_get_out( MLT_PRODUCER( tractor
) ) ) == 0 )
320 context_push_service( context
, tractor
, type
);
324 fprintf( stderr
, "Invalid state for tractor\n" );
328 static void on_start_multitrack( deserialise_context context
, const xmlChar
*name
, const xmlChar
**atts
)
330 enum service_type type
;
331 mlt_service parent
= context_pop_service( context
, &type
);
333 // If we don't have a parent, then create one now, providing we're in a state where we can
334 if ( parent
== NULL
|| ( type
== mlt_playlist_type
|| type
== mlt_multitrack_type
) )
336 mlt_tractor tractor
= NULL
;
337 // Push the parent back
338 if ( parent
!= NULL
)
339 context_push_service( context
, parent
, type
);
341 // Create a tractor to contain the multitrack
342 tractor
= mlt_tractor_new( );
343 parent
= MLT_TRACTOR_SERVICE( tractor
);
344 track_service( context
->destructors
, parent
, (mlt_destructor
) mlt_tractor_close
);
345 type
= mlt_tractor_type
;
347 // Flag it as a synthesised tractor for clean up later
348 mlt_properties_set_int( MLT_SERVICE_PROPERTIES( parent
), "fezzik_synth", 1 );
351 if ( type
== mlt_tractor_type
)
353 mlt_service service
= MLT_SERVICE( mlt_tractor_multitrack( MLT_TRACTOR( parent
) ) );
354 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
355 for ( ; atts
!= NULL
&& *atts
!= NULL
; atts
+= 2 )
356 mlt_properties_set( properties
, (char*) atts
[0], atts
[1] == NULL ?
"" : (char*) atts
[1] );
358 if ( mlt_properties_get( properties
, "id" ) != NULL
)
359 mlt_properties_set_data( context
->producer_map
, mlt_properties_get( properties
,"id" ), service
, 0, NULL
, NULL
);
361 context_push_service( context
, parent
, type
);
362 context_push_service( context
, service
, mlt_multitrack_type
);
366 fprintf( stderr
, "Invalid multitrack position\n" );
370 static void on_end_multitrack( deserialise_context context
, const xmlChar
*name
)
372 // Get the multitrack from the stack
373 enum service_type type
;
374 mlt_service service
= context_pop_service( context
, &type
);
376 if ( service
== NULL
|| type
!= mlt_multitrack_type
)
377 fprintf( stderr
, "End multitrack in the wrong state...\n" );
380 static void on_start_playlist( deserialise_context context
, const xmlChar
*name
, const xmlChar
**atts
)
382 mlt_playlist playlist
= mlt_playlist_init( );
383 mlt_service service
= MLT_PLAYLIST_SERVICE( playlist
);
384 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
386 track_service( context
->destructors
, service
, (mlt_destructor
) mlt_playlist_close
);
388 for ( ; atts
!= NULL
&& *atts
!= NULL
; atts
+= 2 )
390 mlt_properties_set( properties
, (char*) atts
[0], atts
[1] == NULL ?
"" : (char*) atts
[1] );
392 // Out will be overwritten later as we append, so we need to save it
393 if ( xmlStrcmp( atts
[ 0 ], _x("out") ) == 0 )
394 mlt_properties_set( properties
, "_westley.out", ( char* )atts
[ 1 ] );
397 if ( mlt_properties_get( properties
, "id" ) != NULL
)
398 mlt_properties_set_data( context
->producer_map
, mlt_properties_get( properties
, "id" ), service
, 0, NULL
, NULL
);
400 context_push_service( context
, service
, mlt_playlist_type
);
403 static void on_end_playlist( deserialise_context context
, const xmlChar
*name
)
405 // Get the playlist from the stack
406 enum service_type type
;
407 mlt_service service
= context_pop_service( context
, &type
);
409 if ( service
!= NULL
&& type
== mlt_playlist_type
)
411 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
412 mlt_position in
= mlt_properties_get_position( properties
, "in" );
413 mlt_position out
= mlt_properties_get_position( properties
, "out" );
415 // See if the playlist should be added to a playlist or multitrack
416 if ( add_producer( context
, service
, in
, out
) == 0 )
417 context_push_service( context
, service
, type
);
421 fprintf( stderr
, "Invalid state of playlist end\n" );
425 static void on_start_producer( deserialise_context context
, const xmlChar
*name
, const xmlChar
**atts
)
427 // use a dummy service to hold properties to allow arbitrary nesting
428 mlt_service service
= calloc( 1, sizeof( struct mlt_service_s
) );
429 mlt_service_init( service
, NULL
);
431 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
433 context_push_service( context
, service
, mlt_dummy_producer_type
);
435 for ( ; atts
!= NULL
&& *atts
!= NULL
; atts
+= 2 )
436 mlt_properties_set( properties
, (char*) atts
[0], atts
[1] == NULL ?
"" : (char*) atts
[1] );
439 // Parse a SMIL clock value (as produced by Kino 0.9.1) and return position in frames
440 static mlt_position
parse_clock_value( char *value
, double fps
)
442 // This implementation expects a fully specified clock value - no optional
444 char *pos
, *copy
= strdup( value
);
446 mlt_position result
= -1;
449 pos
= strchr( value
, ':' );
456 pos
= strchr( value
, ':' );
463 pos
= strchr( value
, '.' );
472 result
= ( fps
* ( ( (hh
* 3600) + (mm
* 60) + ss
) * 1000 + ms
) / 1000 + 0.5 );
477 static void on_end_producer( deserialise_context context
, const xmlChar
*name
)
479 enum service_type type
;
480 mlt_service service
= context_pop_service( context
, &type
);
481 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
483 if ( service
!= NULL
&& type
== mlt_dummy_producer_type
)
485 mlt_service producer
= NULL
;
487 qualify_property( context
, properties
, "resource" );
488 char *resource
= mlt_properties_get( properties
, "resource" );
490 // Let Kino-SMIL src be a synonym for resource
491 if ( resource
== NULL
)
493 qualify_property( context
, properties
, "src" );
494 resource
= mlt_properties_get( properties
, "src" );
497 // Instantiate the producer
498 if ( mlt_properties_get( properties
, "mlt_service" ) != NULL
)
501 strncpy( temp
, mlt_properties_get( properties
, "mlt_service" ), 1024 );
502 if ( resource
!= NULL
)
505 strncat( temp
, resource
, 1023 - strlen( temp
) );
507 producer
= MLT_SERVICE( mlt_factory_producer( "fezzik", temp
) );
510 // Just in case the plugin requested doesn't exist...
511 if ( producer
== NULL
&& resource
!= NULL
)
512 producer
= MLT_SERVICE( mlt_factory_producer( "fezzik", resource
) );
514 if ( producer
== NULL
)
515 producer
= MLT_SERVICE( mlt_factory_producer( "fezzik", "+INVALID.txt" ) );
517 if ( producer
== NULL
)
518 producer
= MLT_SERVICE( mlt_factory_producer( "fezzik", "colour:red" ) );
520 // Track this producer
521 track_service( context
->destructors
, producer
, (mlt_destructor
) mlt_producer_close
);
523 // Propogate the properties
524 qualify_property( context
, properties
, "resource" );
525 qualify_property( context
, properties
, "luma" );
526 qualify_property( context
, properties
, "luma.resource" );
527 qualify_property( context
, properties
, "composite.luma" );
528 qualify_property( context
, properties
, "producer.resource" );
530 // Handle in/out properties separately
531 mlt_position in
= -1;
532 mlt_position out
= -1;
535 if ( mlt_properties_get( properties
, "in" ) != NULL
)
536 in
= mlt_properties_get_position( properties
, "in" );
537 // Let Kino-SMIL clipBegin be a synonym for in
538 if ( mlt_properties_get( properties
, "clipBegin" ) != NULL
)
540 if ( strchr( mlt_properties_get( properties
, "clipBegin" ), ':' ) )
542 in
= parse_clock_value( mlt_properties_get( properties
, "clipBegin" ),
543 mlt_producer_get_fps( MLT_PRODUCER( producer
) ) );
545 // Parse frames value
546 in
= mlt_properties_get_position( properties
, "clipBegin" );
549 if ( mlt_properties_get( properties
, "out" ) != NULL
)
550 out
= mlt_properties_get_position( properties
, "out" );
551 // Let Kino-SMIL clipEnd be a synonym for out
552 if ( mlt_properties_get( properties
, "clipEnd" ) != NULL
)
554 if ( strchr( mlt_properties_get( properties
, "clipEnd" ), ':' ) )
556 out
= parse_clock_value( mlt_properties_get( properties
, "clipEnd" ),
557 mlt_producer_get_fps( MLT_PRODUCER( producer
) ) );
559 // Parse frames value
560 out
= mlt_properties_get_position( properties
, "clipEnd" );
563 mlt_properties_set( properties
, "in", NULL
);
564 mlt_properties_set( properties
, "out", NULL
);
566 // Inherit the properties
567 mlt_properties_inherit( MLT_SERVICE_PROPERTIES( producer
), properties
);
569 // Attach all filters from service onto producer
570 attach_filters( producer
, service
);
572 // Add the producer to the producer map
573 if ( mlt_properties_get( properties
, "id" ) != NULL
)
574 mlt_properties_set_data( context
->producer_map
, mlt_properties_get(properties
, "id"), producer
, 0, NULL
, NULL
);
576 // See if the producer should be added to a playlist or multitrack
577 if ( add_producer( context
, producer
, in
, out
) == 0 )
579 // Otherwise, set in and out on...
580 if ( in
!= -1 || out
!= -1 )
582 // Get the parent service
583 enum service_type type
;
584 mlt_service parent
= context_pop_service( context
, &type
);
585 if ( parent
!= NULL
)
587 // Get the parent properties
588 properties
= MLT_SERVICE_PROPERTIES( parent
);
590 char *resource
= mlt_properties_get( properties
, "resource" );
592 // Put the parent producer back
593 context_push_service( context
, parent
, type
);
595 // If the parent is a track or entry
596 if ( resource
&& ( strcmp( resource
, "<entry>" ) == 0 ) )
598 mlt_properties_set_position( properties
, "in", in
);
599 mlt_properties_set_position( properties
, "out", out
);
603 // Otherwise, set in and out on producer directly
604 mlt_producer_set_in_and_out( MLT_PRODUCER( producer
), in
, out
);
609 // Otherwise, set in and out on producer directly
610 mlt_producer_set_in_and_out( MLT_PRODUCER( producer
), in
, out
);
614 // Push the producer onto the stack
615 context_push_service( context
, producer
, mlt_producer_type
);
618 mlt_service_close( service
);
622 static void on_start_blank( deserialise_context context
, const xmlChar
*name
, const xmlChar
**atts
)
624 // Get the playlist from the stack
625 enum service_type type
;
626 mlt_service service
= context_pop_service( context
, &type
);
627 mlt_position length
= 0;
629 if ( type
== mlt_playlist_type
&& service
!= NULL
)
631 // Look for the length attribute
632 for ( ; atts
!= NULL
&& *atts
!= NULL
; atts
+= 2 )
634 if ( xmlStrcmp( atts
[0], _x("length") ) == 0 )
636 length
= atoll( _s(atts
[1]) );
641 // Append a blank to the playlist
642 mlt_playlist_blank( MLT_PLAYLIST( service
), length
- 1 );
644 // Push the playlist back onto the stack
645 context_push_service( context
, service
, type
);
649 fprintf( stderr
, "blank without a playlist - a definite no no\n" );
653 static void on_start_entry( deserialise_context context
, const xmlChar
*name
, const xmlChar
**atts
)
655 mlt_producer entry
= NULL
;
656 mlt_properties temp
= mlt_properties_new( );
658 for ( ; atts
!= NULL
&& *atts
!= NULL
; atts
+= 2 )
660 mlt_properties_set( temp
, (char*) atts
[0], atts
[1] == NULL ?
"" : (char*) atts
[1] );
662 // Look for the producer attribute
663 if ( xmlStrcmp( atts
[ 0 ], _x("producer") ) == 0 )
665 mlt_producer producer
= mlt_properties_get_data( context
->producer_map
, (char*) atts
[1], NULL
);
666 if ( producer
!= NULL
)
667 mlt_properties_set_data( temp
, "producer", producer
, 0, NULL
, NULL
);
671 // If we have a valid entry
672 if ( mlt_properties_get_data( temp
, "producer", NULL
) != NULL
)
674 mlt_playlist_clip_info info
;
675 enum service_type parent_type
= invalid_type
;
676 mlt_service parent
= context_pop_service( context
, &parent_type
);
677 mlt_producer producer
= mlt_properties_get_data( temp
, "producer", NULL
);
679 if ( parent_type
== mlt_playlist_type
)
681 // Append the producer to the playlist
682 if ( mlt_properties_get( temp
, "in" ) != NULL
|| mlt_properties_get( temp
, "out" ) != NULL
)
684 mlt_playlist_append_io( MLT_PLAYLIST( parent
), producer
,
685 mlt_properties_get_position( temp
, "in" ),
686 mlt_properties_get_position( temp
, "out" ) );
690 mlt_playlist_append( MLT_PLAYLIST( parent
), producer
);
693 // Handle the repeat property
694 if ( mlt_properties_get_int( temp
, "repeat" ) > 0 )
696 mlt_playlist_repeat_clip( MLT_PLAYLIST( parent
),
697 mlt_playlist_count( MLT_PLAYLIST( parent
) ) - 1,
698 mlt_properties_get_int( temp
, "repeat" ) );
701 mlt_playlist_get_clip_info( MLT_PLAYLIST( parent
), &info
, mlt_playlist_count( MLT_PLAYLIST( parent
) ) - 1 );
706 fprintf( stderr
, "Entry not part of a playlist...\n" );
709 context_push_service( context
, parent
, parent_type
);
712 // Push the cut onto the stack
713 context_push_service( context
, MLT_PRODUCER_SERVICE( entry
), mlt_entry_type
);
715 mlt_properties_close( temp
);
718 static void on_end_entry( deserialise_context context
, const xmlChar
*name
)
720 // Get the entry from the stack
721 enum service_type entry_type
= invalid_type
;
722 mlt_service entry
= context_pop_service( context
, &entry_type
);
724 if ( entry
== NULL
&& entry_type
!= mlt_entry_type
)
726 fprintf( stderr
, "Invalid state at end of entry\n" );
730 static void on_start_track( deserialise_context context
, const xmlChar
*name
, const xmlChar
**atts
)
732 // use a dummy service to hold properties to allow arbitrary nesting
733 mlt_service service
= calloc( 1, sizeof( struct mlt_service_s
) );
734 mlt_service_init( service
, NULL
);
736 // Push the dummy service onto the stack
737 context_push_service( context
, service
, mlt_entry_type
);
739 mlt_properties_set( MLT_SERVICE_PROPERTIES( service
), "resource", "<track>" );
741 for ( ; atts
!= NULL
&& *atts
!= NULL
; atts
+= 2 )
743 mlt_properties_set( MLT_SERVICE_PROPERTIES( service
), (char*) atts
[0], atts
[1] == NULL ?
"" : (char*) atts
[1] );
745 // Look for the producer attribute
746 if ( xmlStrcmp( atts
[ 0 ], _x("producer") ) == 0 )
748 mlt_producer producer
= mlt_properties_get_data( context
->producer_map
, (char*) atts
[1], NULL
);
749 if ( producer
!= NULL
)
750 mlt_properties_set_data( MLT_SERVICE_PROPERTIES( service
), "producer", producer
, 0, NULL
, NULL
);
755 static void on_end_track( deserialise_context context
, const xmlChar
*name
)
757 // Get the track from the stack
758 enum service_type track_type
;
759 mlt_service track
= context_pop_service( context
, &track_type
);
761 if ( track
!= NULL
&& track_type
== mlt_entry_type
)
763 mlt_properties track_props
= MLT_SERVICE_PROPERTIES( track
);
764 enum service_type parent_type
= invalid_type
;
765 mlt_service parent
= context_pop_service( context
, &parent_type
);
766 mlt_multitrack multitrack
= NULL
;
768 mlt_producer producer
= mlt_properties_get_data( track_props
, "producer", NULL
);
769 mlt_properties producer_props
= MLT_PRODUCER_PROPERTIES( producer
);
771 if ( parent_type
== mlt_tractor_type
)
772 multitrack
= mlt_tractor_multitrack( MLT_TRACTOR( parent
) );
773 else if ( parent_type
== mlt_multitrack_type
)
774 multitrack
= MLT_MULTITRACK( parent
);
776 fprintf( stderr
, "track contained in an invalid container\n" );
778 if ( multitrack
!= NULL
)
780 // Set producer i/o if specified
781 if ( mlt_properties_get( track_props
, "in" ) != NULL
||
782 mlt_properties_get( track_props
, "out" ) != NULL
)
784 mlt_producer cut
= mlt_producer_cut( MLT_PRODUCER( producer
),
785 mlt_properties_get_position( track_props
, "in" ),
786 mlt_properties_get_position( track_props
, "out" ) );
787 mlt_multitrack_connect( multitrack
, cut
, mlt_multitrack_count( multitrack
) );
788 mlt_properties_inherit( MLT_PRODUCER_PROPERTIES( cut
), track_props
);
789 track_props
= MLT_PRODUCER_PROPERTIES( cut
);
790 mlt_producer_close( cut
);
794 mlt_multitrack_connect( multitrack
, producer
, mlt_multitrack_count( multitrack
) );
797 // Set the hide state of the track producer
798 char *hide_s
= mlt_properties_get( track_props
, "hide" );
799 if ( hide_s
!= NULL
)
801 if ( strcmp( hide_s
, "video" ) == 0 )
802 mlt_properties_set_int( producer_props
, "hide", 1 );
803 else if ( strcmp( hide_s
, "audio" ) == 0 )
804 mlt_properties_set_int( producer_props
, "hide", 2 );
805 else if ( strcmp( hide_s
, "both" ) == 0 )
806 mlt_properties_set_int( producer_props
, "hide", 3 );
810 if ( parent
!= NULL
)
811 context_push_service( context
, parent
, parent_type
);
813 mlt_service_close( track
);
817 fprintf( stderr
, "Invalid state at end of track\n" );
821 static void on_start_filter( deserialise_context context
, const xmlChar
*name
, const xmlChar
**atts
)
823 // use a dummy service to hold properties to allow arbitrary nesting
824 mlt_service service
= calloc( 1, sizeof( struct mlt_service_s
) );
825 mlt_service_init( service
, NULL
);
827 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
829 context_push_service( context
, service
, mlt_dummy_filter_type
);
831 // Set the properties
832 for ( ; atts
!= NULL
&& *atts
!= NULL
; atts
+= 2 )
833 mlt_properties_set( properties
, (char*) atts
[0], (char*) atts
[1] );
836 static void on_end_filter( deserialise_context context
, const xmlChar
*name
)
838 enum service_type type
;
839 mlt_service service
= context_pop_service( context
, &type
);
840 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
842 enum service_type parent_type
= invalid_type
;
843 mlt_service parent
= context_pop_service( context
, &parent_type
);
845 if ( service
!= NULL
&& type
== mlt_dummy_filter_type
)
847 mlt_service filter
= MLT_SERVICE( mlt_factory_filter( mlt_properties_get( properties
, "mlt_service" ), NULL
) );
848 mlt_properties filter_props
= MLT_SERVICE_PROPERTIES( filter
);
850 track_service( context
->destructors
, filter
, (mlt_destructor
) mlt_filter_close
);
852 // Propogate the properties
853 qualify_property( context
, properties
, "resource" );
854 qualify_property( context
, properties
, "luma" );
855 qualify_property( context
, properties
, "luma.resource" );
856 qualify_property( context
, properties
, "composite.luma" );
857 qualify_property( context
, properties
, "producer.resource" );
858 mlt_properties_inherit( filter_props
, properties
);
860 // Attach all filters from service onto filter
861 attach_filters( filter
, service
);
863 // Associate the filter with the parent
864 if ( parent
!= NULL
)
866 if ( parent_type
== mlt_tractor_type
)
868 mlt_field field
= mlt_tractor_field( MLT_TRACTOR( parent
) );
869 mlt_field_plant_filter( field
, MLT_FILTER( filter
), mlt_properties_get_int( properties
, "track" ) );
870 mlt_filter_set_in_and_out( MLT_FILTER( filter
),
871 mlt_properties_get_int( properties
, "in" ),
872 mlt_properties_get_int( properties
, "out" ) );
876 mlt_service_attach( parent
, MLT_FILTER( filter
) );
879 // Put the parent back on the stack
880 context_push_service( context
, parent
, parent_type
);
884 fprintf( stderr
, "filter closed with invalid parent...\n" );
887 // Close the dummy filter service
888 mlt_service_close( service
);
892 fprintf( stderr
, "Invalid top of stack on filter close\n" );
896 static void on_start_transition( deserialise_context context
, const xmlChar
*name
, const xmlChar
**atts
)
898 // use a dummy service to hold properties to allow arbitrary nesting
899 mlt_service service
= calloc( 1, sizeof( struct mlt_service_s
) );
900 mlt_service_init( service
, NULL
);
902 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
904 context_push_service( context
, service
, mlt_dummy_transition_type
);
906 // Set the properties
907 for ( ; atts
!= NULL
&& *atts
!= NULL
; atts
+= 2 )
908 mlt_properties_set( properties
, (char*) atts
[0], (char*) atts
[1] );
911 static void on_end_transition( deserialise_context context
, const xmlChar
*name
)
913 enum service_type type
;
914 mlt_service service
= context_pop_service( context
, &type
);
915 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
917 enum service_type parent_type
= invalid_type
;
918 mlt_service parent
= context_pop_service( context
, &parent_type
);
920 if ( service
!= NULL
&& type
== mlt_dummy_transition_type
)
922 mlt_service effect
= MLT_SERVICE( mlt_factory_transition(mlt_properties_get(properties
,"mlt_service"), NULL
) );
923 mlt_properties effect_props
= MLT_SERVICE_PROPERTIES( effect
);
925 track_service( context
->destructors
, effect
, (mlt_destructor
) mlt_transition_close
);
927 // Propogate the properties
928 qualify_property( context
, properties
, "resource" );
929 qualify_property( context
, properties
, "luma" );
930 qualify_property( context
, properties
, "luma.resource" );
931 qualify_property( context
, properties
, "composite.luma" );
932 qualify_property( context
, properties
, "producer.resource" );
933 mlt_properties_inherit( effect_props
, properties
);
935 // Attach all filters from service onto effect
936 attach_filters( effect
, service
);
938 // Associate the filter with the parent
939 if ( parent
!= NULL
)
941 if ( parent_type
== mlt_tractor_type
)
943 mlt_field field
= mlt_tractor_field( MLT_TRACTOR( parent
) );
944 if ( mlt_properties_get_int( properties
, "a_track" ) == mlt_properties_get_int( properties
, "b_track" ) )
945 mlt_properties_set_int( properties
, "b_track", mlt_properties_get_int( properties
, "a_track" ) + 1 );
946 mlt_field_plant_transition( field
, MLT_TRANSITION( effect
),
947 mlt_properties_get_int( properties
, "a_track" ),
948 mlt_properties_get_int( properties
, "b_track" ) );
949 mlt_transition_set_in_and_out( MLT_TRANSITION( effect
),
950 mlt_properties_get_int( properties
, "in" ),
951 mlt_properties_get_int( properties
, "out" ) );
955 fprintf( stderr
, "Misplaced transition - ignoring\n" );
958 // Put the parent back on the stack
959 context_push_service( context
, parent
, parent_type
);
963 fprintf( stderr
, "transition closed with invalid parent...\n" );
966 // Close the dummy filter service
967 mlt_service_close( service
);
971 fprintf( stderr
, "Invalid top of stack on transition close\n" );
975 static void on_start_property( deserialise_context context
, const xmlChar
*name
, const xmlChar
**atts
)
977 enum service_type type
;
978 mlt_service service
= context_pop_service( context
, &type
);
979 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
982 if ( service
!= NULL
)
984 // Set the properties
985 for ( ; atts
!= NULL
&& *atts
!= NULL
; atts
+= 2 )
987 if ( xmlStrcmp( atts
[ 0 ], _x("name") ) == 0 )
988 context
->property
= strdup( _s(atts
[ 1 ]) );
989 else if ( xmlStrcmp( atts
[ 0 ], _x("value") ) == 0 )
990 value
= _s(atts
[ 1 ]);
993 if ( context
->property
!= NULL
)
994 mlt_properties_set( properties
, context
->property
, value
== NULL ?
"" : value
);
996 // Tell parser to collect any further nodes for serialisation
997 context
->is_value
= 1;
999 context_push_service( context
, service
, type
);
1003 fprintf( stderr
, "Property without a service '%s'?\n", ( char * )name
);
1007 static void on_end_property( deserialise_context context
, const xmlChar
*name
)
1009 enum service_type type
;
1010 mlt_service service
= context_pop_service( context
, &type
);
1011 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
1013 if ( service
!= NULL
)
1015 // Tell parser to stop building a tree
1016 context
->is_value
= 0;
1018 // See if there is a xml tree for the value
1019 if ( context
->property
!= NULL
&& context
->value_doc
!= NULL
)
1024 // Serialise the tree to get value
1025 xmlDocDumpMemory( context
->value_doc
, &value
, &size
);
1026 mlt_properties_set( properties
, context
->property
, _s(value
) );
1028 xmlFreeDoc( context
->value_doc
);
1029 context
->value_doc
= NULL
;
1032 // Close this property handling
1033 free( context
->property
);
1034 context
->property
= NULL
;
1036 context_push_service( context
, service
, type
);
1040 fprintf( stderr
, "Property without a service '%s'??\n", (char *)name
);
1044 static void on_start_element( void *ctx
, const xmlChar
*name
, const xmlChar
**atts
)
1046 struct _xmlParserCtxt
*xmlcontext
= ( struct _xmlParserCtxt
* )ctx
;
1047 deserialise_context context
= ( deserialise_context
)( xmlcontext
->_private
);
1049 //printf("on_start_element: %s\n", name );
1050 context
->branch
[ context
->depth
] ++;
1053 // Build a tree from nodes within a property value
1054 if ( context
->is_value
== 1 )
1056 xmlNodePtr node
= xmlNewNode( NULL
, name
);
1058 if ( context
->value_doc
== NULL
)
1061 context
->value_doc
= xmlNewDoc( _x("1.0") );
1062 xmlDocSetRootElement( context
->value_doc
, node
);
1066 // Append child to tree
1067 xmlAddChild( context
->stack_node
[ context
->stack_node_size
- 1 ], node
);
1069 context_push_node( context
, node
);
1071 // Set the attributes
1072 for ( ; atts
!= NULL
&& *atts
!= NULL
; atts
+= 2 )
1073 xmlSetProp( node
, atts
[ 0 ], atts
[ 1 ] );
1075 else if ( xmlStrcmp( name
, _x("tractor") ) == 0 )
1076 on_start_tractor( context
, name
, atts
);
1077 else if ( xmlStrcmp( name
, _x("multitrack") ) == 0 )
1078 on_start_multitrack( context
, name
, atts
);
1079 else if ( xmlStrcmp( name
, _x("playlist") ) == 0 || xmlStrcmp( name
, _x("seq") ) == 0 || xmlStrcmp( name
, _x("smil") ) == 0 )
1080 on_start_playlist( context
, name
, atts
);
1081 else if ( xmlStrcmp( name
, _x("producer") ) == 0 || xmlStrcmp( name
, _x("video") ) == 0 )
1082 on_start_producer( context
, name
, atts
);
1083 else if ( xmlStrcmp( name
, _x("blank") ) == 0 )
1084 on_start_blank( context
, name
, atts
);
1085 else if ( xmlStrcmp( name
, _x("entry") ) == 0 )
1086 on_start_entry( context
, name
, atts
);
1087 else if ( xmlStrcmp( name
, _x("track") ) == 0 )
1088 on_start_track( context
, name
, atts
);
1089 else if ( xmlStrcmp( name
, _x("filter") ) == 0 )
1090 on_start_filter( context
, name
, atts
);
1091 else if ( xmlStrcmp( name
, _x("transition") ) == 0 )
1092 on_start_transition( context
, name
, atts
);
1093 else if ( xmlStrcmp( name
, _x("property") ) == 0 )
1094 on_start_property( context
, name
, atts
);
1095 else if ( xmlStrcmp( name
, _x("westley") ) == 0 )
1096 for ( ; atts
!= NULL
&& *atts
!= NULL
; atts
+= 2 )
1097 mlt_properties_set( context
->producer_map
, ( char * )atts
[ 0 ], ( char * )atts
[ 1 ] );
1100 static void on_end_element( void *ctx
, const xmlChar
*name
)
1102 struct _xmlParserCtxt
*xmlcontext
= ( struct _xmlParserCtxt
* )ctx
;
1103 deserialise_context context
= ( deserialise_context
)( xmlcontext
->_private
);
1105 //printf("on_end_element: %s\n", name );
1106 if ( context
->is_value
== 1 && xmlStrcmp( name
, _x("property") ) != 0 )
1107 context_pop_node( context
);
1108 else if ( xmlStrcmp( name
, _x("multitrack") ) == 0 )
1109 on_end_multitrack( context
, name
);
1110 else if ( xmlStrcmp( name
, _x("playlist") ) == 0 || xmlStrcmp( name
, _x("seq") ) == 0 || xmlStrcmp( name
, _x("smil") ) == 0 )
1111 on_end_playlist( context
, name
);
1112 else if ( xmlStrcmp( name
, _x("track") ) == 0 )
1113 on_end_track( context
, name
);
1114 else if ( xmlStrcmp( name
, _x("entry") ) == 0 )
1115 on_end_entry( context
, name
);
1116 else if ( xmlStrcmp( name
, _x("tractor") ) == 0 )
1117 on_end_tractor( context
, name
);
1118 else if ( xmlStrcmp( name
, _x("property") ) == 0 )
1119 on_end_property( context
, name
);
1120 else if ( xmlStrcmp( name
, _x("producer") ) == 0 || xmlStrcmp( name
, _x("video") ) == 0 )
1121 on_end_producer( context
, name
);
1122 else if ( xmlStrcmp( name
, _x("filter") ) == 0 )
1123 on_end_filter( context
, name
);
1124 else if ( xmlStrcmp( name
, _x("transition") ) == 0 )
1125 on_end_transition( context
, name
);
1127 context
->branch
[ context
->depth
] = 0;
1131 static void on_characters( void *ctx
, const xmlChar
*ch
, int len
)
1133 struct _xmlParserCtxt
*xmlcontext
= ( struct _xmlParserCtxt
* )ctx
;
1134 deserialise_context context
= ( deserialise_context
)( xmlcontext
->_private
);
1135 char *value
= calloc( len
+ 1, 1 );
1136 enum service_type type
;
1137 mlt_service service
= context_pop_service( context
, &type
);
1138 mlt_properties properties
= MLT_SERVICE_PROPERTIES( service
);
1140 if ( service
!= NULL
)
1141 context_push_service( context
, service
, type
);
1144 strncpy( value
, (const char*) ch
, len
);
1146 if ( context
->stack_node_size
> 0 )
1147 xmlNodeAddContent( context
->stack_node
[ context
->stack_node_size
- 1 ], ( xmlChar
* )value
);
1149 // libxml2 generates an on_characters immediately after a get_entity within
1150 // an element value, and we ignore it because it is called again during
1151 // actual substitution.
1152 else if ( context
->property
!= NULL
&& context
->entity_is_replace
== 0 )
1154 char *s
= mlt_properties_get( properties
, context
->property
);
1157 // Append new text to existing content
1158 char *new = calloc( strlen( s
) + len
+ 1, 1 );
1160 strcat( new, value
);
1161 mlt_properties_set( properties
, context
->property
, new );
1165 mlt_properties_set( properties
, context
->property
, value
);
1167 context
->entity_is_replace
= 0;
1172 /** Convert parameters parsed from resource into entity declarations.
1174 static void params_to_entities( deserialise_context context
)
1176 if ( context
->params
!= NULL
)
1180 // Add our params as entitiy declarations
1181 for ( i
= 0; i
< mlt_properties_count( context
->params
); i
++ )
1183 xmlChar
*name
= ( xmlChar
* )mlt_properties_get_name( context
->params
, i
);
1184 xmlAddDocEntity( context
->entity_doc
, name
, XML_INTERNAL_GENERAL_ENTITY
,
1185 context
->publicId
, context
->systemId
, ( xmlChar
* )mlt_properties_get( context
->params
, _s(name
) ) );
1189 mlt_properties_close( context
->params
);
1190 context
->params
= NULL
;
1194 // The following 3 facilitate entity substitution in the SAX parser
1195 static void on_internal_subset( void *ctx
, const xmlChar
* name
,
1196 const xmlChar
* publicId
, const xmlChar
* systemId
)
1198 struct _xmlParserCtxt
*xmlcontext
= ( struct _xmlParserCtxt
* )ctx
;
1199 deserialise_context context
= ( deserialise_context
)( xmlcontext
->_private
);
1201 context
->publicId
= publicId
;
1202 context
->systemId
= systemId
;
1203 xmlCreateIntSubset( context
->entity_doc
, name
, publicId
, systemId
);
1205 // Override default entities with our parameters
1206 params_to_entities( context
);
1209 // TODO: Check this with Dan... I think this is for westley parameterisation
1210 // but it's breaking standard escaped entities (like < etc).
1211 static void on_entity_declaration( void *ctx
, const xmlChar
* name
, int type
,
1212 const xmlChar
* publicId
, const xmlChar
* systemId
, xmlChar
* content
)
1214 struct _xmlParserCtxt
*xmlcontext
= ( struct _xmlParserCtxt
* )ctx
;
1215 deserialise_context context
= ( deserialise_context
)( xmlcontext
->_private
);
1217 xmlAddDocEntity( context
->entity_doc
, name
, type
, publicId
, systemId
, content
);
1220 // TODO: Check this functionality (see on_entity_declaration)
1221 static xmlEntityPtr
on_get_entity( void *ctx
, const xmlChar
* name
)
1223 struct _xmlParserCtxt
*xmlcontext
= ( struct _xmlParserCtxt
* )ctx
;
1224 deserialise_context context
= ( deserialise_context
)( xmlcontext
->_private
);
1225 xmlEntityPtr e
= NULL
;
1227 // Setup for entity declarations if not ready
1228 if ( xmlGetIntSubset( context
->entity_doc
) == NULL
)
1230 xmlCreateIntSubset( context
->entity_doc
, _x("westley"), _x(""), _x("") );
1231 context
->publicId
= _x("");
1232 context
->systemId
= _x("");
1235 // Add our parameters if not already
1236 params_to_entities( context
);
1238 e
= xmlGetPredefinedEntity( name
);
1240 // Send signal to on_characters that an entity substitutin is pending
1243 e
= xmlGetDocEntity( context
->entity_doc
, name
);
1245 context
->entity_is_replace
= 1;
1251 /** Convert a hexadecimal character to its value.
1253 static int tohex( char p
)
1255 return isdigit( p
) ? p
- '0' : tolower( p
) - 'a' + 10;
1258 /** Decode a url-encoded string containing hexadecimal character sequences.
1260 static char *url_decode( char *dest
, char *src
)
1268 *p
++ = ( tohex( *( src
+ 1 ) ) << 4 ) | tohex( *( src
+ 2 ) );
1281 /** Extract the filename from a URL attaching parameters to a properties list.
1283 static void parse_url( mlt_properties properties
, char *url
)
1286 int n
= strlen( url
);
1290 for ( i
= 0; i
< n
; i
++ )
1307 if ( name
!= NULL
&& value
!= NULL
)
1308 mlt_properties_set( properties
, name
, value
);
1314 if ( name
!= NULL
&& value
!= NULL
)
1315 mlt_properties_set( properties
, name
, value
);
1318 // Quick workaround to avoid unecessary libxml2 warnings
1319 static int file_exists( char *file
)
1321 char *name
= strdup( file
);
1323 if ( name
!= NULL
&& strchr( name
, '?' ) )
1324 *( strchr( name
, '?' ) ) = '\0';
1327 FILE *f
= fopen( name
, "r" );
1329 if ( exists
) fclose( f
);
1335 mlt_producer
producer_westley_init( int info
, char *data
)
1337 xmlSAXHandler
*sax
= calloc( 1, sizeof( xmlSAXHandler
) );
1338 struct deserialise_context_s
*context
= calloc( 1, sizeof( struct deserialise_context_s
) );
1339 mlt_properties properties
= NULL
;
1341 struct _xmlParserCtxt
*xmlcontext
;
1342 int well_formed
= 0;
1343 char *filename
= NULL
;
1345 if ( data
== NULL
|| !strcmp( data
, "" ) || ( info
== 0 && !file_exists( data
) ) )
1348 context
= calloc( 1, sizeof( struct deserialise_context_s
) );
1349 if ( context
== NULL
)
1352 context
->producer_map
= mlt_properties_new();
1353 context
->destructors
= mlt_properties_new();
1354 context
->params
= mlt_properties_new();
1356 // Decode URL and parse parameters
1357 mlt_properties_set( context
->producer_map
, "root", "" );
1360 filename
= strdup( data
);
1361 parse_url( context
->params
, url_decode( filename
, data
) );
1363 // We need the directory prefix which was used for the westley
1364 if ( strchr( filename
, '/' ) )
1367 mlt_properties_set( context
->producer_map
, "root", filename
);
1368 root
= mlt_properties_get( context
->producer_map
, "root" );
1369 *( strrchr( root
, '/' ) ) = '\0';
1371 // If we don't have an absolute path here, we're heading for disaster...
1372 if ( root
[ 0 ] != '/' )
1374 char *cwd
= getcwd( NULL
, 0 );
1375 char *real
= malloc( strlen( cwd
) + strlen( root
) + 2 );
1376 sprintf( real
, "%s/%s", cwd
, root
);
1377 mlt_properties_set( context
->producer_map
, "root", real
);
1384 // We need to track the number of registered filters
1385 mlt_properties_set_int( context
->destructors
, "registered", 0 );
1387 // Setup SAX callbacks
1388 sax
->startElement
= on_start_element
;
1389 sax
->endElement
= on_end_element
;
1390 sax
->characters
= on_characters
;
1391 sax
->cdataBlock
= on_characters
;
1392 sax
->internalSubset
= on_internal_subset
;
1393 sax
->entityDecl
= on_entity_declaration
;
1394 sax
->getEntity
= on_get_entity
;
1396 // Setup libxml2 SAX parsing
1398 xmlSubstituteEntitiesDefault( 1 );
1399 // This is used to facilitate entity substitution in the SAX parser
1400 context
->entity_doc
= xmlNewDoc( _x("1.0") );
1402 xmlcontext
= xmlCreateFileParserCtxt( filename
);
1404 xmlcontext
= xmlCreateMemoryParserCtxt( data
, strlen( data
) );
1406 // Invalid context - clean up and return NULL
1407 if ( xmlcontext
== NULL
)
1409 mlt_properties_close( context
->producer_map
);
1410 mlt_properties_close( context
->destructors
);
1411 mlt_properties_close( context
->params
);
1418 xmlcontext
->sax
= sax
;
1419 xmlcontext
->_private
= ( void* )context
;
1422 xmlParseDocument( xmlcontext
);
1423 well_formed
= xmlcontext
->wellFormed
;
1425 // Cleanup after parsing
1426 xmlFreeDoc( context
->entity_doc
);
1428 xmlcontext
->sax
= NULL
;
1429 xmlcontext
->_private
= NULL
;
1430 xmlFreeParserCtxt( xmlcontext
);
1431 xmlMemoryDump( ); // for debugging
1433 // Get the last producer on the stack
1434 enum service_type type
;
1435 mlt_service service
= context_pop_service( context
, &type
);
1436 if ( well_formed
&& service
!= NULL
)
1438 // Verify it is a producer service (mlt_type="mlt_producer")
1439 // (producer, playlist, multitrack)
1440 char *type
= mlt_properties_get( MLT_SERVICE_PROPERTIES( service
), "mlt_type" );
1441 if ( type
== NULL
|| ( strcmp( type
, "mlt_producer" ) != 0 && strcmp( type
, "producer" ) != 0 ) )
1446 xmlDocPtr doc
= westley_make_doc( service
);
1447 xmlDocFormatDump( stdout
, doc
, 1 );
1452 if ( well_formed
&& service
!= NULL
)
1454 char *title
= mlt_properties_get( context
->producer_map
, "title" );
1456 // Need the complete producer list for various reasons
1457 properties
= context
->destructors
;
1459 // Now make sure we don't have a reference to the service in the properties
1460 for ( i
= mlt_properties_count( properties
) - 1; i
>= 1; i
-- )
1462 char *name
= mlt_properties_get_name( properties
, i
);
1463 if ( mlt_properties_get_data( properties
, name
, NULL
) == service
)
1465 mlt_properties_set_data( properties
, name
, service
, 0, NULL
, NULL
);
1470 // We are done referencing destructor property list
1471 // Set this var to service properties for convenience
1472 properties
= MLT_SERVICE_PROPERTIES( service
);
1475 mlt_properties_set( properties
, "title", title
);
1477 // Optimise for overlapping producers
1478 mlt_producer_optimise( MLT_PRODUCER( service
) );
1480 // Handle deep copies
1481 if ( getenv( "MLT_WESTLEY_DEEP" ) == NULL
)
1483 // Now assign additional properties
1485 mlt_properties_set( properties
, "resource", data
);
1487 // This tells consumer_westley not to deep copy
1488 mlt_properties_set( properties
, "westley", "was here" );
1492 // Allow the project to be edited
1493 mlt_properties_set( properties
, "_westley", "was here" );
1494 mlt_properties_set_int( properties
, "_mlt_service_hidden", 1 );
1499 // Return null if not well formed
1504 mlt_properties_close( context
->producer_map
);
1505 if ( context
->params
!= NULL
)
1506 mlt_properties_close( context
->params
);
1507 mlt_properties_close( context
->destructors
);
1511 return MLT_PRODUCER( service
);