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) |