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

 int filecnt=0, fcind;
 char *dirbase, *sdata, user[256];
 int str2time(char *p)
+{
-    int sec,min,hr;
+  int sec,min,hr;
-    sec=atoi(p+15); p[14]=0;
+  sec=atoi(p+15); p[14]=0;
-    min=atoi(p+12); p[11]=0;
+  min=atoi(p+12); p[11]=0;
-    hr=atoi(p+9);
+  hr=atoi(p+9);
-    if(sec<0 || min<0 || hr<0 || sec>59 || min>59 || hr>23) return -1;
+  if(sec<0 || min<0 || hr<0 || sec>59 || min>59 || hr>23) return -1;
-    return hr*3600+min*60+sec;
+  return hr*3600+min*60+sec;
+}
 static
 void oneline(char *p, char *typ)
+{
-    int i, sh, ex, t;
+  int i, j, sh, ex, t;
-    char *data[64];
+  char *data[64];
-    statexodata *tab;
+  statexodata *tab;
-    char *pp, *pe;
+  char *pp, *pe;
-    for(i=0, pp=find_word_start(p); i<9  && *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;
+    pe=find_word_end(pp); if(*pe) *pe++=0;
-      data[i]=pp;
+    data[i]=pp;
-    }
+  }
-    if(i<6) return;
+  if(i<6) return;
-    sh=atoi(data[2]); ex=atoi(data[3]);
+  sh=atoi(data[2]); ex=atoi(data[3]);
-    if(sh<=0 || ex<=0 || ex>MAX_EXOS || strlen(data[1])>10) return;
+  if(sh<=0 || ex<=0 || ex>MAX_EXOS || strlen(data[1])>10) return;
-    if(data[0][0]=='E') {
+  if(data[0][0]=='E') {
-      tab=examdata; data[0]++; if(sh>MAX_EXAMS) return;
+    tab=examdata; data[0]++; if(sh>MAX_EXAMS) return;
-    }
+  }
-    else {
+  else {
-      tab=shdata; if(sh>MAX_SHEETS) return;
+    tab=shdata; if(sh>MAX_SHEETS) return;
-    }
+  }
-    tab+=(sh-1)*MAX_EXOS+(ex-1);
+  tab+=(sh-1)*MAX_EXOS+(ex-1);
-    t=str2time(data[0]); if(t==-1) return;
+  t=str2time(data[0]); if(t==-1) return;
-    if(strstr(data[4],"new")!=NULL) {
+  if(strstr(data[4],"new")!=NULL) {
-      if(strcmp(typ,"score")==0 &&
+    if(strcmp(typ,"score")==0)
-        ((i > 6 && strcmp(data[6],"noscore")==0) || (i > 7 && strcmp(data[7],"noscore")==0)
-            || (i > 8 && strcmp(data[8],"noscore")==0))){ return; }
+            for (j = 6; j < i; ++j) if (strcmp(data[j],"noscore")==0) return;
-      if(strcmp(typ,"noscore")==0 &&
+    if(strcmp(typ,"noscore")==0)
-        (i < 7 || ( i>7 && strcmp(data[7],typ)!=0)
+            for (j = 7; j < i; ++j) if (strcmp(data[j],"noscore")==0) return;
-            || (i > 8 && strcmp(data[8], typ)!=0)
-        )) { return; }
-      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(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;
-      if(strcmp(typ,"score")==0 && (
+    if(strcmp(typ,"score")==0 || strcmp(typ,"noscore")==0)
-         (i > 7 && strcmp(data[7],"noscore")==0)
-            || (i > 8 && strcmp(data[8],"noscore")==0))
-        ) { return; }
+            for (j = 7; j < i; ++j)
-      if(strcmp(typ,"noscore")==0 && (
+              if (strcmp(data[j],"noscore")==0) return;
-        ( i < 7 || ( i > 7 && strcmp(data[7],"noscore")!=0)
-            || (i > 8 && strcmp(data[8], typ)!=0))
-             )){ 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<0) t=0;
-      if(t>5*3600) t=5*3600;
+    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, char *typ)
-{
-    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); (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,typ);
-    }
+  }
-    free(buf);
-    if(fcind>0) filecnt++;
+}
+void onefile(char *fname, char *typ)
+{
+  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); (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,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) {
+  while((ff=readdir(dir))!=NULL) {
-          if(!isalnum(ff->d_name[0]) ||
-             strcmp(ff->d_name,"supervisor")==0) continue;
+    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(buf2),"%s/%s",buf,ff->d_name);
-          onefile(buf2,typ);
+    onefile(buf2,typ);
-      }
+  }
-      closedir(dir);
+  closedir(dir);
+}
 void onedir(char *dirname)
+{
-    char buf[MAX_LINELEN+1];
+  char buf[MAX_LINELEN+1];
-    char *t1, *t2, types[256];
+  char *t1, *t2, types[256];
-    snprintf(types,sizeof(types),"%s",sdata);
+  snprintf(types,sizeof(types),"%s",sdata);
-    for(t1=find_word_start(types); *t1; t1=find_word_start(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/score",dirbase,dirname);
+    snprintf(buf,sizeof(buf),"%s/%s/score",dirbase,dirname);
-      onedir_(buf,t1);
+    onedir_(buf,t1);
-      snprintf(buf,sizeof(buf),"%s/%s/noscore",dirbase,dirname);
+    snprintf(buf,sizeof(buf),"%s/%s/noscore",dirbase,dirname);
-      onedir_(buf,t1);
+    onedir_(buf,t1);
-    }
+  }
 }
 void oneuser(char *dirname, char fname[64])
-{
-    char buf[MAX_LINELEN+1], buf2[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/%s",dirbase,dirname,fname);
-      onefile(buf,t1);
-      snprintf(buf2,sizeof(buf),"%s/%s/noscore/%s",dirbase,dirname,fname);
-      onefile(buf2,t1);
-    }
-}
-void multiuser(char *dirname, char *user)
+{
+  char buf[MAX_LINELEN+1], buf2[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/%s",dirbase,dirname,fname);
+    onefile(buf,t1);
+    snprintf(buf2,sizeof(buf),"%s/%s/noscore/%s",dirbase,dirname,fname);
+    onefile(buf2,t1);
+  }
+}
+void multiuser(char *dirname, char *user)
+{
-   char buf[MAX_LINELEN+1];
+  char buf[MAX_LINELEN+1];
-   char *u1, *u2;
+  char *u1, *u2;
-   snprintf(buf,sizeof(buf),"%s",user);
+  snprintf(buf,sizeof(buf),"%s",user);
-   for(u1=find_word_start(buf); *u1; u1=find_word_start(u2)) {
+  for(u1=find_word_start(buf); *u1; u1=find_word_start(u2)) {
-      u2=find_word_end(u1); if(*u2) *u2++=0;
+    u2=find_word_end(u1); if(*u2) *u2++=0;
-      oneuser(dirname, u1);
+    oneuser(dirname, u1);
+  }
+}
 void stati(statexodata *dat)
+{
-    int i,j;
+  int i,j;
-    double s,d;
+  double s,d;
-    scsum=scavg=scdeviat=dursum=duravg=durdeviat=cid=0;
+  scsum=scavg=scdeviat=dursum=duravg=durdeviat=cid=0;
-    scmin=10; scmax=0; durmin=24*3600; durmax=0;
+  scmin=10; scmax=0; durmin=24*3600; durmax=0;
-    {int k; for(k=0; k<10; k++) best[k]=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) {
     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;
+      scdeviat+=(s-scavg)*(s-scavg); durdeviat+=(d-duravg)*(d-duravg);
-       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) {
-      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);
+    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
  */
+{
   if(shdata[i].newcnt<=0) return;
   stati(shdata+i);
   switch(flag) {
      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_EXOS+1,i%MAX_EXOS+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;",
              scdeviat, durdeviat,
              cid);
             int k; for (k=0; k<10; k++) printf("%.2f,", best[k]);
             printf("\n");
             break;
-   }
+  }
+}
 void outexamexo (int i)
+{
-   if(examdata[i].newcnt<=0) return;
+  if(examdata[i].newcnt<=0) return;
-      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_EXOS+1,i%MAX_EXOS+1,
              examdata[i].newcnt, examdata[i].scorecnt,
              cid);
+}
 void output(void)
+{
-    int i;
+  int i;
-    for(i=0;i<MAX_SHEETS*MAX_EXOS;i++) { outsheetexo(i, 0);}
+  for(i=0;i<MAX_SHEETS*MAX_EXOS;i++) { outsheetexo(i, 0);}
-    for(i=0;i<MAX_EXAMS*MAX_EXOS;i++) { outexamexo(i);}
+  for(i=0;i<MAX_EXAMS*MAX_EXOS;i++) { outexamexo(i);}
+}
 int main()
+{
-    char cla[MAX_LINELEN+1], user[256];
+  char cla[MAX_LINELEN+1], user[256];
-    char *c1, *c2;
+  char *c1, *c2;
-    char *cdata, *udata, *sh;
+  char *cdata, *udata, *sh;
-    memset(shdata,0,sizeof(shdata)); memset(examdata,0,sizeof(examdata));
+  memset(shdata,0,sizeof(shdata)); memset(examdata,0,sizeof(examdata));
-    dirbase=getenv("exostat_dirbase");
+  dirbase=getenv("exostat_dirbase");
-    if(dirbase==NULL || *dirbase==0) dirbase="../log/classes";
+  if(dirbase==NULL || *dirbase==0) dirbase="../log/classes";
-    sdata=getenv("exostat_types");
+  sdata=getenv("exostat_types");
-    if(sdata==NULL || *sdata==0) sdata="score noscore";
+  if(sdata==NULL || *sdata==0) sdata="score noscore";
-    cdata=getenv("exostat_classes");
+  cdata=getenv("exostat_classes");
-    if(cdata==NULL || *cdata==0) cdata=getenv("w_wims_class");
+  if(cdata==NULL || *cdata==0) cdata=getenv("w_wims_class");
-    if(cdata==NULL || *cdata==0) return -1;
+  if(cdata==NULL || *cdata==0) return -1;
-    snprintf(cla,sizeof(cla),"%s",cdata);
+  snprintf(cla,sizeof(cla),"%s",cdata);
-    udata=getenv("exostat_user");
+  udata=getenv("exostat_user");
-    if(udata==NULL || *udata==0) {
+  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_EXOS;
-         int i;
-         for(i=s;i < s + MAX_EXOS;i++) {
-         outsheetexo(i, 1);
-         }
-       };
+    }
+    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_EXOS;
+      int i;
+      for(i=s;i < s + MAX_EXOS;i++) {
+        outsheetexo(i, 1);
+      }
+    };
+  }
-    return 0;
+  return 0;
+}

Subversion Repositories wimsdev

(root)/trunk/wims/src/Misc/exostat.c – Rev 11124 → 12200