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