/*
|
* Portable Utility Functions
|
*
|
* Author:
|
* Miguel de Icaza (miguel@novell.com)
|
*
|
* (C) 2006 Novell, Inc.
|
*
|
* Permission is hereby granted, free of charge, to any person obtaining
|
* a copy of this software and associated documentation files (the
|
* "Software"), to deal in the Software without restriction, including
|
* without limitation the rights to use, copy, modify, merge, publish,
|
* distribute, sublicense, and/or sell copies of the Software, and to
|
* permit persons to whom the Software is furnished to do so, subject to
|
* the following conditions:
|
*
|
* The above copyright notice and this permission notice shall be
|
* included in all copies or substantial portions of the Software.
|
*
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
* NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
|
* LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
|
* OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
|
* WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
*/
|
#include <config.h>
|
#include <stdio.h>
|
#include <glib.h>
|
#include <errno.h>
|
#include <sys/stat.h>
|
|
#ifdef G_OS_WIN32
|
#include <direct.h>
|
#endif
|
|
#ifdef HAVE_UNISTD_H
|
#include <unistd.h>
|
#endif
|
|
gchar *
|
g_build_path (const gchar *separator, const gchar *first_element, ...)
|
{
|
const char *elem, *next, *endptr;
|
gboolean trimmed;
|
GString *path;
|
va_list args;
|
size_t slen;
|
|
g_return_val_if_fail (separator != NULL, NULL);
|
|
path = g_string_sized_new (48);
|
slen = strlen (separator);
|
|
va_start (args, first_element);
|
for (elem = first_element; elem != NULL; elem = next) {
|
/* trim any trailing separators from @elem */
|
endptr = elem + strlen (elem);
|
trimmed = FALSE;
|
|
while (endptr >= elem + slen) {
|
if (strncmp (endptr - slen, separator, slen) != 0)
|
break;
|
|
endptr -= slen;
|
trimmed = TRUE;
|
}
|
|
/* append elem, not including any trailing separators */
|
if (endptr > elem)
|
g_string_append_len (path, elem, endptr - elem);
|
|
/* get the next element */
|
do {
|
if (!(next = va_arg (args, char *)))
|
break;
|
|
/* remove leading separators */
|
while (!strncmp (next, separator, slen))
|
next += slen;
|
} while (*next == '\0');
|
|
if (next || trimmed)
|
g_string_append_len (path, separator, slen);
|
}
|
va_end (args);
|
|
return g_string_free (path, FALSE);
|
}
|
|
static gchar*
|
strrchr_seperator (const gchar* filename)
|
{
|
#ifdef G_OS_WIN32
|
char *p2;
|
#endif
|
char *p;
|
|
p = strrchr (filename, G_DIR_SEPARATOR);
|
#ifdef G_OS_WIN32
|
p2 = strrchr (filename, '/');
|
if (p2 > p)
|
p = p2;
|
#endif
|
|
return p;
|
}
|
|
gchar *
|
g_path_get_dirname (const gchar *filename)
|
{
|
char *p, *r;
|
size_t count;
|
g_return_val_if_fail (filename != NULL, NULL);
|
|
p = strrchr_seperator (filename);
|
if (p == NULL)
|
return g_strdup (".");
|
if (p == filename)
|
return g_strdup ("/");
|
count = p - filename;
|
r = g_malloc (count + 1);
|
strncpy (r, filename, count);
|
r [count] = 0;
|
|
return r;
|
}
|
|
gchar *
|
g_path_get_basename (const char *filename)
|
{
|
char *r;
|
g_return_val_if_fail (filename != NULL, NULL);
|
|
/* Empty filename -> . */
|
if (!*filename)
|
return g_strdup (".");
|
|
/* No separator -> filename */
|
r = strrchr_seperator (filename);
|
if (r == NULL)
|
return g_strdup (filename);
|
|
/* Trailing slash, remove component */
|
if (r [1] == 0){
|
char *copy = g_strdup (filename);
|
copy [r-filename] = 0;
|
r = strrchr_seperator (copy);
|
|
if (r == NULL){
|
g_free (copy);
|
return g_strdup ("/");
|
}
|
r = g_strdup (&r[1]);
|
g_free (copy);
|
return r;
|
}
|
|
return g_strdup (&r[1]);
|
}
|
|
//wasm does have strtok_r even though autoconf fails to find
|
#if !defined (HAVE_STRTOK_R) && !defined (HOST_WASM)
|
// This is from BSD's strtok_r
|
|
char *
|
strtok_r(char *s, const char *delim, char **last)
|
{
|
char *spanp;
|
int c, sc;
|
char *tok;
|
|
if (s == NULL && (s = *last) == NULL)
|
return NULL;
|
|
/*
|
* Skip (span) leading delimiters (s += strspn(s, delim), sort of).
|
*/
|
cont:
|
c = *s++;
|
for (spanp = (char *)delim; (sc = *spanp++) != 0; ){
|
if (c == sc)
|
goto cont;
|
}
|
|
if (c == 0){ /* no non-delimiter characters */
|
*last = NULL;
|
return NULL;
|
}
|
tok = s - 1;
|
|
/*
|
* Scan token (scan for delimiters: s += strcspn(s, delim), sort of).
|
* Note that delim must have one NUL; we stop if we see that, too.
|
*/
|
for (;;){
|
c = *s++;
|
spanp = (char *)delim;
|
do {
|
if ((sc = *spanp++) == c) {
|
if (c == 0)
|
s = NULL;
|
else {
|
char *w = s - 1;
|
*w = '\0';
|
}
|
*last = s;
|
return tok;
|
}
|
}
|
while (sc != 0);
|
}
|
/* NOTREACHED */
|
}
|
#endif
|
|
gchar *
|
g_find_program_in_path (const gchar *program)
|
{
|
char *p;
|
char *x, *l;
|
gchar *curdir = NULL;
|
char *save = NULL;
|
#ifdef G_OS_WIN32
|
char *program_exe;
|
char *suffix_list[5] = {".exe",".cmd",".bat",".com",NULL};
|
int listx;
|
gboolean hasSuffix;
|
#endif
|
|
g_return_val_if_fail (program != NULL, NULL);
|
x = p = g_strdup (g_getenv ("PATH"));
|
|
if (x == NULL || *x == '\0') {
|
curdir = g_get_current_dir ();
|
x = curdir;
|
}
|
|
#ifdef G_OS_WIN32
|
/* see if program already has a suffix */
|
listx = 0;
|
hasSuffix = FALSE;
|
while (!hasSuffix && suffix_list[listx]) {
|
hasSuffix = g_str_has_suffix(program,suffix_list[listx++]);
|
}
|
#endif
|
|
while ((l = strtok_r (x, G_SEARCHPATH_SEPARATOR_S, &save)) != NULL){
|
char *probe_path;
|
|
x = NULL;
|
probe_path = g_build_path (G_DIR_SEPARATOR_S, l, program, NULL);
|
#if !defined(NO_HAVE_ACCESS)
|
#ifdef G_OS_WIN32
|
if (_access (probe_path, X_OK) == 0){ /* FIXME: on windows this is just a read permissions test */
|
#else
|
if (access(probe_path, X_OK) == 0) {
|
#endif
|
g_free (curdir);
|
g_free (p);
|
return probe_path;
|
}
|
#endif
|
g_free (probe_path);
|
|
#ifdef G_OS_WIN32
|
/* check for program with a suffix attached */
|
if (!hasSuffix) {
|
listx = 0;
|
while (suffix_list[listx]) {
|
program_exe = g_strjoin(NULL,program,suffix_list[listx],NULL);
|
probe_path = g_build_path (G_DIR_SEPARATOR_S, l, program_exe, NULL);
|
#if !defined(NO_HAVE_ACCESS)
|
if (_access (probe_path, X_OK) == 0){ /* FIXME: on windows this is just a read permissions test */
|
g_free (curdir);
|
g_free (p);
|
g_free (program_exe);
|
return probe_path;
|
}
|
#endif
|
listx++;
|
g_free (probe_path);
|
g_free (program_exe);
|
}
|
}
|
#endif
|
}
|
g_free (curdir);
|
g_free (p);
|
return NULL;
|
}
|
|
static char *name;
|
|
void
|
g_set_prgname (const gchar *prgname)
|
{
|
name = g_strdup (prgname);
|
}
|
|
gchar *
|
g_get_prgname (void)
|
{
|
return name;
|
}
|
|
gboolean
|
g_ensure_directory_exists (const gchar *filename)
|
{
|
#ifdef G_OS_WIN32
|
gchar *dir_utf8 = g_path_get_dirname (filename);
|
gunichar2 *p;
|
gunichar2 *dir_utf16 = NULL;
|
int retval;
|
|
if (!dir_utf8 || !dir_utf8 [0])
|
return FALSE;
|
|
dir_utf16 = g_utf8_to_utf16 (dir_utf8, strlen (dir_utf8), NULL, NULL, NULL);
|
g_free (dir_utf8);
|
|
if (!dir_utf16)
|
return FALSE;
|
|
p = dir_utf16;
|
|
/* make life easy and only use one directory seperator */
|
while (*p != '\0')
|
{
|
if (*p == '/')
|
*p = '\\';
|
p++;
|
}
|
|
p = dir_utf16;
|
|
/* get past C:\ )*/
|
while (*p++ != '\\')
|
{
|
}
|
|
while (1) {
|
gboolean bRet = FALSE;
|
p = wcschr (p, '\\');
|
if (p)
|
*p = '\0';
|
retval = _wmkdir (dir_utf16);
|
if (retval != 0 && errno != EEXIST) {
|
g_free (dir_utf16);
|
return FALSE;
|
}
|
if (!p)
|
break;
|
*p++ = '\\';
|
}
|
|
g_free (dir_utf16);
|
return TRUE;
|
#else
|
char *p;
|
gchar *dir = g_path_get_dirname (filename);
|
int retval;
|
struct stat sbuf;
|
|
if (!dir || !dir [0]) {
|
g_free (dir);
|
return FALSE;
|
}
|
|
if (stat (dir, &sbuf) == 0 && S_ISDIR (sbuf.st_mode)) {
|
g_free (dir);
|
return TRUE;
|
}
|
|
p = dir;
|
while (*p == '/')
|
p++;
|
|
while (1) {
|
p = strchr (p, '/');
|
if (p)
|
*p = '\0';
|
retval = mkdir (dir, 0777);
|
if (retval != 0 && errno != EEXIST) {
|
g_free (dir);
|
return FALSE;
|
}
|
if (!p)
|
break;
|
*p++ = '/';
|
}
|
|
g_free (dir);
|
return TRUE;
|
#endif
|
}
|
