/*

* Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies).

* All rights reserved.

* This component and the accompanying materials are made available

* under the terms of "Eclipse Public License v1.0"

* which accompanies this distribution, and is available

* at the URL "http://www.eclipse.org/legal/epl-v10.html".

*

* Initial Contributors:

* Nokia Corporation - initial contribution.

*

* Contributors:

*

* Description:

* 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(void *<[reent]>, char *<[prefix]>);

* TRAD_SYNOPSIS

* #include <stdio.h>

* void perror(<[prefix]>)

* char *<[prefix]>;

* void _perror_r(<[reent]>, <[prefix]>)

* char *<[reent]>;

* char *<[prefix]>;

* 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 <stddef.h>

#include <stdio_r.h>

#include <string.h>

/**

A reentrant version of perror().

*/

EXPORT_C void

_perror_r (struct _reent *ptr, const char *s)

{

  char *error;

  FILE *efp = _stderr_r(ptr);

  if (s != NULL && *s != '\0')

    {

      fputs (s, efp);

      fputs (": ", efp);

    }

  error = strerror (ptr->_errno);

  if (*error == '\0')

      fprintf (efp, "error %d\n", ptr->_errno);

  else

    {

      fputs (error, efp);

      fputc ('\n', efp);

    }

}

#ifndef _REENT_ONLY

EXPORT_C void

perror (const char *s)

{

  _perror_r (_REENT, s);

}

#endif