diplodocus.org Git - nmh/blob - uip/scan.c

   1
   2 /*
   3  * scan.c -- display a one-line "scan" listing of folder or messages
   4  *
   5  * $Id$
   6  */
   7
   8 #include <h/mh.h>
   9 #include <h/fmt_scan.h>
  10 #include <h/scansbr.h>
  11 #include <zotnet/tws/tws.h>
  12 #include <errno.h>
  13
  14 /*
  15  * We allocate space for message names (msgs array)
  16  * this number of elements at a time.
  17  */
  18 #define MAXMSGS  256
  19
  20
  21 static struct swit switches[] = {
  22 #define CLRSW   0
  23     { "clear", 0 },
  24 #define NCLRSW  1
  25     { "noclear", 0 },
  26 #define FORMSW  2
  27     { "form formatfile", 0 },
  28 #define FMTSW   3
  29     { "format string", 5 },
  30 #define HEADSW  4
  31     { "header", 0 },
  32 #define NHEADSW 5
  33     { "noheader", 0 },
  34 #define WIDTHSW 6
  35     { "width columns", 0 },
  36 #define REVSW   7
  37     { "reverse", 0 },
  38 #define NREVSW  8
  39     { "noreverse", 0 },
  40 #define FILESW  9
  41     { "file file", 4 },
  42 #define VERSIONSW 10
  43     { "version", 0 },
  44 #define HELPSW  11
  45     { "help", 4 },
  46     { NULL, 0 }
  47 };
  48
  49 extern int errno;
  50
  51 /*
  52  * global for sbr/formatsbr.c - yech!
  53  */
  54 #ifdef LBL
  55 extern struct msgs *fmt_current_folder;
  56 #endif
  57
  58 /*
  59  * prototypes
  60  */
  61 void clear_screen(void);  /* from termsbr.c */
  62
  63
  64 int
  65 main (int argc, char **argv)
  66 {
  67     int clearflag = 0, hdrflag = 0, ontty;
  68     int width = 0, revflag = 0;
  69     int i, state, msgnum, nummsgs, maxmsgs;
  70     int seqnum[NUMATTRS], unseen, num_unseen_seq = 0;
  71     char *cp, *maildir, *file = NULL, *folder = NULL;
  72     char *form = NULL, *format = NULL, buf[BUFSIZ];
  73     char **argp, *nfs, **arguments, **msgs;
  74     struct msgs *mp;
  75     FILE *in;
  76
  77 #ifdef LOCALE
  78     setlocale(LC_ALL, "");
  79 #endif
  80     invo_name = r1bindex (argv[0], '/');
  81
  82     /* read user profile/context */
  83     context_read();
  84
  85     mts_init (invo_name);
  86     arguments = getarguments (invo_name, argc, argv, 1);
  87     argp = arguments;
  88
  89     /*
  90      * Allocate the initial space to record message
  91      * names, ranges, and sequences.
  92      */
  93     nummsgs = 0;
  94     maxmsgs = MAXMSGS;
  95     if (!(msgs = (char **) malloc ((size_t) (maxmsgs * sizeof(*msgs)))))
  96         adios (NULL, "unable to allocate storage");
  97
  98     /*
  99      * Parse arguments
 100      */
 101     while ((cp = *argp++)) {
 102         if (*cp == '-') {
 103             switch (smatch (++cp, switches)) {
 104                 case AMBIGSW:
 105                     ambigsw (cp, switches);
 106                     done (1);
 107                 case UNKWNSW:
 108                     adios (NULL, "-%s unknown", cp);
 109
 110                 case HELPSW:
 111                     snprintf (buf, sizeof(buf), "%s [+folder] [msgs] [switches]",
 112                         invo_name);
 113                     print_help (buf, switches, 1);
 114                     done (1);
 115                 case VERSIONSW:
 116                     print_version(invo_name);
 117                     done (1);
 118
 119                 case CLRSW:
 120                     clearflag++;
 121                     continue;
 122                 case NCLRSW:
 123                     clearflag = 0;
 124                     continue;
 125
 126                 case FORMSW:
 127                     if (!(form = *argp++) || *form == '-')
 128                         adios (NULL, "missing argument to %s", argp[-2]);
 129                     format = NULL;
 130                     continue;
 131                 case FMTSW:
 132                     if (!(format = *argp++) || *format == '-')
 133                         adios (NULL, "missing argument to %s", argp[-2]);
 134                     form = NULL;
 135                     continue;
 136
 137                 case HEADSW:
 138                     hdrflag++;
 139                     continue;
 140                 case NHEADSW:
 141                     hdrflag = 0;
 142                     continue;
 143
 144                 case WIDTHSW:
 145                     if (!(cp = *argp++) || *cp == '-')
 146                         adios (NULL, "missing argument to %s", argp[-2]);
 147                     width = atoi (cp);
 148                     continue;
 149                 case REVSW:
 150                     revflag++;
 151                     continue;
 152                 case NREVSW:
 153                     revflag = 0;
 154                     continue;
 155
 156                 case FILESW:
 157                     if (!(cp = *argp++) || (cp[0] == '-' && cp[1]))
 158                         adios (NULL, "missing argument to %s", argp[-2]);
 159                     if (strcmp (file = cp, "-"))
 160                         file = path (cp, TFILE);
 161                     continue;
 162             }
 163         }
 164         if (*cp == '+' || *cp == '@') {
 165             if (folder)
 166                 adios (NULL, "only one folder at a time!");
 167             else
 168                 folder = path (cp + 1, *cp == '+' ? TFOLDER : TSUBCWF);
 169         } else {
 170             /*
 171              * Check if we need to allocate more space
 172              * for message names/ranges/sequences.
 173              */
 174             if (nummsgs >= maxmsgs) {
 175                 maxmsgs += MAXMSGS;
 176                 if (!(msgs = (char **) realloc (msgs,
 177                         (size_t) (maxmsgs * sizeof(*msgs)))))
 178                     adios (NULL, "unable to reallocate msgs storage");
 179             }
 180             msgs[nummsgs++] = cp;
 181         }
 182     }
 183
 184     if (!context_find ("path"))
 185         free (path ("./", TFOLDER));
 186
 187     /*
 188      * Get new format string.  Must be before chdir().
 189      */
 190     nfs = new_fs (form, format, FORMAT);
 191
 192     /*
 193      * We are scanning a maildrop file
 194      */
 195     if (file) {
 196         if (nummsgs)
 197             adios (NULL, "\"msgs\" not allowed with -file");
 198         if (folder)
 199             adios (NULL, "\"+folder\" not allowed with -file");
 200
 201         /* check if "file" is really stdin */
 202         if (strcmp (file, "-") == 0) {
 203             in = stdin;
 204             file = "stdin";
 205         } else {
 206             if ((in = fopen (file, "r")) == NULL)
 207                 adios (file, "unable to open");
 208         }
 209
 210 #ifndef JLR
 211         if (hdrflag) {
 212             printf ("FOLDER %s\t%s\n", file, dtimenow (1));
 213         }
 214 #endif /* JLR */
 215
 216         m_unknown (in);
 217         for (msgnum = 1; ; ++msgnum) {
 218             state = scan (in, msgnum, -1, nfs, width, 0, 0,
 219                     hdrflag ? file : NULL, 0L, 1);
 220             if (state != SCNMSG && state != SCNENC)
 221                 break;
 222         }
 223         fclose (in);
 224         done (0);
 225     }
 226
 227     /*
 228      * We are scanning a folder
 229      */
 230
 231     if (!nummsgs)
 232         msgs[nummsgs++] = "all";
 233     if (!folder)
 234         folder = getfolder (1);
 235     maildir = m_maildir (folder);
 236
 237     if (chdir (maildir) == NOTOK)
 238         adios (maildir, "unable to change directory to");
 239
 240     /* read folder and create message structure */
 241     if (!(mp = folder_read (folder)))
 242         adios (NULL, "unable to read folder %s", folder);
 243
 244     /* check for empty folder */
 245     if (mp->nummsg == 0)
 246         adios (NULL, "no messages in %s", folder);
 247
 248     /* parse all the message ranges/sequences and set SELECTED */
 249     for (msgnum = 0; msgnum < nummsgs; msgnum++)
 250         if (!m_convert (mp, msgs[msgnum]))
 251             done(1);
 252     seq_setprev (mp);                   /* set the Previous-Sequence */
 253
 254     context_replace (pfolder, folder);  /* update current folder         */
 255     seq_save (mp);                      /* synchronize message sequences */
 256     context_save ();                    /* save the context file         */
 257
 258     /*
 259      * Get the sequence number for each sequence
 260      * specified by Unseen-Sequence
 261      */
 262     if ((cp = context_find (usequence)) && *cp) {
 263         char **ap, *dp;
 264
 265         dp = getcpy(cp);
 266         ap = brkstring (dp, " ", "\n");
 267         for (i = 0; ap && *ap; i++, ap++)
 268             seqnum[i] = seq_getnum (mp, *ap);
 269
 270         num_unseen_seq = i;
 271         if (dp)
 272             free(dp);
 273     }
 274
 275     ontty = isatty (fileno (stdout));
 276
 277 #ifdef LBL
 278     else
 279         fmt_current_folder = mp;
 280 #endif
 281
 282     for (msgnum = revflag ? mp->hghsel : mp->lowsel;
 283          (revflag ? msgnum >= mp->lowsel : msgnum <= mp->hghsel);
 284          msgnum += (revflag ? -1 : 1)) {
 285         if (is_selected(mp, msgnum)) {
 286             if ((in = fopen (cp = m_name (msgnum), "r")) == NULL) {
 287 #if 0
 288                 if (errno != EACCES)
 289 #endif
 290                     admonish (cp, "unable to open message");
 291 #if 0
 292                 else
 293                     printf ("%*d  unreadable\n", DMAXFOLDER, msgnum);
 294 #endif
 295                 continue;
 296             }
 297
 298 #ifndef JLR
 299             if (hdrflag) {
 300                 printf ("FOLDER %s\t%s\n", folder, dtimenow(1));
 301             }
 302 #endif /* JLR */
 303
 304             /*
 305              * Check if message is in any sequence given
 306              * by Unseen-Sequence profile entry.
 307              */
 308             unseen = 0;
 309             for (i = 0; i < num_unseen_seq; i++) {
 310                 if (in_sequence(mp, seqnum[i], msgnum)) {
 311                     unseen = 1;
 312                     break;
 313                 }
 314             }
 315
 316             switch (state = scan (in, msgnum, 0, nfs, width,
 317                         msgnum == mp->curmsg, unseen,
 318                         hdrflag ? folder : NULL, 0L, 1)) {
 319                 case SCNMSG:
 320                 case SCNENC:
 321                 case SCNERR:
 322                     break;
 323
 324                 default:
 325                     adios (NULL, "scan() botch (%d)", state);
 326
 327                 case SCNEOF:
 328 #if 0
 329                     printf ("%*d  empty\n", DMAXFOLDER, msgnum);
 330 #else
 331                     advise (NULL, "message %d: empty", msgnum);
 332 #endif
 333                     break;
 334             }
 335             hdrflag = 0;
 336             fclose (in);
 337             if (ontty)
 338                 fflush (stdout);
 339         }
 340     }
 341
 342 #ifdef LBL
 343     seq_save (mp);      /* because formatsbr might have made changes */
 344 #endif
 345
 346     folder_free (mp);   /* free folder/message structure */
 347     if (clearflag)
 348         clear_screen ();
 349
 350     done (0);
 351 }