forked from KolibriOS/kolibrios
101 lines
2.6 KiB
C
101 lines
2.6 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;
|
||
|
|
int dummy;
|
||
|
|
|
||
|
|
_REENT_SMALL_CHECK_INIT (ptr);
|
||
|
|
if (s != NULL && *s != '\0')
|
||
|
|
{
|
||
|
|
fputs (s, _stderr_r (ptr));
|
||
|
|
fputs (": ", _stderr_r (ptr));
|
||
|
|
}
|
||
|
|
|
||
|
|
if ((error = _strerror_r (ptr, ptr->_errno, 1, &dummy)) != 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
|