Added MACHINES to EXTRA_DIST so that it gets put in the distribution.
[mmh] / docs / historical / mh-6.8.5 / uip / comp.c
1 /* comp.c - compose a message */
2 #ifndef lint
3 static char ident[] = "@(#)$Id: comp.c,v 1.7 1992/12/15 00:20:22 jromine Exp $";
4 #endif  /* lint */
5
6 #include "../h/mh.h"
7 #include <stdio.h>
8 #include <sys/types.h>
9 #include <sys/stat.h>
10 #ifdef LOCALE
11 #include        <locale.h>
12 #endif
13
14 /* \f */
15
16 static struct swit switches[] = {
17 #define DFOLDSW 0
18     "draftfolder +folder", 0,
19 #define DMSGSW  1
20     "draftmessage msg", 0,
21 #define NDFLDSW 2
22     "nodraftfolder", 0,
23
24 #define EDITRSW 3
25     "editor editor", 0,
26 #define NEDITSW 4
27     "noedit", 0,
28
29 #define FILESW  5
30     "file file", 0,
31 #define FORMSW  6
32     "form formfile", 0,
33
34 #define USESW   7
35     "use", 0,
36 #define NUSESW  8
37     "nouse", 0,
38
39 #define WHATSW  9
40     "whatnowproc program", 0,
41 #define NWHATSW 10
42     "nowhatnowproc", 0,
43
44 #define HELPSW  11
45     "help", 4,
46
47
48     NULL, 0
49 };
50
51 /* \f */
52
53 static struct swit aqrunl[] = {
54 #define NOSW    0
55     "quit", 0,
56 #define YESW    1
57     "replace", 0,
58 #define USELSW  2
59     "use", 0,
60 #define LISTDSW 3
61     "list", 0,
62 #define REFILSW 4
63     "refile +folder", 0,
64 #define NEWSW   5
65     "new", 0,
66
67     NULL, 0
68 };
69
70
71 static struct swit aqrul[] = {
72     "quit", 0,
73     "replace", 0,
74     "use", 0,
75     "list", 0,
76     "refile", 0,
77
78     NULL, 0
79 };
80
81 /* \f */
82
83 /* ARGSUSED */
84
85 main (argc, argv)
86 int     argc;
87 char   *argv[];
88 {
89     int     use = NOUSE,
90             nedit = 0,
91             nwhat = 0,
92             i,
93             in,
94             isdf = 0,
95             out;
96     char   *cp,
97            *cwd,
98            *maildir,
99            *dfolder = NULL,
100            *ed = NULL,
101            *file = NULL,
102            *form = NULL,
103            *folder = NULL,
104            *msg = NULL,
105             buf[BUFSIZ],
106             drft[BUFSIZ],
107           **ap,
108           **argp,
109            *arguments[MAXARGS];
110     struct msgs *mp = NULL;
111     struct stat st;
112
113 #ifdef LOCALE
114         setlocale(LC_ALL, "");
115 #endif
116     invo_name = r1bindex (argv[0], '/');
117     if ((cp = m_find (invo_name)) != NULL) {
118         ap = brkstring (cp = getcpy (cp), " ", "\n");
119         ap = copyip (ap, arguments);
120     }
121     else
122         ap = arguments;
123     (void) copyip (argv + 1, ap);
124     argp = arguments;
125
126 /* \f */
127
128     while (cp = *argp++) {
129         if (*cp == '-')
130             switch (smatch (++cp, switches)) {
131                 case AMBIGSW: 
132                     ambigsw (cp, switches);
133                     done (1);
134                 case UNKWNSW: 
135                     adios (NULLCP, "-%s unknown", cp);
136                 case HELPSW: 
137                     (void) sprintf (buf, "%s [+folder] [msg] [switches]",
138                             invo_name);
139                     help (buf, switches);
140                     done (1);
141
142                 case EDITRSW: 
143                     if (!(ed = *argp++) || *ed == '-')
144                         adios (NULLCP, "missing argument to %s", argp[-2]);
145                     nedit = 0;
146                     continue;
147                 case NEDITSW: 
148                     nedit++;
149                     continue;
150
151                 case WHATSW: 
152                     if (!(whatnowproc = *argp++) || *whatnowproc == '-')
153                         adios (NULLCP, "missing argument to %s", argp[-2]);
154                     nwhat = 0;
155                     continue;
156                 case NWHATSW: 
157                     nwhat++;
158                     continue;
159
160                 case FORMSW: 
161                     if (!(form = *argp++) || *form == '-')
162                         adios (NULLCP, "missing argument to %s", argp[-2]);
163                     continue;
164
165                 case USESW: 
166                     use++;
167                     continue;
168                 case NUSESW: 
169                     use = NOUSE;
170                     continue;
171
172                 case FILESW:    /* compatibility */
173                     if (file)
174                         adios (NULLCP, "only one file at a time!");
175                     if (!(file = *argp++) || *file == '-')
176                         adios (NULLCP, "missing argument to %s", argp[-2]);
177                     isdf = NOTOK;
178                     continue;
179
180                 case DFOLDSW: 
181                     if (dfolder)
182                         adios (NULLCP, "only one draft folder at a time!");
183                     if (!(cp = *argp++) || *cp == '-')
184                         adios (NULLCP, "missing argument to %s", argp[-2]);
185                     dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
186                             *cp != '@' ? TFOLDER : TSUBCWF);
187                     continue;
188                 case DMSGSW: 
189                     if (file)
190                         adios (NULLCP, "only one draft message at a time!");
191                     if (!(file = *argp++) || *file == '-')
192                         adios (NULLCP, "missing argument to %s", argp[-2]);
193                     continue;
194                 case NDFLDSW: 
195                     dfolder = NULL;
196                     isdf = NOTOK;
197                     continue;
198             }
199         if (*cp == '+' || *cp == '@') {
200             if (folder)
201                 adios (NULLCP, "only one folder at a time!");
202             else
203                 folder = path (cp + 1, *cp == '+' ? TFOLDER : TSUBCWF);
204         }
205         else
206             if (msg)
207                 adios (NULLCP, "only one message at a time!");
208             else
209                 msg = cp;
210     }
211
212 /* \f */
213
214     cwd = getcpy (pwd ());
215
216     if (!m_find ("path"))
217         free (path ("./", TFOLDER));
218
219     if ((dfolder || m_find ("Draft-Folder")) && !folder && msg && !file)
220         file = msg, msg = NULL;
221     if (form && (folder || msg))
222             adios (NULLCP, "can't mix forms and folders/msgs");
223
224     if (folder || msg) {
225         if (!msg)
226             msg = "cur";
227         if (!folder)
228             folder = m_getfolder ();
229         maildir = m_maildir (folder);
230
231         if (chdir (maildir) == NOTOK)
232             adios (maildir, "unable to change directory to");
233         if (!(mp = m_gmsg (folder)))
234             adios (NULLCP, "unable to read folder %s", folder);
235         if (mp -> hghmsg == 0)
236             adios (NULLCP, "no messages in %s", folder);
237
238         if (!m_convert (mp, msg))
239             done (1);
240         m_setseq (mp);
241
242         if (mp -> numsel > 1)
243             adios (NULLCP, "only one message at a time!");
244
245         if ((in = open (form = getcpy (m_name (mp -> lowsel)), 0)) == NOTOK)
246             adios (form, "unable to open message");
247     }
248     else
249         if (form) {
250             if ((in = open (libpath (form), 0)) == NOTOK)
251                 adios (form, "unable to open form file");
252         }
253         else {
254             if ((in = open (libpath (components), 0)) == NOTOK)
255                 adios (components, "unable to open default components file");
256             form = components;
257         }
258
259 /* \f */
260
261 try_it_again: ;
262     (void) strcpy (drft, m_draft (dfolder, file, use, &isdf));
263     if ((out = open (drft, 0)) != NOTOK) {
264         i = fdcompare (in, out);
265         (void) close (out);
266         if (use || i)
267             goto edit_it;
268
269         if (stat (drft, &st) == NOTOK)
270             adios (drft, "unable to stat");
271         printf ("Draft \"%s\" exists (%ld bytes).", drft, st.st_size);
272         for (i = LISTDSW; i != YESW;) {
273             if (!(argp = getans ("\nDisposition? ", isdf ? aqrunl : aqrul)))
274                 done (1);
275             switch (i = smatch (*argp, isdf ? aqrunl : aqrul)) {
276                 case NOSW: 
277                     done (0);
278                 case NEWSW: 
279                     file = NULL;
280                     use = NOUSE;
281                     goto try_it_again;
282                 case YESW: 
283                     break;
284                 case USELSW:
285                     use++;
286                     goto edit_it;
287                 case LISTDSW: 
288                     (void) showfile (++argp, drft);
289                     break;
290                 case REFILSW: 
291                     if (refile (++argp, drft) == 0)
292                         i = YESW;
293                     break;
294                 default: 
295                     advise (NULLCP, "say what?");
296                     break;
297             }
298         }
299     }
300     else
301         if (use)
302             adios (drft, "unable to open");
303
304     if ((out = creat (drft, m_gmprot ())) == NOTOK)
305         adios (drft, "unable to create");
306     cpydata (in, out, form, drft);
307     (void) close (in);
308     (void) close (out);
309
310 edit_it: ;
311     m_update ();
312
313     if (nwhat)
314         done (0);
315     (void) what_now (ed, nedit, use, drft, NULLCP, 0, NULLMP, NULLCP, 0, cwd);
316     done (1);
317 }