Return to manager.init.c CVS log

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

Annotation of capa/capa51/GUITools/manager.init.c, revision 1.1

1.1     ! albertel    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, "getExistingSections", capaGetExistingSections,
        !            31: 		    (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); 
        !            32:   
        !            33:   sprintf(buf,"%s.%s",MAJORVER,MANAGERMINORVER);
        !            34:   Tcl_SetVar(interp,"gVer",buf,TCL_GLOBAL_ONLY);
        !            35:   sprintf(buf,"Compiled on %s",COMPILE_DATE);
        !            36:   Tcl_SetVar(interp,"gCompileDate",buf,TCL_GLOBAL_ONLY);
        !            37:   
        !            38:   argv=Tcl_GetVar(interp,"argv", TCL_GLOBAL_ONLY);
        !            39:   if (argv!=NULL && strlen(argv) > 9 && 
        !            40:       argv[0]=='-' && 
        !            41:       argv[1]=='c' && 
        !            42:       argv[2]=='o' && 
        !            43:       argv[3]=='p' && 
        !            44:       argv[4]=='y' && 
        !            45:       argv[5]=='r' && 
        !            46:       argv[6]=='i' && 
        !            47:       argv[7]=='g' && 
        !            48:       argv[8]=='h' && 
        !            49:       argv[9]=='t' ) message();
        !            50: 
        !            51:   Scorer_Init(interp);
        !            52:   return TCL_OK;
        !            53: }
        !            54: 
        !            55: int Manager_InitStandAlone(Tcl_Interp *interp)
        !            56: {
        !            57:   return Manager_Init(interp);
        !            58: }
        !            59: 
        !            60: int Manager_SafeInit(Tcl_Interp *interp)
        !            61: {
        !            62:   return Manager_Init(interp);
        !            63: }
        !            64: