/*
* Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
- * Copyright (C) 1999-2004 Hiroyuki Yamamoto & The Sylpheed-Claws Team
+ * Copyright (C) 1999-2005 Hiroyuki Yamamoto & The Sylpheed-Claws Team
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
*
* You should have received a copy of the GNU 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.
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*/
#ifdef HAVE_CONFIG_H
#include "defs.h"
#include <glib.h>
+#include <glib/gi18n.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <unistd.h>
#include <stdarg.h>
#include <sys/types.h>
-#include <sys/wait.h>
+#if HAVE_SYS_WAIT_H
+# include <sys/wait.h>
+#endif
#include <dirent.h>
#include <time.h>
#include <regex.h>
+#include <sys/utsname.h>
+
+#ifdef G_OS_WIN32
+# include <direct.h>
+# include <io.h>
+#endif
-#include "intl.h"
#include "utils.h"
#include "socket.h"
#include "../codeconv.h"
static gboolean debug_mode = FALSE;
-static void hash_free_strings_func(gpointer key, gpointer value, gpointer data);
+
+#if !GLIB_CHECK_VERSION(2, 7, 0) && !defined(G_OS_UNIX)
+gint g_chdir(const gchar *path)
+{
+#ifdef G_OS_WIN32
+ if (G_WIN32_HAVE_WIDECHAR_API()) {
+ wchar_t *wpath;
+ gint retval;
+ gint save_errno;
+
+ wpath = g_utf8_to_utf16(path, -1, NULL, NULL, NULL);
+ if (wpath == NULL) {
+ errno = EINVAL;
+ return -1;
+ }
+
+ retval = _wchdir(wpath);
+ save_errno = errno;
+
+ g_free(wpath);
+
+ errno = save_errno;
+ return retval;
+ } else {
+ gchar *cp_path;
+ gint retval;
+ gint save_errno;
+
+ cp_path = g_locale_from_utf8(path, -1, NULL, NULL, NULL);
+ if (cp_path == NULL) {
+ errno = EINVAL;
+ return -1;
+ }
+
+ retval = chdir(cp_path);
+ save_errno = errno;
+
+ g_free(cp_path);
+
+ errno = save_errno;
+ return retval;
+ }
+#else
+ return chdir(path);
+#endif
+}
+
+gint g_chmod(const gchar *path, gint mode)
+{
+#ifdef G_OS_WIN32
+ if (G_WIN32_HAVE_WIDECHAR_API()) {
+ wchar_t *wpath;
+ gint retval;
+ gint save_errno;
+
+ wpath = g_utf8_to_utf16(path, -1, NULL, NULL, NULL);
+ if (wpath == NULL) {
+ errno = EINVAL;
+ return -1;
+ }
+
+ retval = _wchmod(wpath, mode);
+ save_errno = errno;
+
+ g_free(wpath);
+
+ errno = save_errno;
+ return retval;
+ } else {
+ gchar *cp_path;
+ gint retval;
+ gint save_errno;
+
+ cp_path = g_locale_from_utf8(path, -1, NULL, NULL, NULL);
+ if (cp_path == NULL) {
+ errno = EINVAL;
+ return -1;
+ }
+
+ retval = chmod(cp_path, mode);
+ save_errno = errno;
+
+ g_free(cp_path);
+
+ errno = save_errno;
+ return retval;
+ }
+#else
+ return chmod(path, mode);
+#endif
+}
+#endif /* GLIB_CHECK_VERSION && G_OS_UNIX */
void list_free_strings(GList *list)
{
gint str_case_equal(gconstpointer v, gconstpointer v2)
{
- return strcasecmp((const gchar *)v, (const gchar *)v2) == 0;
+ return g_ascii_strcasecmp((const gchar *)v, (const gchar *)v2) == 0;
}
guint str_case_hash(gconstpointer key)
guint h = *p;
if (h) {
- h = tolower(h);
+ h = g_ascii_tolower(h);
for (p += 1; *p != '\0'; p++)
- h = (h << 5) - h + tolower(*p);
+ h = (h << 5) - h + g_ascii_tolower(*p);
}
return h;
}
}
+gboolean str_find(const gchar *haystack, const gchar *needle)
+{
+ return strstr(haystack, needle) != NULL ? TRUE : FALSE;
+}
+
+gboolean str_case_find(const gchar *haystack, const gchar *needle)
+{
+ return strcasestr(haystack, needle) != NULL ? TRUE : FALSE;
+}
+
+gboolean str_find_equal(const gchar *haystack, const gchar *needle)
+{
+ return strcmp(haystack, needle) == 0;
+}
+
+gboolean str_case_find_equal(const gchar *haystack, const gchar *needle)
+{
+ return g_ascii_strcasecmp(haystack, needle) == 0;
+}
+
gint to_number(const gchar *nstr)
{
- register const guchar *p;
+ register const gchar *p;
if (*nstr == '\0') return -1;
for (p = nstr; *p != '\0'; p++)
- if (!isdigit(*p)) return -1;
+ if (!g_ascii_isdigit(*p)) return -1;
return atoi(nstr);
}
return str;
}
+void file_strip_crs(const gchar *file)
+{
+ FILE *fp = NULL, *outfp = NULL;
+ gchar buf[4096];
+ gchar *out = get_tmp_file();
+ if (file == NULL)
+ goto freeout;
+
+ fp = fopen(file, "rb");
+ if (!fp)
+ goto freeout;
+
+ outfp = fopen(out, "wb");
+ if (!outfp) {
+ fclose(fp);
+ goto freeout;
+ }
+
+ while (fgets(buf, sizeof (buf), fp) != NULL) {
+ strcrchomp(buf);
+ fputs(buf, outfp);
+ }
+
+ fclose(fp);
+ fclose(outfp);
+ rename_force(out, file);
+freeout:
+ g_free(out);
+}
+
/* Similar to `strstr' but this function ignores the case of both strings. */
gchar *strcasestr(const gchar *haystack, const gchar *needle)
{
return NULL;
while (haystack_len >= needle_len) {
- if (!strncasecmp(haystack, needle, needle_len))
+ if (!g_ascii_strncasecmp(haystack, needle, needle_len))
return (gchar *)haystack;
else {
haystack++;
return NULL;
}
+gpointer my_memmem(gconstpointer haystack, size_t haystacklen,
+ gconstpointer needle, size_t needlelen)
+{
+ const gchar *haystack_ = (const gchar *)haystack;
+ const gchar *needle_ = (const gchar *)needle;
+ const gchar *haystack_cur = (const gchar *)haystack;
+
+ if (needlelen == 1)
+ return memchr(haystack_, *needle_, haystacklen);
+
+ while ((haystack_cur = memchr(haystack_cur, *needle_, haystacklen))
+ != NULL) {
+ if (haystacklen - (haystack_cur - haystack_) < needlelen)
+ break;
+ if (memcmp(haystack_cur + 1, needle_ + 1, needlelen - 1) == 0)
+ return (gpointer)haystack_cur;
+ else
+ haystack_cur++;
+ }
+
+ return NULL;
+}
+
/* Copy no more than N characters of SRC to DEST, with NULL terminating. */
gchar *strncpy2(gchar *dest, const gchar *src, size_t n)
{
- register gchar c;
- gchar *s = dest;
+ register const gchar *s = src;
+ register gchar *d = dest;
- do {
- if (--n == 0) {
- *dest = '\0';
- return s;
- }
- c = *src++;
- *dest++ = c;
- } while (c != '\0');
+ while (--n && *s)
+ *d++ = *s++;
+ *d = '\0';
- /* don't do zero fill */
- return s;
+ return dest;
}
#if !HAVE_ISWALNUM
int iswalnum(wint_t wc)
{
- return isalnum((int)wc);
+ return g_ascii_isalnum((int)wc);
}
#endif
#if !HAVE_ISWSPACE
int iswspace(wint_t wc)
{
- return isspace((int)wc);
+ return g_ascii_isspace((int)wc);
}
#endif
return -1;
while (*p != '\0') {
- mb_len = mblen(p, MB_LEN_MAX);
+ mb_len = g_utf8_skip[*(guchar *)p];
if (mb_len == 0)
break;
- else if (mb_len < 0)
- return -1;
else
len++;
}
/* Examine if next block is non-ASCII string */
-gboolean is_next_nonascii(const guchar *s)
+gboolean is_next_nonascii(const gchar *s)
{
- const guchar *p;
+ const gchar *p;
/* skip head space */
- for (p = s; *p != '\0' && isspace(*p); p++)
+ for (p = s; *p != '\0' && g_ascii_isspace(*p); p++)
;
- for (; *p != '\0' && !isspace(*p); p++) {
- if (*p > 127 || *p < 32)
+ for (; *p != '\0' && !g_ascii_isspace(*p); p++) {
+ if (*(guchar *)p > 127 || *(guchar *)p < 32)
return TRUE;
}
return FALSE;
}
-gint get_next_word_len(const guchar *s)
+gint get_next_word_len(const gchar *s)
{
gint len = 0;
- for (; *s != '\0' && !isspace(*s); s++, len++)
+ for (; *s != '\0' && !g_ascii_isspace(*s); s++, len++)
;
return len;
trim_subject_for_sort(str1);
trim_subject_for_sort(str2);
- return strcasecmp(str1, str2);
+ return g_utf8_collate(str1, str2);
}
void trim_subject_for_compare(gchar *str)
{
- guchar *srcp;
+ gchar *srcp;
eliminate_parenthesis(str, '[', ']');
eliminate_parenthesis(str, '(', ')');
void trim_subject_for_sort(gchar *str)
{
- guchar *srcp;
+ gchar *srcp;
g_strstrip(str);
void trim_subject(gchar *str)
{
- register guchar *srcp, *destp;
+ register gchar *srcp;
gchar op, cl;
gint in_brace;
+
+ g_strstrip(str);
- destp = str + subject_get_prefix_length(str);
+ srcp = str + subject_get_prefix_length(str);
- if (*destp == '[') {
+ if (*srcp == '[') {
op = '[';
cl = ']';
- } else if (*destp == '(') {
+ } else if (*srcp == '(') {
op = '(';
cl = ')';
} else
- return;
+ op = 0;
- srcp = destp + 1;
- in_brace = 1;
- while (*srcp) {
- if (*srcp == op)
- in_brace++;
- else if (*srcp == cl)
- in_brace--;
- srcp++;
- if (in_brace == 0)
- break;
+ if (op) {
+ ++srcp;
+ in_brace = 1;
+ while (*srcp) {
+ if (*srcp == op)
+ in_brace++;
+ else if (*srcp == cl)
+ in_brace--;
+ srcp++;
+ if (in_brace == 0)
+ break;
+ }
}
- while (isspace(*srcp)) srcp++;
- memmove(destp, srcp, strlen(srcp) + 1);
+ while (g_ascii_isspace(*srcp)) srcp++;
+ memmove(str, srcp, strlen(srcp) + 1);
}
void eliminate_parenthesis(gchar *str, gchar op, gchar cl)
{
- register guchar *srcp, *destp;
+ register gchar *srcp, *destp;
gint in_brace;
srcp = destp = str;
if (in_brace == 0)
break;
}
- while (isspace(*srcp)) srcp++;
+ while (g_ascii_isspace(*srcp)) srcp++;
memmove(destp, srcp, strlen(srcp) + 1);
}
}
void eliminate_quote(gchar *str, gchar quote_chr)
{
- register guchar *srcp, *destp;
+ register gchar *srcp, *destp;
srcp = destp = str;
while ((destp = strchr(destp, quote_chr))) {
if ((srcp = strchr(destp + 1, quote_chr))) {
srcp++;
- while (isspace(*srcp)) srcp++;
+ while (g_ascii_isspace(*srcp)) srcp++;
memmove(destp, srcp, strlen(srcp) + 1);
} else {
*destp = '\0';
void eliminate_address_comment(gchar *str)
{
- register guchar *srcp, *destp;
+ register gchar *srcp, *destp;
gint in_brace;
srcp = destp = str;
if (*srcp == '@') {
destp = srcp + 1;
} else {
- while (isspace(*srcp)) srcp++;
+ while (g_ascii_isspace(*srcp)) srcp++;
memmove(destp, srcp, strlen(srcp) + 1);
}
} else {
if (in_brace == 0)
break;
}
- while (isspace(*srcp)) srcp++;
+ while (g_ascii_isspace(*srcp)) srcp++;
memmove(destp, srcp, strlen(srcp) + 1);
}
}
return address_list_append_real(addr_list, str, FALSE);
}
-GSList *references_list_append(GSList *msgid_list, const gchar *str)
+GSList *references_list_prepend(GSList *msgid_list, const gchar *str)
{
const gchar *strp;
msgid = g_strndup(start + 1, end - start - 1);
g_strstrip(msgid);
if (*msgid)
- msgid_list = g_slist_append(msgid_list, msgid);
+ msgid_list = g_slist_prepend(msgid_list, msgid);
else
g_free(msgid);
return msgid_list;
}
+GSList *references_list_append(GSList *msgid_list, const gchar *str)
+{
+ GSList *list;
+
+ list = references_list_prepend(NULL, str);
+ list = g_slist_reverse(list);
+ msgid_list = g_slist_concat(msgid_list, list);
+
+ return msgid_list;
+}
+
GSList *newsgroup_list_append(GSList *group_list, const gchar *str)
{
gchar *work;
void remove_space(gchar *str)
{
- register guchar *p = str;
+ register gchar *p = str;
register gint spc;
while (*p) {
spc = 0;
- while (isspace(*(p + spc)))
+ while (g_ascii_isspace(*(p + spc)))
spc++;
if (spc)
memmove(p, p + spc, strlen(p + spc) + 1);
void unfold_line(gchar *str)
{
- register guchar *p = str;
+ register gchar *p = str;
register gint spc;
while (*p) {
if (*p == '\n' || *p == '\r') {
*p++ = ' ';
spc = 0;
- while (isspace(*(p + spc)))
+ while (g_ascii_isspace(*(p + spc)))
spc++;
if (spc)
memmove(p, p + spc, strlen(p + spc) + 1);
void subst_for_filename(gchar *str)
{
- subst_chars(str, " \t\r\n\"/\\", '_');
+ if (!str)
+ return;
+ subst_chars(str, "\t\r\n\\/*", '_');
}
void subst_for_shellsafe_filename(gchar *str)
{
+ if (!str)
+ return;
subst_for_filename(str);
- subst_chars(str, "|&;()<>'!{}[]",'_');
+ subst_chars(str, " \"'|&;()<>'!{}[]",'_');
}
gboolean is_header_line(const gchar *str)
return FALSE;
}
-gboolean is_ascii_str(const guchar *str)
+gboolean is_ascii_str(const gchar *str)
{
- g_return_val_if_fail(str, FALSE);
+ const guchar *p = (const guchar *)str;
- while (*str != '\0') {
- if (*str != '\t' && *str != ' ' &&
- *str != '\r' && *str != '\n' &&
- (*str < 32 || *str >= 127))
+ while (*p != '\0') {
+ if (*p != '\t' && *p != ' ' &&
+ *p != '\r' && *p != '\n' &&
+ (*p < 32 || *p >= 127))
return FALSE;
- str++;
+ p++;
}
return TRUE;
gint get_quote_level(const gchar *str, const gchar *quote_chars)
{
- const guchar *first_pos;
- const guchar *last_pos;
- const guchar *p = str;
+ const gchar *first_pos;
+ const gchar *last_pos;
+ const gchar *p = str;
gint quote_level = -1;
/* speed up line processing by only searching to the last '>' */
if ((first_pos = line_has_quote_char(str, quote_chars)) != NULL) {
/* skip a line if it contains a '<' before the initial '>' */
- if (memchr(str, '<', first_pos - (const guchar *)str) != NULL)
+ if (memchr(str, '<', first_pos - str) != NULL)
return -1;
last_pos = line_has_quote_char_last(first_pos, quote_chars);
} else
while (p <= last_pos) {
while (p < last_pos) {
- if (isspace(*p))
+ if (g_ascii_isspace(*p))
p++;
else
break;
if (strchr(quote_chars, *p))
quote_level++;
- else if (*p != '-' && !isspace(*p) && p <= last_pos) {
+ else if (*p != '-' && !g_ascii_isspace(*p) && p <= last_pos) {
/* any characters are allowed except '-' and space */
while (*p != '-'
&& !strchr(quote_chars, *p)
- && !isspace(*p)
+ && !g_ascii_isspace(*p)
&& p < last_pos)
p++;
if (strchr(quote_chars, *p))
return quote_level;
}
+gint check_line_length(const gchar *str, gint max_chars, gint *line)
+{
+ const gchar *p = str, *q;
+ gint cur_line = 0, len;
+
+ while ((q = strchr(p, '\n')) != NULL) {
+ len = q - p + 1;
+ if (len > max_chars) {
+ if (line)
+ *line = cur_line;
+ return -1;
+ }
+ p = q + 1;
+ ++cur_line;
+ }
+
+ len = strlen(p);
+ if (len > max_chars) {
+ if (line)
+ *line = cur_line;
+ return -1;
+ }
+
+ return 0;
+}
+
const gchar * line_has_quote_char(const gchar * str, const gchar *quote_chars)
{
gchar * position = NULL;
n++;
str = s_cl + 1;
- while (*str && isspace(*(guchar *)str)) str++;
+ while (*str && g_ascii_isspace(*str)) str++;
if (*str != op) {
string_list = g_slist_prepend(string_list,
g_strdup(""));
if (!str) return NULL;
if (strlen(str) <= len)
return g_strdup(str);
+ if (g_utf8_validate(str, -1, NULL) == FALSE)
+ return g_strdup(str);
while (*p != '\0') {
- mb_len = mblen(p, MB_LEN_MAX);
+ mb_len = g_utf8_skip[*(guchar *)p];
if (mb_len == 0)
break;
- else if (mb_len < 0)
- return g_strdup(str);
else if (new_len + mb_len > len)
break;
- else
- new_len += mb_len;
+
+ new_len += mb_len;
p += mb_len;
}
GList *result = NULL;
const gchar *p, *q;
gchar *escaped_utf8uri;
- gchar *file;
p = uri_list;
while (p) {
if (*p != '#') {
- while (isspace(*p)) p++;
+ while (g_ascii_isspace(*p)) p++;
if (!strncmp(p, "file:", 5)) {
q = p;
q += 5;
if (q > p) {
gchar *file, *locale_file = NULL;
q--;
- while (q > p && isspace(*q)) q--;
+ while (q > p && g_ascii_isspace(*q))
+ q--;
Xalloca(escaped_utf8uri, q - p + 2,
return result);
Xalloca(file, q - p + 2,
strncpy(escaped_utf8uri, p, q - p + 1);
escaped_utf8uri[q - p + 1] = '\0';
decode_uri(file, escaped_utf8uri);
-#warning FIXME_GTK2 /* should we use g_filename_from_utf8()? */
/*
* g_filename_from_uri() rejects escaped/locale encoded uri
* string which come from Nautilus.
= conv_codeset_strdup(
file + 5,
CS_UTF_8,
- conv_get_current_charset_str());
+ conv_get_locale_charset_str());
if (!locale_file)
locale_file = g_strdup(file + 5);
result = g_list_append(result, locale_file);
return result;
}
-#define HEX_TO_INT(val, hex) \
-{ \
- gchar c = hex; \
- \
- if ('0' <= c && c <= '9') { \
- val = c - '0'; \
- } else if ('a' <= c && c <= 'f') { \
- val = c - 'a' + 10; \
- } else if ('A' <= c && c <= 'F') { \
- val = c - 'A' + 10; \
- } else { \
- val = 0; \
- } \
-}
-
/* Converts two-digit hexadecimal to decimal. Used for unescaping escaped
* characters
*/
gboolean is_uri_string(const gchar *str)
{
- return (g_strncasecmp(str, "http://", 7) == 0 ||
- g_strncasecmp(str, "https://", 8) == 0 ||
- g_strncasecmp(str, "ftp://", 6) == 0 ||
- g_strncasecmp(str, "www.", 4) == 0);
+ return (g_ascii_strncasecmp(str, "http://", 7) == 0 ||
+ g_ascii_strncasecmp(str, "https://", 8) == 0 ||
+ g_ascii_strncasecmp(str, "ftp://", 6) == 0 ||
+ g_ascii_strncasecmp(str, "www.", 4) == 0);
}
gchar *get_uri_path(const gchar *uri)
{
- if (g_strncasecmp(uri, "http://", 7) == 0)
+ if (g_ascii_strncasecmp(uri, "http://", 7) == 0)
return (gchar *)(uri + 7);
- else if (g_strncasecmp(uri, "https://", 8) == 0)
+ else if (g_ascii_strncasecmp(uri, "https://", 8) == 0)
return (gchar *)(uri + 8);
- else if (g_strncasecmp(uri, "ftp://", 6) == 0)
+ else if (g_ascii_strncasecmp(uri, "ftp://", 6) == 0)
return (gchar *)(uri + 6);
else
return (gchar *)uri;
}
+gint get_uri_len(const gchar *str)
+{
+ const gchar *p;
+
+ if (is_uri_string(str)) {
+ for (p = str; *p != '\0'; p++) {
+ if (!g_ascii_isgraph(*p) || strchr("()<>\"", *p))
+ break;
+ }
+ return p - str;
+ }
+
+ return 0;
+}
+
/* Decodes URL-Encoded strings (i.e. strings in which spaces are replaced by
* plusses, and escape characters are used)
*/
if (*value == '\0') continue;
- if (cc && !*cc && !g_strcasecmp(field, "cc")) {
+ if (cc && !*cc && !g_ascii_strcasecmp(field, "cc")) {
*cc = g_strdup(value);
- } else if (bcc && !*bcc && !g_strcasecmp(field, "bcc")) {
+ } else if (bcc && !*bcc && !g_ascii_strcasecmp(field, "bcc")) {
*bcc = g_strdup(value);
} else if (subject && !*subject &&
- !g_strcasecmp(field, "subject")) {
+ !g_ascii_strcasecmp(field, "subject")) {
*subject = g_malloc(strlen(value) + 1);
decode_uri(*subject, value);
- } else if (body && !*body && !g_strcasecmp(field, "body")) {
+ } else if (body && !*body && !g_ascii_strcasecmp(field, "body")) {
*body = g_malloc(strlen(value) + 1);
decode_uri(*body, value);
}
return 0;
}
-/*
- * We need this wrapper around g_get_home_dir(), so that
- * we can fix some Windoze things here. Should be done in glibc of course
- * but as long as we are not able to do our own extensions to glibc, we do
- * it here.
- */
const gchar *get_home_dir(void)
{
-#if HAVE_DOSISH_SYSTEM
- static gchar *home_dir;
-
- if (!home_dir) {
- home_dir = read_w32_registry_string(NULL,
- "Software\\Sylpheed", "HomeDir" );
- if (!home_dir || !*home_dir) {
- if (getenv ("HOMEDRIVE") && getenv("HOMEPATH")) {
- const char *s = g_get_home_dir();
- if (s && *s)
- home_dir = g_strdup (s);
- }
- if (!home_dir || !*home_dir)
- home_dir = g_strdup ("c:\\sylpheed");
- }
- debug_print("initialized home_dir to `%s'\n", home_dir);
- }
- return home_dir;
-#else /* standard glib */
- return g_get_home_dir();
+#ifdef G_OS_WIN32
+ static const gchar *home_dir = NULL;
+
+ if (!home_dir) {
+ home_dir = g_get_home_dir();
+ if (!home_dir)
+ home_dir = "C:\\Sylpheed";
+ }
+
+ return home_dir;
+#else
+ return g_get_home_dir();
#endif
}
static gchar *rc_dir = NULL;
if (!rc_dir)
+#ifdef G_OS_WIN32
+ rc_dir = g_strconcat(get_home_dir(), G_DIR_SEPARATOR_S,
+ "Application Data", G_DIR_SEPARATOR_S,
+ RC_DIR, NULL);
+#else
rc_dir = g_strconcat(get_home_dir(), G_DIR_SEPARATOR_S,
RC_DIR, NULL);
+#endif
return rc_dir;
}
+const gchar *get_mail_base_dir(void)
+{
+#ifdef G_OS_WIN32
+ static gchar *mail_base_dir = NULL;
+
+ if (!mail_base_dir)
+ mail_base_dir = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
+ "Mailboxes", NULL);
+
+ return mail_base_dir;
+#else
+ return get_home_dir();
+#endif
+}
+
const gchar *get_news_cache_dir(void)
{
static gchar *news_cache_dir = NULL;
const gchar *get_domain_name(void)
{
+#ifdef G_OS_UNIX
static gchar *domain_name = NULL;
if (!domain_name) {
- gchar buf[128] = "";
struct hostent *hp;
+ struct utsname uts;
- if (gethostname(buf, sizeof(buf)) < 0) {
- perror("gethostname");
+ if (uname(&uts) < 0) {
+ perror("uname");
domain_name = "unknown";
} else {
- buf[sizeof(buf) - 1] = '\0';
- if ((hp = my_gethostbyname(buf)) == NULL) {
+ if ((hp = my_gethostbyname(uts.nodename)) == NULL) {
perror("gethostbyname");
- domain_name = g_strdup(buf);
+ domain_name = g_strdup(uts.nodename);
} else {
domain_name = g_strdup(hp->h_name);
}
}
return domain_name;
+#else
+ return "unknown";
+#endif
}
off_t get_file_size(const gchar *file)
{
struct stat s;
- if (stat(file, &s) < 0) {
+ if (g_stat(file, &s) < 0) {
FILE_OP_ERROR(file, "stat");
return -1;
}
off_t size = 0;
gchar buf[BUFFSIZE];
- if ((fp = fopen(file, "rb")) == NULL) {
+ if ((fp = g_fopen(file, "rb")) == NULL) {
FILE_OP_ERROR(file, "fopen");
return -1;
}
if (file == NULL)
return FALSE;
- if (stat(file, &s) < 0) {
+ if (g_stat(file, &s) < 0) {
if (ENOENT != errno) FILE_OP_ERROR(file, "stat");
return FALSE;
}
gboolean is_dir_exist(const gchar *dir)
{
- struct stat s;
-
if (dir == NULL)
return FALSE;
- if (stat(dir, &s) < 0) {
- if (ENOENT != errno) FILE_OP_ERROR(dir, "stat");
- return FALSE;
- }
-
- if (S_ISDIR(s.st_mode))
- return TRUE;
-
- return FALSE;
+ return g_file_test(dir, G_FILE_TEST_IS_DIR);
}
gboolean is_file_entry_exist(const gchar *file)
{
- struct stat s;
-
if (file == NULL)
return FALSE;
- if (stat(file, &s) < 0) {
- if (ENOENT != errno) FILE_OP_ERROR(file, "stat");
- return FALSE;
- }
-
- return TRUE;
+ return g_file_test(file, G_FILE_TEST_EXISTS);
}
gboolean dirent_is_regular_file(struct dirent *d)
{
- struct stat s;
-
#ifdef HAVE_DIRENT_D_TYPE
if (d->d_type == DT_REG)
return TRUE;
return FALSE;
#endif
- return (stat(d->d_name, &s) == 0 && S_ISREG(s.st_mode));
+ return g_file_test(d->d_name, G_FILE_TEST_IS_REGULAR);
}
gboolean dirent_is_directory(struct dirent *d)
{
- struct stat s;
-
#ifdef HAVE_DIRENT_D_TYPE
if (d->d_type == DT_DIR)
return TRUE;
return FALSE;
#endif
- return (stat(d->d_name, &s) == 0 && S_ISDIR(s.st_mode));
+ return g_file_test(d->d_name, G_FILE_TEST_IS_DIR);
}
gint change_dir(const gchar *dir)
if (debug_mode)
prevdir = g_get_current_dir();
- if (chdir(dir) < 0) {
+ if (g_chdir(dir) < 0) {
FILE_OP_ERROR(dir, "chdir");
if (debug_mode) g_free(prevdir);
return -1;
gint make_dir(const gchar *dir)
{
- if (mkdir(dir, S_IRWXU) < 0) {
+ if (g_mkdir(dir, S_IRWXU) < 0) {
FILE_OP_ERROR(dir, "mkdir");
return -1;
}
- if (chmod(dir, S_IRWXU) < 0)
+ if (g_chmod(dir, S_IRWXU) < 0)
FILE_OP_ERROR(dir, "chmod");
return 0;
gint remove_all_files(const gchar *dir)
{
- DIR *dp;
- struct dirent *d;
+ GDir *dp;
+ const gchar *dir_name;
gchar *prev_dir;
prev_dir = g_get_current_dir();
- if (chdir(dir) < 0) {
+ if (g_chdir(dir) < 0) {
FILE_OP_ERROR(dir, "chdir");
g_free(prev_dir);
return -1;
}
- if ((dp = opendir(".")) == NULL) {
- FILE_OP_ERROR(dir, "opendir");
+ if ((dp = g_dir_open(".", 0, NULL)) == NULL) {
+ g_warning("failed to open directory: %s\n", dir);
g_free(prev_dir);
return -1;
}
- while ((d = readdir(dp)) != NULL) {
- if (!strcmp(d->d_name, ".") ||
- !strcmp(d->d_name, ".."))
- continue;
-
- if (unlink(d->d_name) < 0)
- FILE_OP_ERROR(d->d_name, "unlink");
+ while ((dir_name = g_dir_read_name(dp)) != NULL) {
+ if (g_unlink(dir_name) < 0)
+ FILE_OP_ERROR(dir_name, "unlink");
}
- closedir(dp);
+ g_dir_close(dp);
- if (chdir(prev_dir) < 0) {
+ if (g_chdir(prev_dir) < 0) {
FILE_OP_ERROR(prev_dir, "chdir");
g_free(prev_dir);
return -1;
gint remove_numbered_files(const gchar *dir, guint first, guint last)
{
- DIR *dp;
- struct dirent *d;
+ GDir *dp;
+ const gchar *dir_name;
gchar *prev_dir;
- gint fileno;
+ gint file_no;
prev_dir = g_get_current_dir();
- if (chdir(dir) < 0) {
+ if (g_chdir(dir) < 0) {
FILE_OP_ERROR(dir, "chdir");
g_free(prev_dir);
return -1;
}
- if ((dp = opendir(".")) == NULL) {
- FILE_OP_ERROR(dir, "opendir");
+ if ((dp = g_dir_open(".", 0, NULL)) == NULL) {
+ g_warning("failed to open directory: %s\n", dir);
g_free(prev_dir);
return -1;
}
- while ((d = readdir(dp)) != NULL) {
- fileno = to_number(d->d_name);
- if (fileno >= 0 && first <= fileno && fileno <= last) {
- if (is_dir_exist(d->d_name))
+ while ((dir_name = g_dir_read_name(dp)) != NULL) {
+ file_no = to_number(dir_name);
+ if (file_no > 0 && first <= file_no && file_no <= last) {
+ if (is_dir_exist(dir_name))
continue;
- if (unlink(d->d_name) < 0)
- FILE_OP_ERROR(d->d_name, "unlink");
+ if (g_unlink(dir_name) < 0)
+ FILE_OP_ERROR(dir_name, "unlink");
}
}
- closedir(dp);
+ g_dir_close(dp);
- if (chdir(prev_dir) < 0) {
+ if (g_chdir(prev_dir) < 0) {
FILE_OP_ERROR(prev_dir, "chdir");
g_free(prev_dir);
return -1;
gint remove_numbered_files_not_in_list(const gchar *dir, GSList *numberlist)
{
- DIR *dp;
- struct dirent *d;
+ GDir *dp;
+ const gchar *dir_name;
gchar *prev_dir;
- gint fileno;
+ gint file_no;
prev_dir = g_get_current_dir();
- if (chdir(dir) < 0) {
+ if (g_chdir(dir) < 0) {
FILE_OP_ERROR(dir, "chdir");
g_free(prev_dir);
return -1;
}
- if ((dp = opendir(".")) == NULL) {
+ if ((dp = g_dir_open(".", 0, NULL)) == NULL) {
FILE_OP_ERROR(dir, "opendir");
g_free(prev_dir);
return -1;
}
- while ((d = readdir(dp)) != NULL) {
- fileno = to_number(d->d_name);
- if (fileno >= 0 && (g_slist_find(numberlist, GINT_TO_POINTER(fileno)) == NULL)) {
- debug_print("removing unwanted file %d from %s\n", fileno, dir);
- if (is_dir_exist(d->d_name))
+ while ((dir_name = g_dir_read_name(dp)) != NULL) {
+ file_no = to_number(dir_name);
+ if (file_no > 0 && (g_slist_find(numberlist, GINT_TO_POINTER(file_no)) == NULL)) {
+ debug_print("removing unwanted file %d from %s\n", file_no, dir);
+ if (is_dir_exist(dir_name))
continue;
- if (unlink(d->d_name) < 0)
- FILE_OP_ERROR(d->d_name, "unlink");
+ if (g_unlink(dir_name) < 0)
+ FILE_OP_ERROR(dir_name, "unlink");
}
}
- closedir(dp);
+ g_dir_close(dp);
- if (chdir(prev_dir) < 0) {
+ if (g_chdir(prev_dir) < 0) {
FILE_OP_ERROR(prev_dir, "chdir");
g_free(prev_dir);
return -1;
gint remove_expired_files(const gchar *dir, guint hours)
{
- DIR *dp;
- struct dirent *d;
+ GDir *dp;
+ const gchar *dir_name;
struct stat s;
gchar *prev_dir;
- gint fileno;
+ gint file_no;
time_t mtime, now, expire_time;
prev_dir = g_get_current_dir();
- if (chdir(dir) < 0) {
+ if (g_chdir(dir) < 0) {
FILE_OP_ERROR(dir, "chdir");
g_free(prev_dir);
return -1;
}
- if ((dp = opendir(".")) == NULL) {
- FILE_OP_ERROR(dir, "opendir");
+ if ((dp = g_dir_open(".", 0, NULL)) == NULL) {
+ g_warning("failed to open directory: %s\n", dir);
g_free(prev_dir);
return -1;
}
now = time(NULL);
expire_time = hours * 60 * 60;
- while ((d = readdir(dp)) != NULL) {
- fileno = to_number(d->d_name);
- if (fileno >= 0) {
- if (stat(d->d_name, &s) < 0) {
- FILE_OP_ERROR(d->d_name, "stat");
+ while ((dir_name = g_dir_read_name(dp)) != NULL) {
+ file_no = to_number(dir_name);
+ if (file_no > 0) {
+ if (g_stat(dir_name, &s) < 0) {
+ FILE_OP_ERROR(dir_name, "stat");
continue;
}
if (S_ISDIR(s.st_mode))
continue;
mtime = MAX(s.st_mtime, s.st_atime);
if (now - mtime > expire_time) {
- if (unlink(d->d_name) < 0)
- FILE_OP_ERROR(d->d_name, "unlink");
+ if (g_unlink(dir_name) < 0)
+ FILE_OP_ERROR(dir_name, "unlink");
}
}
}
- closedir(dp);
+ g_dir_close(dp);
- if (chdir(prev_dir) < 0) {
+ if (g_chdir(prev_dir) < 0) {
FILE_OP_ERROR(prev_dir, "chdir");
g_free(prev_dir);
return -1;
gint remove_dir_recursive(const gchar *dir)
{
struct stat s;
- DIR *dp;
- struct dirent *d;
+ GDir *dp;
+ const gchar *dir_name;
gchar *prev_dir;
- /* g_print("dir = %s\n", dir); */
-
- if (stat(dir, &s) < 0) {
+ if (g_stat(dir, &s) < 0) {
FILE_OP_ERROR(dir, "stat");
if (ENOENT == errno) return 0;
return -1;
}
if (!S_ISDIR(s.st_mode)) {
- if (unlink(dir) < 0) {
+ if (g_unlink(dir) < 0) {
FILE_OP_ERROR(dir, "unlink");
return -1;
}
if (!path_cmp(prev_dir, dir)) {
g_free(prev_dir);
- if (chdir("..") < 0) {
+ if (g_chdir("..") < 0) {
FILE_OP_ERROR(dir, "chdir");
return -1;
}
prev_dir = g_get_current_dir();
}
- if (chdir(dir) < 0) {
+ if (g_chdir(dir) < 0) {
FILE_OP_ERROR(dir, "chdir");
g_free(prev_dir);
return -1;
}
- if ((dp = opendir(".")) == NULL) {
- FILE_OP_ERROR(dir, "opendir");
- chdir(prev_dir);
+ if ((dp = g_dir_open(".", 0, NULL)) == NULL) {
+ g_warning("failed to open directory: %s\n", dir);
+ g_chdir(prev_dir);
g_free(prev_dir);
return -1;
}
/* remove all files in the directory */
- while ((d = readdir(dp)) != NULL) {
- if (!strcmp(d->d_name, ".") ||
- !strcmp(d->d_name, ".."))
- continue;
+ while ((dir_name = g_dir_read_name(dp)) != NULL) {
+ /* g_print("removing %s\n", dir_name); */
- /* g_print("removing %s\n", d->d_name); */
-
- if (dirent_is_directory(d)) {
- if (remove_dir_recursive(d->d_name) < 0) {
+ if (is_dir_exist(dir_name)) {
+ if (remove_dir_recursive(dir_name) < 0) {
g_warning("can't remove directory\n");
return -1;
}
} else {
- if (unlink(d->d_name) < 0)
- FILE_OP_ERROR(d->d_name, "unlink");
+ if (g_unlink(dir_name) < 0)
+ FILE_OP_ERROR(dir_name, "unlink");
}
}
- closedir(dp);
+ g_dir_close(dp);
- if (chdir(prev_dir) < 0) {
+ if (g_chdir(prev_dir) < 0) {
FILE_OP_ERROR(prev_dir, "chdir");
g_free(prev_dir);
return -1;
g_free(prev_dir);
- if (rmdir(dir) < 0) {
+ if (g_rmdir(dir) < 0) {
FILE_OP_ERROR(dir, "rmdir");
return -1;
}
return 0;
}
+gint rename_force(const gchar *oldpath, const gchar *newpath)
+{
+#ifndef G_OS_UNIX
+ if (!is_file_entry_exist(oldpath)) {
+ errno = ENOENT;
+ return -1;
+ }
+ if (is_file_exist(newpath)) {
+ if (g_unlink(newpath) < 0)
+ FILE_OP_ERROR(newpath, "unlink");
+ }
+#endif
+ return g_rename(oldpath, newpath);
+}
+
#if 0
/* this seems to be slower than the stdio version... */
gint copy_file(const gchar *src, const gchar *dest)
if (is_file_exist(dest)) {
dest_bak = g_strconcat(dest, ".bak", NULL);
- if (rename(dest, dest_bak) < 0) {
+ if (rename_force(dest, dest_bak) < 0) {
FILE_OP_ERROR(dest, "rename");
close(src_fd);
g_free(dest_bak);
g_warning("writing to %s failed.\n", dest);
close(dest_fd);
close(src_fd);
- unlink(dest);
+ g_unlink(dest);
if (dest_bak) {
if (rename(dest_bak, dest) < 0)
FILE_OP_ERROR(dest_bak, "rename");
if (n_read < 0 || get_file_size(src) != get_file_size(dest)) {
g_warning("File copy from %s to %s failed.\n", src, dest);
- unlink(dest);
+ g_unlink(dest);
if (dest_bak) {
if (rename(dest_bak, dest) < 0)
FILE_OP_ERROR(dest_bak, "rename");
gboolean err = FALSE;
- if ((src_fp = fopen(src, "rb")) == NULL) {
+ if ((src_fp = g_fopen(src, "rb")) == NULL) {
FILE_OP_ERROR(src, "fopen");
return -1;
}
- if ((dest_fp = fopen(dest, "ab")) == NULL) {
+ if ((dest_fp = g_fopen(dest, "ab")) == NULL) {
FILE_OP_ERROR(dest, "fopen");
fclose(src_fp);
return -1;
while ((n_read = fread(buf, sizeof(gchar), sizeof(buf), src_fp)) > 0) {
if (n_read < sizeof(buf) && ferror(src_fp))
break;
- if (fwrite(buf, n_read, 1, dest_fp) < 1) {
+ if (fwrite(buf, 1, n_read, dest_fp) < n_read) {
g_warning("writing to %s failed.\n", dest);
fclose(dest_fp);
fclose(src_fp);
- unlink(dest);
+ g_unlink(dest);
return -1;
}
}
}
if (err) {
- unlink(dest);
+ g_unlink(dest);
return -1;
}
gchar *dest_bak = NULL;
gboolean err = FALSE;
- if ((src_fp = fopen(src, "rb")) == NULL) {
+ if ((src_fp = g_fopen(src, "rb")) == NULL) {
FILE_OP_ERROR(src, "fopen");
return -1;
}
if (is_file_exist(dest)) {
dest_bak = g_strconcat(dest, ".bak", NULL);
- if (rename(dest, dest_bak) < 0) {
+ if (rename_force(dest, dest_bak) < 0) {
FILE_OP_ERROR(dest, "rename");
fclose(src_fp);
g_free(dest_bak);
}
}
- if ((dest_fp = fopen(dest, "wb")) == NULL) {
+ if ((dest_fp = g_fopen(dest, "wb")) == NULL) {
FILE_OP_ERROR(dest, "fopen");
fclose(src_fp);
if (dest_bak) {
- if (rename(dest_bak, dest) < 0)
+ if (rename_force(dest_bak, dest) < 0)
FILE_OP_ERROR(dest_bak, "rename");
g_free(dest_bak);
}
while ((n_read = fread(buf, sizeof(gchar), sizeof(buf), src_fp)) > 0) {
if (n_read < sizeof(buf) && ferror(src_fp))
break;
- if (fwrite(buf, n_read, 1, dest_fp) < 1) {
+ if (fwrite(buf, 1, n_read, dest_fp) < n_read) {
g_warning("writing to %s failed.\n", dest);
fclose(dest_fp);
fclose(src_fp);
- unlink(dest);
+ g_unlink(dest);
if (dest_bak) {
- if (rename(dest_bak, dest) < 0)
+ if (rename_force(dest_bak, dest) < 0)
FILE_OP_ERROR(dest_bak, "rename");
g_free(dest_bak);
}
}
if (err) {
- unlink(dest);
+ g_unlink(dest);
if (dest_bak) {
- if (rename(dest_bak, dest) < 0)
+ if (rename_force(dest_bak, dest) < 0)
FILE_OP_ERROR(dest_bak, "rename");
g_free(dest_bak);
}
}
if (keep_backup == FALSE && dest_bak)
- unlink(dest_bak);
+ g_unlink(dest_bak);
g_free(dest_bak);
return -1;
}
- if (rename(src, dest) == 0) return 0;
+ if (rename_force(src, dest) == 0) return 0;
if (EXDEV != errno) {
FILE_OP_ERROR(src, "rename");
if (copy_file(src, dest, FALSE) < 0) return -1;
- unlink(src);
+ g_unlink(src);
return 0;
}
-gint copy_file_part(FILE *fp, off_t offset, size_t length, const gchar *dest)
+gint copy_file_part_to_fp(FILE *fp, off_t offset, size_t length, FILE *dest_fp)
{
- FILE *dest_fp;
gint n_read;
gint bytes_left, to_read;
gchar buf[BUFSIZ];
- gboolean err = FALSE;
if (fseek(fp, offset, SEEK_SET) < 0) {
perror("fseek");
return -1;
}
- if ((dest_fp = fopen(dest, "wb")) == NULL) {
- FILE_OP_ERROR(dest, "fopen");
- return -1;
- }
-
- if (change_file_mode_rw(dest_fp, dest) < 0) {
- FILE_OP_ERROR(dest, "chmod");
- g_warning("can't change file mode\n");
- }
-
bytes_left = length;
to_read = MIN(bytes_left, sizeof(buf));
while ((n_read = fread(buf, sizeof(gchar), to_read, fp)) > 0) {
if (n_read < to_read && ferror(fp))
break;
- if (fwrite(buf, n_read, 1, dest_fp) < 1) {
- g_warning("writing to %s failed.\n", dest);
- fclose(dest_fp);
- unlink(dest);
+ if (fwrite(buf, 1, n_read, dest_fp) < n_read) {
return -1;
}
bytes_left -= n_read;
if (ferror(fp)) {
perror("fread");
- err = TRUE;
+ return -1;
}
- if (fclose(dest_fp) == EOF) {
+
+ return 0;
+}
+
+gint copy_file_part(FILE *fp, off_t offset, size_t length, const gchar *dest)
+{
+ FILE *dest_fp;
+ gboolean err = FALSE;
+
+ if ((dest_fp = g_fopen(dest, "wb")) == NULL) {
+ FILE_OP_ERROR(dest, "fopen");
+ return -1;
+ }
+
+ if (change_file_mode_rw(dest_fp, dest) < 0) {
+ FILE_OP_ERROR(dest, "chmod");
+ g_warning("can't change file mode\n");
+ }
+
+ if (copy_file_part_to_fp(fp, offset, length, dest_fp) < 0)
+ err = TRUE;
+
+ if (!err && fclose(dest_fp) == EOF) {
FILE_OP_ERROR(dest, "fclose");
err = TRUE;
}
if (err) {
- unlink(dest);
+ g_warning("writing to %s failed.\n", dest);
+ g_unlink(dest);
return -1;
}
gboolean err = FALSE;
gboolean last_linebreak = FALSE;
- if ((src_fp = fopen(src, "rb")) == NULL) {
+ if ((src_fp = g_fopen(src, "rb")) == NULL) {
FILE_OP_ERROR(src, "fopen");
return -1;
}
- if ((dest_fp = fopen(dest, "wb")) == NULL) {
+ if ((dest_fp = g_fopen(dest, "wb")) == NULL) {
FILE_OP_ERROR(dest, "fopen");
fclose(src_fp);
return -1;
r = fputs(buf, dest_fp);
} else {
if (len > 1) {
- r = fwrite(buf, len - 1, 1, dest_fp);
- if (r != 1)
+ r = fwrite(buf, 1, len - 1, dest_fp);
+ if (r != (len -1))
r = EOF;
}
if (r != EOF)
g_warning("writing to %s failed.\n", dest);
fclose(dest_fp);
fclose(src_fp);
- unlink(dest);
+ g_unlink(dest);
return -1;
}
}
}
if (err) {
- unlink(dest);
+ g_unlink(dest);
return -1;
}
if (move_file(tmp_file, file, TRUE) < 0) {
g_warning("can't replace %s .\n", file);
- unlink(tmp_file);
+ g_unlink(tmp_file);
g_free(tmp_file);
return -1;
}
gchar buf[BUFFSIZE];
gboolean err = FALSE;
- if ((src_fp = fopen(src, "rb")) == NULL) {
+ if ((src_fp = g_fopen(src, "rb")) == NULL) {
FILE_OP_ERROR(src, "fopen");
return -1;
}
- if ((dest_fp = fopen(dest, "wb")) == NULL) {
+ if ((dest_fp = g_fopen(dest, "wb")) == NULL) {
FILE_OP_ERROR(dest, "fopen");
fclose(src_fp);
return -1;
g_warning("writing to %s failed.\n", dest);
fclose(dest_fp);
fclose(src_fp);
- unlink(dest);
+ g_unlink(dest);
return -1;
}
}
}
if (err) {
- unlink(dest);
+ g_unlink(dest);
return -1;
}
if (move_file(tmp_file, file, TRUE) < 0) {
g_warning("can't replace %s .\n", file);
- unlink(tmp_file);
+ g_unlink(tmp_file);
g_free(tmp_file);
return -1;
}
/* output header part */
while (fgets(buf, sizeof(buf), fp) != NULL) {
strretchomp(buf);
- if (!g_strncasecmp(buf, "Bcc:", 4)) {
+ if (!g_ascii_strncasecmp(buf, "Bcc:", 4)) {
gint next;
for (;;) {
* uniqueness if everything is either quoted-printable or base64
* encoded (note that conversion is allowed), but because MIME bodies
* may be nested, it may happen that the same boundary has already
- * been used. We avoid scanning the message for conflicts and hope the
- * best.
+ * been used.
*
* boundary := 0*69<bchars> bcharsnospace
* bchars := bcharsnospace / " "
static gchar tbl[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
"abcdefghijklmnopqrstuvwxyz"
"1234567890+_./=";
- gchar buf_uniq[17];
- gchar buf_date[64];
+ gchar buf_uniq[24];
gint i;
- gint pid;
-
- pid = getpid();
- /* We make the boundary depend on the pid, so that all running
- * processes generate different values even when they have been
- * started within the same second and srandom(time(NULL)) has been
- * used. I can't see whether this is really an advantage but it
- * doesn't do any harm.
- */
for (i = 0; i < sizeof(buf_uniq) - 1; i++)
- buf_uniq[i] = tbl[(random() ^ pid) % (sizeof(tbl) - 1)];
+ buf_uniq[i] = tbl[g_random_int_range(0, sizeof(tbl) - 1)];
buf_uniq[i] = '\0';
- get_rfc822_date(buf_date, sizeof(buf_date));
- subst_char(buf_date, ' ', '_');
- subst_char(buf_date, ',', '_');
- subst_char(buf_date, ':', '_');
-
- return g_strdup_printf("%s=_%s_%s", prefix ? prefix : "Multipart",
- buf_date, buf_uniq);
+ return g_strdup_printf("%s_%s", prefix ? prefix : "MP",
+ buf_uniq);
}
gint change_file_mode_rw(FILE *fp, const gchar *file)
#if HAVE_FCHMOD
return fchmod(fileno(fp), S_IRUSR|S_IWUSR);
#else
- return chmod(file, S_IRUSR|S_IWUSR);
+ return g_chmod(file, S_IRUSR|S_IWUSR);
#endif
}
tmpdir = get_tmp_dir();
tmplen = strlen(tmpdir);
progname = g_get_prgname();
+ if (progname == NULL)
+ progname = "sylpheed-claws";
proglen = strlen(progname);
Xalloca(fname, tmplen + 1 + proglen + sizeof(suffix),
return tmpfile());
if (fd < 0)
return tmpfile();
- unlink(fname);
+ g_unlink(fname);
fp = fdopen(fd, "w+b");
if (!fp)
len = strlen(str);
if (len == 0) return fp;
- if (fwrite(str, len, 1, fp) != 1) {
+ if (fwrite(str, 1, len, fp) != len) {
FILE_OP_ERROR("str_open_as_stream", "fwrite");
fclose(fp);
return NULL;
g_return_val_if_fail(str != NULL, -1);
g_return_val_if_fail(file != NULL, -1);
- if ((fp = fopen(file, "wb")) == NULL) {
+ if ((fp = g_fopen(file, "wb")) == NULL) {
FILE_OP_ERROR(file, "fopen");
return -1;
}
return 0;
}
- if (fwrite(str, len, 1, fp) != 1) {
+ if (fwrite(str, 1, len, fp) != len) {
FILE_OP_ERROR(file, "fwrite");
fclose(fp);
- unlink(file);
+ g_unlink(file);
return -1;
}
if (fclose(fp) == EOF) {
FILE_OP_ERROR(file, "fclose");
- unlink(file);
+ g_unlink(file);
return -1;
}
g_return_val_if_fail(file != NULL, NULL);
- if ((fp = fopen(file, "rb")) == NULL) {
+ if ((fp = g_fopen(file, "rb")) == NULL) {
FILE_OP_ERROR(file, "fopen");
return NULL;
}
gchar *file_read_stream_to_str(FILE *fp)
{
GByteArray *array;
- gchar buf[BUFSIZ];
+ guchar buf[BUFSIZ];
gint n_read;
gchar *str;
str = (gchar *)array->data;
g_byte_array_free(array, FALSE);
+ if (!g_utf8_validate(str, -1, NULL)) {
+ const gchar *src_codeset, *dest_codeset;
+ gchar *tmp = NULL;
+ src_codeset = conv_get_locale_charset_str();
+ dest_codeset = CS_UTF_8;
+ tmp = conv_codeset_strdup(str, src_codeset, dest_codeset);
+ g_free(str);
+ str = tmp;
+ }
+
return str;
}
gint execute_async(gchar *const argv[])
{
- pid_t pid;
+ g_return_val_if_fail(argv != NULL && argv[0] != NULL, -1);
- if ((pid = fork()) < 0) {
- perror("fork");
+ if (g_spawn_async(NULL, (gchar **)argv, NULL, G_SPAWN_SEARCH_PATH,
+ NULL, NULL, NULL, FALSE) == FALSE) {
+ g_warning("Can't execute command: %s\n", argv[0]);
return -1;
}
- if (pid == 0) { /* child process */
- pid_t gch_pid;
-
- if ((gch_pid = fork()) < 0) {
- perror("fork");
- _exit(1);
- }
-
- if (gch_pid == 0) { /* grandchild process */
- execvp(argv[0], argv);
-
- perror("execvp");
- _exit(1);
- }
-
- _exit(0);
- }
-
- waitpid(pid, NULL, 0);
-
return 0;
}
gint execute_sync(gchar *const argv[])
{
- pid_t pid;
+ gint status;
- if ((pid = fork()) < 0) {
- perror("fork");
- return -1;
- }
+ g_return_val_if_fail(argv != NULL && argv[0] != NULL, -1);
- if (pid == 0) { /* child process */
- execvp(argv[0], argv);
-
- perror("execvp");
- _exit(1);
+ if (g_spawn_sync(NULL, (gchar **)argv, NULL, G_SPAWN_SEARCH_PATH,
+ NULL, NULL, NULL, NULL, &status, NULL) == FALSE) {
+ g_warning("Can't execute command: %s\n", argv[0]);
+ return -1;
}
- waitpid(pid, NULL, 0);
-
- return 0;
+#ifdef G_OS_UNIX
+ if (WIFEXITED(status))
+ return WEXITSTATUS(status);
+ else
+ return -1;
+#else
+ return status;
+#endif
}
gint execute_command_line(const gchar *cmdline, gboolean async)
gchar **argv;
gint ret;
+ debug_print("execute_command_line(): executing: %s\n", cmdline);
+
argv = strsplit_with_quote(cmdline, " ", 0);
if (async)
ret = execute_async(argv);
else
ret = execute_sync(argv);
+
g_strfreev(argv);
return ret;
gchar *get_command_output(const gchar *cmdline)
{
- gchar buf[BUFFSIZE];
- FILE *fp;
- GString *str;
- gchar *ret;
+ gchar *child_stdout;
+ gint status;
g_return_val_if_fail(cmdline != NULL, NULL);
- if ((fp = popen(cmdline, "r")) == NULL) {
- FILE_OP_ERROR(cmdline, "popen");
+ debug_print("get_command_output(): executing: %s\n", cmdline);
+
+ if (g_spawn_command_line_sync(cmdline, &child_stdout, NULL, &status,
+ NULL) == FALSE) {
+ g_warning("Can't execute command: %s\n", cmdline);
return NULL;
}
- str = g_string_new("");
-
- while (fgets(buf, sizeof(buf), fp) != NULL)
- g_string_append(str, buf);
-
- pclose(fp);
-
- ret = str->str;
- g_string_free(str, FALSE);
-
- return ret;
+ return child_stdout;
}
static gint is_unchanged_uri_char(char c)
g_snprintf(buf, sizeof(buf), cmdline, encoded_uri);
else {
if (cmdline)
- g_warning("Open URI command line is invalid: `%s'",
+ g_warning("Open URI command line is invalid "
+ "(there must be only one '%%s'): %s",
cmdline);
g_snprintf(buf, sizeof(buf), DEFAULT_BROWSER_CMD, encoded_uri);
}
-
+
execute_command_line(buf, TRUE);
return 0;
remoteoffset = 0;
} else if (strlen(zone3) == 3) {
for (p = ustzstr; *p != '\0'; p += 3) {
- if (!strncasecmp(p, zone3, 3)) {
+ if (!g_ascii_strncasecmp(p, zone3, 3)) {
iustz = ((gint)(p - ustzstr) / 3 + 1) / 2 - 8;
remoteoffset = iustz * 3600;
break;
day, dd, mon, yyyy, hh, mm, ss, tzoffset(&t));
}
+/* just a wrapper to suppress the warning of gcc about %c */
+size_t my_strftime(gchar *s, size_t max, const gchar *format,
+ const struct tm *tm)
+{
+ return strftime(s, max, format, tm);
+}
+
void debug_set_mode(gboolean mode)
{
debug_mode = mode;
g_vsnprintf(buf, sizeof(buf), format, args);
va_end(args);
- fputs(buf, stdout);
+ g_print("%s", buf);
}
void * subject_table_lookup(GHashTable *subject_table, gchar * subject)
"Fw\\:", /* "Fw:" Forward */
"Enc\\:", /* "Enc:" Forward (Brazilian Outlook) */
"Odp\\:", /* "Odp:" Re (Polish Outlook) */
+ "Rif\\:" /* "Rif:" (Italian Outlook) */
/* add more */
};
const int PREFIXES = sizeof prefixes / sizeof prefixes[0];
for (n = 0; n < PREFIXES; n++)
/* Terminate each prefix regexpression by a
* "\ ?" (zero or ONE space), and OR them */
- g_string_sprintfa(s, "(%s\\ ?)%s",
+ g_string_append_printf(s, "(%s\\ ?)%s",
prefixes[n],
n < PREFIXES - 1 ?
"|" : "");
return 0;
}
-/* allow Mutt-like patterns in quick search */
-gchar *expand_search_string(const gchar *search_string)
-{
- int i = 0;
- gchar term_char, save_char;
- gchar *cmd_start, *cmd_end;
- GString *matcherstr;
- gchar *returnstr = NULL;
- gchar *copy_str;
- gboolean casesens, dontmatch;
- /* list of allowed pattern abbreviations */
- struct {
- gchar *abbreviated; /* abbreviation */
- gchar *command; /* actual matcher command */
- gint numparams; /* number of params for cmd */
- gboolean qualifier; /* do we append regexpcase */
- gboolean quotes; /* do we need quotes */
- }
- cmds[] = {
- { "a", "all", 0, FALSE, FALSE },
- { "ag", "age_greater", 1, FALSE, FALSE },
- { "al", "age_lower", 1, FALSE, FALSE },
- { "b", "body_part", 1, TRUE, TRUE },
- { "B", "message", 1, TRUE, TRUE },
- { "c", "cc", 1, TRUE, TRUE },
- { "C", "to_or_cc", 1, TRUE, TRUE },
- { "D", "deleted", 0, FALSE, FALSE },
- { "e", "header \"Sender\"", 1, TRUE, TRUE },
- { "E", "execute", 1, FALSE, TRUE },
- { "f", "from", 1, TRUE, TRUE },
- { "F", "forwarded", 0, FALSE, FALSE },
- { "h", "headers_part", 1, TRUE, TRUE },
- { "i", "header \"Message-Id\"", 1, TRUE, TRUE },
- { "I", "inreplyto", 1, TRUE, TRUE },
- { "L", "locked", 0, FALSE, FALSE },
- { "n", "newsgroups", 1, TRUE, TRUE },
- { "N", "new", 0, FALSE, FALSE },
- { "O", "~new", 0, FALSE, FALSE },
- { "r", "replied", 0, FALSE, FALSE },
- { "R", "~unread", 0, FALSE, FALSE },
- { "s", "subject", 1, TRUE, TRUE },
- { "se", "score_equal", 1, FALSE, FALSE },
- { "sg", "score_greater", 1, FALSE, FALSE },
- { "sl", "score_lower", 1, FALSE, FALSE },
- { "Se", "size_equal", 1, FALSE, FALSE },
- { "Sg", "size_greater", 1, FALSE, FALSE },
- { "Ss", "size_smaller", 1, FALSE, FALSE },
- { "t", "to", 1, TRUE, TRUE },
- { "T", "marked", 0, FALSE, FALSE },
- { "U", "unread", 0, FALSE, FALSE },
- { "x", "header \"References\"", 1, TRUE, TRUE },
- { "X", "test", 1, FALSE, FALSE },
- { "y", "header \"X-Label\"", 1, TRUE, TRUE },
- { "&", "&", 0, FALSE, FALSE },
- { "|", "|", 0, FALSE, FALSE },
- { NULL, NULL, 0, FALSE, FALSE }
- };
-
- if (search_string == NULL)
- return NULL;
-
- copy_str = g_strdup(search_string);
-
- /* if it's a full command don't process it so users
- can still do something like from regexpcase "foo" */
- for (i = 0; cmds[i].command; i++) {
- const gchar *tmp_search_string = search_string;
- cmd_start = cmds[i].command;
- /* allow logical NOT */
- if (*tmp_search_string == '~')
- tmp_search_string++;
- if (!strncmp(tmp_search_string, cmd_start, strlen(cmd_start)))
- break;
- }
- if (cmds[i].command)
- return copy_str;
-
- matcherstr = g_string_sized_new(16);
- cmd_start = cmd_end = copy_str;
- while (cmd_end && *cmd_end) {
- /* skip all white spaces */
- while (*cmd_end && isspace(*cmd_end))
- cmd_end++;
-
- /* extract a command */
- while (*cmd_end && !isspace(*cmd_end))
- cmd_end++;
-
- /* save character */
- save_char = *cmd_end;
- *cmd_end = '\0';
-
- dontmatch = FALSE;
- casesens = FALSE;
-
- /* ~ and ! mean logical NOT */
- if (*cmd_start == '~' || *cmd_start == '!')
- {
- dontmatch = TRUE;
- cmd_start++;
- }
- /* % means case sensitive match */
- if (*cmd_start == '%')
- {
- casesens = TRUE;
- cmd_start++;
- }
-
- /* find matching abbreviation */
- for (i = 0; cmds[i].command; i++) {
- if (!strcmp(cmd_start, cmds[i].abbreviated)) {
- /* restore character */
- *cmd_end = save_char;
-
- /* copy command */
- if (matcherstr->len > 0) {
- g_string_append(matcherstr, " ");
- }
- if (dontmatch)
- g_string_append(matcherstr, "~");
- g_string_append(matcherstr, cmds[i].command);
- g_string_append(matcherstr, " ");
-
- /* stop if no params required */
- if (cmds[i].numparams == 0)
- break;
-
- /* extract a parameter, allow quotes */
- cmd_end++;
- cmd_start = cmd_end;
- if (*cmd_start == '"') {
- term_char = '"';
- cmd_end++;
- }
- else
- term_char = ' ';
-
- /* extract actual parameter */
- while ((*cmd_end) && (*cmd_end != term_char))
- cmd_end++;
-
- if (*cmd_end && (*cmd_end != term_char))
- break;
-
- if (*cmd_end == '"')
- cmd_end++;
-
- save_char = *cmd_end;
- *cmd_end = '\0';
-
- if (cmds[i].qualifier) {
- if (casesens)
- g_string_append(matcherstr, "regexp ");
- else
- g_string_append(matcherstr, "regexpcase ");
- }
-
- /* do we need to add quotes ? */
- if (cmds[i].quotes && term_char != '"')
- g_string_append(matcherstr, "\"");
-
- /* copy actual parameter */
- g_string_append(matcherstr, cmd_start);
-
- /* do we need to add quotes ? */
- if (cmds[i].quotes && term_char != '"')
- g_string_append(matcherstr, "\"");
-
- /* restore original character */
- *cmd_end = save_char;
-
- break;
- }
- }
-
- if (*cmd_end) {
- cmd_end++;
- cmd_start = cmd_end;
- }
- }
-
- g_free(copy_str);
- returnstr = matcherstr->str;
- g_string_free(matcherstr, FALSE);
- return returnstr;
-}
-
guint g_stricase_hash(gconstpointer gptr)
{
guint hash_result = 0;
const char *str;
for (str = gptr; str && *str; str++) {
- if (isupper(*str)) hash_result += (*str + ' ');
+ if (isupper((guchar)*str)) hash_result += (*str + ' ');
else hash_result += *str;
}
const char *str1 = gptr1;
const char *str2 = gptr2;
- return !strcasecmp(str1, str2);
+ return !g_utf8_collate(str1, str2);
}
gint g_int_compare(gconstpointer a, gconstpointer b)
return GPOINTER_TO_INT(a) - GPOINTER_TO_INT(b);
}
-gchar *generate_msgid(const gchar *address, gchar *buf, gint len)
+gchar *generate_msgid(gchar *buf, gint len)
{
- /* steal from compose.c::compose_generate_msgid() */
struct tm *lt;
time_t t;
gchar *addr;
t = time(NULL);
lt = localtime(&t);
- if (address && *address) {
- if (strchr(address, '@'))
- addr = g_strdup(address);
- else
- addr = g_strconcat(address, "@", get_domain_name(), NULL);
- } else
- addr = g_strconcat(g_get_user_name(), "@", get_domain_name(),
- NULL);
+ addr = g_strconcat("@", get_domain_name(), NULL);
- g_snprintf(buf, len, "%04d%02d%02d%02d%02d%02d.%08x.%s",
+ g_snprintf(buf, len, "%04d%02d%02d%02d%02d%02d.%08x%s",
lt->tm_year + 1900, lt->tm_mon + 1,
lt->tm_mday, lt->tm_hour,
lt->tm_min, lt->tm_sec,
- (guint)random(), addr);
+ (guint) rand(), addr);
g_free(addr);
return buf;
}
-
/*
quote_cmd_argument()
for(p = path ; * p != '\0' ; p ++) {
- if (isalnum(* p) || (* p == '/')) {
+ if (isalnum((guchar)*p) || (* p == '/')) {
if (remaining > 0) {
* result_p = * p;
result_p ++;
return root;
}
+
+#define HEX_TO_INT(val, hex) \
+{ \
+ gchar c = hex; \
+ \
+ if ('0' <= c && c <= '9') { \
+ val = c - '0'; \
+ } else if ('a' <= c && c <= 'f') { \
+ val = c - 'a' + 10; \
+ } else if ('A' <= c && c <= 'F') { \
+ val = c - 'A' + 10; \
+ } else { \
+ val = -1; \
+ } \
+}
+
+gboolean get_hex_value(guchar *out, gchar c1, gchar c2)
+{
+ gint hi, lo;
+
+ HEX_TO_INT(hi, c1);
+ HEX_TO_INT(lo, c2);
+
+ if (hi == -1 || lo == -1)
+ return FALSE;
+
+ *out = (hi << 4) + lo;
+ return TRUE;
+}
+
+#define INT_TO_HEX(hex, val) \
+{ \
+ if ((val) < 10) \
+ hex = '0' + (val); \
+ else \
+ hex = 'A' + (val) - 10; \
+}
+
+void get_hex_str(gchar *out, guchar ch)
+{
+ gchar hex;
+
+ INT_TO_HEX(hex, ch >> 4);
+ *out++ = hex;
+ INT_TO_HEX(hex, ch & 0x0f);
+ *out++ = hex;
+}
+
+#undef REF_DEBUG
+#ifndef REF_DEBUG
+#define G_PRINT_REF 1 == 1 ? (void) 0 : (void)
+#else
+#define G_PRINT_REF g_print
+#endif
+
+/*!
+ *\brief Register ref counted pointer. It is based on GBoxed, so should
+ * work with anything that uses the GType system. The semantics
+ * are similar to a C++ auto pointer, with the exception that
+ * C doesn't have automatic closure (calling destructors) when
+ * exiting a block scope.
+ * Use the \ref G_TYPE_AUTO_POINTER macro instead of calling this
+ * function directly.
+ *
+ *\return GType A GType type.
+ */
+GType g_auto_pointer_register(void)
+{
+ static GType auto_pointer_type;
+ if (!auto_pointer_type)
+ auto_pointer_type =
+ g_boxed_type_register_static
+ ("G_TYPE_AUTO_POINTER",
+ (GBoxedCopyFunc) g_auto_pointer_copy,
+ (GBoxedFreeFunc) g_auto_pointer_free);
+ return auto_pointer_type;
+}
+
+/*!
+ *\brief Structure with g_new() allocated pointer guarded by the
+ * auto pointer
+ */
+typedef struct AutoPointerRef {
+ void (*free) (gpointer);
+ gpointer pointer;
+ glong cnt;
+} AutoPointerRef;
+
+/*!
+ *\brief The auto pointer opaque structure that references the
+ * pointer guard block.
+ */
+typedef struct AutoPointer {
+ AutoPointerRef *ref;
+ gpointer ptr; /*!< access to protected pointer */
+} AutoPointer;
+
+/*!
+ *\brief Creates an auto pointer for a g_new()ed pointer. Example:
+ *
+ *\code
+ *
+ * ... tell gtk_list_store it should use a G_TYPE_AUTO_POINTER
+ * ... when assigning, copying and freeing storage elements
+ *
+ * gtk_list_store_new(N_S_COLUMNS,
+ * G_TYPE_AUTO_POINTER,
+ * -1);
+ *
+ *
+ * Template *precious_data = g_new0(Template, 1);
+ * g_pointer protect = g_auto_pointer_new(precious_data);
+ *
+ * gtk_list_store_set(container, &iter,
+ * S_DATA, protect,
+ * -1);
+ *
+ * ... the gtk_list_store has copied the pointer and
+ * ... incremented its reference count, we should free
+ * ... the auto pointer (in C++ a destructor would do
+ * ... this for us when leaving block scope)
+ *
+ * g_auto_pointer_free(protect);
+ *
+ * ... gtk_list_store_set() now manages the data. When
+ * ... *explicitly* requesting a pointer from the list
+ * ... store, don't forget you get a copy that should be
+ * ... freed with g_auto_pointer_free() eventually.
+ *
+ *\endcode
+ *
+ *\param pointer Pointer to be guarded.
+ *
+ *\return GAuto * Pointer that should be used in containers with
+ * GType support.
+ */
+GAuto *g_auto_pointer_new(gpointer p)
+{
+ AutoPointerRef *ref;
+ AutoPointer *ptr;
+
+ if (p == NULL)
+ return NULL;
+
+ ref = g_new0(AutoPointerRef, 1);
+ ptr = g_new0(AutoPointer, 1);
+
+ ref->pointer = p;
+ ref->free = g_free;
+ ref->cnt = 1;
+
+ ptr->ref = ref;
+ ptr->ptr = p;
+
+#ifdef REF_DEBUG
+ G_PRINT_REF ("XXXX ALLOC(%lx)\n", p);
+#endif
+ return ptr;
+}
+
+/*!
+ *\brief Allocate an autopointer using the passed \a free function to
+ * free the guarded pointer
+ */
+GAuto *g_auto_pointer_new_with_free(gpointer p, GFreeFunc free_)
+{
+ AutoPointer *aptr;
+
+ if (p == NULL)
+ return NULL;
+
+ aptr = g_auto_pointer_new(p);
+ aptr->ref->free = free_;
+ return aptr;
+}
+
+gpointer g_auto_pointer_get_ptr(GAuto *auto_ptr)
+{
+ if (auto_ptr == NULL)
+ return NULL;
+ return ((AutoPointer *) auto_ptr)->ptr;
+}
+
+/*!
+ *\brief Copies an auto pointer by. It's mostly not necessary
+ * to call this function directly, unless you copy/assign
+ * the guarded pointer.
+ *
+ *\param auto_ptr Auto pointer returned by previous call to
+ * g_auto_pointer_new_XXX()
+ *
+ *\return gpointer An auto pointer
+ */
+GAuto *g_auto_pointer_copy(GAuto *auto_ptr)
+{
+ AutoPointer *ptr;
+ AutoPointerRef *ref;
+ AutoPointer *newp;
+
+ if (auto_ptr == NULL)
+ return NULL;
+
+ ptr = auto_ptr;
+ ref = ptr->ref;
+ newp = g_new0(AutoPointer, 1);
+
+ newp->ref = ref;
+ newp->ptr = ref->pointer;
+ ++(ref->cnt);
+
+#ifdef REF_DEBUG
+ G_PRINT_REF ("XXXX COPY(%lx) -- REF (%d)\n", ref->pointer, ref->cnt);
+#endif
+ return newp;
+}
+
+/*!
+ *\brief Free an auto pointer
+ */
+void g_auto_pointer_free(GAuto *auto_ptr)
+{
+ AutoPointer *ptr;
+ AutoPointerRef *ref;
+
+ if (auto_ptr == NULL)
+ return;
+
+ ptr = auto_ptr;
+ ref = ptr->ref;
+
+ if (--(ref->cnt) == 0) {
+#ifdef REF_DEBUG
+ G_PRINT_REF ("XXXX FREE(%lx) -- REF (%d)\n", ref->pointer, ref->cnt);
+#endif
+ ref->free(ref->pointer);
+ g_free(ref);
+ }
+#ifdef REF_DEBUG
+ else
+ G_PRINT_REF ("XXXX DEREF(%lx) -- REF (%d)\n", ref->pointer, ref->cnt);
+#endif
+ g_free(ptr);
+}
+
+void replace_returns(gchar *str)
+{
+ if (!str)
+ return;
+
+ while (strstr(str, "\n")) {
+ *strstr(str, "\n") = ' ';
+ }
+ while (strstr(str, "\r")) {
+ *strstr(str, "\r") = ' ';
+ }
+}
+
+/* get_uri_part() - retrieves a URI starting from scanpos.
+ Returns TRUE if succesful */
+gboolean get_uri_part(const gchar *start, const gchar *scanpos,
+ const gchar **bp, const gchar **ep)
+{
+ const gchar *ep_;
+
+ g_return_val_if_fail(start != NULL, FALSE);
+ g_return_val_if_fail(scanpos != NULL, FALSE);
+ g_return_val_if_fail(bp != NULL, FALSE);
+ g_return_val_if_fail(ep != NULL, FALSE);
+
+ *bp = scanpos;
+
+ /* find end point of URI */
+ for (ep_ = scanpos; *ep_ != '\0'; ep_++) {
+ if (!isgraph(*(const guchar *)ep_) ||
+ !IS_ASCII(*(const guchar *)ep_) ||
+ strchr("[]{}()<>\"", *ep_))
+ break;
+ }
+
+ /* no punctuation at end of string */
+
+ /* FIXME: this stripping of trailing punctuations may bite with other URIs.
+ * should pass some URI type to this function and decide on that whether
+ * to perform punctuation stripping */
+
+#define IS_REAL_PUNCT(ch) (ispunct(ch) && ((ch) != '/'))
+
+ for (; ep_ - 1 > scanpos + 1 &&
+ IS_REAL_PUNCT(*(const guchar *)(ep_ - 1));
+ ep_--)
+ ;
+
+#undef IS_REAL_PUNCT
+
+ *ep = ep_;
+
+ return TRUE;
+}
+
+gchar *make_uri_string(const gchar *bp, const gchar *ep)
+{
+ return g_strndup(bp, ep - bp);
+}
+
+/* valid mail address characters */
+#define IS_RFC822_CHAR(ch) \
+ (IS_ASCII(ch) && \
+ (ch) > 32 && \
+ (ch) != 127 && \
+ !g_ascii_isspace(ch) && \
+ !strchr("(),;<>\"", (ch)))
+
+/* alphabet and number within 7bit ASCII */
+#define IS_ASCII_ALNUM(ch) (IS_ASCII(ch) && g_ascii_isalnum(ch))
+#define IS_QUOTE(ch) ((ch) == '\'' || (ch) == '"')
+
+static GHashTable *create_domain_tab(void)
+{
+ static const gchar *toplvl_domains [] = {
+ "museum", "aero",
+ "arpa", "coop", "info", "name", "biz", "com", "edu", "gov",
+ "int", "mil", "net", "org", "ac", "ad", "ae", "af", "ag",
+ "ai", "al", "am", "an", "ao", "aq", "ar", "as", "at", "au",
+ "aw", "az", "ba", "bb", "bd", "be", "bf", "bg", "bh", "bi",
+ "bj", "bm", "bn", "bo", "br", "bs", "bt", "bv", "bw", "by",
+ "bz", "ca", "cc", "cd", "cf", "cg", "ch", "ci", "ck", "cl",
+ "cm", "cn", "co", "cr", "cu", "cv", "cx", "cy", "cz", "de",
+ "dj", "dk", "dm", "do", "dz", "ec", "ee", "eg", "eh", "er",
+ "es", "et", "fi", "fj", "fk", "fm", "fo", "fr", "ga", "gd",
+ "ge", "gf", "gg", "gh", "gi", "gl", "gm", "gn", "gp", "gq",
+ "gr", "gs", "gt", "gu", "gw", "gy", "hk", "hm", "hn", "hr",
+ "ht", "hu", "id", "ie", "il", "im", "in", "io", "iq", "ir",
+ "is", "it", "je", "jm", "jo", "jp", "ke", "kg", "kh", "ki",
+ "km", "kn", "kp", "kr", "kw", "ky", "kz", "la", "lb", "lc",
+ "li", "lk", "lr", "ls", "lt", "lu", "lv", "ly", "ma", "mc",
+ "md", "mg", "mh", "mk", "ml", "mm", "mn", "mo", "mp", "mq",
+ "mr", "ms", "mt", "mu", "mv", "mw", "mx", "my", "mz", "na",
+ "nc", "ne", "nf", "ng", "ni", "nl", "no", "np", "nr", "nu",
+ "nz", "om", "pa", "pe", "pf", "pg", "ph", "pk", "pl", "pm",
+ "pn", "pr", "ps", "pt", "pw", "py", "qa", "re", "ro", "ru",
+ "rw", "sa", "sb", "sc", "sd", "se", "sg", "sh", "si", "sj",
+ "sk", "sl", "sm", "sn", "so", "sr", "st", "sv", "sy", "sz",
+ "tc", "td", "tf", "tg", "th", "tj", "tk", "tm", "tn", "to",
+ "tp", "tr", "tt", "tv", "tw", "tz", "ua", "ug", "uk", "um",
+ "us", "uy", "uz", "va", "vc", "ve", "vg", "vi", "vn", "vu",
+ "wf", "ws", "ye", "yt", "yu", "za", "zm", "zw"
+ };
+ gint n;
+ GHashTable *htab = g_hash_table_new(g_stricase_hash, g_stricase_equal);
+
+ g_return_val_if_fail(htab, NULL);
+ for (n = 0; n < sizeof toplvl_domains / sizeof toplvl_domains[0]; n++)
+ g_hash_table_insert(htab, (gpointer) toplvl_domains[n], (gpointer) toplvl_domains[n]);
+ return htab;
+}
+
+static gboolean is_toplvl_domain(GHashTable *tab, const gchar *first, const gchar *last)
+{
+ const gint MAX_LVL_DOM_NAME_LEN = 6;
+ gchar buf[MAX_LVL_DOM_NAME_LEN + 1];
+ const gchar *m = buf + MAX_LVL_DOM_NAME_LEN + 1;
+ register gchar *p;
+
+ if (last - first > MAX_LVL_DOM_NAME_LEN || first > last)
+ return FALSE;
+
+ for (p = buf; p < m && first < last; *p++ = *first++)
+ ;
+ *p = 0;
+
+ return g_hash_table_lookup(tab, buf) != NULL;
+}
+
+/* get_email_part() - retrieves an email address. Returns TRUE if succesful */
+gboolean get_email_part(const gchar *start, const gchar *scanpos,
+ const gchar **bp, const gchar **ep)
+{
+ /* more complex than the uri part because we need to scan back and forward starting from
+ * the scan position. */
+ gboolean result = FALSE;
+ const gchar *bp_ = NULL;
+ const gchar *ep_ = NULL;
+ static GHashTable *dom_tab;
+ const gchar *last_dot = NULL;
+ const gchar *prelast_dot = NULL;
+ const gchar *last_tld_char = NULL;
+
+ /* the informative part of the email address (describing the name
+ * of the email address owner) may contain quoted parts. the
+ * closure stack stores the last encountered quotes. */
+ gchar closure_stack[128];
+ gchar *ptr = closure_stack;
+
+ g_return_val_if_fail(start != NULL, FALSE);
+ g_return_val_if_fail(scanpos != NULL, FALSE);
+ g_return_val_if_fail(bp != NULL, FALSE);
+ g_return_val_if_fail(ep != NULL, FALSE);
+
+ if (!dom_tab)
+ dom_tab = create_domain_tab();
+ g_return_val_if_fail(dom_tab, FALSE);
+
+ /* scan start of address */
+ for (bp_ = scanpos - 1;
+ bp_ >= start && IS_RFC822_CHAR(*(const guchar *)bp_); bp_--)
+ ;
+
+ /* TODO: should start with an alnum? */
+ bp_++;
+ for (; bp_ < scanpos && !IS_ASCII_ALNUM(*(const guchar *)bp_); bp_++)
+ ;
+
+ if (bp_ != scanpos) {
+ /* scan end of address */
+ for (ep_ = scanpos + 1;
+ *ep_ && IS_RFC822_CHAR(*(const guchar *)ep_); ep_++)
+ if (*ep_ == '.') {
+ prelast_dot = last_dot;
+ last_dot = ep_;
+ if (*(last_dot + 1) == '.') {
+ if (prelast_dot == NULL)
+ return FALSE;
+ last_dot = prelast_dot;
+ break;
+ }
+ }
+
+ /* TODO: really should terminate with an alnum? */
+ for (; ep_ > scanpos && !IS_ASCII_ALNUM(*(const guchar *)ep_);
+ --ep_)
+ ;
+ ep_++;
+
+ if (last_dot == NULL)
+ return FALSE;
+ if (last_dot >= ep_)
+ last_dot = prelast_dot;
+ if (last_dot == NULL || (scanpos + 1 >= last_dot))
+ return FALSE;
+ last_dot++;
+
+ for (last_tld_char = last_dot; last_tld_char < ep_; last_tld_char++)
+ if (*last_tld_char == '?')
+ break;
+
+ if (is_toplvl_domain(dom_tab, last_dot, last_tld_char))
+ result = TRUE;
+
+ *ep = ep_;
+ *bp = bp_;
+ }
+
+ if (!result) return FALSE;
+
+ if (*ep_ && *(bp_ - 1) == '"' && *(ep_) == '"'
+ && *(ep_ + 1) == ' ' && *(ep_ + 2) == '<'
+ && IS_RFC822_CHAR(*(ep_ + 3))) {
+ /* this informative part with an @ in it is
+ * followed by the email address */
+ ep_ += 3;
+
+ /* go to matching '>' (or next non-rfc822 char, like \n) */
+ for (; *ep_ != '>' && *ep != '\0' && IS_RFC822_CHAR(*ep_); ep_++)
+ ;
+
+ /* include the bracket */
+ if (*ep_ == '>') ep_++;
+
+ /* include the leading quote */
+ bp_--;
+
+ *ep = ep_;
+ *bp = bp_;
+ return TRUE;
+ }
+
+ /* skip if it's between quotes "'alfons@proteus.demon.nl'" <alfons@proteus.demon.nl> */
+ if (bp_ - 1 > start && IS_QUOTE(*(bp_ - 1)) && IS_QUOTE(*ep_))
+ return FALSE;
+
+ /* see if this is <bracketed>; in this case we also scan for the informative part. */
+ if (bp_ - 1 <= start || *(bp_ - 1) != '<' || *ep_ != '>')
+ return TRUE;
+
+#define FULL_STACK() ((size_t) (ptr - closure_stack) >= sizeof closure_stack)
+#define IN_STACK() (ptr > closure_stack)
+/* has underrun check */
+#define POP_STACK() if(IN_STACK()) --ptr
+/* has overrun check */
+#define PUSH_STACK(c) if(!FULL_STACK()) *ptr++ = (c); else return TRUE
+/* has underrun check */
+#define PEEK_STACK() (IN_STACK() ? *(ptr - 1) : 0)
+
+ ep_++;
+
+ /* scan for the informative part. */
+ for (bp_ -= 2; bp_ >= start; bp_--) {
+ /* if closure on the stack keep scanning */
+ if (PEEK_STACK() == *bp_) {
+ POP_STACK();
+ continue;
+ }
+ if (*bp_ == '\'' || *bp_ == '"') {
+ PUSH_STACK(*bp_);
+ continue;
+ }
+
+ /* if nothing in the closure stack, do the special conditions
+ * the following if..else expression simply checks whether
+ * a token is acceptable. if not acceptable, the clause
+ * should terminate the loop with a 'break' */
+ if (!PEEK_STACK()) {
+ if (*bp_ == '-'
+ && (((bp_ - 1) >= start) && isalnum(*(bp_ - 1)))
+ && (((bp_ + 1) < ep_) && isalnum(*(bp_ + 1)))) {
+ /* hyphens are allowed, but only in
+ between alnums */
+ } else if (!strchr(",;:=?./+<>!&\r\n\t", *bp_)) {
+ /* but anything not being a punctiation
+ is ok */
+ } else {
+ break; /* anything else is rejected */
+ }
+ }
+ }
+
+ bp_++;
+
+#undef PEEK_STACK
+#undef PUSH_STACK
+#undef POP_STACK
+#undef IN_STACK
+#undef FULL_STACK
+
+ /* scan forward (should start with an alnum) */
+ for (; *bp_ != '<' && isspace(*bp_) && *bp_ != '"'; bp_++)
+ ;
+
+ *ep = ep_;
+ *bp = bp_;
+
+ return result;
+}
+
+#undef IS_QUOTE
+#undef IS_ASCII_ALNUM
+#undef IS_RFC822_CHAR
+
+gchar *make_email_string(const gchar *bp, const gchar *ep)
+{
+ /* returns a mailto: URI; mailto: is also used to detect the
+ * uri type later on in the button_pressed signal handler */
+ gchar *tmp;
+ gchar *result;
+
+ tmp = g_strndup(bp, ep - bp);
+ result = g_strconcat("mailto:", tmp, NULL);
+ g_free(tmp);
+
+ return result;
+}
+
+gchar *make_http_string(const gchar *bp, const gchar *ep)
+{
+ /* returns an http: URI; */
+ gchar *tmp;
+ gchar *result;
+
+ tmp = g_strndup(bp, ep - bp);
+ result = g_strconcat("http://", tmp, NULL);
+ g_free(tmp);
+
+ return result;
+}
+
+static gchar *mailcap_get_command_in_file(const gchar *path, const gchar *type)
+{
+ FILE *fp = fopen(path, "rb");
+ gchar buf[BUFFSIZE];
+ gchar *result = NULL;
+ if (!fp)
+ return NULL;
+ while (fgets(buf, sizeof (buf), fp) != NULL) {
+ gchar **parts = g_strsplit(buf, ";", -1);
+ gchar *trimmed = parts[0];
+ while (trimmed[0] == ' ')
+ trimmed++;
+ while (trimmed[strlen(trimmed)-1] == ' ')
+ trimmed[strlen(trimmed)-1] = '\0';
+
+ if (!strcmp(trimmed, type)) {
+ trimmed = parts[1];
+ while (trimmed[0] == ' ')
+ trimmed++;
+ while (trimmed[strlen(trimmed)-1] == ' ')
+ trimmed[strlen(trimmed)-1] = '\0';
+ while (trimmed[strlen(trimmed)-1] == '\n')
+ trimmed[strlen(trimmed)-1] = '\0';
+ while (trimmed[strlen(trimmed)-1] == '\r')
+ trimmed[strlen(trimmed)-1] = '\0';
+ result = g_strdup(trimmed);
+ g_strfreev(parts);
+ fclose(fp);
+ if (strstr(result, "%s") && !strstr(result, "'%s'")) {
+ gchar *start = g_strdup(result);
+ gchar *end = g_strdup(strstr(result, "%s")+2);
+ gchar *tmp;
+ *strstr(start, "%s") = '\0';
+ tmp = g_strconcat(start,"'%s'",end, NULL);
+ g_free(start);
+ g_free(end);
+ g_free(result);
+ result = tmp;
+ }
+ return result;
+ }
+ g_strfreev(parts);
+ }
+ fclose(fp);
+ return NULL;
+}
+gchar *mailcap_get_command_for_type(const gchar *type)
+{
+ gchar *result = NULL;
+ gchar *path = NULL;
+ path = g_strconcat(get_home_dir(), G_DIR_SEPARATOR_S, ".mailcap", NULL);
+ result = mailcap_get_command_in_file(path, type);
+ g_free(path);
+ if (result)
+ return result;
+ result = mailcap_get_command_in_file("/etc/mailcap", type);
+ return result;
+}
projects / claws.git / blobdiff