Logo Search packages:      
Sourcecode: wims version File versions  Download package

exostat.c

/*    Copyright (C) 1998 XIAO, Gang of Universite de Nice - Sophia Antipolis
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

      /* This is an internal program,
       * used to show statistics of frequentation, module by module. */

#include "../Lib/libwims.h"

#define MAX_EXO         64
#define MAX_SHEET 64
#define MAX_EXAM  32
#define MAX_SCORE 512*1024

00028 typedef struct {
    short int dure,score;
    long int next;
} scoredata;
scoredata scores[MAX_SCORE];
int sccnt=0;

00035 typedef struct {
    int newcnt,scorecnt,lasttime,firstscore,lastscore;
    char lastnew[12];
} exodata;
exodata shdata[MAX_SHEET*MAX_EXO],examdata[MAX_EXAM*MAX_EXO];

/* cid: combined index of difficulty */
double scsum, scavg, scdeviat, scmin, scmax, cid;
double dursum, duravg, durdeviat, durmin, durmax;

int filecnt=0, fcind;
char *dirbase, types[256];

int str2time(char *p)
{
    int sec,min,hr;
    sec=atoi(p+15); p[14]=0;
    min=atoi(p+12); p[11]=0;
    hr=atoi(p+9);
    if(sec<0 || min<0 || hr<0 || sec>59 || min>59 || hr>23) return -1;
    return hr*3600+min*60+sec;
}

void oneline(char *p)
{
    int i, sh, ex, t;
    char *data[64];
    exodata *tab;
    char *pp, *pe;

    for(i=0, pp=find_word_start(p); i<8 && *pp; pp=find_word_start(pe),i++) {
      pe=find_word_end(pp); if(*pe) *pe++=0;
      data[i]=pp;
    }
    if(i<6) return;
    sh=atoi(data[2]); ex=atoi(data[3]);
    if(sh<=0 || ex<=0 || ex>MAX_EXO || strlen(data[1])>10) return;
    if(data[0][0]=='E') {
      tab=examdata; data[0]++; if(sh>MAX_EXAM) return;
    }
    else {
      tab=shdata; if(sh>MAX_SHEET) return;
    }
    tab+=(sh-1)*MAX_EXO+(ex-1);
    t=str2time(data[0]); if(t==-1) return;
    if(strstr(data[4],"new")!=NULL) {
      snprintf(tab->lastnew,12,"%s",data[1]);
      tab->newcnt++; tab->lasttime=t;
      fcind++;
      return;
    }
    if(strcmp(data[4],"score")==0) {
      if(strcmp(tab->lastnew,data[1])!=0) return;
      if(sccnt>=MAX_SCORE) return;
      if(tab->lasttime==-1) return;
      t-=tab->lasttime; tab->lasttime=-1; if(t<0) t+=24*3600;
      if(t<0) t=0; if(t>5*3600) t=5*3600;
      scores[sccnt].dure=t; scores[sccnt].next=-1;
      scores[sccnt].score=(double) atof(data[5])*100+0.5;
      if(tab->scorecnt>0) scores[tab->lastscore].next=sccnt;
      else tab->firstscore=sccnt;
      tab->lastscore=sccnt; sccnt++; tab->scorecnt++;
    }
}

void onefile(char *fname)
{
    FILE *f;
    char *buf, *pp, *pe;
    long int l;
    f=fopen(fname,"r"); if(f==NULL) return;
    fseek(f,0,SEEK_END); l=ftell(f); fseek(f,0,SEEK_SET);
    if(l<=0) {fclose(f); return;}
    buf=xmalloc(l+16); fread(buf,1,l,f); fclose(f); buf[l]=0;
    fcind=0;
    for(pp=buf; pp; pp=pe) {
      pe=strchr(pp,'\n'); if(pe!=NULL) *pe++=0;
      oneline(pp);
    }
    free(buf);
    if(fcind>0) filecnt++;
}

void onedir(char *dirname)
{
    char buf[MAX_LINELEN+1], buf2[MAX_LINELEN+1];
    DIR *dir;
    struct dirent *ff;
    char *t1, *t2;
    
    for(t1=find_word_start(types); *t1; t1=find_word_start(t2)) {
      t2=find_word_end(t1); if(*t2) *t2++=0;
      snprintf(buf,sizeof(buf),"%s/%s/%s",dirbase,dirname,t1);
      dir=opendir(buf); if(dir==NULL) return;
      while((ff=readdir(dir))!=NULL) {
          if(!isalnum(ff->d_name[0]) ||
             strcmp(ff->d_name,"supervisor")==0) continue;
          snprintf(buf2,sizeof(buf2),"%s/%s",buf,ff->d_name);
          onefile(buf2);
      }
      closedir(dir);
    }
}

void stati(exodata *dat)
{
    int i,j;
    double s,d;
    
    scsum=scavg=scdeviat=dursum=duravg=durdeviat=cid=0;
    scmin=10; scmax=0; durmin=24*3600; durmax=0;
    for(i=0,j=dat->firstscore; i<dat->scorecnt; i++) {
      s=(double) scores[j].score/100; d=(double) scores[j].dure/60;
      scsum+=s; dursum+=d;
      if(scmin>s) scmin=s; if(scmax<s) scmax=s;
      if(durmin>d) durmin=d; if(durmax<d) durmax=d;
      j=scores[j].next;
    }
    if(i<=0) {scmin=durmin=0; return;}
    scavg=scsum/i; duravg=dursum/i;
    if(scsum>1) cid=min(4*sqrt(dursum*dat->newcnt)/scsum,99);
    else cid=0;
    if(i>=2) {
      for(i=0,j=dat->firstscore; i<dat->scorecnt; i++) {
          s=(double) scores[j].score/100; d=(double) scores[j].dure/60;
          scdeviat+=(s-scavg)*(s-scavg); durdeviat+=(d-duravg)*(d-duravg);
          j=scores[j].next;
      }
      scdeviat=sqrt(scdeviat/i); durdeviat=sqrt(durdeviat/i);
    }
}

      /* Output line format:
       * type sh exo newcnt scorecnt scsum dursum scavg duravg scmin durmin scmax durmax scdeviat durdeviat cid*/
void output(void)
{
    int i;
    for(i=0;i<MAX_SHEET*MAX_EXO;i++) {
      if(shdata[i].newcnt<=0) continue;
      stati(shdata+i);
      printf(":S %2d %2d %4d %4d \
%4.0f %4.0f %5.2f %5.2f \
%5.2f %4.1f %5.2f %5.1f \
%5.2f %5.2f %4.1f\n",
             i/MAX_EXO+1,i%MAX_EXO+1,
             shdata[i].newcnt, shdata[i].scorecnt,
             scsum, dursum,
             scavg, duravg,
             scmin,durmin,scmax,durmax,
             scdeviat, durdeviat,
             cid);
    }
    for(i=0;i<MAX_EXAM*MAX_EXO;i++) {
      if(examdata[i].newcnt<=0) continue;
      stati(examdata+i);
      printf(":E %2d %2d %4d %4d \
%4.0f %4.0f %5.2f %5.2f \
%5.2f %4.1f %5.2f %5.1f \
%5.2f %5.2f %4.1f\n",
             i/MAX_EXO+1,i%MAX_EXO+1,
             examdata[i].newcnt, examdata[i].scorecnt,
             scsum, dursum,
             scavg, duravg,
             scmin,durmin,scmax,durmax,
             scdeviat, durdeviat,
             cid);
    }
}

int main()
{
    char cla[MAX_LINELEN+1];
    char *c1, *c2;
    char *sdata, *cdata;
    
    memset(shdata,0,sizeof(shdata)); memset(examdata,0,sizeof(examdata));
    dirbase=getenv("exostat_dirbase");
    if(dirbase==NULL || *dirbase==0) dirbase="../log/classes";
    sdata=getenv("exostat_types");
    if(sdata==NULL || *sdata==0) sdata="score noscore";
    cdata=getenv("exostat_classes");
    if(cdata==NULL || *cdata==0) cdata=getenv("w_wims_class");
    if(cdata==NULL || *cdata==0) return -1;
    snprintf(types,sizeof(types),"%s",sdata);
    snprintf(cla,sizeof(cla),"%s",cdata);
    for(c1=cla; *c1; c1++) if(!isdigit(*c1)) *c1=' ';
    for(c1=find_word_start(cla); *c1; c1=find_word_start(c2)) {
      c2=find_word_end(c1); if(*c2) *c2++=0;
      onedir(c1);
    }
    output();
    return 0;
}


Generated by  Doxygen 1.6.0   Back to index