Added MACHINES to EXTRA_DIST so that it gets put in the distribution.
[mmh] / 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 }