tix/unix/tk4.2/tclUnixSam76.c

   1 /*
   2  * tclUnixSam76.c --
   3  *
   4  *      Initializes the Tcl stand-alone module Tcl version 7.6.
   5  *
   6  * Copyright (c) 1996, Expert Interface Technologies
   7  *
   8  * See the file "license.terms" for information on usage and redistribution
   9  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  10  *
  11  */
  12
  13 #include "tclPort.h"
  14 #include "tclInt.h"
  15
  16 #include "tclSamLib.c"
  17
  18 int                     SamTcl_Init _ANSI_ARGS_((Tcl_Interp *interp));
  19
  20 int
  21 Tclsam_Init(interp)
  22     Tcl_Interp *interp;         /* Interpreter to initialize. */
  23 {
  24     Tcl_Eval(interp, "set tcl_library {}");
  25     return LoadScripts(interp);
  26 }