File:  [gforth] / gforth / Attic / strerror.c
Revision 1.1: download - view: text, annotated - select for diffs
Sat Apr 29 16:51:50 1995 UTC (28 years, 11 months ago) by anton
Branches: MAIN
CVS tags: HEAD
added strerror replacement (for SunOS)

#include <errno.h>
#include <stdio.h>

extern char *sys_errlist[];
extern int sys_nerr;

char *strerror(int err)
{
  if (err<sys_nerr) /* !! or check with <= ? */
    return sys_errlist[err];
  else {
    static char errbuf[50];
    sprintf(errbuf,"Unknown system error %d",err);
    return errbuf;
  }
}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>