13e12c5d1SDavid du Colombier /* 23e12c5d1SDavid du Colombier * pANS stdio -- perror 33e12c5d1SDavid du Colombier */ 43e12c5d1SDavid du Colombier #include "iolib.h" perror(const char * s)53e12c5d1SDavid du Colombiervoid perror(const char *s){ 63e12c5d1SDavid du Colombier extern int errno; 7*7dd7cddfSDavid du Colombier if(s!=NULL && *s != '\0') fputs(s, stderr), fputs(": ", stderr); 83e12c5d1SDavid du Colombier fputs(strerror(errno), stderr); 93e12c5d1SDavid du Colombier putc('\n', stderr); 103e12c5d1SDavid du Colombier fflush(stderr); 113e12c5d1SDavid du Colombier } 12