home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / gnu / djgpp / libsrc / c / gen / perror.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-06-28  |  1.8 KB  |  57 lines
  1. /* This is file PERROR.C */
  2. /* This file may have been modified by DJ Delorie (Jan 1991).  If so,
  3. ** these modifications are Coyright (C) 1993 DJ Delorie, 24 Kirsten Ave,
  4. ** Rochester NH, 03867-2954, USA.
  5. */
  6.  
  7. /*
  8.  * Copyright (c) 1988 Regents of the University of California.
  9.  * All rights reserved.
  10.  *
  11.  * Redistribution and use in source and binary forms are permitted
  12.  * provided that: (1) source distributions retain this entire copyright
  13.  * notice and comment, and (2) distributions including binaries display
  14.  * the following acknowledgement:  ``This product includes software
  15.  * developed by the University of California, Berkeley and its contributors''
  16.  * in the documentation or other materials provided with the distribution
  17.  * and in all advertising materials mentioning features or use of this
  18.  * software. Neither the name of the University nor the names of its
  19.  * contributors may be used to endorse or promote products derived
  20.  * from this software without specific prior written permission.
  21.  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  22.  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  23.  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  24.  */
  25.  
  26. #if defined(LIBC_SCCS) && !defined(lint)
  27. static char sccsid[] = "@(#)perror.c    5.9 (Berkeley) 6/1/90";
  28. #endif /* LIBC_SCCS and not lint */
  29.  
  30. #include <sys/types.h>
  31. #include <sys/uio.h>
  32.  
  33. perror(s)
  34.     char *s;
  35. {
  36.     extern int errno;
  37.     register struct iovec *v;
  38.     struct iovec iov[4];
  39.     char *strerror();
  40.  
  41.     v = iov;
  42.     if (s && *s) {
  43.         v->iov_base = s;
  44.         v->iov_len = strlen(s);
  45.         v++;
  46.         v->iov_base = ": ";
  47.         v->iov_len = 2;
  48.         v++;
  49.     }
  50.     v->iov_base = strerror(errno);
  51.     v->iov_len = strlen(v->iov_base);
  52.     v++;
  53.     v->iov_base = "\n";
  54.     v->iov_len = 1;
  55.     (void)writev(2, iov, (v - iov) + 1);
  56. }
  57.