os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/mac/tclMacOSA.r
author sl@SLION-WIN7.fritz.box
Fri, 15 Jun 2012 03:10:57 +0200
changeset 0 bde4ae8d615e
permissions -rw-r--r--
First public contribution.
     1 /*
     2  * tkMacOSA.r --
     3  *
     4  *	This file creates resources used by the AppleScript package.
     5  *
     6  * Copyright (c) 1997 Sun Microsystems, Inc.
     7  *
     8  * See the file "license.terms" for information on usage and redistribution
     9  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    10  *
    11  * RCS: @(#) $Id: tclMacOSA.r,v 1.5 2001/12/27 22:46:24 das Exp $
    12  */
    13 
    14 #include <Types.r>
    15 #include <SysTypes.r>
    16 
    17 /*
    18  * The folowing include and defines help construct
    19  * the version string for Tcl.
    20  */
    21 
    22 #define SCRIPT_MAJOR_VERSION 1		/* Major number */
    23 #define SCRIPT_MINOR_VERSION  1		/* Minor number */
    24 #define SCRIPT_RELEASE_SERIAL  0	/* Really minor number! */
    25 #define RELEASE_LEVEL final		/* alpha, beta, or final */
    26 #define SCRIPT_VERSION "1.1"
    27 #define SCRIPT_PATCH_LEVEL "1.1.0"
    28 #define FINAL 1				/* Change to 1 if final version. */
    29 
    30 #if FINAL
    31 #   define MINOR_VERSION (SCRIPT_MINOR_VERSION * 16) + SCRIPT_RELEASE_SERIAL
    32 #   define RELEASE_CODE 0x00
    33 #else
    34 #   define MINOR_VERSION SCRIPT_MINOR_VERSION * 16
    35 #   define RELEASE_CODE SCRIPT_RELEASE_SERIAL
    36 #endif
    37 
    38 #define RELEASE_CODE 0x00
    39 
    40 resource 'vers' (1) {
    41 	SCRIPT_MAJOR_VERSION, MINOR_VERSION,
    42 	RELEASE_LEVEL, RELEASE_CODE, verUS,
    43 	SCRIPT_PATCH_LEVEL,
    44 	SCRIPT_PATCH_LEVEL ", by Jim Ingham © Cygnus Solutions" "\n" "© 2001 Tcl Core Team"
    45 };
    46 
    47 resource 'vers' (2) {
    48 	SCRIPT_MAJOR_VERSION, MINOR_VERSION,
    49 	RELEASE_LEVEL, RELEASE_CODE, verUS,
    50 	SCRIPT_PATCH_LEVEL,
    51 	"Tclapplescript " SCRIPT_PATCH_LEVEL " © 1996-2001"
    52 };
    53 
    54 /*
    55  * The -16397 string will be displayed by Finder when a user
    56  * tries to open the shared library. The string should
    57  * give the user a little detail about the library's capabilities
    58  * and enough information to install the library in the correct location.  
    59  * A similar string should be placed in all shared libraries.
    60  */
    61 resource 'STR ' (-16397, purgeable) {
    62 	"TclAppleScript Library\n\n"
    63 	"This library provides the ability to run AppleScript "
    64 	" commands from Tcl/Tk programs.  To work properly, it "
    65 	"should be placed in the ŒTool Command Languageč folder "
    66 	"within the Extensions folder."
    67 };
    68 
    69 
    70 /* 
    71  * We now load the Tk library into the resource fork of the library.
    72  */
    73 
    74 data 'TEXT' (4000,"pkgIndex",purgeable, preload) {
    75 	"# Tcl package index file, version 1.0\n"
    76 	"package ifneeded Tclapplescript 1.1 [list tclPkgSetup $dir Tclapplescript 1.1 {{Tclapplescript" 
    77 	".shlb load AppleScript}}]\n"
    78 };