os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/mac/tclMacResource.r
changeset 0 bde4ae8d615e
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/mac/tclMacResource.r	Fri Jun 15 03:10:57 2012 +0200
     1.3 @@ -0,0 +1,44 @@
     1.4 +/* 
     1.5 + * tclMacResource.r --
     1.6 + *
     1.7 + *	This file creates resources for use in a simple shell.
     1.8 + *	This is designed to be an example of using the Tcl libraries
     1.9 + *	statically in a Macintosh Application.  For an example of
    1.10 + *	of using the dynamic libraries look at tclMacApplication.r.
    1.11 + *
    1.12 + * Copyright (c) 1993-94 Lockheed Missle & Space Company
    1.13 + * Copyright (c) 1994-97 Sun Microsystems, Inc.
    1.14 + *
    1.15 + * See the file "license.terms" for information on usage and redistribution
    1.16 + * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    1.17 + *
    1.18 + * RCS: @(#) $Id: tclMacResource.r,v 1.8 2002/09/12 17:33:20 das Exp $
    1.19 + */
    1.20 +
    1.21 +#include <Types.r>
    1.22 +#include <SysTypes.r>
    1.23 +
    1.24 +/*
    1.25 + * The folowing include and defines help construct
    1.26 + * the version string for Tcl.
    1.27 + */
    1.28 +
    1.29 +#define RC_INVOKED
    1.30 +#include "tcl.h"
    1.31 +
    1.32 +/* 
    1.33 + * The mechanisim below loads Tcl source into the resource fork of the
    1.34 + * application.  The example below creates a TEXT resource named
    1.35 + * "Init" from the file "init.tcl".  This allows applications to use
    1.36 + * Tcl to define the behavior of the application without having to
    1.37 + * require some predetermined file structure - all needed Tcl "files"
    1.38 + * are located within the application.  To source a file for the
    1.39 + * resource fork the source command has been modified to support
    1.40 + * sourcing from resources.  In the below case "source -rsrc {Init}"
    1.41 + * will load the TEXT resource named "Init".
    1.42 + */
    1.43 +
    1.44 +#ifndef TCLTK_NO_LIBRARY_TEXT_RESOURCES
    1.45 +#include "tclMacTclCode.r"
    1.46 +#endif
    1.47 +