Xref: utzoo alt.sources:103 comp.unix.xenix:1359
Path: utzoo!hoptoad!cpsc6a!codas!ateng!chip
From: chip@ateng.UUCP (Chip Salzenberg)
Newsgroups: alt.sources,comp.unix.xenix
Subject: Elm 1.7 beta: patches for Xenix (7 of 7)
Message-ID: <174@ateng.UUCP>
Date: 27 Jan 88 00:34:15 GMT
Organization: A T Engineering, Tampa, FL
Lines: 150

Patches for utils/*.[hc].  This is the last of my seven patch files for
Elm 1.7 under Xenix.

"Shar and enjoy."

#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the "#! /bin/sh" line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	p.utils
# This archive created: Tue Jan 26 19:14:44 1988
export PATH; PATH=/bin:$PATH
:
echo 'shar: extracting "p.utils" (2436 characters) '
if test -f 'p.utils'
then
	echo 'shar: will not overwrite existing file "p.utils" '
else
sed 's/^X//' << \SHAR_EOF > 'p.utils'
XIndex: fastmail.c
X*** elm1.7beta/utils/fastmail.c	Mon Nov  9 08:23:57 1987
X--- elm/utils/fastmail.c	Wed Dec  9 18:18:20 1987
X***************
X*** 29,30 ****
X--- 29,31 ----
X  #include <stdio.h>
X+ #include <ctype.h>
X  
X***************
X*** 44,46 ****
X  
X! static char ident[] = { WHAT_STRING };
X  
X--- 45,47 ----
X  
X! extern  long    time();
X  
X***************
X*** 52,53 ****
X--- 53,56 ----
X  
X+ static char ident[] = { WHAT_STRING };
X+ 
X  char *optional_arg;			/* optional argument as we go */
X***************
X*** 174,176 ****
X  
X! 	sprintf(command_buffer, "cat %s %s | %s '%s %s %s'", 
X  		tempfilename, filename, 
X--- 177,179 ----
X  
X! 	sprintf(command_buffer, "cat %s %s | %s",
X  		tempfilename, filename, 
X***************
X*** 176,179 ****
X  		tempfilename, filename, 
X! 	        sendmail_available? sendmail : mailer,
X! 		to_list, cc_list, bcc_list);
X  
X--- 179,181 ----
X  		tempfilename, filename, 
X! 		sendmail_available? sendmail : mailer);
X  
X***************
X*** 179,180 ****
X--- 181,186 ----
X  
X+ 	quote_args(command_buffer + strlen(command_buffer), to_list);
X+ 	quote_args(command_buffer + strlen(command_buffer), cc_list);
X+ 	quote_args(command_buffer + strlen(command_buffer), bcc_list);
X+ 
X  	if (debug)
X***************
X*** 187,188 ****
X--- 193,206 ----
X  
X+ /*
X+  * Copy the space-delimited words in `src' to quoted words in `dest'.
X+  * (Used for generating shell command lines.)
X+  */
X+ quote_args(dest, src)
X+ char *dest, *src;
X+ {
X+ 	for (;;) {
X+ 	  while (isspace(*src))
X+ 	    ++src;
X+ 	  if (*src == '\0')
X+ 	    break;
X  
X***************
X*** 188,189 ****
X--- 206,220 ----
X  
X+ 	  *dest++ = ' ';
X+ 	  *dest++ = '\'';
X+ 	  while (*src && !isspace(*src)) {
X+ 	    if (*src == '\'' || *src == '\\')
X+ 	      *dest++ = '\\';
X+ 	    *dest++ = *src++;
X+ 	  }
X+ 	  *dest++ = '\'';
X+ 	}
X+ 
X+ 	*dest = '\0';
X+ }
X+ 
X  char *get_arpa_date()
X***************
X*** 212,214 ****
X  #  ifdef BSD4.1
X! 	junk = (long) time((long *) 0);
X  	ftime(&loc_time);
X--- 243,245 ----
X  #  ifdef BSD4.1
X! 	junk = time((long *) 0);
X  	ftime(&loc_time);
X***************
X*** 219,221 ****
X  #else
X! 	junk = time(0);	/* this must be here for it to work! */
X  #endif
X--- 250,252 ----
X  #else
X! 	junk = time((long *) 0);
X  #endif
X***************
X*** 272,274 ****
X  
X! 	if (_indx >= strlen(argv[_argnum])) {
X  	  _argnum++;
X--- 303,307 ----
X  
X! 	while (_argnum < argc
X! 	 && argv[_argnum][0] == '-'
X! 	 && _indx >= strlen(argv[_argnum])) {
X  	  _argnum++;
SHAR_EOF
if test 2436 -ne `wc -c < 'p.utils'`
then
	echo 'shar: error transmitting "p.utils" (should have been 2436 characters) '
fi
chmod 644 'p.utils'
fi  # end of overwriting check
#	End of shell archive
exit 0
-- 
Chip Salzenberg                 UUCP: "{codas,uunet}!ateng!chip"
A T Engineering                 My employer's opinions are a trade secret.
       "Anything that works is better than anything that doesn't."