Return to make_errors.c CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / runtime

Annotation of researchv10no/cmd/sml/src/runtime/make_errors.c, revision 1.1

1.1     ! root        1: /* Copyright 1989 by AT&T Bell Laboratories */
        !             2: #include <stdio.h>
        !             3: #include "tags.h"
        !             4: 
        !             5: extern int sys_nerr;
        !             6: extern char *sys_errlist[];
        !             7: 
        !             8: main()
        !             9: {int i;
        !            10:   for(i=0;i<sys_nerr;i++)
        !            11:     printf("static struct {long tag; char s[%d];} e%d = { %d, \n      \"%s\\0\\0\\0\\0\"};\n",
        !            12:            strlen(sys_errlist[i])+4,i,
        !            13:            strlen(sys_errlist[i])*power_tags+tag_string,
        !            14:            sys_errlist[i]);
        !            15:        
        !            16:   printf("int errstrings[]={ %d,\n", sys_nerr*power_tags+tag_array);
        !            17:   for(i=0;i<sys_nerr;i++)
        !            18:     printf("(int)e%d.s,\n",i);
        !            19:   printf("};\n");
        !            20:   exit(0);
        !            21: }

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