showfile.c: Move interface to own file.

[nmh] / uip / prompter.c

diff --git a/uip/prompter.c b/uip/prompter.c
index 0aedc8c1d13417abee8ea92249f27cda3cf7f937..d91173f22814178f0b4b025b552e62a58db3e955 100644 (file)
--- a/uip/prompter.c
+++ b/uip/prompter.c
@@ -1,29 +1,30 @@
-
-/*
- * prompter.c -- simple prompting editor front-end
+/* prompter.c -- simple prompting editor front-end

  *
  * 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>
+#include "h/mh.h"
+#include "sbr/smatch.h"
+#include "sbr/cpydata.h"
+#include "sbr/m_atoi.h"
+#include "sbr/context_save.h"
+#include "sbr/ambigsw.h"
+#include "sbr/print_version.h"
+#include "sbr/print_help.h"
+#include "sbr/error.h"

 #include <fcntl.h>
 #include <fcntl.h>

-#include <h/signals.h>
+#include "h/signals.h"
+#include "h/done.h"
+#include "h/utils.h"
+#include "sbr/m_mktemp.h"

 #include <setjmp.h>
 
 #include <termios.h>
 
 #define        QUOTE '\\'
 
 #include <setjmp.h>
 
 #include <termios.h>
 
 #define        QUOTE '\\'
 

-#ifndef        CKILL
-# define CKILL '@'
-#endif
-
-#ifndef        CERASE
-# define CERASE '#'
-#endif
-

 #define PROMPTER_SWITCHES \
     X("erase chr", 0, ERASESW) \
     X("kill chr", 0, KILLSW) \
 #define PROMPTER_SWITCHES \
     X("erase chr", 0, ERASESW) \
     X("kill chr", 0, KILLSW) \


@@ -46,20 +47,16 @@ DEFINE_SWITCH_ENUM(PROMPTER);
 DEFINE_SWITCH_ARRAY(PROMPTER, switches);
 #undef X
 
 DEFINE_SWITCH_ARRAY(PROMPTER, switches);
 #undef X
 

-

 static struct termios tio;
 static struct termios tio;

-#define ERASE tio.c_cc[VERASE]
-#define KILL  tio.c_cc[VKILL]
-#define INTR  tio.c_cc[VINTR]

 
 

-static int wtuser = 0;
-static int sigint = 0;
+static bool wtuser;
+static bool sigint;

 static jmp_buf sigenv;
 
 /*
  * prototypes
  */
 static jmp_buf sigenv;
 
 /*
  * prototypes
  */

-int getln (char *, int);
+static int getln (char *, int);

 static int chrcnv (char *);
 static void chrdsp (char *, char);
 static void intrser (int);
 static int chrcnv (char *);
 static void chrdsp (char *, char);
 static void intrser (int);


@@ -68,23 +65,20 @@ static void intrser (int);
 int
 main (int argc, char **argv)
 {
 int
 main (int argc, char **argv)
 {

-    int body = 1, prepend = 1, rapid = 0;
-    int doteof = 0, fdi, fdo, i, state;
+    bool body = true;
+    bool prepend = true;
+    bool rapid = false;
+    bool doteof = false;
+    int fdi, fdo, i, state;

     char *cp, *drft = NULL, *erasep = NULL;
     char *cp, *drft = NULL, *erasep = NULL;

-    char *killp = NULL, name[NAMESZ], field[BUFSIZ];
+    char *killp = NULL, name[NAMESZ], field[NMH_BUFSIZ];

     char buffer[BUFSIZ];
     char **arguments, **argp;
     FILE *in, *out;
     char *tmpfil;
     char buffer[BUFSIZ];
     char **arguments, **argp;
     FILE *in, *out;
     char *tmpfil;

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

 
 

-    /* read user profile/context */
-    context_read();
+    if (nmh_init(argv[0], true, false)) { return 1; }

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


@@ -96,7 +90,7 @@ main (int argc, char **argv)
                    ambigsw (cp, switches);
                    done (1);
                case UNKWNSW: 
                    ambigsw (cp, switches);
                    done (1);
                case UNKWNSW: 

-                   adios (NULL, "-%s unknown", cp);
+                   die("-%s unknown", cp);

 
                case HELPSW: 
                    snprintf (buffer, sizeof(buffer), "%s [switches] file",
 
                case HELPSW: 
                    snprintf (buffer, sizeof(buffer), "%s [switches] file",


@@ -109,39 +103,39 @@ main (int argc, char **argv)
 
                case ERASESW: 
                    if (!(erasep = *argp++) || *erasep == '-')
 
                case ERASESW: 
                    if (!(erasep = *argp++) || *erasep == '-')

-                       adios (NULL, "missing argument to %s", argp[-2]);
+                       die("missing argument to %s", argp[-2]);

                    continue;
                case KILLSW: 
                    if (!(killp = *argp++) || *killp == '-')
                    continue;
                case KILLSW: 
                    if (!(killp = *argp++) || *killp == '-')

-                       adios (NULL, "missing argument to %s", argp[-2]);
+                       die("missing argument to %s", argp[-2]);

                    continue;
 
                case PREPSW: 
                    continue;
 
                case PREPSW: 

-                   prepend++;
+                   prepend = true;

                    continue;
                case NPREPSW: 
                    continue;
                case NPREPSW: 

-                   prepend = 0;
+                   prepend = false;

                    continue;
 
                case RAPDSW: 
                    continue;
 
                case RAPDSW: 

-                   rapid++;
+                   rapid = true;

                    continue;
                case NRAPDSW: 
                    continue;
                case NRAPDSW: 

-                   rapid = 0;
+                   rapid = false;

                    continue;
 
                case BODYSW: 
                    continue;
 
                case BODYSW: 

-                   body++;
+                   body = true;

                    continue;
                case NBODYSW: 
                    continue;
                case NBODYSW: 

-                   body = 0;
+                   body = false;

                    continue;
 
                case DOTSW: 
                    continue;
 
                case DOTSW: 

-                   doteof++;
+                   doteof = true;

                    continue;
                case NDOTSW: 
                    continue;
                case NDOTSW: 

-                   doteof = 0;
+                   doteof = false;

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


@@ -150,12 +144,12 @@ main (int argc, char **argv)
        }
 
     if (!drft)
        }
 
     if (!drft)

-       adios (NULL, "usage: %s [switches] file", invo_name);
+       die("usage: %s [switches] file", invo_name);

     if ((in = fopen (drft, "r")) == NULL)
        adios (drft, "unable to open");
 
     if ((tmpfil = m_mktemp2(NULL, invo_name, NULL, &out)) == NULL) {
     if ((in = fopen (drft, "r")) == NULL)
        adios (drft, "unable to open");
 
     if ((tmpfil = m_mktemp2(NULL, invo_name, NULL, &out)) == NULL) {

-       adios(NULL, "unable to create temporary file in %s", get_temp_dir());
+       die("unable to create temporary file in %s", get_temp_dir());

     }
 
     /*
     }
 
     /*


@@ -168,20 +162,20 @@ main (int argc, char **argv)
        tcgetattr(0, &tio);
 
        /* save original kill, erase character for later */
        tcgetattr(0, &tio);
 
        /* save original kill, erase character for later */

-       save_kill = KILL;
-       save_erase = ERASE;
+       save_kill = tio.c_cc[VKILL];
+       save_erase = tio.c_cc[VERASE];

 
        /* set new kill, erase character in terminal structure */
 
        /* set new kill, erase character in terminal structure */

-       KILL = killp ? chrcnv (killp) : save_kill;
-       ERASE = erasep ? chrcnv (erasep) : save_erase;
+       tio.c_cc[VKILL] = killp ? chrcnv (killp) : save_kill;
+       tio.c_cc[VERASE] = erasep ? chrcnv (erasep) : save_erase;

 
        /* set the new terminal attributes */
         tcsetattr(0, TCSADRAIN, &tio);
 
        /* print out new kill erase characters */
 
        /* set the new terminal attributes */
         tcsetattr(0, TCSADRAIN, &tio);
 
        /* print out new kill erase characters */

-       chrdsp ("erase", ERASE);
-       chrdsp (", kill", KILL);
-       chrdsp (", intr", INTR);
+       chrdsp ("erase", tio.c_cc[VERASE]);
+       chrdsp (", kill", tio.c_cc[VKILL]);
+       chrdsp (", intr", tio.c_cc[VINTR]);

        putchar ('\n');
        fflush (stdout);
 
        putchar ('\n');
        fflush (stdout);
 


@@ -190,19 +184,20 @@ main (int argc, char **argv)
         * setup in terminal structure so we can easily
         * restore it upon exit.
         */
         * setup in terminal structure so we can easily
         * restore it upon exit.
         */

-       KILL = save_kill;
-       ERASE = save_erase;
+       tio.c_cc[VKILL] = save_kill;
+       tio.c_cc[VERASE] = save_erase;

     }
 
     }
 

-    sigint = 0;
+    sigint = false;

     SIGNAL2 (SIGINT, intrser);
 
     /*
      * Loop through the lines of the draft skeleton.
      */
     SIGNAL2 (SIGINT, intrser);
 
     /*
      * Loop through the lines of the draft skeleton.
      */

+    gstate = m_getfld_state_init(in);

     for (;;) {
        int fieldsz = sizeof field;
     for (;;) {
        int fieldsz = sizeof field;

-       switch (state = m_getfld (&gstate, name, field, &fieldsz, in)) {
+       switch (state = m_getfld2(&gstate, name, field, &fieldsz)) {

            case FLD: 
            case FLDPLUS: 
                /*
            case FLD: 
            case FLDPLUS: 
                /*


@@ -219,9 +214,9 @@ main (int argc, char **argv)
                    fprintf (out, "%s:%s", name, field);
                    while (state == FLDPLUS) {
                        fieldsz = sizeof field;
                    fprintf (out, "%s:%s", name, field);
                    while (state == FLDPLUS) {
                        fieldsz = sizeof field;

-                       state = m_getfld (&gstate, name, field, &fieldsz, in);
-                       printf ("%s", field);
-                       fprintf (out, "%s", field);
+                       state = m_getfld2(&gstate, name, field, &fieldsz);
+                       fputs(field, stdout);
+                       fputs(field, out);

                    }
                } else {
                    /* Else, get value of header field */
                    }
                } else {
                    /* Else, get value of header field */


@@ -233,7 +228,7 @@ abort:
                        if (killp || erasep) {
                            tcsetattr(0, TCSADRAIN, &tio);
                        }
                        if (killp || erasep) {
                            tcsetattr(0, TCSADRAIN, &tio);
                        }

-                       unlink (tmpfil);
+                       (void) m_unlink (tmpfil);

                        done (1);
                    }
                    if (i != 0 || (field[0] != '\n' && field[0] != 0)) {
                        done (1);
                    }
                    if (i != 0 || (field[0] != '\n' && field[0] != 0)) {


@@ -241,7 +236,7 @@ abort:
                        do {
                            if (field[0] != ' ' && field[0] != '\t')
                                putc (' ', out);
                        do {
                            if (field[0] != ' ' && field[0] != '\t')
                                putc (' ', out);

-                           fprintf (out, "%s", field);
+                           fputs(field, out);

                        } while (i == 1
                                    && (i = getln (field, sizeof(field))) >= 0);
                        if (i == -1)
                        } while (i == 1
                                    && (i = getln (field, sizeof(field))) >= 0);
                        if (i == -1)


@@ -257,10 +252,10 @@ abort:
                    break;
                fprintf (out, "--------\n");
                if (field[0] == 0 || !prepend)
                    break;
                fprintf (out, "--------\n");
                if (field[0] == 0 || !prepend)

-                   printf ("--------\n");
+                   puts("--------");

                if (field[0]) {
                    if (prepend && body) {
                if (field[0]) {
                    if (prepend && body) {

-                       printf ("\n--------Enter initial text\n\n");
+                       puts("\n--------Enter initial text\n");

                        fflush (stdout);
                        for (;;) {
                            getln (buffer, sizeof(buffer));
                        fflush (stdout);
                        for (;;) {
                            getln (buffer, sizeof(buffer));


@@ -268,21 +263,20 @@ abort:
                                break;
                            if (buffer[0] == 0)
                                break;
                                break;
                            if (buffer[0] == 0)
                                break;

-                           fprintf (out, "%s", buffer);
+                           fputs(buffer, out);

                        }
                    }
 
                    do {
                        }
                    }
 
                    do {

-                       fprintf (out, "%s", field);
+                       fputs(field, out);

                        if (!rapid && !sigint)
                        if (!rapid && !sigint)

-                           printf ("%s", field);
+                           fputs(field, stdout);

                    } while (state == BODY &&
                            (fieldsz = sizeof field,
                    } while (state == BODY &&
                            (fieldsz = sizeof field,

-                            state = m_getfld (&gstate, name, field, &fieldsz, in)));
+                            state = m_getfld2(&gstate, name, field, &fieldsz)));

                    if (prepend || !body)
                        break;
                    if (prepend || !body)
                        break;

-                   else
-                       printf ("\n--------Enter additional text\n\n");
+                    puts("\n--------Enter additional text\n");

                }
 
                fflush (stdout);
                }
 
                fflush (stdout);


@@ -292,19 +286,19 @@ abort:
                        break;
                    if (field[0] == 0)
                        break;
                        break;
                    if (field[0] == 0)
                        break;

-                   fprintf (out, "%s", field);
+                   fputs(field, out);

                }
                break;
 
            default: 
                }
                break;
 
            default: 

-               adios (NULL, "skeleton is poorly formatted");
+               die("skeleton is poorly formatted");

        }
        break;
     }
     m_getfld_state_destroy (&gstate);
 
     if (body)
        }
        break;
     }
     m_getfld_state_destroy (&gstate);
 
     if (body)

-       printf ("--------\n");
+       puts("--------");

 
     fflush (stdout);
     fclose (in);
 
     fflush (stdout);
     fclose (in);


@@ -322,7 +316,7 @@ abort:
     cpydata (fdi, fdo, tmpfil, drft);
     close (fdi);
     close (fdo);
     cpydata (fdi, fdo, tmpfil, drft);
     close (fdi);
     close (fdo);

-    unlink (tmpfil);
+    (void) m_unlink (tmpfil);

 
     context_save ();   /* save the context file */
     done (0);
 
     context_save ();   /* save the context file */
     done (0);


@@ -330,47 +324,57 @@ abort:
 }
 
 
 }
 
 

-int
+static int

 getln (char *buffer, int n)
 {
     int c;
     char *cp;
 getln (char *buffer, int n)
 {
     int c;
     char *cp;

+    static bool quoting;

 
 

-    cp = buffer;
-    *cp = 0;
+    *buffer = 0;

 
     switch (setjmp (sigenv)) {
        case OK: 
 
     switch (setjmp (sigenv)) {
        case OK: 

-           wtuser = 1;
+           wtuser = true;

            break;
 
        case DONE: 
            break;
 
        case DONE: 

-           wtuser = 0;
+           wtuser = false;

            return 0;
 
        default: 
            return 0;
 
        default: 

-           wtuser = 0;
+           wtuser = false;

            return NOTOK;
     }
 
            return NOTOK;
     }
 

+    cp = buffer;
+    *cp = 0;
+

     for (;;) {
        switch (c = getchar ()) {
            case EOF: 
     for (;;) {
        switch (c = getchar ()) {
            case EOF: 

+               quoting = false;

                clearerr (stdin);
                longjmp (sigenv, DONE);
 
            case '\n': 
                clearerr (stdin);
                longjmp (sigenv, DONE);
 
            case '\n': 

-               if (cp[-1] == QUOTE) {
-                   cp[-1] = c;
-                   wtuser = 0;
+               if (quoting) {
+                   *(cp - 1) = c;
+                   quoting = false;
+                   wtuser = false;

                    return 1;
                }
                *cp++ = c;
                *cp = 0;
                    return 1;
                }
                *cp++ = c;
                *cp = 0;

-               wtuser = 0;
+               wtuser = false;

                return 0;
 
            default: 
                return 0;
 
            default: 

+               if (c == QUOTE) {
+                   quoting = true;
+               } else {
+                   quoting = false;
+               }

                if (cp < buffer + n)
                    *cp++ = c;
                *cp = 0;
                if (cp < buffer + n)
                    *cp++ = c;
                *cp = 0;


@@ -386,14 +390,14 @@ intrser (int i)
 
     if (wtuser)
        longjmp (sigenv, NOTOK);
 
     if (wtuser)
        longjmp (sigenv, NOTOK);

-    sigint++;
+    sigint = true;

 }
 
 
 static int
 chrcnv (char *cp)
 {
 }
 
 
 static int
 chrcnv (char *cp)
 {

-    return (*cp != QUOTE ? *cp : m_atoi (++cp));
+    return *cp != QUOTE ? *cp : m_atoi(++cp);

 }
 
 
 }