Home Research Papers Posters Manuals Talks Download People Help Internal

libs/ck-libs/liveViz3d/stats.h

Go to the documentation of this file.

/*
Tools for measuring timing and profiling statistics.

Orion Sky Lawlor, olawlor@acm.org, 2004/8/18
*/
#ifndef __OSL_GL_STATS_H
#define __OSL_GL_STATS_H

#if CMK_LIVEVIZ3D_CLIENT /* serial version */
#  include "osl/osl.h"
#else 
#  include "charm.h"
#endif

namespace stats {

#if CMK_LIVEVIZ3D_CLIENT /* serial version */
    inline double time(void) {return osl::time();}
#else
    inline double time(void) {return CkWallTimer();}
#endif

    class op_t {
    public:
        int idx;
    };
    
    enum {op_null=0, op_max=100};
    
    extern int op_len;
    
    op_t time_op(const char *shortName,const char *desc);
    op_t count_op(const char *shortName,const char *desc,const char *units);
    
    class stats {
    public:
        double t[op_max];
        
        stats() {zero();}
        
        void zero(void) {
            for (int op=0;op<op_len;op++) t[op]=0.0;
        }
        void add(double val,op_t op) {t[op.idx]+=val;}

        double get(op_t op) const {return t[op.idx];}
        void set(double val,op_t op) {t[op.idx]=val;}
        
        void add(const stats &s,double scale=1.0) {
            for (int op=0;op<op_len;op++) t[op]+=s.t[op]*scale;
        }
        
        void print(FILE *f,const char *what,double scale=1.0,double thresh=0.001) const;
    };
    
    stats *get(void);
    
    op_t swap(op_t op);
    
    class op_sentry {
        op_t prev_op, op;
    public:
        op_sentry(op_t op_) :op(op_) 
        {
            prev_op=swap(op);
        }
        ~op_sentry() {
            swap(prev_op);
        }
    };
};


#endif

---