Annotation of capa/capa51/Historic/bubblersurveyexam.c, revision 1.1.1.1
1.1 albertel 1: #include <stdio.h>
2: #include "Capa/capaCommon.h"
3: #include "bubbler.h"
4:
5:
6: #include <ctype.h>
7:
8: #ifdef __sun
9: #include <unistd.h> /* lockf() */
10: #endif
11:
12: #include "capaParser.h"
13: #include "capaToken.h"
14: #include "ranlib.h"
15: /*********************************************/
16: /* flock() in SUN is in BSD compatibility lib */
17: /* #include <sys/file.h> */
18:
19: #ifdef F_DBUG
20: extern FILE *dfp;
21: #endif
22:
23:
24: /********************************************************** file locking */
25: int
26: flockstream_sh(sp) FILE *sp;
27: {
28: int fd;
29:
30: fd = fileno(sp);
31:
32: #ifdef __sun
33: return ( lockf(fd,F_LOCK, 0L) );
34: #else
35: return (flock(fd,LOCK_SH));
36: #endif
37: }
38:
39: int
40: flockstream(sp) FILE *sp;
41: {
42: int fd;
43:
44: fd = fileno(sp);
45:
46: #ifdef __sun
47: return ( lockf(fd,F_LOCK, 0L) );
48: #else
49: return (flock(fd,LOCK_EX));
50: #endif
51: }
52: int
53: funlockstream(sp) FILE *sp;
54: {
55: int fd;
56:
57: fd = fileno(sp);
58:
59: #ifdef __sun
60: return ( lockf(fd,F_ULOCK, 0L) );
61: #else
62: return (flock(fd,LOCK_UN));
63: #endif
64: }
65:
66: char *
67: capa_malloc(num,sz) unsigned num,sz;
68: {
69: char *p;
70: p = calloc(num, sz);
71: return (p);
72: }
73:
74:
75: /****************************************************** Database Entry */
76: int /* RETURNS: error code */
77: capa_set_entry(entry, student_number, set, offset)
78: T_entry *entry; /* pointer to entry structure to fill in */
79: char *student_number;
80: int set;
81: long offset;
82: {
83: FILE *fp;
84: int errcode=0;
85: int len;
86: char filename[FILE_NAME_LENGTH];
87: char a_line[512];
88:
89: sprintf(filename,"records/set%d.db",set);
90: if ((fp=fopen(filename,"r+"))==NULL) {
91: printf("Error: can't open %s\n",filename); return (-1);
92: }
93: sprintf(a_line,"%s %s,%s\n",entry->student_number,entry->answers,entry->tries);
94: len = strlen(a_line);
95: flockstream(fp);
96: fseek(fp,offset,0);
97: if (!fwrite(a_line,len,1,fp) ) {
98: printf("Error writing data to file\n");
99: errcode= (-1);
100: }
101: funlockstream(fp);
102: fclose(fp);
103: return (errcode);
104: }
105:
106: /**************************************************** Get db entry*/
107:
108: long /* RETURNS: byte offset to start of record, 0 if error,
109: -offset if not found & newly created */
110: capa_get_entry(entry, student_number, set)
111: T_entry *entry;
112: char *student_number;
113: int set;
114: {
115: char filename[FILE_NAME_LENGTH];
116: FILE *fp;
117: int len, nq;
118: char *ans_p, *tries_p, oneline[512],fmtbuf[128];
119: long offset, next_r;
120: int ii, done=0, found=0;
121: char a_sn[MAX_STUDENT_NUMBER+1];
122:
123: sprintf(filename,"records/set%d.db",set);
124: if ((fp=fopen(filename,"r"))==NULL) {
125: printf("Error: can't open %s\n",filename);
126: return (-1);
127: }
128: sprintf(entry->student_number,"%s",student_number);
129: sprintf(fmtbuf, "%%%dc",MAX_STUDENT_NUMBER);
130: flockstream(fp);
131: fgets(oneline,511,fp); len = strlen(oneline); sscanf(oneline,"%d",&nq);
132: ans_p = capa_malloc(nq+1,1); tries_p = capa_malloc(3*nq,1);
133: fgets(oneline,511,fp); /* skip weight line */
134: fgets(oneline,511,fp); /* hand grading */
135: done = 0;
136: while(!done) {
137: done = !fgets(oneline,511,fp); len = strlen(oneline);
138: if( !done ) {
139: sscanf(oneline,fmtbuf,a_sn);
140: if( !strncasecmp(a_sn,student_number,MAX_STUDENT_NUMBER) ) { /* Found */
141: next_r = ftell(fp); offset = next_r - len; done = 1; found = 1;
142: }
143: } else {
144: fseek(fp,0L,SEEK_END);
145: offset = ftell(fp); /* last byte, if last bye is cr, back up one */
146: fseek(fp,-1L,SEEK_END);
147: while(fgetc(fp) == '\n' ) { offset--; fseek(fp,offset,SEEK_SET); }
148: offset = offset +2; /* last char and cr */
149: found = 0; done=1;
150: }
151: }
152: funlockstream(fp); fclose(fp);
153: if(!found) {
154: for(ii=0;ii<nq;ii++) { /* Initialize answer string and tries string */
155: ans_p[ii] = '-'; tries_p[3*ii] = ' '; tries_p[3*ii + 1] = '0';
156: if(ii < nq-1) tries_p[3*ii + 2] = ',';
157: }
158: entry->answers = ans_p;
159: entry->tries = tries_p;
160: capa_set_entry(entry,student_number,set,offset);
161: offset = -offset;
162: } else {
163: sprintf(fmtbuf, "%%%dc",nq);
164: sscanf(oneline + MAX_STUDENT_NUMBER+1,fmtbuf,ans_p);
165: sprintf(fmtbuf, "%%%dc",(3*nq-1));
166: sscanf(oneline + MAX_STUDENT_NUMBER+1+nq+1,fmtbuf,tries_p);
167: entry->answers = ans_p;
168: entry->tries = tries_p;
169: }
170: return (offset);
171: }
172:
173: int main()
174: {
175: T_entry grade,examgrade;
176: FILE * inputFile, * outputFile;
177: int i=0,setnumber,score,section,setId,done=0,numQuestions,examSetId;
178: char class[10],set[3],name[MAX_NAME_CHAR+1],buf,buffmt[128],
179: studentnumber[MAX_STUDENT_NUMBER+1],filename[128];
180: int q=0,r=0,answerTop[MAXQUEST][11],answerMid[MAXQUEST][11],
181: answerBot[MAXQUEST][11],examtotal=0,firstDiv,secondDiv;
182: Question questions[MAXQUEST];
183:
184: printf("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
185: printf("Covert form Bubbler output to survey results ");
186: printf("Version 0.1.00\n");
187: printf("Please enter the Set Id number. of survey");
188: scanf("%d",&setId);
189: printf("Please enter the SetId of the Final exam.");
190: scanf("%d",&examSetId);
191: printf("Please enter score of first divison.");
192: scanf("%d",&firstDiv);
193: printf("Please enter score of second divison.");
194: scanf("%d",&secondDiv);
195: sprintf(filename,"bubbler.output.%d",setId);
196: inputFile=fopen(filename,"r");
197:
198: if (inputFile==NULL)
199: {
200: fprintf(stderr,"%s not found\n",filename);
201: exit(-1);
202: }
203:
204: fscanf(inputFile,"%s %s",class,set);
205: printf("%s %s\n",class,set);
206: setnumber=atoi(set);
207:
208: i=0;
209: fscanf(inputFile,"%c",&buf);
210: while(!done)
211: {
212: buf=fgetc(inputFile);
213: if (buf!='\n')
214: {
215: questions[i].type=buf;
216: buf=fgetc(inputFile);
217: questions[i].points=questions[i].leafs=(int)(buf-'0');
218: i++;
219: }
220: else
221: {
222: done=1;
223: }
224: }
225:
226: numQuestions=i;
227:
228: for(q=0;q<MAXQUEST;q++)
229: for(r=0;r<11;r++)
230: {
231: answerTop[q][r]=0;
232: answerMid[q][r]=0;
233: answerBot[q][r]=0;
234: }
235:
236: printf("Processing");
237: while(fscanf(inputFile,"%s",studentnumber)!=EOF)
238: {
239: examtotal=0;
240: printf(".");
241: fflush(stdout);
242: fscanf(inputFile,"%32c",name);
243: sprintf(buffmt,"%%%dc",numQuestions);
244: fscanf(inputFile,buffmt,grade.answers);
245: fscanf(inputFile,"%d",&score);
246: fscanf(inputFile,"%d",§ion);
247: buf='\0';
248: while(buf!='\n')
249: {
250: buf=fgetc(inputFile);
251: }
252: capa_get_entry(&examgrade,studentnumber,examSetId);
253:
254: #ifdef DEBUG
255: printf("%d %d\n",numQuestions,strlen(grade.answers));
256: #endif /*DEBUG*/
257:
258: for(i=0;i<numQuestions;i++)
259: {
260: switch(examgrade.answers[i])
261: {
262: case 'Y':
263: case 'y':
264: i=0;
265: fprintf(stderr,"Skipping %s b/c of Ys\n",studentnumber);
266: goto skip_student;
267: break;
268: case 'N':
269: case 'n':
270: i=0;
271: fprintf(stderr,"Skipping %s b/c of Ns\n",studentnumber);
272: goto skip_student;
273: break;
274: case ' ':
275: case '-':
276: i=0;
277: fprintf(stderr,"Skipping %s b/c not complete\n",studentnumber);
278: goto skip_student;
279: break;
280: default:
281: if (isdigit(examgrade.answers[i]))
282: {
283: examtotal+=(int)(examgrade.answers[i]-'0');
284: }
285: else
286: {
287: i=0;
288: fprintf(stderr,"Skipping %s b/c weird\n",studentnumber);
289: goto skip_student;
290: }
291: break;
292: }
293: }
294: for(i=0;i<numQuestions;i++)
295: {
296: switch(questions[i].type)
297: {
298: case 'a':
299: case 'f':
300: case 'g':
301: case 'b':
302: case 'c':
303: case 'e':
304: case 'd':
305: if (isdigit(grade.answers[i]))
306: {
307: if (examtotal < firstDiv)
308: answerBot[i][grade.answers[i]-'0']++;
309: else if (examtotal < secondDiv)
310: answerMid[i][grade.answers[i]-'0']++;
311: else
312: answerTop[i][grade.answers[i]-'0']++;
313: }
314: else if(isspace(grade.answers[i]))
315: {
316: if (examtotal < firstDiv)
317: answerBot[i][10]++;
318: else if (examtotal < secondDiv)
319: answerMid[i][10]++;
320: else
321: answerTop[i][10]++;
322: }
323: break;
324: default:
325: printf("Unknown question type\n");
326: break;
327: }
328: }
329: skip_student:
330: grade.answers[i]='\0';
331: #ifdef DEBUG
332: printf("%s\n",studentnumber);
333: #endif /*DEBUG*/
334: }
335:
336: sprintf(filename,"surveyexam.%d",setId);
337: outputFile=fopen(filename,"w");
338: if (outputFile==NULL)
339: {
340: fprintf(stderr,"%s not found\n",filename);
341: exit(-1);
342: }
343:
344: fprintf(outputFile,"Bottom Third:\n");
345: for(q=0;q<numQuestions;q++)
346: {
347: fprintf(outputFile,"Question: %d\n",q+1);
348: fprintf(outputFile," 0 1 2 3 4 5 6 7 8 9 S\n");
349: for(r=0;r<11;r++)
350: {
351: fprintf(outputFile,"%3d ",answerBot[q][r]);
352: }
353: fprintf(outputFile,"\n");
354: }
355: fprintf(outputFile,"\014Middle Third:\n");
356: for(q=0;q<numQuestions;q++)
357: {
358: fprintf(outputFile,"Question: %d\n",q+1);
359: fprintf(outputFile," 0 1 2 3 4 5 6 7 8 9 S\n");
360: for(r=0;r<11;r++)
361: {
362: fprintf(outputFile,"%3d ",answerMid[q][r]);
363: }
364: fprintf(outputFile,"\n");
365: }
366: fprintf(outputFile,"\014Top Third:\n");
367: for(q=0;q<numQuestions;q++)
368: {
369: fprintf(outputFile,"Question: %d\n",q+1);
370: fprintf(outputFile," 0 1 2 3 4 5 6 7 8 9 S\n");
371: for(r=0;r<11;r++)
372: {
373: fprintf(outputFile,"%3d ",answerTop[q][r]);
374: }
375: fprintf(outputFile,"\n");
376: }
377: printf("\nProcessing completed. Look in survey.%d for results.\n",
378: setId);
379: return 0;
380: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to bubblersurveyexam.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / Historic