1 /*****************************************************************************
2 * stream_output.c : stream output module
3 *****************************************************************************
4 * Copyright (C) 2002-2007 the VideoLAN team
7 * Authors: Christophe Massiot <massiot@via.ecp.fr>
8 * Laurent Aimar <fenrir@via.ecp.fr>
9 * Eric Petit <titer@videolan.org>
11 * This program is free software; you can redistribute it and/or modify
12 * it under the terms of the GNU General Public License as published by
13 * the Free Software Foundation; either version 2 of the License, or
14 * (at your option) any later version.
16 * This program is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU General Public License for more details.
21 * You should have received a copy of the GNU General Public License
22 * along with this program; if not, write to the Free Software
23 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
24 *****************************************************************************/
26 /*****************************************************************************
28 *****************************************************************************/
32 #include <stdlib.h> /* free() */
33 #include <stdio.h> /* sprintf() */
34 #include <string.h> /* strerror() */
38 #include "stream_output.h"
42 #include "input/input_internal.h"
45 /*****************************************************************************
47 *****************************************************************************/
48 #define sout_stream_url_to_chain( p, s ) \
49 _sout_stream_url_to_chain( VLC_OBJECT(p), s )
50 static char *_sout_stream_url_to_chain( vlc_object_t *, char * );
64 /* mrl_Parse: parse psz_mrl and fill p_mrl */
65 static int mrl_Parse( mrl_t *p_mrl, const char *psz_mrl );
66 /* mrl_Clean: clean p_mrl after a call to mrl_Parse */
67 static void mrl_Clean( mrl_t *p_mrl );
69 /*****************************************************************************
70 * sout_NewInstance: creates a new stream output instance
71 *****************************************************************************/
72 sout_instance_t *__sout_NewInstance( vlc_object_t *p_parent, char * psz_dest )
74 sout_instance_t *p_sout;
77 if( var_Get( p_parent, "sout-keep", &keep ) < 0 )
79 msg_Warn( p_parent, "cannot get sout-keep value" );
80 keep.b_bool = VLC_FALSE;
84 if( ( p_sout = vlc_object_find( p_parent, VLC_OBJECT_SOUT,
85 FIND_ANYWHERE ) ) != NULL )
87 if( !strcmp( p_sout->psz_sout, psz_dest ) )
89 msg_Dbg( p_parent, "sout keep: reusing sout" );
90 msg_Dbg( p_parent, "sout keep: you probably want to use "
91 "gather stream_out" );
92 vlc_object_detach( p_sout );
93 vlc_object_attach( p_sout, p_parent );
94 vlc_object_release( p_sout );
99 msg_Dbg( p_parent, "sout keep: destroying unusable sout" );
100 vlc_object_release( p_sout );
101 sout_DeleteInstance( p_sout );
105 else if( !keep.b_bool )
107 while( ( p_sout = vlc_object_find( p_parent, VLC_OBJECT_SOUT,
108 FIND_PARENT ) ) != NULL )
110 msg_Dbg( p_parent, "sout keep: destroying old sout" );
111 vlc_object_release( p_sout );
112 sout_DeleteInstance( p_sout );
116 /* *** Allocate descriptor *** */
117 p_sout = vlc_object_create( p_parent, VLC_OBJECT_SOUT );
120 msg_Err( p_parent, "out of memory" );
124 /* *** init descriptor *** */
125 p_sout->psz_sout = strdup( psz_dest );
126 p_sout->p_meta = NULL;
127 p_sout->i_out_pace_nocontrol = 0;
128 p_sout->p_sys = NULL;
130 vlc_mutex_init( p_sout, &p_sout->lock );
131 if( psz_dest && psz_dest[0] == '#' )
133 p_sout->psz_chain = strdup( &psz_dest[1] );
137 p_sout->psz_chain = sout_stream_url_to_chain( p_sout, psz_dest );
138 msg_Dbg( p_sout, "using sout chain=`%s'", p_sout->psz_chain );
140 p_sout->p_stream = NULL;
142 /* attach it for inherit */
143 vlc_object_attach( p_sout, p_parent );
145 p_sout->p_stream = sout_StreamNew( p_sout, p_sout->psz_chain );
147 if( p_sout->p_stream == NULL )
149 msg_Err( p_sout, "stream chain failed for `%s'", p_sout->psz_chain );
151 FREENULL( p_sout->psz_sout );
152 FREENULL( p_sout->psz_chain );
154 vlc_object_detach( p_sout );
155 vlc_object_destroy( p_sout );
162 /*****************************************************************************
163 * sout_DeleteInstance: delete a previously allocated instance
164 *****************************************************************************/
165 void sout_DeleteInstance( sout_instance_t * p_sout )
168 vlc_object_detach( p_sout );
170 /* remove the stream out chain */
171 sout_StreamDelete( p_sout->p_stream );
173 /* *** free all string *** */
174 FREENULL( p_sout->psz_sout );
175 FREENULL( p_sout->psz_chain );
180 vlc_meta_Delete( p_sout->p_meta );
183 vlc_mutex_destroy( &p_sout->lock );
185 /* *** free structure *** */
186 vlc_object_destroy( p_sout );
189 /*****************************************************************************
191 *****************************************************************************/
192 sout_packetizer_input_t *sout_InputNew( sout_instance_t *p_sout,
195 sout_packetizer_input_t *p_input;
197 msg_Dbg( p_sout, "adding a new input" );
199 /* *** create a packetizer input *** */
200 p_input = malloc( sizeof( sout_packetizer_input_t ) );
201 p_input->p_sout = p_sout;
202 p_input->p_fmt = p_fmt;
204 if( p_fmt->i_codec == VLC_FOURCC( 'n', 'u', 'l', 'l' ) )
206 vlc_object_release( p_sout );
210 /* *** add it to the stream chain */
211 vlc_mutex_lock( &p_sout->lock );
212 p_input->id = p_sout->p_stream->pf_add( p_sout->p_stream, p_fmt );
213 vlc_mutex_unlock( &p_sout->lock );
215 if( p_input->id == NULL )
224 /*****************************************************************************
226 *****************************************************************************/
227 int sout_InputDelete( sout_packetizer_input_t *p_input )
229 sout_instance_t *p_sout = p_input->p_sout;
231 msg_Dbg( p_sout, "removing an input" );
233 if( p_input->p_fmt->i_codec != VLC_FOURCC( 'n', 'u', 'l', 'l' ) )
235 vlc_mutex_lock( &p_sout->lock );
236 p_sout->p_stream->pf_del( p_sout->p_stream, p_input->id );
237 vlc_mutex_unlock( &p_sout->lock );
242 return( VLC_SUCCESS);
245 /*****************************************************************************
247 *****************************************************************************/
248 int sout_InputSendBuffer( sout_packetizer_input_t *p_input,
251 sout_instance_t *p_sout = p_input->p_sout;
254 if( p_input->p_fmt->i_codec == VLC_FOURCC( 'n', 'u', 'l', 'l' ) )
256 block_Release( p_buffer );
259 if( p_buffer->i_dts <= 0 )
261 msg_Warn( p_sout, "trying to send non-dated packet to stream output!");
262 block_Release( p_buffer );
266 vlc_mutex_lock( &p_sout->lock );
267 i_ret = p_sout->p_stream->pf_send( p_sout->p_stream,
268 p_input->id, p_buffer );
269 vlc_mutex_unlock( &p_sout->lock );
274 /*****************************************************************************
275 * sout_AccessOutNew: allocate a new access out
276 *****************************************************************************/
277 sout_access_out_t *sout_AccessOutNew( sout_instance_t *p_sout,
278 char *psz_access, char *psz_name )
280 sout_access_out_t *p_access;
283 if( !( p_access = vlc_object_create( p_sout,
284 sizeof( sout_access_out_t ) ) ) )
286 msg_Err( p_sout, "out of memory" );
290 psz_next = config_ChainCreate( &p_access->psz_access, &p_access->p_cfg,
296 p_access->psz_name = strdup( psz_name ? psz_name : "" );
297 p_access->p_sout = p_sout;
298 p_access->p_sys = NULL;
299 p_access->pf_seek = NULL;
300 p_access->pf_read = NULL;
301 p_access->pf_write = NULL;
302 p_access->pf_control = NULL;
303 p_access->p_module = NULL;
305 p_access->i_writes = 0;
306 p_access->i_sent_bytes = 0;
308 vlc_object_attach( p_access, p_sout );
311 module_Need( p_access, "sout access", p_access->psz_access, VLC_TRUE );
313 if( !p_access->p_module )
315 free( p_access->psz_access );
316 free( p_access->psz_name );
317 vlc_object_detach( p_access );
318 vlc_object_destroy( p_access );
324 /*****************************************************************************
325 * sout_AccessDelete: delete an access out
326 *****************************************************************************/
327 void sout_AccessOutDelete( sout_access_out_t *p_access )
329 vlc_object_detach( p_access );
330 if( p_access->p_module )
332 module_Unneed( p_access, p_access->p_module );
334 free( p_access->psz_access );
336 config_ChainDestroy( p_access->p_cfg );
338 free( p_access->psz_name );
340 vlc_object_destroy( p_access );
343 /*****************************************************************************
345 *****************************************************************************/
346 int sout_AccessOutSeek( sout_access_out_t *p_access, off_t i_pos )
348 return p_access->pf_seek( p_access, i_pos );
351 /*****************************************************************************
353 *****************************************************************************/
354 int sout_AccessOutRead( sout_access_out_t *p_access, block_t *p_buffer )
356 return( p_access->pf_read ?
357 p_access->pf_read( p_access, p_buffer ) : VLC_EGENERIC );
360 /*****************************************************************************
362 *****************************************************************************/
363 int sout_AccessOutWrite( sout_access_out_t *p_access, block_t *p_buffer )
366 p_access->i_writes++;
367 p_access->i_sent_bytes += p_buffer->i_buffer;
368 if( p_access->p_libvlc->b_stats && p_access->i_writes % 30 == 0 )
370 /* Access_out -> sout_instance -> input_thread_t */
371 input_thread_t *p_input =
372 (input_thread_t *)vlc_object_find( p_access, VLC_OBJECT_INPUT,
376 stats_UpdateInteger( p_input, p_input->p->counters.p_sout_sent_packets,
378 stats_UpdateInteger( p_input, p_input->p->counters.p_sout_sent_bytes,
379 p_access->i_sent_bytes, &i_total );
380 stats_UpdateFloat( p_input, p_input->p->counters.p_sout_send_bitrate,
381 (float)i_total, NULL );
382 p_access->i_sent_bytes = 0;
383 vlc_object_release( p_input );
386 return p_access->pf_write( p_access, p_buffer );
390 * sout_AccessOutControl
392 int sout_AccessOutControl (sout_access_out_t *access, int query, va_list args)
394 return (access->pf_control) ? access->pf_control (access, query, args)
398 /*****************************************************************************
399 * sout_MuxNew: create a new mux
400 *****************************************************************************/
401 sout_mux_t * sout_MuxNew( sout_instance_t *p_sout, char *psz_mux,
402 sout_access_out_t *p_access )
407 p_mux = vlc_object_create( p_sout, sizeof( sout_mux_t ) );
410 msg_Err( p_sout, "out of memory" );
414 p_mux->p_sout = p_sout;
415 psz_next = config_ChainCreate( &p_mux->psz_mux, &p_mux->p_cfg, psz_mux );
416 if( psz_next ) free( psz_next );
418 p_mux->p_access = p_access;
419 p_mux->pf_control = NULL;
420 p_mux->pf_addstream = NULL;
421 p_mux->pf_delstream = NULL;
422 p_mux->pf_mux = NULL;
423 p_mux->i_nb_inputs = 0;
424 p_mux->pp_inputs = NULL;
427 p_mux->p_module = NULL;
429 p_mux->b_add_stream_any_time = VLC_FALSE;
430 p_mux->b_waiting_stream = VLC_TRUE;
431 p_mux->i_add_stream_start = -1;
433 vlc_object_attach( p_mux, p_sout );
436 module_Need( p_mux, "sout mux", p_mux->psz_mux, VLC_TRUE );
438 if( p_mux->p_module == NULL )
440 FREENULL( p_mux->psz_mux );
442 vlc_object_detach( p_mux );
443 vlc_object_destroy( p_mux );
447 /* *** probe mux capacity *** */
448 if( p_mux->pf_control )
450 int b_answer = VLC_FALSE;
452 if( sout_MuxControl( p_mux, MUX_CAN_ADD_STREAM_WHILE_MUXING,
455 b_answer = VLC_FALSE;
460 msg_Dbg( p_sout, "muxer support adding stream at any time" );
461 p_mux->b_add_stream_any_time = VLC_TRUE;
462 p_mux->b_waiting_stream = VLC_FALSE;
464 /* If we control the output pace then it's better to wait before
465 * starting muxing (generates better streams/files). */
466 if( !p_sout->i_out_pace_nocontrol )
470 else if( sout_MuxControl( p_mux, MUX_GET_ADD_STREAM_WAIT,
473 b_answer = VLC_FALSE;
478 msg_Dbg( p_sout, "muxer prefers to wait for all ES before "
480 p_mux->b_waiting_stream = VLC_TRUE;
488 /*****************************************************************************
490 *****************************************************************************/
491 void sout_MuxDelete( sout_mux_t *p_mux )
493 vlc_object_detach( p_mux );
494 if( p_mux->p_module )
496 module_Unneed( p_mux, p_mux->p_module );
498 free( p_mux->psz_mux );
500 config_ChainDestroy( p_mux->p_cfg );
502 vlc_object_destroy( p_mux );
505 /*****************************************************************************
507 *****************************************************************************/
508 sout_input_t *sout_MuxAddStream( sout_mux_t *p_mux, es_format_t *p_fmt )
510 sout_input_t *p_input;
512 if( !p_mux->b_add_stream_any_time && !p_mux->b_waiting_stream )
514 msg_Err( p_mux, "cannot add a new stream (unsupported while muxing "
519 msg_Dbg( p_mux, "adding a new input" );
521 /* create a new sout input */
522 p_input = malloc( sizeof( sout_input_t ) );
523 p_input->p_sout = p_mux->p_sout;
524 p_input->p_fmt = p_fmt;
525 p_input->p_fifo = block_FifoNew( p_mux->p_sout );
526 p_input->p_sys = NULL;
528 TAB_APPEND( p_mux->i_nb_inputs, p_mux->pp_inputs, p_input );
529 if( p_mux->pf_addstream( p_mux, p_input ) < 0 )
531 msg_Err( p_mux, "cannot add this stream" );
532 TAB_REMOVE( p_mux->i_nb_inputs, p_mux->pp_inputs, p_input );
533 block_FifoRelease( p_input->p_fifo );
541 /*****************************************************************************
542 * sout_MuxDeleteStream:
543 *****************************************************************************/
544 void sout_MuxDeleteStream( sout_mux_t *p_mux, sout_input_t *p_input )
548 if( p_mux->b_waiting_stream && p_input->p_fifo->i_depth > 0 )
550 /* We stop waiting, and call the muxer for taking care of the data
551 * before we remove this es */
552 p_mux->b_waiting_stream = VLC_FALSE;
553 p_mux->pf_mux( p_mux );
556 TAB_FIND( p_mux->i_nb_inputs, p_mux->pp_inputs, p_input, i_index );
559 if( p_mux->pf_delstream( p_mux, p_input ) < 0 )
561 msg_Err( p_mux, "cannot delete this stream from mux" );
564 /* remove the entry */
565 TAB_REMOVE( p_mux->i_nb_inputs, p_mux->pp_inputs, p_input );
567 if( p_mux->i_nb_inputs == 0 )
569 msg_Warn( p_mux, "no more input streams for this mux" );
572 block_FifoRelease( p_input->p_fifo );
577 /*****************************************************************************
578 * sout_MuxSendBuffer:
579 *****************************************************************************/
580 void sout_MuxSendBuffer( sout_mux_t *p_mux, sout_input_t *p_input,
583 block_FifoPut( p_input->p_fifo, p_buffer );
585 if( p_mux->p_sout->i_out_pace_nocontrol )
587 mtime_t current_date = mdate();
588 if ( current_date > p_buffer->i_dts )
589 msg_Warn( p_mux, "late buffer for mux input ("I64Fd")",
590 current_date - p_buffer->i_dts );
593 if( p_mux->b_waiting_stream )
595 if( p_mux->i_add_stream_start < 0 )
597 p_mux->i_add_stream_start = p_buffer->i_dts;
600 if( p_mux->i_add_stream_start >= 0 &&
601 p_mux->i_add_stream_start + I64C(1500000) < p_buffer->i_dts )
603 /* Wait until we have more than 1.5 seconds worth of data
604 * before start muxing */
605 p_mux->b_waiting_stream = VLC_FALSE;
612 p_mux->pf_mux( p_mux );
615 /*****************************************************************************
617 *****************************************************************************/
618 static int mrl_Parse( mrl_t *p_mrl, const char *psz_mrl )
620 char * psz_dup = strdup( psz_mrl );
621 char * psz_parser = psz_dup;
622 const char * psz_access;
623 const char * psz_way;
626 /* *** first parse psz_dest */
627 while( *psz_parser && *psz_parser != ':' )
629 if( *psz_parser == '{' )
631 while( *psz_parser && *psz_parser != '}' )
645 #if defined( WIN32 ) || defined( UNDER_CE )
646 if( psz_parser - psz_dup == 1 )
648 /* msg_Warn( p_sout, "drive letter %c: found in source string",
656 psz_access = psz_way = "";
661 *psz_parser++ = '\0';
663 /* let's skip '//' */
664 if( psz_parser[0] == '/' && psz_parser[1] == '/' )
669 psz_name = psz_parser ;
671 /* Come back to parse the access and mux plug-ins */
672 psz_parser = psz_dup;
679 else if( *psz_parser == '/' )
687 psz_access = psz_parser;
689 while( *psz_parser && *psz_parser != '/' )
691 if( *psz_parser == '{' )
693 while( *psz_parser && *psz_parser != '}' )
708 if( *psz_parser == '/' )
710 *psz_parser++ = '\0';
721 psz_way = psz_parser;
725 p_mrl->psz_access = strdup( psz_access );
726 p_mrl->psz_way = strdup( psz_way );
727 p_mrl->psz_name = strdup( psz_name );
730 return( VLC_SUCCESS );
734 /* mrl_Clean: clean p_mrl after a call to mrl_Parse */
735 static void mrl_Clean( mrl_t *p_mrl )
737 FREENULL( p_mrl->psz_access );
738 FREENULL( p_mrl->psz_way );
739 FREENULL( p_mrl->psz_name );
743 /****************************************************************************
744 ****************************************************************************
748 ****************************************************************************
749 ****************************************************************************/
751 /* create a complete chain */
753 module{option=*:option=*}[:module{option=*:...}]
757 * parse module{options=str, option="str "}:
758 * return a pointer on the rest
759 * XXX: psz_chain is modified
761 #define SKIPSPACE( p ) { while( *p && ( *p == ' ' || *p == '\t' ) ) p++; }
762 #define SKIPTRAILINGSPACE( p, e ) \
763 { while( e > p && ( *(e-1) == ' ' || *(e-1) == '\t' ) ) e--; }
765 /* go accross " " and { } */
766 static char *_get_chain_end( char *str )
774 if( !*p || *p == ',' || *p == '}' ) return p;
776 if( *p != '{' && *p != '"' && *p != '\'' )
782 if( *p == '{' ) c = '}';
790 if( *p == c ) return ++p;
791 else if( *p == '{' && c == '}' ) p = _get_chain_end( p );
798 * XXX name and p_cfg are used (-> do NOT free them)
800 sout_stream_t *sout_StreamNew( sout_instance_t *p_sout, char *psz_chain )
802 sout_stream_t *p_stream;
806 msg_Err( p_sout, "invalid chain" );
810 p_stream = vlc_object_create( p_sout, sizeof( sout_stream_t ) );
814 msg_Err( p_sout, "out of memory" );
818 p_stream->p_sout = p_sout;
819 p_stream->p_sys = NULL;
822 config_ChainCreate( &p_stream->psz_name, &p_stream->p_cfg, psz_chain);
824 msg_Dbg( p_sout, "stream=`%s'", p_stream->psz_name );
826 vlc_object_attach( p_stream, p_sout );
829 module_Need( p_stream, "sout stream", p_stream->psz_name, VLC_TRUE );
831 if( !p_stream->p_module )
833 sout_StreamDelete( p_stream );
840 void sout_StreamDelete( sout_stream_t *p_stream )
842 msg_Dbg( p_stream, "destroying chain... (name=%s)", p_stream->psz_name );
844 vlc_object_detach( p_stream );
845 if( p_stream->p_module ) module_Unneed( p_stream, p_stream->p_module );
847 FREENULL( p_stream->psz_name );
848 FREENULL( p_stream->psz_next );
850 config_ChainDestroy( p_stream->p_cfg );
852 msg_Dbg( p_stream, "destroying chain done" );
853 vlc_object_destroy( p_stream );
856 static char *_sout_stream_url_to_chain( vlc_object_t *p_this, char *psz_url )
861 mrl_Parse( &mrl, psz_url );
862 p = psz_chain = malloc( 500 + strlen( mrl.psz_way ) +
863 strlen( mrl.psz_access ) +
864 strlen( mrl.psz_name ) );
867 if( config_GetInt( p_this, "sout-display" ) )
869 p += sprintf( p, "duplicate{dst=display,dst=std{mux=\"%s\","
870 "access=\"%s\",dst=\"%s\"}}",
871 mrl.psz_way, mrl.psz_access, mrl.psz_name );
875 p += sprintf( p, "std{mux=\"%s\",access=\"%s\",dst=\"%s\"}",
876 mrl.psz_way, mrl.psz_access, mrl.psz_name );