Return to webpage.init.c CVS log

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

Annotation of capa/capa51/GUITools/webpage.init.c, revision 1.1.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 <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: