WebSVN – wimsdev – Diff – /trunk/wims/src/Misc/exostat.c

  *  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,
+/* This is an internal program,
-         * used to show statistics of frequentation, module by module. */
+ * used to show statistics of frequentation, module by module.
+*/
 #include "../Lib/libwims.h"
-#define MAX_EXO         64
+#define MAX_EXO        64
-#define MAX_SHEET       64
+#define MAX_SHEET      64
-#define MAX_EXAM        32
+#define MAX_EXAM       32
-#define MAX_SCORE       512*1024
+#define MAX_SCORE      512*1024
 typedef struct {
     short int dure,score;
     long int next;
 } scoredata;
     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;
+      pe=find_word_end(pp); if(*pe) *pe++=0;
-        data[i]=pp;
+      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;
+      tab=examdata; data[0]++; if(sh>MAX_EXAM) return;
+    }
     else {
-        tab=shdata; if(sh>MAX_SHEET) return;
+      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]);
+      snprintf(tab->lastnew,12,"%s",data[1]);
-        tab->newcnt++; tab->lasttime=t;
+      tab->newcnt++; tab->lasttime=t;
-        fcind++;
+      fcind++;
-        return;
+      return;
+    }
     if(strcmp(data[4],"score")==0) {
-        if(strcmp(tab->lastnew,data[1])!=0) return;
+      if(strcmp(tab->lastnew,data[1])!=0) return;
-        if(sccnt>=MAX_SCORE) return;
+      if(sccnt>=MAX_SCORE) return;
-        if(tab->lasttime==-1) return;
+      if(tab->lasttime==-1) return;
-        t-=tab->lasttime; tab->lasttime=-1; if(t<0) t+=24*3600;
+      t-=tab->lasttime; tab->lasttime=-1; if(t<0) t+=24*3600;
-        if(t<0) t=0; if(t>5*3600) t=5*3600;
+      if(t<0) t=0; if(t>5*3600) t=5*3600;
-        scores[sccnt].dure=t; scores[sccnt].next=-1;
+      scores[sccnt].dure=t; scores[sccnt].next=-1;
-        scores[sccnt].score=(double) atof(data[5])*100+0.5;
+      scores[sccnt].score=(double) atof(data[5])*100+0.5;
-        if(tab->scorecnt>0) scores[tab->lastscore].next=sccnt;
+      if(tab->scorecnt>0) scores[tab->lastscore].next=sccnt;
-        else tab->firstscore=sccnt;
+      else tab->firstscore=sccnt;
-        tab->lastscore=sccnt; sccnt++; tab->scorecnt++;
+      tab->lastscore=sccnt; sccnt++; tab->scorecnt++;
+    }
+}
 void onefile(char *fname)
+{
     fseek(f,0,SEEK_END); l=ftell(f); fseek(f,0,SEEK_SET);
     if(l<=0) {fclose(f); return;}
     buf=xmalloc(l+16); (void)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;
+      pe=strchr(pp,'\n'); if(pe!=NULL) *pe++=0;
-        oneline(pp);
+      oneline(pp);
+    }
     free(buf);
     if(fcind>0) filecnt++;
+}
+{
     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;
+      t2=find_word_end(t1); if(*t2) *t2++=0;
-        snprintf(buf,sizeof(buf),"%s/%s/%s",dirbase,dirname,t1);
+      snprintf(buf,sizeof(buf),"%s/%s/%s",dirbase,dirname,t1);
-        dir=opendir(buf); if(dir==NULL) return;
+      dir=opendir(buf); if(dir==NULL) return;
-        while((ff=readdir(dir))!=NULL) {
+      while((ff=readdir(dir))!=NULL) {
-            if(!isalnum(ff->d_name[0]) ||
+          if(!isalnum(ff->d_name[0]) ||
-               strcmp(ff->d_name,"supervisor")==0) continue;
+             strcmp(ff->d_name,"supervisor")==0) continue;
-            snprintf(buf2,sizeof(buf2),"%s/%s",buf,ff->d_name);
+          snprintf(buf2,sizeof(buf2),"%s/%s",buf,ff->d_name);
-            onefile(buf2);
+          onefile(buf2);
-        }
+      }
-        closedir(dir);
+      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;
+      s=(double) scores[j].score/100; d=(double) scores[j].dure/60;
-        scsum+=s; dursum+=d;
+      scsum+=s; dursum+=d;
-        if(scmin>s) scmin=s; if(scmax<s) scmax=s;
+      if(scmin>s) scmin=s; if(scmax<s) scmax=s;
-        if(durmin>d) durmin=d; if(durmax<d) durmax=d;
+      if(durmin>d) durmin=d; if(durmax<d) durmax=d;
-        j=scores[j].next;
+      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++) {
+      for(i=0,j=dat->firstscore; i<dat->scorecnt; i++) {
-            s=(double) scores[j].score/100; d=(double) scores[j].dure/60;
+          s=(double) scores[j].score/100; d=(double) scores[j].dure/60;
-            scdeviat+=(s-scavg)*(s-scavg); durdeviat+=(d-duravg)*(d-duravg);
+          scdeviat+=(s-scavg)*(s-scavg); durdeviat+=(d-duravg)*(d-duravg);
-            j=scores[j].next;
+          j=scores[j].next;
-        }
+      }
-        scdeviat=sqrt(scdeviat/i); durdeviat=sqrt(durdeviat/i);
+      scdeviat=sqrt(scdeviat/i); durdeviat=sqrt(durdeviat/i);
+    }
+}
-        /* Output line format:
+      /* Output line format:
-         * type sh exo newcnt scorecnt scsum dursum scavg duravg scmin durmin scmax durmax scdeviat durdeviat cid*/
+       * 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;
+      if(shdata[i].newcnt<=0) continue;
-        stati(shdata+i);
+      stati(shdata+i);
-        printf(":S %2d %2d %4d %4d \
+      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,
+             i/MAX_EXO+1,i%MAX_EXO+1,
-               shdata[i].newcnt, shdata[i].scorecnt,
+             shdata[i].newcnt, shdata[i].scorecnt,
-               scsum, dursum,
+             scsum, dursum,
-               scavg, duravg,
+             scavg, duravg,
-               scmin,durmin,scmax,durmax,
+             scmin,durmin,scmax,durmax,
-               scdeviat, durdeviat,
+             scdeviat, durdeviat,
-               cid);
+             cid);
+    }
     for(i=0;i<MAX_EXAM*MAX_EXO;i++) {
-        if(examdata[i].newcnt<=0) continue;
+      if(examdata[i].newcnt<=0) continue;
-        stati(examdata+i);
+      stati(examdata+i);
-        printf(":E %2d %2d %4d %4d \
+      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,
+             i/MAX_EXO+1,i%MAX_EXO+1,
-               examdata[i].newcnt, examdata[i].scorecnt,
+             examdata[i].newcnt, examdata[i].scorecnt,
-               scsum, dursum,
+             scsum, dursum,
-               scavg, duravg,
+             scavg, duravg,
-               scmin,durmin,scmax,durmax,
+             scmin,durmin,scmax,durmax,
-               scdeviat, durdeviat,
+             scdeviat, durdeviat,
-               cid);
+             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";
     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(!isalnum(*c1) && *c1!='/') *c1=' ';
     for(c1=find_word_start(cla); *c1; c1=find_word_start(c2)) {
-        c2=find_word_end(c1); if(*c2) *c2++=0;
+      c2=find_word_end(c1); if(*c2) *c2++=0;
-        onedir(c1);
+      onedir(c1);
+    }
     output();
     return 0;
+}

Subversion Repositories wimsdev

(root)/trunk/wims/src/Misc/exostat.c – Rev 3840 → 7158