scansbr.c: Move interface to own file.

[nmh] / uip / install-mh.c

diff --git a/uip/install-mh.c b/uip/install-mh.c
index ec847fb4548e481bb7f9e43d40b4ce800cffbd0f..ac2c5c989a8bb41825f2e52cef489f6502220eea 100644 (file)
--- a/uip/install-mh.c
+++ b/uip/install-mh.c
@@ -1,55 +1,64 @@
-/*
- * install-mh.c -- initialize the nmh environment of a new user
- *
- * $Id$
+/* install-mh.c -- initialize the nmh environment of a new user

  *
  * This code is Copyright (c) 2002, by the authors of nmh.  See the
  * COPYRIGHT file in the root directory of the nmh distribution for
  * complete copyright information.
  */
 
  *
  * This code is Copyright (c) 2002, by the authors of nmh.  See the
  * COPYRIGHT file in the root directory of the nmh distribution for
  * complete copyright information.
  */
 

-#include <h/mh.h>                              /* mh internals */
-#include <h/utils.h>
-#include <pwd.h>                               /* structure for getpwuid() results */
-
-static struct swit switches[] = {
-#define AUTOSW     0
-    { "auto", 0 },
-#define VERSIONSW  1
-    { "version", 0 },
-#define HELPSW     2
-    { "help", 0 },
-#define CHECKSW     3
-    { "check", 1 },
-    { NULL, 0 }
-};
-
-/*
- * static prototypes
- */
-static char *geta(void);
+#include "h/mh.h"
+#include "sbr/getarguments.h"
+#include "sbr/read_switch.h"
+#include "sbr/concat.h"
+#include "sbr/smatch.h"
+#include "sbr/context_save.h"
+#include "sbr/context_replace.h"
+#include "sbr/readconfig.h"
+#include "sbr/ambigsw.h"
+#include "sbr/path.h"
+#include "sbr/print_version.h"
+#include "sbr/print_help.h"
+#include "sbr/error.h"
+#include "h/done.h"
+#include "h/utils.h"
+#include "sbr/m_maildir.h"
+#include "sbr/makedir.h"
+#include <pwd.h>
+#include "sbr/read_line.h"
+
+#define INSTALLMH_SWITCHES \
+    X("auto", 0, AUTOSW) \
+    X("version", 0, VERSIONSW) \
+    X("help", 0, HELPSW) \
+    X("check", 1, CHECKSW) \
+
+#define X(sw, minchars, id) id,
+DEFINE_SWITCH_ENUM(INSTALLMH);
+#undef X
+
+#define X(sw, minchars, id) { sw, minchars, id },
+DEFINE_SWITCH_ARRAY(INSTALLMH, switches);
+#undef X

 
 
 int
 main (int argc, char **argv)
 {
 
 
 int
 main (int argc, char **argv)
 {

-    int autof = 0;
-    char *cp, *pathname, buf[BUFSIZ];
+    bool autof = false;
+    char *cp, buf[BUFSIZ];
+    const char *pathname;

     char *dp, **arguments, **argp;
     struct node *np;
     struct passwd *pw;
     struct stat st;
     FILE *in, *out;
     char *dp, **arguments, **argp;
     struct node *np;
     struct passwd *pw;
     struct stat st;
     FILE *in, *out;

-    int                check;
+    bool check;
+
+    if (nmh_init(argv[0], false, false)) { return 1; }

 
 

-#ifdef LOCALE
-    setlocale(LC_ALL, "");
-#endif
-    invo_name = r1bindex (argv[0], '/');

     arguments = getarguments (invo_name, argc, argv, 0);
     argp = arguments;
 
     arguments = getarguments (invo_name, argc, argv, 0);
     argp = arguments;
 

-    check = 0;
+    check = false;

 
     while ((dp = *argp++)) {
        if (*dp == '-') {
 
     while ((dp = *argp++)) {
        if (*dp == '-') {


@@ -58,26 +67,26 @@ main (int argc, char **argv)
                    ambigsw (dp, switches);
                    done (1);
                case UNKWNSW:
                    ambigsw (dp, switches);
                    done (1);
                case UNKWNSW:

-                   adios (NULL, "-%s unknown\n", dp);
+                   die("-%s unknown\n", dp);

 
                case HELPSW:
                    snprintf (buf, sizeof(buf), "%s [switches]", invo_name);
                    print_help (buf, switches, 0);
 
                case HELPSW:
                    snprintf (buf, sizeof(buf), "%s [switches]", invo_name);
                    print_help (buf, switches, 0);

-                   done (1);
+                   done (0);

                case VERSIONSW:
                    print_version(invo_name);
                case VERSIONSW:
                    print_version(invo_name);

-                   done (1);
+                   done (0);

 
                case AUTOSW:
 
                case AUTOSW:

-                   autof++;
+                   autof = true;

                    continue;
 
                case CHECKSW:
                    continue;
 
                case CHECKSW:

-                   check = 1;
+                   check = true;

                    continue;
            }
        } else {
                    continue;
            }
        } else {

-           adios (NULL, "%s is invalid argument", dp);
+           die("%s is invalid argument", dp);

        }
     }
 
        }
     }
 


@@ -86,11 +95,10 @@ main (int argc, char **argv)
      * the home directory field in the password file if that's not found.
      */
 
      * the home directory field in the password file if that's not found.
      */
 

-    if ((mypath = getenv("HOME")) == (char *)0) {
-       if ((pw = getpwuid(getuid())) == (struct passwd *)0 || *pw->pw_dir == '\0')
-           adios(NULL, "cannot determine your home directory");
-       else
-           mypath = pw->pw_dir;
+    if ((mypath = getenv("HOME")) == NULL) {
+       if ((pw = getpwuid(getuid())) == NULL || *pw->pw_dir == '\0')
+           die("cannot determine your home directory");
+        mypath = pw->pw_dir;

     }
 
     /*
     }
 
     /*


@@ -114,17 +122,14 @@ main (int argc, char **argv)
     if (stat (defpath, &st) != NOTOK) {
        if (check)
            done(0);
     if (stat (defpath, &st) != NOTOK) {
        if (check)
            done(0);

-
-       else if (autof)
-           adios (NULL, "invocation error");
-       else
-           adios (NULL, "You already have an nmh profile, use an editor to modify it");
+       if (autof)
+           die("invocation error");
+        die("You already have an nmh profile, use an editor to modify it");

     }
     }

-    else if (check) {
+    if (check)

        done(1);
        done(1);

-    }

 
 

-    if (!autof && gans ("Do you want help? ", anoyes)) {
+    if (!autof && read_switch ("Do you want help? ", anoyes)) {

        (void)printf(
         "\n"
         "Prior to using nmh, it is necessary to have a file in your login\n"
        (void)printf(
         "\n"
         "Prior to using nmh, it is necessary to have a file in your login\n"


@@ -137,54 +142,56 @@ main (int argc, char **argv)
 
     cp = concat (mypath, "/", "Mail", NULL);
     if (stat (cp, &st) != NOTOK) {
 
     cp = concat (mypath, "/", "Mail", NULL);
     if (stat (cp, &st) != NOTOK) {

-       if (S_ISDIR(st.st_mode)) {
-           cp = concat ("You already have the standard nmh directory \"",
-                   cp, "\".\nDo you want to use it for nmh? ", NULL);
-           if (gans (cp, anoyes))
-               pathname = "Mail";
-           else
-               goto query;
-       } else {
+       if (!S_ISDIR(st.st_mode))

            goto query;
            goto query;

-       }
+        cp = concat ("You already have the standard nmh directory \"",
+                cp, "\".\nDo you want to use it for nmh? ", NULL);
+        if (!read_switch (cp, anoyes))
+            goto query;
+        pathname = "Mail";

     } else {
        if (autof)
     } else {
        if (autof)

-           printf ("I'm going to create the standard nmh path for you.\n");
+           puts("I'm going to create the standard nmh path for you.");

        else
            cp = concat ("Do you want the standard nmh path \"",
                    mypath, "/", "Mail\"? ", NULL);
        else
            cp = concat ("Do you want the standard nmh path \"",
                    mypath, "/", "Mail\"? ", NULL);

-       if (autof || gans (cp, anoyes))
+       if (autof || read_switch (cp, anoyes))

            pathname = "Mail";
        else {
 query:
            pathname = "Mail";
        else {
 query:

-           if (gans ("Do you want a path below your login directory? ",
+           if (read_switch ("Do you want a path below your login directory? ",

                        anoyes)) {
                printf ("What is the path?  %s/", mypath);
                        anoyes)) {
                printf ("What is the path?  %s/", mypath);

-               pathname = geta ();
+               pathname = read_line ();
+               if (pathname == NULL) done (1);

            } else {
            } else {

-               printf ("What is the whole path?  /");
-               pathname = concat ("/", geta (), NULL);
+               fputs("What is the whole path?  /", stdout);
+               pathname = read_line ();
+               if (pathname == NULL) done (1);
+               pathname = concat ("/", pathname, NULL);

            }
        }
     }
 
            }
        }
     }
 

-    chdir (mypath);
+    if (chdir (mypath) < 0) {
+       advise (mypath, "chdir");
+    }

     if (chdir (pathname) == NOTOK) {
        cp = concat ("\"", pathname, "\" doesn't exist; Create it? ", NULL);
     if (chdir (pathname) == NOTOK) {
        cp = concat ("\"", pathname, "\" doesn't exist; Create it? ", NULL);

-       if (autof || gans (cp, anoyes))
+       if (autof || read_switch (cp, anoyes))

            if (makedir (pathname) == 0)
            if (makedir (pathname) == 0)

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

     } else {
     } else {

-       printf ("[Using existing directory]\n");
+       puts("[Using existing directory]");

     }
 
     /*
      * Add some initial elements to the profile/context list
      */
     }
 
     /*
      * Add some initial elements to the profile/context list
      */

-    m_defs = (struct node *) mh_xmalloc (sizeof *np);
-    np = m_defs;
-    np->n_name = getcpy ("Path");
-    np->n_field = getcpy (pathname);
+    NEW(np);
+    m_defs = np;
+    np->n_name = mh_xstrdup("Path");
+    np->n_field = mh_xstrdup(pathname);

     np->n_context = 0;
     np->n_next = NULL;
 
     np->n_context = 0;
     np->n_next = NULL;
 


@@ -197,7 +204,7 @@ query:
        fclose (in);
     }
 
        fclose (in);
     }
 

-    ctxpath = getcpy (m_maildir (context = "context"));
+    ctxpath = mh_xstrdup(m_maildir(context = "context"));

 
     /* Initialize current folder to default */
     context_replace (pfolder, defaultfolder);
 
     /* Initialize current folder to default */
     context_replace (pfolder, defaultfolder);


@@ -208,25 +215,26 @@ query:
      */
     if ((out = fopen (defpath, "w")) == NULL)
        adios (defpath, "unable to write");
      */
     if ((out = fopen (defpath, "w")) == NULL)
        adios (defpath, "unable to write");

+    /*
+     * The main purpose of this first line is to fool file(1).
+     * Without it, if the first line of the profile is Path:,
+     * file 5.19 reports its type as message/news.  With it,
+     * it reports the type as text/plain.
+     */
+    fprintf (out, "MH-Profile-Version: 1.0\n");

     for (np = m_defs; np; np = np->n_next) {
        if (!np->n_context)
            fprintf (out, "%s: %s\n", np->n_name, np->n_field);
     }
     fclose (out);
     for (np = m_defs; np; np = np->n_next) {
        if (!np->n_context)
            fprintf (out, "%s: %s\n", np->n_name, np->n_field);
     }
     fclose (out);

-    return done (0);
-}

 
 

+    puts ("\nPlease see nmh(7) for an introduction to nmh.\n");
+    print_intro (stdout, false);

 
 

-static char *
-geta (void)
-{
-    char *cp;
-    static char line[BUFSIZ];
-
-    fflush(stdout);
-    if (fgets(line, sizeof(line), stdin) == NULL)
-       done (1);
-    if ((cp = strchr(line, '\n')))
-       *cp = 0;
-    return line;
+    /* Initialize the saved nmh version.  The Path profile entry was added
+       above, that's all this needs. */
+    (void) nmh_version_changed (0);
+
+    done (0);
+    return 1;

 }
 }