git.sesse.net Git - mlt/blob - src/melt/melt.c

   1 /*
   2  * melt.c -- MLT command line utility
   3  * Copyright (C) 2002-2010 Ushodaya Enterprises Limited
   4  * Authors: Charles Yates <charles.yates@pandora.be>
   5  *          Dan Dennedy <dan@dennedy.org>
   6  *
   7  * This program is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 2 of the License, or
  10  * (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this program; if not, write to the Free Software Foundation,
  19  * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  20  */
  21
  22 #ifndef _GNU_SOURCE
  23 #define _GNU_SOURCE
  24 #endif
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27 #include <string.h>
  28 #include <sched.h>
  29 #include <libgen.h>
  30 #include <limits.h>
  31
  32 #include <framework/mlt.h>
  33
  34 #ifdef __DARWIN__
  35 #include <SDL.h>
  36 #endif
  37
  38 #include "io.h"
  39
  40 static void transport_action( mlt_producer producer, char *value )
  41 {
  42         mlt_properties properties = MLT_PRODUCER_PROPERTIES( producer );
  43         mlt_multitrack multitrack = mlt_properties_get_data( properties, "multitrack", NULL );
  44         mlt_consumer consumer = mlt_properties_get_data( properties, "transport_consumer", NULL );
  45
  46         mlt_properties_set_int( properties, "stats_off", 1 );
  47
  48         if ( strlen( value ) == 1 )
  49         {
  50                 switch( value[ 0 ] )
  51                 {
  52                         case 'q':
  53                                 mlt_properties_set_int( properties, "done", 1 );
  54                                 break;
  55                         case '0':
  56                                 mlt_producer_set_speed( producer, 1 );
  57                                 mlt_producer_seek( producer, 0 );
  58                                 break;
  59                         case '1':
  60                                 mlt_producer_set_speed( producer, -10 );
  61                                 break;
  62                         case '2':
  63                                 mlt_producer_set_speed( producer, -5 );
  64                                 break;
  65                         case '3':
  66                                 mlt_producer_set_speed( producer, -2 );
  67                                 break;
  68                         case '4':
  69                                 mlt_producer_set_speed( producer, -1 );
  70                                 break;
  71                         case '5':
  72                                 mlt_producer_set_speed( producer, 0 );
  73                                 break;
  74                         case '6':
  75                         case ' ':
  76                                 mlt_producer_set_speed( producer, 1 );
  77                                 break;
  78                         case '7':
  79                                 mlt_producer_set_speed( producer, 2 );
  80                                 break;
  81                         case '8':
  82                                 mlt_producer_set_speed( producer, 5 );
  83                                 break;
  84                         case '9':
  85                                 mlt_producer_set_speed( producer, 10 );
  86                                 break;
  87                         case 'd':
  88                                 if ( multitrack != NULL )
  89                                 {
  90                                         int i = 0;
  91                                         mlt_position last = -1;
  92                                         fprintf( stderr, "\n" );
  93                                         for ( i = 0; 1; i ++ )
  94                                         {
  95                                                 mlt_position time = mlt_multitrack_clip( multitrack, mlt_whence_relative_start, i );
  96                                                 if ( time == last )
  97                                                         break;
  98                                                 last = time;
  99                                                 fprintf( stderr, "%d: %d\n", i, (int)time );
 100                                         }
 101                                 }
 102                                 break;
 103
 104                         case 'g':
 105                                 if ( multitrack != NULL )
 106                                 {
 107                                         mlt_position time = mlt_multitrack_clip( multitrack, mlt_whence_relative_current, 0 );
 108                                         mlt_producer_seek( producer, time );
 109                                 }
 110                                 break;
 111                         case 'H':
 112                                 if ( producer != NULL )
 113                                 {
 114                                         mlt_position position = mlt_producer_position( producer );
 115                                         mlt_producer_seek( producer, position - ( mlt_producer_get_fps( producer ) * 60 ) );
 116                                 }
 117                                 break;
 118                         case 'h':
 119                                 if ( producer != NULL )
 120                                 {
 121                                         mlt_position position = mlt_producer_position( producer );
 122                                         mlt_producer_set_speed( producer, 0 );
 123                                         mlt_producer_seek( producer, position - 1 );
 124                                 }
 125                                 break;
 126                         case 'j':
 127                                 if ( multitrack != NULL )
 128                                 {
 129                                         mlt_position time = mlt_multitrack_clip( multitrack, mlt_whence_relative_current, 1 );
 130                                         mlt_producer_seek( producer, time );
 131                                 }
 132                                 break;
 133                         case 'k':
 134                                 if ( multitrack != NULL )
 135                                 {
 136                                         mlt_position time = mlt_multitrack_clip( multitrack, mlt_whence_relative_current, -1 );
 137                                         mlt_producer_seek( producer, time );
 138                                 }
 139                                 break;
 140                         case 'l':
 141                                 if ( producer != NULL )
 142                                 {
 143                                         mlt_position position = mlt_producer_position( producer );
 144                                         if ( mlt_producer_get_speed( producer ) != 0 )
 145                                                 mlt_producer_set_speed( producer, 0 );
 146                                         else
 147                                                 mlt_producer_seek( producer, position + 1 );
 148                                 }
 149                                 break;
 150                         case 'L':
 151                                 if ( producer != NULL )
 152                                 {
 153                                         mlt_position position = mlt_producer_position( producer );
 154                                         mlt_producer_seek( producer, position + ( mlt_producer_get_fps( producer ) * 60 ) );
 155                                 }
 156                                 break;
 157                 }
 158
 159                 mlt_properties_set_int( MLT_CONSUMER_PROPERTIES( consumer ), "refresh", 1 );
 160         }
 161
 162         mlt_properties_set_int( properties, "stats_off", 0 );
 163 }
 164
 165 static mlt_consumer create_consumer( mlt_profile profile, char *id )
 166 {
 167         char *myid = id ? strdup( id ) : NULL;
 168         char *arg = myid ? strchr( myid, ':' ) : NULL;
 169         if ( arg != NULL )
 170                 *arg ++ = '\0';
 171         mlt_consumer consumer = mlt_factory_consumer( profile, myid, arg );
 172         if ( consumer != NULL )
 173         {
 174                 mlt_properties properties = MLT_CONSUMER_PROPERTIES( consumer );
 175                 mlt_properties_set_data( properties, "transport_callback", transport_action, 0, NULL, NULL );
 176         }
 177         if ( myid )
 178                 free( myid );
 179         return consumer;
 180 }
 181
 182 static void load_consumer( mlt_consumer *consumer, mlt_profile profile, int argc, char **argv )
 183 {
 184         int i;
 185         for ( i = 1; i < argc; i ++ )
 186         {
 187                 if ( !strcmp( argv[ i ], "-consumer" ) )
 188                 {
 189                         if ( *consumer )
 190                                 mlt_consumer_close( *consumer );
 191                         *consumer = create_consumer( profile, argv[ ++ i ] );
 192                         if ( *consumer )
 193                         {
 194                                 mlt_properties properties = MLT_CONSUMER_PROPERTIES( *consumer );
 195                                 while ( argv[ i + 1 ] != NULL && strstr( argv[ i + 1 ], "=" ) )
 196                                         mlt_properties_parse( properties, argv[ ++ i ] );
 197                         }
 198                 }
 199         }
 200 }
 201
 202 #ifdef __DARWIN__
 203
 204 static void event_handling( mlt_producer producer, mlt_consumer consumer )
 205 {
 206         SDL_Event event;
 207
 208         while ( SDL_PollEvent( &event ) )
 209         {
 210                 switch( event.type )
 211                 {
 212                         case SDL_QUIT:
 213                                 mlt_properties_set_int( MLT_PRODUCER_PROPERTIES( consumer ), "done", 1 );
 214                                 break;
 215
 216                         case SDL_KEYDOWN:
 217                                 if ( event.key.keysym.unicode < 0x80 && event.key.keysym.unicode > 0 )
 218                                 {
 219                                         char keyboard[ 2 ] = { event.key.keysym.unicode, 0 };
 220                                         transport_action( producer, keyboard );
 221                                 }
 222                                 break;
 223                 }
 224         }
 225 }
 226
 227 #endif
 228
 229 static void transport( mlt_producer producer, mlt_consumer consumer )
 230 {
 231         mlt_properties properties = MLT_PRODUCER_PROPERTIES( producer );
 232         int silent = mlt_properties_get_int( MLT_CONSUMER_PROPERTIES( consumer ), "silent" );
 233         int progress = mlt_properties_get_int( MLT_CONSUMER_PROPERTIES( consumer ), "progress" );
 234         struct timespec tm = { 0, 40000 };
 235         int total_length = mlt_producer_get_length( producer );
 236         int last_position = 0;
 237
 238         if ( mlt_properties_get_int( properties, "done" ) == 0 && !mlt_consumer_is_stopped( consumer ) )
 239         {
 240                 if ( !silent && !progress )
 241                 {
 242                         term_init( );
 243
 244                         fprintf( stderr, "+-----+ +-----+ +-----+ +-----+ +-----+ +-----+ +-----+ +-----+ +-----+\n" );
 245                         fprintf( stderr, "|1=-10| |2= -5| |3= -2| |4= -1| |5=  0| |6=  1| |7=  2| |8=  5| |9= 10|\n" );
 246                         fprintf( stderr, "+-----+ +-----+ +-----+ +-----+ +-----+ +-----+ +-----+ +-----+ +-----+\n" );
 247
 248                         fprintf( stderr, "+---------------------------------------------------------------------+\n" );
 249                         fprintf( stderr, "|               H = back 1 minute,  L = forward 1 minute              |\n" );
 250                         fprintf( stderr, "|                 h = previous frame,  l = next frame                 |\n" );
 251                         fprintf( stderr, "|           g = start of clip, j = next clip, k = previous clip       |\n" );
 252                         fprintf( stderr, "|                0 = restart, q = quit, space = play                  |\n" );
 253                         fprintf( stderr, "+---------------------------------------------------------------------+\n" );
 254                 }
 255
 256                 while( mlt_properties_get_int( properties, "done" ) == 0 && !mlt_consumer_is_stopped( consumer ) )
 257                 {
 258                         int value = ( silent || progress )? -1 : term_read( );
 259
 260                         if ( value != -1 )
 261                         {
 262                                 char string[ 2 ] = { value, 0 };
 263                                 transport_action( producer, string );
 264                         }
 265
 266 #ifdef __DARWIN__
 267                         event_handling( producer, consumer );
 268 #endif
 269
 270                         if ( !silent && mlt_properties_get_int( properties, "stats_off" ) == 0 )
 271                         {
 272                                 if ( progress )
 273                                 {
 274                                         int current_position = mlt_producer_position( producer );
 275                                         if ( current_position > last_position )
 276                                         {
 277                                                 fprintf( stderr, "Current Frame: %10d, percentage: %10d\r",
 278                                                         current_position, 100 * current_position / total_length );
 279                                                 last_position = current_position;
 280                                         }
 281                                 }
 282                                 else
 283                                 {
 284                                         fprintf( stderr, "Current Position: %10d\r", (int)mlt_producer_position( producer ) );
 285                                 }
 286                         }
 287
 288                         if ( silent || progress )
 289                                 nanosleep( &tm, NULL );
 290                 }
 291
 292                 if ( !silent )
 293                         fprintf( stderr, "\n" );
 294         }
 295 }
 296
 297 static void show_usage( char *program_name )
 298 {
 299         fprintf( stderr,
 300 "Usage: %s [options] [producer [name=value]* ]+\n"
 301 "Options:\n"
 302 "  -attach filter[:arg] [name=value]*       Attach a filter to the output\n"
 303 "  -attach-cut filter[:arg] [name=value]*   Attach a filter to a cut\n"
 304 "  -attach-track filter[:arg] [name=value]* Attach a filter to a track\n"
 305 "  -attach-clip filter[:arg] [name=value]*  Attach a filter to a producer\n"
 306 "  -audio-track | -hide-video               Add an audio-only track\n"
 307 "  -blank frames                            Add blank silence to a track\n"
 308 "  -consumer id[:arg] [name=value]*         Set the consumer (sink)\n"
 309 "  -debug                                   Set the logging level to debug\n"
 310 "  -filter filter[:arg] [name=value]*       Add a filter to the current track\n"
 311 "  -group [name=value]*                     Apply properties repeatedly\n"
 312 "  -help                                    Show this message\n"
 313 "  -join clips                              Join multiple clips into one cut\n"
 314 "  -mix length                              Add a mix between the last two cuts\n"
 315 "  -mixer transition                        Add a transition to the mix\n"
 316 "  -null-track | -hide-track                Add a hidden track\n"
 317 "  -profile name                            Set the processing settings\n"
 318 "  -progress                                Display progress along with position\n"
 319 "  -remove                                  Remove the most recent cut\n"
 320 "  -repeat times                            Repeat the last cut\n"
 321 "  -query                                   List all of the registered services\n"
 322 "  -query \"consumers\" | \"consumer\"=id       List consumers or show info about one\n"
 323 "  -query \"filters\" | \"filter\"=id           List filters or show info about one\n"
 324 "  -query \"producers\" | \"producer\"=id       List producers or show info about one\n"
 325 "  -query \"transitions\" | \"transition\"=id   List transitions, show info about one\n"
 326 "  -serialise [filename]                    Write the commands to a text file\n"
 327 "  -silent                                  Do not display position/transport\n"
 328 "  -split relative-frame                    Split the last cut into two cuts\n"
 329 "  -swap                                    Rearrange the last two cuts\n"
 330 "  -track                                   Add a track\n"
 331 "  -transition id[:arg] [name=value]*       Add a transition\n"
 332 "  -verbose                                 Set the logging level to verbose\n"
 333 "  -version                                 Show the version and copyright\n"
 334 "  -video-track | -hide-audio               Add a video-only track\n"
 335 "For more help: <http://www.mltframework.org/>\n",
 336         basename( program_name ) );
 337 }
 338
 339 static void guess_profile( mlt_producer melt, mlt_profile profile )
 340 {
 341         mlt_frame fr = NULL;
 342         uint8_t *buffer;
 343         mlt_image_format fmt = mlt_image_yuv422;
 344         mlt_properties p;
 345         int w = profile->width;
 346         int h = profile->height;
 347
 348         if ( ! mlt_service_get_frame( MLT_PRODUCER_SERVICE(melt), &fr, 0 ) && fr )
 349         {
 350                 if ( ! mlt_frame_get_image( fr, &buffer, &fmt, &w, &h, 0 ) )
 351                 {
 352                         // Some source properties are not exposed until after the first get_image call.
 353                         mlt_frame_close( fr );
 354                         mlt_service_get_frame( MLT_PRODUCER_SERVICE(melt), &fr, 0 );
 355                         p = MLT_FRAME_PROPERTIES( fr );
 356                         if ( mlt_properties_get_int( p, "meta.media.frame_rate_den" ) && mlt_properties_get_int( p, "meta.media.sample_aspect_den" ) )
 357                         {
 358                                 profile->width = mlt_properties_get_int( p, "meta.media.width" );
 359                                 profile->height = mlt_properties_get_int( p, "meta.media.height" );
 360                                 profile->progressive = mlt_properties_get_int( p, "meta.media.progressive" );
 361                                 profile->frame_rate_num = mlt_properties_get_int( p, "meta.media.frame_rate_num" );
 362                                 profile->frame_rate_den = mlt_properties_get_int( p, "meta.media.frame_rate_den" );
 363                                 profile->sample_aspect_num = mlt_properties_get_int( p, "meta.media.sample_aspect_num" );
 364                                 profile->sample_aspect_den = mlt_properties_get_int( p, "meta.media.sample_aspect_den" );
 365                                 profile->display_aspect_num = (int) ( (double) profile->sample_aspect_num * profile->width / profile->sample_aspect_den + 0.5 );
 366                                 profile->display_aspect_den = profile->height;
 367                         }
 368                 }
 369         }
 370         mlt_frame_close( fr );
 371         mlt_producer_seek( melt, 0 );
 372 }
 373
 374 static void query_metadata( mlt_repository repo, mlt_service_type type, const char *typestr, char *id )
 375 {
 376         mlt_properties metadata = mlt_repository_metadata( repo, type, id );
 377         if ( metadata )
 378         {
 379                 char *s = mlt_properties_serialise_yaml( metadata );
 380                 fprintf( stderr, "%s", s );
 381                 free( s );
 382         }
 383         else
 384         {
 385                 fprintf( stderr, "# No metadata for %s \"%s\"\n", typestr, id );
 386         }
 387 }
 388
 389 static void query_services( mlt_repository repo, mlt_service_type type )
 390 {
 391         mlt_properties services = NULL;
 392         const char *typestr = NULL;
 393         switch ( type )
 394         {
 395                 case consumer_type:
 396                         services = mlt_repository_consumers( repo );
 397                         typestr = "consumers";
 398                         break;
 399                 case filter_type:
 400                         services = mlt_repository_filters( repo );
 401                         typestr = "filters";
 402                         break;
 403                 case producer_type:
 404                         services = mlt_repository_producers( repo );
 405                         typestr = "producers";
 406                         break;
 407                 case transition_type:
 408                         services = mlt_repository_transitions( repo );
 409                         typestr = "transitions";
 410                         break;
 411                 default:
 412                         return;
 413         }
 414         fprintf( stderr, "---\n%s:\n", typestr );
 415         if ( services )
 416         {
 417                 int j;
 418                 for ( j = 0; j < mlt_properties_count( services ); j++ )
 419                         fprintf( stderr, "  - %s\n", mlt_properties_get_name( services, j ) );
 420         }
 421         fprintf( stderr, "...\n" );
 422 }
 423
 424 int main( int argc, char **argv )
 425 {
 426         int i;
 427         mlt_consumer consumer = NULL;
 428         mlt_producer melt = NULL;
 429         FILE *store = NULL;
 430         char *name = NULL;
 431         mlt_profile profile = NULL;
 432         mlt_profile backup_profile = NULL;
 433         int is_progress = 0;
 434         int is_silent = 0;
 435         int is_profile_explicit = 0;
 436
 437         // Construct the factory
 438         mlt_repository repo = mlt_factory_init( NULL );
 439
 440         for ( i = 1; i < argc; i ++ )
 441         {
 442                 // Check for serialisation switch
 443                 if ( !strcmp( argv[ i ], "-serialise" ) )
 444                 {
 445                         name = argv[ ++ i ];
 446                         if ( name != NULL && strstr( name, ".melt" ) )
 447                                 store = fopen( name, "w" );
 448                         else
 449                         {
 450                                 if ( name == NULL || name[0] == '-' )
 451                                         store = stdout;
 452                                 name = NULL;
 453                         }
 454                 }
 455                 // Look for the profile option
 456                 else if ( !strcmp( argv[ i ], "-profile" ) )
 457                 {
 458                         const char *pname = argv[ ++ i ];
 459                         if ( pname && pname[0] != '-' )
 460                                 profile = mlt_profile_init( pname );
 461                 }
 462                 else if ( !strcmp( argv[ i ], "-progress" ) )
 463                 {
 464                         is_progress = 1;
 465                 }
 466                 // Look for the query option
 467                 else if ( !strcmp( argv[ i ], "-query" ) )
 468                 {
 469                         const char *pname = argv[ ++ i ];
 470                         if ( pname && pname[0] != '-' )
 471                         {
 472                                 if ( !strcmp( pname, "consumers" ) || !strcmp( pname, "consumer" ) )
 473                                         query_services( repo, consumer_type );
 474                                 else if ( !strcmp( pname, "filters" ) || !strcmp( pname, "filter" ) )
 475                                         query_services( repo, filter_type );
 476                                 else if ( !strcmp( pname, "producers" ) || !strcmp( pname, "producer" ) )
 477                                         query_services( repo, producer_type );
 478                                 else if ( !strcmp( pname, "transitions" ) || !strcmp( pname, "transition" ) )
 479                                         query_services( repo, transition_type );
 480
 481                                 else if ( !strncmp( pname, "consumer=", 9 ) )
 482                                         query_metadata( repo, consumer_type, "consumer", strchr( pname, '=' ) + 1 );
 483                                 else if ( !strncmp( pname, "filter=", 7 ) )
 484                                         query_metadata( repo, filter_type, "filter", strchr( pname, '=' ) + 1 );
 485                                 else if ( !strncmp( pname, "producer=", 9 ) )
 486                                         query_metadata( repo, producer_type, "producer", strchr( pname, '=' ) + 1 );
 487                                 else if ( !strncmp( pname, "transition=", 11 ) )
 488                                         query_metadata( repo, transition_type, "transition", strchr( pname, '=' ) + 1 );
 489                                 else
 490                                         goto query_all;
 491                         }
 492                         else
 493                         {
 494 query_all:
 495                                 query_services( repo, consumer_type );
 496                                 query_services( repo, filter_type );
 497                                 query_services( repo, producer_type );
 498                                 query_services( repo, transition_type );
 499                                 fprintf( stderr, "# You can query the metadata for a specific service using:\n"
 500                                         "# -query <type>=<identifer>\n"
 501                                         "# where <type> is one of: consumer, filter, producer, or transition.\n" );
 502                         }
 503                         goto exit_factory;
 504                 }
 505                 else if ( !strcmp( argv[ i ], "-silent" ) )
 506                 {
 507                         is_silent = 1;
 508                 }
 509                 else if ( !strcmp( argv[ i ], "-verbose" ) )
 510                 {
 511                         mlt_log_set_level( MLT_LOG_VERBOSE );
 512                 }
 513                 else if ( !strcmp( argv[ i ], "-version" ) || !strcmp( argv[ i ], "--version" ) )
 514                 {
 515                         fprintf( stderr, "MLT %s " VERSION "\n"
 516                                 "Copyright (C) 2002-2010 Ushodaya Enterprises Limited\n"
 517                                 "<http://www.mltframework.org/>\n"
 518                                 "This is free software; see the source for copying conditions.  There is NO\n"
 519                                 "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n",
 520                                 basename( argv[0] ) );
 521                         goto exit_factory;
 522                 }
 523                 else if ( !strcmp( argv[ i ], "-debug" ) )
 524                 {
 525                         mlt_log_set_level( MLT_LOG_DEBUG );
 526                 }
 527         }
 528
 529         // Create profile if not set explicitly
 530         if ( profile == NULL )
 531                 profile = mlt_profile_init( NULL );
 532         else
 533                 is_profile_explicit = 1;
 534
 535         // Look for the consumer option to load profile settings from consumer properties
 536         load_consumer( &consumer, profile, argc, argv );
 537
 538         // Make backup of profile for determining if we need to use 'consumer' producer.
 539         backup_profile = mlt_profile_init( NULL );
 540         memcpy( backup_profile, profile, sizeof( struct mlt_profile_s ) );
 541         backup_profile->description = strdup( "" );
 542
 543         // Get melt producer
 544         if ( argc > 1 )
 545                 melt = mlt_factory_producer( profile, "melt", &argv[ 1 ] );
 546
 547         if ( melt )
 548         {
 549                 // If the producer changed the profile then do not try to guess it.
 550                 if ( profile->width != backup_profile->width ||
 551                      profile->height != backup_profile->height ||
 552                      profile->sample_aspect_num != backup_profile->sample_aspect_num ||
 553                      profile->sample_aspect_den != backup_profile->sample_aspect_den )
 554                 {
 555                         if ( is_profile_explicit )
 556                         {
 557                                 // We need to use the 'consumer' producer.
 558                                 mlt_producer_close( melt );
 559                                 mlt_profile_close( profile );
 560                                 profile = backup_profile;
 561                                 backup_profile = NULL;
 562                                 if ( profile->description )
 563                                         free( profile->description );
 564                                 // This is a hack to signal create_producer() in producer_melt.c.
 565                                 profile->description = strdup( "consumer:" );
 566                                 melt = mlt_factory_producer( profile, "melt", &argv[ 1 ] );
 567                         }
 568                 }
 569                 else if ( ! is_profile_explicit )
 570                 {
 571                         guess_profile( melt, profile );
 572                 }
 573
 574                 // Reload the consumer with the fully qualified profile
 575                 load_consumer( &consumer, profile, argc, argv );
 576
 577                 // If we have no consumer, default to sdl
 578                 if ( store == NULL && consumer == NULL )
 579                         consumer = create_consumer( profile, NULL );
 580         }
 581
 582         // Set transport properties on consumer and produder
 583         if ( consumer != NULL && melt != NULL )
 584         {
 585                 mlt_properties_set_data( MLT_CONSUMER_PROPERTIES( consumer ), "transport_producer", melt, 0, NULL, NULL );
 586                 mlt_properties_set_data( MLT_PRODUCER_PROPERTIES( melt ), "transport_consumer", consumer, 0, NULL, NULL );
 587                 if ( is_progress )
 588                         mlt_properties_set_int(  MLT_CONSUMER_PROPERTIES( consumer ), "progress", is_progress );
 589                 if ( is_silent )
 590                         mlt_properties_set_int(  MLT_CONSUMER_PROPERTIES( consumer ), "silent", is_silent );
 591         }
 592
 593         if ( argc > 1 && melt != NULL && mlt_producer_get_length( melt ) > 0 )
 594         {
 595                 // Parse the arguments
 596                 for ( i = 1; i < argc; i ++ )
 597                 {
 598                         if ( !strcmp( argv[ i ], "-serialise" ) )
 599                         {
 600                                 if ( store != stdout )
 601                                         i ++;
 602                         }
 603                         else
 604                         {
 605                                 if ( store != NULL )
 606                                         fprintf( store, "%s\n", argv[ i ] );
 607
 608                                 i ++;
 609
 610                                 while ( argv[ i ] != NULL && argv[ i ][ 0 ] != '-' )
 611                                 {
 612                                         if ( store != NULL )
 613                                                 fprintf( store, "%s\n", argv[ i ] );
 614                                         i += 1;
 615                                 }
 616
 617                                 i --;
 618                         }
 619                 }
 620
 621                 if ( consumer != NULL && store == NULL )
 622                 {
 623                         // Get melt's properties
 624                         mlt_properties melt_props = MLT_PRODUCER_PROPERTIES( melt );
 625
 626                         // Get the last group
 627                         mlt_properties group = mlt_properties_get_data( melt_props, "group", 0 );
 628
 629                         // Apply group settings
 630                         mlt_properties properties = MLT_CONSUMER_PROPERTIES( consumer );
 631                         mlt_properties_inherit( properties, group );
 632
 633                         // Connect consumer to melt
 634                         mlt_consumer_connect( consumer, MLT_PRODUCER_SERVICE( melt ) );
 635
 636                         // Start the consumer
 637                         mlt_consumer_start( consumer );
 638
 639                         // Transport functionality
 640                         transport( melt, consumer );
 641
 642                         // Stop the consumer
 643                         mlt_consumer_stop( consumer );
 644                 }
 645                 else if ( store != NULL && store != stdout && name != NULL )
 646                 {
 647                         fprintf( stderr, "Project saved as %s.\n", name );
 648                         fclose( store );
 649                 }
 650         }
 651         else
 652         {
 653                 show_usage( argv[0] );
 654         }
 655
 656         // Close the producer
 657         if ( melt != NULL )
 658                 mlt_producer_close( melt );
 659
 660         // Close the consumer
 661         if ( consumer != NULL )
 662                 mlt_consumer_close( consumer );
 663
 664         // Close the factory
 665         mlt_profile_close( profile );
 666         mlt_profile_close( backup_profile );
 667
 668 exit_factory:
 669
 670         mlt_factory_close( );
 671
 672         return 0;
 673 }