100 lines
		
	
	
		
			2.5 KiB
		
	
	
	
		
			C
		
	
	
	
			
		
		
	
	
			100 lines
		
	
	
		
			2.5 KiB
		
	
	
	
		
			C
		
	
	
	
| /*
 | |
|  * Copyright (c) 1990 The Regents of the University of California.
 | |
|  * All rights reserved.
 | |
|  *
 | |
|  * Redistribution and use in source and binary forms are permitted
 | |
|  * provided that the above copyright notice and this paragraph are
 | |
|  * duplicated in all such forms and that any documentation,
 | |
|  * advertising materials, and other materials related to such
 | |
|  * distribution and use acknowledge that the software was developed
 | |
|  * by the University of California, Berkeley.  The name of the
 | |
|  * University may not be used to endorse or promote products derived
 | |
|  * from this software without specific prior written permission.
 | |
|  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 | |
|  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 | |
|  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 | |
|  */
 | |
| 
 | |
| /*
 | |
| FUNCTION
 | |
| <<perror>>---print an error message on standard error
 | |
| 
 | |
| INDEX
 | |
| 	perror
 | |
| INDEX
 | |
| 	_perror_r
 | |
| 
 | |
| ANSI_SYNOPSIS
 | |
| 	#include <stdio.h>
 | |
| 	void perror(char *<[prefix]>);
 | |
| 
 | |
| 	void _perror_r(struct _reent *<[reent]>, char *<[prefix]>);
 | |
| 
 | |
| TRAD_SYNOPSIS
 | |
| 	#include <stdio.h>
 | |
| 	void perror(<[prefix]>)
 | |
| 	char *<[prefix]>;
 | |
| 
 | |
| 	void _perror_r(<[reent]>, <[prefix]>)
 | |
| 	struct _reent *<[reent]>;
 | |
| 	char *<[prefix]>;
 | |
| 
 | |
| DESCRIPTION
 | |
| Use <<perror>> to print (on standard error) an error message
 | |
| corresponding to the current value of the global variable <<errno>>.
 | |
| Unless you use <<NULL>> as the value of the argument <[prefix]>, the
 | |
| error message will begin with the string at <[prefix]>, followed by a
 | |
| colon and a space (<<: >>). The remainder of the error message is one
 | |
| of the strings described for <<strerror>>.
 | |
| 
 | |
| The alternate function <<_perror_r>> is a reentrant version.  The
 | |
| extra argument <[reent]> is a pointer to a reentrancy structure.
 | |
| 
 | |
| RETURNS
 | |
| <<perror>> returns no result.
 | |
| 
 | |
| PORTABILITY
 | |
| ANSI C requires <<perror>>, but the strings issued vary from one
 | |
| implementation to another.
 | |
| 
 | |
| Supporting OS subroutines required: <<close>>, <<fstat>>, <<isatty>>,
 | |
| <<lseek>>, <<read>>, <<sbrk>>, <<write>>.
 | |
| */
 | |
| 
 | |
| #include <_ansi.h>
 | |
| #include <reent.h>
 | |
| #include <stdio.h>
 | |
| #include <string.h>
 | |
| #include "local.h"
 | |
| 
 | |
| _VOID
 | |
| _DEFUN(_perror_r, (ptr, s),
 | |
|        struct _reent *ptr _AND
 | |
|        _CONST char *s)
 | |
| {
 | |
|   char *error;
 | |
| 
 | |
|   _REENT_SMALL_CHECK_INIT (_stderr_r (ptr));
 | |
|   if (s != NULL && *s != '\0')
 | |
|     {
 | |
|       fputs (s, _stderr_r (ptr));
 | |
|       fputs (": ", _stderr_r (ptr));
 | |
|     }
 | |
| 
 | |
|   if ((error = strerror (ptr->_errno)) != NULL)
 | |
|     fputs (error, _stderr_r (ptr));
 | |
| 
 | |
|   fputc ('\n', _stderr_r (ptr));
 | |
| }
 | |
| 
 | |
| #ifndef _REENT_ONLY
 | |
| 
 | |
| _VOID
 | |
| _DEFUN(perror, (s),
 | |
|        _CONST char *s)
 | |
| {
 | |
|   _perror_r (_REENT, s);
 | |
| }
 | |
| 
 | |
| #endif
 |