160 строки
4.0 KiB
C
160 строки
4.0 KiB
C
/*
|
|
* Copyright (c) 2012 Los Alamos National Security, LLC.
|
|
* All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "opal_config.h"
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#ifdef HAVE_UNISTD_H
|
|
#include <unistd.h>
|
|
#endif
|
|
|
|
#include "opal/util/output.h"
|
|
#include "opal/util/path.h"
|
|
#include "opal/util/show_help.h"
|
|
|
|
#include "opal/util/uri.h"
|
|
|
|
const static char *uri_reserved_path_chars="!$&'()*+,;=:@ ";
|
|
|
|
char *opal_uri_get_scheme(const char *uri)
|
|
{
|
|
char *turi = strdup(uri);
|
|
char *ptr;
|
|
|
|
if (NULL == (ptr = strchr(turi, ':'))) {
|
|
opal_show_help("help-opal-util.txt", "malformed-uri",
|
|
true, uri);
|
|
return NULL;
|
|
}
|
|
*ptr = '\0';
|
|
return turi;
|
|
}
|
|
|
|
char *opal_filename_to_uri(const char *filename,
|
|
const char *hostname)
|
|
{
|
|
char *uri, *fn;
|
|
size_t i, j, k, n;
|
|
|
|
/* filename must be an absolute path */
|
|
if (!opal_path_is_absolute(filename)) {
|
|
opal_show_help("help-opal-util.txt", "relative-path",
|
|
true, filename);
|
|
return NULL;
|
|
}
|
|
|
|
/* if hostname is NULL, then this is a local file, so
|
|
* the scheme can either be missing or given as "localhost"
|
|
*/
|
|
if (NULL == hostname) {
|
|
asprintf(&uri, "file://%s", filename);
|
|
return uri;
|
|
}
|
|
|
|
/* count the number of characters that require escaping
|
|
* in the filename
|
|
*/
|
|
n=0;
|
|
for (j=0; j < strlen(uri_reserved_path_chars)-1; j++) {
|
|
if (NULL != strchr(filename, uri_reserved_path_chars[j])) {
|
|
n++;
|
|
}
|
|
}
|
|
/* escape them if necessary */
|
|
if (0 < n) {
|
|
fn = (char*)malloc(strlen(filename) + n + 1);
|
|
i=0;
|
|
for (k=0; k < strlen(filename)-1; k++) {
|
|
for (j=0; j < strlen(uri_reserved_path_chars)-1; j++) {
|
|
if (filename[k] == uri_reserved_path_chars[j]) {
|
|
fn[i] = '\\';
|
|
i++;
|
|
break;
|
|
}
|
|
}
|
|
fn[i] = filename[k];
|
|
i++;
|
|
}
|
|
fn[i] = '\0';
|
|
} else {
|
|
fn = strdup(filename);
|
|
}
|
|
|
|
/* construct the uri - the filename was already tested to
|
|
* ensure it was absolute, so the required separator should
|
|
* already be present
|
|
*/
|
|
asprintf(&uri, "file://%s%s", hostname, fn);
|
|
free(fn);
|
|
return uri;
|
|
}
|
|
|
|
char *opal_filename_from_uri(const char *uri,
|
|
char **hostname)
|
|
{
|
|
char *turi;
|
|
char *ptr, *fn, *sp;
|
|
|
|
/* protect the incoming string */
|
|
turi = strdup(uri);
|
|
|
|
/* set defaults */
|
|
fn = NULL;
|
|
if (NULL != hostname) {
|
|
*hostname = NULL;
|
|
}
|
|
|
|
/* extract the scheme */
|
|
if (NULL == (ptr = strchr(turi, ':'))) {
|
|
opal_show_help("help-opal-util.txt", "malformed-uri",
|
|
true, uri);
|
|
return NULL;
|
|
}
|
|
*ptr = '\0';
|
|
ptr++; /* step over the new NULL */
|
|
|
|
/* if there are three '/', then there is no
|
|
* hostname and the file is local
|
|
*/
|
|
if (0 == strncmp(ptr, "///", 3)) {
|
|
/* step to the filename - as it is required
|
|
* to be an absolute path, leave one slash
|
|
* in the name
|
|
*/
|
|
ptr += 2;
|
|
fn = strdup(ptr);
|
|
} else if (0 != strncmp(ptr, "//", 2)) {
|
|
/* error */
|
|
opal_show_help("help-opal-util.txt", "malformed-uri",
|
|
true, uri);
|
|
} else {
|
|
ptr += 2; /* step to the hostname */
|
|
/* find the separator to the filename */
|
|
if (NULL == (sp = strchr(ptr, '/'))) {
|
|
opal_show_help("help-opal-util.txt", "malformed-uri",
|
|
true, uri);
|
|
} else {
|
|
*sp = '\0';
|
|
if (NULL != hostname) {
|
|
*hostname = strdup(ptr);
|
|
}
|
|
/* the filename is required to be an
|
|
* absolute path, so restore the slash
|
|
*/
|
|
*sp = '/';
|
|
fn = strdup(sp);
|
|
}
|
|
}
|
|
free(turi);
|
|
return fn;
|
|
}
|