Return to stats.c CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / px

Annotation of 40BSD/cmd/px/stats.c, revision 1.1

1.1     ! root        1: /* Copyright (c) 1979 Regents of the University of California */
        !             2: 
        !             3: static char sccsid[] = "@(#)stats.c 4.1 10/10/80";
        !             4: 
        !             5: #include       "stdio.h"
        !             6: #include       "h00vars.h"
        !             7: #include       "h01errs.h"
        !             8: #define                HZ 60           /* interrupt frequency */
        !             9: 
        !            10: backtrace(errnum)
        !            11: long   errnum;
        !            12: {
        !            13: register struct stack **mydp, *ap;
        !            14:         struct stack **dp, *disp[20];
        !            15: register char *cp;
        !            16: register long i;
        !            17:         long linum;
        !            18: 
        !            19: fetchdp(&dp,&linum);
        !            20: for (i=0; i<20; i++)
        !            21:        disp[i] = display[i];
        !            22: if (errnum == EINTR)
        !            23:        fputs("\n\tInterrupted in \"",stderr);
        !            24: else if (errnum == EHALT)
        !            25:        fputs("\n\tHalted in \"",stderr);
        !            26: else
        !            27:        fputs("\n\tError in \"",stderr);
        !            28: if (linum <= 0)
        !            29:        return;
        !            30: mydp = dp;
        !            31: for (;;){
        !            32:        ap = *mydp;
        !            33:        i = linum - (((ap)->entry)->offset & 0177777);
        !            34:        fprintf(stderr,"%s\"",(ap->entry)->name);
        !            35:        if (nodump == 0)
        !            36:                fprintf(stderr,"+%1d near line %1d.",i,linum);
        !            37:        fputc('\n',stderr);
        !            38:        *mydp = (ap)->disp;
        !            39:        if (mydp <= &display[1]){
        !            40:                for (i=0; i<20; i++)
        !            41:                        display[i] = disp[i];
        !            42:                return;
        !            43:                }
        !            44:        mydp = (ap)->dp;
        !            45:        linum = (ap)->lino;
        !            46:        fputs("\tCalled by \"",stderr);
        !            47:        }
        !            48: }
        !            49: 
        !            50: stats()
        !            51: {
        !            52: struct {
        !            53:        long    usr_time;
        !            54:        long    sys_time;
        !            55:        long    child_usr_time;
        !            56:        long    child_sys_time;
        !            57:        } tbuf;
        !            58: register double l;
        !            59: register long count;
        !            60: 
        !            61: if (nodump)
        !            62:        return(0);
        !            63: times(&tbuf);
        !            64: #ifdef profile
        !            65: datafile = fopen(proffile,"r");
        !            66: if (datafile != NULL) {
        !            67:        count = fread(&profdata,sizeof(profdata),1,datafile);
        !            68:        if (count != 1) {
        !            69:                for (count = 0;  count < numops;  count++)
        !            70:                        profdata.counts[count] = 0.0;
        !            71:                profdata.runs = 0;
        !            72:                profdata.startdate = time(0);
        !            73:                profdata.usrtime = 0;
        !            74:                profdata.systime = 0;
        !            75:                profdata.stmts = 0;
        !            76:                }
        !            77:        for (count = 0;  count < numops;  count++)
        !            78:                profdata.counts[count] += profcnts[count];
        !            79:        profdata.runs += 1;
        !            80:        profdata.stmts += stcnt;
        !            81:        profdata.usrtime += tbuf.usr_time;
        !            82:        profdata.systime += tbuf.sys_time;
        !            83:        datafile = freopen(proffile,"w",datafile);
        !            84:        if (datafile != NULL) {
        !            85:                fwrite(&profdata,sizeof(profdata),1,datafile);
        !            86:                fclose(datafile);
        !            87:                }
        !            88:        }
        !            89: #endif
        !            90: l = tbuf.usr_time;
        !            91: l = l / HZ;
        !            92: fprintf(stderr,"\n%1ld statements executed in %04.2f seconds cpu time.\n",
        !            93:        stcnt,l);
        !            94: }

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