tcl/mac/tclMacApplication.r

   1 /*
   2  * tclMacApplication.r --
   3  *
   4  *      This file creates resources for use Tcl Shell application.
   5  *      It should be viewed as an example of how to create a new
   6  *      Tcl application using the shared Tcl libraries.
   7  *
   8  * Copyright (c) 1996-1997 Sun Microsystems, Inc.
   9  *
  10  * See the file "license.terms" for information on usage and redistribution
  11  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12  *
  13  * RCS: @(#) $Id$
  14  */
  15
  16 #include <Types.r>
  17 #include <SysTypes.r>
  18
  19 /*
  20  * The folowing include and defines help construct
  21  * the version string for Tcl.
  22  */
  23
  24 #define RC_INVOKED
  25 #include "tcl.h"
  26
  27 #if (TCL_RELEASE_LEVEL == 0)
  28 #   define RELEASE_LEVEL alpha
  29 #elif (TCL_RELEASE_LEVEL == 1)
  30 #   define RELEASE_LEVEL beta
  31 #elif (TCL_RELEASE_LEVEL == 2)
  32 #   define RELEASE_LEVEL final
  33 #endif
  34
  35 #if (TCL_RELEASE_LEVEL == 2)
  36 #   define MINOR_VERSION (TCL_MINOR_VERSION * 16) + TCL_RELEASE_SERIAL
  37 #   define RELEASE_CODE 0x00
  38 #else
  39 #   define MINOR_VERSION TCL_MINOR_VERSION * 16
  40 #   define RELEASE_CODE TCL_RELEASE_SERIAL
  41 #endif
  42
  43 resource 'vers' (1) {
  44         TCL_MAJOR_VERSION, MINOR_VERSION,
  45         RELEASE_LEVEL, RELEASE_CODE, verUS,
  46         TCL_PATCH_LEVEL,
  47         TCL_PATCH_LEVEL ", by Ray Johnson & Jim Ingham" "\n" "© 2001 Tcl Core Team"
  48 };
  49
  50 resource 'vers' (2) {
  51         TCL_MAJOR_VERSION, MINOR_VERSION,
  52         RELEASE_LEVEL, RELEASE_CODE, verUS,
  53         TCL_PATCH_LEVEL,
  54         "Tcl Shell " TCL_PATCH_LEVEL " © 1993-2001"
  55 };
  56
  57 #define TCL_APP_CREATOR 'Tcl '
  58
  59 type TCL_APP_CREATOR as 'STR ';
  60 resource TCL_APP_CREATOR (0, purgeable) {
  61         "Tcl Shell " TCL_PATCH_LEVEL " © 1993-2001"
  62 };
  63
  64 /*
  65  * The 'kind' resource works with a 'BNDL' in Macintosh Easy Open
  66  * to affect the text the Finder displays in the "kind" column and
  67  * file info dialog.  This information will be applied to all files
  68  * with the listed creator and type.
  69  */
  70
  71 resource 'kind' (128, "Tcl kind", purgeable) {
  72         TCL_APP_CREATOR,
  73         0, /* region = USA */
  74         {
  75                 'APPL', "Tcl Shell",
  76         }
  77 };
  78
  79 /*
  80  * The following resource is used when creating the 'env' variable in
  81  * the Macintosh environment.  The creation mechanisim looks for the
  82  * 'STR#' resource named "Tcl Environment Variables" rather than a
  83  * specific resource number.  (In other words, feel free to change the
  84  * resource id if it conflicts with your application.)  Each string in
  85  * the resource must be of the form "KEYWORD=SOME STRING".  See Tcl
  86  * documentation for futher information about the env variable.
  87  *
  88  * A good example of something you may want to set is: "TCL_LIBRARY=My
  89  * disk:etc."
  90  */
  91
  92 resource 'STR#' (128, "Tcl Environment Variables") {
  93         {
  94                 /*
  95                 "SCHEDULE_NAME=Agent Controller Schedule",
  96                 "SCHEDULE_PATH=Lozoya:System Folder:Tcl Lib:Tcl-Scheduler"
  97                 */
  98         };
  99 };
 100
 101 data 'alis' (1000, "Library Folder") {
 102         $"0000 0000 00BA 0002 0001 012F 0000 0000"            /* .....\86...../.... */
 103         $"0000 0000 0000 0000 0000 0000 0000 0000"            /* ................ */
 104         $"0000 0000 0000 985C FB00 4244 0000 0000"            /* ......ò\\9a.BD.... */
 105         $"0002 1328 5375 7070 6F72 7420 4C69 6272"            /* ...(Support Libr */
 106         $"6172 6965 7329 0000 0000 0000 0000 0000"            /* aries).......... */
 107         $"0000 0000 0000 0000 0000 0000 0000 0000"            /* ................ */
 108         $"0000 0000 0000 0000 0000 0000 0000 0000"            /* ................ */
 109         $"0000 0076 8504 B617 A796 003D 0027 025B"            /* ...vÖ.\8f.ßñ.=.'.[ */
 110         $"01E4 0001 0001 0000 0000 0000 0000 0000"            /* .\94.............. */
 111         $"0000 0000 0000 0000 0001 2F00 0002 0015"            /* ........../..... */
 112         $"2F3A 2853 7570 706F 7274 204C 6962 7261"            /* /:(Support Libra */
 113         $"7269 6573 2900 FFFF 0000"                           /* ries).\9d\9d.. */
 114 };
 115