m_backup.c: Move interface to own file.

[nmh] / sbr / utils.c

diff --git a/sbr/utils.c b/sbr/utils.c
index dd87532586586d1d9090a860a7b0be622a4da259..9640cf1ee43c6e64c8bf49c417fac9737a0982a3 100644 (file)
--- a/sbr/utils.c
+++ b/sbr/utils.c
@@ -5,9 +5,15 @@
  * complete copyright information.
  */
 
  * complete copyright information.
  */
 

-#include <h/mh.h>
-#include <h/utils.h>
-#include <h/signals.h>
+#include "h/mh.h"
+#include "context_foil.h"
+#include "context_replace.h"
+#include "context_read.h"
+#include "context_find.h"
+#include "print_help.h"
+#include "error.h"
+#include "h/utils.h"
+#include "h/signals.h"

 #include "m_mktemp.h"
 #include "makedir.h"
 #include <fcntl.h>
 #include "m_mktemp.h"
 #include "makedir.h"
 #include <fcntl.h>


@@ -28,7 +34,8 @@ const char plurals[] = "s";
 #define MAXMSGS 256
 
 /* Call malloc(3), exiting on NULL return. */
 #define MAXMSGS 256
 
 /* Call malloc(3), exiting on NULL return. */

-void *mh_xmalloc(size_t size)
+void *
+mh_xmalloc(size_t size)

 {
     void *p;
 
 {
     void *p;
 


@@ -36,13 +43,14 @@ void *mh_xmalloc(size_t size)
         size = 1; /* Some mallocs don't like 0. */
     p = malloc(size);
     if (!p)
         size = 1; /* Some mallocs don't like 0. */
     p = malloc(size);
     if (!p)

-        adios(NULL, "malloc failed, size wanted: %zu", size);
+        die("malloc failed, size wanted: %zu", size);

 
     return p;
 }
 
 /* Call realloc(3), exiting on NULL return. */
 
     return p;
 }
 
 /* Call realloc(3), exiting on NULL return. */

-void *mh_xrealloc(void *ptr, size_t size)
+void *
+mh_xrealloc(void *ptr, size_t size)

 {
     void *new;
 
 {
     void *new;
 


@@ -56,13 +64,14 @@ void *mh_xrealloc(void *ptr, size_t size)
 
     new = realloc(ptr, size);
     if (!new)
 
     new = realloc(ptr, size);
     if (!new)

-        adios(NULL, "realloc failed, size wanted: %zu", size);
+        die("realloc failed, size wanted: %zu", size);

 
     return new;
 }
 
 /* Call calloc(3), exiting on NULL return. */
 
     return new;
 }
 
 /* Call calloc(3), exiting on NULL return. */

-void *mh_xcalloc(size_t nelem, size_t elsize)
+void *
+mh_xcalloc(size_t nelem, size_t elsize)

 {
     void *p;
 
 {
     void *p;
 


@@ -71,13 +80,14 @@ void *mh_xcalloc(size_t nelem, size_t elsize)
 
     p = calloc(nelem, elsize);
     if (!p)
 
     p = calloc(nelem, elsize);
     if (!p)

-        adios(NULL, "calloc failed, size wanted: %zu * %zu", nelem, elsize);
+        die("calloc failed, size wanted: %zu * %zu", nelem, elsize);

 
     return p;
 }
 
 /* Duplicate a NUL-terminated string, exit on failure. */
 
     return p;
 }
 
 /* Duplicate a NUL-terminated string, exit on failure. */

-char *mh_xstrdup(const char *src)
+char *
+mh_xstrdup(const char *src)

 {
     size_t n;
     char *dest;
 {
     size_t n;
     char *dest;


@@ -173,7 +183,8 @@ addlist (char *list, const char *item)
  * folder_exists
  *      Check to see if a folder exists.
  */
  * folder_exists
  *      Check to see if a folder exists.
  */

-int folder_exists(const char *folder)
+int
+folder_exists(const char *folder)

 {
     struct stat st;
 
 {
     struct stat st;
 


@@ -185,7 +196,8 @@ int folder_exists(const char *folder)
  *      Check to see if a folder exists, if not, prompt the user to create
  *      it.
  */
  *      Check to see if a folder exists, if not, prompt the user to create
  *      it.
  */

-void create_folder(char *folder, int autocreate, void (*done_callback)(int))
+void
+create_folder(char *folder, int autocreate, void (*done_callback)(int))

 {
     struct stat st;
     extern int errno;
 {
     struct stat st;
     extern int errno;


@@ -205,7 +217,7 @@ void create_folder(char *folder, int autocreate, void (*done_callback)(int))
             done_callback (1);
         }
         if (!makedir (folder))
             done_callback (1);
         }
         if (!makedir (folder))

-            adios (NULL, "unable to create folder %s", folder);
+            die("unable to create folder %s", folder);

     }
 }
 
     }
 }
 


@@ -220,7 +232,7 @@ num_digits (int n)
 
     /* Sanity check */
     if (n < 0)
 
     /* Sanity check */
     if (n < 0)

-        adios (NULL, "oops, num_digits called with negative value");
+        die("oops, num_digits called with negative value");

 
     if (n == 0)
         return 1;
 
     if (n == 0)
         return 1;


@@ -272,7 +284,8 @@ app_msgnum(struct msgnum_array *msgs, int msgnum)
  * pointer so that the caller can modify it.
  */
 char *
  * pointer so that the caller can modify it.
  */
 char *

-find_str (const char buf[], size_t buflen, const char *str) {
+find_str (const char buf[], size_t buflen, const char *str)
+{

     const size_t len = strlen (str);
     size_t i;
 
     const size_t len = strlen (str);
     size_t i;
 


@@ -291,7 +304,8 @@ find_str (const char buf[], size_t buflen, const char *str) {
  * pointer so that the caller can modify it.
  */
 char *
  * pointer so that the caller can modify it.
  */
 char *

-rfind_str (const char buf[], size_t buflen, const char *str) {
+rfind_str (const char buf[], size_t buflen, const char *str)
+{

     const size_t len = strlen (str);
     size_t i;
 
     const size_t len = strlen (str);
     size_t i;
 


@@ -305,7 +319,8 @@ rfind_str (const char buf[], size_t buflen, const char *str) {
 
 /* POSIX doesn't have strcasestr() so emulate it. */
 char *
 
 /* POSIX doesn't have strcasestr() so emulate it. */
 char *

-nmh_strcasestr (const char *s1, const char *s2) {
+nmh_strcasestr (const char *s1, const char *s2)
+{

     const size_t len = strlen (s2);
 
     if (isupper ((unsigned char) s2[0])  ||  islower ((unsigned char)s2[0])) {
     const size_t len = strlen (s2);
 
     if (isupper ((unsigned char) s2[0])  ||  islower ((unsigned char)s2[0])) {


@@ -335,7 +350,8 @@ nmh_strcasestr (const char *s1, const char *s2) {
  * reporting a possibly very long external string back to the user.  One
  * of its advantages over strncpy(3) is it doesn't pad in the common
  * case of no truncation. */
  * reporting a possibly very long external string back to the user.  One
  * of its advantages over strncpy(3) is it doesn't pad in the common
  * case of no truncation. */

-void trunccpy(char *dst, const char *src, size_t size)
+void
+trunccpy(char *dst, const char *src, size_t size)

 {
     if (!size) {
         inform("trunccpy: zero-length destination: \"%.20s\"",
 {
     if (!size) {
         inform("trunccpy: zero-length destination: \"%.20s\"",


@@ -353,7 +369,8 @@ void trunccpy(char *dst, const char *src, size_t size)
 
 
 /* has_prefix returns true if non-NULL s starts with non-NULL prefix. */
 
 
 /* has_prefix returns true if non-NULL s starts with non-NULL prefix. */

-bool has_prefix(const char *s, const char *prefix)
+bool
+has_prefix(const char *s, const char *prefix)

 {
     while (*s && *s == *prefix) {
         s++;
 {
     while (*s && *s == *prefix) {
         s++;


@@ -365,7 +382,8 @@ bool has_prefix(const char *s, const char *prefix)
 
 
 /* has_suffix returns true if non-NULL s ends with non-NULL suffix. */
 
 
 /* has_suffix returns true if non-NULL s ends with non-NULL suffix. */

-bool has_suffix(const char *s, const char *suffix)
+bool
+has_suffix(const char *s, const char *suffix)

 {
     size_t ls, lsuf;
 
 {
     size_t ls, lsuf;
 


@@ -378,7 +396,8 @@ bool has_suffix(const char *s, const char *suffix)
 
 /* has_suffix_c returns true if non-NULL string s ends with a c before the
  * terminating NUL. */
 
 /* has_suffix_c returns true if non-NULL string s ends with a c before the
  * terminating NUL. */

-bool has_suffix_c(const char *s, int c)
+bool
+has_suffix_c(const char *s, int c)

 {
     return *s && s[strlen(s) - 1] == c;
 }
 {
     return *s && s[strlen(s) - 1] == c;
 }


@@ -386,7 +405,8 @@ bool has_suffix_c(const char *s, int c)
 
 /* trim_suffix_c deletes c from the end of non-NULL string s if it's
  * present, shortening s by 1.  Only one instance of c is removed. */
 
 /* trim_suffix_c deletes c from the end of non-NULL string s if it's
  * present, shortening s by 1.  Only one instance of c is removed. */

-void trim_suffix_c(char *s, int c)
+void
+trim_suffix_c(char *s, int c)

 {
     if (!*s)
         return;
 {
     if (!*s)
         return;


@@ -398,7 +418,8 @@ void trim_suffix_c(char *s, int c)
 
 
 /* to_lower runs all of s through tolower(3). */
 
 
 /* to_lower runs all of s through tolower(3). */

-void to_lower(char *s)
+void
+to_lower(char *s)

 {
     unsigned char *b;
 
 {
     unsigned char *b;
 


@@ -408,7 +429,8 @@ void to_lower(char *s)
 
 
 /* to_upper runs all of s through toupper(3). */
 
 
 /* to_upper runs all of s through toupper(3). */

-void to_upper(char *s)
+void
+to_upper(char *s)

 {
     unsigned char *b;
 
 {
     unsigned char *b;
 


@@ -418,7 +440,8 @@ void to_upper(char *s)
 
 
 int
 
 
 int

-nmh_init(const char *argv0, int read_context) {
+nmh_init(const char *argv0, bool read_context, bool check_version)
+{

     int status = OK;
     char *locale;
 
     int status = OK;
     char *locale;
 


@@ -435,25 +458,25 @@ nmh_init(const char *argv0, int read_context) {
 
     /* Read context, if supposed to. */
     if (read_context) {
 
     /* Read context, if supposed to. */
     if (read_context) {

-        int allow_version_check = 1;
-        int check_older_version = 0;

         char *cp;
 
         context_read();
 
         char *cp;
 
         context_read();
 

-        if (read_context != 1  ||
+        bool allow_version_check = true;
+        bool check_older_version = false;
+        if (!check_version ||

             ((cp = context_find ("Welcome")) && strcasecmp (cp, "disable") == 0)) {
             ((cp = context_find ("Welcome")) && strcasecmp (cp, "disable") == 0)) {

-            allow_version_check = 0;
+            allow_version_check = false;

         } else if ((cp = getenv ("MHCONTEXT")) != NULL && *cp != '\0') {
             /* Context file comes from $MHCONTEXT, so only print the message
                if the context file has an older version.  If it does, or if it
                doesn't have a version at all, update the version. */
         } else if ((cp = getenv ("MHCONTEXT")) != NULL && *cp != '\0') {
             /* Context file comes from $MHCONTEXT, so only print the message
                if the context file has an older version.  If it does, or if it
                doesn't have a version at all, update the version. */

-            check_older_version = 1;
+            check_older_version = true;

         }
 
         /* Check to see if the user is running a different (or older, if
            specified) version of nmh than they had run before, and notify them
         }
 
         /* Check to see if the user is running a different (or older, if
            specified) version of nmh than they had run before, and notify them

-           if so.  But only if read_context was set to a value to enable. */
+           if so. */

         if (allow_version_check  &&  isatty (fileno (stdin))  &&
             isatty (fileno (stdout))  &&  isatty (fileno (stderr))) {
             if (nmh_version_changed (check_older_version)) {
         if (allow_version_check  &&  isatty (fileno (stdin))  &&
             isatty (fileno (stdout))  &&  isatty (fileno (stderr))) {
             if (nmh_version_changed (check_older_version)) {


@@ -500,7 +523,8 @@ nmh_init(const char *argv0, int read_context) {
  * use that prefix here.
  */
 int
  * use that prefix here.
  */
 int

-nmh_version_changed (int older) {
+nmh_version_changed (int older)
+{

     const char *const context_version = context_find("Version");
 
     if (older) {
     const char *const context_version = context_find("Version");
 
     if (older) {


@@ -532,7 +556,8 @@ nmh_version_changed (int older) {
  * isascii(3), i.e. is outside [0, 0x7f].  If start is NULL it returns
  * false.  Bytes are examined until a NUL byte, or, if end is not NULL,
  * whilst start is before end. */
  * isascii(3), i.e. is outside [0, 0x7f].  If start is NULL it returns
  * false.  Bytes are examined until a NUL byte, or, if end is not NULL,
  * whilst start is before end. */

-bool contains8bit(const char *start, const char *end)
+bool
+contains8bit(const char *start, const char *end)

 {
     const char *p;
     char c;
 {
     const char *p;
     char c;


@@ -559,7 +584,8 @@ bool contains8bit(const char *start, const char *end)
  * See if input has any 8-bit bytes.
  */
 int
  * See if input has any 8-bit bytes.
  */
 int

-scan_input (int fd, int *eightbit) {
+scan_input (int fd, int *eightbit)
+{

     int state;
     char buf[BUFSIZ];
 
     int state;
     char buf[BUFSIZ];
 


@@ -581,7 +607,8 @@ scan_input (int fd, int *eightbit) {
  * Convert an int to a char string.
  */
 char *
  * Convert an int to a char string.
  */
 char *

-m_str(int value) {
+m_str(int value)
+{

     return m_strn(value, 0);
 }
 
     return m_strn(value, 0);
 }
 


@@ -594,7 +621,8 @@ m_str(int value) {
 #define SIZE(n) (sizeof STR(n))
 
 char *
 #define SIZE(n) (sizeof STR(n))
 
 char *

-m_strn(int value, unsigned int width) {
+m_strn(int value, unsigned int width)
+{

     /* Need to include space for negative sign.  But don't use INT_MIN
        because it could be a macro that would fool SIZE(n). */
     static char buffer[SIZE(-INT_MAX)];
     /* Need to include space for negative sign.  But don't use INT_MIN
        because it could be a macro that would fool SIZE(n). */
     static char buffer[SIZE(-INT_MAX)];