Return to webpage.init.c CVS log

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

- modified build method to be less error prone
- corrected some english in the INSTALL file

    1: /* webpage initialization routines
    2:    Copyright (C) 1992-2000 Michigan State University
    3: 
    4:    The CAPA system is free software; you can redistribute it and/or
    5:    modify it under the terms of the GNU Library General Public License as
    6:    published by the Free Software Foundation; either version 2 of the
    7:    License, or (at your option) any later version.
    8: 
    9:    The CAPA system is distributed in the hope that it will be useful,
   10:    but WITHOUT ANY WARRANTY; without even the implied warranty of
   11:    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   12:    Library General Public License for more details.
   13: 
   14:    You should have received a copy of the GNU Library General Public
   15:    License along with the CAPA system; see the file COPYING.  If not,
   16:    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   17:    Boston, MA 02111-1307, USA.
   18: 
   19:    As a special exception, you have permission to link this program
   20:    with the TtH/TtM library and distribute executables, as long as you
   21:    follow the requirements of the GNU GPL in regard to all of the
   22:    software in the executable aside from TtH/TtM.
   23: */
   24: 
   25: /*
   26:  * webpage.init.c
   27:  * Guy Albertelli II 1999
   28:  */
   29: #include <stdio.h>
   30: #include <tcl.h>
   31: #include <pProj/capaCommon.h>
   32: #include <webpage.h>
   33: #include <common.h>
   34: 
   35: Tcl_Interp *gInterp;
   36: 
   37: int Webpage_Init(Tcl_Interp *interp)
   38: {
   39:   char buf[BUFFER_SIZE];
   40: 
   41:   sprintf(buf,"%s.%s",MAJORVER,WEBPAGEMINORVER);
   42:   Tcl_SetVar(interp,"gVer",buf,TCL_GLOBAL_ONLY);
   43:   sprintf(buf,"Compiled on %s",COMPILE_DATE);
   44:   Tcl_SetVar(interp,"gCompileDate",buf,TCL_GLOBAL_ONLY);
   45: 
   46:   return TCL_OK;
   47: }
   48: 
   49: int Webpage_InitStandAlone(Tcl_Interp *interp)
   50: {
   51:   return Webpage_Init(interp);
   52: }
   53: 
   54: int Webpage_SafeInit(Tcl_Interp *interp)
   55: {
   56:   return Webpage_Init(interp);
   57: }
   58: