* please see the file GPL in the top level source directory.
*/
-/*
- * This file used to contain some more functions, namely those
- * which are now in muttlib.c. They have been removed, so we have
- * some of our "standard" functions in external programs, too.
- */
-
-#if HAVE_CONFIG_H
-# include "config.h"
-#endif
-
-#include <string.h>
-#include <ctype.h>
-#include <unistd.h>
-#include <stdlib.h>
-#include <sys/wait.h>
-#include <errno.h>
-#include <sys/stat.h>
-#include <fcntl.h>
-#include <pwd.h>
+#include <lib-lib/lib-lib.h>
#include "lib.h"
-#include "lib/mem.h"
-#include "lib/str.h"
-
-extern short Umask;
-
void mutt_nocurses_error (const char *fmt, ...)
{
- va_list ap;
-
- va_start (ap, fmt);
- vfprintf (stderr, fmt, ap);
- va_end (ap);
- fputc ('\n', stderr);
-}
-
-int safe_fclose (FILE ** f)
-{
- int r = 0;
-
- if (*f)
- r = fclose (*f);
-
- *f = NULL;
- return r;
-}
-
-char *safe_strdup (const char *s)
-{
- char *p;
- size_t l;
-
- if (!s || !*s)
- return 0;
- l = mutt_strlen (s) + 1;
- p = (char *) safe_malloc (l);
- memcpy (p, s, l);
- return (p);
-}
-
-char *safe_strcat (char *d, size_t l, const char *s)
-{
- char *p = d;
-
- if (!l)
- return d;
-
- l--; /* Space for the trailing '\0'. */
-
- for (; *d && l; l--)
- d++;
- for (; *s && l; l--)
- *d++ = *s++;
-
- *d = '\0';
-
- return p;
-}
-
-char *safe_strncat (char *d, size_t l, const char *s, size_t sl)
-{
- char *p = d;
-
- if (!l)
- return d;
-
- l--; /* Space for the trailing '\0'. */
-
- for (; *d && l; l--)
- d++;
- for (; *s && l && sl; l--, sl--)
- *d++ = *s++;
-
- *d = '\0';
-
- return p;
-}
-
-
-void mutt_str_replace (char **p, const char *s)
-{
- FREE (p);
- *p = safe_strdup (s);
-}
-
-void mutt_str_adjust (char **p)
-{
- if (!p || !*p)
- return;
- safe_realloc (p, mutt_strlen (*p) + 1);
-}
-
-/* convert all characters in the string to lowercase */
-char *mutt_strlower (char *s)
-{
- char *p = s;
-
- while (*p) {
- *p = tolower ((unsigned char) *p);
- p++;
- }
-
- return (s);
-}
-
-void mutt_unlink (const char *s)
-{
- int fd;
- int flags;
- FILE *f;
- struct stat sb, sb2;
- char buf[2048];
-
- /* Defend against symlink attacks */
-
-#ifdef O_NOFOLLOW
- flags = O_RDWR | O_NOFOLLOW;
-#else
- flags = O_RDWR;
-#endif
-
- if (lstat (s, &sb) == 0 && S_ISREG (sb.st_mode)) {
- if ((fd = open (s, flags)) < 0)
- return;
-
- if ((fstat (fd, &sb2) != 0) || !S_ISREG (sb2.st_mode)
- || (sb.st_dev != sb2.st_dev) || (sb.st_ino != sb2.st_ino)) {
- close (fd);
- return;
- }
-
- if ((f = fdopen (fd, "r+"))) {
- unlink (s);
- memset (buf, 0, sizeof (buf));
- while (sb.st_size > 0) {
- fwrite (buf, 1, MIN (sizeof (buf), sb.st_size), f);
- sb.st_size -= MIN (sizeof (buf), sb.st_size);
- }
- fclose (f);
- }
- }
-}
-
-int mutt_copy_bytes (FILE * in, FILE * out, size_t size)
-{
- char buf[2048];
- size_t chunk;
-
- while (size > 0) {
- chunk = (size > sizeof (buf)) ? sizeof (buf) : size;
- if ((chunk = fread (buf, 1, chunk, in)) < 1)
- break;
- if (fwrite (buf, 1, chunk, out) != chunk) {
- /* dprint (1, (debugfile, "mutt_copy_bytes(): fwrite() returned short byte count\n")); */
- return (-1);
- }
- size -= chunk;
- }
-
- return 0;
-}
-
-int mutt_copy_stream (FILE * fin, FILE * fout)
-{
- size_t l;
- char buf[LONG_STRING];
-
- while ((l = fread (buf, 1, sizeof (buf), fin)) > 0) {
- if (fwrite (buf, 1, l, fout) != l)
- return (-1);
- }
-
- return 0;
-}
-
-static int compare_stat (struct stat *osb, struct stat *nsb)
-{
- if (osb->st_dev != nsb->st_dev || osb->st_ino != nsb->st_ino ||
- osb->st_rdev != nsb->st_rdev) {
- return -1;
- }
-
- return 0;
-}
-
-int safe_symlink (const char *oldpath, const char *newpath)
-{
- struct stat osb, nsb;
-
- if (!oldpath || !newpath)
- return -1;
-
- if (unlink (newpath) == -1 && errno != ENOENT)
- return -1;
-
- if (oldpath[0] == '/') {
- if (symlink (oldpath, newpath) == -1)
- return -1;
- }
- else {
- char abs_oldpath[_POSIX_PATH_MAX];
-
- if ((getcwd (abs_oldpath, sizeof abs_oldpath) == NULL) ||
- (mutt_strlen (abs_oldpath) + 1 + mutt_strlen (oldpath) + 1 >
- sizeof abs_oldpath))
- return -1;
-
- strcat (abs_oldpath, "/"); /* __STRCAT_CHECKED__ */
- strcat (abs_oldpath, oldpath); /* __STRCAT_CHECKED__ */
- if (symlink (abs_oldpath, newpath) == -1)
- return -1;
- }
-
- if (stat (oldpath, &osb) == -1 || stat (newpath, &nsb) == -1
- || compare_stat (&osb, &nsb) == -1) {
- unlink (newpath);
- return -1;
- }
-
- return 0;
-}
-
-/*
- * This function is supposed to do nfs-safe renaming of files.
- *
- * Warning: We don't check whether src and target are equal.
- */
-
-int safe_rename (const char *src, const char *target)
-{
- struct stat ssb, tsb;
-
- if (!src || !target)
- return -1;
-
- if (link (src, target) != 0) {
-
- /*
- * Coda does not allow cross-directory links, but tells
- * us it's a cross-filesystem linking attempt.
- *
- * However, the Coda rename call is allegedly safe to use.
- *
- * With other file systems, rename should just fail when
- * the files reside on different file systems, so it's safe
- * to try it here.
- *
- */
-
- if (errno == EXDEV)
- return rename (src, target);
-
- return -1;
- }
-
- /*
- * Stat both links and check if they are equal.
- */
-
- if (stat (src, &ssb) == -1) {
- return -1;
- }
-
- if (stat (target, &tsb) == -1) {
- return -1;
- }
-
- /*
- * pretend that the link failed because the target file
- * did already exist.
- */
-
- if (compare_stat (&ssb, &tsb) == -1) {
- errno = EEXIST;
- return -1;
- }
-
- /*
- * Unlink the original link. Should we really ignore the return
- * value here? XXX
- */
-
- unlink (src);
-
- return 0;
-}
-
-int safe_open (const char *path, int flags)
-{
- struct stat osb, nsb;
- int fd;
-
- umask (Umask);
- if ((fd = open (path, flags, 0666)) < 0)
- return fd;
-
- /* make sure the file is not symlink */
- if (lstat (path, &osb) < 0 || fstat (fd, &nsb) < 0 ||
- compare_stat (&osb, &nsb) == -1) {
-/* dprint (1, (debugfile, "safe_open(): %s is a symlink!\n", path)); */
- close (fd);
- return (-1);
- }
-
- return (fd);
-}
-
-/* when opening files for writing, make sure the file doesn't already exist
- * to avoid race conditions.
- */
-FILE *safe_fopen (const char *path, const char *mode)
-{
- /* first set the current umask */
- umask (Umask);
- if (mode[0] == 'w') {
- int fd;
- int flags = O_CREAT | O_EXCL;
-
-#ifdef O_NOFOLLOW
- flags |= O_NOFOLLOW;
-#endif
-
- if (mode[1] == '+')
- flags |= O_RDWR;
- else
- flags |= O_WRONLY;
-
- if ((fd = safe_open (path, flags)) < 0)
- return (NULL);
-
- return (fdopen (fd, mode));
- }
- else
- return (fopen (path, mode));
-}
-
-static char safe_chars[] =
- "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+@{}._-:%/";
-
-void mutt_sanitize_filename (char *f, short slash)
-{
- if (!f)
- return;
-
- for (; *f; f++) {
- if ((slash && *f == '/') || !strchr (safe_chars, *f))
- *f = '_';
- }
-}
-
-/* these characters must be escaped in regular expressions */
-
-static char rx_special_chars[] = "^.[$()|*+?{\\";
-
-int mutt_rx_sanitize_string (char *dest, size_t destlen, const char *src)
-{
- while (*src && --destlen > 2) {
- if (strchr (rx_special_chars, *src)) {
- *dest++ = '\\';
- destlen--;
- }
- *dest++ = *src++;
- }
-
- *dest = '\0';
-
- if (*src)
- return -1;
- else
- return 0;
-}
-
-/* Read a line from ``fp'' into the dynamically allocated ``s'',
- * increasing ``s'' if necessary. The ending "\n" or "\r\n" is removed.
- * If a line ends with "\", this char and the linefeed is removed,
- * and the next line is read too.
- */
-char *mutt_read_line (char *s, size_t * size, FILE * fp, int *line)
-{
- size_t offset = 0;
- char *ch;
-
- if (!s) {
- s = safe_malloc (STRING);
- *size = STRING;
- }
-
- FOREVER {
- if (fgets (s + offset, *size - offset, fp) == NULL) {
- FREE (&s);
- return NULL;
- }
- if ((ch = strchr (s + offset, '\n')) != NULL) {
- (*line)++;
- *ch = 0;
- if (ch > s && *(ch - 1) == '\r')
- *--ch = 0;
- if (ch == s || *(ch - 1) != '\\')
- return s;
- offset = ch - s - 1;
- }
- else {
- int c;
-
- c = getc (fp); /* This is kind of a hack. We want to know if the
- char at the current point in the input stream is EOF.
- feof() will only tell us if we've already hit EOF, not
- if the next character is EOF. So, we need to read in
- the next character and manually check if it is EOF. */
- if (c == EOF) {
- /* The last line of fp isn't \n terminated */
- (*line)++;
- return s;
- }
- else {
- ungetc (c, fp); /* undo our dammage */
- /* There wasn't room for the line -- increase ``s'' */
- offset = *size - 1; /* overwrite the terminating 0 */
- *size += STRING;
- safe_realloc (&s, *size);
- }
- }
- }
-}
-
-char *mutt_substrcpy (char *dest, const char *beg, const char *end,
- size_t destlen)
-{
- size_t len;
-
- len = end - beg;
- if (len > destlen - 1)
- len = destlen - 1;
- memcpy (dest, beg, len);
- dest[len] = 0;
- return dest;
-}
-
-char *mutt_substrdup (const char *begin, const char *end)
-{
- size_t len;
- char *p;
-
- if (end)
- len = end - begin;
- else
- len = mutt_strlen (begin);
-
- p = safe_malloc (len + 1);
- memcpy (p, begin, len);
- p[len] = 0;
- return p;
-}
-
-/* prepare a file name to survive the shell's quoting rules.
- * From the Unix programming FAQ by way of Liviu.
- */
-
-size_t mutt_quote_filename (char *d, size_t l, const char *f)
-{
- size_t i, j = 0;
-
- if (!f) {
- *d = '\0';
- return 0;
- }
-
- /* leave some space for the trailing characters. */
- l -= 6;
-
- d[j++] = '\'';
-
- for (i = 0; j < l && f[i]; i++) {
- if (f[i] == '\'' || f[i] == '`') {
- d[j++] = '\'';
- d[j++] = '\\';
- d[j++] = f[i];
- d[j++] = '\'';
- }
- else
- d[j++] = f[i];
- }
-
- d[j++] = '\'';
- d[j] = '\0';
-
- return j;
-}
-
-/* NULL-pointer aware string comparison functions */
-
-int mutt_strcmp (const char *a, const char *b)
-{
- return strcmp (NONULL (a), NONULL (b));
-}
-
-int mutt_strcasecmp (const char *a, const char *b)
-{
- return strcasecmp (NONULL (a), NONULL (b));
-}
-
-int mutt_strncmp (const char *a, const char *b, size_t l)
-{
- return strncmp (NONULL (a), NONULL (b), l);
-}
-
-int mutt_strncasecmp (const char *a, const char *b, size_t l)
-{
- return strncasecmp (NONULL (a), NONULL (b), l);
-}
-
-size_t mutt_strlen (const char *a)
-{
- return a ? strlen (a) : 0;
-}
-
-int mutt_strcoll (const char *a, const char *b)
-{
- return strcoll (NONULL (a), NONULL (b));
-}
-
-const char *mutt_stristr (const char *haystack, const char *needle)
-{
- const char *p, *q;
-
- if (!haystack)
- return NULL;
- if (!needle)
- return (haystack);
-
- while (*(p = haystack)) {
- for (q = needle;
- *p && *q &&
- tolower ((unsigned char) *p) == tolower ((unsigned char) *q);
- p++, q++);
- if (!*q)
- return (haystack);
- haystack++;
- }
- return NULL;
-}
-
-char *mutt_skip_whitespace (char *p)
-{
- SKIPWS (p);
- return p;
-}
-
-void mutt_remove_trailing_ws (char *s)
-{
- char *p;
-
- for (p = s + mutt_strlen (s) - 1; p >= s && ISSPACE (*p); p--)
- *p = 0;
-}
-
-char *mutt_concat_path (char *d, const char *dir, const char *fname, size_t l)
-{
- const char *fmt = "%s/%s";
-
- if (!*fname || (*dir && dir[mutt_strlen (dir) - 1] == '/'))
- fmt = "%s%s";
-
- snprintf (d, l, fmt, dir, fname);
- return d;
-}
-
-const char *mutt_basename (const char *f)
-{
- const char *p = strrchr (f, '/');
+ va_list ap;
- if (p)
- return p + 1;
- else
- return f;
+ va_start(ap, fmt);
+ vfprintf(stderr, fmt, ap);
+ va_end(ap);
+ fputc('\n', stderr);
}
projects / apps / madmutt.git / blobdiff