1: /* scorer initialization routines
2: Copyright (C) 1992-2000 Michigan State University
3:
4: The CAPA system is free software; you can redistribute it and/or
5: modify it under the terms of the GNU Library General Public License as
6: published by the Free Software Foundation; either version 2 of the
7: License, or (at your option) any later version.
8:
9: The CAPA system is distributed in the hope that it will be useful,
10: but WITHOUT ANY WARRANTY; without even the implied warranty of
11: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12: Library General Public License for more details.
13:
14: You should have received a copy of the GNU Library General Public
15: License along with the CAPA system; see the file COPYING. If not,
16: write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17: Boston, MA 02111-1307, USA.
18:
19: As a special exception, you have permission to link this program
20: with the TtH/TtM library and distribute executables, as long as you
21: follow the requirements of the GNU GPL in regard to all of the
22: software in the executable aside from TtH/TtM.
23: */
24:
25: /*
26: * scorer.init.c
27: * Guy Albertelli II 1998
28: */
29: #include <stdio.h>
30: #include <sys/file.h>
31: #include <tk.h>
32: #include <stdlib.h>
33: #include "Capa/capaCommon.h"
34: #include <signal.h>
35: #include "scorer.h"
36: #include "manager.h"
37:
38: Tcl_Interp * gInterp;
39:
40: int Scorer_Init(Tcl_Interp *interp)
41: {
42: char buf[BUFFER_SIZE];
43:
44: signal(SIGSEGV,signalHandler);
45: signal(SIGILL,signalHandler);
46: signal(SIGFPE,signalHandler);
47: signal(SIGBUS,signalHandler);
48:
49: gInterp=interp;
50:
51: Tcl_CreateCommand(interp, "buildStudentList", buildStudentList,
52: (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
53: Tcl_CreateCommand(interp, "freeStudentList", freeStudentList,
54: (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
55: Tcl_CreateCommand(interp, "getAnswersFromSet", getAnswersFromSet,
56: (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
57: Tcl_CreateCommand(interp, "compareCapaID", compareCapaID,
58: (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
59: Tcl_CreateCommand(interp,"scorer_get_entry", scorer_get_entry,
60: (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
61: Tcl_CreateCommand(interp,"scorer_set_entry", scorer_set_entry,
62: (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
63:
64: sprintf(buf,"%s.%s",MAJORVER,MANAGERMINORVER);
65: Tcl_SetVar(interp,"gVer",buf,TCL_GLOBAL_ONLY);
66: sprintf(buf,"Compiled on %s",COMPILE_DATE);
67: Tcl_SetVar(interp,"gCompileDate",buf,TCL_GLOBAL_ONLY);
68:
69: return TCL_OK;
70: }
71:
72: int Scorer_InitStandAlone(Tcl_Interp *interp)
73: {
74: return Scorer_Init(interp);
75: }
76:
77: int Scorer_SafeInit(Tcl_Interp *interp)
78: {
79: return Scorer_Init(interp);
80: }
81:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>