Return to time.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Annotation of OpenXM_contrib2/asir2000/builtin/time.c, Revision 1.1.1.1

1.1       noro        1: /* $OpenXM: OpenXM/src/asir99/builtin/time.c,v 1.1.1.1 1999/11/10 08:12:26 noro Exp $ */
                      2: #include "ca.h"
                      3: #include "parse.h"
                      4:
                      5: void Ptime(), Pcputime(), Pcurrenttime(), Ptstart(), Ptstop();
                      6:
                      7: struct ftab time_tab[] = {
                      8:        {"time",Ptime,0},
                      9:        {"cputime",Pcputime,1},
                     10:        {"currenttime",Pcurrenttime,0},
                     11:        {"tstart",Ptstart,0},
                     12:        {"tstop",Ptstop,0},
                     13:        {0,0,0},
                     14: };
                     15:
                     16: static struct oEGT egt0;
                     17: static double r0;
                     18: double get_rtime(), get_current_time();
                     19:
                     20: void Pcurrenttime(rp)
                     21: Q *rp;
                     22: {
                     23:        int t;
                     24:
                     25:        t = (int)get_current_time(); STOQ(t,*rp);
                     26: }
                     27:
                     28: void Ptstart(rp)
                     29: pointer *rp;
                     30: {
                     31:        get_eg(&egt0); r0 = get_rtime(); *rp = 0;
                     32: }
                     33:
                     34: void Ptstop(rp)
                     35: pointer *rp;
                     36: {
                     37:        struct oEGT egt1;
                     38:
                     39:        get_eg(&egt1); printtime(&egt0,&egt1,get_rtime()-r0); *rp = 0;
                     40: }
                     41:
                     42: int prtime;
                     43:
                     44: void Pcputime(arg,rp)
                     45: NODE arg;
                     46: pointer *rp;
                     47: {
                     48:        prtime = ARG0(arg) ? 1 : 0; *rp = 0;
                     49: }
                     50:
                     51: void Ptime(listp)
                     52: LIST *listp;
                     53: {
                     54:        struct oEGT eg;
                     55:        Real re,rg,rr;
                     56:        NODE a,b,w,r;
                     57:        Q words;
                     58:        int t;
                     59:        double rtime;
                     60:        double get_rtime();
                     61:
                     62:        rtime = get_rtime(); MKReal(rtime,rr);
                     63:        t = get_allocwords(); STOQ(t,words);
                     64:        get_eg(&eg); MKReal(eg.exectime,re); MKReal(eg.gctime,rg);
                     65:        MKNODE(r,rr,0); MKNODE(w,words,r); MKNODE(a,rg,w); MKNODE(b,re,a);
                     66:        MKLIST(*listp,b);
                     67: }
                     68:
                     69: void printtime(egt0,egt1,r)
                     70: struct oEGT *egt0,*egt1;
                     71: double r;
                     72: {
                     73:        double e,g;
                     74:
                     75:        e = egt1->exectime - egt0->exectime;
                     76:        if ( e < 0 ) e = 0;
                     77:        g = egt1->gctime - egt0->gctime;
                     78:        if ( g < 0 ) g = 0;
                     79:        if ( g )
                     80:                fprintf(stderr,"%.4gsec + gc : %.4gsec(%.4gsec)\n",e,g,r);
                     81:        else
                     82:                fprintf(stderr,"%.4gsec(%.4gsec)\n",e,r);
                     83: }