Subversion Repositories or1k

/*

 *  itclMacTclCode.r

 *

 *  This file includes the Itcl code that is needed to startup Tcl.

 *  It is to be included either in the resource fork of the shared library, or in the

 *  resource fork of the application for a statically bound application.

 *

 *  Jim Ingham

 *  Lucent Technologies 1996

 *

 */

#include 

#include 

#define ITCL_LIBRARY_RESOURCES 2500

/*

 * The mechanisim below loads Tcl source into the resource fork of the

 * application.  The example below creates a TEXT resource named

 * "Init" from the file "init.tcl".  This allows applications to use

 * Tcl to define the behavior of the application without having to

 * require some predetermined file structure - all needed Tcl "files"

 * are located within the application.  To source a file for the

 * resource fork the source command has been modified to support

 * sourcing from resources.  In the below case "source -rsrc {Init}"

 * will load the TEXT resource named "Init".

 */

read 'TEXT' (ITCL_LIBRARY_RESOURCES, "itcl", purgeable,preload) "::library:itcl.tcl";