/* scan.c - display a one-line "scan" listing */ #ifndef lint static char ident[] = "@(#)scan.c,v 1.1.1.1 1993/01/30 04:41:38 jtc Exp"; #endif /* lint */ #include "../h/mh.h" #include "../h/formatsbr.h" #include "../h/scansbr.h" #include "../zotnet/tws.h" #include #include #ifdef LOCALE #include #endif /* */ static struct swit switches[] = { #define CLRSW 0 "clear", 0, #define NCLRSW 1 "noclear", 0, #define FORMSW 2 "form formatfile", 0, #define FMTSW 3 "format string", 5, #define HEADSW 4 "header", 0, #define NHEADSW 5 "noheader", 0, #define WIDSW 6 "width columns", 0, #define REVSW 7 "reverse", 0, #define NREVSW 8 "noreverse", 0, #define FILESW 9 "file file", 4, #define HELPSW 10 "help", 4, NULL, 0 }; /* */ extern int errno; #ifdef LBL /* global for sbr/formatsbr.c - yech! */ extern struct msgs *fmt_current_folder; #endif void clear_screen (); /* */ /* ARGSUSED */ main (argc, argv) int argc; char *argv[]; { int clearflag = 0, hdrflag = 0, revflag = 0, /* used to be #ifdef BERK */ width = 0, msgp = 0, bits, /* should match mp->msgstats[] type */ ontty, state, msgnum; long clock; char *cp, *maildir, *file = NULL, *folder = NULL, *form = NULL, *format = NULL, buf[100], **ap, **argp, *nfs, *arguments[MAXARGS], *msgs[MAXARGS]; struct msgs *mp; FILE * in; #ifdef LOCALE setlocale(LC_ALL, ""); #endif invo_name = r1bindex (argv[0], '/'); mts_init (invo_name); if ((cp = m_find (invo_name)) != NULL) { ap = brkstring (cp = getcpy (cp), " ", "\n"); ap = copyip (ap, arguments); } else ap = arguments; (void) copyip (argv + 1, ap); argp = arguments; /* */ while (cp = *argp++) { if (*cp == '-') switch (smatch (++cp, switches)) { case AMBIGSW: ambigsw (cp, switches); done (1); case UNKWNSW: adios (NULLCP, "-%s unknown", cp); case HELPSW: (void) sprintf (buf, "%s [+folder] [msgs] [switches]", invo_name); help (buf, switches); done (1); case CLRSW: clearflag++; continue; case NCLRSW: clearflag = 0; continue; case FORMSW: if (!(form = *argp++) || *form == '-') adios (NULLCP, "missing argument to %s", argp[-2]); format = NULL; continue; case FMTSW: if (!(format = *argp++) || *format == '-') adios (NULLCP, "missing argument to %s", argp[-2]); form = NULL; continue; case HEADSW: hdrflag++; continue; case NHEADSW: hdrflag = 0; continue; case WIDSW: if (!(cp = *argp++) || *cp == '-') adios (NULLCP, "missing argument to %s", argp[-2]); width = atoi (cp); continue; case REVSW: revflag++; continue; case NREVSW: revflag = 0; continue; case FILESW: if (!(cp = *argp++) || (cp[0] == '-' && cp[1])) adios (NULLCP, "missing argument to %s", argp[-2]); if (strcmp (file = cp, "-")) file = path (cp, TFILE); continue; } if (*cp == '+' || *cp == '@') { if (folder) adios (NULLCP, "only one folder at a time!"); else folder = path (cp + 1, *cp == '+' ? TFOLDER : TSUBCWF); } else msgs[msgp++] = cp; } if (!m_find ("path")) free (path ("./", TFOLDER)); nfs = new_fs (form, format, FORMAT); /* must be before chdir() */ if (file) { if (msgp) adios (NULLCP, "\"msgs\" not allowed with -file"); if (folder) adios (NULLCP, "\"+folder\" not allowed with -file"); /* we've been asked to scan a maildrop file */ if (strcmp (file, "-")) { in = fopen (file, "r"); if (in == NULL) adios (file, "unable to open"); } else { in = stdin; file = "stdin"; } #ifndef JLR if (hdrflag) { (void) time (&clock); printf ("Folder %-32s%s\n\n", file, dasctime (dlocaltime (&clock), TW_NULL)); } #endif /* JLR */ m_unknown (in); for (msgnum = 1; ; ++msgnum) { state = scan (in, msgnum, -1, nfs, width, 0, 0, hdrflag ? file : (char *)0, 0L, 1); if (state != SCNMSG && state != SCNENC) break; } fclose (in); done (0); } if (!msgp) msgs[msgp++] = "all"; if (!folder) folder = m_getfolder (); maildir = m_maildir (folder); if (chdir (maildir) == NOTOK) adios (maildir, "unable to change directory to"); if (!(mp = m_gmsg (folder))) adios (NULLCP, "unable to read folder %s", folder); if (mp -> hghmsg == 0) adios (NULLCP, "no messages in %s", folder); for (msgnum = 0; msgnum < msgp; msgnum++) if (!m_convert (mp, msgs[msgnum])) done(1); m_setseq (mp); m_replace (pfolder, folder); m_sync (mp); m_update (); if (cp = m_find(usequence)) { /* set bits for each unseen sequence */ char *dp = NULL; bits = 0; for (ap = brkstring(dp = getcpy(cp), " ", "\n"); ap && *ap; ap++) bits |= m_seqflag(mp, *ap); if (dp) free(dp); } ontty = isatty (fileno (stdout)); #ifdef LBL else fmt_current_folder = mp; #endif /* */ for (msgnum = revflag ? mp -> hghsel : mp -> lowsel; (revflag ? msgnum >= mp -> lowsel : msgnum <= mp -> hghsel); msgnum += revflag ? (-1) : 1) if (mp -> msgstats[msgnum] & SELECTED) { if ((in = fopen (cp = m_name (msgnum), "r")) == NULL) { #ifdef notdef if (errno != EACCES) #endif admonish (cp, "unable to open message"); #ifdef notdef else printf ("%*d unreadable\n", DMAXFOLDER, msgnum); #endif continue; } #ifndef JLR if (hdrflag) { (void) time (&clock); printf ("Folder %-32s%s\n\n", folder, dasctime (dlocaltime (&clock), TW_NULL)); } #endif /* JLR */ switch (state = scan (in, msgnum, 0, nfs, width, msgnum == mp -> curmsg, mp -> msgstats[msgnum] & bits, hdrflag ? folder : (char *)0, 0L, 1)) { case SCNMSG: case SCNENC: case SCNERR: break; default: adios (NULLCP, "scan() botch (%d)", state); case SCNEOF: #ifdef notdef printf ("%*d empty\n", DMAXFOLDER, msgnum); #else advise (NULLCP, "message %d: empty", msgnum); #endif break; } hdrflag = 0; (void) fclose (in); if (ontty) (void) fflush (stdout); } #ifdef LBL m_sync (mp); /* because formatsbr might have made changes */ #endif /* */ if (clearflag) clear_screen (); done (0); }