]> git.sesse.net Git - vlc/blobdiff - modules/demux/m3u.c
we now insert playlist entries right after the playlist file, and not at the
[vlc] / modules / demux / m3u.c
index 05d3d4c8852ee664542d537b6688353198c27bf8..7868b5369468f2b4340a89ea093aba811ab1c8ce 100644 (file)
@@ -2,7 +2,7 @@
  * m3u.c: a meta demux to parse m3u and asx playlists
  *****************************************************************************
  * Copyright (C) 2001 VideoLAN
- * $Id: m3u.c,v 1.6 2002/11/24 13:02:13 sigmunau Exp $
+ * $Id: m3u.c,v 1.14 2003/03/06 00:10:33 sigmunau Exp $
  *
  * Authors: Sigmund Augdal <sigmunau@idi.ntnu.no>
  *          Gildas Bazin <gbazin@netcourrier.com>
@@ -42,6 +42,7 @@
 
 #define TYPE_M3U 1
 #define TYPE_ASX 2
+#define TYPE_HTML 3
 
 struct demux_sys_t
 {
@@ -59,11 +60,12 @@ static int  Demux ( input_thread_t * );
  * Module descriptor
  *****************************************************************************/
 vlc_module_begin();
-    set_description( "m3u/asx metademux" );
+    set_description( _("m3u/asx metademux") );
     set_capability( "demux", 10 );
     set_callbacks( Activate, Deactivate );
     add_shortcut( "m3u" );
     add_shortcut( "asx" );
+    add_shortcut( "html" );
 vlc_module_end();
 
 /*****************************************************************************
@@ -88,20 +90,56 @@ static int Activate( vlc_object_t * p_this )
 
     /* Check for m3u/asx file extension */
     psz_ext = strrchr ( p_input->psz_name, '.' );
-    if( !strcasecmp( psz_ext, ".m3u") ||
-        ( p_input->psz_demux && !strncmp(p_input->psz_demux, "m3u", 3) ) )
+    if( psz_ext )
     {
-        i_type = TYPE_M3U;
-    }
-    else if( !strcasecmp( psz_ext, ".asx") ||
-             ( p_input->psz_demux && !strncmp(p_input->psz_demux, "asx", 3) ) )
-    {
-        i_type = TYPE_ASX;
+        if( !strcasecmp( psz_ext, ".m3u") ||
+            ( p_input->psz_demux && !strncmp(p_input->psz_demux, "m3u", 3) ) )
+        {
+            i_type = TYPE_M3U;
+        }
+        else if( !strcasecmp( psz_ext, ".asx") ||
+                 ( p_input->psz_demux && !strncmp(p_input->psz_demux, "asx", 3) ) )
+        {
+            i_type = TYPE_ASX;
+        }
+        else if( !strcasecmp( psz_ext, ".html") ||
+                 ( p_input->psz_demux && !strncmp(p_input->psz_demux, "html", 4) ) )
+        {
+            i_type = TYPE_HTML;
+        }
     }
 
+    /* we had no luck looking at the file extention, so we have a look
+     * at the content. This is useful for .asp, .php and similar files
+     * that are actually html. Also useful for som asx files that have
+     * another extention */
     if( !i_type )
-        return -1;
-
+    {
+        byte_t *p_peek;
+        int i_size = input_Peek( p_input, &p_peek, MAX_LINE );
+        i_size -= sizeof("<html>") - 1;
+        if ( i_size > 0 ) {
+            while ( i_size
+                    && strncasecmp( p_peek, "<html>", sizeof("<html>") - 1 )
+                    && strncasecmp( p_peek, "<asx", sizeof("<asx") - 1 ) )
+            {
+                p_peek++;
+                i_size--;
+            }
+            if ( !i_size )
+            {
+                return -1;
+            }
+            else if ( !strncasecmp( p_peek, "<html>", sizeof("<html>") -1 ) )
+            {
+                i_type = TYPE_HTML;
+            }
+            else if ( !strncasecmp( p_peek, "<asx", sizeof("<asx") -1 ) )
+            {
+                i_type = TYPE_ASX;
+            }
+        }
+    }
     /* Allocate p_m3u */
     if( !( p_m3u = malloc( sizeof( demux_sys_t ) ) ) )
     {
@@ -126,6 +164,182 @@ static void Deactivate( vlc_object_t *p_this )
     free( p_m3u );
 }
 
+/*****************************************************************************
+ * ProcessLine: read a "line" from the file and add any entries found
+ * to the playlist. Return number of items added ( 0 or 1 )
+ *****************************************************************************/
+static int ProcessLine ( input_thread_t *p_input , demux_sys_t *p_m3u
+        , playlist_t *p_playlist , char psz_line[MAX_LINE], int i_position )
+{
+    char          *psz_bol, *psz_name;
+
+    psz_bol = psz_line;
+
+    /* Remove unnecessary tabs or spaces at the beginning of line */
+    while( *psz_bol == ' ' || *psz_bol == '\t' ||
+           *psz_bol == '\n' || *psz_bol == '\r' )
+        psz_bol++;
+
+    if( p_m3u->i_type == TYPE_M3U )
+    {
+        /* Check for comment line */
+        if( *psz_bol == '#' )
+            /*line is comment or extended info, ignored for now */
+            return 0;
+    }
+    else if ( p_m3u->i_type == TYPE_ASX )
+    {
+        /* We are dealing with ASX files.
+         * We are looking for "<ref href=" xml markups that
+         * begins with "mms://", "http://" or "file://" */
+        char *psz_eol;
+
+        while( *psz_bol &&
+               strncasecmp( psz_bol, "ref", sizeof("ref") - 1 ) )
+            psz_bol++;
+
+        if( !*psz_bol ) return 0;
+
+        while( *psz_bol &&
+               strncasecmp( psz_bol, "href", sizeof("href") - 1 ) )
+            psz_bol++;
+
+        if( !*psz_bol ) return 0;
+
+        while( *psz_bol &&
+               strncasecmp( psz_bol, "mms://",
+                            sizeof("mms://") - 1 ) &&
+               strncasecmp( psz_bol, "http://",
+                            sizeof("http://") - 1 ) &&
+               strncasecmp( psz_bol, "file://",
+                            sizeof("file://") - 1 ) )
+            psz_bol++;
+
+        if( !*psz_bol ) return 0;
+
+        psz_eol = strchr( psz_bol, '"');
+        if( !psz_eol )
+          return 0;
+
+        *psz_eol = '\0';
+    }
+    else
+    {
+        /* We are dealing with a html file with embedded
+         * video.  We are looking for "<param name="filename"
+         * value=" html markups that begin with "http://" */
+        char *psz_eol;
+
+        while( *psz_bol &&
+               strncasecmp( psz_bol, "param", sizeof("param") - 1 ) )
+            psz_bol++;
+
+        if( !*psz_bol ) return 0;
+
+        while( *psz_bol &&
+               strncasecmp( psz_bol, "filename", sizeof("filename") - 1 ) )
+            psz_bol++;
+
+        if( !*psz_bol ) return 0;
+
+        while( *psz_bol &&
+               strncasecmp( psz_bol, "http://",
+                            sizeof("http://") - 1 ) )
+            psz_bol++;
+
+        if( !*psz_bol ) return 0;
+
+        psz_eol = strchr( psz_bol, '"');
+        if( !psz_eol )
+          return 0;
+
+        *psz_eol = '\0';
+
+    }
+
+    /* empty line */
+    if ( !*psz_bol ) return 0;
+
+    /*
+     * From now on, we know we've got a meaningful line
+     */
+
+    /* check for a protocol name */
+    /* for URL, we should look for "://"
+     * for MRL (Media Resource Locator) ([[<access>][/<demux>]:][<source>]),
+     * we should look for ":"
+     * so we end up looking simply for ":"*/
+    /* PB: on some file systems, ':' are valid characters though*/
+    psz_name = psz_bol;
+    while( *psz_name && *psz_name!=':' )
+    {
+        psz_name++;
+    }
+#ifdef WIN32
+    if ( *psz_name && ( psz_name == psz_bol + 1 ) )
+    {
+        /* if it is not an URL,
+         * as it is unlikely to be an MRL (PB: if it is ?)
+         * it should be an absolute file name with the drive letter */
+        if ( *(psz_name+1) == '/' )/* "*:/" */
+        {
+            if ( *(psz_name+2) != '/' )/* not "*://" */
+                while ( *psz_name ) *psz_name++;/* so now (*psz_name==0) */
+        }
+        else while ( *psz_name ) *psz_name++;/* "*:*"*/
+    }
+#endif
+
+    /* if the line doesn't specify a protocol name,
+     * check if the line has an absolute or relative path */
+#ifndef WIN32
+    if( !*psz_name && *psz_bol != '/' )
+         /* If this line doesn't begin with a '/' */
+#else
+    if( !*psz_name
+            && *psz_bol!='/'
+            && *psz_bol!='\\'
+            && *(psz_bol+1)!=':' )
+         /* if this line doesn't begin with
+          *  "/" or "\" or "*:" or "*:\" or "*:/" or "\\" */
+#endif
+    {
+        /* assume the path is relative to the path of the m3u file. */
+        char *psz_path = strdup( p_input->psz_name );
+
+#ifndef WIN32
+        psz_name = strrchr( psz_path, '/' );
+#else
+        psz_name = strrchr( psz_path, '\\' );
+        if ( ! psz_name ) psz_name = strrchr( psz_path, '/' );
+#endif
+        if( psz_name ) *psz_name = '\0';
+        else *psz_path = '\0';
+#ifndef WIN32
+        psz_name = malloc( strlen(psz_path) + strlen(psz_bol) + 2 );
+        sprintf( psz_name, "%s/%s", psz_path, psz_bol );
+#else
+        if ( *psz_path != '\0' )
+        {
+            psz_name = malloc( strlen(psz_path) + strlen(psz_bol) + 2 );
+            sprintf( psz_name, "%s\\%s", psz_path, psz_bol );
+        }
+        else psz_name = strdup( psz_bol );
+#endif
+        free( psz_path );
+    }
+    else
+    {
+        psz_name = strdup( psz_bol );
+    }
+
+    playlist_Add( p_playlist, psz_name,
+                  PLAYLIST_INSERT, i_position );
+
+    free( psz_name );
+    return 1;
+}
+
 /*****************************************************************************
  * Demux: reads and demuxes data packets
  *****************************************************************************
@@ -134,9 +348,10 @@ static void Deactivate( vlc_object_t *p_this )
 static int Demux ( input_thread_t *p_input )
 {
     data_packet_t *p_data;
-    char          *p_buf, psz_line[MAX_LINE], *psz_bol, *psz_name, eol_tok;
+    char          *p_buf, psz_line[MAX_LINE], eol_tok;
     int           i_size, i_bufpos, i_linepos = 0;
     playlist_t    *p_playlist;
+    int           i_position;
     vlc_bool_t    b_discard = VLC_FALSE;
 
     demux_sys_t   *p_m3u = (demux_sys_t *)p_input->p_demux_data;
@@ -150,12 +365,13 @@ static int Demux ( input_thread_t *p_input )
     }
 
     p_playlist->pp_items[p_playlist->i_index]->b_autodeletion = VLC_TRUE;
+    i_position = p_playlist->i_index + 1;
 
     /* Depending on wether we are dealing with an m3u/asf file, the end of
      * line token will be different */
-    if( p_m3u->i_type == TYPE_ASX )
+    if( p_m3u->i_type == TYPE_ASX || p_m3u->i_type == TYPE_HTML )
         eol_tok = '>';
-    else  
+    else
         eol_tok = '\n';
 
     while( ( i_size = input_SplitBuffer( p_input, &p_data, MAX_LINE ) ) > 0 )
@@ -175,8 +391,11 @@ static int Demux ( input_thread_t *p_input )
                 }
                 else
                 {
-                    psz_line[i_linepos] = p_buf[i_bufpos];
-                    i_linepos++;
+                    if ( eol_tok != '\n' || p_buf[i_bufpos] != '\r' )
+                    {
+                        psz_line[i_linepos] = p_buf[i_bufpos];
+                        i_linepos++;
+                    }
                 }
 
                 i_size--; i_bufpos++;
@@ -192,93 +411,22 @@ static int Demux ( input_thread_t *p_input )
             if( !i_linepos ) continue;
 
             psz_line[i_linepos] = '\0';
-            psz_bol = psz_line;
             i_linepos = 0;
-
-            /* Remove unnecessary tabs or spaces at the beginning of line */
-            while( *psz_bol == ' ' || *psz_bol == '\t' ||
-                   *psz_bol == '\n' || *psz_bol == '\r' )
-                psz_bol++;
-
-            if( p_m3u->i_type == TYPE_M3U )
-            {
-                /* Check for comment line */
-                if( *psz_bol == '#' )
-                    /*line is comment or extended info, ignored for now */
-                    continue;
-            }
-            else
-            {
-                /* We are dealing with ASX files.
-                 * We are looking for "href" or "param" html markups that
-                 * begins with "mms://", "http://" or "file://" */
-                char *psz_eol;
-
-                while( *psz_bol &&
-                       strncasecmp( psz_bol, "href", sizeof("href") - 1 ) &&
-                       strncasecmp( psz_bol, "param", sizeof("param") - 1 ) )
-                    psz_bol++;
-
-                if( !*psz_bol ) continue;
-
-                while( *psz_bol &&
-                       strncasecmp( psz_bol, "mms://",
-                                    sizeof("mms://") - 1 ) &&
-                       strncasecmp( psz_bol, "http://",
-                                    sizeof("http://") - 1 ) &&
-                       strncasecmp( psz_bol, "file://",
-                                    sizeof("file://") - 1 ) )
-                    psz_bol++;
-
-                if( !*psz_bol ) continue;
-
-                psz_eol = strchr( psz_bol, '"');
-                if( !psz_eol )
-                  continue;
-
-                *psz_eol = '\0';
-            }
-
-            /*
-             * From now on, we know we've got a meaningful line
-             */
-
-           /* Check if the line has an absolute or relative path */
-           psz_name = psz_bol;
-            while( *psz_name && strncmp( psz_name, "://", sizeof("://") - 1 ) )
-           {
-               psz_name++;
-           }
-           if( !*psz_name && *psz_bol != '/' )
-           {
-               /* the line doesn't specify a protocol name.
-                * If this line doesn't begin with a '/' then assume the path
-                * is relative to the path of the m3u file. */
-                char *psz_path = strdup( p_input->psz_name );
-                
-                psz_name = strrchr( psz_path, '/' );
-                if( psz_name ) *psz_name = '\0';
-                else *psz_path = '\0';
-                psz_name = malloc( strlen(psz_path) + strlen(psz_bol) + 2 );
-                sprintf( psz_name, "%s/%s", psz_path, psz_bol );
-                free( psz_path );
-           }
-           else
-           {
-               psz_name = strdup( psz_bol );
-           }
-
-            playlist_Add( p_playlist, psz_name,
-                          PLAYLIST_APPEND, PLAYLIST_END );
-
-           free( psz_name );
-
-            continue;
+            i_position += ProcessLine ( p_input, p_m3u , p_playlist ,
+                                        psz_line, i_position );
         }
 
         input_DeletePacket( p_input->p_method_data, p_data );
     }
 
+    if ( i_linepos && b_discard != VLC_TRUE && eol_tok == '\n' )
+    {
+        psz_line[i_linepos] = '\0';
+        i_linepos = 0;
+        i_position += ProcessLine ( p_input, p_m3u , p_playlist , psz_line,
+                                    i_position );
+    }
+
     vlc_object_release( p_playlist );
 
     return 0;