fdcompare.c: Move interface to own file.

[nmh] / uip / scan.c

diff --git a/uip/scan.c b/uip/scan.c
index 7f5cf46ff2667d094389fe5f7a5d2aacbb4dc81a..7487623627dc6a17f1de29d1e26def42ca6e91a3 100644 (file)
--- a/uip/scan.c
+++ b/uip/scan.c
@@ -1,101 +1,80 @@
-
-/*
- * scan.c -- display a one-line "scan" listing of folder or messages
+/* scan.c -- display a one-line "scan" listing of folder or messages

  *
  *

- * $Id$
- */
-
-#include <h/mh.h>
-#include <h/fmt_scan.h>
-#include <h/scansbr.h>
-#include <zotnet/tws/tws.h>
-#include <zotnet/mts/mts.h>
-#include <errno.h>
-
-/*
- * We allocate space for message names (msgs array)
- * this number of elements at a time.
- */
-#define MAXMSGS  256
-
-
-static struct swit switches[] = {
-#define        CLRSW   0
-    { "clear", 0 },
-#define        NCLRSW  1
-    { "noclear", 0 },
-#define        FORMSW  2
-    { "form formatfile", 0 },
-#define        FMTSW   3
-    { "format string", 5 },
-#define        HEADSW  4
-    { "header", 0 },
-#define        NHEADSW 5
-    { "noheader", 0 },
-#define        WIDTHSW 6
-    { "width columns", 0 },
-#define        REVSW   7
-    { "reverse", 0 },
-#define        NREVSW  8
-    { "noreverse", 0 },
-#define        FILESW  9
-    { "file file", 4 },
-#define VERSIONSW 10
-    { "version", 0 },
-#define        HELPSW  11
-    { "help", 0 },
-    { NULL, 0 }
-};
-
-extern int errno;
-
-/*
- * global for sbr/formatsbr.c - yech!
+ * 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.

  */
  */

-#ifdef LBL
-extern struct msgs *fmt_current_folder;        
-#endif

 
 

-/*
- * prototypes
- */
-void clear_screen(void);  /* from termsbr.c */
+#include "h/mh.h"
+#include "sbr/folder_read.h"
+#include "sbr/folder_free.h"
+#include "sbr/context_save.h"
+#include "sbr/context_replace.h"
+#include "sbr/context_find.h"
+#include "sbr/brkstring.h"
+#include "sbr/ambigsw.h"
+#include "sbr/path.h"
+#include "sbr/print_version.h"
+#include "sbr/print_help.h"
+#include "sbr/seq_getnum.h"
+#include "sbr/error.h"
+#include "h/fmt_scan.h"
+#include "h/scansbr.h"
+#include "h/tws.h"
+#include "h/mts.h"
+#include "h/done.h"
+#include "h/utils.h"
+#include "sbr/m_maildir.h"
+#include "sbr/terminal.h"
+
+#define SCAN_SWITCHES \
+    X("clear", 0, CLRSW) \
+    X("noclear", 0, NCLRSW) \
+    X("form formatfile", 0, FORMSW) \
+    X("format string", 5, FMTSW) \
+    X("header", 0, HEADSW) \
+    X("noheader", 0, NHEADSW) \
+    X("width columns", 0, WIDTHSW) \
+    X("reverse", 0, REVSW) \
+    X("noreverse", 0, NREVSW) \
+    X("file file", 4, FILESW) \
+    X("version", 0, VERSIONSW) \
+    X("help", 0, HELPSW) \
+
+#define X(sw, minchars, id) id,
+DEFINE_SWITCH_ENUM(SCAN);
+#undef X
+
+#define X(sw, minchars, id) { sw, minchars, id },
+DEFINE_SWITCH_ARRAY(SCAN, switches);
+#undef X

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

-    int clearflag = 0, hdrflag = 0, ontty;
-    int width = 0, revflag = 0;
-    int i, state, msgnum, nummsgs, maxmsgs;
-    int seqnum[NUMATTRS], unseen, num_unseen_seq = 0;
+    bool clearflag = false;
+    bool hdrflag = false;
+    int ontty;
+    int width = -1;
+    bool revflag = false;
+    int i, state, msgnum;
+    ivector_t seqnum = ivector_create (0);
+    bool unseen;
+    int num_unseen_seq = 0;

     char *cp, *maildir, *file = NULL, *folder = NULL;
     char *form = NULL, *format = NULL, buf[BUFSIZ];
     char *cp, *maildir, *file = NULL, *folder = NULL;
     char *form = NULL, *format = NULL, buf[BUFSIZ];

-    char **argp, *nfs, **arguments, **msgs;
+    char **argp, *nfs, **arguments;
+    struct msgs_array msgs = { 0, 0, NULL };

     struct msgs *mp;
     FILE *in;
 
     struct msgs *mp;
     FILE *in;
 

-#ifdef LOCALE
-    setlocale(LC_ALL, "");
-#endif
-    invo_name = r1bindex (argv[0], '/');
+    if (nmh_init(argv[0], true, true)) { return 1; }

 
 

-    /* read user profile/context */
-    context_read();
-
-    mts_init (invo_name);
+    mts_init ();

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

-    /*
-     * Allocate the initial space to record message
-     * names, ranges, and sequences.
-     */
-    nummsgs = 0;
-    maxmsgs = MAXMSGS;
-    if (!(msgs = (char **) malloc ((size_t) (maxmsgs * sizeof(*msgs)))))
-       adios (NULL, "unable to allocate storage");
-

     /*
      * Parse arguments
      */
     /*
      * Parse arguments
      */


@@ -106,57 +85,57 @@ 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 (buf, sizeof(buf), "%s [+folder] [msgs] [switches]",
                        invo_name);
                    print_help (buf, switches, 1);
 
                case HELPSW: 
                    snprintf (buf, sizeof(buf), "%s [+folder] [msgs] [switches]",
                        invo_name);
                    print_help (buf, switches, 1);

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

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

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

 
                case CLRSW: 
 
                case CLRSW: 

-                   clearflag++;
+                   clearflag = true;

                    continue;
                case NCLRSW: 
                    continue;
                case NCLRSW: 

-                   clearflag = 0;
+                   clearflag = false;

                    continue;
 
                case FORMSW: 
                    if (!(form = *argp++) || *form == '-')
                    continue;
 
                case FORMSW: 
                    if (!(form = *argp++) || *form == '-')

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

                    format = NULL;
                    continue;
                case FMTSW: 
                    if (!(format = *argp++) || *format == '-')
                    format = NULL;
                    continue;
                case FMTSW: 
                    if (!(format = *argp++) || *format == '-')

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

                    form = NULL;
                    continue;
 
                case HEADSW: 
                    form = NULL;
                    continue;
 
                case HEADSW: 

-                   hdrflag++;
+                   hdrflag = true;

                    continue;
                case NHEADSW: 
                    continue;
                case NHEADSW: 

-                   hdrflag = 0;
+                   hdrflag = false;

                    continue;
 
                case WIDTHSW: 
                    if (!(cp = *argp++) || *cp == '-')
                    continue;
 
                case WIDTHSW: 
                    if (!(cp = *argp++) || *cp == '-')

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

                    width = atoi (cp);
                    continue;
                case REVSW:
                    width = atoi (cp);
                    continue;
                case REVSW:

-                   revflag++;
+                   revflag = true;

                    continue;
                case NREVSW:
                    continue;
                case NREVSW:

-                   revflag = 0;
+                   revflag = false;

                    continue;
 
                case FILESW:
                    if (!(cp = *argp++) || (cp[0] == '-' && cp[1]))
                    continue;
 
                case FILESW:
                    if (!(cp = *argp++) || (cp[0] == '-' && cp[1]))

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

                    if (strcmp (file = cp, "-"))
                        file = path (cp, TFILE);
                    continue;
                    if (strcmp (file = cp, "-"))
                        file = path (cp, TFILE);
                    continue;


@@ -164,22 +143,10 @@ main (int argc, char **argv)
        }
        if (*cp == '+' || *cp == '@') {
            if (folder)
        }
        if (*cp == '+' || *cp == '@') {
            if (folder)

-               adios (NULL, "only one folder at a time!");
-           else
-               folder = path (cp + 1, *cp == '+' ? TFOLDER : TSUBCWF);
-       } else {
-           /*
-            * Check if we need to allocate more space
-            * for message names/ranges/sequences.
-            */
-           if (nummsgs >= maxmsgs) {
-               maxmsgs += MAXMSGS;
-               if (!(msgs = (char **) realloc (msgs,
-                       (size_t) (maxmsgs * sizeof(*msgs)))))
-                   adios (NULL, "unable to reallocate msgs storage");
-           }
-           msgs[nummsgs++] = cp;
-       }
+               die("only one folder at a time!");
+            folder = pluspath (cp);
+       } else
+            app_msgarg(&msgs, cp);

     }
 
     if (!context_find ("path"))
     }
 
     if (!context_find ("path"))


@@ -194,10 +161,10 @@ main (int argc, char **argv)
      * We are scanning a maildrop file
      */
     if (file) {
      * We are scanning a maildrop file
      */
     if (file) {

-       if (nummsgs)
-           adios (NULL, "\"msgs\" not allowed with -file");
+       if (msgs.size)
+           die("\"msgs\" not allowed with -file");

        if (folder)
        if (folder)

-           adios (NULL, "\"+folder\" not allowed with -file");
+           die("\"+folder\" not allowed with -file");

 
        /* check if "file" is really stdin */
        if (strcmp (file, "-") == 0) {
 
        /* check if "file" is really stdin */
        if (strcmp (file, "-") == 0) {


@@ -208,19 +175,21 @@ main (int argc, char **argv)
                adios (file, "unable to open");
        }
 
                adios (file, "unable to open");
        }
 

-#ifndef        JLR

        if (hdrflag) {
            printf ("FOLDER %s\t%s\n", file, dtimenow (1));
        }
        if (hdrflag) {
            printf ("FOLDER %s\t%s\n", file, dtimenow (1));
        }

-#endif /* JLR */

 
 

-       m_unknown (in);
+       scan_detect_mbox_style (in);

        for (msgnum = 1; ; ++msgnum) {
        for (msgnum = 1; ; ++msgnum) {

+           charstring_t scanl = NULL;
+

            state = scan (in, msgnum, -1, nfs, width, 0, 0,
            state = scan (in, msgnum, -1, nfs, width, 0, 0,

-                   hdrflag ? file : NULL, 0L, 1);
+                         hdrflag ? file : NULL, 0L, 1, &scanl);
+           charstring_free (scanl);

            if (state != SCNMSG && state != SCNENC)
                break;
        }
            if (state != SCNMSG && state != SCNENC)
                break;
        }

+       scan_finished ();

        fclose (in);
        done (0);
     }
        fclose (in);
        done (0);
     }


@@ -229,8 +198,8 @@ main (int argc, char **argv)
      * We are scanning a folder
      */
 
      * We are scanning a folder
      */
 

-    if (!nummsgs)
-       msgs[nummsgs++] = "all";
+    if (!msgs.size)
+       app_msgarg(&msgs, "all");

     if (!folder)
        folder = getfolder (1);
     maildir = m_maildir (folder);
     if (!folder)
        folder = getfolder (1);
     maildir = m_maildir (folder);


@@ -239,16 +208,16 @@ main (int argc, char **argv)
        adios (maildir, "unable to change directory to");
 
     /* read folder and create message structure */
        adios (maildir, "unable to change directory to");
 
     /* read folder and create message structure */

-    if (!(mp = folder_read (folder)))
-       adios (NULL, "unable to read folder %s", folder);
+    if (!(mp = folder_read (folder, 1)))
+       die("unable to read folder %s", folder);

 
     /* check for empty folder */
     if (mp->nummsg == 0)
 
     /* check for empty folder */
     if (mp->nummsg == 0)

-       adios (NULL, "no messages in %s", folder);
+       die("no messages in %s", folder);

 
     /* parse all the message ranges/sequences and set SELECTED */
 
     /* parse all the message ranges/sequences and set SELECTED */

-    for (msgnum = 0; msgnum < nummsgs; msgnum++)
-       if (!m_convert (mp, msgs[msgnum]))
+    for (msgnum = 0; msgnum < msgs.size; msgnum++)
+       if (!m_convert (mp, msgs.msgs[msgnum]))

            done(1);
     seq_setprev (mp);                  /* set the Previous-Sequence */
 
            done(1);
     seq_setprev (mp);                  /* set the Previous-Sequence */
 


@@ -263,90 +232,73 @@ main (int argc, char **argv)
     if ((cp = context_find (usequence)) && *cp) {
        char **ap, *dp;
 
     if ((cp = context_find (usequence)) && *cp) {
        char **ap, *dp;
 

-       dp = getcpy(cp);
+       dp = mh_xstrdup(cp);

        ap = brkstring (dp, " ", "\n");
        for (i = 0; ap && *ap; i++, ap++)
        ap = brkstring (dp, " ", "\n");
        for (i = 0; ap && *ap; i++, ap++)

-           seqnum[i] = seq_getnum (mp, *ap);
+           ivector_push_back (seqnum, seq_getnum (mp, *ap));

 
        num_unseen_seq = i;
 
        num_unseen_seq = i;

-       if (dp)
-           free(dp);
+        free(dp);

     }
 
     ontty = isatty (fileno (stdout));
 
     }
 
     ontty = isatty (fileno (stdout));
 

-#ifdef LBL
-    else
-       fmt_current_folder = mp;
-#endif
-

     for (msgnum = revflag ? mp->hghsel : mp->lowsel;
         (revflag ? msgnum >= mp->lowsel : msgnum <= mp->hghsel);
         msgnum += (revflag ? -1 : 1)) {
        if (is_selected(mp, msgnum)) {
     for (msgnum = revflag ? mp->hghsel : mp->lowsel;
         (revflag ? msgnum >= mp->lowsel : msgnum <= mp->hghsel);
         msgnum += (revflag ? -1 : 1)) {
        if (is_selected(mp, msgnum)) {

+           charstring_t scanl = NULL;
+

            if ((in = fopen (cp = m_name (msgnum), "r")) == NULL) {
            if ((in = fopen (cp = m_name (msgnum), "r")) == NULL) {

-#if 0
-               if (errno != EACCES)
-#endif

                    admonish (cp, "unable to open message");
                    admonish (cp, "unable to open message");

-#if 0
-               else
-                   printf ("%*d  unreadable\n", DMAXFOLDER, msgnum);
-#endif

                continue;
            }
 
                continue;
            }
 

-#ifndef JLR

            if (hdrflag) {
                printf ("FOLDER %s\t%s\n", folder, dtimenow(1));
            }
            if (hdrflag) {
                printf ("FOLDER %s\t%s\n", folder, dtimenow(1));
            }

-#endif /* JLR */

 
            /*
             * Check if message is in any sequence given
             * by Unseen-Sequence profile entry.
             */
 
            /*
             * Check if message is in any sequence given
             * by Unseen-Sequence profile entry.
             */

-           unseen = 0;
+           unseen = false;

            for (i = 0; i < num_unseen_seq; i++) {
            for (i = 0; i < num_unseen_seq; i++) {

-               if (in_sequence(mp, seqnum[i], msgnum)) {
-                   unseen = 1;
+               if (in_sequence(mp, ivector_at (seqnum, i), msgnum)) {
+                   unseen = true;

                    break;
                }
            }
 
            switch (state = scan (in, msgnum, 0, nfs, width,
                        msgnum == mp->curmsg, unseen,
                    break;
                }
            }
 
            switch (state = scan (in, msgnum, 0, nfs, width,
                        msgnum == mp->curmsg, unseen,

-                       hdrflag ? folder : NULL, 0L, 1)) {
+                       folder, 0L, 1, &scanl)) {

                case SCNMSG: 
                case SCNENC: 
                case SCNERR: 
                    break;
 
                default: 
                case SCNMSG: 
                case SCNENC: 
                case SCNERR: 
                    break;
 
                default: 

-                   adios (NULL, "scan() botch (%d)", state);
+                   die("scan() botch (%d)", state);

 
                case SCNEOF: 
 
                case SCNEOF: 

-#if 0
-                   printf ("%*d  empty\n", DMAXFOLDER, msgnum);
-#else
-                   advise (NULL, "message %d: empty", msgnum);
-#endif
+                   inform("message %d: empty", msgnum);

                    break;
            }
                    break;
            }

-           hdrflag = 0;
+           charstring_free (scanl);
+           scan_finished ();
+           hdrflag = false;

            fclose (in);
            if (ontty)
                fflush (stdout);
        }
     }
 
            fclose (in);
            if (ontty)
                fflush (stdout);
        }
     }
 

-#ifdef LBL
-    seq_save (mp);     /* because formatsbr might have made changes */
-#endif
-
+    ivector_free (seqnum);

     folder_free (mp);  /* free folder/message structure */
     if (clearflag)
     folder_free (mp);  /* free folder/message structure */
     if (clearflag)

-       clear_screen ();
+       nmh_clear_screen ();

 
 

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

 }
 }