]> git.sesse.net Git - vlc/blob - src/input/es_out.c
* include/vlc_es.h: added b_packetized field to es_format_t to tell a decoder if...
[vlc] / 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 "vlc_playlist.h"
34 #include "codecs.h"
35 #include "iso_lang.h"
36
37 /*****************************************************************************
38  * Local prototypes
39  *****************************************************************************/
40 struct es_out_id_t
41 {
42     int             i_channel;
43     es_descriptor_t *p_es;
44 };
45
46 struct es_out_sys_t
47 {
48     input_thread_t *p_input;
49     vlc_bool_t      b_pcr_set;
50
51     /* all es */
52     int         i_id;
53
54     int         i_es;
55     es_out_id_t **es;
56
57     /* mode gestion */
58     vlc_bool_t  b_active;
59     int         i_mode;
60
61     /* es count */
62     int         i_audio;
63     int         i_video;
64     int         i_sub;
65
66     /* es to select */
67     int         i_audio_last;
68     int         i_sub_last;
69
70     /* current main es */
71     es_out_id_t *p_es_audio;
72     es_out_id_t *p_es_video;
73     es_out_id_t *p_es_sub;
74 };
75
76 static es_out_id_t *EsOutAdd    ( es_out_t *, es_format_t * );
77 static int          EsOutSend   ( es_out_t *, es_out_id_t *, block_t * );
78 static void         EsOutDel    ( es_out_t *, es_out_id_t * );
79 static int          EsOutControl( es_out_t *, int i_query, va_list );
80
81 static char *LanguageGetName( const char *psz_code );
82
83 /**
84  * Create a new es_out structure
85  *
86  * \param p_input The related input thread
87  * \return the new es_out_t
88  */
89 es_out_t *input_EsOutNew( input_thread_t *p_input )
90 {
91     es_out_t     *out = malloc( sizeof( es_out_t ) );
92     es_out_sys_t *p_sys = malloc( sizeof( es_out_sys_t ) );
93     vlc_value_t  val;
94
95     out->pf_add     = EsOutAdd;
96     out->pf_send    = EsOutSend;
97     out->pf_del     = EsOutDel;
98     out->pf_control = EsOutControl;
99     out->p_sys      = p_sys;
100
101     p_sys->p_input = p_input;
102     p_sys->b_pcr_set = VLC_FALSE;
103
104     p_sys->b_active = VLC_FALSE;
105     p_sys->i_mode   = ES_OUT_MODE_AUTO;
106
107     p_sys->i_id    = 1;
108
109     p_sys->i_es    = 0;
110     p_sys->es      = NULL;
111
112     p_sys->i_audio = 0;
113     p_sys->i_video = 0;
114     p_sys->i_sub   = 0;
115
116     var_Get( p_input, "audio-channel", &val );
117     p_sys->i_audio_last = val.i_int;
118
119     var_Get( p_input, "spu-channel", &val );
120     p_sys->i_sub_last = val.i_int;
121
122     p_sys->p_es_audio = NULL;
123     p_sys->p_es_video = NULL;
124     p_sys->p_es_sub   = NULL;
125
126     return out;
127 }
128
129 /**
130  * Deletes an es_out structure
131  *
132  * \param out  the es_out structure to destroy
133  * \return nothing
134  */
135 void input_EsOutDelete( es_out_t *out )
136 {
137     es_out_sys_t *p_sys = out->p_sys;
138     int i;
139
140     for( i = 0; i < p_sys->i_es; i++ )
141     {
142         free( p_sys->es[i] );
143     }
144     if( p_sys->es )
145     {
146         free( p_sys->es );
147     }
148     free( p_sys );
149     free( out );
150 }
151
152 /**
153  * Add a program
154  *
155  * \param out the es_out
156  * \param i_group ...
157  * \return a program descriptor for the new program
158  */
159 static pgrm_descriptor_t *EsOutAddProgram( es_out_t *out, int i_group )
160 {
161     input_thread_t    *p_input = out->p_sys->p_input;
162     pgrm_descriptor_t *p_prgm;
163     es_descriptor_t   *p_pmt;
164
165     /* FIXME we should use a object variable but a lot of place in src/input
166      * have to be changed */
167     int               i_select = config_GetInt( p_input, "program" );
168
169     /* create it */
170     p_prgm = input_AddProgram( p_input, i_group, 0 );
171
172     /* XXX welcome to kludge, add a dummy es, if you want to understand
173      * why have a look at input_SetProgram. Basicaly, it assume the first
174      * es to be the PMT, how that is stupid, nevertheless it is needed for
175      * the old ts demuxer */
176     p_pmt = input_AddES( p_input, p_prgm, 0, UNKNOWN_ES, NULL, 0 );
177     p_pmt->i_fourcc = VLC_FOURCC( 'n', 'u', 'l', 'l' );
178
179     /* Select i_select or the first by default */
180     if( p_input->stream.p_selected_program == NULL &&
181         ( i_select <= 0 || i_select == i_group ) )
182     {
183         p_input->stream.p_selected_program = p_prgm;
184     }
185
186     return p_prgm;
187 }
188
189 /**
190  * Select an ES given the current mode
191  * XXX: you need to take a the lock before (stream.stream_lock)
192  *
193  * \param out The es_out structure
194  * \param es es_out_id structure
195  * \param b_force ...
196  * \return nothing
197  */
198 static void EsOutSelect( es_out_t *out, es_out_id_t *es, vlc_bool_t b_force )
199 {
200     es_out_sys_t      *p_sys = out->p_sys;
201     input_thread_t    *p_input = p_sys->p_input;
202
203     int i_cat = es->p_es->i_cat;
204
205     if( !p_sys->b_active ||
206         ( !b_force && es->p_es->fmt.i_priority < 0 ) )
207     {
208         return;
209     }
210
211     if( p_sys->i_mode == ES_OUT_MODE_ALL || b_force )
212     {
213         if( !es->p_es->p_dec )
214         {
215             input_SelectES( p_input, es->p_es );
216         }
217     }
218     else if( p_sys->i_mode == ES_OUT_MODE_AUTO )
219     {
220         int i_wanted  = -1;
221
222         if( es->p_es->p_pgrm != NULL &&
223             es->p_es->p_pgrm != p_input->stream.p_selected_program )
224         {
225             return;
226         }
227
228         if( i_cat == AUDIO_ES )
229         {
230             if( p_sys->p_es_audio &&
231                 p_sys->p_es_audio->p_es->fmt.i_priority >=
232                     es->p_es->fmt.i_priority )
233             {
234                 return;
235             }
236             i_wanted  = p_sys->i_audio_last >= 0 ?
237                             p_sys->i_audio_last : es->i_channel;
238         }
239         else if( i_cat == SPU_ES )
240         {
241             if( p_sys->p_es_sub &&
242                 p_sys->p_es_sub->p_es->fmt.i_priority >=
243                     es->p_es->fmt.i_priority )
244             {
245                 return;
246             }
247             i_wanted  = p_sys->i_sub_last;
248         }
249         else if( i_cat == VIDEO_ES )
250         {
251             i_wanted  = es->i_channel;
252         }
253
254         if( i_wanted == es->i_channel && es->p_es->p_dec == NULL )
255         {
256             input_SelectES( p_input, es->p_es );
257         }
258     }
259
260     /* FIXME TODO handle priority here */
261     if( es->p_es->p_dec )
262     {
263         if( i_cat == AUDIO_ES )
264         {
265             if( p_sys->i_mode == ES_OUT_MODE_AUTO &&
266                 p_sys->p_es_audio && p_sys->p_es_audio->p_es->p_dec )
267             {
268                 input_UnselectES( p_input, p_sys->p_es_audio->p_es );
269             }
270             p_sys->p_es_audio = es;
271         }
272         else if( i_cat == SPU_ES )
273         {
274             if( p_sys->i_mode == ES_OUT_MODE_AUTO &&
275                 p_sys->p_es_sub && p_sys->p_es_sub->p_es->p_dec )
276             {
277                 input_UnselectES( p_input, p_sys->p_es_sub->p_es );
278             }
279             p_sys->p_es_sub = es;
280         }
281         else if( i_cat == VIDEO_ES )
282         {
283             p_sys->p_es_video = es;
284         }
285     }
286 }
287
288 /**
289  * Add an es_out
290  *
291  * \param out the es_out to add
292  * \param fmt the es_format of the es_out
293  * \return an es_out id
294  */
295 static es_out_id_t *EsOutAdd( es_out_t *out, es_format_t *fmt )
296 {
297     es_out_sys_t      *p_sys = out->p_sys;
298     playlist_t        *p_playlist = NULL;
299     input_thread_t    *p_input = p_sys->p_input;
300     es_out_id_t       *es = malloc( sizeof( es_out_id_t ) );
301     pgrm_descriptor_t *p_prgm = NULL;
302     char              psz_cat[sizeof( _("Stream ") ) + 10];
303     input_info_category_t *p_cat;
304     char              *psz_description;
305
306     vlc_mutex_lock( &p_input->stream.stream_lock );
307     if( fmt->i_group >= 0 )
308     {
309         /* search program */
310         p_prgm = input_FindProgram( p_input, fmt->i_group );
311
312         if( p_prgm == NULL )
313         {
314             /* Create it */
315             p_prgm = EsOutAddProgram( out, fmt->i_group );
316         }
317     }
318     if( fmt->i_id < 0 )
319     {
320         fmt->i_id = out->p_sys->i_id - 1;
321     }
322
323     psz_description = LanguageGetName( fmt->psz_language );
324     es->p_es = input_AddES( p_input,
325                             p_prgm,
326                             fmt->i_id + 1,
327                             fmt->i_cat,
328                             psz_description, 0 );
329     es->p_es->i_stream_id = fmt->i_id;
330     es->p_es->i_fourcc = fmt->i_codec;
331
332     switch( fmt->i_cat )
333     {
334     case AUDIO_ES:
335         es->i_channel = p_sys->i_audio;
336         break;
337
338     case VIDEO_ES:
339         es->i_channel = p_sys->i_video;
340         break;
341
342     case SPU_ES:
343         {
344             subtitle_data_t *p_sub = malloc( sizeof( subtitle_data_t ) );
345             memset( p_sub, 0, sizeof( subtitle_data_t ) );
346             if( fmt->i_extra > 0 )
347             {
348                 p_sub->psz_header = malloc( fmt->i_extra  + 1 );
349                 memcpy( p_sub->psz_header, fmt->p_extra , fmt->i_extra );
350                 /* just to be sure */
351                 ((uint8_t*)fmt->p_extra)[fmt->i_extra] = '\0';
352             }
353             /* FIXME beuuuuuurk */
354             es->p_es->p_demux_data = p_sub;
355
356             es->i_channel = p_sys->i_sub;
357             break;
358         }
359
360     default:
361         es->i_channel = 0;
362         break;
363     }
364
365     sprintf( psz_cat, _("Stream %d"), out->p_sys->i_id - 1 );
366     /* Get a category and the playlist */
367     if( ( p_cat = input_InfoCategory( p_input, psz_cat ) ) &&
368         ( p_playlist = (playlist_t *)vlc_object_find( p_input,
369                        VLC_OBJECT_PLAYLIST, FIND_ANYWHERE ) ) )
370     {
371         char *psz_type;
372         switch( fmt->i_cat )
373         {
374             case AUDIO_ES:
375                 psz_type = _("Audio");
376                 break;
377             case VIDEO_ES:
378                 psz_type = _("Video");
379                 break;
380             case SPU_ES:
381                 psz_type = _("Subtitle");
382                 break;
383             default:
384                 psz_type = NULL;
385                 break;
386         }
387         if( psz_type )
388         {
389             input_AddInfo( p_cat, _("Type"), psz_type );
390             playlist_AddInfo( p_playlist, -1, psz_cat, _("Type"), psz_type );
391         }
392         input_AddInfo( p_cat, _("Codec"), "%.4s", (char*)&fmt->i_codec );
393         playlist_AddInfo( p_playlist, -1, psz_cat, _("Codec"),
394                           "%.4s",(char*)&fmt->i_codec );
395         if( *psz_description )
396         {
397             input_AddInfo( p_cat, _("Language"), psz_description );
398             playlist_AddInfo( p_playlist, -1, psz_cat, _("Language"),
399                               "%s", psz_description );
400         }
401         if( fmt->psz_description && *fmt->psz_description )
402         {
403             input_AddInfo( p_cat, _("Description"), "%s", fmt->psz_description );
404             playlist_AddInfo( p_playlist, -1, psz_cat, _("Description"),
405                               "%s", fmt->psz_description );
406         }
407
408         /* Add information */
409         switch( fmt->i_cat )
410         {
411             case AUDIO_ES:
412                 if( fmt->audio.i_channels > 0 )
413                 {
414                     input_AddInfo( p_cat, _("Channels"),
415                                    "%d", fmt->audio.i_channels );
416                     playlist_AddInfo( p_playlist, -1, psz_cat, _("Channels"),
417                                       "%d", fmt->audio.i_channels );
418                 }
419                 if( fmt->audio.i_rate > 0 )
420                 {
421                     input_AddInfo( p_cat, _("Sample rate"),
422                                    _("%d Hz"), fmt->audio.i_rate );
423                     playlist_AddInfo( p_playlist, -1, psz_cat, _("Sample rate"),
424                                       _("%d Hz"), fmt->audio.i_rate );
425                 }
426                 if( fmt->audio.i_bitspersample > 0 )
427                 {
428                     input_AddInfo( p_cat, _("Bits per sample"),
429                                    "%d", fmt->audio.i_bitspersample );
430                     playlist_AddInfo( p_playlist, -1, psz_cat, _("Bits per sample"),
431                                       "%d", fmt->audio.i_bitspersample );
432                 }
433                 if( fmt->i_bitrate > 0 )
434                 {
435                     input_AddInfo( p_cat, _("Bitrate"),
436                                    _("%d bps"), fmt->i_bitrate );
437                     playlist_AddInfo( p_playlist, -1, psz_cat, _("Bitrate"),
438                                       _("%d bps"), fmt->i_bitrate );
439                 }
440                 break;
441
442             case VIDEO_ES:
443                 if( fmt->video.i_width > 0 && fmt->video.i_height > 0 )
444                 {
445                     input_AddInfo( p_cat, _("Resolution"), "%dx%d",
446                                    fmt->video.i_width, fmt->video.i_height );
447                     playlist_AddInfo( p_playlist, -1, psz_cat,
448                                     _("Resolution"), "%dx%d",
449                                     fmt->video.i_width, fmt->video.i_height );
450                 }
451                 if( fmt->video.i_visible_width > 0 &&
452                     fmt->video.i_visible_height > 0 )
453                 {
454                     input_AddInfo( p_cat, _("Display resolution"), "%dx%d",
455                                    fmt->video.i_visible_width,
456                                    fmt->video.i_visible_height);
457                      playlist_AddInfo( p_playlist, -1, psz_cat,
458                                        _("Display resolution"), "%dx%d",
459                                        fmt->video.i_visible_width,
460                                        fmt->video.i_visible_height);
461                 }
462                 break;
463
464             case SPU_ES:
465             default:
466                 break;
467         }
468         if( p_playlist ) vlc_object_release( p_playlist );
469     }
470     free( psz_description );
471
472     es_format_Copy( &es->p_es->fmt, fmt );
473
474     /* Apply mode
475      * XXX change that when we do group too */
476     if( 1 )
477     {
478         EsOutSelect( out, es, VLC_FALSE );
479     }
480     vlc_mutex_unlock( &p_input->stream.stream_lock );
481
482     TAB_APPEND( out->p_sys->i_es, out->p_sys->es, es );
483     p_sys->i_id++;  /* always incremented */
484     switch( fmt->i_cat )
485     {
486         case AUDIO_ES:
487             p_sys->i_audio++;
488             break;
489         case SPU_ES:
490             p_sys->i_sub++;
491             break;
492         case VIDEO_ES:
493             p_sys->i_video++;
494             break;
495     }
496
497     return es;
498 }
499
500 /**
501  * Send a block for the given es_out
502  *
503  * \param out the es_out to send from
504  * \param es the es_out_id
505  * \param p_block the data block to send
506  */
507 static int EsOutSend( es_out_t *out, es_out_id_t *es, block_t *p_block )
508 {
509     es_out_sys_t *p_sys = out->p_sys;
510
511     if( p_sys->b_pcr_set )
512     {
513         pgrm_descriptor_t *p_pgrm = es->p_es->p_pgrm;
514         input_thread_t    *p_input = p_sys->p_input;
515
516         if( p_pgrm == NULL )
517         {
518             p_pgrm = p_sys->p_input->stream.p_selected_program;
519         }
520
521         if( p_block->i_dts > 0 && p_pgrm )
522         {
523             p_block->i_dts =
524                 input_ClockGetTS( p_input, p_pgrm, p_block->i_dts * 9 / 100 );
525         }
526         if( p_block->i_pts > 0 && p_pgrm )
527         {
528             p_block->i_pts =
529                 input_ClockGetTS( p_input, p_pgrm, p_block->i_pts * 9 / 100 );
530         }
531     }
532
533     vlc_mutex_lock( &out->p_sys->p_input->stream.stream_lock );
534     p_block->i_rate = out->p_sys->p_input->stream.control.i_rate;
535     if( es->p_es->p_dec &&
536         (es->p_es->i_cat!=AUDIO_ES || !p_sys->p_input->stream.control.b_mute) )
537     {
538         input_DecodeBlock( es->p_es->p_dec, p_block );
539     }
540     else
541     {
542         block_Release( p_block );
543     }
544     vlc_mutex_unlock( &out->p_sys->p_input->stream.stream_lock );
545
546     return VLC_SUCCESS;
547 }
548
549 /*****************************************************************************
550  * EsOutDel:
551  *****************************************************************************/
552 static void EsOutDel( es_out_t *out, es_out_id_t *es )
553 {
554     es_out_sys_t *p_sys = out->p_sys;
555
556     TAB_REMOVE( p_sys->i_es, p_sys->es, es );
557
558     switch( es->p_es->i_cat )
559     {
560         case AUDIO_ES:
561             p_sys->i_audio--;
562             break;
563         case SPU_ES:
564             p_sys->i_sub--;
565             break;
566         case VIDEO_ES:
567             p_sys->i_video--;
568             break;
569     }
570
571     /* We don't try to reselect */
572     vlc_mutex_lock( &p_sys->p_input->stream.stream_lock );
573     if( es->p_es->p_dec )
574     {
575         input_UnselectES( p_sys->p_input, es->p_es );
576     }
577
578     if( es->p_es->p_waveformatex )
579     {
580         free( es->p_es->p_waveformatex );
581         es->p_es->p_waveformatex = NULL;
582     }
583     if( es->p_es->p_bitmapinfoheader )
584     {
585         free( es->p_es->p_bitmapinfoheader );
586         es->p_es->p_bitmapinfoheader = NULL;
587     }
588     input_DelES( p_sys->p_input, es->p_es );
589
590     if( p_sys->p_es_audio == es ) p_sys->p_es_audio = NULL;
591     if( p_sys->p_es_video == es ) p_sys->p_es_video = NULL;
592     if( p_sys->p_es_sub   == es ) p_sys->p_es_sub   = NULL;
593
594     vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
595
596     free( es );
597 }
598
599 /**
600  * Control query handler
601  *
602  * \param out the es_out to control
603  * \param i_query A es_out query as defined in include/ninput.h
604  * \param args a variable list of arguments for the query
605  * \return VLC_SUCCESS or an error code
606  */
607 static int EsOutControl( es_out_t *out, int i_query, va_list args )
608 {
609     es_out_sys_t *p_sys = out->p_sys;
610     vlc_bool_t  b, *pb;
611     int         i, *pi;
612
613     es_out_id_t *es;
614
615     switch( i_query )
616     {
617         case ES_OUT_SET_ES_STATE:
618             vlc_mutex_lock( &p_sys->p_input->stream.stream_lock );
619             es = (es_out_id_t*) va_arg( args, es_out_id_t * );
620             b = (vlc_bool_t) va_arg( args, vlc_bool_t );
621             if( b && es->p_es->p_dec == NULL )
622             {
623                 input_SelectES( p_sys->p_input, es->p_es );
624                 vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
625                 return es->p_es->p_dec ? VLC_SUCCESS : VLC_EGENERIC;
626             }
627             else if( !b && es->p_es->p_dec )
628             {
629                 input_UnselectES( p_sys->p_input, es->p_es );
630                 vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
631                 return VLC_SUCCESS;
632             }
633             vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
634             return VLC_SUCCESS;
635
636         case ES_OUT_GET_ES_STATE:
637             es = (es_out_id_t*) va_arg( args, es_out_id_t * );
638             pb = (vlc_bool_t*) va_arg( args, vlc_bool_t * );
639
640             *pb = es->p_es->p_dec ? VLC_TRUE : VLC_FALSE;
641             return VLC_SUCCESS;
642
643         case ES_OUT_SET_ACTIVE:
644         {
645             b = (vlc_bool_t) va_arg( args, vlc_bool_t );
646             p_sys->b_active = b;
647
648             if( b )
649             {
650                 vlc_value_t val;
651                 val.b_bool = VLC_TRUE;
652                 var_Set( p_sys->p_input, "intf-change", val );
653             }
654             return VLC_SUCCESS;
655         }
656
657         case ES_OUT_GET_ACTIVE:
658             pb = (vlc_bool_t*) va_arg( args, vlc_bool_t * );
659             *pb = p_sys->b_active;
660             return VLC_SUCCESS;
661
662         case ES_OUT_SET_MODE:
663             i = (int) va_arg( args, int );
664             if( i == ES_OUT_MODE_NONE || i == ES_OUT_MODE_ALL ||
665                 i == ES_OUT_MODE_AUTO )
666             {
667                 vlc_value_t val;
668
669                 p_sys->i_mode = i;
670
671                 /* Reapply policy mode */
672                 vlc_mutex_lock( &p_sys->p_input->stream.stream_lock );
673                 for( i = 0; i < p_sys->i_es; i++ )
674                 {
675                     if( p_sys->es[i]->p_es->p_dec )
676                     {
677                         input_UnselectES( p_sys->p_input, p_sys->es[i]->p_es );
678                     }
679                 }
680                 for( i = 0; i < p_sys->i_es; i++ )
681                 {
682                     EsOutSelect( out, p_sys->es[i], VLC_FALSE );
683                 }
684                 vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
685
686                 val.b_bool = VLC_TRUE;
687                 var_Set( p_sys->p_input, "intf-change", val );
688
689                 return VLC_SUCCESS;
690             }
691             return VLC_EGENERIC;
692
693         case ES_OUT_GET_MODE:
694             pi = (int*) va_arg( args, int* );
695             *pi = p_sys->i_mode;
696             return VLC_SUCCESS;
697
698         case ES_OUT_SET_ES:
699             es = (es_out_id_t*) va_arg( args, es_out_id_t * );
700             if( es == NULL )
701             {
702                 for( i = 0; i < p_sys->i_es; i++ )
703                 {
704                     vlc_mutex_lock( &p_sys->p_input->stream.stream_lock );
705                     if( p_sys->es[i]->p_es->p_dec )
706                     {
707                         input_UnselectES( p_sys->p_input, p_sys->es[i]->p_es );
708                     }
709                     vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
710                 }
711             }
712             else
713             {
714                 vlc_mutex_lock( &p_sys->p_input->stream.stream_lock );
715                 EsOutSelect( out, es, VLC_TRUE );
716                 vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
717             }
718             return VLC_SUCCESS;
719
720         case ES_OUT_SET_PCR:
721         case ES_OUT_SET_GROUP_PCR:
722         {
723             pgrm_descriptor_t *p_prgm = NULL;
724             int64_t           i_pcr;
725
726             if( i_query == ES_OUT_SET_PCR )
727             {
728                 p_prgm = p_sys->p_input->stream.p_selected_program;
729             }
730             else
731             {
732                 int i_group = (int)va_arg( args, int );
733                 p_prgm = input_FindProgram( p_sys->p_input, i_group );
734                 if( p_prgm == NULL )
735                 {
736                     /* we create the requested program */
737                     p_prgm = EsOutAddProgram( out, i_group );
738                 }
739             }
740             i_pcr   = (int64_t)va_arg( args, int64_t );
741
742             /* search program */
743             if( p_prgm )
744             {
745                 input_ClockManageRef( p_sys->p_input, p_prgm, i_pcr * 9 / 100);
746             }
747             p_sys->b_pcr_set = VLC_TRUE;
748             return VLC_SUCCESS;
749         }
750
751         case ES_OUT_RESET_PCR:
752             for( i = 0; i < p_sys->p_input->stream.i_pgrm_number; i++ )
753             {
754                 p_sys->p_input->stream.pp_programs[i]->i_synchro_state = SYNCHRO_REINIT;
755             }
756             p_sys->b_pcr_set = VLC_TRUE;
757             return VLC_SUCCESS;
758
759         default:
760             msg_Err( p_sys->p_input, "unknown query in es_out_Control" );
761             return VLC_EGENERIC;
762     }
763 }
764
765 /****************************************************************************
766  * LanguageGetName: try to expend iso639 into plain name
767  ****************************************************************************/
768 static char *LanguageGetName( const char *psz_code )
769 {
770     const iso639_lang_t *pl;
771
772     if( psz_code == NULL )
773     {
774         return strdup( "" );
775     }
776
777     if( strlen( psz_code ) == 2 )
778     {
779         pl = GetLang_1( psz_code );
780     }
781     else if( strlen( psz_code ) == 3 )
782     {
783         pl = GetLang_2B( psz_code );
784         if( !strcmp( pl->psz_iso639_1, "??" ) )
785         {
786             pl = GetLang_2T( psz_code );
787         }
788     }
789     else
790     {
791         return strdup( psz_code );
792     }
793
794     if( !strcmp( pl->psz_iso639_1, "??" ) )
795     {
796        return strdup( psz_code );
797     }
798     else
799     {
800         if( *pl->psz_native_name )
801         {
802             return strdup( pl->psz_native_name );
803         }
804         return strdup( pl->psz_eng_name );
805     }
806 }