/*
* grader.init.c
* Copyright Guy Albertelli II 1996
*/
#include <stdio.h>
#include <tk.h>
#include <stdlib.h>
#include <signal.h>
#include <unistd.h>
#include <grader.h>
#include <common.h>
Tcl_Interp *gInterp;
int Grader_Init(Tcl_Interp *interp)
{
char buf[BUFFER_SIZE],*argv;
gInterp=interp;
Tcl_CreateCommand( interp, "getHeader", capaGetHeader, (ClientData)NULL,
(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "getStudents", capaGetStudents,
(ClientData)NULL,(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "dateUpdate", capaDateUpdate, (ClientData)NULL,
(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "findSection", capaFindSection,
(ClientData)NULL,(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "getReportInfo", capaGetReportInfo,
(ClientData)NULL,(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "getSetSummary", capaGetSetSummary,
(ClientData)NULL,(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "getTermSummary", capaGetTermSummary,
(ClientData)NULL,(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "enscriptParse", capaTclParse, (ClientData)NULL,
(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "setupGAnswer", capaSetupGAnswer,
(ClientData)NULL,(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "saveGAnswer", capaSaveGAnswer,
(ClientData)NULL,(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "capaExcuse", capaExcuse, (ClientData)NULL,
(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "createSummary", capaCreateSummary,
(ClientData)NULL,(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "getQuestionTypes", capaGetQuestionTypes,
(ClientData)NULL,(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "setHandGrade", capaSetHandGrade,
(ClientData)NULL,(Tcl_CmdDeleteProc *)NULL);
Tcl_CreateCommand( interp, "setScore", capaSetScore,
(ClientData)NULL,(Tcl_CmdDeleteProc *)NULL);
sprintf(buf,"%s.%s",MAJORVER,GRADERMINORVER);
Tcl_SetVar(interp,"gVer",buf,TCL_GLOBAL_ONLY);
sprintf(buf,"Compiled on %s",COMPILE_DATE);
Tcl_SetVar(interp,"gCompileDate",buf,TCL_GLOBAL_ONLY);
argv=Tcl_GetVar(interp,"argv", TCL_GLOBAL_ONLY);
if (argv!=NULL && strlen(argv) > 9 &&
argv[0]=='-' &&
argv[1]=='c' &&
argv[2]=='o' &&
argv[3]=='p' &&
argv[4]=='y' &&
argv[5]=='r' &&
argv[6]=='i' &&
argv[7]=='g' &&
argv[8]=='h' &&
argv[9]=='t' ) message();
return TCL_OK;
}
int Grader_InitStandAlone(Tcl_Interp *interp)
{
return Grader_Init(interp);
}
int Grader_SafeInit(Tcl_Interp *interp)
{
return Grader_Init(interp);
}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>