projects / unix-history / blob
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
BSD 4_4 release
[unix-history] / usr / src / contrib / mh-6.8 / uip / repl.c
/* repl.c - reply to a message */
#ifndef lint
static char ident[] = "@(#)$Id: repl.c,v 1.8 1992/12/15 00:20:22 jromine Exp $";
#endif /* lint */
#include "../h/mh.h"
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#ifdef LOCALE
#include <locale.h>
#endif
/* \f */
static struct swit switches[] = {
#define ANNOSW 0
"annotate", 0,
#define NANNOSW 1
"noannotate", 0,
#define CCSW 2
"cc type", 0,
#define NCCSW 3
"nocc type", 0,
#define DFOLDSW 4
"draftfolder +folder", 0,
#define DMSGSW 5
"draftmessage msg", 0,
#define NDFLDSW 6
"nodraftfolder", 0,
#define EDITRSW 7
"editor editor", 0,
#define NEDITSW 8
"noedit", 0,
#define FCCSW 9
"fcc folder", 0,
#define FILTSW 10
"filter filterfile", 0,
#define FORMSW 11
"form formfile", 0,
#define FRMTSW 12
"format", -5,
#define NFRMTSW 13
"noformat", -7,
#define INPLSW 14
"inplace", 0,
#define NINPLSW 15
"noinplace", 0,
#define QURYSW 16
"query", 0,
#define NQURYSW 17
"noquery", 0,
#define WHATSW 18
"whatnowproc program", 0,
#define NWHATSW 19
"nowhatnowproc", 0,
#define WIDTHSW 20
"width columns", 0,
#define HELPSW 21
"help", 4,
#define FILESW 22
"file file", -4, /* interface from msh */
#ifdef MHE
#define BILDSW 23
"build", -5, /* interface from mhe */
#endif /* MHE */
NULL, 0
};
static struct swit ccswitches[] = {
#define CTOSW 0
"to", 0,
#define CCCSW 1
"cc", 0,
#define CMESW 2
"me", 0,
#define CALSW 3
"all", 0,
NULL, 0
};
/* \f */
static struct swit aqrnl[] = {
#define NOSW 0
"quit", 0,
#define YESW 1
"replace", 0,
#define LISTDSW 2
"list", 0,
#define REFILSW 3
"refile +folder", 0,
#define NEWSW 4
"new", 0,
NULL, 0
};
static struct swit aqrl[] = {
"quit", 0,
"replace", 0,
"list", 0,
"refile +folder", 0,
NULL, 0
};
/* \f */
#ifndef ATHENA
#define CCDFLT 1
#else /* ATHENA */
#define CCDFLT 0
#endif /* ATHENA */
short ccto = CCDFLT; /* global for replsbr */
short cccc = CCDFLT;
short ccme = CCDFLT;
short format = 1;
short outputlinelen = OUTPUTLINELEN;
short querysw = 0;
char *fcc = NULL; /* global for replsbr */
char *filter = NULL;
char *form = NULL;
/* \f */
/* ARGSUSED */
main (argc, argv)
int argc;
char *argv[];
{
int i,
isdf = 0,
anot = 0,
inplace = 0,
#ifdef MHE
buildsw = 0,
#endif /* MHE */
nedit = 0,
nwhat = 0;
char *cp,
*cwd,
*dp,
*maildir,
*file = NULL,
*folder = NULL,
*msg = NULL,
*dfolder = NULL,
*dmsg = NULL,
*ed = NULL,
drft[BUFSIZ],
buf[100],
**ap,
**argp,
*arguments[MAXARGS];
struct msgs *mp = NULL;
struct stat st;
FILE *in;
#ifdef LOCALE
setlocale(LC_ALL, "");
#endif
invo_name = r1bindex (argv[0], '/');
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;
/* \f */
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] [msg] [switches]",
invo_name);
help (buf, switches);
done (0);
case ANNOSW:
anot++;
continue;
case NANNOSW:
anot = 0;
continue;
case CCSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULLCP, "missing argument to %s", argp[-2]);
docc (cp, 1);
continue;
case NCCSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULLCP, "missing argument to %s", argp[-2]);
docc (cp, 0);
continue;
case EDITRSW:
if (!(ed = *argp++) || *ed == '-')
adios (NULLCP, "missing argument to %s", argp[-2]);
nedit = 0;
continue;
case NEDITSW:
nedit++;
continue;
case WHATSW:
if (!(whatnowproc = *argp++) || *whatnowproc == '-')
adios (NULLCP, "missing argument to %s", argp[-2]);
nwhat = 0;
continue;
#ifdef MHE
case BILDSW:
buildsw++; /* fall... */
#endif /* MHE */
case NWHATSW:
nwhat++;
continue;
case FCCSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULLCP, "missing argument to %s", argp[-2]);
dp = NULL;
if (*cp == '@')
cp = dp = path (cp + 1, TSUBCWF);
if (fcc)
fcc = add (", ", fcc);
fcc = add (cp, fcc);
if (dp)
free (dp);
continue;
case FILESW:
if (file)
adios (NULLCP, "only one file at a time!");
if (!(cp = *argp++) || *cp == '-')
adios (NULLCP, "missing argument to %s", argp[-2]);
file = path (cp, TFILE);
continue;
case FILTSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULLCP, "missing argument to %s", argp[-2]);
filter = getcpy (libpath (cp));
continue;
case FORMSW:
if (!(form = *argp++) || *form == '-')
adios (NULLCP, "missing argument to %s", argp[-2]);
continue;
case FRMTSW:
format++;
continue;
case NFRMTSW:
format = 0;
continue;
case INPLSW:
inplace++;
continue;
case NINPLSW:
inplace = 0;
continue;
case QURYSW:
querysw++;
continue;
case NQURYSW:
querysw = 0;
continue;
case WIDTHSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULLCP, "missing argument to %s", argp[-2]);
if ((outputlinelen = atoi (cp)) < 10)
adios (NULLCP, "impossible width %d", outputlinelen);
continue;
case DFOLDSW:
if (dfolder)
adios (NULLCP, "only one draft folder at a time!");
if (!(cp = *argp++) || *cp == '-')
adios (NULLCP, "missing argument to %s", argp[-2]);
dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
*cp != '@' ? TFOLDER : TSUBCWF);
continue;
case DMSGSW:
if (dmsg)
adios (NULLCP, "only one draft message at a time!");
if (!(dmsg = *argp++) || *dmsg == '-')
adios (NULLCP, "missing argument to %s", argp[-2]);
continue;
case NDFLDSW:
dfolder = NULL;
isdf = NOTOK;
continue;
}
if (*cp == '+' || *cp == '@') {
if (folder)
adios (NULLCP, "only one folder at a time!");
else
folder = path (cp + 1, *cp == '+' ? TFOLDER : TSUBCWF);
}
else
if (msg)
adios (NULLCP, "only one message at a time!");
else
msg = cp;
}
/* \f */
cwd = getcpy (pwd ());
if (!m_find ("path"))
free (path ("./", TFOLDER));
if (file && (msg || folder))
adios (NULLCP, "can't mix files and folders/msgs");
try_it_again: ;
#ifndef MHE
(void) strcpy (drft, m_draft (dfolder, dmsg, NOUSE, &isdf));
if (stat (drft, &st) != NOTOK) {
#else /* MHE */
(void) strcpy (drft, buildsw ? m_maildir ("reply")
: m_draft (dfolder, NULLCP, NOUSE, &isdf));
if (!buildsw && stat (drft, &st) != NOTOK) {
#endif /* MHE */
printf ("Draft \"%s\" exists (%ld bytes).", drft, st.st_size);
for (i = LISTDSW; i != YESW;) {
if (!(argp = getans ("\nDisposition? ", isdf ? aqrnl : aqrl)))
done (1);
switch (i = smatch (*argp, isdf ? aqrnl : aqrl)) {
case NOSW:
done (0);
case NEWSW:
dmsg = NULL;
goto try_it_again;
case YESW:
break;
case LISTDSW:
(void) showfile (++argp, drft);
break;
case REFILSW:
if (refile (++argp, drft) == 0)
i = YESW;
break;
default:
advise (NULLCP, "say what?");
break;
}
}
}
/* \f */
if (file) {
anot = 0;
goto go_to_it;
}
if (!msg)
msg = "cur";
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);
if (!m_convert (mp, msg))
done (1);
m_setseq (mp);
if (mp -> numsel > 1)
adios (NULLCP, "only one message at a time!");
m_replace (pfolder, folder);
if (mp -> lowsel != mp -> curmsg)
m_setcur (mp, mp -> lowsel);
m_sync (mp);
m_update ();
go_to_it: ;
msg = file ? file : getcpy (m_name (mp -> lowsel));
if ((in = fopen (msg, "r")) == NULL)
adios (msg, "unable to open");
replout (in, msg, drft);
(void) fclose (in);
if (nwhat)
done (0);
(void) what_now (ed, nedit, NOUSE, drft, msg, 0, mp,
anot ? "Replied" : NULLCP, inplace, cwd);
done (1);
}
/* \f */
docc (cp, ccflag)
register char *cp;
int ccflag;
{
switch (smatch (cp, ccswitches)) {
case AMBIGSW:
ambigsw (cp, ccswitches);
done (1);
case UNKWNSW:
adios (NULLCP, "-%scc %s unknown", ccflag ? "" : "no", cp);
case CTOSW:
ccto = ccflag;
break;
case CCCSW:
cccc = ccflag;
break;
case CMESW:
ccme = ccflag;
break;
case CALSW:
ccto = cccc = ccme = ccflag;
break;
}
}
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.