|
sl@0
|
1 |
/*
|
|
sl@0
|
2 |
* tclMacTclCode.r --
|
|
sl@0
|
3 |
*
|
|
sl@0
|
4 |
* This file creates resources from the Tcl code that is
|
|
sl@0
|
5 |
* usually stored in the TCL_LiBRARY
|
|
sl@0
|
6 |
*
|
|
sl@0
|
7 |
* Copyright (c) 1996-1997 Sun Microsystems, Inc.
|
|
sl@0
|
8 |
*
|
|
sl@0
|
9 |
* See the file "license.terms" for information on usage and redistribution
|
|
sl@0
|
10 |
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
sl@0
|
11 |
*
|
|
sl@0
|
12 |
* SCCS: @(#) tclMacTclCode.r 1.1 98/01/21 22:22:38
|
|
sl@0
|
13 |
*/
|
|
sl@0
|
14 |
|
|
sl@0
|
15 |
#include <Types.r>
|
|
sl@0
|
16 |
#include <SysTypes.r>
|
|
sl@0
|
17 |
|
|
sl@0
|
18 |
#define TCL_LIBRARY_RESOURCES 2000
|
|
sl@0
|
19 |
|
|
sl@0
|
20 |
/*
|
|
sl@0
|
21 |
* The mechanisim below loads Tcl source into the resource fork of the
|
|
sl@0
|
22 |
* application. The example below creates a TEXT resource named
|
|
sl@0
|
23 |
* "Init" from the file "init.tcl". This allows applications to use
|
|
sl@0
|
24 |
* Tcl to define the behavior of the application without having to
|
|
sl@0
|
25 |
* require some predetermined file structure - all needed Tcl "files"
|
|
sl@0
|
26 |
* are located within the application. To source a file for the
|
|
sl@0
|
27 |
* resource fork the source command has been modified to support
|
|
sl@0
|
28 |
* sourcing from resources. In the below case "source -rsrc {Init}"
|
|
sl@0
|
29 |
* will load the TEXT resource named "Init".
|
|
sl@0
|
30 |
*/
|
|
sl@0
|
31 |
|
|
sl@0
|
32 |
read 'TEXT' (TCL_LIBRARY_RESOURCES, "init", purgeable) "::library:init.tcl";
|
|
sl@0
|
33 |
read 'TEXT' (TCL_LIBRARY_RESOURCES + 1, "auto", purgeable) "::library:auto.tcl";
|
|
sl@0
|
34 |
read 'TEXT' (TCL_LIBRARY_RESOURCES + 2, "package", purgeable,preload) "::library:package.tcl";
|
|
sl@0
|
35 |
read 'TEXT' (TCL_LIBRARY_RESOURCES + 3, "history", purgeable) "::library:history.tcl";
|
|
sl@0
|
36 |
read 'TEXT' (TCL_LIBRARY_RESOURCES + 4, "word", purgeable,preload) "::library:word.tcl";
|
|
sl@0
|
37 |
read 'TEXT' (TCL_LIBRARY_RESOURCES + 5, "parray", purgeable,preload) "::library:parray.tcl";
|