Return to stats.c CVS log

Up to [Research Unix] / researchv9 / jerq / sgs / libsdp

Annotation of researchv9/jerq/sgs/libsdp/stats.c, revision 1.1.1.1

1.1       root        1: static char ID[] = "@(#) stats.c: 1.1 3/16/82";
                      2: 
                      3: #include <stdio.h>
                      4: #include "sdp.h"
                      5: #include "define3.h"
                      6: 
                      7: #ifdef SHORT
                      8: #define ST01   "ST01 "
                      9: #define STAU   "STAU "
                     10: #else
                     11: #define ST01   "ST01 -- attempt to take statistics on an unhoused enviroment\n%o\n",environ
                     12: #define STAU   "%s","STAU -- audit failed in sdp_stats\n"
                     13: #endif
                     14: 
                     15: #ifdef SWEET
                     16: #define PROLOG
                     17: #define EPILOG
                     18: #else
                     19: #define PROLOG if(aud_flag == AUDITON)\
                     20:                        aud_set() ;
                     21: #define EPILOG if( (aud_flag == AUDITON) && (aud_check() == ERROR) )\
                     22:                {\
                     23:                        stats.uses =   ERROR ;\
                     24:                        stats.faults = ERROR ;\
                     25:                        stats.writes = ERROR ;\
                     26:                        stats.maxuse = ERROR ;\
                     27:                        ERR_RET(STAU,stats) ;  \
                     28:                }\
                     29:                if(hist_fp != NULL)\
                     30:                        fprintf(hist_fp,"ST\t%o\t%ld\t%ld\t%ld\t%d\n",environ,stats.uses,stats.faults,stats.writes,stats.maxuse) ;
                     31: #endif
                     32: 
                     33: extern int aud_flag ;
                     34: extern FILE *hist_fp ;
                     35: extern struct ENVIRON *first_environ ;
                     36: extern FATAL() ;
                     37: extern struct LIBFILE *Glib_file ;
                     38: 
                     39: struct STATS                                   /* contains statistics */
                     40: sdp_stats(environ)
                     41: struct ENVIRON *environ ;
                     42: {
                     43:        register struct ENVIRON *curr ;
                     44:        register struct ENVIRON *next ;
                     45:        struct STATS            stats ;
                     46: 
                     47:        PROLOG
                     48:        stats.uses   = 0l ;
                     49:        stats.faults = 0l ;
                     50:        stats.writes = 0l ;
                     51:        stats.maxuse = 0 ;
                     52: 
                     53:        for(curr=first_environ; curr!=NULL; curr=next)
                     54:        {
                     55:                next = curr->next_environ ;
                     56:                if( (curr==environ) || (environ==NULL) )
                     57:                {
                     58:                        stats.uses   += (curr->stats).uses ;
                     59:                        stats.faults += (curr->stats).faults ;
                     60:                        stats.writes += (curr->stats).writes ;
                     61:                        stats.maxuse += (curr->stats).maxuse ;
                     62:                        stats.curuse += (curr->stats).curuse ;
                     63: 
                     64:                        if(environ == curr)
                     65:                                break ;
                     66:                }
                     67:        }
                     68: 
                     69:        if( (curr == NULL) && (environ != NULL) )
                     70:        {
                     71:                stats.uses   = ERROR ;
                     72:                stats.faults = ERROR ;
                     73:                stats.writes = ERROR ;
                     74:                stats.maxuse = ERROR ;
                     75:                ERR_RET(ST01,stats)
                     76:        }
                     77: 
                     78:        EPILOG
                     79:        return(stats) ;
                     80: }

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