0c562fb7e6d14c248cefc78743a66491da3072a9
[vlc.git] / src / input / es_out.c
1 /*****************************************************************************
2  * es_out.c: Es Out handler for input.
3  *****************************************************************************
4  * Copyright (C) 2003-2004 VideoLAN
5  * $Id$
6  *
7  * Authors: Laurent Aimar <fenrir@via.ecp.fr>
8  *
9  * This program is free software; you can redistribute it and/or modify
10  * it under the terms of the GNU General Public License as published by
11  * the Free Software Foundation; either version 2 of the License, or
12  * (at your option) any later version.
13  *
14  * This program is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17  * GNU General Public License for more details.
18  *
19  * You should have received a copy of the GNU General Public License
20  * along with this program; if not, write to the Free Software
21  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
22  *****************************************************************************/
23
24 /*****************************************************************************
25  * Preamble
26  *****************************************************************************/
27 #include <stdlib.h>
28
29 #include <vlc/vlc.h>
30 #include <vlc/input.h>
31 #include <vlc/decoder.h>
32
33 #include "input_internal.h"
34
35 #include "vlc_playlist.h"
36 #include "iso_lang.h"
37 /* FIXME we should find a better way than including that */
38 #include "../misc/iso-639_def.h"
39
40 /*****************************************************************************
41  * Local prototypes
42  *****************************************************************************/
43 typedef struct
44 {
45     /* Program ID */
46     int i_id;
47
48     /* Number of es for this pgrm */
49     int i_es;
50
51     vlc_bool_t b_selected;
52
53     /* Clock for this program */
54     input_clock_t clock;
55
56 } es_out_pgrm_t;
57
58 struct es_out_id_t
59 {
60     /* ES ID */
61     int       i_id;
62     es_out_pgrm_t *p_pgrm;
63
64     /* */
65     int64_t i_preroll_end;
66
67     /* Channel in the track type */
68     int         i_channel;
69     es_format_t fmt;
70     char        *psz_language;
71     char        *psz_language_code;
72     decoder_t   *p_dec;
73 };
74
75 struct es_out_sys_t
76 {
77     input_thread_t *p_input;
78
79     /* all programs */
80     int           i_pgrm;
81     es_out_pgrm_t **pgrm;
82     es_out_pgrm_t **pp_selected_pgrm; /* --programs */
83     es_out_pgrm_t *p_pgrm;  /* Master program */
84
85     /* all es */
86     int         i_id;
87     int         i_es;
88     es_out_id_t **es;
89
90     /* mode gestion */
91     vlc_bool_t  b_active;
92     int         i_mode;
93
94     /* es count */
95     int         i_audio;
96     int         i_video;
97     int         i_sub;
98
99     /* es to select */
100     int         i_audio_last;
101     int         i_sub_last;
102     char        **ppsz_audio_language;
103     char        **ppsz_sub_language;
104
105     /* current main es */
106     es_out_id_t *p_es_audio;
107     es_out_id_t *p_es_video;
108     es_out_id_t *p_es_sub;
109
110     /* delay */
111     int64_t i_audio_delay;
112     int64_t i_spu_delay;
113 };
114
115 static es_out_id_t *EsOutAdd    ( es_out_t *, es_format_t * );
116 static int          EsOutSend   ( es_out_t *, es_out_id_t *, block_t * );
117 static void         EsOutDel    ( es_out_t *, es_out_id_t * );
118 static void         EsOutSelect( es_out_t *out, es_out_id_t *es, vlc_bool_t b_force );
119 static int          EsOutControl( es_out_t *, int i_query, va_list );
120
121 static void         EsOutAddInfo( es_out_t *, es_out_id_t *es );
122
123 static void EsSelect( es_out_t *out, es_out_id_t *es );
124 static void EsUnselect( es_out_t *out, es_out_id_t *es, vlc_bool_t b_update );
125 static char *LanguageGetName( const char *psz_code );
126 static char *LanguageGetCode( const char *psz_lang );
127 static char **LanguageSplit( const char *psz_langs );
128 static int LanguageArrayIndex( char **ppsz_langs, char *psz_lang );
129
130 /*****************************************************************************
131  * input_EsOutNew:
132  *****************************************************************************/
133 es_out_t *input_EsOutNew( input_thread_t *p_input )
134 {
135     es_out_t     *out = malloc( sizeof( es_out_t ) );
136     es_out_sys_t *p_sys = malloc( sizeof( es_out_sys_t ) );
137     vlc_value_t  val;
138     int i;
139
140     out->pf_add     = EsOutAdd;
141     out->pf_send    = EsOutSend;
142     out->pf_del     = EsOutDel;
143     out->pf_control = EsOutControl;
144     out->p_sys      = p_sys;
145
146     p_sys->p_input = p_input;
147
148     p_sys->b_active = VLC_FALSE;
149     p_sys->i_mode   = ES_OUT_MODE_AUTO;
150
151
152     p_sys->i_pgrm   = 0;
153     p_sys->pgrm     = NULL;
154     p_sys->p_pgrm   = NULL;
155
156     p_sys->i_id    = 0;
157     p_sys->i_es    = 0;
158     p_sys->es      = NULL;
159
160     p_sys->i_audio = 0;
161     p_sys->i_video = 0;
162     p_sys->i_sub   = 0;
163
164     /* */
165     var_Get( p_input, "audio-track", &val );
166     p_sys->i_audio_last = val.i_int;
167
168     var_Get( p_input, "sub-track", &val );
169     p_sys->i_sub_last = val.i_int;
170
171     var_Get( p_input, "audio-language", &val );
172     p_sys->ppsz_audio_language = LanguageSplit(val.psz_string);
173     if( p_sys->ppsz_audio_language )
174     {
175         for( i = 0; p_sys->ppsz_audio_language[i]; i++ )
176             msg_Dbg( p_input, "Select audio in language[%d] %s",
177                      i, p_sys->ppsz_audio_language[i] );
178     }
179
180     var_Get( p_input, "sub-language", &val );
181     p_sys->ppsz_sub_language = LanguageSplit(val.psz_string);
182     if( p_sys->ppsz_sub_language )
183     {
184         for( i = 0; p_sys->ppsz_sub_language[i]; i++ )
185             msg_Dbg( p_input, "Select subtitle in language[%d] %s",
186                      i, p_sys->ppsz_sub_language[i] );
187     }
188
189     /* */
190     p_sys->p_es_audio = NULL;
191     p_sys->p_es_video = NULL;
192     p_sys->p_es_sub   = NULL;
193
194     p_sys->i_audio_delay= 0;
195     p_sys->i_spu_delay  = 0;
196
197     return out;
198 }
199
200 /*****************************************************************************
201  * input_EsOutDelete:
202  *****************************************************************************/
203 void input_EsOutDelete( es_out_t *out )
204 {
205     es_out_sys_t *p_sys = out->p_sys;
206     int i;
207
208     for( i = 0; i < p_sys->i_es; i++ )
209     {
210         if( p_sys->es[i]->p_dec )
211         {
212             input_DecoderDelete( p_sys->es[i]->p_dec );
213         }
214         if( p_sys->es[i]->psz_language )
215             free( p_sys->es[i]->psz_language );
216         if( p_sys->es[i]->psz_language_code )
217             free( p_sys->es[i]->psz_language_code );
218         es_format_Clean( &p_sys->es[i]->fmt );
219
220         free( p_sys->es[i] );
221     }
222     if( p_sys->ppsz_audio_language )
223     {
224         for( i = 0; p_sys->ppsz_audio_language[i]; i++ )
225             free( p_sys->ppsz_audio_language[i] );
226         free( p_sys->ppsz_audio_language );
227     }
228     if( p_sys->ppsz_sub_language )
229     {
230         for( i = 0; p_sys->ppsz_sub_language[i]; i++ )
231             free( p_sys->ppsz_sub_language[i] );
232         free( p_sys->ppsz_sub_language );
233     }
234
235     if( p_sys->es )
236         free( p_sys->es );
237
238     for( i = 0; i < p_sys->i_pgrm; i++ )
239     {
240         free( p_sys->pgrm[i] );
241     }
242     if( p_sys->pgrm )
243         free( p_sys->pgrm );
244
245     free( p_sys );
246     free( out );
247 }
248
249 es_out_id_t *input_EsOutGetFromID( es_out_t *out, int i_id )
250 {
251     int i;
252     if( i_id < 0 )
253     {
254         /* Special HACK, -i_id is tha cat of the stream */
255         return (es_out_id_t*)((uint8_t*)NULL-i_id);
256     }
257
258     for( i = 0; i < out->p_sys->i_es; i++ )
259     {
260         if( out->p_sys->es[i]->i_id == i_id )
261             return out->p_sys->es[i];
262     }
263     return NULL;
264 }
265
266 void input_EsOutDiscontinuity( es_out_t *out, vlc_bool_t b_audio )
267 {
268     es_out_sys_t      *p_sys = out->p_sys;
269     int i;
270
271     for( i = 0; i < p_sys->i_es; i++ )
272     {
273         es_out_id_t *es = p_sys->es[i];
274
275         /* Send a dummy block to let decoder know that
276          * there is a discontinuity */
277         if( es->p_dec && ( !b_audio || es->fmt.i_cat == AUDIO_ES ) )
278         {
279             input_DecoderDiscontinuity( es->p_dec );
280         }
281     }
282 }
283
284 void input_EsOutSetDelay( es_out_t *out, int i_cat, int64_t i_delay )
285 {
286     es_out_sys_t *p_sys = out->p_sys;
287
288     if( i_cat == AUDIO_ES )
289         p_sys->i_audio_delay = i_delay;
290     else if( i_cat == SPU_ES )
291         p_sys->i_spu_delay = i_delay;
292 }
293
294 vlc_bool_t input_EsOutDecodersEmpty( es_out_t *out )
295 {
296     es_out_sys_t      *p_sys = out->p_sys;
297     int i;
298
299     for( i = 0; i < p_sys->i_es; i++ )
300     {
301         es_out_id_t *es = p_sys->es[i];
302
303         if( es->p_dec && !input_DecoderEmpty( es->p_dec ) )
304             return VLC_FALSE;
305     }
306     return VLC_TRUE;
307 }
308
309 /*****************************************************************************
310  *
311  *****************************************************************************/
312 static void EsOutESVarUpdate( es_out_t *out, es_out_id_t *es,
313                               vlc_bool_t b_delete )
314 {
315     es_out_sys_t      *p_sys = out->p_sys;
316     input_thread_t    *p_input = p_sys->p_input;
317     vlc_value_t       val, text;
318
319     char *psz_var;
320
321     if( es->fmt.i_cat == AUDIO_ES )
322         psz_var = "audio-es";
323     else if( es->fmt.i_cat == VIDEO_ES )
324         psz_var = "video-es";
325     else if( es->fmt.i_cat == SPU_ES )
326         psz_var = "spu-es";
327     else
328         return;
329
330     if( b_delete )
331     {
332         val.i_int = es->i_id;
333         var_Change( p_input, psz_var, VLC_VAR_DELCHOICE, &val, NULL );
334         var_SetBool( p_sys->p_input, "intf-change", VLC_TRUE );
335         return;
336     }
337
338     /* Get the number of ES already added */
339     var_Change( p_input, psz_var, VLC_VAR_CHOICESCOUNT, &val, NULL );
340     if( val.i_int == 0 )
341     {
342         vlc_value_t val2;
343
344         /* First one, we need to add the "Disable" choice */
345         val2.i_int = -1; text.psz_string = _("Disable");
346         var_Change( p_input, psz_var, VLC_VAR_ADDCHOICE, &val2, &text );
347         val.i_int++;
348     }
349
350     /* Take care of the ES description */
351     if( es->fmt.psz_description && *es->fmt.psz_description )
352     {
353         if( es->psz_language && *es->psz_language )
354         {
355             text.psz_string = malloc( strlen( es->fmt.psz_description) + strlen( es->psz_language ) + 10 );
356             sprintf( text.psz_string, "%s - [%s]", es->fmt.psz_description, es->psz_language );
357         }
358         else text.psz_string = strdup( es->fmt.psz_description );
359     }
360     else
361     {
362         if( es->psz_language && *es->psz_language )
363         {
364             char *temp;
365             text.psz_string = malloc( strlen( _("Track %i") )+ strlen( es->psz_language ) + 30 );
366             asprintf( &temp,  _("Track %i"), val.i_int );
367             sprintf( text.psz_string, "%s - [%s]", temp, es->psz_language );
368             free( temp );
369         }
370         else
371         {
372             text.psz_string = malloc( strlen( _("Track %i") ) + 20 );
373             sprintf( text.psz_string, _("Track %i"), val.i_int );
374         }
375     }
376
377     val.i_int = es->i_id;
378     var_Change( p_input, psz_var, VLC_VAR_ADDCHOICE, &val, &text );
379
380     free( text.psz_string );
381
382     var_SetBool( p_sys->p_input, "intf-change", VLC_TRUE );
383 }
384
385 /* EsOutProgramSelect:
386  *  Select a program and update the object variable
387  */
388 static void EsOutProgramSelect( es_out_t *out, es_out_pgrm_t *p_pgrm )
389 {
390     es_out_sys_t      *p_sys = out->p_sys;
391     input_thread_t    *p_input = p_sys->p_input;
392     vlc_value_t       val;
393     int               i;
394
395     if( p_sys->p_pgrm == p_pgrm )
396         return; /* Nothing to do */
397
398     if( p_sys->p_pgrm )
399     {
400         es_out_pgrm_t *old = p_sys->p_pgrm;
401         msg_Dbg( p_input, "Unselecting program id=%d", old->i_id );
402
403         for( i = 0; i < p_sys->i_es; i++ )
404         {
405             if( p_sys->es[i]->p_pgrm == old && p_sys->es[i]->p_dec &&
406                 p_sys->i_mode != ES_OUT_MODE_ALL )
407                 EsUnselect( out, p_sys->es[i], VLC_TRUE );
408         }
409
410         p_sys->p_es_audio = NULL;
411         p_sys->p_es_sub = NULL;
412         p_sys->p_es_video = NULL;
413     }
414
415     msg_Dbg( p_input, "Selecting program id=%d", p_pgrm->i_id );
416
417     /* Mark it selected */
418     p_pgrm->b_selected = VLC_TRUE;
419
420     /* Switch master stream */
421     if( p_sys->p_pgrm && p_sys->p_pgrm->clock.b_master )
422     {
423         p_sys->p_pgrm->clock.b_master = VLC_FALSE;
424     }
425     p_pgrm->clock.b_master = VLC_TRUE;
426     p_sys->p_pgrm = p_pgrm;
427
428     /* Update "program" */
429     val.i_int = p_pgrm->i_id;
430     var_Change( p_input, "program", VLC_VAR_SETVALUE, &val, NULL );
431
432     /* Update "es-*" */
433     var_Change( p_input, "audio-es", VLC_VAR_CLEARCHOICES, NULL, NULL );
434     var_Change( p_input, "video-es", VLC_VAR_CLEARCHOICES, NULL, NULL );
435     var_Change( p_input, "spu-es",   VLC_VAR_CLEARCHOICES, NULL, NULL );
436     for( i = 0; i < p_sys->i_es; i++ )
437     {
438         if( p_sys->es[i]->p_pgrm == p_sys->p_pgrm )
439             EsOutESVarUpdate( out, p_sys->es[i], VLC_FALSE );
440         EsOutSelect( out, p_sys->es[i], VLC_FALSE );
441     }
442
443     var_SetBool( p_sys->p_input, "intf-change", VLC_TRUE );
444 }
445
446 /* EsOutAddProgram:
447  *  Add a program
448  */
449 static es_out_pgrm_t *EsOutProgramAdd( es_out_t *out, int i_group )
450 {
451     es_out_sys_t      *p_sys = out->p_sys;
452     input_thread_t    *p_input = p_sys->p_input;
453     vlc_value_t       val;
454
455     es_out_pgrm_t *p_pgrm = malloc( sizeof( es_out_pgrm_t ) );
456
457     /* Init */
458     p_pgrm->i_id = i_group;
459     p_pgrm->i_es = 0;
460     p_pgrm->b_selected = VLC_FALSE;
461     input_ClockInit( &p_pgrm->clock, VLC_FALSE, p_input->input.i_cr_average );
462
463     /* Append it */
464     TAB_APPEND( p_sys->i_pgrm, p_sys->pgrm, p_pgrm );
465
466     /* Update "program" variable */
467     val.i_int = i_group;
468     var_Change( p_input, "program", VLC_VAR_ADDCHOICE, &val, NULL );
469
470     if( i_group == var_GetInteger( p_input, "program" ) )
471     {
472         EsOutProgramSelect( out, p_pgrm );
473     }
474     else
475     {
476         var_SetBool( p_sys->p_input, "intf-change", VLC_TRUE );
477     }
478     return p_pgrm;
479 }
480
481 /* EsOutAdd:
482  *  Add an es_out
483  */
484 static es_out_id_t *EsOutAdd( es_out_t *out, es_format_t *fmt )
485 {
486     es_out_sys_t      *p_sys = out->p_sys;
487     input_thread_t    *p_input = p_sys->p_input;
488
489     es_out_id_t       *es = malloc( sizeof( es_out_id_t ) );
490     es_out_pgrm_t     *p_pgrm = NULL;
491     int i;
492
493     if( fmt->i_group < 0 )
494     {
495         msg_Err( p_input, "invalid group number" );
496         return NULL;
497     }
498
499     /* Search the program */
500     for( i = 0; i < p_sys->i_pgrm; i++ )
501     {
502         if( fmt->i_group == p_sys->pgrm[i]->i_id )
503         {
504             p_pgrm = p_sys->pgrm[i];
505             break;
506         }
507     }
508     if( p_pgrm == NULL )
509     {
510         /* Create a new one */
511         p_pgrm = EsOutProgramAdd( out, fmt->i_group );
512     }
513
514     /* Increase ref count for program */
515     p_pgrm->i_es++;
516
517     /* Set up ES */
518     if( fmt->i_id < 0 )
519         fmt->i_id = out->p_sys->i_id;
520     es->i_id = fmt->i_id;
521     es->p_pgrm = p_pgrm;
522     es_format_Copy( &es->fmt, fmt );
523     es->i_preroll_end = -1;
524
525     switch( fmt->i_cat )
526     {
527     case AUDIO_ES:
528         es->i_channel = p_sys->i_audio;
529         break;
530
531     case VIDEO_ES:
532         es->i_channel = p_sys->i_video;
533         break;
534
535     case SPU_ES:
536         es->i_channel = p_sys->i_sub;
537         break;
538
539     default:
540         es->i_channel = 0;
541         break;
542     }
543     es->psz_language = LanguageGetName( fmt->psz_language ); /* remember so we only need to do it once */
544     es->psz_language_code = LanguageGetCode( fmt->psz_language );
545     es->p_dec = NULL;
546
547     if( es->p_pgrm == p_sys->p_pgrm )
548         EsOutESVarUpdate( out, es, VLC_FALSE );
549
550     /* Select it if needed */
551     EsOutSelect( out, es, VLC_FALSE );
552
553
554     TAB_APPEND( out->p_sys->i_es, out->p_sys->es, es );
555     p_sys->i_id++;  /* always incremented */
556     switch( fmt->i_cat )
557     {
558         case AUDIO_ES:
559             p_sys->i_audio++;
560             break;
561         case SPU_ES:
562             p_sys->i_sub++;
563             break;
564         case VIDEO_ES:
565             p_sys->i_video++;
566             break;
567     }
568
569     EsOutAddInfo( out, es );
570
571     return es;
572 }
573
574 static void EsSelect( es_out_t *out, es_out_id_t *es )
575 {
576     es_out_sys_t   *p_sys = out->p_sys;
577     input_thread_t *p_input = p_sys->p_input;
578     vlc_value_t    val;
579     char           *psz_var;
580
581     if( es->p_dec )
582     {
583         msg_Warn( p_input, "ES 0x%x is already selected", es->i_id );
584         return;
585     }
586
587     if( es->fmt.i_cat == VIDEO_ES || es->fmt.i_cat == SPU_ES )
588     {
589         if( !var_GetBool( p_input, "video" ) ||
590             ( p_input->p_sout && !var_GetBool( p_input, "sout-video" ) ) )
591         {
592             msg_Dbg( p_input, "video is disabled, not selecting ES 0x%x",
593                      es->i_id );
594             return;
595         }
596     }
597     else if( es->fmt.i_cat == AUDIO_ES )
598     {
599         var_Get( p_input, "audio", &val );
600         if( !var_GetBool( p_input, "audio" ) ||
601             ( p_input->p_sout && !var_GetBool( p_input, "sout-audio" ) ) )
602         {
603             msg_Dbg( p_input, "audio is disabled, not selecting ES 0x%x",
604                      es->i_id );
605             return;
606         }
607     }
608
609     es->i_preroll_end = -1;
610     es->p_dec = input_DecoderNew( p_input, &es->fmt, VLC_FALSE );
611     if( es->p_dec == NULL || es->p_pgrm != p_sys->p_pgrm )
612         return;
613
614     if( es->fmt.i_cat == VIDEO_ES )
615         psz_var = "video-es";
616     else if( es->fmt.i_cat == AUDIO_ES )
617         psz_var = "audio-es";
618     else if( es->fmt.i_cat == SPU_ES )
619         psz_var = "spu-es";
620     else
621         return;
622
623     /* Mark it as selected */
624     val.i_int = es->i_id;
625     var_Change( p_input, psz_var, VLC_VAR_SETVALUE, &val, NULL );
626
627
628     var_SetBool( p_sys->p_input, "intf-change", VLC_TRUE );
629 }
630
631 static void EsUnselect( es_out_t *out, es_out_id_t *es, vlc_bool_t b_update )
632 {
633     es_out_sys_t   *p_sys = out->p_sys;
634     input_thread_t *p_input = p_sys->p_input;
635     vlc_value_t    val;
636     char           *psz_var;
637
638     if( es->p_dec == NULL )
639     {
640         msg_Warn( p_input, "ES 0x%x is already unselected", es->i_id );
641         return;
642     }
643
644     input_DecoderDelete( es->p_dec );
645     es->p_dec = NULL;
646
647     if( !b_update )
648         return;
649
650     /* Update var */
651     if( es->p_dec == NULL )
652         return;
653     if( es->fmt.i_cat == VIDEO_ES )
654         psz_var = "video-es";
655     else if( es->fmt.i_cat == AUDIO_ES )
656         psz_var = "audio-es";
657     else if( es->fmt.i_cat == SPU_ES )
658         psz_var = "spu-es";
659     else
660         return;
661
662     /* Mark it as selected */
663     val.i_int = -1;
664     var_Change( p_input, psz_var, VLC_VAR_SETVALUE, &val, NULL );
665
666     var_SetBool( p_sys->p_input, "intf-change", VLC_TRUE );
667 }
668
669 /**
670  * Select an ES given the current mode
671  * XXX: you need to take a the lock before (stream.stream_lock)
672  *
673  * \param out The es_out structure
674  * \param es es_out_id structure
675  * \param b_force ...
676  * \return nothing
677  */
678 static void EsOutSelect( es_out_t *out, es_out_id_t *es, vlc_bool_t b_force )
679 {
680     es_out_sys_t      *p_sys = out->p_sys;
681
682     int i_cat = es->fmt.i_cat;
683
684     if( !p_sys->b_active ||
685         ( !b_force && es->fmt.i_priority < 0 ) )
686     {
687         return;
688     }
689
690     if( p_sys->i_mode == ES_OUT_MODE_ALL || b_force )
691     {
692         if( !es->p_dec )
693             EsSelect( out, es );
694     }
695     else if( p_sys->i_mode == ES_OUT_MODE_PARTIAL )
696     {
697         vlc_value_t val;
698         int i;
699         var_Get( p_sys->p_input, "programs", &val );
700         for ( i = 0; i < val.p_list->i_count; i++ )
701         {
702             if ( val.p_list->p_values[i].i_int == es->p_pgrm->i_id || b_force )
703             {
704                 if( !es->p_dec )
705                     EsSelect( out, es );
706                 break;
707             }
708         }
709         var_Change( p_sys->p_input, "programs", VLC_VAR_FREELIST, &val, NULL );
710     }
711     else if( p_sys->i_mode == ES_OUT_MODE_AUTO )
712     {
713         int i_wanted  = -1;
714
715         if( es->p_pgrm != p_sys->p_pgrm )
716             return;
717
718         if( i_cat == AUDIO_ES )
719         {
720             int idx1 = LanguageArrayIndex( p_sys->ppsz_audio_language,
721                                      es->psz_language_code );
722
723             if( p_sys->p_es_audio &&
724                 p_sys->p_es_audio->fmt.i_priority >= es->fmt.i_priority )
725             {
726                 int idx2 = LanguageArrayIndex( p_sys->ppsz_audio_language,
727                                          p_sys->p_es_audio->psz_language_code );
728
729                 if( idx1 < 0 || ( idx2 >= 0 && idx2 <= idx1 ) )
730                     return;
731                 i_wanted = es->i_channel;
732             }
733             else
734             {
735                 /* Select audio if (no audio selected yet)
736                  * - no audio-language
737                  * - no audio code for the ES
738                  * - audio code in the requested list */
739                 if( idx1 >= 0 ||
740                     !strcmp( es->psz_language_code, "??" ) ||
741                     !p_sys->ppsz_audio_language )
742                     i_wanted = es->i_channel;
743             }
744
745             if( p_sys->i_audio_last >= 0 )
746                 i_wanted = p_sys->i_audio_last;
747         }
748         else if( i_cat == SPU_ES )
749         {
750             int idx1 = LanguageArrayIndex( p_sys->ppsz_sub_language,
751                                      es->psz_language_code );
752
753             if( p_sys->p_es_sub &&
754                 p_sys->p_es_sub->fmt.i_priority >= es->fmt.i_priority )
755             {
756                 int idx2 = LanguageArrayIndex( p_sys->ppsz_sub_language,
757                                          p_sys->p_es_sub->psz_language_code );
758
759                 msg_Dbg( p_sys->p_input, "idx1=%d(%s) idx2=%d(%s)",
760                         idx1, es->psz_language_code, idx2,
761                         p_sys->p_es_sub->psz_language_code );
762
763                 if( idx1 < 0 || ( idx2 >= 0 && idx2 <= idx1 ) )
764                     return;
765                 /* We found a SPU that matches our language request */
766                 i_wanted  = es->i_channel;
767             }
768             else if( idx1 >= 0 )
769             {
770                 msg_Dbg( p_sys->p_input, "idx1=%d(%s)",
771                         idx1, es->psz_language_code );
772
773                 i_wanted  = es->i_channel;
774             }
775             if( p_sys->i_sub_last >= 0 )
776                 i_wanted  = p_sys->i_sub_last;
777         }
778         else if( i_cat == VIDEO_ES )
779         {
780             i_wanted  = es->i_channel;
781         }
782
783         if( i_wanted == es->i_channel && es->p_dec == NULL )
784             EsSelect( out, es );
785     }
786
787     /* FIXME TODO handle priority here */
788     if( es->p_dec )
789     {
790         if( i_cat == AUDIO_ES )
791         {
792             if( p_sys->i_mode == ES_OUT_MODE_AUTO &&
793                 p_sys->p_es_audio &&
794                 p_sys->p_es_audio != es &&
795                 p_sys->p_es_audio->p_dec )
796             {
797                 EsUnselect( out, p_sys->p_es_audio, VLC_FALSE );
798             }
799             p_sys->p_es_audio = es;
800         }
801         else if( i_cat == SPU_ES )
802         {
803             if( p_sys->i_mode == ES_OUT_MODE_AUTO &&
804                 p_sys->p_es_sub &&
805                 p_sys->p_es_sub != es &&
806                 p_sys->p_es_sub->p_dec )
807             {
808                 EsUnselect( out, p_sys->p_es_sub, VLC_FALSE );
809             }
810             p_sys->p_es_sub = es;
811         }
812         else if( i_cat == VIDEO_ES )
813         {
814             p_sys->p_es_video = es;
815         }
816     }
817 }
818
819 /**
820  * Send a block for the given es_out
821  *
822  * \param out the es_out to send from
823  * \param es the es_out_id
824  * \param p_block the data block to send
825  */
826 static int EsOutSend( es_out_t *out, es_out_id_t *es, block_t *p_block )
827 {
828     es_out_sys_t *p_sys = out->p_sys;
829     input_thread_t    *p_input = p_sys->p_input;
830     es_out_pgrm_t *p_pgrm = es->p_pgrm;
831     int64_t i_delay;
832
833     if( es->fmt.i_cat == AUDIO_ES )
834         i_delay = p_sys->i_audio_delay;
835     else if( es->fmt.i_cat == SPU_ES )
836         i_delay = p_sys->i_spu_delay;
837     else
838         i_delay = 0;
839
840     /* +11 -> avoid null value with non null dts/pts */
841     if( p_block->i_dts > 0 )
842     {
843         p_block->i_dts =
844             input_ClockGetTS( p_input, &p_pgrm->clock,
845                               ( p_block->i_dts + 11 ) * 9 / 100 ) + i_delay;
846     }
847     if( p_block->i_pts > 0 )
848     {
849         p_block->i_pts =
850             input_ClockGetTS( p_input, &p_pgrm->clock,
851                               ( p_block->i_pts + 11 ) * 9 / 100 ) + i_delay;
852     }
853     if ( es->fmt.i_codec == VLC_FOURCC( 't', 'e', 'l', 'x' ) )
854     {
855         mtime_t current_date = mdate();
856         if( !p_block->i_pts
857                || p_block->i_pts > current_date + 10000000
858                || current_date > p_block->i_pts )
859         {
860             /* ETSI EN 300 472 Annex A : do not take into account the PTS
861              * for teletext streams. */
862             p_block->i_pts = current_date + 400000
863                                + p_input->i_pts_delay + i_delay;
864         }
865     }
866
867     p_block->i_rate = p_input->i_rate;
868     /* Mark preroll blocks */
869     if( es->i_preroll_end >= 0 )
870     {
871         int64_t i_date = p_block->i_pts;
872         if( i_date <= 0 )
873             i_date = p_block->i_dts;
874
875         if( i_date < es->i_preroll_end )
876             p_block->i_flags |= BLOCK_FLAG_PREROLL;
877         else
878             es->i_preroll_end = -1;
879     }
880
881     /* TODO handle mute */
882     if( es->p_dec && ( es->fmt.i_cat != AUDIO_ES ||
883         p_input->i_rate == INPUT_RATE_DEFAULT ) )
884     {
885         input_DecoderDecode( es->p_dec, p_block );
886     }
887     else
888     {
889         block_Release( p_block );
890     }
891
892     return VLC_SUCCESS;
893 }
894
895 /*****************************************************************************
896  * EsOutDel:
897  *****************************************************************************/
898 static void EsOutDel( es_out_t *out, es_out_id_t *es )
899 {
900     es_out_sys_t *p_sys = out->p_sys;
901
902     /* We don't try to reselect */
903     if( es->p_dec )
904         EsUnselect( out, es, es->p_pgrm == p_sys->p_pgrm );
905
906     if( es->p_pgrm == p_sys->p_pgrm )
907         EsOutESVarUpdate( out, es, VLC_TRUE );
908
909     TAB_REMOVE( p_sys->i_es, p_sys->es, es );
910
911     es->p_pgrm->i_es--;
912     if( es->p_pgrm->i_es == 0 )
913     {
914         msg_Warn( p_sys->p_input, "Program doesn't contain anymore ES, "
915                   "TODO cleaning ?" );
916     }
917
918     if( p_sys->p_es_audio == es ) p_sys->p_es_audio = NULL;
919     if( p_sys->p_es_video == es ) p_sys->p_es_video = NULL;
920     if( p_sys->p_es_sub   == es ) p_sys->p_es_sub   = NULL;
921
922     switch( es->fmt.i_cat )
923     {
924         case AUDIO_ES:
925             p_sys->i_audio--;
926             break;
927         case SPU_ES:
928             p_sys->i_sub--;
929             break;
930         case VIDEO_ES:
931             p_sys->i_video--;
932             break;
933     }
934
935     if( es->psz_language )
936         free( es->psz_language );
937     if( es->psz_language_code )
938         free( es->psz_language_code );
939
940     es_format_Clean( &es->fmt );
941
942     free( es );
943 }
944
945 /**
946  * Control query handler
947  *
948  * \param out the es_out to control
949  * \param i_query A es_out query as defined in include/ninput.h
950  * \param args a variable list of arguments for the query
951  * \return VLC_SUCCESS or an error code
952  */
953 static int EsOutControl( es_out_t *out, int i_query, va_list args )
954 {
955     es_out_sys_t *p_sys = out->p_sys;
956     vlc_bool_t  b, *pb;
957     int         i, *pi;
958
959     es_out_id_t *es;
960
961     switch( i_query )
962     {
963         case ES_OUT_SET_ES_STATE:
964             es = (es_out_id_t*) va_arg( args, es_out_id_t * );
965             b = (vlc_bool_t) va_arg( args, vlc_bool_t );
966             if( b && es->p_dec == NULL )
967             {
968                 EsSelect( out, es );
969                 return es->p_dec ? VLC_SUCCESS : VLC_EGENERIC;
970             }
971             else if( !b && es->p_dec )
972             {
973                 EsUnselect( out, es, es->p_pgrm == p_sys->p_pgrm );
974                 return VLC_SUCCESS;
975             }
976             return VLC_SUCCESS;
977
978         case ES_OUT_GET_ES_STATE:
979             es = (es_out_id_t*) va_arg( args, es_out_id_t * );
980             pb = (vlc_bool_t*) va_arg( args, vlc_bool_t * );
981
982             *pb = es->p_dec ? VLC_TRUE : VLC_FALSE;
983             return VLC_SUCCESS;
984
985         case ES_OUT_SET_ACTIVE:
986         {
987             b = (vlc_bool_t) va_arg( args, vlc_bool_t );
988             p_sys->b_active = b;
989             /* Needed ? */
990             if( b )
991                 var_SetBool( p_sys->p_input, "intf-change", VLC_TRUE );
992             return VLC_SUCCESS;
993         }
994
995         case ES_OUT_GET_ACTIVE:
996             pb = (vlc_bool_t*) va_arg( args, vlc_bool_t * );
997             *pb = p_sys->b_active;
998             return VLC_SUCCESS;
999
1000         case ES_OUT_SET_MODE:
1001             i = (int) va_arg( args, int );
1002             if( i == ES_OUT_MODE_NONE || i == ES_OUT_MODE_ALL ||
1003                 i == ES_OUT_MODE_AUTO || i == ES_OUT_MODE_PARTIAL )
1004             {
1005                 p_sys->i_mode = i;
1006
1007                 /* Reapply policy mode */
1008                 for( i = 0; i < p_sys->i_es; i++ )
1009                 {
1010                     if( p_sys->es[i]->p_dec )
1011                     {
1012                         EsUnselect( out, p_sys->es[i],
1013                                     p_sys->es[i]->p_pgrm == p_sys->p_pgrm );
1014                     }
1015                 }
1016                 for( i = 0; i < p_sys->i_es; i++ )
1017                 {
1018                     EsOutSelect( out, p_sys->es[i], VLC_FALSE );
1019                 }
1020                 return VLC_SUCCESS;
1021             }
1022             return VLC_EGENERIC;
1023
1024         case ES_OUT_GET_MODE:
1025             pi = (int*) va_arg( args, int* );
1026             *pi = p_sys->i_mode;
1027             return VLC_SUCCESS;
1028
1029         case ES_OUT_SET_ES:
1030             es = (es_out_id_t*) va_arg( args, es_out_id_t * );
1031             /* Special case NULL, NULL+i_cat */
1032             if( es == NULL )
1033             {
1034                 for( i = 0; i < p_sys->i_es; i++ )
1035                 {
1036                     if( p_sys->es[i]->p_dec )
1037                         EsUnselect( out, p_sys->es[i],
1038                                     p_sys->es[i]->p_pgrm == p_sys->p_pgrm );
1039                 }
1040             }
1041             else if( es == (es_out_id_t*)((uint8_t*)NULL+AUDIO_ES) )
1042             {
1043                 for( i = 0; i < p_sys->i_es; i++ )
1044                 {
1045                     if( p_sys->es[i]->p_dec &&
1046                         p_sys->es[i]->fmt.i_cat == AUDIO_ES )
1047                         EsUnselect( out, p_sys->es[i],
1048                                     p_sys->es[i]->p_pgrm == p_sys->p_pgrm );
1049                 }
1050             }
1051             else if( es == (es_out_id_t*)((uint8_t*)NULL+VIDEO_ES) )
1052             {
1053                 for( i = 0; i < p_sys->i_es; i++ )
1054                 {
1055                     if( p_sys->es[i]->p_dec &&
1056                         p_sys->es[i]->fmt.i_cat == VIDEO_ES )
1057                         EsUnselect( out, p_sys->es[i],
1058                                     p_sys->es[i]->p_pgrm == p_sys->p_pgrm );
1059                 }
1060             }
1061             else if( es == (es_out_id_t*)((uint8_t*)NULL+SPU_ES) )
1062             {
1063                 for( i = 0; i < p_sys->i_es; i++ )
1064                 {
1065                     if( p_sys->es[i]->p_dec &&
1066                         p_sys->es[i]->fmt.i_cat == SPU_ES )
1067                         EsUnselect( out, p_sys->es[i],
1068                                     p_sys->es[i]->p_pgrm == p_sys->p_pgrm );
1069                 }
1070             }
1071             else
1072             {
1073                 for( i = 0; i < p_sys->i_es; i++ )
1074                 {
1075                     if( es == p_sys->es[i] )
1076                     {
1077                         EsOutSelect( out, es, VLC_TRUE );
1078                         break;
1079                     }
1080                 }
1081             }
1082             return VLC_SUCCESS;
1083
1084         case ES_OUT_SET_PCR:
1085         case ES_OUT_SET_GROUP_PCR:
1086         {
1087             es_out_pgrm_t *p_pgrm = NULL;
1088             int            i_group = 0;
1089             int64_t        i_pcr;
1090
1091             if( i_query == ES_OUT_SET_PCR )
1092             {
1093                 p_pgrm = p_sys->p_pgrm;
1094             }
1095             else
1096             {
1097                 int i;
1098                 i_group = (int)va_arg( args, int );
1099                 for( i = 0; i < p_sys->i_pgrm; i++ )
1100                 {
1101                     if( p_sys->pgrm[i]->i_id == i_group )
1102                     {
1103                         p_pgrm = p_sys->pgrm[i];
1104                         break;
1105                     }
1106                 }
1107             }
1108             if( p_pgrm == NULL )
1109                 p_pgrm = EsOutProgramAdd( out, i_group );   /* Create it */
1110
1111             i_pcr = (int64_t)va_arg( args, int64_t );
1112             /* search program */
1113             /* 11 is a vodoo trick to avoid non_pcr*9/100 to be null */
1114             input_ClockSetPCR( p_sys->p_input, &p_pgrm->clock,
1115                                (i_pcr + 11 ) * 9 / 100);
1116             return VLC_SUCCESS;
1117         }
1118
1119         case ES_OUT_RESET_PCR:
1120             for( i = 0; i < p_sys->i_pgrm; i++ )
1121             {
1122                 p_sys->pgrm[i]->clock.i_synchro_state =  SYNCHRO_REINIT;
1123                 p_sys->pgrm[i]->clock.last_pts = 0;
1124             }
1125             return VLC_SUCCESS;
1126
1127         case ES_OUT_GET_TS:
1128             if( p_sys->p_pgrm )
1129             {
1130                 int64_t i_ts = (int64_t)va_arg( args, int64_t );
1131                 int64_t *pi_ts = (int64_t *)va_arg( args, int64_t * );
1132                 *pi_ts = input_ClockGetTS( p_sys->p_input,
1133                                            &p_sys->p_pgrm->clock,
1134                                            ( i_ts + 11 ) * 9 / 100 );
1135                 return VLC_SUCCESS;
1136             }
1137             return VLC_EGENERIC;
1138
1139         case ES_OUT_GET_GROUP:
1140             pi = (int*) va_arg( args, int* );
1141             if( p_sys->p_pgrm )
1142                 *pi = p_sys->p_pgrm->i_id;
1143             else
1144                 *pi = -1;    /* FIXME */
1145             return VLC_SUCCESS;
1146
1147         case ES_OUT_SET_GROUP:
1148         {
1149             int j;
1150             i = (int) va_arg( args, int );
1151             for( j = 0; j < p_sys->i_pgrm; j++ )
1152             {
1153                 es_out_pgrm_t *p_pgrm = p_sys->pgrm[j];
1154                 if( p_pgrm->i_id == i )
1155                 {
1156                     EsOutProgramSelect( out, p_pgrm );
1157                     return VLC_SUCCESS;
1158                 }
1159             }
1160             return VLC_EGENERIC;
1161         }
1162
1163         case ES_OUT_SET_FMT:
1164         {
1165             /* This ain't pretty but is need by some demuxers (eg. Ogg )
1166              * to update the p_extra data */
1167             es_format_t *p_fmt;
1168             es = (es_out_id_t*) va_arg( args, es_out_id_t * );
1169             p_fmt = (es_format_t*) va_arg( args, es_format_t * );
1170             if( es == NULL ) return VLC_EGENERIC;
1171
1172             if( p_fmt->i_extra )
1173             {
1174                 es->fmt.i_extra = p_fmt->i_extra;
1175                 es->fmt.p_extra = realloc( es->fmt.p_extra, p_fmt->i_extra );
1176                 memcpy( es->fmt.p_extra, p_fmt->p_extra, p_fmt->i_extra );
1177
1178                 if( !es->p_dec ) return VLC_SUCCESS;
1179
1180                 es->p_dec->fmt_in.i_extra = p_fmt->i_extra;
1181                 es->p_dec->fmt_in.p_extra =
1182                     realloc( es->p_dec->fmt_in.p_extra, p_fmt->i_extra );
1183                 memcpy( es->p_dec->fmt_in.p_extra,
1184                         p_fmt->p_extra, p_fmt->i_extra );
1185             }
1186
1187             return VLC_SUCCESS;
1188         }
1189
1190         case ES_OUT_SET_NEXT_DISPLAY_TIME:
1191         {
1192             int64_t i_date;
1193
1194             es = (es_out_id_t*) va_arg( args, es_out_id_t * );
1195             i_date = (int64_t)va_arg( args, int64_t );
1196
1197             if( !es || !es->p_dec )
1198                 return VLC_EGENERIC;
1199
1200             es->i_preroll_end = i_date;
1201             input_DecoderPreroll( es->p_dec, i_date );
1202
1203             return VLC_SUCCESS;
1204         }
1205
1206         default:
1207             msg_Err( p_sys->p_input, "unknown query in es_out_Control" );
1208             return VLC_EGENERIC;
1209     }
1210 }
1211
1212 /****************************************************************************
1213  * LanguageGetName: try to expend iso639 into plain name
1214  ****************************************************************************/
1215 static char *LanguageGetName( const char *psz_code )
1216 {
1217     const iso639_lang_t *pl;
1218
1219     if( psz_code == NULL )
1220     {
1221         return strdup( "" );
1222     }
1223
1224     if( strlen( psz_code ) == 2 )
1225     {
1226         pl = GetLang_1( psz_code );
1227     }
1228     else if( strlen( psz_code ) == 3 )
1229     {
1230         pl = GetLang_2B( psz_code );
1231         if( !strcmp( pl->psz_iso639_1, "??" ) )
1232         {
1233             pl = GetLang_2T( psz_code );
1234         }
1235     }
1236     else
1237     {
1238         return strdup( psz_code );
1239     }
1240
1241     if( !strcmp( pl->psz_iso639_1, "??" ) )
1242     {
1243        return strdup( psz_code );
1244     }
1245     else
1246     {
1247         if( *pl->psz_native_name )
1248         {
1249             return strdup( pl->psz_native_name );
1250         }
1251         return strdup( pl->psz_eng_name );
1252     }
1253 }
1254
1255 /* Get a 2 char code */
1256 static char *LanguageGetCode( const char *psz_lang )
1257 {
1258     const iso639_lang_t *pl;
1259
1260     if( psz_lang == NULL || *psz_lang == '\0' )
1261         return strdup("??");
1262
1263     for( pl = p_languages; pl->psz_iso639_1 != NULL; pl++ )
1264     {
1265         if( !strcasecmp( pl->psz_eng_name, psz_lang ) ||
1266             !strcasecmp( pl->psz_native_name, psz_lang ) ||
1267             !strcasecmp( pl->psz_iso639_1, psz_lang ) ||
1268             !strcasecmp( pl->psz_iso639_2T, psz_lang ) ||
1269             !strcasecmp( pl->psz_iso639_2B, psz_lang ) )
1270             break;
1271     }
1272
1273     if( pl->psz_iso639_1 != NULL )
1274         return strdup( pl->psz_iso639_1 );
1275
1276     return strdup("??");
1277 }
1278
1279 static char **LanguageSplit( const char *psz_langs )
1280 {
1281     char *psz_dup;
1282     char *psz_parser;
1283     char **ppsz = NULL;
1284     int i_psz = 0;
1285
1286     if( psz_langs == NULL )
1287         return NULL;
1288
1289     psz_parser = psz_dup = strdup(psz_langs);
1290
1291     while( psz_parser && *psz_parser )
1292     {
1293         char *psz;
1294         char *psz_code;
1295
1296         psz = strchr(psz_parser, ',' );
1297         if( psz )
1298         {
1299             *psz++ = '\0';
1300         }
1301
1302         psz_code = LanguageGetCode( psz_parser );
1303         if( strcmp( psz_code, "??" ) )
1304         {
1305             TAB_APPEND( i_psz, ppsz, psz_code );
1306         }
1307
1308         psz_parser = psz;
1309     }
1310
1311     if( i_psz )
1312     {
1313         TAB_APPEND( i_psz, ppsz, NULL );
1314     }
1315
1316     return ppsz;
1317 }
1318
1319 static int LanguageArrayIndex( char **ppsz_langs, char *psz_lang )
1320 {
1321     int i;
1322
1323     if( !ppsz_langs || !psz_lang )
1324         return -1;
1325
1326     for( i = 0; ppsz_langs[i]; i++ )
1327         if( !strcasecmp( ppsz_langs[i], psz_lang ) )
1328             return i;
1329
1330     return -1;
1331 }
1332
1333 /****************************************************************************
1334  * EsOutAddInfo:
1335  * - add meta info to the playlist item
1336  ****************************************************************************/
1337 static void EsOutAddInfo( es_out_t *out, es_out_id_t *es )
1338 {
1339     es_out_sys_t   *p_sys = out->p_sys;
1340     input_thread_t *p_input = p_sys->p_input;
1341     es_format_t    *fmt = &es->fmt;
1342     char           *psz_cat;
1343
1344     /* Add stream info */
1345     asprintf( &psz_cat, _("Stream %d"), out->p_sys->i_id - 1 );
1346
1347     input_Control( p_input, INPUT_ADD_INFO, psz_cat, _("Codec"),
1348                    "%.4s", (char*)&fmt->i_codec );
1349
1350     input_Control( p_input, INPUT_ADD_INFO, psz_cat, _("Language"),
1351                    "%s", es->psz_language );
1352
1353     /* Add information */
1354     switch( fmt->i_cat )
1355     {
1356     case AUDIO_ES:
1357         input_Control( p_input, INPUT_ADD_INFO, psz_cat,
1358                        _("Type"), _("Audio") );
1359
1360         if( fmt->audio.i_channels > 0 )
1361             input_Control( p_input, INPUT_ADD_INFO, psz_cat, _("Channels"),
1362                            "%d", fmt->audio.i_channels );
1363
1364         if( fmt->audio.i_rate > 0 )
1365             input_Control( p_input, INPUT_ADD_INFO, psz_cat, _("Sample rate"),
1366                            _("%d Hz"), fmt->audio.i_rate );
1367
1368         if( fmt->audio.i_bitspersample > 0 )
1369             input_Control( p_input, INPUT_ADD_INFO, psz_cat,
1370                            _("Bits per sample"), "%d",
1371                            fmt->audio.i_bitspersample );
1372
1373         if( fmt->i_bitrate > 0 )
1374             input_Control( p_input, INPUT_ADD_INFO, psz_cat, _("Bitrate"),
1375                            _("%d kb/s"), fmt->i_bitrate / 1000 );
1376         break;
1377
1378     case VIDEO_ES:
1379         input_Control( p_input, INPUT_ADD_INFO, psz_cat,
1380                        _("Type"), _("Video") );
1381
1382         if( fmt->video.i_width > 0 && fmt->video.i_height > 0 )
1383             input_Control( p_input, INPUT_ADD_INFO, psz_cat,
1384                            _("Resolution"), "%dx%d",
1385                            fmt->video.i_width, fmt->video.i_height );
1386
1387         if( fmt->video.i_visible_width > 0 &&
1388             fmt->video.i_visible_height > 0 )
1389             input_Control( p_input, INPUT_ADD_INFO, psz_cat,
1390                            _("Display resolution"), "%dx%d",
1391                            fmt->video.i_visible_width,
1392                            fmt->video.i_visible_height);
1393         break;
1394
1395     case SPU_ES:
1396         input_Control( p_input, INPUT_ADD_INFO, psz_cat,
1397                        _("Type"), _("Subtitle") );
1398         break;
1399
1400     default:
1401         break;
1402     }
1403
1404     free( psz_cat );
1405 }