Mercurial > hg > xemacs-beta
annotate lib-src/fakemail.c @ 4874:4c3f5e1ecbeb
ChangeLog for previous patch: regenerate intl-auto-encap-win32.c
(fix build problems when building --with-msw=no on Cygwin)
-------------------- ChangeLog entries follow: --------------------
lib-src/ChangeLog addition:
2010-01-15 Ben Wing <ben@xemacs.org>
* make-mswin-unicode.pl:
Various fixes to get this to work when using the Cygwin header files
in /usr/include/w32api instead of the VC++ ones:
-- Use /usr/include/w32api as default; don't assume that a passed-in
directory always ends in .../include.
-- Add `const' to list of known type modifiers.
-- If function already seen, warn but don't generate twice.
-- Eliminate `extern' from return type modifiers.
-- Cosmetic: When eliminating APIENTRY, also eliminate following
whitespace.
src/ChangeLog addition:
2010-01-15 Ben Wing <ben@xemacs.org>
* intl-auto-encap-win32.c:
* intl-auto-encap-win32.c (qxeExtractAssociatedIcon):
* intl-auto-encap-win32.c (qxeShellExecuteEx):
* intl-auto-encap-win32.c (qxeSHFileOperation):
* intl-auto-encap-win32.c (qxeSHQueryRecycleBin):
* intl-auto-encap-win32.c (qxeSHEmptyRecycleBin):
* intl-auto-encap-win32.c (qxeWNetAddConnection):
* intl-auto-encap-win32.c (qxeWNetAddConnection2):
* intl-auto-encap-win32.c (qxeWNetAddConnection3):
* intl-auto-encap-win32.c (qxeWNetCancelConnection):
* intl-auto-encap-win32.c (qxeWNetCancelConnection2):
* intl-auto-encap-win32.c (qxeWNetGetConnection):
* intl-auto-encap-win32.c (qxeWNetUseConnection):
* intl-auto-encap-win32.c (qxeWNetConnectionDialog1):
* intl-auto-encap-win32.c (qxeWNetDisconnectDialog1):
* intl-auto-encap-win32.c (qxeWNetOpenEnum):
* intl-auto-encap-win32.c (qxeWNetEnumResource):
* intl-auto-encap-win32.c (qxeWNetGetUniversalName):
* intl-auto-encap-win32.c (qxeWNetGetUser):
* intl-auto-encap-win32.c (qxeWNetGetProviderName):
* intl-auto-encap-win32.c (qxeWNetGetNetworkInformation):
* intl-auto-encap-win32.c (qxeWNetGetLastError):
* intl-auto-encap-win32.c (qxeMultinetGetConnectionPerformance):
* intl-auto-encap-win32.c (qxeAppendMenu):
* intl-auto-encap-win32.c (qxeCopyAcceleratorTable):
* intl-auto-encap-win32.c (qxeDlgDirSelectComboBoxEx):
* intl-auto-encap-win32.c (qxeEnumDesktops):
* intl-auto-encap-win32.c (qxeEnumWindowStations):
* intl-auto-encap-win32.c (qxeGetClassInfo):
* intl-auto-encap-win32.c (qxeGetClassLong):
* intl-auto-encap-win32.c (qxeGetClassName):
* intl-auto-encap-win32.c (qxeGetKeyboardLayoutName):
* intl-auto-encap-win32.c (qxeGetWindowLong):
* intl-auto-encap-win32.c (qxeGetUserObjectInformation):
* intl-auto-encap-win32.c (qxeGetWindowTextLength):
* intl-auto-encap-win32.c (qxeGrayString):
* intl-auto-encap-win32.c (qxeInsertMenu):
* intl-auto-encap-win32.c (qxeSetProp):
* intl-auto-encap-win32.c (qxeEnumICMProfiles):
* intl-auto-encap-win32.c (qxeExtTextOut):
* intl-auto-encap-win32.c (qxeSetICMProfile):
* intl-auto-encap-win32.c (qxeTextOut):
* intl-auto-encap-win32.c (qxeSHGetPathFromIDList):
* intl-auto-encap-win32.c (qxeFindText):
* intl-auto-encap-win32.c (qxeReplaceText):
* intl-auto-encap-win32.c (qxeImmInstallIME):
* intl-auto-encap-win32.c (qxeImmGetDescription):
* intl-auto-encap-win32.c (qxeImmGetIMEFileName):
* intl-auto-encap-win32.c (qxeImmGetCompositionString):
* intl-auto-encap-win32.c (qxeImmGetCandidateListCount):
* intl-auto-encap-win32.c (qxeImmGetCandidateList):
* intl-auto-encap-win32.c (qxeImmGetGuideLine):
* intl-auto-encap-win32.c (qxeImmConfigureIME):
* intl-auto-encap-win32.c (qxeImmEscape):
* intl-auto-encap-win32.c (qxeImmGetConversionList):
* intl-auto-encap-win32.c (qxeImmRegisterWord):
* intl-auto-encap-win32.c (qxeImmUnregisterWord):
* intl-auto-encap-win32.c (qxeImmEnumRegisterWord):
* intl-auto-encap-win32.c (qxesndPlaySound):
* intl-auto-encap-win32.c (qxePlaySound):
* intl-auto-encap-win32.c (qxewaveOutGetErrorText):
* intl-auto-encap-win32.c (qxewaveInGetErrorText):
* intl-auto-encap-win32.c (qxemidiOutGetErrorText):
* intl-auto-encap-win32.c (qxemidiInGetErrorText):
* intl-auto-encap-win32.c (qxemmioStringToFOURCC):
* intl-auto-encap-win32.c (qxemmioInstallIOProc):
* intl-auto-encap-win32.c (qxemmioOpen):
* intl-auto-encap-win32.c (qxemmioRename):
* intl-auto-encap-win32.c (qxemciSendCommand):
* intl-auto-encap-win32.c (qxemciSendString):
* intl-auto-encap-win32.c (qxemciGetDeviceID):
* intl-auto-encap-win32.c (qxemciGetErrorString):
* intl-auto-encap-win32.h:
* intl-auto-encap-win32.h (qxemciGetErrorString):
Regenerate these files from Cygwin headers.
* intl-encap-win32.c:
Bracket more functions in HAVE_MS_WINDOWS, to fix build problems
when building --with-msw=no on Cygwin.
Fixes for Cygwin headers:
-- Comment out IME.H, non-existent in Cygwin.
-- Make MessageBoxIndirect a `no' (don't encapsulate but generate
error if used) because it has a structure parameter that needs
to be A/W split but is declared as FOO*, and our parser can't
split this.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Fri, 15 Jan 2010 05:12:07 -0600 |
| parents | aa5ed11f473b |
| children | 8b63e21b0436 |
| rev | line source |
|---|---|
| 428 | 1 /* sendmail-like interface to /bin/mail for system V, |
| 2 Copyright (C) 1985, 1994 Free Software Foundation, Inc. | |
| 3 | |
| 613 | 4 This file is part of XEmacs. |
| 428 | 5 |
| 613 | 6 XEmacs is free software; you can redistribute it and/or modify |
| 428 | 7 it under the terms of the GNU General Public License as published by |
| 8 the Free Software Foundation; either version 2, or (at your option) | |
| 9 any later version. | |
| 10 | |
| 613 | 11 XEmacs is distributed in the hope that it will be useful, |
| 428 | 12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 14 GNU General Public License for more details. | |
| 15 | |
| 16 You should have received a copy of the GNU General Public License | |
| 613 | 17 along with XEmacs; see the file COPYING. If not, write to |
| 428 | 18 the Free the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
| 19 Boston, MA 02111-1307, USA. */ | |
| 20 | |
| 21 /* Synched up with: FSF 19.28. */ | |
| 22 | |
| 23 #define NO_SHORTNAMES | |
| 438 | 24 #include <config.h> |
| 428 | 25 |
| 26 #if defined (BSD) && !defined (BSD4_1) && !defined (USE_FAKEMAIL) | |
| 27 /* This program is not used in BSD, so just avoid loader complaints. */ | |
| 28 int | |
| 29 main (int argc, char *argv[]) | |
| 30 { | |
| 31 return 0; | |
| 32 } | |
| 33 #elif defined (LINUX) | |
| 34 #include <stdio.h> | |
| 35 #include <stdlib.h> | |
| 36 int | |
| 2509 | 37 main (int argc, char *argv[]) |
| 428 | 38 { |
| 39 /* Linux /bin/mail, if it exists, is NOT the Unix v7 mail that | |
| 40 fakemail depends on! This causes garbled mail. Better to | |
| 41 output an error message. */ | |
| 42 fprintf (stderr, "Sorry, fakemail does not work on Linux.\n"); | |
| 43 fprintf (stderr, "Make sure you have the sendmail program, and\n"); | |
| 44 fprintf (stderr, "set the Lisp variable `sendmail-program' to point\n"); | |
| 45 fprintf (stderr, "to the path of the sendmail binary.\n"); | |
| 46 return 1; | |
| 47 } | |
| 48 #else /* not BSD 4.2 (or newer) */ | |
| 49 | |
| 50 /* These are defined in config in some versions. */ | |
| 51 | |
| 52 #ifdef static | |
| 53 #undef static | |
| 54 #endif | |
| 55 | |
| 56 #ifdef read | |
| 57 #undef read | |
| 58 #undef write | |
| 59 #undef open | |
| 60 #undef close | |
| 61 #endif | |
| 62 | |
| 63 #include <stdio.h> | |
| 64 #if __STDC__ || defined(STDC_HEADERS) | |
| 65 #include <stdlib.h> | |
| 66 #include <unistd.h> | |
| 67 #endif | |
| 68 #include <string.h> | |
| 69 #include <ctype.h> | |
| 70 #include <time.h> | |
| 71 #include <pwd.h> | |
| 72 | |
| 73 /* Type definitions */ | |
| 74 | |
| 75 #define boolean int | |
| 76 #define true 1 | |
| 77 #define false 0 | |
| 78 | |
| 79 /* Various lists */ | |
| 80 | |
| 81 struct line_record | |
| 82 { | |
| 83 char *string; | |
| 84 struct line_record *continuation; | |
| 85 }; | |
| 86 typedef struct line_record *line_list; | |
| 87 | |
| 88 struct header_record | |
| 89 { | |
| 90 line_list text; | |
| 91 struct header_record *next; | |
| 92 struct header_record *previous; | |
| 93 }; | |
| 94 typedef struct header_record *header; | |
| 95 | |
| 96 struct stream_record | |
| 97 { | |
| 98 FILE *handle; | |
| 99 int (*action)(FILE *); | |
| 100 struct stream_record *rest_streams; | |
| 101 }; | |
| 102 typedef struct stream_record *stream_list; | |
| 103 | |
| 104 /* A `struct linebuffer' is a structure which holds a line of text. | |
| 105 * `readline' reads a line from a stream into a linebuffer | |
| 106 * and works regardless of the length of the line. | |
| 107 */ | |
| 108 | |
| 109 struct linebuffer | |
| 110 { | |
| 440 | 111 size_t size; |
| 428 | 112 char *buffer; |
| 113 }; | |
| 114 | |
| 115 struct linebuffer lb; | |
| 116 | |
| 117 #define new_list() \ | |
| 118 ((line_list) xmalloc (sizeof (struct line_record))) | |
| 119 #define new_header() \ | |
| 120 ((header) xmalloc (sizeof (struct header_record))) | |
| 121 #define new_stream() \ | |
| 122 ((stream_list) xmalloc (sizeof (struct stream_record))) | |
| 123 #define alloc_string(nchars) \ | |
| 124 ((char *) xmalloc ((nchars) + 1)) | |
| 125 | |
| 126 /* Global declarations */ | |
| 127 | |
| 128 #define BUFLEN 1024 | |
| 129 #define KEYWORD_SIZE 256 | |
| 130 #define FROM_PREFIX "From" | |
| 131 #define MY_NAME "fakemail" | |
| 132 #define NIL ((line_list) NULL) | |
| 133 #define INITIAL_LINE_SIZE 200 | |
| 134 #define MAIL_PROGRAM_NAME "/bin/mail" | |
| 135 | |
| 442 | 136 static const char *my_name; |
| 428 | 137 static char *the_date; |
| 138 static char *the_user; | |
| 139 static line_list file_preface; | |
| 140 static stream_list the_streams; | |
| 141 static boolean no_problems = true; | |
| 142 | |
| 143 #if !__STDC__ && !defined(STDC_HEADERS) | |
| 144 extern FILE *popen (); | |
| 145 extern int fclose (), pclose (); | |
| 146 extern char *malloc (), *realloc (); | |
| 147 #endif | |
| 148 | |
| 2687 | 149 #if defined(__FreeBSD_version) && __FreeBSD_version >= 400000 |
| 150 #define CURRENT_USER | |
| 151 #endif | |
| 152 | |
| 428 | 153 #ifdef CURRENT_USER |
| 154 extern struct passwd *getpwuid (); | |
| 2687 | 155 #if defined(__FreeBSD_version) && __FreeBSD_version >= 400000 |
| 156 extern uid_t geteuid (); | |
| 157 #else | |
| 158 extern unsigned short geteuid (); | |
| 159 #endif | |
| 428 | 160 static struct passwd *my_entry; |
| 161 #define cuserid(s) \ | |
| 434 | 162 (my_entry = getpwuid ((int) geteuid ()), \ |
| 428 | 163 my_entry->pw_name) |
| 164 #endif | |
| 165 | |
| 166 /* Utilities */ | |
| 167 | |
| 168 /* Print error message. `s1' is printf control string, `s2' is arg for it. */ | |
| 169 | |
| 170 static void | |
| 442 | 171 error (const char *s1, const char *s2) |
| 428 | 172 { |
| 173 printf ("%s: ", my_name); | |
| 174 printf (s1, s2); | |
| 175 printf ("\n"); | |
| 176 no_problems = false; | |
| 177 } | |
| 178 | |
| 179 /* Print error message and exit. */ | |
| 180 | |
| 181 static void | |
| 442 | 182 fatal (const char *s1, const char *s2) |
| 428 | 183 { |
| 184 error (s1, s2); | |
| 185 exit (1); | |
| 186 } | |
| 187 | |
| 188 /* Like malloc but get fatal error if memory is exhausted. */ | |
| 189 | |
| 440 | 190 static void * |
| 428 | 191 xmalloc (size_t size) |
| 192 { | |
| 440 | 193 void *result = malloc (size); |
| 194 if (result == NULL) | |
| 428 | 195 fatal ("virtual memory exhausted", (char *) 0); |
| 196 return result; | |
| 197 } | |
| 198 | |
| 440 | 199 static void * |
| 200 xrealloc (void *ptr, size_t size) | |
| 428 | 201 { |
| 440 | 202 void *result = realloc (ptr, size); |
| 203 if (result == NULL) | |
| 428 | 204 fatal ("virtual memory exhausted", (char *) 0); |
| 205 return result; | |
| 206 } | |
| 207 | |
| 208 /* Initialize a linebuffer for use */ | |
| 209 | |
| 210 static void | |
| 211 init_linebuffer (struct linebuffer *linebuffer) | |
| 212 { | |
| 213 linebuffer->size = INITIAL_LINE_SIZE; | |
| 440 | 214 linebuffer->buffer = (char *) xmalloc (INITIAL_LINE_SIZE); |
| 428 | 215 } |
| 216 | |
| 217 /* Read a line of text from `stream' into `linebuffer'. | |
| 218 * Return the length of the line. | |
| 219 */ | |
| 220 | |
| 221 static long | |
| 222 readline (struct linebuffer *linebuffer, FILE *stream) | |
| 223 { | |
| 224 char *buffer = linebuffer->buffer; | |
| 225 char *p = linebuffer->buffer; | |
| 226 char *end = p + linebuffer->size; | |
| 227 | |
| 228 while (true) | |
| 229 { | |
| 230 int c = getc (stream); | |
| 231 if (p == end) | |
| 232 { | |
| 233 linebuffer->size *= 2; | |
| 440 | 234 buffer = (char *) xrealloc (buffer, linebuffer->size); |
| 428 | 235 p = buffer + (p - linebuffer->buffer); |
| 236 end = buffer + linebuffer->size; | |
| 237 linebuffer->buffer = buffer; | |
| 238 } | |
| 239 if (c < 0 || c == '\n') | |
| 240 { | |
| 241 *p = 0; | |
| 242 break; | |
| 243 } | |
| 244 *p++ = c; | |
| 245 } | |
| 246 | |
| 247 return p - buffer; | |
| 248 } | |
| 249 | |
| 250 static char * | |
| 251 get_keyword (register char *field, char **rest) | |
| 252 { | |
| 253 static char keyword[KEYWORD_SIZE]; | |
| 254 register char *ptr; | |
| 255 register char c; | |
| 256 | |
| 257 ptr = &keyword[0]; | |
| 258 c = *field++; | |
| 259 if ((isspace ((int) (unsigned char) c)) || (c == ':')) | |
| 260 return (char *) NULL; | |
| 261 *ptr++ = ((islower ((int) (unsigned char) c)) ? | |
| 262 (toupper ((int) (unsigned char) c)) : c); | |
| 263 while (((c = *field++) != ':') && | |
| 264 (!(isspace ((int) (unsigned char) c)))) | |
| 265 *ptr++ = ((islower ((int) (unsigned char) c)) ? | |
| 266 (toupper ((int) (unsigned char) c)) : c); | |
| 267 *ptr++ = '\0'; | |
| 268 while (isspace ((int) (unsigned char) c)) c = *field++; | |
| 269 if (c != ':') return (char *) NULL; | |
| 270 *rest = field; | |
| 271 return &keyword[0]; | |
| 272 } | |
| 273 | |
| 274 static boolean | |
| 275 has_keyword (char *field) | |
| 276 { | |
| 277 char *ignored; | |
| 440 | 278 return (get_keyword (field, &ignored) != (char *) NULL); |
| 428 | 279 } |
| 280 | |
| 281 static char * | |
| 282 add_field (line_list the_list, register char *field, register char *where) | |
| 283 { | |
| 284 register char c; | |
| 285 while (true) | |
| 286 { | |
| 287 *where++ = ' '; | |
| 288 while ((c = *field++) != '\0') | |
| 289 { | |
| 290 if (c == '(') | |
| 291 { | |
| 292 while (*field && *field != ')') ++field; | |
| 293 if (! (*field++)) break; /* no closer */ | |
| 294 if (! (*field)) break; /* closerNULL */ | |
| 295 c = *field; | |
| 296 } | |
| 297 *where++ = ((c == ','||c=='>'||c=='<') ? ' ' : c); | |
| 298 } | |
| 299 if (the_list == NIL) break; | |
| 300 field = the_list->string; | |
| 301 the_list = the_list->continuation; | |
| 302 } | |
| 303 return where; | |
| 304 } | |
| 305 | |
| 306 static line_list | |
| 307 make_file_preface (void) | |
| 308 { | |
| 309 char *the_string, *temp; | |
| 442 | 310 time_t idiotic_interface; |
| 428 | 311 long prefix_length; |
| 312 long user_length; | |
| 313 long date_length; | |
| 314 line_list result; | |
| 315 | |
| 316 prefix_length = strlen (FROM_PREFIX); | |
| 317 time (&idiotic_interface); | |
| 318 the_date = ctime (&idiotic_interface); | |
| 319 /* the_date has an unwanted newline at the end */ | |
| 320 date_length = strlen (the_date) - 1; | |
| 442 | 321 if (the_date[date_length] == '\n') |
| 322 the_date[date_length] = '\0'; | |
| 323 #ifdef WIN32_NATIVE | |
| 428 | 324 temp = "(null)"; |
| 325 #else | |
| 326 temp = cuserid ((char *) NULL); | |
| 327 #endif | |
| 328 user_length = strlen (temp); | |
| 329 the_user = alloc_string ((size_t) (user_length + 1)); | |
| 330 strcpy (the_user, temp); | |
| 331 the_string = alloc_string ((size_t) (3 + prefix_length + | |
| 332 user_length + | |
| 333 date_length)); | |
| 334 temp = the_string; | |
| 335 strcpy (temp, FROM_PREFIX); | |
| 336 temp = &temp[prefix_length]; | |
| 337 *temp++ = ' '; | |
| 338 strcpy (temp, the_user); | |
| 339 temp = &temp[user_length]; | |
| 340 *temp++ = ' '; | |
| 341 strcpy (temp, the_date); | |
| 342 result = new_list (); | |
| 343 result->string = the_string; | |
| 344 result->continuation = ((line_list) NULL); | |
| 345 return result; | |
| 346 } | |
| 347 | |
| 348 static void | |
| 349 write_line_list (register line_list the_list, FILE *the_stream) | |
| 350 { | |
| 351 for ( ; | |
| 352 the_list != ((line_list) NULL) ; | |
| 353 the_list = the_list->continuation) | |
| 354 { | |
| 355 fputs (the_list->string, the_stream); | |
| 356 putc ('\n', the_stream); | |
| 357 } | |
| 358 return; | |
| 359 } | |
| 360 | |
| 361 static int | |
| 362 close_the_streams (void) | |
| 363 { | |
| 364 register stream_list rem; | |
| 365 for (rem = the_streams; | |
| 366 rem != ((stream_list) NULL); | |
| 367 rem = rem->rest_streams) | |
| 368 no_problems = (no_problems && | |
| 369 ((*rem->action) (rem->handle) == 0)); | |
| 370 the_streams = ((stream_list) NULL); | |
| 371 return (no_problems ? 0 : 1); | |
| 372 } | |
| 373 | |
| 374 static void | |
| 375 add_a_stream (FILE *the_stream, int (*closing_action)(FILE *)) | |
| 376 { | |
| 377 stream_list old = the_streams; | |
| 378 the_streams = new_stream (); | |
| 379 the_streams->handle = the_stream; | |
| 380 the_streams->action = closing_action; | |
| 381 the_streams->rest_streams = old; | |
| 382 return; | |
| 383 } | |
| 384 | |
| 385 static int | |
| 386 my_fclose (FILE *the_file) | |
| 387 { | |
| 388 putc ('\n', the_file); | |
| 389 fflush (the_file); | |
| 390 return fclose (the_file); | |
| 391 } | |
| 392 | |
| 393 static boolean | |
| 394 open_a_file (char *name) | |
| 395 { | |
| 396 FILE *the_stream = fopen (name, "a"); | |
| 397 if (the_stream != ((FILE *) NULL)) | |
| 398 { | |
| 399 add_a_stream (the_stream, my_fclose); | |
| 440 | 400 if (the_user == (char *) NULL) |
| 428 | 401 file_preface = make_file_preface (); |
| 402 write_line_list (file_preface, the_stream); | |
| 403 return true; | |
| 404 } | |
| 405 return false; | |
| 406 } | |
| 407 | |
| 408 static void | |
| 409 put_string (char *s) | |
| 410 { | |
| 411 register stream_list rem; | |
| 412 for (rem = the_streams; | |
| 413 rem != ((stream_list) NULL); | |
| 414 rem = rem->rest_streams) | |
| 415 fputs (s, rem->handle); | |
| 416 return; | |
| 417 } | |
| 418 | |
| 419 static void | |
| 442 | 420 put_line (const char *string) |
| 428 | 421 { |
| 422 register stream_list rem; | |
| 423 for (rem = the_streams; | |
| 424 rem != ((stream_list) NULL); | |
| 425 rem = rem->rest_streams) | |
| 426 { | |
| 442 | 427 const char *s = string; |
| 428 | 428 int column = 0; |
| 429 | |
| 430 /* Divide STRING into lines. */ | |
| 431 while (*s != 0) | |
| 432 { | |
| 442 | 433 const char *breakpos; |
| 428 | 434 |
| 435 /* Find the last char that fits. */ | |
| 436 for (breakpos = s; *breakpos && column < 78; ++breakpos) | |
| 437 { | |
| 438 if (*breakpos == '\t') | |
| 439 column += 8; | |
| 440 else | |
| 441 column++; | |
| 442 } | |
| 443 /* If we didn't reach end of line, break the line. */ | |
| 444 if (*breakpos) | |
| 445 { | |
| 446 /* Back up to just after the last comma that fits. */ | |
| 447 while (breakpos != s && breakpos[-1] != ',') --breakpos; | |
| 448 | |
| 449 if (breakpos == s) | |
| 450 { | |
| 451 /* If no comma fits, move past the first address anyway. */ | |
| 452 while (*breakpos != 0 && *breakpos != ',') ++breakpos; | |
| 453 if (*breakpos != 0) | |
| 454 /* Include the comma after it. */ | |
| 455 ++breakpos; | |
| 456 } | |
| 457 } | |
| 458 /* Output that much, then break the line. */ | |
| 459 fwrite (s, 1, breakpos - s, rem->handle); | |
| 460 column = 8; | |
| 461 | |
| 462 /* Skip whitespace and prepare to print more addresses. */ | |
| 463 s = breakpos; | |
| 464 while (*s == ' ' || *s == '\t') ++s; | |
| 465 if (*s != 0) | |
| 466 fputs ("\n\t", rem->handle); | |
| 467 } | |
| 468 putc ('\n', rem->handle); | |
| 469 } | |
| 470 return; | |
| 471 } | |
| 472 | |
| 473 #define mail_error error | |
| 474 | |
| 475 static void | |
| 476 setup_files (register line_list the_list, register char *field) | |
| 477 { | |
| 478 register char *start; | |
| 479 register char c; | |
| 480 while (true) | |
| 481 { | |
| 482 while (((c = *field) != '\0') && | |
| 483 ((c == ' ') || | |
| 484 (c == '\t') || | |
| 485 (c == ','))) | |
| 486 field += 1; | |
| 487 if (c != '\0') | |
| 488 { | |
| 489 start = field; | |
| 490 while (((c = *field) != '\0') && | |
| 491 (c != ' ') && | |
| 492 (c != '\t') && | |
| 493 (c != ',')) | |
| 494 field += 1; | |
| 495 *field = '\0'; | |
| 496 if (!open_a_file (start)) | |
| 497 mail_error ("Could not open file %s", start); | |
| 498 *field = c; | |
| 499 if (c != '\0') continue; | |
| 500 } | |
| 501 if (the_list == ((line_list) NULL)) return; | |
| 502 field = the_list->string; | |
| 503 the_list = the_list->continuation; | |
| 504 } | |
| 505 } | |
| 506 | |
| 507 static int | |
| 508 args_size (header the_header) | |
| 509 { | |
| 510 register header old = the_header; | |
| 511 register line_list rem; | |
| 512 register int size = 0; | |
| 513 do | |
| 514 { | |
| 515 char *field; | |
| 516 register char *keyword = get_keyword (the_header->text->string, &field); | |
| 517 if ((strcmp (keyword, "TO") == 0) || | |
| 518 (strcmp (keyword, "CC") == 0) || | |
| 519 (strcmp (keyword, "BCC") == 0)) | |
| 520 { | |
| 521 size += 1 + strlen (field); | |
| 522 for (rem = the_header->text->continuation; | |
| 523 rem != NIL; | |
| 524 rem = rem->continuation) | |
| 525 size += 1 + strlen (rem->string); | |
| 526 } | |
| 527 the_header = the_header->next; | |
| 528 } while (the_header != old); | |
| 529 return size; | |
| 530 } | |
| 531 | |
| 532 static void | |
| 533 parse_header (header the_header, register char *where) | |
| 534 { | |
| 535 register header old = the_header; | |
| 536 do | |
| 537 { | |
| 538 char *field; | |
| 539 register char *keyword = get_keyword (the_header->text->string, &field); | |
| 540 if (strcmp (keyword, "TO") == 0) | |
| 541 where = add_field (the_header->text->continuation, field, where); | |
| 542 else if (strcmp (keyword, "CC") == 0) | |
| 543 where = add_field (the_header->text->continuation, field, where); | |
| 544 else if (strcmp (keyword, "BCC") == 0) | |
| 545 { | |
| 546 where = add_field (the_header->text->continuation, field, where); | |
| 547 the_header->previous->next = the_header->next; | |
| 548 the_header->next->previous = the_header->previous; | |
| 549 } | |
| 550 else if (strcmp (keyword, "FCC") == 0) | |
| 551 setup_files (the_header->text->continuation, field); | |
| 552 the_header = the_header->next; | |
| 553 } while (the_header != old); | |
| 554 *where = '\0'; | |
| 555 return; | |
| 556 } | |
| 557 | |
| 558 static header | |
| 559 read_header (void) | |
| 560 { | |
| 561 register header the_header = ((header) NULL); | |
| 562 register line_list *next_line = ((line_list *) NULL); | |
| 563 | |
| 564 init_linebuffer (&lb); | |
| 565 | |
| 566 do | |
| 567 { | |
| 568 long length; | |
| 569 register char *line; | |
| 570 | |
| 571 readline (&lb, stdin); | |
| 572 line = lb.buffer; | |
| 573 length = strlen (line); | |
| 574 if (length == 0) break; | |
| 575 | |
| 576 if (has_keyword (line)) | |
| 577 { | |
| 578 register header old = the_header; | |
| 579 the_header = new_header (); | |
| 580 if (old == ((header) NULL)) | |
| 581 { | |
| 582 the_header->next = the_header; | |
| 583 the_header->previous = the_header; | |
| 584 } | |
| 585 else | |
| 586 { | |
| 587 the_header->previous = old; | |
| 588 the_header->next = old->next; | |
| 589 old->next = the_header; | |
| 590 } | |
| 591 next_line = &(the_header->text); | |
| 592 } | |
| 593 | |
| 594 if (next_line == ((line_list *) NULL)) | |
| 595 { | |
| 596 /* Not a valid header */ | |
| 597 exit (1); | |
| 598 } | |
| 599 *next_line = new_list (); | |
| 600 (*next_line)->string = alloc_string ((size_t) length); | |
| 601 strcpy (((*next_line)->string), line); | |
| 602 next_line = &((*next_line)->continuation); | |
| 603 *next_line = NIL; | |
| 604 | |
| 605 } while (true); | |
| 606 | |
| 607 return the_header->next; | |
| 608 } | |
| 609 | |
| 610 static void | |
| 611 write_header (header the_header) | |
| 612 { | |
| 613 register header old = the_header; | |
| 614 do | |
| 615 { | |
| 616 register line_list the_list; | |
| 617 for (the_list = the_header->text; | |
| 618 the_list != NIL; | |
| 619 the_list = the_list->continuation) | |
| 620 put_line (the_list->string); | |
| 621 the_header = the_header->next; | |
| 622 } while (the_header != old); | |
| 623 put_line (""); | |
| 624 return; | |
| 625 } | |
| 626 | |
| 627 int | |
| 628 main (int argc, char *argv[]) | |
| 629 { | |
| 630 char *command_line; | |
| 631 header the_header; | |
| 632 long name_length; | |
|
4759
aa5ed11f473b
Remove support for obsolete systems. See xemacs-patches message with ID
Jerry James <james@xemacs.org>
parents:
2687
diff
changeset
|
633 const char *mail_program_name; |
| 428 | 634 char buf[BUFLEN + 1]; |
| 635 register int size; | |
| 636 FILE *the_pipe; | |
| 637 | |
| 638 mail_program_name = getenv ("FAKEMAILER"); | |
| 639 if (!(mail_program_name && *mail_program_name)) | |
|
4759
aa5ed11f473b
Remove support for obsolete systems. See xemacs-patches message with ID
Jerry James <james@xemacs.org>
parents:
2687
diff
changeset
|
640 mail_program_name = MAIL_PROGRAM_NAME; |
| 428 | 641 name_length = strlen (mail_program_name); |
| 642 | |
| 643 my_name = MY_NAME; | |
| 644 the_streams = ((stream_list) NULL); | |
| 440 | 645 the_date = (char *) NULL; |
| 646 the_user = (char *) NULL; | |
| 428 | 647 |
| 648 the_header = read_header (); | |
| 649 command_line = alloc_string ((size_t) (name_length + | |
| 650 args_size (the_header))); | |
| 651 strcpy (command_line, mail_program_name); | |
| 652 parse_header (the_header, &command_line[name_length]); | |
| 653 | |
| 654 the_pipe = popen (command_line, "w"); | |
| 655 if (the_pipe == ((FILE *) NULL)) | |
| 440 | 656 fatal ("cannot open pipe to real mailer", (char *) NULL); |
| 428 | 657 |
| 658 add_a_stream (the_pipe, pclose); | |
| 659 | |
| 660 write_header (the_header); | |
| 661 | |
| 662 /* Dump the message itself */ | |
| 663 | |
| 664 while (!feof (stdin)) | |
| 665 { | |
| 666 size = fread (buf, 1, BUFLEN, stdin); | |
| 667 buf[size] = '\0'; | |
| 668 put_string (buf); | |
| 669 } | |
| 670 | |
| 671 return close_the_streams (); | |
| 672 } | |
| 673 | |
| 674 #endif /* not BSD 4.2 (or newer) */ |