1: /*
2: * quizzer.funct.c
3: * Copyright Guy Albertelli II 1996
4: * Portions Copyright Issac Tsai
5: */
6: #include <stdio.h>
7: #include <tk.h>
8: #include <Capa/capaCommon.h>
9: #include <quizzer.h>
10: #include <common.h>
11: #include <ctype.h>
12: #include <time.h>
13: #include <signal.h>
14: #include <sys/types.h>
15: #include <sys/wait.h>
16: #include <errno.h>
17:
18: extern int errno;
19: extern int Parsemode_f;
20: static int capaParsing;
21: static int gCreateDvi;
22: void capaQuizzerStatus();
23:
24: T_header gCapaHeader;
25: static char* gPreviewText;
26: int capaTclParse (ClientData clientdata, Tcl_Interp *interp, int argc,
27: char *argv[])
28: {
29:
30: extern char *EndText_p;
31: extern char *StartText_p;
32: T_student student;
33: Problem_t *headProblem,*currentProblem;
34: int numOfQuestions,numAnswers,problemNumber=0;
35: int result,i=1,j,length;
36: char *buf, *buf2, *temp, *previewText=NULL;
37: char lower[32],upper[32],ans[64], unit[64];
38: double targetAns;
39: #ifdef QUIZZER_UPDATE
40: char *update=";update";
41: #else
42: char *update=" ";
43: #endif
44:
45: capaParsing = 1;
46: switch(argv[0][0])
47: {
48: case 'e':Parsemode_f = ASCII_MODE;break;
49: case 't':Parsemode_f = TeX_MODE;break;
50: case 'w':Parsemode_f = HTML_MODE;break;
51: default:
52: Tcl_ResetResult(interp);
53: Tcl_AppendElement(interp,"Invalid call to capaTclParse\n");
54: capaParsing=0;
55: return TCL_ERROR;
56: break;
57: }
58:
59: if (argc==9) { gCreateDvi=atoi(argv[8]); } else { gCreateDvi=0; }
60:
61: if ( (previewText = Tcl_GetVar(interp,argv[7],
62: TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)) == NULL)
63: {
64: fprintf(stderr,"Tcl_GetVar error\n");
65: fprintf(stderr,"%s\n",interp->result);
66: capaParsing=0;
67: return TCL_ERROR;
68: }
69: gPreviewText=previewText;
70: switch (argv[3][0])
71: {
72: case 'R':
73: result = capa_pick_student(atoi(argv[4]),&student);
74: if (result == -1)
75: {
76: buf=capa_malloc(BUFFER_SIZE,1);
77: sprintf(buf,"displayError \"There are no students in section %d.\"",
78: atoi(argv[4]));
79: Tcl_Eval(interp,buf);
80: capa_mfree(buf);
81: Tcl_ResetResult(interp);
82: Tcl_AppendElement(interp,"-1");
83: capaParsing = 0;
84: return TCL_ERROR;
85: }
86: result = capa_parse(atoi(argv[2]),&headProblem,student.s_sn,
87: &numOfQuestions,capaQuizzerStatus);
88: break;
89: case 'S':
90: result = capa_get_student(argv[5],&student);
91: if ((result == -1) || (result == 0))
92: {
93: buf=capa_malloc(BUFFER_SIZE,1);
94: sprintf(buf,"displayError \"The student %s does not exist.\"",
95: argv[5]);
96: Tcl_Eval(interp,buf);
97: capa_mfree(buf);
98: Tcl_ResetResult(interp);
99: Tcl_AppendElement(interp,"-1");
100: capaParsing = 0;
101: return TCL_ERROR;
102: }
103: result = capa_parse(atoi(argv[2]),&headProblem,argv[5],&numOfQuestions,
104: capaQuizzerStatus);
105: break;
106: default:
107: Tcl_ResetResult(interp);
108: Tcl_AppendElement(interp,"Invalid 2nd argument to capaTclParse\n");
109: capaParsing = 0;
110: return TCL_ERROR;
111: break;
112: }
113:
114: if (result==-1)
115: {
116: Tcl_ResetResult(interp);
117: Tcl_AppendElement(interp,"-1");
118: capaParsing = 0;
119: return TCL_OK;
120: }
121:
122: currentProblem=headProblem;
123: buf=capa_malloc(BUFFER_SIZE,1);
124: sprintf(buf,"%s del 0.0 end %s",previewText,update);
125: if (Tcl_Eval(interp,buf) != TCL_OK)
126: {
127: fprintf(stderr,"Tcl_Eval error 2a\n");
128: fprintf(stderr,"%s\n",interp->result);
129: capaParsing = 0;
130: return TCL_ERROR;
131: }
132: capa_mfree(buf);
133:
134: /* if in answer only mode or ascii mode put a useful header on top */
135: if(argv[1][0] == Q_ANSWER || Parsemode_f == ASCII_MODE )
136: {
137: buf=capa_malloc(BUFFER_SIZE,1);
138: buf2=capa_malloc(BUFFER_SIZE,1);
139: switch(Parsemode_f)
140: {
141: case ASCII_MODE:
142: sprintf(buf,"Section %d Set %d\n Name: %s CAPAID: %d\n\n",
143: student.s_sec, atoi(argv[2]), student.s_nm,
144: capa_PIN(student.s_sn, atoi(argv[2]),0));
145: break;
146: case TeX_MODE:
147:
148: sprintf(buf,"Section %d {\\Large %s}\\hspace*{1in}{\\large %s}, CAPAID: %d, set%d\n\\begin{enumerate}",
149: student.s_sec, student.s_nm, student.s_sn,
150: capa_PIN(student.s_sn, atoi(argv[2]),0), atoi(argv[2]));
151: break;
152: case HTML_MODE:
153: sprintf(buf,"<H2>Section %d %s, %s, CAPAID:%d set %d</H2>\n<OL>\n",
154: student.s_sec, student.s_nm, student.s_sn,
155: capa_PIN(student.s_sn, atoi(argv[2]),0), atoi(argv[2]));
156: break;
157: }
158: j=capaPrepareBuffer(buf,buf2,0);
159:
160: sprintf(buf,"%s insert end \" %s \" header%s",previewText,buf2,update);
161:
162: if (Tcl_Eval(interp,buf) != TCL_OK)
163: {
164: fprintf(stderr,"Tcl_Eval error 2\n");
165: fprintf(stderr,"%s\n",interp->result);
166: capaParsing = 0;
167: return TCL_ERROR;
168: }
169: capa_mfree(buf);
170: capa_mfree(buf2);
171: }
172:
173: if ( gCapaHeader.weight != NULL ) { capa_mfree(gCapaHeader.weight); }
174: if ( gCapaHeader.partial_credit != NULL ) { capa_mfree(gCapaHeader.partial_credit); }
175: gCapaHeader.weight= capa_malloc(numOfQuestions+1,1);
176: gCapaHeader.partial_credit= capa_malloc(numOfQuestions+1,1);
177:
178: if( ( StartText_p != NULL) )
179: {
180: buf=capa_malloc(BUFFER_SIZE+(2*strlen(StartText_p)),1);
181: buf2=capa_malloc(BUFFER_SIZE+(2*strlen(StartText_p)),1);
182: temp=capa_malloc(BUFFER_SIZE+(2*strlen(StartText_p)),1);
183: sprintf(temp,"%s", StartText_p);
184: j=capaPrepareBuffer(temp,buf2,0);
185:
186: sprintf(buf,"%s insert end \"%s\" answer%s",previewText,buf2,update);
187:
188: if (Tcl_Eval(interp,buf) != TCL_OK)
189: {
190: fprintf(stderr,"Tcl_Eval error 8\n");
191: fprintf(stderr,"%s\n",interp->result);
192: capaParsing = 0;
193: return TCL_ERROR;
194: }
195: capa_mfree(buf);
196: capa_mfree(buf2);
197: capa_mfree(temp);
198: }
199:
200: while (currentProblem!=NULL)
201: {
202: gCapaHeader.weight[problemNumber]=((char)(currentProblem->weight))+'0';
203: gCapaHeader.partial_credit[problemNumber]=
204: ((char)(currentProblem->partial_cdt))+'0';
205: switch (argv[1][0])
206: {
207: case Q_PROBLEM:
208: if (currentProblem->question) {
209: length=strlen(currentProblem->question);
210: } else {
211: length=0;
212: }
213: buf=capa_malloc(BUFFER_SIZE+(2*length),1);
214: buf2=capa_malloc(BUFFER_SIZE+(2*length),1);
215: if(currentProblem->question) {
216: j=capaPrepareBuffer(currentProblem->question,buf2,0);
217: buf2[j-1]='\n';
218: buf2[j]='\0';
219: } else {
220: buf2[0]='\n';buf2[1]='\0';
221: }
222:
223: switch(Parsemode_f)
224: {
225: case ASCII_MODE:
226: sprintf(buf,"%s insert end \"%s \n-----------\n\n\" problem%s",
227: previewText,buf2,update);
228: break;
229: case TeX_MODE:
230: sprintf(buf,"%s insert end \"%s\" problem%s",previewText,buf2,update);
231: break;
232: case HTML_MODE:
233: sprintf(buf,"%s insert end \"%s\" problem%s",previewText,buf2,update);
234: break;
235: }
236: if (Tcl_Eval(interp,buf) != TCL_OK)
237: {
238: fprintf(stderr,"Tcl_Eval error 3\n");
239: fprintf(stderr,"%s\n",interp->result);
240: capaParsing = 0;
241: return TCL_ERROR;
242: }
243: capa_mfree(buf);
244: capa_mfree(buf2);
245: break;
246: case Q_PROBLEM_AND_ANSWER:
247: if (currentProblem->question) {
248: length=strlen(currentProblem->question);
249: } else {
250: length=0;
251: }
252: buf=capa_malloc(BUFFER_SIZE+(2*length),1);
253: buf2=capa_malloc(BUFFER_SIZE+(2*length),1);
254: temp=capa_malloc(BUFFER_SIZE+(2*length),1);
255: if (currentProblem->question)
256: j=capaPrepareBuffer(currentProblem->question,buf2,0);
257: switch(Parsemode_f)
258: {
259: case ASCII_MODE:
260: sprintf(buf,"%s insert end \"%s \n-----------\n\n\" problem%s",
261: previewText,buf2,update);
262: break;
263: case TeX_MODE:
264: sprintf(buf,"%s insert end \"%s\" problem%s",previewText,buf2,update);
265: break;
266: case HTML_MODE:
267: sprintf(buf,"%s insert end \"%s\" problem%s",previewText,buf2,update);
268: break;
269: }
270: if (Tcl_Eval(interp,buf) != TCL_OK)
271: {
272: fprintf(stderr,"Tcl_Eval error 4\n");
273: fprintf(stderr,"%s\n",interp->result);
274: capaParsing = 0;
275: return TCL_ERROR;
276: }
277: capa_mfree(buf);
278: capa_mfree(buf2);
279: capa_mfree(temp);
280: capaInsertAnswer(currentProblem,interp,previewText);
281: break;
282: case Q_ANSWER:
283: print_begin_item(Parsemode_f,interp,previewText,problemNumber+1);
284: capaInsertAnswer(currentProblem,interp,previewText);
285: break;
286: }
287:
288: currentProblem=currentProblem->next;
289: problemNumber++;
290: }
291:
292: if(argv[1][0] == Q_ANSWER && Parsemode_f == TeX_MODE ) {
293: buf=capa_malloc(BUFFER_SIZE,1);
294: buf2=capa_malloc(BUFFER_SIZE,1);
295: sprintf(buf,"\n\\end{enumerate}\n");
296: j=capaPrepareBuffer(buf,buf2,0);
297:
298: sprintf(buf,"%s insert end \" %s \" header%s",previewText,buf2,update);
299:
300: if (Tcl_Eval(interp,buf) != TCL_OK) {
301: fprintf(stderr,"Tcl_Eval error 2\n");
302: fprintf(stderr,"%s\n",interp->result);
303: capaParsing = 0;
304: return TCL_ERROR;
305: }
306: capa_mfree(buf);
307: capa_mfree(buf2);
308: }
309:
310: if( ( EndText_p != NULL) )
311: {
312: buf=capa_malloc(BUFFER_SIZE+(2*strlen(EndText_p)),1);
313: buf2=capa_malloc(BUFFER_SIZE+(2*strlen(EndText_p)),1);
314: temp=capa_malloc(BUFFER_SIZE+(2*strlen(EndText_p)),1);
315: sprintf(temp,"%s", EndText_p);
316: j=capaPrepareBuffer(temp,buf2,0);
317:
318: sprintf(buf,"%s insert end \"%s\" answer%s",previewText,buf2,update);
319:
320: if (Tcl_Eval(interp,buf) != TCL_OK)
321: {
322: fprintf(stderr,"Tcl_Eval error 7\n");
323: fprintf(stderr,"%s\n",interp->result);
324: capaParsing = 0;
325: return TCL_ERROR;
326: }
327: capa_mfree(buf);
328: capa_mfree(buf2);
329: capa_mfree(temp);
330: }
331: free_problems(headProblem);
332: free_units();
333: gCapaHeader.weight[problemNumber]='\0';
334: gCapaHeader.partial_credit[problemNumber]='\0';
335:
336: if (result==0)
337: {
338: Tcl_ResetResult(interp);
339: Tcl_AppendElement(interp,"0");
340: }
341: else
342: {
343: buf=capa_malloc(BUFFER_SIZE,1);
344: sprintf(buf,"%d",result);
345: Tcl_ResetResult(interp);
346: Tcl_AppendElement(interp,buf);
347: capa_mfree(buf);
348: }
349: capaParsing = 0;
350: return TCL_OK;
351: }
352:
353: int capaGetStudent(ClientData clientdata, Tcl_Interp *interp, int argc,
354: char *argv[])
355: {
356: T_student student;
357: int result;
358: char buf[BUFFER_SIZE];
359:
360: result = capa_get_student(argv[1],&student);
361:
362: Tcl_ResetResult(interp);
363:
364: switch (result)
365: {
366: case -1:
367: Tcl_AppendElement(interp,"File path incorrect");
368: break;
369: case 0:
370: Tcl_AppendElement(interp,"No such student");
371: break;
372: default:
373: Tcl_ResetResult(interp);
374: sprintf(buf,"%d",student.s_sec);
375: Tcl_AppendElement(interp,buf);
376: sprintf(buf,"%d",student.s_scores);
377: Tcl_AppendElement(interp,buf);
378: Tcl_AppendElement(interp,student.s_key);
379: Tcl_AppendElement(interp,student.s_sn);
380: Tcl_AppendElement(interp,student.s_nm);
381: break;
382: }
383: return TCL_OK;
384: }
385:
386: int capaRunLatex(ClientData clientdata, Tcl_Interp *interp, int argc,
387: char *argv[])
388: {
389: FILE* output;
390: char *textWindow,buf[BUFFER_SIZE],buf2[BUFFER_SIZE*2],
391: command[BUFFER_SIZE*3],*stopPrinting;
392: char *compString="Output written on quiztemp.dvi";
393: int createdDvi=0,stop=0,i,update=0;
394:
395: if ( (output = popen(argv[1],"r"))==NULL) {
396: fprintf(stderr,"popen failed");
397: }
398:
399: if ( (textWindow = Tcl_GetVar(interp,argv[2],
400: TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)) == NULL) {
401: fprintf(stderr,"Tcl_GetVar error\n");
402: fprintf(stderr,"%s\n",interp->result);
403: return TCL_ERROR;
404: }
405:
406: while(fgets(buf,BUFFER_SIZE-1,output)) {
407: if (strncmp(compString,buf,strlen(compString))==0) createdDvi=1;
408:
409: capaPrepareBuffer(buf,buf2,0);
410:
411: sprintf(command,"%s insert end \"%s\" answer",textWindow, buf2);
412:
413: if (Tcl_Eval(interp,command) != TCL_OK) {
414: fprintf(stderr,"Tcl_Eval error\n");
415: fprintf(stderr,"%s\n",interp->result);
416: return TCL_ERROR;
417: }
418:
419: if (Tcl_Eval(interp,"update") != TCL_OK) {
420: fprintf(stderr,"Tcl_Eval error\n");
421: fprintf(stderr,"%s\n",interp->result);
422: return TCL_ERROR;
423: }
424:
425: if (update++ > 10) {
426: sprintf(command,"%s see end",textWindow, buf2);
427:
428: if (Tcl_Eval(interp,command) != TCL_OK) {
429: fprintf(stderr,"Tcl_Eval error\n");
430: fprintf(stderr,"%s\n",interp->result);
431: return TCL_ERROR;
432: }
433: update=0;
434: }
435: if ( (stopPrinting = Tcl_GetVar(interp,"gStopPrinting",
436: TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)) == NULL) {
437: fprintf(stderr,"Tcl_GetVar error\n");
438: fprintf(stderr,"%s\n",interp->result);
439: return TCL_ERROR;
440: }
441: stop=atoi(stopPrinting);
442: if (stop) {
443: for(i=1;i< 32768;i++) {
444: waitpid(i,NULL,WNOHANG);
445: if (errno!=ECHILD) { errno=0;break; }
446: errno=0;
447: }
448: if ( i < 32768 ) { kill(i,SIGKILL); }
449: break;
450: }
451: }
452:
453: sprintf(command,"%s see end",textWindow, buf2);
454:
455: if (Tcl_Eval(interp,command) != TCL_OK) {
456: fprintf(stderr,"Tcl_Eval error\n");
457: fprintf(stderr,"%s\n",interp->result);
458: return TCL_ERROR;
459: }
460: pclose(output);
461:
462: if (stop) {
463: Tcl_ResetResult(interp);
464: Tcl_AppendElement(interp,"2");
465: return TCL_OK;
466: }
467: if (createdDvi) {
468: Tcl_ResetResult(interp);
469: Tcl_AppendElement(interp,"1");
470: } else {
471: Tcl_ResetResult(interp);
472: Tcl_AppendElement(interp,"0");
473: }
474: return TCL_OK;
475: }
476:
477: int capaGetParseErrors(ClientData clientdata, Tcl_Interp *interp,
478: int argc, char *argv[])
479: {
480: extern int ErrorMsg_count;
481: extern char *ErrorMsg_p;
482:
483: if (ErrorMsg_count > 0)
484: {
485: Tcl_ResetResult(interp);
486: Tcl_SetResult(interp,ErrorMsg_p,TCL_VOLATILE);
487: }
488: else
489: {
490: Tcl_ResetResult(interp);
491: }
492: return TCL_OK;
493: }
494:
495: int capaGetHeaderInfo(ClientData clientdata, Tcl_Interp *interp,
496: int argc, char *argv[])
497: {
498: T_header header;
499: T_dates *dates,*current;
500: char * setNumber,buf[BUFFER_SIZE],*buf2;
501: int set,result,i;
502:
503: setNumber=Tcl_GetVar(interp,"gLoadHeaderSet",TCL_GLOBAL_ONLY);
504:
505: if ( setNumber== NULL || setNumber[0] == '\0') {
506: Tcl_ResetResult(interp);
507: Tcl_AppendElement(interp,"called getHeaderInfo with no gLoadHeaderSet value");
508: return TCL_ERROR;
509: }
510:
511: sscanf(setNumber,"%d",&set);
512:
513: result=capa_get_header(&header,set);
514:
515: if (result == -1 ) {
516: Tcl_ResetResult(interp);
517: Tcl_AppendElement(interp,"capa_get_header return a -1");
518: return TCL_ERROR;
519: }
520:
521: Tcl_SetVar(interp,"gWeightsDiffer","0",TCL_GLOBAL_ONLY);
522: if (gCapaHeader.weight!=NULL && header.weight !=NULL) {
523: for(i=0;i<(strlen(header.weight)&&strlen(gCapaHeader.weight));i++) {
524: if (header.weight[i]!=gCapaHeader.weight[i]) {
525: Tcl_SetVar(interp,"gWeightsDiffer","1",TCL_GLOBAL_ONLY);break;
526: }
527: }
528: }
529: capa_mfree(header.weight);
530:
531: if (gCapaHeader.partial_credit!=NULL && header.partial_credit !=NULL) {
532: Tcl_SetVar(interp,"gPartialDiffer","0",TCL_GLOBAL_ONLY);
533: for(i=0;i<(strlen(header.partial_credit)&&strlen(gCapaHeader.partial_credit));i++) {
534: if (header.partial_credit[i]!=gCapaHeader.partial_credit[i]) {
535: Tcl_SetVar(interp,"gPartialDiffer","1",TCL_GLOBAL_ONLY);break;
536: }
537: }
538: }
539: capa_mfree(header.partial_credit);
540:
541: result=capa_get_all_dates(set,&dates);
542: if (result < 0 ) {
543: Tcl_ResetResult(interp);
544: Tcl_AppendElement(interp,"capa_get_header returned a negative number");
545: return TCL_ERROR;
546: }
547:
548: Tcl_SetVar(interp,"gHeaderQCount",header.num_questions,TCL_GLOBAL_ONLY);
549:
550: buf2=capa_malloc(result*QUARTER_K,1);
551: buf2[0]='\0';
552: current=dates;
553: while(current != NULL ) {
554: sprintf(buf,"{%d %d {%s} {%s} {%s} {%s} %d %d} ",current->section_start,
555: current->section_end, current->open_date, current->due_date,
556: current->answer_date, current->duration, current->inhibit_response,
557: current->view_problems_after_due);
558: strcat(buf2,buf);
559: current=current->s_next;
560: }
561: Tcl_SetVar(interp,"gControlDates",buf2,TCL_GLOBAL_ONLY);
562: free_dates(dates);
563: capa_mfree(buf2);
564: return TCL_OK;
565: }
566:
567: int capaCheckDateFormat(char *varName,Tcl_Interp *interp)
568: {
569: char *tempPoint;
570:
571: tempPoint=Tcl_GetVar(interp,varName,TCL_GLOBAL_ONLY);
572:
573: if (strlen(tempPoint)!=8) goto wrong;
574:
575: switch(tempPoint[0])
576: {
577: case '0':
578: if (!isdigit(tempPoint[1])) goto wrong;
579: break;
580: case '1':
581: if (!(
582: (tempPoint[1]=='0') ||
583: (tempPoint[1]=='1') ||
584: (tempPoint[1]=='2')
585: )
586: ) goto wrong;
587: break;
588: case '2':
589: if (!(
590: (tempPoint[1]=='0') ||
591: (tempPoint[1]=='1') ||
592: (tempPoint[1]=='2') ||
593: (tempPoint[1]=='3') ||
594: (tempPoint[1]=='4')
595: )
596: ) goto wrong;
597: break;
598: default:
599: goto wrong;
600: break;
601: }
602: if (tempPoint[2] != '/') goto wrong;
603: switch(tempPoint[3])
604: {
605: case '0':
606: case '1':
607: case '2':
608: if (!isdigit(tempPoint[4])) goto wrong;
609: break;
610: case '3':
611: if (!(
612: (tempPoint[4]=='0') ||
613: (tempPoint[4]=='1')
614: )
615: ) goto wrong;
616: break;
617: default:
618: goto wrong;
619: break;
620: }
621: if (tempPoint[5] != '/') goto wrong;
622: if (!isdigit(tempPoint[6])) goto wrong;
623: if (!isdigit(tempPoint[7])) goto wrong;
624: goto right;
625: wrong:
626: return 0;
627: right:
628: return 1;
629: }
630:
631: int capaCheckTimeFormat(char *varName,Tcl_Interp *interp)
632: {
633: char *tempPoint;
634:
635: tempPoint=Tcl_GetVar(interp,varName,TCL_GLOBAL_ONLY);
636:
637: if (strlen(tempPoint)!=5) goto wrong;
638:
639: switch(tempPoint[0])
640: {
641: case '0':
642: if (!isdigit(tempPoint[1])) goto wrong;
643: break;
644: case '1':
645: if (!(isdigit(tempPoint[1])))
646: goto wrong;
647: break;
648: case '2':
649: switch(tempPoint[1])
650: {
651: case '0':
652: case '1':
653: case '2':
654: case '3':
655: case '4':
656: break;
657: default:
658: goto wrong;
659: break;
660: }
661: break;
662: default:
663: goto wrong;
664: break;
665: }
666: if (tempPoint[2] != ':') goto wrong;
667: switch (tempPoint[3])
668: {
669: case '0':
670: case '1':
671: case '2':
672: case '3':
673: case '4':
674: case '5':
675: break;
676: default:
677: goto wrong;
678: break;
679: }
680: if (!isdigit(tempPoint[4])) goto wrong;
681: goto right;
682:
683: wrong:
684: return 0;
685: right:
686: return 1;
687: }
688:
689: int capaCheckHeader(ClientData clientdata, Tcl_Interp *interp,
690: int argc, char *argv[])
691: {
692: if (!capaCheckDateFormat("gOpenDate",interp))
693: {
694: Tcl_ResetResult(interp);
695: Tcl_AppendElement(interp,"0");
696: return TCL_OK;
697: }
698: if (!capaCheckTimeFormat("gOpenTime",interp))
699: {
700: Tcl_ResetResult(interp);
701: Tcl_AppendElement(interp,"0");
702: return TCL_OK;
703: }
704: if (!capaCheckDateFormat("gDueDate",interp))
705: {
706: Tcl_ResetResult(interp);
707: Tcl_AppendElement(interp,"0");
708: return TCL_OK;
709: }
710: if (!capaCheckTimeFormat("gDueTime",interp))
711: {
712: Tcl_ResetResult(interp);
713: Tcl_AppendElement(interp,"0");
714: return TCL_OK;
715: }
716: if (!capaCheckDateFormat("gAnswerDate",interp))
717: {
718: Tcl_ResetResult(interp);
719: Tcl_AppendElement(interp,"0");
720: return TCL_OK;
721: }
722: if (!capaCheckTimeFormat("gAnswerTime",interp))
723: {
724: Tcl_ResetResult(interp);
725: Tcl_AppendElement(interp,"0");
726: return TCL_OK;
727: }
728: Tcl_ResetResult(interp);
729: Tcl_AppendElement(interp,"1");
730: return TCL_OK;
731: }
732:
733: int capaUpdateHeader(ClientData clientdata, Tcl_Interp *interp,
734: int argc, char *argv[])
735: {
736: char *setNumber,*date,*time,*questions;
737: int set,result,i;
738: T_dates *dates;
739:
740: setNumber=Tcl_GetVar(interp,"gSetNumberText",TCL_GLOBAL_ONLY);
741:
742: if ( setNumber[0] == '\0' ) return TCL_OK;
743:
744: sscanf(setNumber,"%d",&set);
745: questions=Tcl_GetVar(interp,"gNumberParsedText",TCL_GLOBAL_ONLY);
746: sprintf(gCapaHeader.num_questions,"%s",questions);
747:
748: /*weight and partialcredit info is from the parse*/
749:
750: result=capa_set_header(&gCapaHeader,set);
751:
752: if (result == -1)
753: Tcl_Eval(interp,"displayError \"The records directory does not exist or is unwritable.\"");
754: else {
755: T_dates* current;
756: for(i=0;i<argc/8;i++) {
757: if ( i==0 ) {
758: dates=current=(T_dates*)capa_malloc(sizeof(T_dates),1);
759: } else {
760: current->s_next=(T_dates*)capa_malloc(sizeof(T_dates),1);
761: current=current->s_next;
762: }
763: current->section_start=atoi(argv[(i*8)+1]);
764: current->section_end=atoi(argv[(i*8)+2]);
765: strncpy(current->open_date,argv[(i*8)+3],sizeof(current->open_date));
766: strncpy(current->due_date,argv[(i*8)+4],sizeof(current->due_date));
767: strncpy(current->answer_date,argv[(i*8)+5],sizeof(current->answer_date));
768: strncpy(current->duration,argv[(i*8)+6],sizeof(current->duration));
769: current->inhibit_response=atoi(argv[(i*8)+7]);
770: current->view_problems_after_due=atoi(argv[(i*8)+8]);
771: }
772: result=capa_set_all_dates(set,dates);
773: free_dates(dates);
774: if (result == -1)
775: Tcl_Eval(interp,"displayError \"The records directory does not exist or is unwritable.\"");
776: }
777: return TCL_OK;
778: }
779:
780: int capaGetStudentNumbers(ClientData clientdata, Tcl_Interp *interp,
781: int argc, char *argv[])
782: {
783: char buf[BUFFER_SIZE];
784: T_student *first_student,*a_student;
785: int result;
786:
787: result=capa_get_section(&first_student,0);
788:
789: if ( result == 0 ) {
790: Tcl_Eval(interp,"displayError \"There are no students in this class, you can only do random runs\"");
791: Tcl_ResetResult(interp);
792: return TCL_OK;
793: }
794: if ( result == -1 ) {
795: Tcl_Eval(interp,"displayError \"There is no classl file, you can only do random runs.\"");
796: Tcl_ResetResult(interp);
797: return TCL_OK;
798: }
799:
800: a_student=first_student;
801: Tcl_ResetResult(interp);
802: while( a_student ) {
803: Tcl_AppendElement(interp,a_student->s_sn);
804: Tcl_AppendElement(interp,a_student->s_nm);
805: sprintf(buf,"%d",a_student->s_sec);
806: Tcl_AppendElement(interp,buf);
807: a_student=a_student->s_next;
808: }
809: free_students(first_student);
810: return TCL_OK;
811: }
812:
813: void capaShowParseLocation(int sigNum)
814: {
815: extern int Current_line[MAX_OPENED_FILE];
816: extern int Input_idx;
817: extern char Opened_filename[MAX_OPENED_FILE][QUARTER_K];
818: extern Tcl_Interp *gInterp;
819: char buf[BUFFER_SIZE];
820:
821: sprintf(buf,"displayError \"In file %s on Line %d a coding error caused a fatal error in Quizzer.\"",Opened_filename[Input_idx],Current_line[Input_idx]-1);
822: printf(buf);
823: fflush(stdout);
824: Tcl_Eval(gInterp,buf);
825: exit(-1);
826: }
827:
828: void capaGenerateError()
829: {
830: extern Tcl_Interp *gInterp;
831: char buf[BUFFER_SIZE];
832:
833: sprintf(buf, "displayError \"Your last action just caused Quizzer to die. Please let the developers know what action caused this. Thanks.\"");
834: printf(buf);
835: fflush(stdout);
836: Tcl_Eval(gInterp,buf);
837: exit(-1);
838: }
839:
840: /*
841: extern int Input_idx;
842: extern char Opened_filename[MAX_OPENED_FILE][QUARTER_K];
843: extern char Current_line[MAX_OPENED_FILE];
844: extern Tcl_Interp *gInterp;
845: void dynamicStatus()
846: {
847: char *buf,*buf2,small[BUFFER_SIZE];
848: int i,j,totlen=0,len,idx=0;
849:
850: for(i=0;i<=Input_idx;i++) totlen=+strlen(Opened_filename[i])+4;
851: buf=capa_malloc(sizeof(char),totlen);
852: for(i=0;i<=Input_idx;i++) {
853: len=strlen(Opened_filename[i]);
854: for(j=0;j<len;j++) buf[idx++] = Opened_filename[i][j];
855: buf[idx++] = ':';
856: sprintf(small,"%d",Current_line[i]);
857: len=strlen(small);
858: for(j=0;j<len;j++) buf[idx++] = small[j];
859: buf[idx++]=' ';
860: buf[idx]='\0';
861: }
862: buf[idx++]='\n';
863: buf[idx]='\0';
864: buf2=capa_malloc(sizeof(char),strlen(buf)*2);
865: j=capaPrepareBuffer(buf,buf2,0);
866: capa_mfree(buf);
867: buf=capa_malloc(sizeof(char),strlen(buf2)+BUFFER_SIZE);
868: sprintf(buf,"%s insert end %s",gPreviewText,buf2);
869: if (Tcl_Eval(gInterp,buf) != TCL_OK) {
870: fprintf(stderr,"Tcl_Eval error 2a\n");
871: fprintf(stderr,"%s\n",gInterp->result);
872: }
873: capa_mfree(buf);
874: capa_mfree(buf2);
875: }
876: */
877:
878: void capaQuizzerStatus()
879: {
880: static time_t lasttime;
881: time_t thistime=time(NULL);
882: if (thistime > lasttime) {
883: extern Tcl_Interp *gInterp;
884: char *buf=parser_status(),*buf2;
885: int j;
886: buf2=capa_malloc(sizeof(char),strlen(buf)*2);
887: j=capaPrepareBuffer(buf,buf2,0);
888: capa_mfree(buf);
889: buf=capa_malloc(sizeof(char),strlen(buf2)+BUFFER_SIZE);
890: if (gCreateDvi) {
891: sprintf(buf,"global gStopStatus;set gStopStatus \"%s\"",buf2);
892: } else {
893: sprintf(buf,"%s insert end \"%s\n\";%s see end",
894: gPreviewText,buf2,gPreviewText);
895: }
896: capa_mfree(buf2);
897: if (Tcl_Eval(gInterp,buf) != TCL_OK) {
898: fprintf(stderr,"Tcl_Eval error 2a\n");
899: fprintf(stderr,"%s\n",gInterp->result);
900: }
901: capa_mfree(buf);
902: while(Tcl_DoOneEvent(TCL_ALL_EVENTS|TCL_DONT_WAIT));
903: lasttime=time(NULL);
904: } else {
905: if (!gFasterParsing) while(Tcl_DoOneEvent(TCL_ALL_EVENTS|TCL_DONT_WAIT));
906: }
907: }
908:
909: void signalHandler(int sigNum)
910: {
911: if (capaParsing) {
912: capaShowParseLocation(sigNum);
913: } else {
914: capaGenerateError();
915: }
916: }
917:
918: int capaStopParser(ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
919: {
920: extern int Stop_Parser;
921: Stop_Parser=1;
922: return TCL_OK;
923: }
924:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to quizzer.funct.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / GUITools