/**

 *

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

}