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