/** 

 * GMyth Library

 *

 * @file gmyth/gmyth_uri.c

 * 

 * @brief <p> GMythURI utils

 *  - Extracts and parses a URI char string, in according with the RFC 2396 

 *    [http://www.ietf.org/rfc/rfc2396.txt]

 * 

 * Copyright (C) 2006 INdT - Instituto Nokia de Tecnologia.

 * @author Rosfran Borges <rosfran.borges@indt.org.br>

 *

 *//*

 * 

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU Lesser General Public License as published by

 * the Free Software Foundation; either version 2 of the License, or

 * (at your option) any later version.

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

 */

#ifdef HAVE_CONFIG_H

#include "config.h"

#endif

#include "gmyth_uri.h"

#include <glib.h>

#include <string.h>

#include <stdlib.h>

#include "gmyth_debug.h"

static void gmyth_string_list_class_init          (GMythURIClass *klass);

static void gmyth_uri_init                (GMythURI *object);

static void gmyth_uri_dispose  (GObject *object);

static void gmyth_uri_finalize (GObject *object);

G_DEFINE_TYPE(GMythURI, gmyth_uri, G_TYPE_OBJECT)

static void

gmyth_uri_parser_setup_and_new( GMythURI *uri, const gchar *value );

static void

gmyth_uri_class_init (GMythURIClass *klass)

{

	GObjectClass *gobject_class;

    gobject_class = (GObjectClass *) klass;

    gobject_class->dispose  = gmyth_uri_dispose;

    gobject_class->finalize = gmyth_uri_finalize;	

}

static void

gmyth_uri_init (GMythURI *gmyth_uri)

{

}

static void

gmyth_uri_dispose  (GObject *object)

{

	GMythURI *gmyth_uri = GMYTH_URI(object);

	if ( gmyth_uri->host != NULL ) {

		g_string_free( gmyth_uri->host, TRUE );

		gmyth_uri->host = NULL;

	}

	if ( gmyth_uri->protocol != NULL ) {

		g_string_free( gmyth_uri->protocol, TRUE );

		gmyth_uri->protocol = NULL;

	}

	if ( gmyth_uri->path != NULL ) {

		g_string_free( gmyth_uri->path, TRUE );

		gmyth_uri->path = NULL;

	}

	if ( gmyth_uri->fragment != NULL ) {

		g_string_free( gmyth_uri->fragment, TRUE );

		gmyth_uri->fragment = NULL;

	}

	if ( gmyth_uri->user != NULL ) {

		g_string_free( gmyth_uri->user, TRUE );

		gmyth_uri->user = NULL;

	}

	if ( gmyth_uri->password != NULL ) {

		g_string_free( gmyth_uri->password, TRUE );

		gmyth_uri->password = NULL;

	}

	if ( gmyth_uri->query != NULL ) {

		g_string_free( gmyth_uri->query, TRUE );

		gmyth_uri->query = NULL;

	}	

	G_OBJECT_CLASS (gmyth_uri_parent_class)->dispose (object);

}

static void

gmyth_uri_finalize (GObject *object)

{

	//GMythURI *gmyth_uri = GMYTH_URI(object);

	g_signal_handlers_destroy (object);

	G_OBJECT_CLASS (gmyth_uri_parent_class)->finalize (object);

}

/** Creates a new instance of GMythURI.

 * 

 * @return a new instance of GMythURI.

 */

GMythURI *

gmyth_uri_new (void) 

{

    GMythURI *gmyth_uri = GMYTH_URI (g_object_new (GMYTH_URI_TYPE, NULL));

    return gmyth_uri;

}

/** Creates a new instance of GMythURI.

 * 

 * @return a new instance of GMythURI.

 */

GMythURI *

gmyth_uri_new_with_value (const gchar *value) 

{

    GMythURI *gmyth_uri = GMYTH_URI (g_object_new (GMYTH_URI_TYPE, NULL));

    gmyth_uri_parser_setup_and_new (gmyth_uri, value);

    return gmyth_uri;

}

static gint 

gmyth_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

gmyth_uri_isabsolute (const GMythURI *uri)

{

	gboolean ret = FALSE;

	g_return_val_if_fail( uri != NULL && uri->uri != NULL && uri->protocol != NULL, FALSE );

	if ( gmyth_strstr( uri->uri->str, GMYTH_URI_PROTOCOL_DELIM ) == 0 || strlen(uri->protocol->str) > 0 )

		ret = TRUE;

	return ret;	

}

static gint

gmyth_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 gchar*

gmyth_uri_print_field( const GString* field )

{

	if ( field != NULL && field->str != NULL && strlen(field->str) > 0 )

		return field->str;

	else

		return "";		

}

static void

gmyth_uri_parser_setup_and_new( GMythURI *uri, const gchar *value )

{

	gint 		uriLen;

	gint 		currIdx;

	gint 		protoIdx;

	gint 		atIdx;

	gint 		colonIdx;

	gint 		shashIdx;

	gchar 	    *host;

	gint 		eblacketIdx;

	gint 		hostLen;

	gint 		sharpIdx;

	gint 		questionIdx;

	gint 		queryLen;

	uriLen = strlen(value);

	uri->uri = g_string_new( value );

	currIdx = 0;

	/*** Protocol ****/

	protoIdx = gmyth_strstr (value, GMYTH_URI_PROTOCOL_DELIM);

	if (0 < protoIdx) {

        uri->protocol = g_string_new_len (value, protoIdx);

		currIdx += protoIdx + strlen( GMYTH_URI_PROTOCOL_DELIM );

	}

	/*** User (Password) ****/

	atIdx = gmyth_strstr( value+currIdx, GMYTH_URI_USER_DELIM );

	if ( 0 < atIdx ) {

		colonIdx = gmyth_strstr( value+currIdx, GMYTH_URI_COLON_DELIM );

		if (0 < colonIdx && colonIdx < atIdx) {

            uri->user = g_string_new_len (value+currIdx, colonIdx);

            uri->password = g_string_new_len (value+currIdx+colonIdx+1, atIdx - (colonIdx+1));

		}

		else

            uri->user = g_string_new_len (value+currIdx, atIdx - currIdx);

		currIdx += atIdx + 1;

	}

	/*** Host (Port) ****/

	shashIdx = gmyth_strstr( value+currIdx, GMYTH_URI_SLASH_DELIM );

	if (0 < shashIdx)

        uri->host = g_string_new_len (value+currIdx, shashIdx);

	else if ( gmyth_uri_isabsolute(uri) == TRUE )

        uri->host = g_string_new_len (value+currIdx, strlen (value) - currIdx);

	host = gmyth_uri_get_host(uri);

	colonIdx = gmyth_strrchr (host, GMYTH_URI_COLON_DELIM, 1);

	eblacketIdx = gmyth_strrchr (host, GMYTH_URI_EBLACET_DELIM, 1);

	if ( ( 0 < colonIdx ) && ( eblacketIdx < colonIdx ) ) {

        GString *portStr = NULL;

		GString *hostStr = g_string_new  (host != NULL ? 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);

		if (0 < hostLen) {

			if (host[0] == '[' && host[hostLen-1] == ']')

                uri->host = g_string_new_len (hostStr->str+1, colonIdx-2);

		}

		/**** port ****/

		portStr = g_string_new_len (hostStr->str+colonIdx+1, hostLen-colonIdx-1);

		uri->port = (gint)g_ascii_strtoull( portStr->str, NULL, 10 );

		g_string_free (portStr, TRUE);

		g_string_free (hostStr, TRUE);

	}

	else {

        const gchar* protocol = gmyth_uri_get_protocol(uri);

		uri->port = GMYTH_URI_KNKOWN_PORT;

		if ( strcmp(protocol, GMYTH_URI_PROTOCOL_HTTP) == 0 )

			uri->port = GMYTH_URI_DEFAULT_HTTP_PORT;

		if ( strcmp(protocol, GMYTH_URI_PROTOCOL_FTP) == 0 )

			uri->port = GMYTH_URI_DEFAULT_FTP_PORT;

	}

	if (shashIdx > 0) currIdx += shashIdx;

	/*

		Handle relative URL

	*/

	if (gmyth_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( GMYTH_URI_SLASH_DELIM );

		}

		uri->path = g_string_append( uri->path, value );

	} else {

		/* First set path simply to the rest of URI */

		uri->path = g_string_new_len (value+currIdx,  uriLen-currIdx );

	}

	/**** Path (Query/Fragment) ****/

	sharpIdx = gmyth_strstr(value+currIdx, GMYTH_URI_SHARP_DELIM);

	if (0 < sharpIdx) {

		uri->path = g_string_append_len( uri->path, value+currIdx, sharpIdx);

		uri->fragment = g_string_new_len (value+currIdx+sharpIdx+1, uriLen-(currIdx+sharpIdx+1));

	}

	questionIdx = gmyth_strstr( value+currIdx, GMYTH_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_new_len (value+currIdx+questionIdx+1, queryLen );

	}

	gmyth_debug( "[%s] GMythURI: host = %s, port = %d, path = %s, query = %s, fragment = %s, "\

								"user = %s, password = %s.\n", __FUNCTION__, gmyth_uri_print_field( uri->host ), uri->port,

													gmyth_uri_print_field( uri->path ), gmyth_uri_print_field( uri->query ), gmyth_uri_print_field( uri->fragment ),

													gmyth_uri_print_field ( uri->user ), gmyth_uri_print_field( uri->password ) );

}

gboolean

gmyth_uri_is_equals( GMythURI* uri1, GMythURI* uri2 )

{

	return ( g_ascii_strcasecmp( gmyth_uri_get_host( uri1 ), gmyth_uri_get_host( uri2 ) ) == 0 &&

				gmyth_uri_get_port( uri1 ) == gmyth_uri_get_port( uri2 ) );

}