Return to webpage.init.c CVS log

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

Initial revision

/*
 * quizzer.c
 * Copyright Guy Albertelli II 1996
 */
#include <stdio.h>
#include <tcl.h>
#include <Capa/capaCommon.h>
#include <webpage.h>
#include <common.h>

Tcl_Interp *gInterp;

int Webpage_Init(Tcl_Interp *interp)
{
  char buf[BUFFER_SIZE];

  sprintf(buf,"%s.%s",MAJORVER,WEBPAGEMINORVER);
  Tcl_SetVar(interp,"gVer",buf,TCL_GLOBAL_ONLY);
  sprintf(buf,"Compiled on %s",COMPILE_DATE);
  Tcl_SetVar(interp,"gCompileDate",buf,TCL_GLOBAL_ONLY);

  return TCL_OK;
}

int Webpage_InitStandAlone(Tcl_Interp *interp)
{
  return Webpage_Init(interp);
}

int Webpage_SafeInit(Tcl_Interp *interp)
{
  return Webpage_Init(interp);
}