Return to manager.init.c CVS log

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

- Copied the Class Report File generation in Manager. Probably should
  eventually make the two versions into one.
- Started working on gradesubjective email responses

    1: /*
    2:  * manager.c
    3:  * Copyright Guy Albertelli II 1996
    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 "manager.h"
   12: #include <common.h>
   13: 
   14: 
   15: Tcl_Interp * gInterp;
   16: 
   17: int Manager_Init(Tcl_Interp *interp)
   18: {
   19:   char buf[BUFFER_SIZE],*argv;
   20: 
   21:   signal(SIGSEGV,signalHandler);
   22:   signal(SIGILL,signalHandler);
   23:   signal(SIGFPE,signalHandler);
   24:   signal(SIGBUS,signalHandler);
   25: 
   26:   gInterp=interp;
   27: 
   28:   /*Tcl_CreateCommand( interp, "name", cname,
   29:     (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); */
   30:   Tcl_CreateCommand(interp, "CTcreateSummary", capaCTcreateSummary,
   31: 		    (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
   32:   Tcl_CreateCommand(interp, "getExistingSections", capaGetExistingSections,
   33: 		    (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); 
   34:   
   35:   sprintf(buf,"%s.%s",MAJORVER,MANAGERMINORVER);
   36:   Tcl_SetVar(interp,"gVer",buf,TCL_GLOBAL_ONLY);
   37:   sprintf(buf,"Compiled on %s",COMPILE_DATE);
   38:   Tcl_SetVar(interp,"gCompileDate",buf,TCL_GLOBAL_ONLY);
   39:   
   40:   argv=Tcl_GetVar(interp,"argv", TCL_GLOBAL_ONLY);
   41:   if (argv!=NULL && strlen(argv) > 9 && 
   42:       argv[0]=='-' && 
   43:       argv[1]=='c' && 
   44:       argv[2]=='o' && 
   45:       argv[3]=='p' && 
   46:       argv[4]=='y' && 
   47:       argv[5]=='r' && 
   48:       argv[6]=='i' && 
   49:       argv[7]=='g' && 
   50:       argv[8]=='h' && 
   51:       argv[9]=='t' ) message();
   52: 
   53:   Scorer_Init(interp);
   54:   return TCL_OK;
   55: }
   56: 
   57: int Manager_InitStandAlone(Tcl_Interp *interp)
   58: {
   59:   return Manager_Init(interp);
   60: }
   61: 
   62: int Manager_SafeInit(Tcl_Interp *interp)
   63: {
   64:   return Manager_Init(interp);
   65: }
   66: