| 
									
										
										
										
											1993-12-24 10:32:00 +00:00
										 |  |  | /***********************************************************
 | 
					
						
							| 
									
										
										
										
											1995-01-04 19:12:13 +00:00
										 |  |  | Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam, | 
					
						
							|  |  |  | The Netherlands. | 
					
						
							| 
									
										
										
										
											1993-12-24 10:32:00 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  |                         All Rights Reserved | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											1996-10-25 14:44:06 +00:00
										 |  |  | Permission to use, copy, modify, and distribute this software and its | 
					
						
							|  |  |  | documentation for any purpose and without fee is hereby granted, | 
					
						
							| 
									
										
										
										
											1993-12-24 10:32:00 +00:00
										 |  |  | provided that the above copyright notice appear in all copies and that | 
					
						
							| 
									
										
										
										
											1996-10-25 14:44:06 +00:00
										 |  |  | both that copyright notice and this permission notice appear in | 
					
						
							| 
									
										
										
										
											1993-12-24 10:32:00 +00:00
										 |  |  | supporting documentation, and that the names of Stichting Mathematisch | 
					
						
							| 
									
										
										
										
											1996-10-25 14:44:06 +00:00
										 |  |  | Centrum or CWI or Corporation for National Research Initiatives or | 
					
						
							|  |  |  | CNRI not be used in advertising or publicity pertaining to | 
					
						
							|  |  |  | distribution of the software without specific, written prior | 
					
						
							|  |  |  | permission. | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | While CWI is the initial source for this software, a modified version | 
					
						
							|  |  |  | is made available by the Corporation for National Research Initiatives | 
					
						
							|  |  |  | (CNRI) at the Internet address ftp://ftp.python.org.
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH | 
					
						
							|  |  |  | REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF | 
					
						
							|  |  |  | MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH | 
					
						
							|  |  |  | CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL | 
					
						
							|  |  |  | DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR | 
					
						
							|  |  |  | PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER | 
					
						
							|  |  |  | TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR | 
					
						
							|  |  |  | PERFORMANCE OF THIS SOFTWARE. | 
					
						
							| 
									
										
										
										
											1993-12-24 10:32:00 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  | ******************************************************************/ | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | /* A perhaps slow but I hope correct implementation of memmove */ | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | extern char *memcpy(); | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | char * | 
					
						
							|  |  |  | memmove(dst, src, n) | 
					
						
							|  |  |  | 	char *dst; | 
					
						
							|  |  |  | 	char *src; | 
					
						
							|  |  |  | 	int n; | 
					
						
							|  |  |  | { | 
					
						
							|  |  |  | 	char *realdst = dst; | 
					
						
							|  |  |  | 	if (n <= 0) | 
					
						
							|  |  |  | 		return dst; | 
					
						
							|  |  |  | 	if (src >= dst+n || dst >= src+n) | 
					
						
							|  |  |  | 		return memcpy(dst, src, n); | 
					
						
							|  |  |  | 	if (src > dst) { | 
					
						
							|  |  |  | 		while (--n >= 0) | 
					
						
							|  |  |  | 			*dst++ = *src++; | 
					
						
							|  |  |  | 	} | 
					
						
							|  |  |  | 	else if (src < dst) { | 
					
						
							|  |  |  | 		src += n; | 
					
						
							|  |  |  | 		dst += n; | 
					
						
							|  |  |  | 		while (--n >= 0) | 
					
						
							|  |  |  | 			*--dst = *--src; | 
					
						
							|  |  |  | 	} | 
					
						
							|  |  |  | 	return realdst; | 
					
						
							|  |  |  | } |