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