git.sesse.net Git - vlc/blob - modules/demux/live555.cpp

   1 /*****************************************************************************
   2  * live555.cpp : LIVE555 Streaming Media support.
   3  *****************************************************************************
   4  * Copyright (C) 2003-2007 the VideoLAN team
   5  * $Id$
   6  *
   7  * Authors: Laurent Aimar <fenrir@via.ecp.fr>
   8  *          Derk-Jan Hartman <hartman at videolan. org>
   9  *          Derk-Jan Hartman <djhartman at m2x .dot. nl> for M2X
  10  *
  11  * This program is free software; you can redistribute it and/or modify
  12  * it under the terms of the GNU General Public License as published by
  13  * the Free Software Foundation; either version 2 of the License, or
  14  * (at your option) any later version.
  15  *
  16  * This program is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19  * GNU General Public License for more details.
  20  *
  21  * You should have received a copy of the GNU General Public License
  22  * along with this program; if not, write to the Free Software
  23  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
  24  *****************************************************************************/
  25
  26 /*****************************************************************************
  27  * Preamble
  28  *****************************************************************************/
  29
  30 #include <vlc/vlc.h>
  31
  32 #include <vlc_demux.h>
  33 #include <vlc_interface.h>
  34 #include <vlc_network.h>
  35 #include <vlc_url.h>
  36
  37 #include <iostream>
  38
  39 #if defined( WIN32 )
  40 #   include <winsock2.h>
  41 #endif
  42
  43 #include "UsageEnvironment.hh"
  44 #include "BasicUsageEnvironment.hh"
  45 #include "GroupsockHelper.hh"
  46 #include "liveMedia.hh"
  47
  48 extern "C" {
  49 #include "../access/mms/asf.h"  /* Who said ugly ? */
  50 }
  51
  52 using namespace std;
  53
  54 /*****************************************************************************
  55  * Module descriptor
  56  *****************************************************************************/
  57 static int  Open ( vlc_object_t * );
  58 static void Close( vlc_object_t * );
  59
  60 #define CACHING_TEXT N_("Caching value (ms)")
  61 #define CACHING_LONGTEXT N_( \
  62     "Allows you to modify the default caching value for RTSP streams. This " \
  63     "value should be set in millisecond units." )
  64
  65 #define KASENNA_TEXT N_( "Kasenna RTSP dialect")
  66 #define KASENNA_LONGTEXT N_( "Kasenna servers use an old and unstandard " \
  67     "dialect of RTSP. When you set this parameter, VLC will try this dialect "\
  68     "for communication. In this mode you cannot connect to normal RTSP servers." )
  69
  70 #define USER_TEXT N_("RTSP user name")
  71 #define USER_LONGTEXT N_("Allows you to modify the user name that will " \
  72     "be used for authenticating the connection.")
  73 #define PASS_TEXT N_("RTSP password")
  74 #define PASS_LONGTEXT N_("Allows you to modify the password that will be " \
  75     "used for the connection.")
  76
  77 vlc_module_begin();
  78     set_description( _("RTP/RTSP/SDP demuxer (using Live555)" ) );
  79     set_capability( "demux2", 50 );
  80     set_shortname( "RTP/RTSP");
  81     set_callbacks( Open, Close );
  82     add_shortcut( "live" );
  83     add_shortcut( "livedotcom" );
  84     set_category( CAT_INPUT );
  85     set_subcategory( SUBCAT_INPUT_DEMUX );
  86
  87     add_submodule();
  88         set_description( _("RTSP/RTP access and demux") );
  89         add_shortcut( "rtsp" );
  90         add_shortcut( "sdp" );
  91         set_capability( "access_demux", 0 );
  92         set_callbacks( Open, Close );
  93         add_bool( "rtsp-tcp", 0, NULL,
  94                   N_("Use RTP over RTSP (TCP)"),
  95                   N_("Use RTP over RTSP (TCP)"), VLC_TRUE );
  96         add_integer( "rtp-client-port", -1, NULL,
  97                   N_("Client port"),
  98                   N_("Port to use for the RTP source of the session"), VLC_TRUE );
  99         add_bool( "rtsp-http", 0, NULL,
 100                   N_("Tunnel RTSP and RTP over HTTP"),
 101                   N_("Tunnel RTSP and RTP over HTTP"), VLC_TRUE );
 102         add_integer( "rtsp-http-port", 80, NULL,
 103                   N_("HTTP tunnel port"),
 104                   N_("Port to use for tunneling the RTSP/RTP over HTTP."),
 105                   VLC_TRUE );
 106         add_integer("rtsp-caching", 4 * DEFAULT_PTS_DELAY / 1000, NULL,
 107                     CACHING_TEXT, CACHING_LONGTEXT, VLC_TRUE );
 108         add_bool(   "rtsp-kasenna", VLC_FALSE, NULL, KASENNA_TEXT,
 109                     KASENNA_LONGTEXT, VLC_TRUE );
 110         add_string( "rtsp-user", NULL, NULL, USER_TEXT,
 111                     USER_LONGTEXT, VLC_TRUE );
 112         add_string( "rtsp-pwd", NULL, NULL, PASS_TEXT,
 113                     PASS_LONGTEXT, VLC_TRUE );
 114 vlc_module_end();
 115
 116
 117 /*****************************************************************************
 118  * Local prototypes
 119  *****************************************************************************/
 120
 121 typedef struct
 122 {
 123     demux_t         *p_demux;
 124     MediaSubsession *sub;
 125
 126     es_format_t     fmt;
 127     es_out_id_t     *p_es;
 128
 129     vlc_bool_t      b_muxed;
 130     vlc_bool_t      b_quicktime;
 131     vlc_bool_t      b_asf;
 132     stream_t        *p_out_muxed;    /* for muxed stream */
 133
 134     uint8_t         *p_buffer;
 135     unsigned int    i_buffer;
 136
 137     vlc_bool_t      b_rtcp_sync;
 138     char            waiting;
 139     int64_t         i_pts;
 140     u_int32_t       i_start_seq;
 141
 142 } live_track_t;
 143
 144 struct timeout_thread_t
 145 {
 146     VLC_COMMON_MEMBERS
 147
 148     int64_t      i_remain;
 149     demux_sys_t  *p_sys;
 150 };
 151
 152 struct demux_sys_t
 153 {
 154     char            *p_sdp;    /* XXX mallocated */
 155     char            *psz_path; /* URL-encoded path */
 156     vlc_url_t       url;
 157
 158     MediaSession     *ms;
 159     TaskScheduler    *scheduler;
 160     UsageEnvironment *env ;
 161     RTSPClient       *rtsp;
 162
 163     /* */
 164     int              i_track;
 165     live_track_t     **track;   /* XXX mallocated */
 166
 167     /* Weird formats */
 168     asf_header_t     asfh;
 169     stream_t         *p_out_asf;
 170     vlc_bool_t       b_real;
 171
 172     /* */
 173     int64_t          i_pcr; /* The clock */
 174     int64_t          i_npt; /* The current time in the stream */
 175     int64_t          i_npt_length;
 176     int64_t          i_npt_start;
 177
 178     /* timeout thread information */
 179     int              i_timeout;     /* session timeout value in seconds */
 180     vlc_bool_t       b_timeout_call;/* mark to send an RTSP call to prevent server timeout */
 181     timeout_thread_t *p_timeout;    /* the actual thread that makes sure we don't timeout */
 182
 183     /* */
 184     vlc_bool_t       b_multicast;   /* true if one of the tracks is multicasted */
 185     vlc_bool_t       b_no_data;     /* true if we never receive any data */
 186     int              i_no_data_ti;  /* consecutive number of TaskInterrupt */
 187
 188     char             event;
 189 };
 190
 191 static int Demux  ( demux_t * );
 192 static int Control( demux_t *, int, va_list );
 193
 194 static int Connect      ( demux_t * );
 195 static int SessionsSetup( demux_t * );
 196 static int Play         ( demux_t *);
 197 static int ParseASF     ( demux_t * );
 198 static int RollOverTcp  ( demux_t * );
 199
 200 static void StreamRead  ( void *, unsigned int, unsigned int,
 201                           struct timeval, unsigned int );
 202 static void StreamClose ( void * );
 203 static void TaskInterrupt( void * );
 204
 205 static void TimeoutPrevention( timeout_thread_t * );
 206
 207 static unsigned char* parseH264ConfigStr( char const* configStr,
 208                                           unsigned int& configSize );
 209
 210 /*****************************************************************************
 211  * DemuxOpen:
 212  *****************************************************************************/
 213 static int  Open ( vlc_object_t *p_this )
 214 {
 215     demux_t     *p_demux = (demux_t*)p_this;
 216     demux_sys_t *p_sys = NULL;
 217
 218     MediaSubsessionIterator *iter   = NULL;
 219     MediaSubsession         *sub    = NULL;
 220     int i, i_return;
 221
 222     if( p_demux->s )
 223     {
 224         /* See if it looks like a SDP
 225            v, o, s fields are mandatory and in this order */
 226         const uint8_t *p_peek;
 227         if( stream_Peek( p_demux->s, &p_peek, 7 ) < 7 ) return VLC_EGENERIC;
 228
 229         if( memcmp( p_peek, "v=0\r\n", 5 ) &&
 230             memcmp( p_peek, "v=0\n", 4 ) &&
 231             ( p_peek[0] < 'a' || p_peek[0] > 'z' || p_peek[1] != '=' ) )
 232         {
 233             return VLC_EGENERIC;
 234         }
 235     }
 236     else
 237     {
 238         var_Create( p_demux, "rtsp-caching", VLC_VAR_INTEGER|VLC_VAR_DOINHERIT );
 239     }
 240
 241     p_demux->pf_demux  = Demux;
 242     p_demux->pf_control= Control;
 243     p_demux->p_sys     = p_sys = (demux_sys_t*)malloc( sizeof( demux_sys_t ) );
 244     if( !p_sys ) return VLC_ENOMEM;
 245
 246     p_sys->p_sdp = NULL;
 247     p_sys->scheduler = NULL;
 248     p_sys->env = NULL;
 249     p_sys->ms = NULL;
 250     p_sys->rtsp = NULL;
 251     p_sys->i_track = 0;
 252     p_sys->track   = NULL;
 253     p_sys->i_pcr = 0;
 254     p_sys->i_npt = 0;
 255     p_sys->i_npt_start = 0;
 256     p_sys->i_npt_length = 0;
 257     p_sys->p_out_asf = NULL;
 258     p_sys->b_no_data = VLC_TRUE;
 259     p_sys->i_no_data_ti = 0;
 260     p_sys->p_timeout = NULL;
 261     p_sys->i_timeout = 0;
 262     p_sys->b_timeout_call = VLC_FALSE;
 263     p_sys->b_multicast = VLC_FALSE;
 264     p_sys->b_real = VLC_FALSE;
 265     p_sys->psz_path = strdup( p_demux->psz_path );
 266
 267     /* parse URL for rtsp://[user:[passwd]@]serverip:port/options */
 268     vlc_UrlParse( &p_sys->url, p_sys->psz_path, 0 );
 269
 270     if( ( p_sys->scheduler = BasicTaskScheduler::createNew() ) == NULL )
 271     {
 272         msg_Err( p_demux, "BasicTaskScheduler::createNew failed" );
 273         goto error;
 274     }
 275     if( !( p_sys->env = BasicUsageEnvironment::createNew(*p_sys->scheduler) ) )
 276     {
 277         msg_Err( p_demux, "BasicUsageEnvironment::createNew failed" );
 278         goto error;
 279     }
 280
 281     if( strcasecmp( p_demux->psz_access, "sdp" ) )
 282     {
 283         char *p = p_sys->psz_path;
 284         while( (p = strchr( p, ' ' )) != NULL ) *p = '+';
 285     }
 286
 287     if( p_demux->s != NULL )
 288     {
 289         /* Gather the complete sdp file */
 290         int     i_sdp       = 0;
 291         int     i_sdp_max   = 1000;
 292         uint8_t *p_sdp      = (uint8_t*) malloc( i_sdp_max );
 293
 294         for( ;; )
 295         {
 296             int i_read = stream_Read( p_demux->s, &p_sdp[i_sdp],
 297                                       i_sdp_max - i_sdp - 1 );
 298
 299             if( i_read < 0 )
 300             {
 301                 msg_Err( p_demux, "failed to read SDP" );
 302                 free( p_sys );
 303                 return VLC_EGENERIC;
 304             }
 305
 306             i_sdp += i_read;
 307
 308             if( i_read < i_sdp_max - i_sdp - 1 )
 309             {
 310                 p_sdp[i_sdp] = '\0';
 311                 break;
 312             }
 313
 314             i_sdp_max += 1000;
 315             p_sdp = (uint8_t*)realloc( p_sdp, i_sdp_max );
 316         }
 317         p_sys->p_sdp = (char*)p_sdp;
 318     }
 319     else if( ( p_demux->s == NULL ) &&
 320              !strcasecmp( p_demux->psz_access, "sdp" ) )
 321     {
 322         /* sdp:// link from SAP */
 323         p_sys->p_sdp = strdup( p_sys->psz_path );
 324     }
 325     else if( ( i_return = Connect( p_demux ) ) != VLC_SUCCESS )
 326     {
 327         msg_Err( p_demux, "Failed to connect with rtsp://%s", p_sys->psz_path );
 328         goto error;
 329     }
 330
 331     if( p_sys->p_sdp == NULL )
 332     {
 333         msg_Err( p_demux, "Failed to retrieve the RTSP Session Description" );
 334         goto error;
 335     }
 336
 337     if( ( i_return = SessionsSetup( p_demux ) ) != VLC_SUCCESS )
 338     {
 339         msg_Err( p_demux, "Nothing to play for rtsp://%s", p_sys->psz_path );
 340         goto error;
 341     }
 342
 343     if( p_sys->b_real ) goto error;
 344
 345     if( ( i_return = Play( p_demux ) ) != VLC_SUCCESS )
 346         goto error;
 347
 348     if( p_sys->p_out_asf && ParseASF( p_demux ) )
 349     {
 350         msg_Err( p_demux, "cannot find a usable asf header" );
 351         /* TODO Clean tracks */
 352         goto error;
 353     }
 354
 355     if( p_sys->i_track <= 0 )
 356         goto error;
 357
 358     return VLC_SUCCESS;
 359
 360 error:
 361     for( i = 0; i < p_sys->i_track; i++ )
 362     {
 363         live_track_t *tk = p_sys->track[i];
 364
 365         if( tk->b_muxed ) stream_DemuxDelete( tk->p_out_muxed );
 366         free( tk->p_buffer );
 367         free( tk );
 368     }
 369
 370     if( p_sys->i_track ) free( p_sys->track );
 371     if( p_sys->p_out_asf ) stream_DemuxDelete( p_sys->p_out_asf );
 372     if( p_sys->rtsp && p_sys->ms ) p_sys->rtsp->teardownMediaSession( *p_sys->ms );
 373     if( p_sys->ms ) Medium::close( p_sys->ms );
 374     if( p_sys->rtsp ) RTSPClient::close( p_sys->rtsp );
 375     if( p_sys->env ) p_sys->env->reclaim();
 376     if( p_sys->p_timeout )
 377     {
 378         vlc_object_kill( p_sys->p_timeout );
 379         vlc_thread_join( p_sys->p_timeout );
 380         vlc_object_detach( p_sys->p_timeout );
 381         vlc_object_destroy( p_sys->p_timeout );
 382     }
 383     if( p_sys->scheduler ) delete p_sys->scheduler;
 384     if( p_sys->p_sdp ) free( p_sys->p_sdp );
 385     if( p_sys->psz_path ) free( p_sys->psz_path );
 386
 387     vlc_UrlClean( &p_sys->url );
 388
 389     free( p_sys );
 390     return VLC_EGENERIC;
 391 }
 392
 393 /*****************************************************************************
 394  * DemuxClose:
 395  *****************************************************************************/
 396 static void Close( vlc_object_t *p_this )
 397 {
 398     demux_t *p_demux = (demux_t*)p_this;
 399     demux_sys_t *p_sys = p_demux->p_sys;
 400     int i;
 401
 402     for( i = 0; i < p_sys->i_track; i++ )
 403     {
 404         live_track_t *tk = p_sys->track[i];
 405
 406         if( tk->b_muxed ) stream_DemuxDelete( tk->p_out_muxed );
 407         free( tk->p_buffer );
 408         free( tk );
 409     }
 410
 411     if( p_sys->i_track ) free( p_sys->track );
 412     if( p_sys->p_out_asf ) stream_DemuxDelete( p_sys->p_out_asf );
 413     if( p_sys->rtsp && p_sys->ms ) p_sys->rtsp->teardownMediaSession( *p_sys->ms );
 414     if( p_sys->ms ) Medium::close( p_sys->ms );
 415     if( p_sys->rtsp ) RTSPClient::close( p_sys->rtsp );
 416     if( p_sys->env ) p_sys->env->reclaim();
 417     if( p_sys->p_timeout )
 418     {
 419         vlc_object_kill( p_sys->p_timeout );
 420         vlc_thread_join( p_sys->p_timeout );
 421         vlc_object_detach( p_sys->p_timeout );
 422         vlc_object_destroy( p_sys->p_timeout );
 423     }
 424     if( p_sys->scheduler ) delete p_sys->scheduler;
 425     if( p_sys->p_sdp ) free( p_sys->p_sdp );
 426     if( p_sys->psz_path ) free( p_sys->psz_path );
 427
 428     vlc_UrlClean( &p_sys->url );
 429
 430     free( p_sys );
 431 }
 432
 433 /*****************************************************************************
 434  * Connect: connects to the RTSP server to setup the session DESCRIBE
 435  *****************************************************************************/
 436 static int Connect( demux_t *p_demux )
 437 {
 438     demux_sys_t *p_sys = p_demux->p_sys;
 439     Authenticator authenticator;
 440
 441     char *psz_user    = NULL;
 442     char *psz_pwd     = NULL;
 443     char *psz_url     = NULL;
 444     char *psz_options = NULL;
 445     char *p_sdp       = NULL;
 446     int  i_http_port  = 0;
 447     int  i_ret        = VLC_SUCCESS;
 448
 449 createnew:
 450     if( var_CreateGetBool( p_demux, "rtsp-http" ) )
 451         i_http_port = var_CreateGetInteger( p_demux, "rtsp-http-port" );
 452
 453     if( ( p_sys->rtsp = RTSPClient::createNew( *p_sys->env,
 454           p_demux->p_libvlc->i_verbose > 1,
 455           "VLC media player", i_http_port ) ) == NULL )
 456     {
 457         msg_Err( p_demux, "RTSPClient::createNew failed (%s)",
 458                  p_sys->env->getResultMsg() );
 459         return VLC_EGENERIC;
 460     }
 461
 462     psz_url = (char*)malloc( strlen( p_sys->psz_path ) + 8 );
 463     if( !psz_url ) return VLC_ENOMEM;
 464
 465     if( p_sys->url.psz_username || p_sys->url.psz_password )
 466     {
 467         sprintf( psz_url, "rtsp://%s%s", p_sys->url.psz_host,
 468                  p_sys->url.psz_path );
 469
 470         psz_user = strdup( p_sys->url.psz_username );
 471         psz_pwd  = strdup( p_sys->url.psz_password );
 472     }
 473     else
 474     {
 475         sprintf( psz_url, "rtsp://%s", p_sys->psz_path );
 476
 477         psz_user = var_CreateGetString( p_demux, "rtsp-user" );
 478         psz_pwd  = var_CreateGetString( p_demux, "rtsp-pwd" );
 479     }
 480
 481     authenticator.setUsernameAndPassword( (const char*)psz_user,
 482                                           (const char*)psz_pwd );
 483
 484     psz_options = p_sys->rtsp->sendOptionsCmd( psz_url, psz_user, psz_pwd,
 485                                                &authenticator );
 486     if( psz_options ) delete [] psz_options;
 487
 488 describe:
 489     p_sdp = p_sys->rtsp->describeURL( psz_url,
 490                 &authenticator, var_CreateGetBool( p_demux, "rtsp-kasenna" ) );
 491
 492     if( psz_user ) free( psz_user );
 493     if( psz_pwd ) free( psz_pwd );
 494
 495     if( p_sdp == NULL )
 496     {
 497         /* failure occurred */
 498         int i_code = 0;
 499         const char *psz_error = p_sys->env->getResultMsg();
 500
 501         msg_Dbg( p_demux, "DESCRIBE failed with %d: %s", i_code, psz_error );
 502         sscanf( psz_error, "%*sRTSP/%*s%3u", &i_code );
 503
 504         if( i_code == 401 )
 505         {
 506             char *psz_login = NULL; char *psz_password = NULL;
 507             msg_Dbg( p_demux, "authentication failed" );
 508
 509             i_ret = intf_UserLoginPassword( p_demux, _("RTSP authentication"),
 510                            _("Please enter a valid login name and a password."),
 511                                                    &psz_login, &psz_password );
 512             if( i_ret == DIALOG_OK_YES )
 513             {
 514                msg_Dbg( p_demux, "retrying with user=%s, pwd=%s",
 515                            psz_login, psz_password );
 516                if( psz_url ) free( psz_url );
 517                if( psz_login ) psz_user = psz_login;
 518                if( psz_password ) psz_pwd = psz_password;
 519                goto describe;
 520             }
 521             if( psz_login ) free( psz_login );
 522             if( psz_password ) free( psz_password );
 523         }
 524         else if( !var_GetBool( p_demux, "rtsp-http" ) )
 525         {
 526             /* Perhaps a firewall is being annoying. Try HTTP tunneling mode */
 527             vlc_value_t val;
 528             val.b_bool = VLC_TRUE;
 529             msg_Dbg( p_demux, "we will now try HTTP tunneling mode" );
 530             var_Set( p_demux, "rtsp-http", val );
 531             if( psz_url ) free( psz_url );
 532             if( p_sys->rtsp ) RTSPClient::close( p_sys->rtsp );
 533             goto createnew;
 534         }
 535         i_ret = VLC_EGENERIC;
 536     }
 537     if( psz_url ) free( psz_url );
 538
 539     /* malloc-ated copy */
 540     if( p_sys->p_sdp ) free( p_sys->p_sdp );
 541     p_sys->p_sdp = NULL;
 542     if( p_sdp ) p_sys->p_sdp = strdup( (char*)p_sdp );
 543     delete[] p_sdp;
 544
 545     return i_ret;
 546 }
 547
 548 /*****************************************************************************
 549  * SessionsSetup: prepares the subsessions and does the SETUP
 550  *****************************************************************************/
 551 static int SessionsSetup( demux_t *p_demux )
 552 {
 553     demux_sys_t             *p_sys  = p_demux->p_sys;
 554     MediaSubsessionIterator *iter   = NULL;
 555     MediaSubsession         *sub    = NULL;
 556
 557     vlc_bool_t     b_rtsp_tcp = VLC_FALSE;
 558     int            i_client_port;
 559     int            i_return = VLC_SUCCESS;
 560     unsigned int   i_buffer = 0;
 561     unsigned const thresh = 200000; /* RTP reorder threshold .2 second (default .1) */
 562
 563     b_rtsp_tcp    = var_CreateGetBool( p_demux, "rtsp-tcp" ) ||
 564                     var_GetBool( p_demux, "rtsp-http" );
 565     i_client_port = var_CreateGetInteger( p_demux, "rtp-client-port" );
 566
 567     /* Create the session from the SDP */
 568     if( !( p_sys->ms = MediaSession::createNew( *p_sys->env, p_sys->p_sdp ) ) )
 569     {
 570         msg_Err( p_demux, "Could not create the RTSP Session: %s",
 571             p_sys->env->getResultMsg() );
 572         return VLC_EGENERIC;
 573     }
 574
 575     /* Initialise each media subsession */
 576     iter = new MediaSubsessionIterator( *p_sys->ms );
 577     while( ( sub = iter->next() ) != NULL )
 578     {
 579         Boolean bInit;
 580         live_track_t *tk;
 581
 582         /* Value taken from mplayer */
 583         if( !strcmp( sub->mediumName(), "audio" ) )
 584             i_buffer = 100000;
 585         else if( !strcmp( sub->mediumName(), "video" ) )
 586             i_buffer = 2000000;
 587         else continue;
 588
 589         if( i_client_port != -1 )
 590         {
 591             sub->setClientPortNum( i_client_port );
 592             i_client_port += 2;
 593         }
 594
 595         if( strcasestr( sub->codecName(), "REAL" ) )
 596         {
 597             msg_Info( p_demux, "real codec detected, using real-RTSP instead" );
 598             p_sys->b_real = VLC_TRUE; /* This is a problem, we'll handle it later */
 599             continue;
 600         }
 601
 602         if( !strcmp( sub->codecName(), "X-ASF-PF" ) )
 603             bInit = sub->initiate( 4 ); /* Constant ? */
 604         else
 605             bInit = sub->initiate();
 606
 607         if( !bInit )
 608         {
 609             msg_Warn( p_demux, "RTP subsession '%s/%s' failed (%s)",
 610                       sub->mediumName(), sub->codecName(),
 611                       p_sys->env->getResultMsg() );
 612         }
 613         else
 614         {
 615             if( sub->rtpSource() != NULL )
 616             {
 617                 int fd = sub->rtpSource()->RTPgs()->socketNum();
 618
 619                 /* Increase the buffer size */
 620                 if( i_buffer > 0 )
 621                     increaseReceiveBufferTo( *p_sys->env, fd, i_buffer );
 622
 623                 /* Increase the RTP reorder timebuffer just a bit */
 624                 sub->rtpSource()->setPacketReorderingThresholdTime(thresh);
 625             }
 626             msg_Dbg( p_demux, "RTP subsession '%s/%s'", sub->mediumName(),
 627                      sub->codecName() );
 628
 629             /* Issue the SETUP */
 630             if( p_sys->rtsp )
 631             {
 632                 if( !( p_sys->rtsp->setupMediaSubsession( *sub, False,
 633                                                    b_rtsp_tcp ? True : False ) ) )
 634                 {
 635                     /* if we get an unsupported transport error, toggle TCP use and try again */
 636                     if( !strstr(p_sys->env->getResultMsg(), "461 Unsupported Transport")
 637                      || !( p_sys->rtsp->setupMediaSubsession( *sub, False,
 638                                                    b_rtsp_tcp ? False : True ) ) )
 639                     {
 640                         msg_Err( p_demux, "SETUP of'%s/%s' failed %s", sub->mediumName(),
 641                                  sub->codecName(), p_sys->env->getResultMsg() );
 642                         continue;
 643                     }
 644                 }
 645             }
 646
 647             /* Check if we will receive data from this subsession for this track */
 648             if( sub->readSource() == NULL ) continue;
 649             if( !p_sys->b_multicast )
 650             {
 651                 /* Check, because we need diff. rollover behaviour for multicast */
 652                 p_sys->b_multicast = IsMulticastAddress( sub->connectionEndpointAddress() );
 653             }
 654
 655             tk = (live_track_t*)malloc( sizeof( live_track_t ) );
 656             tk->p_demux     = p_demux;
 657             tk->sub         = sub;
 658             tk->p_es        = NULL;
 659             tk->b_quicktime = VLC_FALSE;
 660             tk->b_asf       = VLC_FALSE;
 661             tk->b_muxed     = VLC_FALSE;
 662             tk->p_out_muxed = NULL;
 663             tk->waiting     = 0;
 664             tk->b_rtcp_sync = VLC_FALSE;
 665             tk->i_pts       = 0;
 666             tk->i_buffer    = 65536;
 667             tk->p_buffer    = (uint8_t *)malloc( 65536 );
 668
 669             /* Value taken from mplayer */
 670             if( !strcmp( sub->mediumName(), "audio" ) )
 671             {
 672                 es_format_Init( &tk->fmt, AUDIO_ES, VLC_FOURCC('u','n','d','f') );
 673                 tk->fmt.audio.i_channels = sub->numChannels();
 674                 tk->fmt.audio.i_rate = sub->rtpTimestampFrequency();
 675
 676                 if( !strcmp( sub->codecName(), "MPA" ) ||
 677                     !strcmp( sub->codecName(), "MPA-ROBUST" ) ||
 678                     !strcmp( sub->codecName(), "X-MP3-DRAFT-00" ) )
 679                 {
 680                     tk->fmt.i_codec = VLC_FOURCC( 'm', 'p', 'g', 'a' );
 681                     tk->fmt.audio.i_rate = 0;
 682                 }
 683                 else if( !strcmp( sub->codecName(), "AC3" ) )
 684                 {
 685                     tk->fmt.i_codec = VLC_FOURCC( 'a', '5', '2', ' ' );
 686                     tk->fmt.audio.i_rate = 0;
 687                 }
 688                 else if( !strcmp( sub->codecName(), "L16" ) )
 689                 {
 690                     tk->fmt.i_codec = VLC_FOURCC( 't', 'w', 'o', 's' );
 691                     tk->fmt.audio.i_bitspersample = 16;
 692                 }
 693                 else if( !strcmp( sub->codecName(), "L8" ) )
 694                 {
 695                     tk->fmt.i_codec = VLC_FOURCC( 'a', 'r', 'a', 'w' );
 696                     tk->fmt.audio.i_bitspersample = 8;
 697                 }
 698                 else if( !strcmp( sub->codecName(), "PCMU" ) )
 699                 {
 700                     tk->fmt.i_codec = VLC_FOURCC( 'u', 'l', 'a', 'w' );
 701                 }
 702                 else if( !strcmp( sub->codecName(), "PCMA" ) )
 703                 {
 704                     tk->fmt.i_codec = VLC_FOURCC( 'a', 'l', 'a', 'w' );
 705                 }
 706                 else if( !strncmp( sub->codecName(), "G726", 4 ) )
 707                 {
 708                     tk->fmt.i_codec = VLC_FOURCC( 'g', '7', '2', '6' );
 709                     tk->fmt.audio.i_rate = 8000;
 710                     tk->fmt.audio.i_channels = 1;
 711                     if( !strcmp( sub->codecName()+5, "40" ) )
 712                         tk->fmt.i_bitrate = 40000;
 713                     else if( !strcmp( sub->codecName()+5, "32" ) )
 714                         tk->fmt.i_bitrate = 32000;
 715                     else if( !strcmp( sub->codecName()+5, "24" ) )
 716                         tk->fmt.i_bitrate = 24000;
 717                     else if( !strcmp( sub->codecName()+5, "16" ) )
 718                         tk->fmt.i_bitrate = 16000;
 719                 }
 720                 else if( !strcmp( sub->codecName(), "AMR" ) )
 721                 {
 722                     tk->fmt.i_codec = VLC_FOURCC( 's', 'a', 'm', 'r' );
 723                 }
 724                 else if( !strcmp( sub->codecName(), "AMR-WB" ) )
 725                 {
 726                     tk->fmt.i_codec = VLC_FOURCC( 's', 'a', 'w', 'b' );
 727                 }
 728                 else if( !strcmp( sub->codecName(), "MP4A-LATM" ) )
 729                 {
 730                     unsigned int i_extra;
 731                     uint8_t      *p_extra;
 732
 733                     tk->fmt.i_codec = VLC_FOURCC( 'm', 'p', '4', 'a' );
 734
 735                     if( ( p_extra = parseStreamMuxConfigStr( sub->fmtp_config(),
 736                                                              i_extra ) ) )
 737                     {
 738                         tk->fmt.i_extra = i_extra;
 739                         tk->fmt.p_extra = malloc( i_extra );
 740                         memcpy( tk->fmt.p_extra, p_extra, i_extra );
 741                         delete[] p_extra;
 742                     }
 743                     /* Because the "faad" decoder does not handle the LATM data length field
 744                        at the start of each returned LATM frame, tell the RTP source to omit it. */
 745                     ((MPEG4LATMAudioRTPSource*)sub->rtpSource())->omitLATMDataLengthField();
 746                 }
 747                 else if( !strcmp( sub->codecName(), "MPEG4-GENERIC" ) )
 748                 {
 749                     unsigned int i_extra;
 750                     uint8_t      *p_extra;
 751
 752                     tk->fmt.i_codec = VLC_FOURCC( 'm', 'p', '4', 'a' );
 753
 754                     if( ( p_extra = parseGeneralConfigStr( sub->fmtp_config(),
 755                                                            i_extra ) ) )
 756                     {
 757                         tk->fmt.i_extra = i_extra;
 758                         tk->fmt.p_extra = malloc( i_extra );
 759                         memcpy( tk->fmt.p_extra, p_extra, i_extra );
 760                         delete[] p_extra;
 761                     }
 762                 }
 763                 else if( !strcmp( sub->codecName(), "X-ASF-PF" ) )
 764                 {
 765                     tk->b_asf = VLC_TRUE;
 766                     if( p_sys->p_out_asf == NULL )
 767                         p_sys->p_out_asf = stream_DemuxNew( p_demux, "asf",
 768                                                             p_demux->out );
 769                 }
 770                 else if( !strcmp( sub->codecName(), "X-QT" ) ||
 771                          !strcmp( sub->codecName(), "X-QUICKTIME" ) )
 772                 {
 773                     tk->b_quicktime = VLC_TRUE;
 774                 }
 775                 else if( !strcmp( sub->codecName(), "SPEEX" ) )
 776                 {
 777                     tk->fmt.i_codec = VLC_FOURCC( 's', 'p', 'x', 'r' );
 778                     if ( sub->rtpTimestampFrequency() )
 779                         tk->fmt.audio.i_rate = sub->rtpTimestampFrequency();
 780                     else
 781                     {
 782                         msg_Warn( p_demux,"Using 8kHz as default sample rate." );
 783                         tk->fmt.audio.i_rate = 8000;
 784                     }
 785                 }
 786             }
 787             else if( !strcmp( sub->mediumName(), "video" ) )
 788             {
 789                 es_format_Init( &tk->fmt, VIDEO_ES, VLC_FOURCC('u','n','d','f') );
 790                 if( !strcmp( sub->codecName(), "MPV" ) )
 791                 {
 792                     tk->fmt.i_codec = VLC_FOURCC( 'm', 'p', 'g', 'v' );
 793                 }
 794                 else if( !strcmp( sub->codecName(), "H263" ) ||
 795                          !strcmp( sub->codecName(), "H263-1998" ) ||
 796                          !strcmp( sub->codecName(), "H263-2000" ) )
 797                 {
 798                     tk->fmt.i_codec = VLC_FOURCC( 'H', '2', '6', '3' );
 799                 }
 800                 else if( !strcmp( sub->codecName(), "H261" ) )
 801                 {
 802                     tk->fmt.i_codec = VLC_FOURCC( 'H', '2', '6', '1' );
 803                 }
 804                 else if( !strcmp( sub->codecName(), "H264" ) )
 805                 {
 806                     unsigned int i_extra = 0;
 807                     uint8_t      *p_extra = NULL;
 808
 809                     tk->fmt.i_codec = VLC_FOURCC( 'h', '2', '6', '4' );
 810                     tk->fmt.b_packetized = VLC_FALSE;
 811
 812                     if((p_extra=parseH264ConfigStr( sub->fmtp_spropparametersets(),
 813                                                     i_extra ) ) )
 814                     {
 815                         tk->fmt.i_extra = i_extra;
 816                         tk->fmt.p_extra = malloc( i_extra );
 817                         memcpy( tk->fmt.p_extra, p_extra, i_extra );
 818
 819                         delete[] p_extra;
 820                     }
 821                 }
 822                 else if( !strcmp( sub->codecName(), "JPEG" ) )
 823                 {
 824                     tk->fmt.i_codec = VLC_FOURCC( 'M', 'J', 'P', 'G' );
 825                 }
 826                 else if( !strcmp( sub->codecName(), "MP4V-ES" ) )
 827                 {
 828                     unsigned int i_extra;
 829                     uint8_t      *p_extra;
 830
 831                     tk->fmt.i_codec = VLC_FOURCC( 'm', 'p', '4', 'v' );
 832
 833                     if( ( p_extra = parseGeneralConfigStr( sub->fmtp_config(),
 834                                                            i_extra ) ) )
 835                     {
 836                         tk->fmt.i_extra = i_extra;
 837                         tk->fmt.p_extra = malloc( i_extra );
 838                         memcpy( tk->fmt.p_extra, p_extra, i_extra );
 839                         delete[] p_extra;
 840                     }
 841                 }
 842                 else if( !strcmp( sub->codecName(), "X-QT" ) ||
 843                          !strcmp( sub->codecName(), "X-QUICKTIME" ) ||
 844                          !strcmp( sub->codecName(), "X-QDM" ) ||
 845                          !strcmp( sub->codecName(), "X-SV3V-ES" )  ||
 846                          !strcmp( sub->codecName(), "X-SORENSONVIDEO" ) )
 847                 {
 848                     tk->b_quicktime = VLC_TRUE;
 849                 }
 850                 else if( !strcmp( sub->codecName(), "MP2T" ) )
 851                 {
 852                     tk->b_muxed = VLC_TRUE;
 853                     tk->p_out_muxed = stream_DemuxNew( p_demux, "ts", p_demux->out );
 854                 }
 855                 else if( !strcmp( sub->codecName(), "MP2P" ) ||
 856                          !strcmp( sub->codecName(), "MP1S" ) )
 857                 {
 858                     tk->b_muxed = VLC_TRUE;
 859                     tk->p_out_muxed = stream_DemuxNew( p_demux, "ps",
 860                                                        p_demux->out );
 861                 }
 862                 else if( !strcmp( sub->codecName(), "X-ASF-PF" ) )
 863                 {
 864                     tk->b_asf = VLC_TRUE;
 865                     if( p_sys->p_out_asf == NULL )
 866                         p_sys->p_out_asf = stream_DemuxNew( p_demux, "asf",
 867                                                             p_demux->out );;
 868                 }
 869             }
 870
 871             if( !tk->b_quicktime && !tk->b_muxed && !tk->b_asf )
 872             {
 873                 tk->p_es = es_out_Add( p_demux->out, &tk->fmt );
 874             }
 875
 876             if( sub->rtcpInstance() != NULL )
 877             {
 878                 sub->rtcpInstance()->setByeHandler( StreamClose, tk );
 879             }
 880
 881             if( tk->p_es || tk->b_quicktime || tk->b_muxed || tk->b_asf )
 882             {
 883                 /* Append */
 884                 p_sys->track = (live_track_t**)realloc( p_sys->track, sizeof( live_track_t ) * ( p_sys->i_track + 1 ) );
 885                 p_sys->track[p_sys->i_track++] = tk;
 886             }
 887             else
 888             {
 889                 /* BUG ??? */
 890                 msg_Err( p_demux, "unusable RTSP track. this should not happen" );
 891                 free( tk );
 892             }
 893         }
 894     }
 895     delete iter;
 896     if( p_sys->i_track <= 0 ) i_return = VLC_EGENERIC;
 897
 898 #if (LIVEMEDIA_LIBRARY_VERSION_INT >= 9999999999)
 899     /* Retrieve the starttime if possible */
 900     p_sys->i_npt_start = (int64_t)( p_sys->ms->playStartTime() * (double)1000000.0 );
 901 #else
 902     p_sys->i_npt_start = (int64_t) -1;
 903 #endif
 904     if( p_sys->i_npt_start < 0 )
 905         p_sys->i_npt_start = -1;
 906
 907 #if (LIVEMEDIA_LIBRARY_VERSION_INT >= 9999999999)
 908     /* Retrieve the duration if possible */
 909     p_sys->i_npt_length = (int64_t)( p_sys->ms->playEndTime() * (double)1000000.0 );
 910 #else
 911     p_sys->i_npt_length = (int64_t) -1;
 912 #endif
 913     if( p_sys->i_npt_length < 0 )
 914         p_sys->i_npt_length = -1;
 915
 916     msg_Dbg( p_demux, "setup start: %lld stop:%lld", p_sys->i_npt_start, p_sys->i_npt_length );
 917     return i_return;
 918 }
 919
 920 /*****************************************************************************
 921  * Play: starts the actual playback of the stream
 922  *****************************************************************************/
 923 static int Play( demux_t *p_demux )
 924 {
 925     demux_sys_t *p_sys = p_demux->p_sys;
 926     int i;
 927
 928     if( p_sys->rtsp )
 929     {
 930         /* The PLAY */
 931         if( !p_sys->rtsp->playMediaSession( *p_sys->ms, p_sys->i_npt_start, -1, 1 ) )
 932         {
 933             msg_Err( p_demux, "RTSP PLAY failed %s", p_sys->env->getResultMsg() );
 934             return VLC_EGENERIC;
 935         }
 936
 937         /* Retrieve the timeout value and set up a timeout prevention thread */
 938         p_sys->i_timeout = p_sys->rtsp->sessionTimeoutParameter();
 939         if( p_sys->i_timeout <= 0 )
 940             p_sys->i_timeout = 60; /* default value from RFC2326 */
 941         if( !p_sys->p_timeout )
 942         {
 943             msg_Dbg( p_demux, "We have a timeout of %d seconds",  p_sys->i_timeout );
 944             p_sys->p_timeout = (timeout_thread_t *)vlc_object_create( p_demux, sizeof(timeout_thread_t) );
 945             p_sys->p_timeout->p_sys = p_demux->p_sys; /* lol, object recursion :D */
 946             if( vlc_thread_create( p_sys->p_timeout, "liveMedia-timeout", TimeoutPrevention,
 947                                    VLC_THREAD_PRIORITY_LOW, VLC_TRUE ) )
 948             {
 949                 msg_Err( p_demux, "cannot spawn liveMedia timeout thread" );
 950                 vlc_object_destroy( p_sys->p_timeout );
 951             }
 952             msg_Dbg( p_demux, "spawned timeout thread" );
 953             vlc_object_attach( p_sys->p_timeout, p_demux );
 954         }
 955     }
 956     p_sys->i_pcr = 0;
 957
 958 #if (LIVEMEDIA_LIBRARY_VERSION_INT >= 1195257600)
 959     /* TODO */
 960     for( i = 0; i < p_sys->i_track; i++ )
 961     {
 962         p_sys->track[i]->i_pts = (int64_t) ( p_sys->track[i]->sub->rtpInfo.timestamp * (double)1000000.0 );
 963         p_sys->track[i]->i_start_seq = (int)p_sys->track[i]->sub->rtpInfo.seqNum;
 964         msg_Info( p_demux, "set startseq: %u", p_sys->track[i]->i_start_seq );
 965     }
 966 #endif
 967
 968 #if (LIVEMEDIA_LIBRARY_VERSION_INT >= 9999999999)
 969     /* Retrieve the starttime if possible */
 970     p_sys->i_npt_start = (int64_t)( p_sys->ms->playStartTime() * (double)1000000.0 );
 971 #else
 972     p_sys->i_npt_start = -1;
 973 #endif
 974     if( p_sys->i_npt_start < 0 )
 975     {
 976         p_sys->i_npt_start = -1;
 977         p_sys->i_npt = 0;
 978     }
 979     else
 980         p_sys->i_npt = p_sys->i_npt_start;
 981
 982 #if (LIVEMEDIA_LIBRARY_VERSION_INT >= 9999999999)
 983     /* Retrieve the duration if possible */
 984     p_sys->i_npt_length = (int64_t)( p_sys->ms->playEndTime() * (double)1000000.0 );
 985 #else
 986     p_sys->i_npt_length = -1;
 987 #endif
 988     if( p_sys->i_npt_length < 0 )
 989         p_sys->i_npt_length = -1;
 990
 991     msg_Dbg( p_demux, "play start: %lld stop:%lld", p_sys->i_npt_start, p_sys->i_npt_length );
 992     return VLC_SUCCESS;
 993 }
 994
 995
 996 /*****************************************************************************
 997  * Demux:
 998  *****************************************************************************/
 999 static int Demux( demux_t *p_demux )
1000 {
1001     demux_sys_t    *p_sys = p_demux->p_sys;
1002     TaskToken      task;
1003
1004     vlc_bool_t      b_send_pcr = VLC_TRUE;
1005     int64_t         i_pcr = 0;
1006     int             i;
1007
1008     /* Check if we need to send the server a Keep-A-Live signal */
1009     if( p_sys->b_timeout_call && p_sys->rtsp && p_sys->ms )
1010     {
1011         p_sys->rtsp->setMediaSessionParameter( *p_sys->ms, "vlc" , "1" );
1012         p_sys->b_timeout_call = VLC_FALSE;
1013     }
1014
1015
1016     for( i = 0; i < p_sys->i_track; i++ )
1017     {
1018         live_track_t *tk = p_sys->track[i];
1019
1020         if( tk->b_asf || tk->b_muxed )
1021             b_send_pcr = VLC_FALSE;
1022 #if 0
1023         if( i_pcr == 0 )
1024         {
1025             i_pcr = tk->i_pts;
1026         }
1027         else if( tk->i_pts != 0 && i_pcr > tk->i_pts )
1028         {
1029             i_pcr = tk->i_pts ;
1030         }
1031 #endif
1032     }
1033     if( p_sys->i_pcr > 0 )
1034     {
1035         if( b_send_pcr )
1036             es_out_Control( p_demux->out, ES_OUT_SET_PCR, p_sys->i_pcr );
1037     }
1038
1039     /* First warn we want to read data */
1040     p_sys->event = 0;
1041     for( i = 0; i < p_sys->i_track; i++ )
1042     {
1043         live_track_t *tk = p_sys->track[i];
1044
1045         if( tk->waiting == 0 )
1046         {
1047             tk->waiting = 1;
1048             tk->sub->readSource()->getNextFrame( tk->p_buffer, tk->i_buffer,
1049                                           StreamRead, tk, StreamClose, tk );
1050         }
1051     }
1052     /* Create a task that will be called if we wait more than 300ms */
1053     task = p_sys->scheduler->scheduleDelayedTask( 300000, TaskInterrupt, p_demux );
1054
1055     /* Do the read */
1056     p_sys->scheduler->doEventLoop( &p_sys->event );
1057
1058     /* remove the task */
1059     p_sys->scheduler->unscheduleDelayedTask( task );
1060
1061     /* Check for gap in pts value */
1062     for( i = 0; i < p_sys->i_track; i++ )
1063     {
1064         live_track_t *tk = p_sys->track[i];
1065
1066         if( !tk->b_muxed && !tk->b_rtcp_sync &&
1067             tk->sub->rtpSource() && tk->sub->rtpSource()->hasBeenSynchronizedUsingRTCP() )
1068         {
1069             msg_Dbg( p_demux, "tk->rtpSource->hasBeenSynchronizedUsingRTCP()" );
1070
1071             es_out_Control( p_demux->out, ES_OUT_RESET_PCR );
1072             tk->b_rtcp_sync = VLC_TRUE;
1073             /* reset PCR */
1074             tk->i_pts = 0;
1075             p_sys->i_pcr = 0;
1076             i_pcr = 0;
1077         }
1078     }
1079
1080     if( p_sys->b_multicast && p_sys->b_no_data &&
1081         ( p_sys->i_no_data_ti > 120 ) )
1082     {
1083         /* FIXME Make this configurable
1084         msg_Err( p_demux, "no multicast data received in 36s, aborting" );
1085         return 0;
1086         */
1087     }
1088     else if( !p_sys->b_multicast && p_sys->b_no_data &&
1089              ( p_sys->i_no_data_ti > 34 ) )
1090     {
1091         vlc_bool_t b_rtsp_tcp = var_GetBool( p_demux, "rtsp-tcp" ) ||
1092                                 var_GetBool( p_demux, "rtsp-http" );
1093
1094         if( !b_rtsp_tcp && p_sys->rtsp && p_sys->ms )
1095         {
1096             msg_Warn( p_demux, "no data received in 10s. Switching to TCP" );
1097             if( RollOverTcp( p_demux ) )
1098             {
1099                 msg_Err( p_demux, "TCP rollover failed, aborting" );
1100                 return 0;
1101             }
1102         }
1103         else if( p_sys->i_no_data_ti > 34 )
1104         {
1105             msg_Err( p_demux, "no data received in 10s, aborting" );
1106             return 0;
1107         }
1108     }
1109     else if( !p_sys->b_multicast && p_sys->b_no_data && p_sys->i_no_data_ti > 34 )
1110     {
1111         /* EOF ? */
1112         msg_Warn( p_demux, "no data received in 10s, eof ?" );
1113         return 0;
1114     }
1115     return p_demux->b_error ? 0 : 1;
1116 }
1117
1118 /*****************************************************************************
1119  * Control:
1120  *****************************************************************************/
1121 static int Control( demux_t *p_demux, int i_query, va_list args )
1122 {
1123     demux_sys_t *p_sys = p_demux->p_sys;
1124     int64_t *pi64;
1125     double  *pf, f;
1126     vlc_bool_t *pb, b_bool;
1127
1128     switch( i_query )
1129     {
1130         case DEMUX_GET_TIME:
1131             pi64 = (int64_t*)va_arg( args, int64_t * );
1132             if( p_sys->i_npt > 0 )
1133             {
1134                 *pi64 = p_sys->i_npt;
1135                 return VLC_SUCCESS;
1136             }
1137             return VLC_EGENERIC;
1138
1139         case DEMUX_GET_LENGTH:
1140             pi64 = (int64_t*)va_arg( args, int64_t * );
1141             if( p_sys->i_npt_length > 0 )
1142             {
1143                 *pi64 = p_sys->i_npt_length;
1144                 return VLC_SUCCESS;
1145             }
1146             return VLC_EGENERIC;
1147
1148         case DEMUX_GET_POSITION:
1149             pf = (double*)va_arg( args, double* );
1150             if( p_sys->i_npt_length > 0 && p_sys->i_npt > 0 )
1151             {
1152                 *pf = (double)p_sys->i_npt / (double)p_sys->i_npt_length;
1153                 return VLC_SUCCESS;
1154             }
1155             return VLC_EGENERIC;
1156
1157         case DEMUX_SET_POSITION:
1158         {
1159             float time;
1160
1161             f = (double)va_arg( args, double );
1162             if( p_sys->rtsp && p_sys->i_npt_length > 0 )
1163             {
1164                 int i;
1165                 time = f * (double)p_sys->i_npt_length / 1000000.0;   /* in second */
1166                 if( !p_sys->rtsp->playMediaSession( *p_sys->ms, time, -1, 1 ) )
1167                 {
1168                     msg_Err( p_demux, "PLAY failed %s",
1169                         p_sys->env->getResultMsg() );
1170                     return VLC_EGENERIC;
1171                 }
1172                 es_out_Control( p_demux->out, ES_OUT_RESET_PCR );
1173                 p_sys->i_pcr = 0;
1174 #if (LIVEMEDIA_LIBRARY_VERSION_INT >= 1195257600)
1175                 /* Retrieve RTP-Info values */
1176                 for( i = 0; i < p_sys->i_track; i++ )
1177                 {
1178                     p_sys->track[i]->i_pts = (int64_t) ( p_sys->track[i]->sub->rtpInfo.timestamp * (double)1000000.0 );
1179                     p_sys->track[i]->i_start_seq = p_sys->track[i]->sub->rtpInfo.seqNum;
1180                     msg_Info( p_demux, "set pos startseq: %u", p_sys->track[i]->i_start_seq );
1181                 }
1182 #endif
1183 #if (LIVEMEDIA_LIBRARY_VERSION_INT >= 9999999999)
1184                 /* Retrieve the starttime if possible */
1185                 p_sys->i_npt_start = (int64_t)( p_sys->ms->playStartTime() * (double)1000000.0 );
1186 #else
1187                 p_sys->i_npt_start = -1;
1188 #endif
1189                 if( p_sys->i_npt_start < 0 )
1190                 {
1191                     p_sys->i_npt_start = -1;
1192                     p_sys->i_npt = 0;
1193                 }
1194                 else
1195                     p_sys->i_npt = p_sys->i_npt_start;
1196
1197 #if (LIVEMEDIA_LIBRARY_VERSION_INT >= 9999999999)
1198                 /* Retrieve the duration if possible */
1199                 p_sys->i_npt_length = (int64_t)( p_sys->ms->playEndTime() * (double)1000000.0 );
1200 #else
1201                 p_sys->i_npt_length = -1;
1202 #endif
1203                 if( p_sys->i_npt_length < 0 )
1204                     p_sys->i_npt_length = -1;
1205
1206                 msg_Dbg( p_demux, "seek start: %lld stop:%lld", p_sys->i_npt_start, p_sys->i_npt_length );
1207                 return VLC_SUCCESS;
1208             }
1209             return VLC_EGENERIC;
1210         }
1211         /* Special for access_demux */
1212         case DEMUX_CAN_PAUSE:
1213             pb = (vlc_bool_t*)va_arg( args, vlc_bool_t * );
1214             if( p_sys->rtsp && p_sys->i_npt_length )
1215                 /* Not always true, but will be handled in SET_PAUSE_STATE */
1216                 *pb = VLC_TRUE;
1217             else
1218                 *pb = VLC_FALSE;
1219             return VLC_SUCCESS;
1220
1221         case DEMUX_CAN_CONTROL_PACE:
1222             pb = (vlc_bool_t*)va_arg( args, vlc_bool_t * );
1223
1224 #if 1       /* Disable for now until we have a clock synchro algo
1225              * which works with something else than MPEG over UDP */
1226             *pb = VLC_FALSE;
1227 #else
1228             *pb = VLC_TRUE;
1229 #endif
1230             return VLC_SUCCESS;
1231
1232         case DEMUX_SET_PAUSE_STATE:
1233         {
1234             double d_npt = (double) p_sys->i_npt / I64C(1000000);
1235             int i;
1236
1237             b_bool = (vlc_bool_t)va_arg( args, vlc_bool_t );
1238             if( p_sys->rtsp == NULL )
1239                 return VLC_EGENERIC;
1240
1241             /* FIXME */
1242             if( ( b_bool && !p_sys->rtsp->pauseMediaSession( *p_sys->ms ) ) ||
1243                     ( !b_bool && !p_sys->rtsp->playMediaSession( *p_sys->ms,
1244                       d_npt > 0 ? d_npt : -1 ) ) )
1245             {
1246                     msg_Err( p_demux, "PLAY or PAUSE failed %s", p_sys->env->getResultMsg() );
1247                     return VLC_EGENERIC;
1248             }
1249             es_out_Control( p_demux->out, ES_OUT_RESET_PCR );
1250             p_sys->i_pcr = 0;
1251 #if (LIVEMEDIA_LIBRARY_VERSION_INT >= 1195257600)
1252             for( i = 0; i < p_sys->i_track; i++ )
1253             {
1254                 p_sys->track[i]->i_pts = (int64_t) ( p_sys->track[i]->sub->rtpInfo.timestamp * (double)1000000.0 );
1255                 p_sys->track[i]->i_start_seq = p_sys->track[i]->sub->rtpInfo.seqNum;
1256                 msg_Info( p_demux, "set pause startseq: %u", p_sys->track[i]->i_start_seq );
1257             }
1258 #endif
1259 #if (LIVEMEDIA_LIBRARY_VERSION_INT >= 9999999999)
1260             /* Retrieve the starttime if possible */
1261             p_sys->i_npt_start = (int64_t)( p_sys->ms->playStartTime() * (double)1000000.0 );
1262 #else
1263             p_sys->i_npt_start = -1;
1264 #endif
1265             if( p_sys->i_npt_start < 0 )
1266             {
1267                 p_sys->i_npt_start = -1;
1268                 p_sys->i_npt = 0;
1269             }
1270             else
1271                 p_sys->i_npt = p_sys->i_npt_start;
1272
1273 #if (LIVEMEDIA_LIBRARY_VERSION_INT >= 9999999999)
1274             /* Retrieve the duration if possible */
1275             p_sys->i_npt_length = (int64_t)( p_sys->ms->playEndTime() * (double)1000000.0 );
1276 #else
1277             p_sys->i_npt_length = -1;
1278 #endif
1279             if( p_sys->i_npt_length < 0 )
1280                 p_sys->i_npt_length = -1;
1281
1282             msg_Dbg( p_demux, "pause start: %lld stop:%lld", p_sys->i_npt_start, p_sys->i_npt_length );
1283             return VLC_SUCCESS;
1284         }
1285         case DEMUX_GET_TITLE_INFO:
1286         case DEMUX_SET_TITLE:
1287         case DEMUX_SET_SEEKPOINT:
1288             return VLC_EGENERIC;
1289
1290         case DEMUX_GET_PTS_DELAY:
1291             pi64 = (int64_t*)va_arg( args, int64_t * );
1292             *pi64 = (int64_t)var_GetInteger( p_demux, "rtsp-caching" ) * 1000;
1293             return VLC_SUCCESS;
1294
1295         default:
1296             return VLC_EGENERIC;
1297     }
1298 }
1299
1300 /*****************************************************************************
1301  * RollOverTcp: reopen the rtsp into TCP mode
1302  * XXX: ugly, a lot of code are duplicated from Open()
1303  * This should REALLY be fixed
1304  *****************************************************************************/
1305 static int RollOverTcp( demux_t *p_demux )
1306 {
1307     demux_sys_t *p_sys = p_demux->p_sys;
1308     int i, i_return;
1309
1310     var_SetBool( p_demux, "rtsp-tcp", VLC_TRUE );
1311
1312     /* We close the old RTSP session */
1313     for( i = 0; i < p_sys->i_track; i++ )
1314     {
1315         live_track_t *tk = p_sys->track[i];
1316
1317         if( tk->b_muxed ) stream_DemuxDelete( tk->p_out_muxed );
1318         free( tk->p_buffer );
1319         free( tk );
1320     }
1321     if( p_sys->i_track ) free( p_sys->track );
1322     if( p_sys->p_out_asf ) stream_DemuxDelete( p_sys->p_out_asf );
1323
1324     p_sys->rtsp->teardownMediaSession( *p_sys->ms );
1325     Medium::close( p_sys->ms );
1326     RTSPClient::close( p_sys->rtsp );
1327
1328     p_sys->ms = NULL;
1329     p_sys->rtsp = NULL;
1330     p_sys->track = NULL;
1331     p_sys->i_track = 0;
1332
1333     /* Reopen rtsp client */
1334     if( ( p_demux->s != NULL ) &&
1335         ( i_return = Connect( p_demux ) ) != VLC_SUCCESS )
1336     {
1337         msg_Err( p_demux, "Failed to connect with rtsp://%s",
1338                  p_sys->psz_path );
1339         goto error;
1340     }
1341
1342     if( p_sys->p_sdp == NULL )
1343     {
1344         msg_Err( p_demux, "Failed to retrieve the RTSP Session Description" );
1345         goto error;
1346     }
1347
1348     if( ( i_return = SessionsSetup( p_demux ) ) != VLC_SUCCESS )
1349     {
1350         msg_Err( p_demux, "Nothing to play for rtsp://%s", p_sys->psz_path );
1351         goto error;
1352     }
1353
1354     if( ( i_return = Play( p_demux ) ) != VLC_SUCCESS )
1355         goto error;
1356
1357     return VLC_SUCCESS;
1358
1359 error:
1360     return VLC_EGENERIC;
1361 }
1362
1363
1364 /*****************************************************************************
1365  *
1366  *****************************************************************************/
1367 static void StreamRead( void *p_private, unsigned int i_size,
1368                         unsigned int i_truncated_bytes, struct timeval pts,
1369                         unsigned int duration )
1370 {
1371     live_track_t   *tk = (live_track_t*)p_private;
1372     demux_t        *p_demux = tk->p_demux;
1373     demux_sys_t    *p_sys = p_demux->p_sys;
1374     block_t        *p_block;
1375
1376     //msg_Dbg( p_demux, "pts: %d", pts.tv_sec );
1377
1378     int64_t i_pts = (uint64_t)pts.tv_sec * UI64C(1000000) +
1379         (uint64_t)pts.tv_usec;
1380
1381     /* XXX Beurk beurk beurk Avoid having negative value XXX */
1382     i_pts &= UI64C(0x00ffffffffffffff);
1383
1384     if( tk->b_quicktime && tk->p_es == NULL )
1385     {
1386         QuickTimeGenericRTPSource *qtRTPSource =
1387             (QuickTimeGenericRTPSource*)tk->sub->rtpSource();
1388         QuickTimeGenericRTPSource::QTState &qtState = qtRTPSource->qtState;
1389         uint8_t *sdAtom = (uint8_t*)&qtState.sdAtom[4];
1390
1391         if( tk->fmt.i_cat == VIDEO_ES ) {
1392             if( qtState.sdAtomSize < 16 + 32 )
1393             {
1394                 /* invalid */
1395                 p_sys->event = 0xff;
1396                 tk->waiting = 0;
1397                 return;
1398             }
1399             tk->fmt.i_codec = VLC_FOURCC(sdAtom[0],sdAtom[1],sdAtom[2],sdAtom[3]);
1400             tk->fmt.video.i_width  = (sdAtom[28] << 8) | sdAtom[29];
1401             tk->fmt.video.i_height = (sdAtom[30] << 8) | sdAtom[31];
1402
1403             if( tk->fmt.i_codec == VLC_FOURCC('a', 'v', 'c', '1') )
1404             {
1405                 uint8_t *pos = (uint8_t*)qtRTPSource->qtState.sdAtom + 86;
1406                 uint8_t *endpos = (uint8_t*)qtRTPSource->qtState.sdAtom
1407                                   + qtRTPSource->qtState.sdAtomSize;
1408                 while (pos+8 < endpos) {
1409                     unsigned atomLength = pos[0]<<24 | pos[1]<<16 | pos[2]<<8 | pos[3];
1410                     if( atomLength == 0 || atomLength > endpos-pos) break;
1411                     if( memcmp(pos+4, "avcC", 4) == 0 &&
1412                         atomLength > 8 &&
1413                         atomLength <= INT_MAX )
1414                     {
1415                         tk->fmt.i_extra = atomLength-8;
1416                         tk->fmt.p_extra = malloc( tk->fmt.i_extra );
1417                         memcpy(tk->fmt.p_extra, pos+8, atomLength-8);
1418                         break;
1419                     }
1420                     pos += atomLength;
1421                 }
1422             }
1423             else
1424             {
1425                 tk->fmt.i_extra        = qtState.sdAtomSize - 16;
1426                 tk->fmt.p_extra        = malloc( tk->fmt.i_extra );
1427                 memcpy( tk->fmt.p_extra, &sdAtom[12], tk->fmt.i_extra );
1428             }
1429         }
1430         else {
1431             if( qtState.sdAtomSize < 4 )
1432             {
1433                 /* invalid */
1434                 p_sys->event = 0xff;
1435                 tk->waiting = 0;
1436                 return;
1437             }
1438             tk->fmt.i_codec = VLC_FOURCC(sdAtom[0],sdAtom[1],sdAtom[2],sdAtom[3]);
1439         }
1440         tk->p_es = es_out_Add( p_demux->out, &tk->fmt );
1441     }
1442
1443 #if 0
1444     fprintf( stderr, "StreamRead size=%d pts=%lld\n",
1445              i_size,
1446              pts.tv_sec * 1000000LL + pts.tv_usec );
1447 #endif
1448
1449     /* grow buffer if it looks like buffer is too small, but don't eat
1450      * up all the memory on strange streams */
1451     if( i_truncated_bytes > 0 && tk->i_buffer < 2000000 )
1452     {
1453         void *p_tmp;
1454         msg_Dbg( p_demux, "lost %d bytes", i_truncated_bytes );
1455         msg_Dbg( p_demux, "increasing buffer size to %d", tk->i_buffer * 2 );
1456         tk->i_buffer *= 2;
1457         p_tmp = realloc( tk->p_buffer, tk->i_buffer );
1458         if( p_tmp == NULL )
1459         {
1460             msg_Warn( p_demux, "realloc failed" );
1461         }
1462         else
1463         {
1464             tk->p_buffer = (uint8_t*)p_tmp;
1465         }
1466     }
1467     if( i_size > tk->i_buffer )
1468     {
1469         msg_Warn( p_demux, "buffer overflow" );
1470     }
1471     /* FIXME could i_size be > buffer size ? */
1472     if( tk->fmt.i_codec == VLC_FOURCC('s','a','m','r') ||
1473         tk->fmt.i_codec == VLC_FOURCC('s','a','w','b') )
1474     {
1475         AMRAudioSource *amrSource = (AMRAudioSource*)tk->sub->readSource();
1476
1477         p_block = block_New( p_demux, i_size + 1 );
1478         p_block->p_buffer[0] = amrSource->lastFrameHeader();
1479         memcpy( p_block->p_buffer + 1, tk->p_buffer, i_size );
1480     }
1481     else if( tk->fmt.i_codec == VLC_FOURCC('H','2','6','1') )
1482     {
1483 #if LIVEMEDIA_LIBRARY_VERSION_INT >= 1081468800
1484         H261VideoRTPSource *h261Source = (H261VideoRTPSource*)tk->sub->rtpSource();
1485         uint32_t header = h261Source->lastSpecialHeader();
1486 #else
1487         uint32_t header = 0;
1488         msg_Warn( p_demux, "need livemedia library >= \"2004.04.09\"" );
1489 #endif
1490         p_block = block_New( p_demux, i_size + 4 );
1491         memcpy( p_block->p_buffer, &header, 4 );
1492         memcpy( p_block->p_buffer + 4, tk->p_buffer, i_size );
1493
1494         if( tk->sub->rtpSource()->curPacketMarkerBit() )
1495             p_block->i_flags |= BLOCK_FLAG_END_OF_FRAME;
1496     }
1497     else if( tk->fmt.i_codec == VLC_FOURCC('h','2','6','4') )
1498     {
1499         if( (tk->p_buffer[0] & 0x1f) >= 24 )
1500             msg_Warn( p_demux, "unsupported NAL type for H264" );
1501
1502         /* Normal NAL type */
1503         p_block = block_New( p_demux, i_size + 4 );
1504         p_block->p_buffer[0] = 0x00;
1505         p_block->p_buffer[1] = 0x00;
1506         p_block->p_buffer[2] = 0x00;
1507         p_block->p_buffer[3] = 0x01;
1508         memcpy( &p_block->p_buffer[4], tk->p_buffer, i_size );
1509     }
1510     else if( tk->b_asf )
1511     {
1512         int i_copy = __MIN( p_sys->asfh.i_min_data_packet_size, (int)i_size );
1513         p_block = block_New( p_demux, p_sys->asfh.i_min_data_packet_size );
1514
1515         memcpy( p_block->p_buffer, tk->p_buffer, i_copy );
1516     }
1517     else
1518     {
1519         p_block = block_New( p_demux, i_size );
1520         memcpy( p_block->p_buffer, tk->p_buffer, i_size );
1521     }
1522
1523     /* Update NPT */
1524     //msg_Dbg( p_demux, "current %d, start_seq %u", (int)tk->sub->rtpSource()->curPacketRTPSeqNum(), tk->i_start_seq );
1525     if( (tk->fmt.i_cat == VIDEO_ES) && (p_sys->i_pcr < i_pts) &&
1526         (i_pts > 0) && (p_sys->i_pcr > 0) )
1527     {
1528         p_sys->i_npt += __MAX( 0, i_pts - p_sys->i_pcr );
1529         p_sys->i_pcr = i_pts;
1530         //msg_Dbg( p_demux, "npt update" );
1531     }
1532     else if( /*tk->fmt.i_cat == VIDEO_ES &&*/ p_sys->i_pcr < i_pts )
1533     {
1534         p_sys->i_pcr = i_pts;
1535     }
1536     //msg_Dbg( p_demux, "npt %lld", p_sys->i_npt );
1537
1538     if( (i_pts != tk->i_pts) && (!tk->b_muxed) )
1539     {
1540         p_block->i_dts = ( tk->fmt.i_cat == VIDEO_ES ) ? 0 : i_pts;
1541         p_block->i_pts = i_pts;
1542     }
1543
1544     if( tk->b_muxed )
1545     {
1546         stream_DemuxSend( tk->p_out_muxed, p_block );
1547     }
1548     else if( tk->b_asf )
1549     {
1550         stream_DemuxSend( p_sys->p_out_asf, p_block );
1551     }
1552     else
1553     {
1554         es_out_Send( p_demux->out, tk->p_es, p_block );
1555     }
1556
1557     /* warn that's ok */
1558     p_sys->event = 0xff;
1559
1560     /* we have read data */
1561     tk->waiting = 0;
1562     p_demux->p_sys->b_no_data = VLC_FALSE;
1563     p_demux->p_sys->i_no_data_ti = 0;
1564
1565     if( i_pts > 0 && !tk->b_muxed )
1566     {
1567         tk->i_pts = i_pts;
1568     }
1569 }
1570
1571 /*****************************************************************************
1572  *
1573  *****************************************************************************/
1574 static void StreamClose( void *p_private )
1575 {
1576     live_track_t   *tk = (live_track_t*)p_private;
1577     demux_t        *p_demux = tk->p_demux;
1578     demux_sys_t    *p_sys = p_demux->p_sys;
1579
1580     msg_Dbg( p_demux, "StreamClose" );
1581
1582     p_sys->event = 0xff;
1583     p_demux->b_error = VLC_TRUE;
1584 }
1585
1586
1587 /*****************************************************************************
1588  *
1589  *****************************************************************************/
1590 static void TaskInterrupt( void *p_private )
1591 {
1592     demux_t *p_demux = (demux_t*)p_private;
1593
1594     p_demux->p_sys->i_no_data_ti++;
1595
1596     /* Avoid lock */
1597     p_demux->p_sys->event = 0xff;
1598 }
1599
1600 /*****************************************************************************
1601  *
1602  *****************************************************************************/
1603 static void TimeoutPrevention( timeout_thread_t *p_timeout )
1604 {
1605     p_timeout->b_die = VLC_FALSE;
1606     p_timeout->i_remain = (int64_t)p_timeout->p_sys->i_timeout -2;
1607     p_timeout->i_remain *= 1000000;
1608
1609     vlc_thread_ready( p_timeout );
1610
1611     /* Avoid lock */
1612     while( !p_timeout->b_die )
1613     {
1614         if( p_timeout->i_remain <= 0 )
1615         {
1616             p_timeout->i_remain = (int64_t)p_timeout->p_sys->i_timeout -2;
1617             p_timeout->i_remain *= 1000000;
1618             p_timeout->p_sys->b_timeout_call = VLC_TRUE;
1619             msg_Dbg( p_timeout, "reset the timeout timer" );
1620         }
1621         p_timeout->i_remain -= 200000;
1622         msleep( 200000 ); /* 200 ms */
1623     }
1624 }
1625
1626 /*****************************************************************************
1627  *
1628  *****************************************************************************/
1629 static int b64_decode( char *dest, char *src );
1630
1631 static int ParseASF( demux_t *p_demux )
1632 {
1633     demux_sys_t    *p_sys = p_demux->p_sys;
1634
1635     const char *psz_marker = "a=pgmpu:data:application/vnd.ms.wms-hdr.asfv1;base64,";
1636     char *psz_asf = strcasestr( p_sys->p_sdp, psz_marker );
1637     char *psz_end;
1638     block_t *p_header;
1639
1640     /* Parse the asf header */
1641     if( psz_asf == NULL )
1642         return VLC_EGENERIC;
1643
1644     psz_asf += strlen( psz_marker );
1645     psz_asf = strdup( psz_asf );    /* Duplicate it */
1646     psz_end = strchr( psz_asf, '\n' );
1647
1648     while( psz_end > psz_asf && ( *psz_end == '\n' || *psz_end == '\r' ) )
1649         *psz_end-- = '\0';
1650
1651     if( psz_asf >= psz_end )
1652     {
1653         free( psz_asf );
1654         return VLC_EGENERIC;
1655     }
1656
1657     /* Always smaller */
1658     p_header = block_New( p_demux, psz_end - psz_asf );
1659     p_header->i_buffer = b64_decode( (char*)p_header->p_buffer, psz_asf );
1660     //msg_Dbg( p_demux, "Size=%d Hdrb64=%s", p_header->i_buffer, psz_asf );
1661     if( p_header->i_buffer <= 0 )
1662     {
1663         free( psz_asf );
1664         return VLC_EGENERIC;
1665     }
1666
1667     /* Parse it to get packet size */
1668     E_(asf_HeaderParse)( &p_sys->asfh, p_header->p_buffer, p_header->i_buffer );
1669
1670     /* Send it to demuxer */
1671     stream_DemuxSend( p_sys->p_out_asf, p_header );
1672
1673     free( psz_asf );
1674     return VLC_SUCCESS;
1675 }
1676
1677
1678 static unsigned char* parseH264ConfigStr( char const* configStr,
1679                                           unsigned int& configSize )
1680 {
1681     char *dup, *psz;
1682     int i, i_records = 1;
1683
1684     if( configSize )
1685     configSize = 0;
1686
1687     if( configStr == NULL || *configStr == '\0' )
1688         return NULL;
1689
1690     psz = dup = strdup( configStr );
1691
1692     /* Count the number of comma's */
1693     for( psz = dup; *psz != '\0'; ++psz )
1694     {
1695         if( *psz == ',')
1696         {
1697             ++i_records;
1698             *psz = '\0';
1699         }
1700     }
1701
1702     unsigned char *cfg = new unsigned char[5 * strlen(dup)];
1703     psz = dup;
1704     for( i = 0; i < i_records; i++ )
1705     {
1706         cfg[configSize++] = 0x00;
1707         cfg[configSize++] = 0x00;
1708         cfg[configSize++] = 0x00;
1709         cfg[configSize++] = 0x01;
1710
1711         configSize += b64_decode( (char*)&cfg[configSize], psz );
1712         psz += strlen(psz)+1;
1713     }
1714
1715     if( dup ) free( dup );
1716     return cfg;
1717 }
1718
1719 /*char b64[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";*/
1720 static int b64_decode( char *dest, char *src )
1721 {
1722     const char *dest_start = dest;
1723     int  i_level;
1724     int  last = 0;
1725     int  b64[256] = {
1726         -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,  /* 00-0F */
1727         -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,  /* 10-1F */
1728         -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,62,-1,-1,-1,63,  /* 20-2F */
1729         52,53,54,55,56,57,58,59,60,61,-1,-1,-1,-1,-1,-1,  /* 30-3F */
1730         -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,  /* 40-4F */
1731         15,16,17,18,19,20,21,22,23,24,25,-1,-1,-1,-1,-1,  /* 50-5F */
1732         -1,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,  /* 60-6F */
1733         41,42,43,44,45,46,47,48,49,50,51,-1,-1,-1,-1,-1,  /* 70-7F */
1734         -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,  /* 80-8F */
1735         -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,  /* 90-9F */
1736         -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,  /* A0-AF */
1737         -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,  /* B0-BF */
1738         -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,  /* C0-CF */
1739         -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,  /* D0-DF */
1740         -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,  /* E0-EF */
1741         -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1   /* F0-FF */
1742         };
1743
1744     for( i_level = 0; *src != '\0'; src++ )
1745     {
1746         int  c;
1747
1748         c = b64[(unsigned int)*src];
1749         if( c == -1 )
1750         {
1751             continue;
1752         }
1753
1754         switch( i_level )
1755         {
1756             case 0:
1757                 i_level++;
1758                 break;
1759             case 1:
1760                 *dest++ = ( last << 2 ) | ( ( c >> 4)&0x03 );
1761                 i_level++;
1762                 break;
1763             case 2:
1764                 *dest++ = ( ( last << 4 )&0xf0 ) | ( ( c >> 2 )&0x0f );
1765                 i_level++;
1766                 break;
1767             case 3:
1768                 *dest++ = ( ( last &0x03 ) << 6 ) | c;
1769                 i_level = 0;
1770         }
1771         last = c;
1772     }
1773
1774     *dest = '\0';
1775
1776     return dest - dest_start;
1777 }