Annotation of capa/capa51/GUITools/grader.funct.c, revision 1.1
1.1 ! albertel 1: /*
! 2: * grader.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 <grader.h>
! 10: #include <common.h>
! 11: #include <ctype.h>
! 12: #include <time.h>
! 13:
! 14: /*
! 15: * used to remeber the weights and partial credit from a parse for when
! 16: * setting a DBHeader
! 17: */
! 18:
! 19: /* Reads a header form the file and sets up the time and date variables
! 20: */
! 21: int capaGetHeader(ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 22: {
! 23: T_header header;
! 24: char * setNumber,buf[BUFFER_SIZE],*sectionNumber,dateStr[BUFFER_SIZE];
! 25: int set,section,result;
! 26:
! 27:
! 28: setNumber=Tcl_GetVar(interp,"gSetLoad",TCL_GLOBAL_ONLY);
! 29: sectionNumber=Tcl_GetVar(interp,"gSectionLoad",TCL_GLOBAL_ONLY);
! 30:
! 31: if ( setNumber[0] == '\0' ) return TCL_OK;
! 32: if ( sectionNumber[0] == '\0' ) return TCL_OK;
! 33:
! 34: set=atoi(setNumber);
! 35: section=atoi(sectionNumber);
! 36:
! 37: result=capa_get_header(&header,set);
! 38:
! 39: if ( result == -1 )
! 40: {
! 41: Tcl_ResetResult(interp);
! 42: Tcl_AppendElement(interp,"0");
! 43: return TCL_OK;
! 44: }
! 45:
! 46: result=capa_get_date(CHECK_OPEN_DATE,NULL,section,set,dateStr);
! 47: if (result<0) {
! 48: Tcl_ResetResult(interp);
! 49: Tcl_AppendElement(interp,"-1");
! 50: return TCL_OK;
! 51: }
! 52: sscanf(dateStr,"%10c",buf);
! 53: buf[10]='\0';
! 54: Tcl_SetVar(interp,"gOpenDate",buf,TCL_GLOBAL_ONLY);
! 55: sscanf((dateStr)+11,"%5c",buf);
! 56: buf[5]='\0';
! 57: Tcl_SetVar(interp,"gOpenTime",buf,TCL_GLOBAL_ONLY);
! 58:
! 59: result=capa_get_date(CHECK_DUE_DATE,NULL,section,set,dateStr);
! 60: if (result<0) {
! 61: Tcl_ResetResult(interp);
! 62: Tcl_AppendElement(interp,"-1");
! 63: return TCL_OK;
! 64: }
! 65: sscanf(dateStr,"%10c",buf);
! 66: buf[10]='\0';
! 67: Tcl_SetVar(interp,"gDueDate",buf,TCL_GLOBAL_ONLY);
! 68: sscanf((dateStr)+11,"%5c",buf);
! 69: buf[5]='\0';
! 70: Tcl_SetVar(interp,"gDueTime",buf,TCL_GLOBAL_ONLY);
! 71:
! 72: result=capa_get_date(CHECK_ANS_DATE,NULL,section,set,dateStr);
! 73: if (result<0) {
! 74: Tcl_ResetResult(interp);
! 75: Tcl_AppendElement(interp,"-1");
! 76: return TCL_OK;
! 77: }
! 78: sscanf(dateStr,"%10c",buf);
! 79: buf[10]='\0';
! 80: Tcl_SetVar(interp,"gAnswerDate",buf,TCL_GLOBAL_ONLY);
! 81: sscanf((dateStr)+11,"%5c",buf);
! 82: buf[5]='\0';
! 83: Tcl_SetVar(interp,"gAnswerTime",buf,TCL_GLOBAL_ONLY);
! 84:
! 85: Tcl_ResetResult(interp);
! 86: Tcl_AppendElement(interp,"1");
! 87: capa_mfree(header.weight);
! 88: capa_mfree(header.partial_credit);
! 89: return TCL_OK;
! 90: }
! 91:
! 92: /* get the information for all of the students in the current section
! 93: * and puts them into the listbox.
! 94: * Arguments: the name of the variable the widget name of the listbox
! 95: * is in.
! 96: */
! 97: int capaGetStudents(ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 98: {
! 99: T_student *headStudent,*currentStudent;
! 100: int result,section,set,setScore,maxScore,num=0;
! 101: char buf[BUFFER_SIZE],buf2[BUFFER_SIZE],*answers,*listWidget;
! 102:
! 103: section=atoi(Tcl_GetVar(interp,"gSectionLoad",TCL_GLOBAL_ONLY));
! 104: set=atoi(Tcl_GetVar(interp,"gSetLoad",TCL_GLOBAL_ONLY));
! 105:
! 106: if ( (listWidget = Tcl_GetVar(interp,argv[1],
! 107: TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)) == NULL)
! 108: {
! 109: fprintf(stderr,"Tcl_GetVar error\n");
! 110: fprintf(stderr,"%s\n",interp->result);
! 111: return TCL_ERROR;
! 112: }
! 113:
! 114: result=capa_sorted_section(&headStudent,section);
! 115:
! 116: if (result == -1 || result == 0)
! 117: {
! 118: Tcl_Eval(interp,"displayError \"Invalid section\"");
! 119: Tcl_ResetResult(interp);
! 120: return TCL_OK;
! 121: }
! 122:
! 123: currentStudent=headStudent;
! 124:
! 125: while(currentStudent!=NULL)
! 126: {
! 127: num++;
! 128: setScore = capa_get_score(currentStudent->s_sn,set,&maxScore,&answers);
! 129: if ( setScore == -1 ) setScore=0;
! 130: sprintf(buf,"%s %s %2d/%2d %2d ",currentStudent->s_nm,
! 131: currentStudent->s_sn,setScore,maxScore,
! 132: capa_PIN(currentStudent->s_sn,set,0));
! 133:
! 134: capaPrepareBuffer(buf,buf2,0);
! 135: sprintf(buf,"%s insert end \"%s\" ",listWidget,buf2);
! 136:
! 137: if (Tcl_Eval(interp,buf) != TCL_OK)
! 138: {
! 139: fprintf(stderr,"Tcl_Eval error\n");
! 140: fprintf(stderr,"%s\n",interp->result);
! 141: free_students(headStudent);
! 142: return TCL_ERROR;
! 143: }
! 144:
! 145: if (!(num%10)) {
! 146: if (Tcl_Eval(interp,"update") != TCL_OK)
! 147: {
! 148: fprintf(stderr,"Tcl_Eval error\n");
! 149: fprintf(stderr,"%s\n",interp->result);
! 150: free_students(headStudent);
! 151: return TCL_ERROR;
! 152: }
! 153: }
! 154: currentStudent=currentStudent->s_next;
! 155: capa_mfree(answers);
! 156: }
! 157:
! 158: free_students(headStudent);
! 159: if (!(num%5)) {
! 160: if (Tcl_Eval(interp,"update") != TCL_OK)
! 161: {
! 162: fprintf(stderr,"Tcl_Eval error\n");
! 163: fprintf(stderr,"%s\n",interp->result);
! 164: return TCL_ERROR;
! 165: }
! 166: }
! 167: return TCL_OK;
! 168: }
! 169:
! 170: /* searches for the section a student is in by either name or number
! 171: * Arguments: one of (name or number) and then the name or number to
! 172: * search for.
! 173: */
! 174: int capaFindSection(ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 175: {
! 176: int errorNm;
! 177: char searchStr[MAX_NAME_CHAR+1],buf[MAX_NAME_CHAR+1];
! 178: T_student student;
! 179:
! 180: switch(argv[1][1])
! 181: {
! 182: case 'a':
! 183: strncpy(searchStr,argv[2],MAX_NAME_CHAR+1);
! 184: if ( (errorNm = capa_student_byname(searchStr,&student ))==0 )
! 185: {
! 186: sprintf(buf,"%d",0);
! 187: }
! 188: else
! 189: {
! 190: sprintf(buf,"%d",student.s_sec);
! 191: }
! 192: break;
! 193: case 'u':
! 194: strncpy(searchStr,argv[2],MAX_NAME_CHAR+1);
! 195: if ( (errorNm = capa_get_student(searchStr,&student ))==0 )
! 196: {
! 197: sprintf(buf,"%d",0);
! 198: }
! 199: else
! 200: {
! 201: sprintf(buf,"%d",student.s_sec);
! 202: }
! 203: break;
! 204: default:
! 205: break;
! 206: }
! 207: Tcl_ResetResult(interp);
! 208: Tcl_AppendElement(interp,buf);
! 209: return TCL_OK;
! 210: }
! 211:
! 212: /* finds how many set.db files there are */
! 213: int howManySetDBFile()
! 214: {
! 215: char filename[FNAMELENGTH], *pathName;
! 216: int ii;
! 217:
! 218:
! 219: pathName=getcwd(NULL,FNAMELENGTH);
! 220: ii=1;
! 221: sprintf(filename,"%s/records/set%d.db",pathName,ii);
! 222: while(!access(filename, F_OK))
! 223: {
! 224: ii++;
! 225: sprintf(filename,"%s/records/set%d.db",pathName,ii);
! 226: }
! 227: free(pathName);
! 228: return (ii-1);
! 229: }
! 230:
! 231: /* makes a student report
! 232: * Arguments: the student number
! 233: */
! 234: int capaGetReportInfo(ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 235: {
! 236: char studentNumber[MAX_STUDENT_NUMBER+1],
! 237: lineOne[BUFFER_SIZE],*wgt,*partialCredit;
! 238: T_header header;
! 239: T_entry entry;
! 240: int ii, setIdx, setScores, setValids,
! 241: totalSet, totalProbs, neverLogin;
! 242: int termScores, termValids;
! 243:
! 244: strncpy(studentNumber,argv[1], MAX_STUDENT_NUMBER+1);
! 245: totalSet = howManySetDBFile();
! 246:
! 247: Tcl_ResetResult(interp);
! 248:
! 249: for(termScores=0,termValids=0,setIdx=1;setIdx <= totalSet ;setIdx++)
! 250: {
! 251: capa_get_entry(&entry, studentNumber, setIdx);
! 252: totalProbs = entry.e_probs;
! 253: if( capa_get_header( &header, setIdx ) == -1 )
! 254: {
! 255: Tcl_ResetResult(interp);
! 256: Tcl_AppendElement(interp,"File Error");
! 257: return TCL_OK;
! 258: }
! 259: wgt=header.weight;
! 260: partialCredit=header.partial_credit;
! 261:
! 262: for(setScores=0, setValids=0,neverLogin=1,ii=0;ii<totalProbs;ii++)
! 263: {
! 264: switch(entry.answers[ii])
! 265: {
! 266: case 'Y': case 'y':
! 267: neverLogin = 0;
! 268: setScores += (wgt[ii] - '0');
! 269: setValids += (wgt[ii] - '0');
! 270: break;
! 271: case '-': case 'N': case 'n':
! 272: setValids += (wgt[ii] - '0');
! 273: break;
! 274: case 'E': case 'e':
! 275: break;
! 276: default :
! 277: if( entry.answers[ii] >= '0' && entry.answers[ii] <= '9' )
! 278: {
! 279: setScores += (entry.answers[ii] - '0');
! 280: setValids += (wgt[ii] - '0');
! 281: neverLogin = 0;
! 282: }
! 283: break;
! 284: }
! 285: }
! 286: entry.answers[totalProbs]='\0'; /* get rid of last unknown chars */
! 287: entry.tries[3*totalProbs]='\0';
! 288: termScores += setScores;
! 289: termValids += setValids;
! 290:
! 291: if(neverLogin)
! 292: {
! 293: sprintf(lineOne,"%3d -/%3d %s\n",setIdx,setValids,entry.answers);
! 294: }
! 295: else
! 296: {
! 297: sprintf(lineOne,"%3d %3d/%3d %s\n",setIdx,setScores,setValids,entry.answers);
! 298: }
! 299: Tcl_AppendResult(interp,lineOne,NULL);
! 300: sprintf(lineOne," %s\n",entry.tries);
! 301: Tcl_AppendResult(interp,lineOne,NULL);
! 302: capa_mfree(entry.answers);
! 303: capa_mfree(entry.tries);
! 304: }
! 305: sprintf(lineOne,"========================\n Total = %3d/%3d",termScores,termValids);
! 306: Tcl_AppendResult(interp,lineOne,NULL);
! 307: capa_mfree(header.weight);
! 308: capa_mfree(header.partial_credit);
! 309: return TCL_OK;
! 310: }
! 311:
! 312: int compare_string( a, b)
! 313: char *a, *b;
! 314: {
! 315: return( strcasecmp(a, b) );
! 316: }
! 317:
! 318: /* Builds a set summary
! 319: * Argument: the filename to write to
! 320: */
! 321: int capaGetSetSummary(ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 322: {
! 323: T_student *stuPtr, *currentStudentPtr;
! 324: T_header a_header;
! 325: int section, set;
! 326: int studentCount,currentStudent, setScores, validScores;
! 327: char fmt1[64], fmt2[64],buf[BUFFER_SIZE],*str1="Student Name",*str2=" ";
! 328: char *answersPtr;
! 329: FILE *outputFile;
! 330:
! 331: section=atoi(Tcl_GetVar(interp,"gSectionLoad",TCL_GLOBAL_ONLY));
! 332: set=atoi(Tcl_GetVar(interp,"gSetLoad",TCL_GLOBAL_ONLY));
! 333: Tcl_ResetResult(interp);
! 334:
! 335: studentCount = capa_sorted_section(&stuPtr, section);
! 336: if( studentCount > 0 )
! 337: {
! 338: if( capa_get_header( &a_header, set) == -1 )
! 339: {
! 340: Tcl_Eval(interp,"displayerror \"Cannot open set.db file\"");
! 341: Tcl_ResetResult(interp);
! 342: free_students(stuPtr);
! 343: return TCL_OK;
! 344: }
! 345: capa_mfree(a_header.weight);
! 346: capa_mfree(a_header.partial_credit);
! 347: sprintf(fmt1,"%%-%ds\t%%%ss\t Score\n", MAX_NAME_CHAR,a_header.num_questions);
! 348:
! 349: outputFile=fopen(argv[1],"w");
! 350: fprintf(outputFile, "Section %-3d, Set %-3d Score Report\n",section, set);
! 351:
! 352: fprintf(outputFile, fmt1,str1,str2);
! 353:
! 354: sprintf(fmt1,"%%-%ds\t%%s\t -/%%3d\n", MAX_NAME_CHAR);
! 355: sprintf(fmt2,"%%-%ds\t%%s\t%%3d/%%3d\n", MAX_NAME_CHAR);
! 356:
! 357: for(currentStudentPtr=stuPtr,currentStudent=0;currentStudentPtr;
! 358: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 359: {
! 360: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 361: Tcl_Eval(interp,buf);
! 362: if( (setScores = capa_get_score(currentStudentPtr->s_sn,
! 363: set,&validScores,&answersPtr) ) == -2 )
! 364: {
! 365: Tcl_Eval(interp,"displayerror \"Cannot open set.db file\"");
! 366: Tcl_ResetResult(interp);
! 367: free_students(stuPtr);
! 368: capa_mfree(answersPtr);
! 369: fclose(outputFile);
! 370: return TCL_OK;
! 371: }
! 372: if( setScores < 0 )
! 373: {
! 374: fprintf(outputFile,fmt1,currentStudentPtr->s_nm,answersPtr,validScores );
! 375: }
! 376: else
! 377: {
! 378: fprintf(outputFile,fmt2,currentStudentPtr->s_nm,answersPtr,setScores,validScores );
! 379: }
! 380: capa_mfree(answersPtr);
! 381: }
! 382: free_students(stuPtr);
! 383: fclose(outputFile);
! 384: }
! 385: return TCL_OK;
! 386: }
! 387:
! 388: /* builds a term summary
! 389: * Arguments: filename
! 390: */
! 391: int capaGetTermSummary(ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 392: {
! 393: T_student *studentPtr, *currentStudentPtr;
! 394: int section, totalSet;
! 395: int setIndex, setScores, termScores, validScores, termValids;
! 396: int studentCount,currentStudent=1;
! 397: char fmt[64];
! 398: char *answersPtr,buf[BUFFER_SIZE];
! 399: FILE *outputFile;
! 400:
! 401: outputFile=fopen(argv[1],"w");
! 402: section=atoi(Tcl_GetVar(interp,"gSectionLoad",TCL_GLOBAL_ONLY));
! 403: totalSet = howManySetDBFile();
! 404: Tcl_ResetResult(interp);
! 405:
! 406: studentCount = capa_sorted_section(&studentPtr, section);
! 407: if( studentCount > 0 )
! 408: {
! 409: for(currentStudentPtr=studentPtr,currentStudent=1;currentStudentPtr;
! 410: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 411: {
! 412: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 413: Tcl_Eval(interp,buf);
! 414: sprintf(fmt,"%%-%ds\n", MAX_NAME_CHAR);
! 415: fprintf(outputFile,fmt,currentStudentPtr->s_nm);
! 416:
! 417: for( termScores = 0, termValids = 0, setIndex = 1; setIndex <= totalSet; setIndex++)
! 418: {
! 419: if( (setScores = capa_get_score(currentStudentPtr->s_sn,
! 420: setIndex,&validScores,&answersPtr) ) == -2 )
! 421: {
! 422: sprintf(buf,"displayerror \"Cannot open set%d.db file\"",setIndex);
! 423: Tcl_Eval(interp,buf);
! 424: Tcl_ResetResult(interp);
! 425: capa_mfree(answersPtr);
! 426: free_students(studentPtr);
! 427: fclose(outputFile);
! 428: return TCL_OK;
! 429: }
! 430: if( setScores < 0 )
! 431: {
! 432: fprintf(outputFile,"Set %-3d\t%s\t -/%3d\n", setIndex,answersPtr, validScores);
! 433: }
! 434: else
! 435: {
! 436: fprintf(outputFile, "Set %-3d\t%s\t%3d/%3d\n",
! 437: setIndex,answersPtr,setScores,validScores );
! 438: termScores += setScores;
! 439: }
! 440: capa_mfree(answersPtr);
! 441: termValids += validScores;
! 442: }
! 443: fprintf(outputFile,"\t\t\tTerm Score = %3d/%3d\n", termScores,termValids);
! 444: fprintf(outputFile, "-----------------------------------------------------------------------\n");
! 445: }
! 446: free_students(studentPtr);
! 447: }
! 448: fclose(outputFile);
! 449: return TCL_OK;
! 450: }
! 451:
! 452: extern int Parsemode_f;
! 453:
! 454: /* runs capaParse and puts the results into a text widget
! 455: * Arguments: the name it is registered under (enscriptParse, texParse,
! 456: * webParse, bubblerParse); what results of the parse to show
! 457: * 0 (Problem Only), 1 (Question and Answer), 2 (Answer Only);
! 458: * the set number; either (Random or Specific) student; section;
! 459: * student Number; student Name ; the name of the variable to
! 460: * find the widget name of the text widget to put the text into
! 461: */
! 462: int capaTclParse (ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 463: {
! 464: extern char *EndText_p;
! 465: T_student student;
! 466: Problem_t *headProblem,*currentProblem;
! 467: int numOfQuestions,numAnswers,problemNumber=0;
! 468: int result,i=1,j,length;
! 469: char *buf, *buf2, *temp, *previewText=NULL;
! 470: char lower[32],upper[32],ans[32], unit[32];
! 471: double targetAns;
! 472: int c_set;
! 473: #ifdef GRADER_UPDATE
! 474: char *update=";update";
! 475: #else
! 476: char *update=" ";
! 477: #endif
! 478:
! 479: switch(argv[0][0])
! 480: {
! 481: case 'e':Parsemode_f = ASCII_MODE;break;
! 482: case 't':Parsemode_f = TeX_MODE;break;
! 483: case 'w':Parsemode_f = HTML_MODE;break;
! 484: case 'b':Parsemode_f = BUBBLE_MODE;break;
! 485: default:
! 486: Tcl_ResetResult(interp);
! 487: Tcl_AppendElement(interp,"Invalid call to capaTclParse\n");
! 488: return TCL_ERROR;
! 489: break;
! 490: }
! 491:
! 492: if ( (previewText = Tcl_GetVar(interp,argv[7],
! 493: TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)) == NULL)
! 494: {
! 495: fprintf(stderr,"Tcl_GetVar error\n");
! 496: fprintf(stderr,"%s\n",interp->result);
! 497: return TCL_ERROR;
! 498: }
! 499: c_set = atoi(argv[2]);
! 500: switch (argv[3][0])
! 501: {
! 502: case 'R':
! 503: result = capa_pick_student(atoi(argv[4]),&student);
! 504: if (result == -1)
! 505: {
! 506: buf=capa_malloc(BUFFER_SIZE,1);
! 507: sprintf(buf,"displayError \"There are no students in section %d.\"",
! 508: atoi(argv[4]));
! 509: Tcl_Eval(interp,buf);
! 510: capa_mfree(buf);
! 511: Tcl_ResetResult(interp);
! 512: Tcl_AppendElement(interp,"-1");
! 513: return TCL_OK;
! 514: }
! 515:
! 516: result = capa_parse(atoi(argv[2]),&headProblem,student.s_sn,&numOfQuestions,NULL);
! 517: break;
! 518: case 'S':
! 519: result = capa_get_student(argv[5],&student);
! 520: if ((result == -1) || (result == 0))
! 521: {
! 522: buf=capa_malloc(BUFFER_SIZE,1);
! 523: sprintf(buf,"displayError \"The student %s does not exist.\"",
! 524: argv[5]);
! 525: Tcl_Eval(interp,buf);
! 526: capa_mfree(buf);
! 527: Tcl_ResetResult(interp);
! 528: Tcl_AppendElement(interp,"-1");
! 529: return TCL_OK;
! 530: }
! 531: result = capa_parse(atoi(argv[2]),&headProblem,argv[5],&numOfQuestions,NULL);
! 532: break;
! 533: default:
! 534: Tcl_ResetResult(interp);
! 535: Tcl_AppendElement(interp,"Invalid 2nd argument to capaTclParse\n");
! 536: return TCL_ERROR;
! 537: break;
! 538: }
! 539:
! 540: if (result==-1)
! 541: {
! 542: Tcl_ResetResult(interp);
! 543: Tcl_AppendElement(interp,"-1");
! 544: return TCL_OK;
! 545: }
! 546:
! 547: currentProblem=headProblem;
! 548:
! 549: if(argv[1][0] == Q_ANSWER)
! 550: {
! 551: /*
! 552: switch(Parsemode_f)
! 553: {
! 554: case ASCII_MODE:
! 555: sprintf(buf,"Section %d Set %d\n Name: %s PIN: %d\n\n",
! 556: student.s_sec, atoi(argv[2]), student.s_nm,
! 557: capa_PIN(student.s_sn, atoi(argv[2]),0));
! 558: break;
! 559: case TeX_MODE:
! 560: sprintf(buf,"{\\bf Section %d\\qquad Set %d}\\\\\\medskip \n{\\bf Name: \
! 561: %s\\qquad PIN: %d}\\\\ \\bigskip\n\n", student.s_sec, atoi(argv[2]), student.s_nm,
! 562: capa_PIN(student.s_sn, atoi(argv[2]),0));
! 563: break;
! 564: case HTML_MODE:
! 565: sprintf(buf,"Section %d Set %d\n Name: %s PIN: %d\n\n",
! 566: student.s_sec, atoi(argv[2]), student.s_nm,
! 567: capa_PIN(student.s_sn, atoi(argv[2]),0));
! 568: break;
! 569: case BUBBLE_MODE:
! 570: break;
! 571: }
! 572: j=capaPrepareBuffer(buf,buf2,0);
! 573:
! 574: sprintf(buf,"%s insert end \" %s \" header",previewText,buf2);
! 575:
! 576: if (Tcl_Eval(interp,buf) != TCL_OK)
! 577: {
! 578: fprintf(stderr,"Tcl_Eval error\n");
! 579: fprintf(stderr,"%s\n",interp->result);
! 580: return TCL_ERROR;
! 581: }
! 582: */
! 583: }
! 584:
! 585: while (currentProblem!=NULL)
! 586: {
! 587: switch (argv[1][0])
! 588: {
! 589: case Q_PROBLEM:
! 590: if (currentProblem->question) {
! 591: length=strlen(currentProblem->question);
! 592: } else {
! 593: length=0;
! 594: }
! 595: buf=capa_malloc(BUFFER_SIZE+(2*length),1);
! 596: buf2=capa_malloc(BUFFER_SIZE+(2*length),1);
! 597: if(currentProblem->question) {
! 598: j=capaPrepareBuffer(currentProblem->question,buf2,0);
! 599: buf2[j-1]='\n';
! 600: buf2[j]='\0';
! 601: } else {
! 602: buf2[0]='\n';buf2[1]='\0';
! 603: }
! 604: if(currentProblem->question) {
! 605: j=capaPrepareBuffer(currentProblem->question,buf2,0);
! 606: buf2[j-1]='\n';
! 607: buf2[j]='\0';
! 608: } else {
! 609: buf2[0]='\n';buf2[1]='\0';
! 610: }
! 611:
! 612: switch(Parsemode_f)
! 613: {
! 614: case ASCII_MODE:
! 615: sprintf(buf,"%s insert end \"%s \n-----------\n\n\" problem",
! 616: previewText,buf2);
! 617: break;
! 618: case TeX_MODE:
! 619: sprintf(buf,"%s insert end \"%s\" problem",previewText,buf2);
! 620: break;
! 621: case HTML_MODE:
! 622: sprintf(buf,"%s insert end \"%s\" problem",previewText,buf2);
! 623: break;
! 624: case BUBBLE_MODE:
! 625: break;
! 626: }
! 627: if (Tcl_Eval(interp,buf) != TCL_OK)
! 628: {
! 629: fprintf(stderr,"Tcl_Eval error\n");
! 630: fprintf(stderr,"%s\n",interp->result);
! 631: return TCL_ERROR;
! 632: }
! 633: capa_mfree(buf);
! 634: capa_mfree(buf2);
! 635: break;
! 636: case Q_PROBLEM_AND_ANSWER:
! 637: if (currentProblem->question) {
! 638: length=strlen(currentProblem->question);
! 639: } else {
! 640: length=0;
! 641: }
! 642: buf=capa_malloc(BUFFER_SIZE+(2*length),1);
! 643: buf2=capa_malloc(BUFFER_SIZE+(2*length),1);
! 644: temp=capa_malloc(BUFFER_SIZE+(2*length),1);
! 645: j=capaPrepareBuffer(currentProblem->question,buf2,0);
! 646:
! 647: switch(Parsemode_f)
! 648: {
! 649: case ASCII_MODE:
! 650: sprintf(buf,"%s insert end \"%s \n-----------\n\n\" problem",
! 651: previewText,buf2);
! 652: break;
! 653: case TeX_MODE:
! 654: sprintf(buf,"%s insert end \"%s\" problem",previewText,buf2);
! 655: break;
! 656: case HTML_MODE:
! 657: sprintf(buf,"%s insert end \"%s\" problem",previewText,buf2);
! 658: break;
! 659: case BUBBLE_MODE:
! 660: break;
! 661: }
! 662: if (Tcl_Eval(interp,buf) != TCL_OK)
! 663: {
! 664: fprintf(stderr,"Tcl_Eval error\n");
! 665: fprintf(stderr,"%s\n",interp->result);
! 666: return TCL_ERROR;
! 667: }
! 668:
! 669: capa_mfree(buf);
! 670: capa_mfree(buf2);
! 671: capa_mfree(temp);
! 672: capaInsertAnswer(currentProblem,interp,previewText);
! 673: break;
! 674: case Q_ANSWER:
! 675: print_begin_item(Parsemode_f,interp,previewText,problemNumber+1);
! 676: capaInsertAnswer(currentProblem,interp,previewText);
! 677: break;
! 678: }
! 679:
! 680: currentProblem=currentProblem->next;
! 681: problemNumber++;
! 682: }
! 683: if( ( EndText_p != NULL) )
! 684: {
! 685: buf=capa_malloc(BUFFER_SIZE+(2*strlen(EndText_p)),1);
! 686: buf2=capa_malloc(BUFFER_SIZE+(2*strlen(EndText_p)),1);
! 687: temp=capa_malloc(BUFFER_SIZE+(2*strlen(EndText_p)),1);
! 688: sprintf(temp,"%s", EndText_p);
! 689: j=capaPrepareBuffer(temp,buf2,0);
! 690:
! 691: sprintf(buf,"%s insert end \"%s\" answer%s",previewText,buf2,update);
! 692:
! 693: if (Tcl_Eval(interp,buf) != TCL_OK)
! 694: {
! 695: fprintf(stderr,"Tcl_Eval error 7\n");
! 696: fprintf(stderr,"%s\n",interp->result);
! 697: return TCL_ERROR;
! 698: }
! 699: capa_mfree(buf);
! 700: capa_mfree(buf2);
! 701: capa_mfree(temp);
! 702: }
! 703: free_problems(headProblem);
! 704:
! 705: if (result==0)
! 706: {
! 707: Tcl_ResetResult(interp);
! 708: Tcl_AppendElement(interp,"0");
! 709: }
! 710: else
! 711: {
! 712: buf=capa_malloc(BUFFER_SIZE,1);
! 713: sprintf(buf,"%d",result);
! 714: Tcl_ResetResult(interp);
! 715: Tcl_AppendElement(interp,buf);
! 716: capa_mfree(buf);
! 717: }
! 718:
! 719: return TCL_OK;
! 720: }
! 721:
! 722: /* setup gQuestionType for all of the questions
! 723: * Arguments: number of Questions
! 724: */
! 725: int capaGetQuestionTypes(ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 726: {
! 727: int numQuestions,result,i;
! 728: T_header header;
! 729: char buf[BUFFER_SIZE], buf2[BUFFER_SIZE],*weight;
! 730:
! 731: if (argc != 2)
! 732: {
! 733: Tcl_ResetResult(interp);
! 734: Tcl_AppendResult(interp,"Wrong number of arguments to getQuestionTypes",
! 735: NULL);
! 736: return TCL_ERROR;
! 737: }
! 738:
! 739: numQuestions=atoi(argv[1]);
! 740:
! 741: result = capa_get_header(&header,atoi(Tcl_GetVar(interp,"gSetLoad",
! 742: TCL_GLOBAL_ONLY)));
! 743: weight=header.weight;
! 744:
! 745: if (result == -1)
! 746: {
! 747: Tcl_ResetResult(interp);
! 748: Tcl_AppendResult(interp,"capa_get_header returned error.",NULL);
! 749: return TCL_ERROR;
! 750: }
! 751:
! 752: for(i=1;i<=numQuestions;i++)
! 753: {
! 754: sprintf(buf,"%d",i);
! 755: switch(header.partial_credit[i-1])
! 756: {
! 757: case '0':
! 758: Tcl_SetVar2(interp,"gQuestionType",buf,"autoGrade",TCL_GLOBAL_ONLY);
! 759: break;
! 760: case '1':
! 761: Tcl_SetVar2(interp,"gQuestionType",buf,"handGrade",TCL_GLOBAL_ONLY);
! 762: sprintf(buf,"max%d",i);
! 763: sprintf(buf2,"%c",weight[i-1]);
! 764: Tcl_SetVar2(interp,"gAnswer",buf,buf2,TCL_GLOBAL_ONLY);
! 765: break;
! 766: default:
! 767: Tcl_ResetResult(interp);
! 768: Tcl_AppendResult(interp,"Header for the set.db file is incorrect.",
! 769: NULL);
! 770: return TCL_ERROR;
! 771: break;
! 772: }
! 773: }
! 774: capa_mfree(header.weight);
! 775: capa_mfree(header.partial_credit);
! 776: Tcl_ResetResult(interp);
! 777: return TCL_OK;
! 778: }
! 779:
! 780: /* setup gAnswer for all of the questions
! 781: * Arguments: number of Questions
! 782: */
! 783: T_entry graderEntry;
! 784: int capaSetupGAnswer (ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 785: {
! 786: int numQuestions,i,result;
! 787: char buf[BUFFER_SIZE],buf2[BUFFER_SIZE],*questionType;
! 788:
! 789: if (argc != 2)
! 790: {
! 791: Tcl_ResetResult(interp);
! 792: Tcl_AppendResult(interp,"Incorrect number of arguments to setup gAnswer",
! 793: NULL);
! 794: return TCL_ERROR;
! 795: }
! 796:
! 797: numQuestions=atoi(argv[1]);
! 798:
! 799: result = capa_get_entry(&graderEntry,Tcl_GetVar2(interp,"gGrading","number",
! 800: TCL_GLOBAL_ONLY),
! 801: atoi(Tcl_GetVar(interp,"gSetLoad",TCL_GLOBAL_ONLY)));
! 802:
! 803: if (result == 0)
! 804: {
! 805: Tcl_ResetResult(interp);
! 806: Tcl_AppendResult(interp,"capa_get_entry returned error.",NULL);
! 807: return TCL_ERROR;
! 808: }
! 809: for(i=1;i<=numQuestions;i++)
! 810: {
! 811: sprintf(buf,"%d.tries",i);
! 812: buf2[0]=graderEntry.tries[(i-1)*3];buf2[1]=graderEntry.tries[(i-1)*3+1];
! 813: buf2[2]='\0';
! 814: Tcl_SetVar2(interp,"gAnswer",buf,buf2,TCL_GLOBAL_ONLY);
! 815: sprintf(buf,"%d",i);
! 816: switch(graderEntry.answers[i-1])
! 817: {
! 818: case '-':
! 819: Tcl_SetVar2(interp,"gAnswer",buf,"-",TCL_GLOBAL_ONLY);
! 820: break;
! 821: case 'y':
! 822: case 'n':
! 823: case 'E':
! 824: sprintf(buf2,"%c",graderEntry.answers[i-1]);
! 825: Tcl_SetVar2(interp,"gAnswer",buf,buf2,TCL_GLOBAL_ONLY);
! 826: break;
! 827: case 'Y':
! 828: sprintf(buf2,"%c",graderEntry.answers[i-1]);
! 829: Tcl_SetVar2(interp,"gAnswer",buf,buf2,TCL_GLOBAL_ONLY);
! 830: questionType=Tcl_GetVar2(interp,"gQuestionType",buf,
! 831: TCL_GLOBAL_ONLY);
! 832: switch(questionType[0])
! 833: {
! 834: case 'a':
! 835: sprintf(buf,"$gGradeCanvas.dash%d configure -state disabled",i);
! 836: if (Tcl_Eval(interp,buf)!=TCL_OK)
! 837: return TCL_ERROR;
! 838: sprintf(buf,"$gGradeCanvas.y%d configure -state disabled",i);
! 839: if (Tcl_Eval(interp,buf)!=TCL_OK)
! 840: return TCL_ERROR;
! 841: sprintf(buf,"$gGradeCanvas.n%d configure -state disabled",i);
! 842: if (Tcl_Eval(interp,buf)!=TCL_OK)
! 843: return TCL_ERROR;
! 844: sprintf(buf,"$gGradeCanvas.e%d configure -state disabled",i);
! 845: if (Tcl_Eval(interp,buf)!=TCL_OK)
! 846: return TCL_ERROR;
! 847: break;
! 848: case 'h':
! 849: sprintf(buf,"$gGradeCanvas.hand%d configure -state disabled",i);
! 850: if (Tcl_Eval(interp,buf)!=TCL_OK)
! 851: return TCL_ERROR;
! 852: break;
! 853: default:
! 854: Tcl_ResetResult(interp);
! 855: Tcl_AppendElement(interp,"questionType contains invlaid data in capaSetupGAnswer.");
! 856: return TCL_ERROR;
! 857: break;
! 858: }
! 859: break;
! 860: default:
! 861: sprintf(buf2,"%c",graderEntry.answers[i-1]);
! 862: Tcl_SetVar2(interp,"gAnswer",buf,buf2,TCL_GLOBAL_ONLY);
! 863: break;
! 864: }
! 865: }
! 866:
! 867: Tcl_ResetResult(interp);
! 868: return TCL_OK;
! 869: }
! 870:
! 871: /* save gAnswer to the set.db file
! 872: * Arguments: number of Questions
! 873: */
! 874: int capaSaveGAnswer (ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 875: {
! 876: T_entry entry;
! 877: int numQuestions,i,result;
! 878: char buf[BUFFER_SIZE],*gAnswer;
! 879:
! 880: if (argc != 2)
! 881: {
! 882: Tcl_ResetResult(interp);
! 883: Tcl_AppendResult(interp,"Incorrect number of arguments to save gAnswer",NULL);
! 884: return TCL_ERROR;
! 885: }
! 886:
! 887: numQuestions=atoi(argv[1]);
! 888:
! 889: entry.answers=capa_malloc(numQuestions+1,1);
! 890: entry.tries=capa_malloc(3*numQuestions+1,1);
! 891:
! 892: for(i=0;i<numQuestions;i++) {
! 893: sprintf(buf,"%d",i+1);
! 894: gAnswer=Tcl_GetVar2(interp,"gAnswer",buf,TCL_GLOBAL_ONLY);
! 895: if ( gAnswer[0] != graderEntry.answers[i] ) {
! 896: entry.answers[i]=gAnswer[0];
! 897: } else {
! 898: entry.answers[i]='?';
! 899: }
! 900: sprintf(buf,"%d.tries",i+1);
! 901: gAnswer=Tcl_GetVar2(interp,"gAnswer",buf,TCL_GLOBAL_ONLY);
! 902: if (atoi(gAnswer) != atoi(&(graderEntry.tries[i*3]))) {
! 903: sprintf(&(entry.tries[i*3]),"%2d",atoi(gAnswer));
! 904: if (i<numQuestions-1) entry.tries[i*3+2]=',';
! 905: } else {
! 906: entry.tries[i*3]='-';entry.tries[i*3+1]='1';
! 907: if (i<numQuestions-1) entry.tries[i*3+2]=',';
! 908: }
! 909: }
! 910: entry.answers[numQuestions]='\0';
! 911: entry.tries[numQuestions*3]='\0';
! 912: sprintf(entry.student_number,Tcl_GetVar2(interp,"gGrading","number",TCL_GLOBAL_ONLY));
! 913: entry.e_probs=numQuestions;
! 914: result = capa_change_entry(&entry,Tcl_GetVar2(interp,"gGrading","number",
! 915: TCL_GLOBAL_ONLY),
! 916: atoi(Tcl_GetVar(interp,"gSetLoad",TCL_GLOBAL_ONLY)));
! 917:
! 918: if (result == -1) {
! 919: Tcl_ResetResult(interp);
! 920: Tcl_AppendResult(interp,"capa_change_entry returned an error.",NULL);
! 921: return TCL_ERROR;
! 922: }
! 923:
! 924: Tcl_ResetResult(interp);
! 925: return TCL_OK;
! 926: }
! 927:
! 928: /* a wrapper for capa_excuse
! 929: * Arguments: set; problem; section
! 930: */
! 931: int capaExcuse (ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 932: {
! 933: int result;
! 934:
! 935: result = capa_excuse(atoi(argv[1]),atoi(argv[2]),atoi(argv[3]));
! 936:
! 937: if (result == -1)
! 938: {
! 939: Tcl_ResetResult(interp);
! 940: Tcl_AppendResult(interp,"capa_excuse returned error.",NULL);
! 941: return TCL_ERROR;
! 942: }
! 943:
! 944: return TCL_OK;
! 945: }
! 946:
! 947: /* creates a summary report
! 948: * Arguments: the filename
! 949: */
! 950: int capaCreateSummary (ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 951: {
! 952: int section = atoi(Tcl_GetVar2(interp,"gSummary","section",TCL_GLOBAL_ONLY)),
! 953: set = atoi(Tcl_GetVar2(interp,"gSummary","set",TCL_GLOBAL_ONLY));
! 954: int studentCount,currentStudent;
! 955: int setScores, termScores, validScores, termValids;
! 956: int setIndex, maxSet=0;
! 957: int whatSection;
! 958: char fmt[64];
! 959: char grades[4], sectionChar[4], *answersPtr, buf[BUFFER_SIZE], *who,*which,*sortOne,*sortTwo;
! 960: T_student *studentPtr, *currentStudentPtr;
! 961: FILE *outputFile;
! 962:
! 963: who=Tcl_GetVar2(interp,"gSummary","who",TCL_GLOBAL_ONLY);
! 964: which=Tcl_GetVar2(interp,"gSummary","which",TCL_GLOBAL_ONLY);
! 965: sortOne=Tcl_GetVar2(interp,"gSummary","first",TCL_GLOBAL_ONLY);
! 966: sortTwo=Tcl_GetVar2(interp,"gSummary","second",TCL_GLOBAL_ONLY);
! 967: maxSet=howManySetDBFile();
! 968: if ( ( ( strcmp(which,"upto") == 0 )
! 969: &&
! 970: ( ( set <= 0 )
! 971: ||
! 972: ( set >= NUM_SET_LIMIT ) ) )
! 973: ||
! 974: ( set > maxSet ) )
! 975: {
! 976: sprintf(buf,"displayError \"The set number (%d) doesn't exist.\"",set);
! 977: Tcl_Eval(interp,buf);
! 978: Tcl_ResetResult(interp);
! 979: Tcl_AppendResult(interp,"Error",NULL);
! 980: return TCL_ERROR;
! 981: }
! 982: outputFile=fopen(argv[1],"w");
! 983: if ( strcmp(who,"all") == 0 )
! 984: whatSection = GET_ALL_SECTIONS;
! 985: else
! 986: whatSection = section;
! 987: studentCount = capa_get_section(&studentPtr, whatSection);
! 988:
! 989: if (Tcl_Eval(interp,"updateStatusMessage \"Creating primary sort key\"") != TCL_OK)
! 990: {
! 991: free_students(studentPtr);
! 992: fclose(outputFile);
! 993: return TCL_ERROR;
! 994: }
! 995:
! 996: if( studentCount > 0 )
! 997: {
! 998: switch (sortOne[1])
! 999: {
! 1000: case 'a': /*BY_NAME*/
! 1001: for(currentStudentPtr=studentPtr,currentStudent=1;currentStudentPtr;
! 1002: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 1003: {
! 1004: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 1005: Tcl_Eval(interp,buf);
! 1006: sprintf(currentStudentPtr->s_key,"%s",currentStudentPtr->s_nm);
! 1007: }
! 1008: break;
! 1009: case 'u': /*BY_NUMBER*/
! 1010: for(currentStudentPtr=studentPtr,currentStudent=1;currentStudentPtr;
! 1011: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 1012: {
! 1013: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 1014: Tcl_Eval(interp,buf);
! 1015: sprintf(currentStudentPtr->s_key,"%s",currentStudentPtr->s_sn);
! 1016: }
! 1017: break;
! 1018: case 'e': /*BY_SECTION*/
! 1019: for(currentStudentPtr=studentPtr,currentStudent=1;currentStudentPtr;
! 1020: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 1021: {
! 1022: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 1023: Tcl_Eval(interp,buf);
! 1024: sprintf(currentStudentPtr->s_key,"%03d",currentStudentPtr->s_sec);
! 1025: }
! 1026: break;
! 1027: case 'r': /*BY_GRADE*/
! 1028: if(strcmp(which,"specific") == 0 )
! 1029: {
! 1030: for(currentStudentPtr=studentPtr,currentStudent=1;currentStudentPtr;
! 1031: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 1032: {
! 1033: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 1034: Tcl_Eval(interp,buf);
! 1035: if( (setScores = capa_get_score(currentStudentPtr->s_sn,set,
! 1036: &validScores,&answersPtr)) == -2 )
! 1037: break;
! 1038: if( setScores < 0 )
! 1039: sprintf(currentStudentPtr->s_key,"-");
! 1040: else
! 1041: sprintf(currentStudentPtr->s_key,"%03d",setScores);
! 1042: capa_mfree(answersPtr);
! 1043: }
! 1044: }
! 1045: else
! 1046: {
! 1047: for(currentStudentPtr=studentPtr,currentStudent=1;currentStudentPtr;
! 1048: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 1049: {
! 1050: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 1051: Tcl_Eval(interp,buf);
! 1052: for( termScores = 0, termValids = 0, setIndex = 1;
! 1053: setIndex <= set; setIndex++)
! 1054: {
! 1055: if( (setScores = capa_get_score(currentStudentPtr->s_sn,setIndex,
! 1056: &validScores,&answersPtr)) >= 0 )
! 1057: termScores += setScores;
! 1058: capa_mfree(answersPtr);
! 1059: termValids += validScores;
! 1060: }
! 1061: sprintf(currentStudentPtr->s_key,"%03d",termScores);
! 1062: }
! 1063: }
! 1064: break;
! 1065: }
! 1066: if (Tcl_Eval(interp,"updateStatusMessage \"Creating secondary sort key\"") != TCL_OK)
! 1067: {
! 1068: free_students(studentPtr);
! 1069: fclose(outputFile);
! 1070: return TCL_ERROR;
! 1071: }
! 1072: switch (sortTwo[1])
! 1073: {
! 1074: case 'a':/*BY_NAME*/
! 1075: for(currentStudentPtr=studentPtr,currentStudent=1;currentStudentPtr;
! 1076: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 1077: {
! 1078: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 1079: Tcl_Eval(interp,buf);
! 1080: strcat(currentStudentPtr->s_key,currentStudentPtr->s_nm);
! 1081: }
! 1082: break;
! 1083: case 'u':/*BY_NUMBER*/
! 1084: for(currentStudentPtr=studentPtr,currentStudent=1;currentStudentPtr;
! 1085: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 1086: {
! 1087: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 1088: Tcl_Eval(interp,buf);
! 1089: strcat(currentStudentPtr->s_key,currentStudentPtr->s_sn);
! 1090: }
! 1091: break;
! 1092: case 'e':/*BY_SECTION*/
! 1093: for(currentStudentPtr=studentPtr,currentStudent=1;currentStudentPtr;
! 1094: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 1095: {
! 1096: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 1097: Tcl_Eval(interp,buf);
! 1098: sprintf(sectionChar,"%03d",currentStudentPtr->s_sec);
! 1099: strcat(currentStudentPtr->s_key,sectionChar);
! 1100: }
! 1101: break;
! 1102: case 'r':/*BY_GRADE*/
! 1103: if(strcmp(which,"specific") == 0 )
! 1104: {
! 1105: for(currentStudentPtr=studentPtr,currentStudent=1;currentStudentPtr;
! 1106: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 1107: {
! 1108: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 1109: Tcl_Eval(interp,buf);
! 1110: if( (setScores = capa_get_score(currentStudentPtr->s_sn,set,&validScores,
! 1111: &answersPtr) ) == -2 )
! 1112: break;
! 1113: if( setScores < 0 )
! 1114: strcat(currentStudentPtr->s_key,"-");
! 1115: else
! 1116: {
! 1117: sprintf(grades,"%03d",setScores);
! 1118: strcat(currentStudentPtr->s_key,grades);
! 1119: }
! 1120: capa_mfree(answersPtr);
! 1121: }
! 1122: }
! 1123: else
! 1124: {
! 1125: for(currentStudentPtr=studentPtr,currentStudent=1;currentStudentPtr;
! 1126: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 1127: {
! 1128: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 1129: Tcl_Eval(interp,buf);
! 1130: for( termScores = 0, termValids = 0, setIndex = 1;
! 1131: setIndex <= set; setIndex++)
! 1132: {
! 1133: if( (setScores = capa_get_score(currentStudentPtr->s_sn,setIndex,
! 1134: &validScores,&answersPtr) ) >= 0 )
! 1135: termScores += setScores;
! 1136: capa_mfree(answersPtr);
! 1137: termValids += validScores;
! 1138: }
! 1139: sprintf(grades,"%03d",termScores);
! 1140: strcat(currentStudentPtr->s_key,grades);
! 1141: }
! 1142: }
! 1143: break;
! 1144: }
! 1145: if (Tcl_Eval(interp,"updateStatusMessage \"Sorting\"") != TCL_OK)
! 1146: {
! 1147: free_students(studentPtr);
! 1148: fclose(outputFile);
! 1149: return TCL_ERROR;
! 1150: }
! 1151: msort_main(&studentPtr);
! 1152: Tcl_ResetResult(interp);
! 1153:
! 1154: sprintf(fmt,"%%-%ds\t%%-%ds %%2d\t", MAX_NAME_CHAR,MAX_STUDENT_NUMBER);
! 1155: if (Tcl_Eval(interp,"updateStatusMessage \"Creating Report\"") != TCL_OK)
! 1156: {
! 1157: free_students(studentPtr);
! 1158: fclose(outputFile);
! 1159: return TCL_ERROR;
! 1160: }
! 1161: for(currentStudentPtr=studentPtr,currentStudent=1;currentStudentPtr;
! 1162: currentStudentPtr=currentStudentPtr->s_next,currentStudent++)
! 1163: {
! 1164: sprintf(buf,"updateStatusBar %f",(float)currentStudent/(float)studentCount);
! 1165: Tcl_Eval(interp,buf);
! 1166: fprintf(outputFile,fmt,currentStudentPtr->s_nm,currentStudentPtr->s_sn,
! 1167: currentStudentPtr->s_sec);
! 1168: if( strcmp(which,"specific") == 0)
! 1169: {
! 1170: setScores = 0; validScores = 0;
! 1171: if( (setScores =
! 1172: capa_get_score(currentStudentPtr->s_sn,set,&validScores,&answersPtr) ) == -2 )
! 1173: break;
! 1174: if( setScores < 0 )
! 1175: {
! 1176: fprintf(outputFile, " -\t%3d\n", validScores);
! 1177: }
! 1178: else
! 1179: {
! 1180: fprintf(outputFile, "%3d\t%3d\n",setScores, validScores);
! 1181: }
! 1182: capa_mfree(answersPtr);
! 1183: }
! 1184: else
! 1185: {
! 1186: for( setScores=0, validScores=0, termScores = 0, termValids = 0, setIndex = 1;
! 1187: setIndex <= set; setIndex++)
! 1188: {
! 1189: if( (setScores = capa_get_score(currentStudentPtr->s_sn,setIndex,
! 1190: &validScores,&answersPtr) ) >= 0 )
! 1191: termScores += setScores;
! 1192: capa_mfree(answersPtr);
! 1193: termValids += validScores;
! 1194: if( setScores >= 0 )
! 1195: {
! 1196: fprintf(outputFile, "%3d ",setScores);
! 1197: }
! 1198: else
! 1199: {
! 1200: fprintf(outputFile, " - ");
! 1201: }
! 1202: }
! 1203: fprintf(outputFile, "\t %3d\t%3d\n",termScores,termValids);
! 1204: }
! 1205: }
! 1206: free_students(studentPtr);
! 1207: }
! 1208: fclose(outputFile);
! 1209: return TCL_OK;
! 1210: }
! 1211:
! 1212: /* set the gAnswer score to what ever the user entered
! 1213: * Arguments: problemNumber
! 1214: */
! 1215: int capaSetHandGrade (ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 1216: {
! 1217: int problemNumber=atoi(argv[1]),handGrade,maxGrade;
! 1218: char *handGradeChar,buf[BUFFER_SIZE];
! 1219:
! 1220: handGradeChar=Tcl_GetVar(interp,"gNewHandGrade",TCL_GLOBAL_ONLY);
! 1221: sprintf(buf,"max%d",problemNumber);
! 1222: maxGrade=atoi(Tcl_GetVar2(interp,"gAnswer",buf,TCL_GLOBAL_ONLY));
! 1223:
! 1224: if (isdigit(handGradeChar[0])) {
! 1225: handGrade=atoi(handGradeChar);
! 1226: if (handGrade > maxGrade) {
! 1227: sprintf(buf,"displayError \"Invalid response, you must enter a number between 0 and %d, or an E to excuse the problem.\"",maxGrade);
! 1228: if (Tcl_Eval(interp,buf)!=TCL_OK) {
! 1229: return TCL_ERROR;
! 1230: }
! 1231: } else {
! 1232: sprintf(buf,"%d",handGrade);
! 1233: Tcl_SetVar2(interp,"gAnswer",argv[1],buf,TCL_GLOBAL_ONLY);
! 1234: }
! 1235: } else {
! 1236: if (handGradeChar[0]=='E') {
! 1237: Tcl_SetVar2(interp,"gAnswer",argv[1],"E",TCL_GLOBAL_ONLY);
! 1238: } else {
! 1239: sprintf(buf,"displayError \"Invalid response, you must enter a number between 0 and %d, or an E to excuse the problem.\"",maxGrade);
! 1240: if (Tcl_Eval(interp,buf)!=TCL_OK) return TCL_ERROR;
! 1241:
! 1242: }
! 1243: }
! 1244: Tcl_ResetResult(interp);
! 1245: return TCL_OK;
! 1246: }
! 1247:
! 1248: /* save gAnswer to the set.db file
! 1249: * Arguments: setNum, questNum, stuId, score
! 1250: */
! 1251: int capaSetScore (ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[])
! 1252: {
! 1253: T_entry entry;
! 1254: int score,i,result,question,numQuest,set;
! 1255: char buf[BUFFER_SIZE],*gAnswer,*stuId;
! 1256: T_header header;
! 1257:
! 1258: if (argc != 5)
! 1259: {
! 1260: Tcl_ResetResult(interp);
! 1261: Tcl_AppendResult(interp,"Incorrect number of arguments to save gAnswer",NULL);
! 1262: return TCL_ERROR;
! 1263: }
! 1264:
! 1265: set=atoi(argv[1]);
! 1266: question=atoi(argv[2]);
! 1267: stuId=argv[3];
! 1268: score=atoi(argv[4]);
! 1269:
! 1270: result=capa_get_header(&header,set);
! 1271:
! 1272: numQuest=atoi(header.num_questions);
! 1273: result = capa_get_entry(&entry,stuId,set);
! 1274:
! 1275: entry.answers=capa_malloc(numQuest+1,1);
! 1276: entry.tries=capa_malloc(3*numQuest+1,1);
! 1277:
! 1278: for(i=0;i<numQuest;i++) {
! 1279: if ( i==(question-1) ) {
! 1280: entry.answers[i]=score+'0';
! 1281: } else {
! 1282: entry.answers[i]='-';
! 1283: }
! 1284: entry.tries[i*3]='-';entry.tries[i*3+1]='1';
! 1285: if (i<numQuest-1) entry.tries[i*3+2]=',';
! 1286: }
! 1287:
! 1288: entry.answers[numQuest]='\0';
! 1289: entry.tries[(numQuest)*3]='\0';
! 1290: sprintf(entry.student_number,stuId);
! 1291: entry.e_probs=numQuest;
! 1292: result = capa_change_entry(&entry,stuId,set);
! 1293:
! 1294: if (result == -1) {
! 1295: Tcl_ResetResult(interp);
! 1296: Tcl_AppendResult(interp,"capa_change_entry returned an error.",NULL);
! 1297: return TCL_ERROR;
! 1298: }
! 1299:
! 1300: Tcl_ResetResult(interp);
! 1301: return TCL_OK;
! 1302: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to grader.funct.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / GUITools