/**

  *

  *    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;

 }