![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to scan.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / mh / uip|
Return to scan.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / mh / uip |
1.1 root 1: /* scan.c - display a one-line "scan" listing */
2:
3: #include "../h/mh.h"
4: #include "../h/formatsbr.h"
5: #include "../h/scansbr.h"
6: #include "../zotnet/tws.h"
7: #include <errno.h>
8: #include <stdio.h>
9:
10: /* */
11:
12: static struct swit switches[] = {
13: #define CLRSW 0
14: "clear", 0,
15: #define NCLRSW 1
16: "noclear", 0,
17:
18: #define FORMSW 2
19: "form formatfile", 0,
20: #define FMTSW 3
21: "format string", 5,
22:
23: #define HEADSW 4
24: "header", 0,
25: #define NHEADSW 5
26: "noheader", 0,
27:
28: #define WIDSW 6
29: "width columns", 0,
30:
31: #define REVSW 7
32: "reverse", 0,
33: #define NREVSW 8
34: "noreverse", 0,
35:
36: #define FILESW 9
37: "file file", 4,
38:
39: #define HELPSW 10
40: "help", 4,
41:
42: NULL, NULL
43: };
44:
45: /* */
46:
47: extern int errno;
48: extern struct msgs *fmt_current_folder;
49:
50:
51: void clear_screen();
52:
53: /* */
54:
55: /* ARGSUSED */
56:
57: main(argc, argv)
58: int argc;
59: char *argv[];
60: {
61: int clearflag = 0, hdrflag = 0, width = 0, msgp = 0,
62: ontty, state, msgnum;
63: register int revflag = 0, firstlim, lastlim, incr;
64: char *cp, *maildir, *file = NULL, *folder = NULL,
65: *form = NULL, *format = NULL, buf[100],
66: **ap, **argp, *nfs, *arguments[MAXARGS], *msgs[MAXARGS];
67: struct msgs *mp;
68: FILE *in;
69:
70: invo_name = r1bindex(argv[0], '/');
71: if ((cp = m_find(invo_name)) != NULL) {
72: ap = brkstring(cp = getcpy(cp), " ", "\n");
73: ap = copyip(ap, arguments);
74: } else
75: ap = arguments;
76: (void) copyip(argv + 1, ap);
77: argp = arguments;
78:
79: /* */
80:
81: while (cp = *argp++) {
82: if (*cp == '-')
83: switch (smatch(++cp, switches)) {
84:
85: case AMBIGSW:
86: ambigsw(cp, switches);
87: done(1);
88: case UNKWNSW:
89: adios(NULLCP, "-%s unknown", cp);
90: case HELPSW:
91: (void) sprintf(buf,
92: "%s [+folder] [msgs] [switches]",
93: invo_name);
94: help(buf, switches);
95: done(1);
96:
97: case CLRSW:
98: clearflag++;
99: continue;
100: case NCLRSW:
101: clearflag = 0;
102: continue;
103:
104: case FORMSW:
105: if (!(form = *argp++) || *form == '-')
106: adios(NULLCP,
107: "missing argument to %s", argp[-2]);
108: format = NULL;
109: continue;
110: case FMTSW:
111: if (!(format = *argp++) || *format == '-')
112: adios(NULLCP,
113: "missing argument to %s", argp[-2]);
114: form = NULL;
115: continue;
116:
117: case HEADSW:
118: hdrflag++;
119: continue;
120: case NHEADSW:
121: hdrflag = 0;
122: continue;
123:
124: case WIDSW:
125: if (!(cp = *argp++) || *cp == '-')
126: adios(NULLCP,
127: "missing argument to %s", argp[-2]);
128: width = atoi(cp);
129: continue;
130: case REVSW:
131: revflag++;
132: continue;
133: case NREVSW:
134: revflag = 0;
135: continue;
136: case FILESW:
137: if (!(cp = *argp++) || *cp == '-')
138: adios(NULLCP,
139: "missing argument to %s", argp[-2]);
140: file = path(cp, TFILE);
141: continue;
142: }
143: if (*cp == '+' || *cp == '@') {
144: if (folder)
145: adios(NULLCP, "only one folder at a time!");
146: else
147: folder = path(cp + 1,
148: *cp == '+' ? TFOLDER : TSUBCWF);
149: } else
150: msgs[msgp++] = cp;
151: }
152:
153:
154: if (!m_find("path"))
155: free(path("./", TFOLDER));
156: if (!msgp)
157: msgs[msgp++] = "all";
158: if (!folder)
159: folder = m_getfolder();
160: maildir = m_maildir(folder);
161:
162: if (chdir(maildir) == NOTOK)
163: adios(maildir, "unable to change directory to");
164: if (!(mp = m_gmsg(folder)))
165: adios(NULLCP, "unable to read folder %s", folder);
166: if (mp->hghmsg == 0)
167: adios(NULLCP, "no messages in %s", folder);
168:
169: for (msgnum = 0; msgnum < msgp; msgnum++)
170: if (!m_convert(mp, msgs[msgnum]))
171: done(1);
172: m_setseq(mp);
173:
174: m_replace(pfolder, folder);
175: m_sync(mp);
176: m_update();
177:
178: nfs = new_fs(form, format, FORMAT);
179:
180: ontty = isatty(fileno(stdout));
181:
182: if (file) {
183: /* we've been asked to scan a maildrop file */
184: in = fopen(file, "r");
185: if (in == NULL)
186: adios(NULLCP, "can't open %s (%d)", file, errno);
187:
188: m_unknown(in);
189: for (msgnum = 1;; ++msgnum) {
190: state = scan(in, msgnum, -1, nfs, width,
191: 0, hdrflag, 0L, 1, 0);
192: if (state != SCNMSG && state != SCNENC)
193: break;
194: }
195: fclose(in);
196: done(0);
197: } else
198: fmt_current_folder = mp;
199:
200: #ifdef BERK
201: if (revflag) {
202: firstlim = mp->hghsel;
203: lastlim = mp->lowsel;
204: incr = -1;
205: } else {
206: firstlim = mp->lowsel;
207: lastlim = mp->hghsel;
208: incr = 1;
209: }
210:
211: for (msgnum = firstlim;
212: (revflag ? msgnum >= lastlim : msgnum <= lastlim);
213: msgnum += incr)
214: #else
215: for (msgnum = mp->lowsel; msgnum <= mp->hghsel; msgnum++)
216: #endif
217: if (mp->msgstats[msgnum] & SELECTED) {
218: if ((in = fopen(cp = m_name(msgnum), "r")) == NULL) {
219: if (errno != EACCES)
220: admonish(cp, "unable to open message");
221: else
222: printf("%*d unreadable\n",
223: DMAXFOLDER, msgnum);
224: free(cp);
225: continue;
226: }
227: if (hdrflag)
228: printf("Folder %-32s%s\n\n",
229: folder, dtimenow());
230: switch (state = scan(in, msgnum, 0, nfs, width,
231: msgnum == mp->curmsg, hdrflag, 0L, 1, 0)) {
232: case SCNMSG:
233: case SCNENC:
234: case SCNERR:
235: break;
236:
237: default:
238: adios(NULLCP, "scan() botch (%d)", state);
239:
240: case SCNEOF:
241: printf("%*d empty\n", DMAXFOLDER, msgnum);
242: break;
243: }
244: hdrflag = 0;
245: (void) fclose(in);
246: if (ontty)
247: (void) fflush(stdout);
248: }
249: m_sync(mp);
250:
251: /* */
252:
253: if (clearflag)
254: clear_screen();
255:
256: done(0);
257: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.