diff -r bd3829c2e9c9 -r e9c12410bfaa gst-plugins-mythtv/myth_uri.c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gst-plugins-mythtv/myth_uri.c	Thu Sep 21 21:48:02 2006 +0100
@@ -0,0 +1,208 @@
+/**
+ *
+ *    MythURI utils
+ *  - Extracts and parses a URI char string, in according with the RFC 2396
+ *    [http://www.ietf.org/rfc/rfc2396.txt]
+ *
+ *   @author Rosfran Borges (rosfran.borges@indt.org.br)
+ *
+ */
+
+#include "myth_uri.h"
+#include <glib.h>
+#include <string.h>
+#include <stdlib.h>
+
+static gint 
+myth_strstr( const gchar *haystack, const gchar *needle )
+{
+	
+	gchar *strPos;
+	
+	if (haystack == NULL || needle == NULL)
+		return -1;
+	strPos = strstr(haystack, needle);
+	if (strPos == NULL)
+		return -1;
+		
+	return (strPos - haystack);
+
+}
+
+static gboolean
+myth_uri_isabsolute( const MythURI *uri )
+{
+	gboolean ret = FALSE;
+	
+	g_return_val_if_fail( uri != NULL && uri->uri != NULL && uri->protocol != NULL, FALSE );
+	
+	if ( myth_strstr( uri->uri->str, MYTH_URI_PROTOCOL_DELIM ) == 0 || strlen(uri->protocol->str) > 0 )
+		ret = TRUE;
+		
+	return ret;	
+}
+
+static gint
+myth_strrchr( const gchar *str, const gchar *chars, const gint nchars )
+{
+
+	gint strLen;
+	gint i, j;
+	
+	if ( str == NULL || chars == NULL )
+		return -1;
+		
+	strLen = strlen( str );
+	for ( i= (strLen-1); 0 <= i; i-- ) {
+		for ( j=0; j<nchars; j++ ) {
+			if ( str[i] == chars[j] )
+				return i;
+		}
+	}
+
+	return -1;
+
+}
+
+static MythURI *
+myth_uri_init( )
+{
+	MythURI *uri = g_new0( MythURI, 1 );
+	uri->host = g_string_new("");
+	uri->fragment = g_string_new("");
+	uri->password = g_string_new("");
+	uri->path = g_string_new("");
+	uri->protocol = g_string_new("");
+	uri->query = g_string_new("");
+	uri->uri = g_string_new("");
+	uri->user = g_string_new("");
+	return uri;
+}
+
+const MythURI *
+myth_uri_new( gchar *value )
+{
+	
+	MythURI *uri = myth_uri_init();
+
+	gchar *protocol;
+	gint uriLen;
+	gint currIdx;
+	gint protoIdx;
+	gint atIdx;
+	gint colonIdx;
+	gint shashIdx;
+	gchar *host;
+	gint eblacketIdx;
+	GString *hostStr;
+	GString *portStr;
+	gint hostLen;
+	gint sharpIdx;
+	gint questionIdx;
+	gint queryLen;
+	
+	uriLen = strlen(value);
+	uri->uri = g_string_new( value );
+		
+	currIdx = 0;
+	
+	/*** Protocol ****/
+	protoIdx = myth_strstr( value, MYTH_URI_PROTOCOL_DELIM );
+	if (0 < protoIdx) {
+		uri->protocol = g_string_append_len( uri->protocol, value, protoIdx );
+		currIdx += protoIdx + strlen( MYTH_URI_PROTOCOL_DELIM );
+	}
+
+	/*** User (Password) ****/
+	atIdx = myth_strstr( value+currIdx, MYTH_URI_USER_DELIM );
+	if ( 0 < atIdx ) {
+		colonIdx = myth_strstr( value+currIdx, MYTH_URI_COLON_DELIM );
+
+		if (0 < colonIdx && colonIdx < atIdx) {
+			uri->user = g_string_append_len( uri->user, value+currIdx,  colonIdx );
+			uri->password = g_string_append_len( uri->password, value+currIdx+colonIdx+1, atIdx-(colonIdx+1) );
+		}
+		else 
+			uri->user = g_string_append_len( uri->user, value+currIdx, atIdx - currIdx );
+		currIdx += atIdx + 1;
+	}
+
+	/*** Host (Port) ****/
+	shashIdx = myth_strstr( value+currIdx, MYTH_URI_SLASH_DELIM );
+	if ( 0 < shashIdx )
+		uri->host = g_string_append_len( uri->host, value+currIdx, shashIdx );
+	else if ( myth_uri_isabsolute(uri) == TRUE )
+		uri->host = g_string_append_len( uri->host, value+currIdx, strlen(value) - currIdx );
+	host = g_strdup( myth_uri_gethost(uri) );
+	colonIdx = myth_strrchr( host, MYTH_URI_COLON_DELIM, 1 );
+	eblacketIdx = myth_strrchr( host, MYTH_URI_EBLACET_DELIM, 1 );
+	if ( ( 0 < colonIdx ) && ( eblacketIdx < colonIdx ) ) {
+		hostStr = g_string_new( host );
+
+		hostLen = hostStr->len;
+		/**** host ****/
+		uri->host = g_string_erase( uri->host, 0, hostLen );
+		uri->host = g_string_insert_len( uri->host, 0, hostStr->str, colonIdx );
+		//host = myth_uri_gethost( uri );
+		if (0 < hostLen) {
+			if (host[0] == '[' && host[hostLen-1] == ']')
+				uri->host = g_string_append_len( uri->host, hostStr->str+1,  colonIdx-2 );
+		}
+		/**** port ****/
+		portStr = g_string_new("");
+		portStr = g_string_append_len( portStr, hostStr->str+colonIdx+1, hostLen-colonIdx-1 );
+		uri->port = atoi( portStr->str );
+		g_string_free( portStr, TRUE );
+		g_string_free( hostStr, FALSE );
+	}
+	else {
+		uri->port = MYTH_URI_KNKOWN_PORT;
+		protocol = myth_uri_getprotocol(uri);
+		if ( strcmp(protocol, MYTH_URI_PROTOCOL_HTTP) == 0 )
+			uri->port = MYTH_URI_DEFAULT_HTTP_PORT;
+		if ( strcmp(protocol, MYTH_URI_PROTOCOL_FTP) == 0 )
+			uri->port = MYTH_URI_DEFAULT_FTP_PORT;
+	}
+	
+	if (shashIdx > 0) currIdx += shashIdx;
+	
+	/*
+		Handle relative URL
+	*/
+	if (myth_uri_isabsolute(uri) == FALSE)
+	{
+
+		if (shashIdx != 0)
+		{
+			/* Add slash delimiter at the beginning of the URL,
+			   if it doesn't exist 
+			*/
+			uri->path = g_string_new( MYTH_URI_SLASH_DELIM );
+		}
+		uri->path = g_string_append( uri->path, value );
+		
+	} else {
+		/* First set path simply to the rest of URI */
+		g_string_append_len( uri->path, value+currIdx,  uriLen-currIdx );
+	}
+		
+	/**** Path (Query/Fragment) ****/
+	sharpIdx = myth_strstr(value+currIdx, MYTH_URI_SHARP_DELIM);
+	if (0 < sharpIdx) {
+		uri->path = g_string_append_len( uri->path, value+currIdx, sharpIdx);
+		uri->fragment = g_string_append_len( uri->fragment, 
+			value+currIdx+sharpIdx+1, uriLen-(currIdx+sharpIdx+1));
+	}
+	
+	questionIdx = myth_strstr( value+currIdx, MYTH_URI_QUESTION_DELIM );
+	if ( 0 < questionIdx ) {
+		uri->path = g_string_append_len( uri->path, value+currIdx, questionIdx );
+		queryLen = uriLen-(currIdx+questionIdx+1);
+		if ( 0 < sharpIdx )
+			queryLen -= uriLen - (currIdx+sharpIdx+1);
+		uri->query = g_string_append_len( uri->query, value+currIdx+questionIdx+1, queryLen );
+	}
+	
+	return uri;
+
+}