Return to scorer.init.c CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

Annotation of capa/capa51/GUITools/scorer.init.c, revision 1.1.1.1

1.1       albertel    1: /*
                      2:  * scorer.c
                      3:  * Copyright Guy Albertelli II 1998
                      4:  */
                      5: #include <stdio.h>
                      6: #include <sys/file.h>
                      7: #include <tk.h>
                      8: #include <stdlib.h>
                      9: #include "Capa/capaCommon.h"
                     10: #include <signal.h>
                     11: #include "scorer.h"
                     12: #include "manager.h"
                     13: 
                     14: Tcl_Interp * gInterp;
                     15: 
                     16: int Scorer_Init(Tcl_Interp *interp)
                     17: {
                     18:   char buf[BUFFER_SIZE];
                     19: 
                     20:   signal(SIGSEGV,signalHandler);
                     21:   signal(SIGILL,signalHandler);
                     22:   signal(SIGFPE,signalHandler);
                     23:   signal(SIGBUS,signalHandler);
                     24: 
                     25:   gInterp=interp;
                     26:   
                     27:   Tcl_CreateCommand(interp, "buildStudentList", buildStudentList,
                     28: 		    (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
                     29:   Tcl_CreateCommand(interp, "freeStudentList", freeStudentList,
                     30: 		    (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
                     31:   Tcl_CreateCommand(interp, "getAnswersFromSet", getAnswersFromSet,
                     32: 		    (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
                     33:   Tcl_CreateCommand(interp, "compareCapaID", compareCapaID,
                     34: 		    (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
                     35:   Tcl_CreateCommand(interp,"scorer_get_entry", scorer_get_entry,
                     36: 		    (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
                     37:   Tcl_CreateCommand(interp,"scorer_set_entry", scorer_set_entry,
                     38: 		    (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
                     39:   
                     40:   sprintf(buf,"%s.%s",MAJORVER,MANAGERMINORVER);
                     41:   Tcl_SetVar(interp,"gVer",buf,TCL_GLOBAL_ONLY);
                     42:   sprintf(buf,"Compiled on %s",COMPILE_DATE);
                     43:   Tcl_SetVar(interp,"gCompileDate",buf,TCL_GLOBAL_ONLY);
                     44:   
                     45:   return TCL_OK;
                     46: }
                     47: 
                     48: int Scorer_InitStandAlone(Tcl_Interp *interp)
                     49: {
                     50:   return Scorer_Init(interp);
                     51: }
                     52: 
                     53: int Scorer_SafeInit(Tcl_Interp *interp)
                     54: {
                     55:   return Scorer_Init(interp);
                     56: }
                     57: