diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/uip/pick.c

   1 /* pick.c - select messages by content */
   2 #ifndef lint
   3 static char ident[] = "@(#)$Id: pick.c,v 1.4 1992/12/15 00:20:22 jromine Exp $";
   4 #endif  /*  lint */
   5
   6 #include "../h/mh.h"
   7 #include "../zotnet/tws.h"
   8 #include <stdio.h>
   9 #ifdef LOCALE
  10 #include        <locale.h>
  11 #endif
  12
  13 /* \f */
  14
  15 static struct swit switches[] = {
  16 #define ANDSW   0
  17     "and", 0,
  18 #define ORSW    1
  19     "or", 0,
  20 #define NOTSW   2
  21     "not", 0,
  22 #define LBRSW   3
  23     "lbrace", 0,
  24 #define RBRSW   4
  25     "rbrace", 0,
  26
  27 #define CCSW    5
  28     "cc  pattern", 0,
  29 #define DATESW  6
  30     "date  pattern", 0,
  31 #define FROMSW  7
  32     "from  pattern", 0,
  33 #define SRCHSW  8
  34     "search  pattern", 0,
  35 #define SUBJSW  9
  36     "subject  pattern", 0,
  37 #define TOSW    10
  38     "to  pattern", 0,
  39 #define OTHRSW  11
  40     "-othercomponent  pattern", 0,
  41 #define AFTRSW  12
  42     "after date", 0,
  43 #define BEFRSW  13
  44     "before date", 0,
  45 #define DATFDSW 14
  46     "datefield field", 5,
  47
  48 #define SEQSW   15
  49     "sequence name", 0,
  50 #define PUBLSW  16
  51     "public", 0,
  52 #define NPUBLSW 17
  53     "nopublic", 0,
  54 #define ZEROSW  18
  55     "zero", 0,
  56 #define NZEROSW 19
  57     "nozero", 0,
  58
  59 #define LISTSW  20
  60     "list", 0,
  61 #define NLISTSW 21
  62     "nolist", 0,
  63
  64 #define HELPSW  22
  65     "help", 4,
  66
  67     NULL, 0
  68 };
  69
  70 /* \f */
  71
  72 static int  listsw = 0;
  73
  74 /* \f */
  75
  76 /* ARGSUSED */
  77
  78 main (argc, argv)
  79 char   *argv[];
  80 {
  81     int     publicsw = -1,
  82             zerosw = 1,
  83             msgp = 0,
  84             seqp = 0,
  85             vecp = 0,
  86             lo,
  87             hi,
  88             msgnum;
  89     char   *maildir,
  90            *folder = NULL,
  91             buf[100],
  92            *cp,
  93           **ap,
  94           **argp,
  95            *arguments[MAXARGS],
  96            *msgs[MAXARGS],
  97            *seqs[NATTRS + 1],
  98            *vec[MAXARGS];
  99     struct msgs *mp;
 100     register FILE *fp;
 101
 102 #ifdef LOCALE
 103         setlocale(LC_ALL, "");
 104 #endif
 105     invo_name = r1bindex (argv[0], '/');
 106     if ((cp = m_find (invo_name)) != NULL) {
 107         ap = brkstring (cp = getcpy (cp), " ", "\n");
 108         ap = copyip (ap, arguments);
 109     }
 110     else
 111         ap = arguments;
 112     (void) copyip (argv + 1, ap);
 113     argp = arguments;
 114
 115 /* \f */
 116
 117     while (cp = *argp++) {
 118         if (*cp == '-') {
 119             if (*++cp == '-') {
 120                 vec[vecp++] = --cp;
 121                 goto pattern;
 122             }
 123             switch (smatch (cp, switches)) {
 124                 case AMBIGSW:
 125                     ambigsw (cp, switches);
 126                     done (1);
 127                 case UNKWNSW:
 128                     adios (NULLCP, "-%s unknown", cp);
 129                 case HELPSW:
 130                     (void) sprintf (buf, "%s [+folder] [msgs] [switches]",
 131                             invo_name);
 132                     help (buf, switches);
 133                     listsw = 0; /* HACK */
 134                     done (1);
 135
 136                 case CCSW:
 137                 case DATESW:
 138                 case FROMSW:
 139                 case SUBJSW:
 140                 case TOSW:
 141                 case DATFDSW:
 142                 case AFTRSW:
 143                 case BEFRSW:
 144                 case SRCHSW:
 145                     vec[vecp++] = --cp;
 146             pattern: ;
 147                     if (!(cp = *argp++))/* allow -xyz arguments */
 148                         adios (NULLCP, "missing argument to %s", argp[-2]);
 149                     vec[vecp++] = cp;
 150                     continue;
 151                 case OTHRSW:
 152                     adios (NULLCP, "internal error!");
 153
 154                 case ANDSW:
 155                 case ORSW:
 156                 case NOTSW:
 157                 case LBRSW:
 158                 case RBRSW:
 159                     vec[vecp++] = --cp;
 160                     continue;
 161
 162                 case SEQSW:
 163                     if (!(cp = *argp++) || *cp == '-')
 164                         adios (NULLCP, "missing argument to %s", argp[-2]);
 165                     if (seqp < NATTRS)
 166                         seqs[seqp++] = cp;
 167                     else
 168                         adios (NULLCP, "only %d sequences allowed!", NATTRS);
 169                     listsw = 0;
 170                     continue;
 171                 case PUBLSW:
 172                     publicsw = 1;
 173                     continue;
 174                 case NPUBLSW:
 175                     publicsw = 0;
 176                     continue;
 177                 case ZEROSW:
 178                     zerosw++;
 179                     continue;
 180                 case NZEROSW:
 181                     zerosw = 0;
 182                     continue;
 183
 184                 case LISTSW:
 185                     listsw++;
 186                     continue;
 187                 case NLISTSW:
 188                     listsw = 0;
 189                     continue;
 190             }
 191         }
 192         if (*cp == '+' || *cp == '@')
 193             if (folder)
 194                 adios (NULLCP, "only one folder at a time!");
 195             else
 196                 folder = path (cp + 1, *cp == '+' ? TFOLDER : TSUBCWF);
 197         else
 198             msgs[msgp++] = cp;
 199     }
 200     vec[vecp] = NULL;
 201
 202 /* \f */
 203
 204     if (!m_find ("path"))
 205         free (path ("./", TFOLDER));
 206     if (!msgp)
 207         msgs[msgp++] = "all";
 208     if (!folder)
 209         folder = m_getfolder ();
 210     maildir = m_maildir (folder);
 211
 212     if (chdir (maildir) == NOTOK)
 213         adios (maildir, "unable to change directory to");
 214     if (!(mp = m_gmsg (folder)))
 215         adios (NULLCP, "unable to read folder %s", folder);
 216     if (mp -> hghmsg == 0)
 217         adios (NULLCP, "no messages in %s", folder);
 218
 219     for (msgnum = 0; msgnum < msgp; msgnum++)
 220         if (!m_convert (mp, msgs[msgnum]))
 221             done (1);
 222     m_setseq (mp);
 223
 224     if (seqp == 0)
 225         listsw++;
 226     if (publicsw == -1)
 227         publicsw = mp -> msgflags & READONLY ? 0 : 1;
 228     if (publicsw && (mp -> msgflags & READONLY))
 229         adios (NULLCP, "folder %s is read-only, so -public not allowed",
 230                 folder);
 231
 232 /* \f */
 233
 234     if (!pcompile (vec, NULLCP))
 235         done (1);
 236
 237     lo = mp -> lowsel;
 238     hi = mp -> hghsel;
 239
 240     for (msgnum = mp -> lowsel; msgnum <= mp -> hghsel; msgnum++)
 241         if (mp -> msgstats[msgnum] & SELECTED) {
 242             if ((fp = fopen (cp = m_name (msgnum), "r")) == NULL)
 243                 admonish (cp, "unable to read message");
 244             if (fp && pmatches (fp, msgnum, 0L, 0L)) {
 245                 if (msgnum < lo)
 246                     lo = msgnum;
 247                 if (msgnum > hi)
 248                     hi = msgnum;
 249             }
 250             else {
 251                 mp -> msgstats[msgnum] &= ~SELECTED;
 252                 mp -> numsel--;
 253             }
 254             if (fp)
 255                 (void) fclose (fp);
 256         }
 257
 258     mp -> lowsel = lo;
 259     mp -> hghsel = hi;
 260
 261     if (mp -> numsel <= 0)
 262         adios (NULLCP, "no messages match specification");
 263
 264 /* \f */
 265
 266     seqs[seqp] = NULL;
 267     for (seqp = 0; seqs[seqp]; seqp++) {
 268         if (zerosw && !m_seqnew (mp, seqs[seqp], publicsw))
 269             done (1);
 270         for (msgnum = mp -> lowsel; msgnum <= mp -> hghsel; msgnum++)
 271             if (mp -> msgstats[msgnum] & SELECTED)
 272                 if (!m_seqadd (mp, seqs[seqp], msgnum, publicsw))
 273                     done (1);
 274     }
 275
 276     if (listsw) {
 277         for (msgnum = mp -> lowsel; msgnum <= mp -> hghsel; msgnum++)
 278             if (mp -> msgstats[msgnum] & SELECTED)
 279                 printf ("%s\n", m_name (msgnum));
 280     }
 281     else
 282         printf ("%d hit%s\n", mp -> numsel,
 283                 mp -> numsel == 1 ? "" : "s");
 284
 285     m_replace (pfolder, folder);
 286     m_sync (mp);
 287     m_update ();
 288
 289     done (0);
 290 }
 291
 292 /* \f */
 293
 294 void done (status)
 295 int     status;
 296 {
 297     if (listsw && status && !isatty (fileno (stdout)))
 298         printf ("0\n");
 299     exit (status);
 300 }