Return to errfunction.in CVS log

Up to [Net/2] / Net2 / arch / i386 / floppy / cat

Annotation of Net2/arch/i386/floppy/cat/errfunction.in, revision 1.1.1.1

1.1       root        1: /*-
                      2:  * Copyright (c) 1991 The Regents of the University of California.
                      3:  * All rights reserved.
                      4:  *
                      5:  * %sccs.include.redist.c%
                      6:  *
                      7:  *     %W% (Berkeley) %G%
                      8:  */
                      9: 
                     10: err(s, syserr)
                     11:        register char *s;
                     12:        int syserr;
                     13: {
                     14:        extern int errno, sys_nerr;
                     15:         extern char *sys_errlist[];
                     16:        register char *e;
                     17: 
                     18:        (void)write(2, PROGNAME, sizeof(PROGNAME) - 1);
                     19:        if (s) {
                     20:                for (e = s; *e; ++e);
                     21:                (void)write(2, s, e - s);
                     22:        }
                     23: #define        BADERR  "unknown error"
                     24:        if (syserr) {
                     25:                if (s)
                     26:                        (void)write(2, ": ", 2);
                     27:                if (errno > sys_nerr)
                     28:                        (void)write(2, BADERR, sizeof(BADERR) - 1);
                     29:                else {
                     30:                        for (e = s = sys_errlist[errno]; *e; ++e);
                     31:                        (void)write(2, s, e - s);
                     32:                }
                     33:        }
                     34:        (void)write(2, "\n", 1);
                     35:        eval = 1;
                     36: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.