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

 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;
+double best[10];
 int filecnt=0, fcind;
-char *dirbase, *sdata;
+char *dirbase, *sdata, user[256];
 int str2time(char *p)
+{
     int sec,min,hr;
     sec=atoi(p+15); p[14]=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)
+void oneline(char *p, char *typ)
+{
     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++) {
+    for(i=0, pp=find_word_start(p); i<9  && *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]);
       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) {
+      if(strcmp(typ,"score")==0){
+        if ((i > 7 && strcmp(data[7],"noscore")==0)
+            || (i > 8 && strcmp(data[8],"noscore")==0)) { return; }
+      }
+      if(strcmp(typ,"noscore")==0){
+        if (i < 7 || ( i>7 && strcmp(data[7],typ)!=0)
+            || (i > 8 && strcmp(data[8], typ)!=0)) { return; }
+      }
       snprintf(tab->lastnew,12,"%s",data[1]);
       tab->newcnt++; tab->lasttime=t;
       fcind++;
       return;
+    }
       else tab->firstscore=sccnt;
       tab->lastscore=sccnt; sccnt++; tab->scorecnt++;
+    }
+}
-void onefile(char *fname)
+void onefile(char *fname, char *typ)
+{
     FILE *f;
     char *buf, *pp, *pe;
     long int l;
     f=fopen(fname,"r"); if(f==NULL) return;
     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;
-      oneline(pp);
+      oneline(pp,typ);
+    }
     free(buf);
     if(fcind>0) filecnt++;
+}
+void onedir_ (char buf[MAX_LINELEN+1], char *typ)
+{
+  char buf2[MAX_LINELEN+1];
+  DIR *dir;
+  struct dirent *ff;
+  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,typ);
+      }
+      closedir(dir);
+}
 void onedir(char *dirname)
+{
+    char buf[MAX_LINELEN+1];
+    char *t1, *t2, types[256];
+    snprintf(types,sizeof(types),"%s",sdata);
+    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/score",dirbase,dirname);
+      onedir_(buf,t1);
+      snprintf(buf,sizeof(buf),"%s/%s/noscore",dirbase,dirname);
+      onedir_(buf,t1);
+    }
+}
+void oneuser(char *dirname, char fname[64])
+{
     char buf[MAX_LINELEN+1], buf2[MAX_LINELEN+1];
-    DIR *dir;
-    struct dirent *ff;
     char *t1, *t2, types[256];
     snprintf(types,sizeof(types),"%s",sdata);
     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);
+      snprintf(buf,sizeof(buf),"%s/%s/score/%s",dirbase,dirname,fname);
-      dir=opendir(buf); if(dir==NULL) return;
-      while((ff=readdir(dir))!=NULL) {
+      onefile(buf,t1);
-          if(!isalnum(ff->d_name[0]) ||
-             strcmp(ff->d_name,"supervisor")==0) continue;
-          snprintf(buf2,sizeof(buf2),"%s/%s",buf,ff->d_name);
+      snprintf(buf2,sizeof(buf),"%s/%s/noscore/%s",dirbase,dirname,fname);
-          onefile(buf2);
+      onefile(buf2,t1);
-      }
-      closedir(dir);
+    }
+}
+void multiuser(char *dirname, char *user)
+{
+   char buf[MAX_LINELEN+1];
+   char *u1, *u2;
+   snprintf(buf,sizeof(buf),"%s",user);
+   for(u1=find_word_start(buf); *u1; u1=find_word_start(u2)) {
+      u2=find_word_end(u1); if(*u2) *u2++=0;
+      oneuser(dirname, u1);
+  }
+}
 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;
+    {int k; for(k=0; k<10; k++) best[k]=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;
+      {
+       int k, l = 0;
+       for (k = 0; k < 10; k++) if (best[k] < best[l]) l = k;
+       if (best[l] < s) best[l] = s;
+      }
       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) {
+}
 /* Output line format:
  * type sh exo newcnt scorecnt scsum dursum scavg duravg scmin durmin scmax durmax scdeviat durdeviat cid
  */
-void output(void)
+void  outsheetexo (int i, int flag)
 {
-    int i;
-    for(i=0;i<MAX_SHEET*MAX_EXO;i++) {
-      if(shdata[i].newcnt<=0) continue;
+  if(shdata[i].newcnt<=0) return;
-      stati(shdata+i);
+  stati(shdata+i);
+  switch(flag) {
-      printf(":S %2d %2d %4d %4d \
+     case 0: 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); break;
+     case 1: printf("%d_%d=%d,%d,\
+%.0f,%.0f,%.2f,%.2f,\
+%.2f,%.1f,%.2f,%.1f,\
+%.2f,%.2f,%.1f;",
              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);
+            int k; for (k=0; k<10; k++) printf("%.2f,", best[k]);
+            printf("\n");
+            break;
-    }
+   }
+}
-    for(i=0;i<MAX_EXAM*MAX_EXO;i++) {
+void outexamexo (int i)
+{
-      if(examdata[i].newcnt<=0) continue;
+   if(examdata[i].newcnt<=0) return;
       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",
              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++) { outsheetexo(i, 0);}
+    for(i=0;i<MAX_EXAM*MAX_EXO;i++) { outexamexo(i);}
+}
 int main()
+{
-    char cla[MAX_LINELEN+1];
+    char cla[MAX_LINELEN+1], user[256];
     char *c1, *c2;
-    char *cdata;
+    char *cdata, *udata, *sh;
     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(cla,sizeof(cla),"%s",cdata);
+    udata=getenv("exostat_user");
+    if(udata==NULL || *udata==0) {
-    for(c1=cla; *c1; c1++) if(!isalnum(*c1) && *c1!='/') *c1=' ';
+     for(c1=cla; *c1; c1++) if(!isalnum(*c1) && *c1!='/') *c1=' ';
-    for(c1=find_word_start(cla); *c1; c1=find_word_start(c2)) {
+     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();
+    } else {
+      snprintf(user,sizeof(user),"%s",udata);
+      multiuser(cla, user);
+      sh=getenv("exostat_sheet");
+      if( sh==NULL || *sh==0 ) { output(); }
+      else {
+         int s=atoi(sh);
+         s=(s-1)*MAX_EXO;
+         int i;
+         for(i=s;i < s + MAX_EXO;i++) {
+         outsheetexo(i, 1);
+         }
+       };
+    }
-    output();
     return 0;
+}

Subversion Repositories wimsdev

(root)/trunk/wims/src/Misc/exostat.c – Rev 7571 → 7609