#include "string.h"
#include "url.h"

/*
 * Parse a URL string into its constituent parts.
 *
 * We accept URLs of the form
 *
 *   [protocol://[host][:port]/]path/to/file
 *
 * The URL string will be modified by having NULs inserted after
 * "protocol", "host" and "port".  The original URL can be
 * reconstructed by calling unparse_url.
 *
 */
void parse_url ( struct url_info *info, char *url ) {
	char *p;

	DBG ( "URL parsing \"%s\"\n", url );

	/* Zero the structure */
	memset ( info, 0, sizeof ( *info ) );

	/* Search for a protocol delimiter */
	for ( p = url ; *p ; p++ ) {
		if ( memcmp ( p, "://", 3 ) != 0 )
			continue;

		/* URL has an explicit protocol */
		info->protocol = url;
		*p = '\0';
		p += 3;
		info->host = p;

		/* Search for port or file delimiter */
		for ( ; *p ; p++ ) {
			if ( *p == ':' ) {
				*p = '\0';
				info->port = p + 1;
				continue;
			}
			if ( *p == '/' ) {
				*(p++) = '\0';
				break;
			}
		}
		info->file = p;
		DBG ( "URL protocol \"%s\" host \"%s\" port \"%s\" "
		      "file \"%s\"\n", info->protocol, info->host,
		      info->port ? info->port : "(NONE)", info->file );
		return;
	}

	/* URL has no explicit protocol; is just a filename */
	info->file = url;
	DBG ( "URL file \"%s\"\n", info->file );
}

/*
 * Restore a parsed URL to its original pristine form.
 *
 */
char * unparse_url ( struct url_info *info ) {
	if ( info->protocol ) {
		/* URL had a protocol: fill in the deleted separators */
		info->file[-1] = '/';
		if ( info->port ) {
			info->port[-1] = ':';
		}
		info->host[-3] = ':';
		DBG ( "URL reconstructed \"%s\"\n", info->protocol );
		return info->protocol;
	} else {
		/* URL had no protocol; was just a filename */
		DBG ( "URL reconstructed \"%s\"\n", info->file );
		return info->file;
	}
}