[BACK]Return to scorertoset.c CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / GUITools

Diff for /capa/capa51/GUITools/scorertoset.c between versions 1.4 and 1.5

version 1.4, 2000/08/07 20:47:29 version 1.5, 2000/09/11 14:51:25
Line 68  int scorer_set_entry(ClientData notused, Line 68  int scorer_set_entry(ClientData notused,
      Tcl_SetResult(interp,errorline,TCL_VOLATILE);       Tcl_SetResult(interp,errorline,TCL_VOLATILE);
      return TCL_ERROR;       return TCL_ERROR;
    }     }
    a_line=capa_malloc(strlen(tries)*5,1);     a_line=capa_malloc(strlen(tries)*5+MAX_STUDENT_NUMBER,1);
    sprintf(a_line,"%s %s,%s\n",student_number,answers,tries);     sprintf(a_line,"%s %s,%s\n",student_number,answers,tries);
    new_len = strlen(a_line);     new_len = strlen(a_line);
    sprintf(fmtbuf, "%%%dc",MAX_STUDENT_NUMBER);     sprintf(fmtbuf, "%%%dc",MAX_STUDENT_NUMBER);
Line 210  int scorer_get_entry(ClientData notused, Line 210  int scorer_get_entry(ClientData notused,
      entry->tries   = tries_p;       entry->tries   = tries_p;
      entry->e_probs = nq;       entry->e_probs = nq;
    }     }
    sprintf(buf,"%d;%d;%s;%s",offset,entry->e_probs,entry->answers,entry->tries);     sprintf(buf,"%ld;%d;%s;%s",offset,entry->e_probs,entry->answers,entry->tries);
    Tcl_SetResult(interp,buf,TCL_VOLATILE);     Tcl_SetResult(interp,buf,TCL_VOLATILE);
    return TCL_OK;     return TCL_OK;
 }  }
Line 220  void processFile(FILE *inputFile,Questio Line 220  void processFile(FILE *inputFile,Questio
 {  {
   T_entry grade;    T_entry grade;
   char studentNumber[MAX_STUDENT_NUMBER+1],name[MAX_NAME_CHAR+1];    char studentNumber[MAX_STUDENT_NUMBER+1],name[MAX_NAME_CHAR+1];
   int offset,score,section,buf,i,numRight,points=0,leafs,processed=0,unit;    int score,section,buf,i,numRight,points=0,leafs,processed=0,unit;
   
   printf("Processing");    printf("Processing");
   while(fscanf(inputFile,"%s",studentNumber)!=EOF)    while(fscanf(inputFile,"%s",studentNumber)!=EOF)
Removed from v.1.4  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>