Sweden-Number/dlls/shell32/xdg.c

715 lines
19 KiB
C
Raw Normal View History

/*
* Generic freedesktop.org support code
*
* Copyright (C) 2006 Mikolaj Zalewski
*
* This library 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.1 of the License, or (at your option) any later version.
*
* This library 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
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include "config.h"
#include <stdarg.h>
#include <stdlib.h>
#include <string.h>
#ifdef HAVE_SYS_STAT_H
# include <sys/stat.h>
#endif
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif
#include <errno.h>
#include "windef.h"
#include "winbase.h"
#include "winreg.h"
#include "shlwapi.h"
#include "wine/debug.h"
#include "shell32_main.h"
#include "xdg.h"
WINE_DEFAULT_DEBUG_CHANNEL(xdg);
/*
* XDG paths implemented using Desktop Base Directory spec version 0.6
* (from http://standards.freedesktop.org/basedir-spec/basedir-spec-0.6.html)
*/
static CRITICAL_SECTION XDG_PathsLock;
static CRITICAL_SECTION_DEBUG XDG_PathsLock_Debug =
{
0, 0, &XDG_PathsLock,
{ &XDG_PathsLock_Debug.ProcessLocksList,
&XDG_PathsLock_Debug.ProcessLocksList},
0, 0, { (DWORD_PTR)__FILE__ ": XDG_PathsLock"}
};
static CRITICAL_SECTION XDG_PathsLock = { &XDG_PathsLock_Debug, -1, 0, 0, 0, 0 };
typedef struct
{
const char *var_name;
const char *default_value;
} std_path;
static const std_path paths[] = {
{"XDG_DATA_HOME", "$HOME/.local/share"},
{"XDG_CONFIG_HOME", "$HOME/.config"},
{"XDG_DATA_DIRS", "/usr/local/share:/usr/share"},
{"XDG_CONFIG_DIRS", "/etc/xdg"},
{"XDG_CACHE_HOME", "$HOME/.cache"}
};
#define PATHS_COUNT (sizeof(paths)/sizeof(paths[0]))
/* will be filled with paths as they are computed */
static const char *path_values[PATHS_COUNT] = {
NULL,
NULL,
NULL,
NULL,
NULL
};
static char *load_path(int path_id)
{
char *env = getenv(paths[path_id].var_name);
char *ret;
if (env != NULL && env[0]=='/')
{
ret = SHAlloc(strlen(env)+1);
if (ret != NULL)
lstrcpyA(ret, env);
return ret;
}
if (memcmp(paths[path_id].default_value, "$HOME", 5)==0)
{
char *home = getenv("HOME");
int len;
if (!home) return NULL;
ret = SHAlloc(strlen(home)+strlen(paths[path_id].default_value)-5+1);
if (ret == NULL) return NULL;
lstrcpyA(ret, home);
len = strlen(ret);
if (len>0 && ret[len-1]=='/')
ret[--len]=0;
lstrcatA(ret, paths[path_id].default_value+5);
return ret;
}
ret = SHAlloc(strlen(paths[path_id].default_value)+1);
if (ret != NULL)
lstrcpyA(ret, env);
return ret;
}
/******************************************************************************
* XDG_GetPath [internal]
*
* Get one of the XDG standard patch. The return value shouldn't be modified nor
* freed. A return value of NULL means that the memory is exhausted or the input
* is invalid
*
* For XDG_DATA_HOME, XDG_CONFIG_HOME and XDG_CACHE_HOME the result is a Unix path.
* For XDG_DATA_DIRS and XDG_CONFIG_DIRS the result is a colon-separated list of Unix
* paths
*
* The paths are guaranteed to start with '/'
*/
const char *XDG_GetPath(int path_id)
{
if (path_id >= PATHS_COUNT || path_id < 0)
{
ERR("Invalid path_id %d\n", path_id);
return NULL;
}
if (path_values[path_id] != NULL)
return path_values[path_id];
EnterCriticalSection(&XDG_PathsLock);
if (path_values[path_id] == NULL)
path_values[path_id] = load_path(path_id);
LeaveCriticalSection(&XDG_PathsLock);
return path_values[path_id];
}
/******************************************************************************
* XDG_BuildPath [internal]
*
* Build a string with a subpath of one of the XDG standard paths.
* The root can be one of XDG_DATA_HOME, XDG_CONFIG_HOME and XDG_CACHE_HOME.
* The subpath is a path relative to that root (it shouldn't start with a slash)
*
* The returned path should be freed with SHFree. A return of NULL means that the
* memory is exhausted or the parameters are invalid
*/
char *XDG_BuildPath(int root_id, const char *subpath)
{
const char *root_path = XDG_GetPath(root_id);
char *ret_buffer;
int root_len;
if (root_id == XDG_DATA_DIRS || root_id == XDG_CONFIG_DIRS)
{
ERR("Invalid path id %d\n", root_id);
return NULL;
}
if (root_path == NULL) return NULL;
root_len = strlen(root_path);
if (root_path[root_len-1]=='/') root_len--;
ret_buffer = SHAlloc(root_len+1+strlen(subpath)+1);
if (ret_buffer == NULL) return NULL;
lstrcpyA(ret_buffer, root_path);
ret_buffer[root_len]='/';
lstrcpyA(ret_buffer+root_len+1, subpath);
return ret_buffer;
}
/******************************************************************************
* XDG_MakeDirs [internal]
*
* Checks that all the directories on the specified path exists. If some don't exists
* they are created with mask 0700 as required by many the freedeskop.org specs.
* If the path doesn't end with '/' it is assumed to be a path to a file and the last
* segment is not checked
*
* In case of a failure the errno is always set and can be used e.g for debugging
*
* RETURNS
* TRUE on success, FALSE on error
*/
BOOL XDG_MakeDirs(const char *path)
{
int last_slash = 0;
BOOL success = TRUE;
struct stat tmp;
char *buffer = SHAlloc(strlen(path)+1);
if (buffer == NULL)
{
errno = ENOMEM;
return FALSE;
}
lstrcpyA(buffer, path);
TRACE("(%s)\n", debugstr_a(path));
while (1)
{
char *slash=strchr(buffer+last_slash+1, '/');
if (slash==NULL)
break;
/* cut the string at that position and create the directory if it doesn't exist */
*slash=0;
TRACE("Checking path %s\n", debugstr_a(buffer));
success = (stat(buffer, &tmp)==0);
if (!success && errno==ENOENT)
{
TRACE("Creating\n");
success = (mkdir(buffer, 0700)==0);
}
if (!success)
{
WARN("Couldn't process directory %s (errno=%d)\n", debugstr_a(buffer), errno);
break;
}
*slash='/';
last_slash = slash-buffer;
}
SHFree(buffer);
return success;
}
/*
* .desktop files functions
*/
/******************************************************************************
* dskentry_encode [internal]
*
* Escape the characters that can't be present in a desktop entry value like \n, leading
* spaces etc. The output parameter may be NULL. Then only the number of characters will
* be computers.
*
* RETURNS
* The number of characters after escaping the special characters, including the
* terminating NUL.
*/
static int dskentry_encode(const char *value, char *output)
{
int only_spc = TRUE;
int num_written = 0;
const char *c;
for (c = value; *c; c++)
{
if (only_spc && *c==' ')
{
if (output)
{
*(output++) = '\\';
*(output++) = 's';
}
num_written += 2;
continue;
}
only_spc = FALSE;
if (*c=='\t' || *c=='\r' || *c=='\n' || *c=='\\')
{
if (output)
{
*(output++) = '\\';
if (*c=='\t') *(output++) = 't';
if (*c=='\r') *(output++) = 'r';
if (*c=='\n') *(output++) = 'n';
if (*c=='\\') *(output++) = '\\';
}
num_written += 2;
}
else
{
if (output)
*(output++)=*c;
num_written++;
}
}
if (output)
*(output++) = 0;
num_written++;
return num_written;
}
/******************************************************************************
* dskentry_decode [internal]
*
* Unescape the characters that can be escaped according to the desktop entry spec.
* The output parameter may be NULL. Then only the number of characters will
* be computers.
*
* RETURNS
* The number of characters after unescaping the special characters, including the
* terminating NUL.
*/
static int dskentry_decode(const char *value, int len, char *output)
{
int pos = 0;
int count = 0;
while (pos<len)
{
char c;
if (value[pos] == '\\' && pos<len-1)
{
pos++;
switch (value[pos])
{
case 's': c = ' '; break;
case 'n': c = '\n'; break;
case 't': c = '\t'; break;
case 'r': c = 'r'; break;
case '\\': c = '\\'; break;
default:
/* store both the backslash and the character */
if (output)
*(output++) = '\\';
count++;
c = value[pos];
break;
}
}
else
c = value[pos];
if (output)
*(output++) = c;
count++;
pos++;
}
if (output)
*(output++) = 0;
count++;
return count;
}
/******************************************************************************
* url_encode [internal]
*
* URL-encode the given string (i.e. use escape codes like %20). Note that an
* URL-encoded string can be used as a value in desktop entry files as all
* unsafe characters are escaped.
*
* The output can be NULL. Then only the number of characters will be counted
*
* RETURNS
* The number of characters after escaping the special characters, including the
* terminating NUL.
*/
static int url_encode(const char *value, char *output)
{
static const char *unsafechars = "^&`{}|[]'<>\\#%\"+";
static const char *hexchars = "0123456789ABCDEF";
int num_written = 0;
const char *c;
for (c = value; *c; c++)
{
if (*c<=0x20 || *c>=0x7f || strchr(unsafechars, *c))
{
if (output)
{
*(output++) = '%';
*(output++) = hexchars[(unsigned)(*c)/16];
*(output++) = hexchars[(unsigned)(*c)%16];
}
num_written += 3;
}
else
{
if (output)
*(output++) = *c;
num_written++;
}
}
if (output)
*(output++) = 0;
num_written++;
return num_written;
}
static int decode_url_code(const char *c)
{
const char *p1, *p2;
int v1, v2;
static const char *hexchars = "0123456789ABCDEF";
if (*c == 0)
return -1;
p1 = strchr(hexchars, toupper(*c));
p2 = strchr(hexchars, toupper(*(c+1)));
if (p1 == NULL || p2 == NULL)
return -1;
v1 = (int)(p1 - hexchars);
v2 = (int)(p2 - hexchars);
return (v1<<4) + v2;
}
/******************************************************************************
* url_decode [internal]
*
* URL-decode the given string (i.e. unescape codes like %20). The decoded string
* will never be longer than the encoded one. The decoding can be done in place - the
* output variable can point to the value buffer.
*
* output should not be NULL
*/
static void url_decode(const char *value, char *output)
{
const char *c = value;
while (*c)
{
if (*c == '%')
{
int v = decode_url_code(c+1);
if (v != -1)
{
*(output++) = v;
c += 3;
continue;
}
}
*(output++) = *c;
c++;
}
*output = 0;
}
static int escape_value(const char *value, DWORD dwFlags, char *output)
{
if (dwFlags & XDG_URLENCODE)
return url_encode(value, output);
return dskentry_encode(value, output);
}
/******************************************************************************
* XDG_WriteDesktopStringEntry [internal]
*
* Writes a key=value pair into the specified file descriptor.
*
* RETURNS
* TRUE on success, else FALSE
*/
BOOL XDG_WriteDesktopStringEntry(int writer, const char *keyName, DWORD dwFlags, const char *value)
{
int keyLen = lstrlenA(keyName);
int valueLen = escape_value(value, dwFlags, NULL);
char *string = SHAlloc(keyLen+1+valueLen);
BOOL ret;
if (string == NULL)
return FALSE;
lstrcpyA(string, keyName);
string[keyLen] = '=';
escape_value(value, dwFlags, string+keyLen+1);
string[keyLen+1+valueLen-1]='\n'; /* -1 because valueLen contains the last NUL character */
ret = (write(writer, string, keyLen+1+valueLen)!=-1);
SHFree(string);
return ret;
}
typedef struct
{
char *str;
int len;
} PARSED_STRING;
typedef struct tagPARSED_ENTRY PARSED_ENTRY;
struct tagPARSED_ENTRY
{
PARSED_STRING name;
PARSED_STRING equals;
PARSED_STRING value;
PARSED_ENTRY *next;
};
typedef struct tagPARSED_GROUP PARSED_GROUP;
struct tagPARSED_GROUP
{
PARSED_STRING name;
PARSED_ENTRY *entries;
PARSED_GROUP *next;
};
struct tagXDG_PARSED_FILE
{
char *contents;
PARSED_ENTRY *head_comments;
PARSED_GROUP *groups;
};
static BOOL parsed_str_eq(PARSED_STRING *str1, const char *str2)
{
if (strncmp(str1->str, str2, str1->len) != 0)
return FALSE;
if (str2[str1->len] != 0)
return FALSE;
return TRUE;
}
static void free_entries_list(PARSED_ENTRY *first)
{
PARSED_ENTRY *next;
while (first)
{
next = first->next;
SHFree(first);
first = next;
}
}
void XDG_FreeParsedFile(XDG_PARSED_FILE *parsed)
{
PARSED_GROUP *group, *next;
if (!parsed)
return;
free_entries_list(parsed->head_comments);
group = parsed->groups;
while (group)
{
next = group->next;
free_entries_list(group->entries);
SHFree(group);
group = next;
}
}
#define LINE_GROUP 1
#define LINE_ENTRY 2
#define LINE_COMMENT 3
static int parse_line(char *content, PARSED_ENTRY *output, int *outType)
{
char *end;
ZeroMemory(output, sizeof(PARSED_ENTRY));
end = strchr(content, '\n');
if (end == NULL)
end = content + strlen(content) - 1;
if (*content == '#')
{
*outType = LINE_COMMENT;
output->equals.str = content;
output->equals.len = end - content;
if (*end != '\n')
output->equals.len++;
}
else if (*content == '[')
{
char *last_char = end;
*outType = LINE_GROUP;
/* the standard says nothing about skipping white spaces but e.g. KDE accepts such files */
while (isspace(*last_char))
last_char--;
if (*last_char != ']')
return -1;
output->name.str = content + 1;
output->name.len = last_char - (content + 1);
}
else
{
/* 'name = value' line */
char *equal, *eq_begin, *eq_end;
*outType = LINE_ENTRY;
equal = strchr(content, '=');
if (equal == NULL || equal > end)
return -1;
for (eq_begin = equal-1; isspace(*eq_begin) && eq_begin >= content; eq_begin--)
;
for (eq_end = equal+1; isspace(*eq_end) && *eq_end != '\n'; eq_end++)
;
output->name.str = content;
output->name.len = eq_begin - content + 1;
output->equals.str = eq_begin + 1;
output->equals.len = eq_end - eq_begin - 1;
output->value.str = eq_end;
output->value.len = end - eq_end;
if (*end != '\n')
output->value.len++;
}
return end - content + 1;
}
XDG_PARSED_FILE *XDG_ParseDesktopFile(int fd)
{
struct stat stats;
XDG_PARSED_FILE *parsed = NULL;
PARSED_ENTRY **curr_entry;
PARSED_GROUP **curr_group;
BOOL is_in_group = FALSE;
int pos = 0;
if (fstat(fd, &stats) == -1) goto failed;
parsed = SHAlloc(sizeof(XDG_PARSED_FILE));
if (parsed == NULL) goto failed;
parsed->groups = NULL;
parsed->head_comments = NULL;
parsed->contents = SHAlloc(stats.st_size+1);
if (parsed->contents == NULL) goto failed;
curr_entry = &parsed->head_comments;
curr_group = &parsed->groups;
if (read(fd, parsed->contents, stats.st_size) == -1) goto failed;
parsed->contents[stats.st_size] = 0;
while (pos < stats.st_size)
{
PARSED_ENTRY statement;
int type, size;
size = parse_line(parsed->contents + pos, &statement, &type);
if (size == -1) goto failed;
if (size == 0)
break;
pos += size;
switch (type)
{
case LINE_GROUP:
{
PARSED_GROUP *group = SHAlloc(sizeof(PARSED_GROUP));
if (group == NULL) goto failed;
is_in_group = TRUE;
group->name = statement.name;
group->entries = NULL;
group->next = NULL;
*curr_group = group;
curr_group = &group->next;
curr_entry = &group->entries;
break;
}
case LINE_ENTRY:
if (!is_in_group) goto failed;
/* fall through */
case LINE_COMMENT:
{
PARSED_ENTRY *new_stat = SHAlloc(sizeof(PARSED_ENTRY));
if (new_stat == NULL) goto failed;
*new_stat = statement;
new_stat->next = NULL;
*curr_entry = new_stat;
curr_entry = &new_stat->next;
break;
}
}
}
return parsed;
failed:
XDG_FreeParsedFile(parsed);
return NULL;
}
char *XDG_GetStringValue(XDG_PARSED_FILE *file, const char *group_name, const char *value_name, DWORD dwFlags)
{
PARSED_GROUP *group;
PARSED_ENTRY *entry;
for (group = file->groups; group; group = group->next)
{
if (!parsed_str_eq(&group->name, group_name))
continue;
for (entry = group->entries; entry; entry = entry->next)
if (entry->name.str != NULL && parsed_str_eq(&entry->name, value_name))
{
int len;
char *ret;
len = dskentry_decode(entry->value.str, entry->value.len, NULL);
ret = SHAlloc(len);
if (ret == NULL) return NULL;
dskentry_decode(entry->value.str, entry->value.len, ret);
if (dwFlags & XDG_URLENCODE)
url_decode(ret, ret);
return ret;
}
}
return NULL;
}