Return to webpage.init.c CVS log

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

Initial revision

    1: /*
    2:  * quizzer.c
    3:  * Copyright Guy Albertelli II 1996
    4:  */
    5: #include <stdio.h>
    6: #include <tcl.h>
    7: #include <Capa/capaCommon.h>
    8: #include <webpage.h>
    9: #include <common.h>
   10: 
   11: Tcl_Interp *gInterp;
   12: 
   13: int Webpage_Init(Tcl_Interp *interp)
   14: {
   15:   char buf[BUFFER_SIZE];
   16: 
   17:   sprintf(buf,"%s.%s",MAJORVER,WEBPAGEMINORVER);
   18:   Tcl_SetVar(interp,"gVer",buf,TCL_GLOBAL_ONLY);
   19:   sprintf(buf,"Compiled on %s",COMPILE_DATE);
   20:   Tcl_SetVar(interp,"gCompileDate",buf,TCL_GLOBAL_ONLY);
   21: 
   22:   return TCL_OK;
   23: }
   24: 
   25: int Webpage_InitStandAlone(Tcl_Interp *interp)
   26: {
   27:   return Webpage_Init(interp);
   28: }
   29: 
   30: int Webpage_SafeInit(Tcl_Interp *interp)
   31: {
   32:   return Webpage_Init(interp);
   33: }
   34: