git.sesse.net Git - vlc/blob - 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     input_thread_t    *p_input = p_sys->p_input;
 299     es_out_id_t       *es = malloc( sizeof( es_out_id_t ) );
 300     pgrm_descriptor_t *p_prgm = NULL;
 301     char              psz_cat[sizeof( _("Stream ") ) + 10];
 302     char              *psz_description;
 303
 304     vlc_mutex_lock( &p_input->stream.stream_lock );
 305     if( fmt->i_group >= 0 )
 306     {
 307         /* search program */
 308         p_prgm = input_FindProgram( p_input, fmt->i_group );
 309
 310         if( p_prgm == NULL )
 311         {
 312             /* Create it */
 313             p_prgm = EsOutAddProgram( out, fmt->i_group );
 314         }
 315     }
 316     if( fmt->i_id < 0 )
 317     {
 318         fmt->i_id = out->p_sys->i_id - 1;
 319     }
 320
 321     psz_description = LanguageGetName( fmt->psz_language );
 322     es->p_es = input_AddES( p_input,
 323                             p_prgm,
 324                             fmt->i_id + 1,
 325                             fmt->i_cat,
 326                             psz_description, 0 );
 327     es->p_es->i_stream_id = fmt->i_id;
 328     es->p_es->i_fourcc = fmt->i_codec;
 329
 330     switch( fmt->i_cat )
 331     {
 332     case AUDIO_ES:
 333         es->i_channel = p_sys->i_audio;
 334         break;
 335
 336     case VIDEO_ES:
 337         es->i_channel = p_sys->i_video;
 338         break;
 339
 340     case SPU_ES:
 341         {
 342             subtitle_data_t *p_sub = malloc( sizeof( subtitle_data_t ) );
 343             memset( p_sub, 0, sizeof( subtitle_data_t ) );
 344             if( fmt->i_extra > 0 )
 345             {
 346                 p_sub->psz_header = malloc( fmt->i_extra  + 1 );
 347                 memcpy( p_sub->psz_header, fmt->p_extra , fmt->i_extra );
 348                 /* just to be sure */
 349                 ((uint8_t*)fmt->p_extra)[fmt->i_extra] = '\0';
 350             }
 351             /* FIXME beuuuuuurk */
 352             es->p_es->p_demux_data = p_sub;
 353
 354             es->i_channel = p_sys->i_sub;
 355             break;
 356         }
 357
 358     default:
 359         es->i_channel = 0;
 360         break;
 361     }
 362
 363     /* Add stream info */
 364     vlc_mutex_unlock( &p_input->stream.stream_lock );
 365     sprintf( psz_cat, _("Stream %d"), out->p_sys->i_id - 1 );
 366
 367     input_Control( p_input, INPUT_ADD_INFO, psz_cat, _("Codec"),
 368                    "%.4s", (char*)&fmt->i_codec );
 369
 370     if( *psz_description )
 371         input_Control( p_input, INPUT_ADD_INFO, psz_cat, _("Language"),
 372                        "%s", psz_description );
 373
 374     if( fmt->psz_description && *fmt->psz_description )
 375         input_Control( p_input, INPUT_ADD_INFO, psz_cat, _("Description"),
 376                        "%s", fmt->psz_description );
 377
 378     /* Add information */
 379     switch( fmt->i_cat )
 380     {
 381     case AUDIO_ES:
 382         input_Control( p_input, INPUT_ADD_INFO, psz_cat,
 383                        _("Type"), _("Audio") );
 384
 385         if( fmt->audio.i_channels > 0 )
 386             input_Control( p_input, INPUT_ADD_INFO, psz_cat, _("Channels"),
 387                            "%d", fmt->audio.i_channels );
 388
 389         if( fmt->audio.i_rate > 0 )
 390             input_Control( p_input, INPUT_ADD_INFO, psz_cat, _("Sample rate"),
 391                            _("%d Hz"), fmt->audio.i_rate );
 392
 393         if( fmt->audio.i_bitspersample > 0 )
 394             input_Control( p_input, INPUT_ADD_INFO, psz_cat,
 395                            _("Bits per sample"), "%d",
 396                            fmt->audio.i_bitspersample );
 397
 398         if( fmt->i_bitrate > 0 )
 399             input_Control( p_input, INPUT_ADD_INFO, psz_cat, _("Bitrate"),
 400                            _("%d bps"), fmt->i_bitrate );
 401         break;
 402
 403     case VIDEO_ES:
 404         input_Control( p_input, INPUT_ADD_INFO, psz_cat,
 405                        _("Type"), _("Video") );
 406
 407         if( fmt->video.i_width > 0 && fmt->video.i_height > 0 )
 408             input_Control( p_input, INPUT_ADD_INFO, psz_cat,
 409                            _("Resolution"), "%dx%d",
 410                            fmt->video.i_width, fmt->video.i_height );
 411
 412         if( fmt->video.i_visible_width > 0 &&
 413             fmt->video.i_visible_height > 0 )
 414             input_Control( p_input, INPUT_ADD_INFO, psz_cat,
 415                            _("Display resolution"), "%dx%d",
 416                            fmt->video.i_visible_width,
 417                            fmt->video.i_visible_height);
 418         break;
 419
 420     case SPU_ES:
 421         input_Control( p_input, INPUT_ADD_INFO, psz_cat,
 422                        _("Type"), _("Subtitle") );
 423         break;
 424
 425     default:
 426         break;
 427     }
 428
 429     vlc_mutex_lock( &p_input->stream.stream_lock );
 430     free( psz_description );
 431
 432     es_format_Copy( &es->p_es->fmt, fmt );
 433
 434     /* Apply mode
 435      * XXX change that when we do group too */
 436     if( 1 )
 437     {
 438         EsOutSelect( out, es, VLC_FALSE );
 439     }
 440     vlc_mutex_unlock( &p_input->stream.stream_lock );
 441
 442     TAB_APPEND( out->p_sys->i_es, out->p_sys->es, es );
 443     p_sys->i_id++;  /* always incremented */
 444     switch( fmt->i_cat )
 445     {
 446         case AUDIO_ES:
 447             p_sys->i_audio++;
 448             break;
 449         case SPU_ES:
 450             p_sys->i_sub++;
 451             break;
 452         case VIDEO_ES:
 453             p_sys->i_video++;
 454             break;
 455     }
 456
 457     return es;
 458 }
 459
 460 /**
 461  * Send a block for the given es_out
 462  *
 463  * \param out the es_out to send from
 464  * \param es the es_out_id
 465  * \param p_block the data block to send
 466  */
 467 static int EsOutSend( es_out_t *out, es_out_id_t *es, block_t *p_block )
 468 {
 469     es_out_sys_t *p_sys = out->p_sys;
 470
 471     if( p_sys->b_pcr_set )
 472     {
 473         pgrm_descriptor_t *p_pgrm = es->p_es->p_pgrm;
 474         input_thread_t    *p_input = p_sys->p_input;
 475
 476         if( p_pgrm == NULL )
 477         {
 478             p_pgrm = p_sys->p_input->stream.p_selected_program;
 479         }
 480
 481         if( p_block->i_dts > 0 && p_pgrm )
 482         {
 483             p_block->i_dts =
 484                 input_ClockGetTS( p_input, p_pgrm, p_block->i_dts * 9 / 100 );
 485         }
 486         if( p_block->i_pts > 0 && p_pgrm )
 487         {
 488             p_block->i_pts =
 489                 input_ClockGetTS( p_input, p_pgrm, p_block->i_pts * 9 / 100 );
 490         }
 491     }
 492
 493     vlc_mutex_lock( &out->p_sys->p_input->stream.stream_lock );
 494     p_block->i_rate = out->p_sys->p_input->stream.control.i_rate;
 495     if( es->p_es->p_dec &&
 496         (es->p_es->i_cat!=AUDIO_ES || !p_sys->p_input->stream.control.b_mute) )
 497     {
 498         input_DecodeBlock( es->p_es->p_dec, p_block );
 499     }
 500     else
 501     {
 502         block_Release( p_block );
 503     }
 504     vlc_mutex_unlock( &out->p_sys->p_input->stream.stream_lock );
 505
 506     return VLC_SUCCESS;
 507 }
 508
 509 /*****************************************************************************
 510  * EsOutDel:
 511  *****************************************************************************/
 512 static void EsOutDel( es_out_t *out, es_out_id_t *es )
 513 {
 514     es_out_sys_t *p_sys = out->p_sys;
 515
 516     TAB_REMOVE( p_sys->i_es, p_sys->es, es );
 517
 518     switch( es->p_es->i_cat )
 519     {
 520         case AUDIO_ES:
 521             p_sys->i_audio--;
 522             break;
 523         case SPU_ES:
 524             p_sys->i_sub--;
 525             break;
 526         case VIDEO_ES:
 527             p_sys->i_video--;
 528             break;
 529     }
 530
 531     /* We don't try to reselect */
 532     vlc_mutex_lock( &p_sys->p_input->stream.stream_lock );
 533     if( es->p_es->p_dec )
 534     {
 535         input_UnselectES( p_sys->p_input, es->p_es );
 536     }
 537
 538     if( es->p_es->p_waveformatex )
 539     {
 540         free( es->p_es->p_waveformatex );
 541         es->p_es->p_waveformatex = NULL;
 542     }
 543     if( es->p_es->p_bitmapinfoheader )
 544     {
 545         free( es->p_es->p_bitmapinfoheader );
 546         es->p_es->p_bitmapinfoheader = NULL;
 547     }
 548     input_DelES( p_sys->p_input, es->p_es );
 549
 550     if( p_sys->p_es_audio == es ) p_sys->p_es_audio = NULL;
 551     if( p_sys->p_es_video == es ) p_sys->p_es_video = NULL;
 552     if( p_sys->p_es_sub   == es ) p_sys->p_es_sub   = NULL;
 553
 554     vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
 555
 556     free( es );
 557 }
 558
 559 /**
 560  * Control query handler
 561  *
 562  * \param out the es_out to control
 563  * \param i_query A es_out query as defined in include/ninput.h
 564  * \param args a variable list of arguments for the query
 565  * \return VLC_SUCCESS or an error code
 566  */
 567 static int EsOutControl( es_out_t *out, int i_query, va_list args )
 568 {
 569     es_out_sys_t *p_sys = out->p_sys;
 570     vlc_bool_t  b, *pb;
 571     int         i, *pi;
 572
 573     es_out_id_t *es;
 574
 575     switch( i_query )
 576     {
 577         case ES_OUT_SET_ES_STATE:
 578             vlc_mutex_lock( &p_sys->p_input->stream.stream_lock );
 579             es = (es_out_id_t*) va_arg( args, es_out_id_t * );
 580             b = (vlc_bool_t) va_arg( args, vlc_bool_t );
 581             if( b && es->p_es->p_dec == NULL )
 582             {
 583                 input_SelectES( p_sys->p_input, es->p_es );
 584                 vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
 585                 return es->p_es->p_dec ? VLC_SUCCESS : VLC_EGENERIC;
 586             }
 587             else if( !b && es->p_es->p_dec )
 588             {
 589                 input_UnselectES( p_sys->p_input, es->p_es );
 590                 vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
 591                 return VLC_SUCCESS;
 592             }
 593             vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
 594             return VLC_SUCCESS;
 595
 596         case ES_OUT_GET_ES_STATE:
 597             es = (es_out_id_t*) va_arg( args, es_out_id_t * );
 598             pb = (vlc_bool_t*) va_arg( args, vlc_bool_t * );
 599
 600             *pb = es->p_es->p_dec ? VLC_TRUE : VLC_FALSE;
 601             return VLC_SUCCESS;
 602
 603         case ES_OUT_SET_ACTIVE:
 604         {
 605             b = (vlc_bool_t) va_arg( args, vlc_bool_t );
 606             p_sys->b_active = b;
 607
 608             if( b )
 609             {
 610                 vlc_value_t val;
 611                 val.b_bool = VLC_TRUE;
 612                 var_Set( p_sys->p_input, "intf-change", val );
 613             }
 614             return VLC_SUCCESS;
 615         }
 616
 617         case ES_OUT_GET_ACTIVE:
 618             pb = (vlc_bool_t*) va_arg( args, vlc_bool_t * );
 619             *pb = p_sys->b_active;
 620             return VLC_SUCCESS;
 621
 622         case ES_OUT_SET_MODE:
 623             i = (int) va_arg( args, int );
 624             if( i == ES_OUT_MODE_NONE || i == ES_OUT_MODE_ALL ||
 625                 i == ES_OUT_MODE_AUTO )
 626             {
 627                 vlc_value_t val;
 628
 629                 p_sys->i_mode = i;
 630
 631                 /* Reapply policy mode */
 632                 vlc_mutex_lock( &p_sys->p_input->stream.stream_lock );
 633                 for( i = 0; i < p_sys->i_es; i++ )
 634                 {
 635                     if( p_sys->es[i]->p_es->p_dec )
 636                     {
 637                         input_UnselectES( p_sys->p_input, p_sys->es[i]->p_es );
 638                     }
 639                 }
 640                 for( i = 0; i < p_sys->i_es; i++ )
 641                 {
 642                     EsOutSelect( out, p_sys->es[i], VLC_FALSE );
 643                 }
 644                 vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
 645
 646                 val.b_bool = VLC_TRUE;
 647                 var_Set( p_sys->p_input, "intf-change", val );
 648
 649                 return VLC_SUCCESS;
 650             }
 651             return VLC_EGENERIC;
 652
 653         case ES_OUT_GET_MODE:
 654             pi = (int*) va_arg( args, int* );
 655             *pi = p_sys->i_mode;
 656             return VLC_SUCCESS;
 657
 658         case ES_OUT_SET_ES:
 659             es = (es_out_id_t*) va_arg( args, es_out_id_t * );
 660             if( es == NULL )
 661             {
 662                 for( i = 0; i < p_sys->i_es; i++ )
 663                 {
 664                     vlc_mutex_lock( &p_sys->p_input->stream.stream_lock );
 665                     if( p_sys->es[i]->p_es->p_dec )
 666                     {
 667                         input_UnselectES( p_sys->p_input, p_sys->es[i]->p_es );
 668                     }
 669                     vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
 670                 }
 671             }
 672             else
 673             {
 674                 vlc_mutex_lock( &p_sys->p_input->stream.stream_lock );
 675                 EsOutSelect( out, es, VLC_TRUE );
 676                 vlc_mutex_unlock( &p_sys->p_input->stream.stream_lock );
 677             }
 678             return VLC_SUCCESS;
 679
 680         case ES_OUT_SET_PCR:
 681         case ES_OUT_SET_GROUP_PCR:
 682         {
 683             pgrm_descriptor_t *p_prgm = NULL;
 684             int64_t           i_pcr;
 685
 686             if( i_query == ES_OUT_SET_PCR )
 687             {
 688                 p_prgm = p_sys->p_input->stream.p_selected_program;
 689             }
 690             else
 691             {
 692                 int i_group = (int)va_arg( args, int );
 693                 p_prgm = input_FindProgram( p_sys->p_input, i_group );
 694                 if( p_prgm == NULL )
 695                 {
 696                     /* we create the requested program */
 697                     p_prgm = EsOutAddProgram( out, i_group );
 698                 }
 699             }
 700             i_pcr   = (int64_t)va_arg( args, int64_t );
 701
 702             /* search program */
 703             if( p_prgm )
 704             {
 705                 input_ClockManageRef( p_sys->p_input, p_prgm, i_pcr * 9 / 100);
 706             }
 707             p_sys->b_pcr_set = VLC_TRUE;
 708             return VLC_SUCCESS;
 709         }
 710
 711         case ES_OUT_RESET_PCR:
 712             for( i = 0; i < p_sys->p_input->stream.i_pgrm_number; i++ )
 713             {
 714                 p_sys->p_input->stream.pp_programs[i]->i_synchro_state = SYNCHRO_REINIT;
 715             }
 716             p_sys->b_pcr_set = VLC_TRUE;
 717             return VLC_SUCCESS;
 718
 719         default:
 720             msg_Err( p_sys->p_input, "unknown query in es_out_Control" );
 721             return VLC_EGENERIC;
 722     }
 723 }
 724
 725 /****************************************************************************
 726  * LanguageGetName: try to expend iso639 into plain name
 727  ****************************************************************************/
 728 static char *LanguageGetName( const char *psz_code )
 729 {
 730     const iso639_lang_t *pl;
 731
 732     if( psz_code == NULL )
 733     {
 734         return strdup( "" );
 735     }
 736
 737     if( strlen( psz_code ) == 2 )
 738     {
 739         pl = GetLang_1( psz_code );
 740     }
 741     else if( strlen( psz_code ) == 3 )
 742     {
 743         pl = GetLang_2B( psz_code );
 744         if( !strcmp( pl->psz_iso639_1, "??" ) )
 745         {
 746             pl = GetLang_2T( psz_code );
 747         }
 748     }
 749     else
 750     {
 751         return strdup( psz_code );
 752     }
 753
 754     if( !strcmp( pl->psz_iso639_1, "??" ) )
 755     {
 756        return strdup( psz_code );
 757     }
 758     else
 759     {
 760         if( *pl->psz_native_name )
 761         {
 762             return strdup( pl->psz_native_name );
 763         }
 764         return strdup( pl->psz_eng_name );
 765     }
 766 }