Return to webpage.c CVS log

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

Annotation of capa/capa51/GUITools/webpage.c, revision 1.1

1.1     ! albertel    1: /*
        !             2:  * quizzer.c
        !             3:  * Copyright Guy Albertelli II 1996
        !             4:  */
        !             5: #include <stdio.h>
        !             6: #include <tcl.h>
        !             7: #include <stdlib.h>
        !             8: #include <Capa/capaCommon.h>
        !             9: #include <unistd.h>
        !            10: #include <webpage.h>
        !            11: #include "common.h"
        !            12: 
        !            13: extern Tcl_Interp *gInterp;
        !            14: 
        !            15: int Webpage_Init(Tcl_Interp *interp);
        !            16: int main(int argc, char**argv)
        !            17: {
        !            18:   char * rDisplay,*q,filename[BUFFER_SIZE],buffer[BUFFER_SIZE];
        !            19:   int  found=1;
        !            20: 
        !            21:   if (argc >1) {
        !            22:     if (!strcmp(argv[1],"-emailcapaid")) { emailcapaid(argc,argv);return 0;}
        !            23:     if (!strcmp(argv[1],"-getid")) { getid(argc,argv);return 0;}
        !            24:   }
        !            25: 
        !            26:   gInterp=Tcl_CreateInterp();
        !            27:   if (gInterp ==NULL)
        !            28:   {
        !            29:     fprintf(stderr,"Couldn't get a new Tcl Interp\n");
        !            30:     return -1;
        !            31:   }
        !            32: 
        !            33:   q = Tcl_Merge(argc-1, argv+1);
        !            34:   Tcl_SetVar(gInterp, "argv", q, TCL_GLOBAL_ONLY);
        !            35:   ckfree(q);
        !            36:   sprintf(buffer, "%d", argc-1);
        !            37:   Tcl_SetVar(gInterp, "argc", buffer, TCL_GLOBAL_ONLY);
        !            38:   Tcl_SetVar(gInterp, "argv0", argv[0],TCL_GLOBAL_ONLY);
        !            39:   Tcl_SetVar(gInterp, "tcl_interactive","0", TCL_GLOBAL_ONLY);
        !            40: 
        !            41:   if (Tcl_Init(gInterp) == TCL_ERROR) 
        !            42:   {
        !            43:     fprintf(stderr,"Tcl_Init error\n");
        !            44:     fprintf(stderr,"%d\n",TCL_ERROR);
        !            45:     fprintf(stderr,"%s\n",gInterp->result);
        !            46:     return -4;
        !            47:   }
        !            48:   
        !            49:   Webpage_Init(gInterp);
        !            50: 
        !            51:   sprintf(filename,"./webpage.tcl");
        !            52:   if( capa_access(filename, F_OK) == -1 ) {
        !            53:     found=0;
        !            54:   }
        !            55:   
        !            56:   if( found ) {
        !            57:     if (Tcl_EvalFile(gInterp, filename) != TCL_OK) 
        !            58:     {
        !            59:       fprintf(stderr,"%s\n",gInterp->result);
        !            60:       return -6;
        !            61:     }
        !            62:     while(Tcl_DoOneEvent(TCL_ALL_EVENTS));
        !            63:   } else {
        !            64:     fprintf(stderr,"Unable to find webpage.tcl\n");
        !            65:     exit(-7);
        !            66:   }
        !            67:   return 0;
        !            68: }
        !            69: 
        !            70: 
        !            71: