git.sesse.net Git - vlc/blob - src/misc/stats.c

   1 /*****************************************************************************
   2  * stats.c: Statistics handling
   3  *****************************************************************************
   4  * Copyright (C) 2006 the VideoLAN team
   5  * $Id$
   6  *
   7  * Authors: Clément Stenac <zorglub@videolan.org>
   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., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
  22  *****************************************************************************/
  23
  24 /*****************************************************************************
  25  * Preamble
  26  *****************************************************************************/
  27 #include <stdio.h>                                               /* required */
  28
  29 #include <vlc/vlc.h>
  30 #include <vlc_input.h>
  31
  32 /*****************************************************************************
  33  * Local prototypes
  34  *****************************************************************************/
  35 static counter_t *GetCounter( stats_handler_t *p_handler, int i_object_id,
  36                               const char *psz_name );
  37 static int stats_CounterUpdate( stats_handler_t *p_handler,
  38                                 counter_t *p_counter,
  39                                 vlc_value_t val );
  40 static stats_handler_t* stats_HandlerCreate( vlc_object_t *p_this );
  41 static stats_handler_t *stats_HandlerGet( vlc_object_t *p_this );
  42
  43 static void TimerDump( vlc_object_t *p_this, counter_t *p_counter, vlc_bool_t);
  44
  45 /*****************************************************************************
  46  * Exported functions
  47  *****************************************************************************/
  48
  49 /**
  50  * Cleanup statistics handler stuff
  51  * \param p_stats the handler to clean
  52  * \return nothing
  53  */
  54 void stats_HandlerDestroy( stats_handler_t *p_stats )
  55 {
  56     int i;
  57     for ( i =  p_stats->i_counters - 1 ; i >= 0 ; i-- )
  58     {
  59         int j;
  60         counter_t * p_counter = p_stats->pp_counters[i];
  61
  62         for( j = p_counter->i_samples -1; j >= 0 ; j-- )
  63         {
  64             counter_sample_t *p_sample = p_counter->pp_samples[j];
  65             REMOVE_ELEM( p_counter->pp_samples, p_counter->i_samples, j );
  66             free( p_sample );
  67         }
  68         free( p_counter->psz_name );
  69         REMOVE_ELEM( p_stats->pp_counters, p_stats->i_counters, i );
  70         free( p_counter );
  71     }
  72 }
  73
  74 /**
  75  * Create a statistics counter
  76  * \param p_this the object for which to create the counter
  77  * \param psz_name the name
  78  * \param i_type the type of stored data. One of VLC_VAR_STRING,
  79  * VLC_VAR_INTEGER, VLC_VAR_FLOAT
  80  * \param i_compute_type the aggregation type. One of STATS_LAST (always
  81  * keep the last value), STATS_COUNTER (increment by the passed value),
  82  * STATS_MAX (keep the maximum passed value), STATS_MIN, or STATS_DERIVATIVE
  83  * (keep a time derivative of the value)
  84  */
  85 int __stats_Create( vlc_object_t *p_this, const char *psz_name, int i_type,
  86                     int i_compute_type )
  87 {
  88     counter_t *p_counter;
  89     stats_handler_t *p_handler;
  90
  91     if( p_this->p_libvlc->b_stats == VLC_FALSE )
  92     {
  93         return VLC_EGENERIC;
  94     }
  95     p_handler = stats_HandlerGet( p_this );
  96     if( !p_handler ) return VLC_ENOMEM;
  97
  98     vlc_mutex_lock( &p_handler->object_lock );
  99
 100     p_counter = (counter_t*) malloc( sizeof( counter_t ) ) ;
 101
 102     p_counter->psz_name = strdup( psz_name );
 103     p_counter->i_source_object = p_this->i_object_id;
 104     p_counter->i_compute_type = i_compute_type;
 105     p_counter->i_type = i_type;
 106     p_counter->i_samples = 0;
 107     p_counter->pp_samples = NULL;
 108
 109     p_counter->update_interval = 0;
 110     p_counter->last_update = 0;
 111
 112     INSERT_ELEM( p_handler->pp_counters,
 113                  p_handler->i_counters,
 114                  p_handler->i_counters,
 115                  p_counter );
 116
 117     vlc_mutex_unlock( &p_handler->object_lock );
 118
 119     return VLC_SUCCESS;
 120 }
 121
 122 /** Update a counter element with new values
 123  * \param p_this the object in which to update
 124  * \param psz_name the name
 125  * \param val the vlc_value union containing the new value to aggregate. For
 126  * more information on how data is aggregated, \see __stats_Create
 127  */
 128 int __stats_Update( vlc_object_t *p_this, const char *psz_name,
 129                     vlc_value_t val )
 130 {
 131     int i_ret;
 132     counter_t *p_counter;
 133
 134     /* Get stats handler singleton */
 135     stats_handler_t *p_handler;
 136     if( p_this->p_libvlc->b_stats == VLC_FALSE )
 137     {
 138         return VLC_EGENERIC;
 139     }
 140     p_handler = stats_HandlerGet( p_this );
 141     if( !p_handler ) return VLC_ENOMEM;
 142
 143     vlc_mutex_lock( &p_handler->object_lock );
 144     /* Look for existing element */
 145     p_counter = GetCounter( p_handler, p_this->i_object_id,
 146                             psz_name );
 147     if( !p_counter )
 148     {
 149         vlc_mutex_unlock( &p_handler->object_lock );
 150         vlc_object_release( p_handler );
 151         return VLC_ENOOBJ;
 152     }
 153
 154     i_ret = stats_CounterUpdate( p_handler, p_counter, val );
 155     vlc_mutex_unlock( &p_handler->object_lock );
 156
 157     return i_ret;
 158 }
 159
 160 /** Get the aggregated value for a counter
 161  * \param p_this an object
 162  * \param i_object_id the object id from which we want the data
 163  * \param psz_name the name of the couner
 164  * \param val a pointer to an initialized vlc_value union. It will contain the
 165  * retrieved value
 166  * \return an error code
 167  */
 168 int __stats_Get( vlc_object_t *p_this, int i_object_id,
 169                  const char *psz_name, vlc_value_t *val )
 170 {
 171     counter_t *p_counter;
 172
 173     /* Get stats handler singleton */
 174     stats_handler_t *p_handler;
 175     if( p_this->p_libvlc->b_stats == VLC_FALSE )
 176     {
 177         return VLC_EGENERIC;
 178     }
 179     p_handler = stats_HandlerGet( p_this );
 180     if( !p_handler ) return VLC_ENOMEM;
 181     vlc_mutex_lock( &p_handler->object_lock );
 182
 183     /* Look for existing element */
 184     p_counter = GetCounter( p_handler, i_object_id,
 185                             psz_name );
 186     if( !p_counter )
 187     {
 188         vlc_mutex_unlock( &p_handler->object_lock );
 189         vlc_object_release( p_handler );
 190         val->i_int = val->f_float = 0.0;
 191         return VLC_ENOOBJ;
 192     }
 193
 194     if( p_counter->i_samples == 0 )
 195     {
 196         vlc_mutex_unlock( &p_handler->object_lock );
 197         val->i_int = val->f_float = 0.0;
 198         return VLC_EGENERIC;
 199     }
 200
 201     switch( p_counter->i_compute_type )
 202     {
 203     case STATS_LAST:
 204     case STATS_MIN:
 205     case STATS_MAX:
 206     case STATS_COUNTER:
 207         *val = p_counter->pp_samples[0]->value;
 208         break;
 209     case STATS_DERIVATIVE:
 210         /* Not ready yet */
 211         if( p_counter->i_samples < 2 )
 212         {
 213             vlc_mutex_unlock( &p_handler->object_lock );
 214             val->i_int = 0; val->f_float = 0.0;
 215             return VLC_EGENERIC;
 216         }
 217         if( p_counter->i_type == VLC_VAR_INTEGER )
 218         {
 219             float f = ( p_counter->pp_samples[0]->value.i_int -
 220                         p_counter->pp_samples[1]->value.i_int ) /
 221                     (float)(  p_counter->pp_samples[0]->date -
 222                               p_counter->pp_samples[1]->date );
 223             val->i_int = (int)f;
 224         }
 225         else
 226         {
 227             float f = (float)( p_counter->pp_samples[0]->value.f_float -
 228                                p_counter->pp_samples[1]->value.f_float ) /
 229                       (float)( p_counter->pp_samples[0]->date -
 230                                p_counter->pp_samples[1]->date );
 231             val->f_float = f;
 232         }
 233         break;
 234     }
 235     vlc_object_release( p_handler );
 236
 237     vlc_mutex_unlock( &p_handler->object_lock );
 238     return VLC_SUCCESS;;
 239 }
 240
 241 /** Get a statistics counter structure. This allows for low-level modifications
 242  * \param p_this a parent object
 243  * \param i_object_id the object from which to retrieve data
 244  * \param psz_name the name
 245  * \return the counter, or NULL if not found (or handler not created yet)
 246  */
 247 counter_t *__stats_CounterGet( vlc_object_t *p_this, int i_object_id,
 248                                const char *psz_name )
 249 {
 250     counter_t *p_counter;
 251
 252     stats_handler_t *p_handler;
 253     if( p_this->p_libvlc->b_stats == VLC_FALSE )
 254     {
 255         return NULL;
 256     }
 257     p_handler = stats_HandlerGet( p_this );
 258     if( !p_handler ) return NULL;
 259
 260     vlc_mutex_lock( &p_handler->object_lock );
 261
 262     /* Look for existing element */
 263     p_counter = GetCounter( p_handler, i_object_id,
 264                             psz_name );
 265     vlc_mutex_unlock( &p_handler->object_lock );
 266     vlc_object_release( p_handler );
 267
 268     return p_counter;
 269 }
 270
 271
 272 void stats_ComputeInputStats( input_thread_t *p_input,
 273                               input_stats_t *p_stats )
 274 {
 275     vlc_object_t *p_obj;
 276     vlc_list_t *p_list;
 277     int i_index;
 278     vlc_mutex_lock( &p_stats->lock );
 279
 280     /* Input */
 281     stats_GetInteger( p_input, p_input->i_object_id, "read_packets",
 282                        &p_stats->i_read_packets );
 283     stats_GetInteger( p_input, p_input->i_object_id, "read_bytes",
 284                        &p_stats->i_read_bytes );
 285     stats_GetFloat( p_input, p_input->i_object_id, "input_bitrate",
 286                        &p_stats->f_input_bitrate );
 287
 288     stats_GetInteger( p_input, p_input->i_object_id, "demux_read",
 289                       &p_stats->i_demux_read_bytes );
 290     stats_GetFloat( p_input, p_input->i_object_id, "demux_bitrate",
 291                       &p_stats->f_demux_bitrate );
 292
 293     stats_GetInteger( p_input, p_input->i_object_id, "decoded_video",
 294                       &p_stats->i_decoded_video );
 295     stats_GetInteger( p_input, p_input->i_object_id, "decoded_audio",
 296                       &p_stats->i_decoded_audio );
 297
 298     /* Sout */
 299     stats_GetInteger( p_input, p_input->i_object_id, "sout_sent_packets",
 300                       &p_stats->i_sent_packets );
 301     stats_GetInteger( p_input, p_input->i_object_id, "sout_sent_bytes",
 302                       &p_stats->i_sent_bytes );
 303     stats_GetFloat  ( p_input, p_input->i_object_id, "sout_send_bitrate",
 304                       &p_stats->f_send_bitrate );
 305
 306     /* Aout - We store in p_input because aout is shared */
 307     stats_GetInteger( p_input, p_input->i_object_id, "played_abuffers",
 308                       &p_stats->i_played_abuffers );
 309     stats_GetInteger( p_input, p_input->i_object_id, "lost_abuffers",
 310                       &p_stats->i_lost_abuffers );
 311
 312     /* Vouts - FIXME: Store all in input */
 313     p_list = vlc_list_find( p_input, VLC_OBJECT_VOUT, FIND_CHILD );
 314     if( p_list )
 315     {
 316         p_stats->i_displayed_pictures  = 0 ;
 317         p_stats->i_lost_pictures = 0;
 318         for( i_index = 0; i_index < p_list->i_count ; i_index ++ )
 319         {
 320             int i_displayed = 0, i_lost = 0;
 321             p_obj = (vlc_object_t *)p_list->p_values[i_index].p_object;
 322             stats_GetInteger( p_obj, p_obj->i_object_id, "displayed_pictures",
 323                               &i_displayed );
 324             stats_GetInteger( p_obj, p_obj->i_object_id, "lost_pictures",
 325                               &i_lost );
 326             p_stats->i_displayed_pictures += i_displayed;
 327             p_stats->i_lost_pictures += i_lost;
 328          }
 329         vlc_list_release( p_list );
 330     }
 331
 332     vlc_mutex_unlock( &p_stats->lock );
 333 }
 334
 335
 336 void stats_ReinitInputStats( input_stats_t *p_stats )
 337 {
 338     p_stats->i_read_packets = p_stats->i_read_bytes =
 339     p_stats->f_input_bitrate = p_stats->f_average_input_bitrate =
 340     p_stats->i_demux_read_packets = p_stats->i_demux_read_bytes =
 341     p_stats->f_demux_bitrate = p_stats->f_average_demux_bitrate =
 342     p_stats->i_displayed_pictures = p_stats->i_lost_pictures =
 343     p_stats->i_played_abuffers = p_stats->i_lost_abuffers =
 344     p_stats->i_decoded_video = p_stats->i_decoded_audio =
 345     p_stats->i_sent_bytes = p_stats->i_sent_packets = p_stats->f_send_bitrate
 346      = 0;
 347 }
 348
 349 void stats_DumpInputStats( input_stats_t *p_stats  )
 350 {
 351     vlc_mutex_lock( &p_stats->lock );
 352     /* f_bitrate is in bytes / microsecond
 353      * *1000 => bytes / millisecond => kbytes / seconds */
 354     fprintf( stderr, "Input : %i (%i bytes) - %f kB/s - Demux : %i (%i bytes) - %f kB/s\n"
 355                      " - Vout : %i/%i - Aout : %i/%i - Vout : %f\n",
 356                     p_stats->i_read_packets, p_stats->i_read_bytes,
 357                     p_stats->f_input_bitrate * 1000,
 358                     p_stats->i_demux_read_packets, p_stats->i_demux_read_bytes,
 359                     p_stats->f_demux_bitrate * 1000,
 360                     p_stats->i_displayed_pictures, p_stats->i_lost_pictures,
 361                     p_stats->i_played_abuffers, p_stats->i_lost_abuffers,
 362                     p_stats->f_send_bitrate );
 363     vlc_mutex_unlock( &p_stats->lock );
 364 }
 365
 366 void __stats_ComputeGlobalStats( vlc_object_t *p_obj,
 367                                 global_stats_t *p_stats )
 368 {
 369     vlc_list_t *p_list;
 370     int i_index;
 371     vlc_mutex_lock( &p_stats->lock );
 372
 373     p_list = vlc_list_find( p_obj, VLC_OBJECT_INPUT, FIND_ANYWHERE );
 374     if( p_list )
 375     {
 376         float f_total_in = 0, f_total_out = 0,f_total_demux = 0;
 377         for( i_index = 0; i_index < p_list->i_count ; i_index ++ )
 378         {
 379             float f_in = 0, f_out = 0, f_demux = 0;
 380             p_obj = (vlc_object_t *)p_list->p_values[i_index].p_object;
 381             stats_GetFloat( p_obj, p_obj->i_object_id, "input_bitrate",
 382                             &f_in );
 383             stats_GetFloat( p_obj, p_obj->i_object_id, "sout_send_bitrate",
 384                             &f_out );
 385             stats_GetFloat( p_obj, p_obj->i_object_id, "demux_bitrate",
 386                             &f_demux );
 387             f_total_in += f_in; f_total_out += f_out;f_total_demux += f_demux;
 388         }
 389         p_stats->f_input_bitrate = f_total_in;
 390         p_stats->f_output_bitrate = f_total_out;
 391         p_stats->f_demux_bitrate = f_total_demux;
 392         vlc_list_release( p_list );
 393     }
 394
 395     vlc_mutex_unlock( &p_stats->lock );
 396 }
 397
 398 void stats_ReinitGlobalStats( global_stats_t *p_stats )
 399 {
 400     p_stats->f_input_bitrate = p_stats->f_output_bitrate = 0.0;
 401 }
 402
 403
 404 void __stats_TimerStart( vlc_object_t *p_obj, const char *psz_name )
 405 {
 406     counter_t *p_counter = stats_CounterGet( p_obj,
 407                                              p_obj->p_vlc->i_object_id,
 408                                              psz_name );
 409     if( !p_counter )
 410     {
 411         counter_sample_t *p_sample;
 412         stats_Create( p_obj->p_vlc, psz_name, VLC_VAR_TIME, STATS_TIMER );
 413         p_counter = stats_CounterGet( p_obj,  p_obj->p_vlc->i_object_id,
 414                                       psz_name );
 415         if( !p_counter ) return;
 416         /* 1st sample : if started: start_date, else last_time, b_started */
 417         p_sample = (counter_sample_t *)malloc( sizeof( counter_sample_t ) );
 418         INSERT_ELEM( p_counter->pp_samples, p_counter->i_samples,
 419                      p_counter->i_samples, p_sample );
 420         p_sample->date = 0; p_sample->value.b_bool = 0;
 421         /* 2nd sample : global_time, i_samples */
 422         p_sample = (counter_sample_t *)malloc( sizeof( counter_sample_t ) );
 423         INSERT_ELEM( p_counter->pp_samples, p_counter->i_samples,
 424                      p_counter->i_samples, p_sample );
 425         p_sample->date = 0; p_sample->value.i_int = 0;
 426     }
 427     if( p_counter->pp_samples[0]->value.b_bool == VLC_TRUE )
 428     {
 429         msg_Warn( p_obj, "timer %s was already started !", psz_name );
 430         return;
 431     }
 432     p_counter->pp_samples[0]->value.b_bool = VLC_TRUE;
 433     p_counter->pp_samples[0]->date = mdate();
 434 }
 435
 436 void __stats_TimerStop( vlc_object_t *p_obj, const char *psz_name )
 437 {
 438     counter_t *p_counter = stats_CounterGet( p_obj,
 439                                               p_obj->p_vlc->i_object_id,
 440                                              psz_name );
 441     if( !p_counter || p_counter->i_samples != 2 )
 442     {
 443         msg_Err( p_obj, "timer %s does not exist", psz_name );
 444         return;
 445     }
 446     p_counter->pp_samples[0]->value.b_bool = VLC_FALSE;
 447     p_counter->pp_samples[1]->value.i_int += 1;
 448     p_counter->pp_samples[0]->date = mdate() - p_counter->pp_samples[0]->date;
 449     p_counter->pp_samples[1]->date += p_counter->pp_samples[0]->date;
 450 }
 451
 452 void __stats_TimerDump( vlc_object_t *p_obj, const char *psz_name )
 453 {
 454     counter_t *p_counter = stats_CounterGet( p_obj,
 455                                              p_obj->p_vlc->i_object_id,
 456                                              psz_name );
 457     TimerDump( p_obj, p_counter, VLC_TRUE );
 458 }
 459
 460
 461 void __stats_TimersDumpAll( vlc_object_t *p_obj )
 462 {
 463     int i;
 464     stats_handler_t *p_handler = stats_HandlerGet( p_obj );
 465     if( !p_handler ) return;
 466
 467     vlc_mutex_lock( &p_handler->object_lock );
 468     for ( i = 0 ; i< p_handler->i_counters; i++ )
 469     {
 470         if( p_handler->pp_counters[i]->i_compute_type == STATS_TIMER )
 471         {
 472             TimerDump( p_obj, p_handler->pp_counters[i], VLC_FALSE );
 473         }
 474     }
 475     vlc_mutex_unlock( &p_handler->object_lock );
 476 }
 477
 478
 479 /********************************************************************
 480  * Following functions are local
 481  ********************************************************************/
 482
 483 /**
 484  * Update a statistics counter, according to its type
 485  * If needed, perform a bit of computation (derivative, mostly)
 486  * This function must be entered with stats handler lock
 487  * \param p_handler stats handler singleton
 488  * \param p_counter the counter to update
 489  * \param val the "new" value
 490  * \return an error code
 491  */
 492 static int stats_CounterUpdate( stats_handler_t *p_handler,
 493                                 counter_t *p_counter,
 494                                 vlc_value_t val )
 495 {
 496     switch( p_counter->i_compute_type )
 497     {
 498     case STATS_LAST:
 499     case STATS_MIN:
 500     case STATS_MAX:
 501         if( p_counter->i_samples > 1)
 502         {
 503             msg_Err( p_handler, "LAST counter has several samples !" );
 504             return VLC_EGENERIC;
 505         }
 506         if( p_counter->i_type != VLC_VAR_FLOAT &&
 507             p_counter->i_type != VLC_VAR_INTEGER &&
 508             p_counter->i_compute_type != STATS_LAST )
 509         {
 510             msg_Err( p_handler, "Unable to compute MIN or MAX for this type");
 511             return VLC_EGENERIC;
 512         }
 513
 514         if( p_counter->i_samples == 0 )
 515         {
 516             counter_sample_t *p_new = (counter_sample_t*)malloc(
 517                                                sizeof( counter_sample_t ) );
 518             p_new->value.psz_string = NULL;
 519
 520             INSERT_ELEM( p_counter->pp_samples, p_counter->i_samples,
 521                          p_counter->i_samples, p_new );
 522         }
 523         if( p_counter->i_samples == 1 )
 524         {
 525             /* Update if : LAST or (MAX and bigger) or (MIN and bigger) */
 526             if( p_counter->i_compute_type == STATS_LAST ||
 527                 ( p_counter->i_compute_type == STATS_MAX &&
 528                    ( ( p_counter->i_type == VLC_VAR_INTEGER &&
 529                        p_counter->pp_samples[0]->value.i_int > val.i_int ) ||
 530                      ( p_counter->i_type == VLC_VAR_FLOAT &&
 531                        p_counter->pp_samples[0]->value.f_float > val.f_float )
 532                    ) ) ||
 533                 ( p_counter->i_compute_type == STATS_MIN &&
 534                    ( ( p_counter->i_type == VLC_VAR_INTEGER &&
 535                        p_counter->pp_samples[0]->value.i_int < val.i_int ) ||
 536                      ( p_counter->i_type == VLC_VAR_FLOAT &&
 537                        p_counter->pp_samples[0]->value.f_float < val.f_float )
 538                    ) ) )
 539             {
 540                 if( p_counter->i_type == VLC_VAR_STRING &&
 541                     p_counter->pp_samples[0]->value.psz_string )
 542                 {
 543                     free( p_counter->pp_samples[0]->value.psz_string );
 544                 }
 545                 p_counter->pp_samples[0]->value = val;
 546             }
 547         }
 548         break;
 549     case STATS_DERIVATIVE:
 550     {
 551         counter_sample_t *p_new, *p_old;
 552         if( mdate() - p_counter->last_update < p_counter->update_interval )
 553         {
 554             return VLC_EGENERIC;
 555         }
 556         p_counter->last_update = mdate();
 557         if( p_counter->i_type != VLC_VAR_FLOAT &&
 558             p_counter->i_type != VLC_VAR_INTEGER )
 559         {
 560             msg_Err( p_handler, "Unable to compute DERIVATIVE for this type");
 561             return VLC_EGENERIC;
 562         }
 563         /* Insert the new one at the beginning */
 564         p_new = (counter_sample_t*)malloc( sizeof( counter_sample_t ) );
 565         p_new->value = val;
 566         p_new->date = p_counter->last_update;
 567         INSERT_ELEM( p_counter->pp_samples, p_counter->i_samples,
 568                      0, p_new );
 569
 570         if( p_counter->i_samples == 3 )
 571         {
 572             p_old = p_counter->pp_samples[2];
 573             REMOVE_ELEM( p_counter->pp_samples, p_counter->i_samples, 2 );
 574             free( p_old );
 575         }
 576         break;
 577     }
 578     case STATS_COUNTER:
 579         if( p_counter->i_samples > 1)
 580         {
 581             msg_Err( p_handler, "LAST counter has several samples !" );
 582             return VLC_EGENERIC;
 583         }
 584         if( p_counter->i_samples == 0 )
 585         {
 586             counter_sample_t *p_new = (counter_sample_t*)malloc(
 587                                                sizeof( counter_sample_t ) );
 588             p_new->value.psz_string = NULL;
 589
 590             INSERT_ELEM( p_counter->pp_samples, p_counter->i_samples,
 591                          p_counter->i_samples, p_new );
 592         }
 593         if( p_counter->i_samples == 1 )
 594         {
 595             switch( p_counter->i_type )
 596             {
 597             case VLC_VAR_INTEGER:
 598             case VLC_VAR_FLOAT:
 599                 p_counter->pp_samples[0]->value.i_int += val.i_int;
 600                 break;
 601             default:
 602                 msg_Err( p_handler, "Trying to increment invalid variable %s",
 603                          p_counter->psz_name );
 604                 return VLC_EGENERIC;
 605             }
 606         }
 607         break;
 608     }
 609     return VLC_SUCCESS;
 610 }
 611
 612 static counter_t *GetCounter( stats_handler_t *p_handler, int i_object_id,
 613                               const char *psz_name )
 614 {
 615     int i;
 616    for( i = 0; i< p_handler->i_counters; i++ )
 617     {
 618         counter_t *p_counter = p_handler->pp_counters[i];
 619         if( p_counter->i_source_object == i_object_id &&
 620             !strcmp( p_counter->psz_name, psz_name ) )
 621         {
 622             return p_counter;
 623         }
 624     }
 625     return NULL;
 626 }
 627
 628
 629 static stats_handler_t *stats_HandlerGet( vlc_object_t *p_this )
 630 {
 631     stats_handler_t *p_handler = (stats_handler_t*)
 632                           vlc_object_find( p_this->p_vlc, VLC_OBJECT_STATS,
 633                                            FIND_ANYWHERE );
 634     if( !p_handler )
 635     {
 636         p_handler = stats_HandlerCreate( p_this );
 637         if( !p_handler )
 638         {
 639             return NULL;
 640         }
 641         vlc_object_yield( p_handler );
 642     }
 643     return p_handler;
 644 }
 645
 646 /**
 647  * Initialize statistics handler
 648  *
 649  * This function initializes the global statistics handler singleton,
 650  * \param p_this the parent VLC object
 651  */
 652 static stats_handler_t* stats_HandlerCreate( vlc_object_t *p_this )
 653 {
 654     stats_handler_t *p_handler;
 655
 656     msg_Dbg( p_this, "creating statistics handler" );
 657
 658     p_handler = (stats_handler_t*) vlc_object_create( p_this,
 659                                                       VLC_OBJECT_STATS );
 660
 661     if( !p_handler )
 662     {
 663         msg_Err( p_this, "out of memory" );
 664         return NULL;
 665     }
 666     p_handler->i_counters = 0;
 667     p_handler->pp_counters = NULL;
 668
 669     /// \bug is it p_vlc or p_libvlc ?
 670     vlc_object_attach( p_handler, p_this->p_vlc );
 671
 672     return p_handler;
 673 }
 674
 675 static void TimerDump( vlc_object_t *p_obj, counter_t *p_counter,
 676                        vlc_bool_t b_total )
 677 {
 678     mtime_t last, total;
 679     int i_total;
 680     if( !p_counter || p_counter->i_samples != 2 )
 681     {
 682         msg_Err( p_obj, "timer %s does not exist", p_counter->psz_name );
 683         return;
 684     }
 685     i_total = p_counter->pp_samples[1]->value.i_int;
 686     total = p_counter->pp_samples[1]->date;
 687     if( p_counter->pp_samples[0]->value.b_bool == VLC_TRUE )
 688     {
 689         last = mdate() - p_counter->pp_samples[0]->date;
 690         i_total += 1;
 691         total += last;
 692     }
 693     else
 694     {
 695         last = p_counter->pp_samples[0]->date;
 696     }
 697     if( b_total )
 698     {
 699         msg_Dbg( p_obj,
 700              "TIMER %s : %.3f ms - Total %.3f ms / %i intvls (Avg %.3f ms)",
 701              p_counter->psz_name, (float)last/1000, (float)total/1000, i_total,
 702              (float)(total)/(1000*(float)i_total ) );
 703     }
 704     else
 705     {
 706         msg_Dbg( p_obj,
 707              "TIMER %s : Total %.3f ms / %i intvls (Avg %.3f ms)",
 708              p_counter->psz_name, (float)total/1000, i_total,
 709              (float)(total)/(1000*(float)i_total ) );
 710     }
 711 }