Subversion Repositories or1k

/*
 * tclUnixSam76.c --
 *
 *	Initializes the Tcl stand-alone module Tcl version 7.6.
 *
 * Copyright (c) 1996, Expert Interface Technologies
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 */
 
#include "tclPort.h"
#include "tclInt.h"
 
#include "tclSamLib.c"
 
int			SamTcl_Init _ANSI_ARGS_((Tcl_Interp *interp));
 
int
Tclsam_Init(interp)
    Tcl_Interp *interp;		/* Interpreter to initialize. */
{
    Tcl_Eval(interp, "set tcl_library {}");
    return LoadScripts(interp);
}