/*
 * Rick Ratzel
 * 3/11/2004
 * 
 * Copyright (c) 2004 Richard L. Ratzel
 * see file "COPYRIGHT" for more details...
 */
#include <tcl.h>
#include <configfile.h>

/*
 * called by Tcl_Main for initializing the interp
 */
int Tcl_AppInit( Tcl_Interp* interp ) {

    if (Tcl_Init(interp) == TCL_ERROR) {
	return TCL_ERROR;
    }
  /*
   * this function is generated by Elmer when the
   * -tcl option is specified
   */
  return configfileTcl_Init( interp );
}


int main( int argc, char** argv ) {

  Tcl_Main( argc, argv, Tcl_AppInit );

  return 0;
}