/*

 * 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