stdio.h defines BUFSIZ

[unix-history] / usr / src / usr.bin / f77 / libU77 / perror_.c

/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved.  The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*
*      @(#)perror_.c   5.2     %G%
*/

/*
* write a standard error message to the standard error output
*
* calling sequence:
*      call perror(string)
* where:
*      string will be written preceeding the standard error message
*/

#include        <stdio.h>
#include        "../libI77/fiodefs.h"
#include        "../libI77/f_errno.h"

extern int sys_nerr;
extern char *f_errlist[];
extern int f_nerr;
extern unit units[];

perror_(s, len)
char *s; long len;
{
       unit    *lu;
       char    buf[40];
       char    *mesg = s + len;
       char    *strerror();

       while (len > 0 && *--mesg == ' ')
               len--;
       if (errno >=0 && errno < sys_nerr)
               mesg = strerror(errno);
       else if (errno >= F_ER && errno < (F_ER + f_nerr))
               mesg = f_errlist[errno - F_ER];
       else
       {
               sprintf(buf, "%d: unknown error number", errno);
               mesg = buf;
       }
       lu = &units[STDERR];
       if (!lu->uwrt)
               nowwriting(lu);
       while (len-- > 0)
               putc(*s++, lu->ufd);
       fprintf(lu->ufd, ": %s\n", mesg);
}