1: /*
2: * scorertoset.c
3: * Copyright Guy Albertelli II 1997
4: */
5: #include <stdio.h>
6: #include <ctype.h>
7: #include <tcl.h>
8: #include <tk.h>
9: #include "Capa/capaCommon.h"
10: #include "scorer.h"
11:
12: /**************************************************Set Database Entry */
13: int scorer_set_entry(ClientData notused, Tcl_Interp *interp, int argc, char** argv)
14: {
15: FILE *fp;
16: int fd;
17: int errcode=TCL_OK;
18: int done,len,new_len,item_cnt;
19: long next_r, orig_size, new_size, big_buf_size;
20: char filename[FILE_NAME_LENGTH];
21: char *a_line, tmpline[MAX_LINE_LENGTH], errorline[MAX_LINE_LENGTH],
22: tmp_sn[MAX_STUDENT_NUMBER+1], fmtbuf[SMALL_LINE_BUFFER];
23: char *big_buf;
24: char *student_number,*answers,*tries;
25: int set;
26: long offset;
27:
28: if (argc != 6) {
29: Tcl_SetResult(interp,"usage is: studentNumber set fileOffset answers tries",
30: TCL_VOLATILE);
31: return TCL_ERROR;
32: }
33: student_number=argv[1];
34: set=atoi(argv[2]);
35: offset=atoi(argv[3]);
36: answers=argv[4];
37: tries=argv[5];
38:
39: offset=(offset<0)?-offset:offset;
40:
41: sprintf(filename,"records/set%d.sb",set);
42: if ((fp=fopen(filename,"r+"))==NULL) {
43: sprintf(errorline,"Error: can't open %s\n",filename);
44: Tcl_SetResult(interp,errorline,TCL_VOLATILE);
45: return TCL_ERROR;
46: }
47: a_line=capa_malloc(strlen(tries)*5,1);
48: sprintf(a_line,"%s %s,%s\n",student_number,answers,tries);
49: new_len = strlen(a_line);
50: sprintf(fmtbuf, "%%%dc",MAX_STUDENT_NUMBER);
51: flockstream(fp);
52: fseek(fp,0L,SEEK_END);
53: orig_size = ftell(fp);
54: big_buf_size = orig_size + new_len;
55: big_buf = capa_malloc(big_buf_size,1);
56: fseek(fp,0L,SEEK_SET); /* rewind to beginning of file */
57: fgets(tmpline,TMP_LINE_LENGTH-1,fp); /* skip weight line, including \n */
58: fgets(tmpline,TMP_LINE_LENGTH-1,fp); /* hand grading */
59: done = 0;
60: while(!done) {
61: done = !fgets(tmpline,TMP_LINE_LENGTH-1,fp); len = strlen(tmpline);
62: if( !done ) {
63: sscanf(tmpline,fmtbuf,tmp_sn);
64: if( !strncasecmp(tmp_sn,student_number,MAX_STUDENT_NUMBER) ) { /* Found */
65: next_r = ftell(fp); offset = next_r - len; done = 1;
66: item_cnt=fread(big_buf,1,big_buf_size, fp); /* read remaining lines into buffer */
67: if(item_cnt >= 0 ) { /* no error reading remaining lines */
68: big_buf[item_cnt]=0; /* terminate the buffer, for sure */
69: fseek(fp,offset,SEEK_SET); /* reposition file pointer to the record */
70: if (!fwrite(a_line,new_len,1,fp) ) { /* write out the records */
71: sprintf(errorline,"Error writing data to file: %s\n",filename);
72: Tcl_SetResult(interp,errorline,TCL_VOLATILE);
73: errcode= TCL_ERROR;
74: }
75: if (item_cnt != 0) {
76: if (!fwrite(big_buf,item_cnt,1,fp) ){/*write out the remainings*/
77: sprintf(errorline,"Error writing data to file: %s\n",filename);
78: Tcl_SetResult(interp,errorline,TCL_VOLATILE);
79: errcode= TCL_ERROR;
80: }
81: }
82: new_size = ftell(fp);
83: if(new_size < orig_size ) {
84: fd = fileno(fp);
85: ftruncate(fd,new_size);
86: }
87: }
88: }
89: } else { /* end of file */
90: fseek(fp,0L,SEEK_END);
91: offset = ftell(fp); /* last byte, if last byte is cr, back up one */
92: fseek(fp,-1L,SEEK_END);
93: while(fgetc(fp) == '\n' ) { offset--; fseek(fp,offset,SEEK_SET); }
94: offset = offset +2; /* last char and cr */
95: done=1;
96: fseek(fp,offset,SEEK_SET);
97: if (!fwrite(a_line,new_len,1,fp) ) { /* write out the records */
98: sprintf(errorline,"Error writing data to file: %s\n",filename);
99: Tcl_SetResult(interp,errorline,TCL_VOLATILE);
100: errcode= TCL_ERROR;
101: }
102: }
103: }
104: fflush(fp);
105: funlockstream(fp); /* <======= unlock the file */
106: fclose(fp);
107: capa_mfree(big_buf); /* free up the buffer */
108: return (errcode);
109: }
110:
111: /**************************************************** Get db entry*/
112: /* RETURNS: byte offset to start of record, 0 if error,
113: -offset if not found & newly created
114:
115: */
116: int scorer_get_entry(ClientData notused, Tcl_Interp *interp, int argc, char** argv)
117: {
118: char filename[FILE_NAME_LENGTH];
119: FILE *fp;
120: int len, nq;
121: char *ans_p, *tries_p,oneline[MAX_LINE_LENGTH],fmtbuf[MAX_LINE_LENGTH],
122: buf[MAX_LINE_LENGTH];
123: long offset=0, next_r;
124: int ii, done, found=0,set;
125: char a_sn[MAX_STUDENT_NUMBER+1];
126: char *student_number;
127: T_entry *entry;
128:
129: if (argc!=3) {
130: Tcl_SetResult(interp,"usage is: studentNumber set",TCL_VOLATILE);
131: return TCL_ERROR;
132: }
133: set=atoi(argv[2]);
134: student_number=argv[1];
135: entry=(T_entry*)capa_malloc(1,sizeof(T_entry));
136:
137: sprintf(filename,"records/set%d.sb",set);
138: if ((fp=fopen(filename,"r"))==NULL) {
139: sprintf(buf,"Error: can't open %s\n",filename);
140: Tcl_SetResult(interp,buf,TCL_VOLATILE);
141: return TCL_ERROR;
142: }
143: sprintf(entry->student_number,"%s",student_number);
144: sprintf(fmtbuf, "%%%dc",MAX_STUDENT_NUMBER);
145: flockstream(fp);
146: fgets(oneline,MAX_LINE_LENGTH-1,fp);
147: len = strlen(oneline); sscanf(oneline,"%d",&nq);
148: ans_p = capa_malloc(nq+1,1); tries_p = capa_malloc(3*nq,1);
149: fgets(oneline,MAX_LINE_LENGTH-1,fp); /* skip weight line */
150: fgets(oneline,MAX_LINE_LENGTH-1,fp); /* hand grading */
151: done = 0;
152: while(!done) {
153: done = !fgets(oneline,MAX_LINE_LENGTH-1,fp); len = strlen(oneline);
154: if( !done ) {
155: sscanf(oneline,fmtbuf,a_sn);
156: if( !strncasecmp(a_sn,student_number,MAX_STUDENT_NUMBER) ) { /* Found */
157: next_r = ftell(fp); offset = next_r - len; done = 1; found = 1;
158: }
159: } else {
160: fseek(fp,0L,SEEK_END);
161: offset = ftell(fp); /* last byte, if last bye is cr, back up one */
162: fseek(fp,-1L,SEEK_END);
163: while(fgetc(fp) == '\n' ) { offset--; fseek(fp,offset,SEEK_SET); }
164: offset = offset +2; /* last char and cr */
165: found = 0; done=1;
166: }
167: }
168: funlockstream(fp); fclose(fp);
169: if(!found) {
170: for(ii=0;ii<nq;ii++) { /* Initialize answer string and tries string */
171: ans_p[ii] = '-'; tries_p[3*ii] = ' '; tries_p[3*ii + 1] = '0';
172: if(ii < nq-1) tries_p[3*ii + 2] = ',';
173: }
174: entry->answers = ans_p;
175: entry->tries = tries_p;
176: entry->e_probs = nq;
177: /*if (scorer_set_entry(entry,student_number,set,offset)==-1)
178: offset=0;*/
179: offset = -offset;
180: } else {
181: sprintf(fmtbuf, "%%%dc",nq);
182: sscanf(oneline + MAX_STUDENT_NUMBER+1,fmtbuf,ans_p);
183: sprintf(fmtbuf, "%%%dc",(3*nq-1));
184: sscanf(oneline + MAX_STUDENT_NUMBER+1+nq+1,fmtbuf,tries_p);
185: entry->answers = ans_p;
186: entry->tries = tries_p;
187: entry->e_probs = nq;
188: }
189: sprintf(buf,"%d;%d;%s;%s",offset,entry->e_probs,entry->answers,entry->tries);
190: Tcl_SetResult(interp,buf,TCL_VOLATILE);
191: return TCL_OK;
192: }
193:
194: void processFile(FILE *inputFile,Question questions[MAX_QUEST],int setId,
195: int gradingMethod,int numQuestions)
196: {
197: T_entry grade;
198: char studentNumber[MAX_STUDENT_NUMBER+1],name[MAX_NAME_CHAR+1];
199: int offset,score,section,buf,i,numRight,points=0,leafs,processed=0,unit;
200:
201: printf("Processing");
202: while(fscanf(inputFile,"%s",studentNumber)!=EOF)
203: {
204: processed++;
205: if (processed%100==1) { printf("%d",processed-1); }
206: printf(".");
207: fflush(stdout);
208: /* if ((offset = scorer_get_entry(&grade,studentNumber,setId))==0)
209: {
210: fprintf(stderr,"Please create the set%d.sb file\n",setId);
211: exit(-1);
212: }
213: */
214: fscanf(inputFile,"%30c",name);
215: fscanf(inputFile,"%s",grade.answers);
216: fscanf(inputFile,"%d",&score);
217: fscanf(inputFile,"%d",§ion);
218: if ( (grade.e_probs != strlen(grade.answers))
219: ||
220: (strlen(grade.answers) != numQuestions))
221: {
222: fprintf(stderr,"There is a disagreement in the number of problems");
223: fprintf(stderr,"\nNumQuestions:%d\n",numQuestions);
224: fprintf(stderr,"strlen(grade.answers):%d\n",strlen(grade.answers));
225: fprintf(stderr,"grade.answers:%s\n",grade.answers);
226: fprintf(stderr,"grade.e_probs:%d\n",grade.e_probs);
227: fprintf(stderr,"The set.sb file may have bad entries, please\n");
228: fprintf(stderr,"check the file and fix the error.\n");
229: exit(-1);
230: }
231: buf='\0';
232: while(buf!='\n')
233: {
234: buf=fgetc(inputFile);
235: }
236: #ifdef DEBUG
237: printf("%d %d\n",numQuestions,strlen(grade.answers));
238: #endif /*DEBUG*/
239: for(i=0;i<numQuestions;i++)
240: {
241: switch(questions[i].type)
242: {
243: case ONE_OUT_OF_8:
244: case SINGLE_DIGIT:
245: numRight= (int) (grade.answers[i]-'0');
246: score=numRight*questions[i].points;
247: grade.answers[i]='0'+(char)score;
248: break;
249: case STRING_MATCH:
250: /*for STRING_MATCH the score is stroed as the NumRight*/
251: numRight= (int) (grade.answers[i]-'0');
252: score=numRight;
253: grade.answers[i]='0'+(char)score;
254: break;
255: case GLE:
256: case TF:
257: case N_OUT_OF_M:
258: numRight=(int) (grade.answers[i]-'0');
259: leafs=questions[i].leafs;
260: points=questions[i].points;
261: unit=(int)ceil((double)points/(double)leafs);
262: if (unit==0) unit=points;
263: switch (gradingMethod)
264: {
265: case CAPA_METHOD:
266: score=points-(2*unit*(leafs-numRight));
267: break;
268: case LENIENT_METHOD:
269: score=points-(unit*(leafs-numRight));
270: break;
271: case STRICT:
272: if (numRight==leafs) score=points;
273: else score=0;
274: break;
275: default:
276: fprintf(stderr,"Unknown grading Method. %d\n",gradingMethod);
277: break;
278: }
279: if (score<0)
280: score=0;
281: grade.answers[i]='0'+(char)score;
282: break;
283: case ASSIGNED:
284: /*
285: *grade.answers already has the correct number of points.
286: *i.e whatever the scorer.output file had in it and was put in
287: *grade.
288: */
289: break;
290: default:
291: fprintf(stderr,"Unknown question type %c\n",questions[i].type);
292: break;
293: }
294: }
295: for(i=0;i<strlen(grade.answers);i++)
296: {
297: grade.tries[3*i]=' ';
298: grade.tries[3*i+1]='1';
299: grade.tries[3*i+2]=',';
300: }
301: grade.tries[3*i-1]='\0';
302: grade.answers[i]='\0';
303: #ifdef DEBUG
304: printf("%s\n",studentNumber);
305: #endif /*DEBUG*/
306: /*if (scorer_set_entry(&grade,studentNumber,setId,abs(offset))==-1)
307: {
308: fprintf(stderr,"Please create the set%d.sb file\n",setId);
309: exit(-1);
310: }
311: */
312: }
313: printf("\nProcessed %d results\n",processed);
314: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to scorertoset.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / GUITools