tclMacLibrary.r
上传用户:rrhhcc
上传日期:2015-12-11
资源大小:54129k
文件大小:6k
- /*
- * tclMacLibrary.r --
- *
- * This file creates resources used by the Tcl shared library.
- * Many thanks go to "Jay Lieske, Jr." <lieske@princeton.edu> who
- * wrote the initial version of this file.
- *
- * Copyright (c) 1996-1997 Sun Microsystems, Inc.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: tclMacLibrary.r,v 1.7 2002/09/12 17:33:20 das Exp $
- */
- #include <Types.r>
- #include <SysTypes.r>
- /*
- * The folowing include and defines help construct
- * the version string for Tcl.
- */
- #define RC_INVOKED
- #include "tcl.h"
- #if (TCL_RELEASE_LEVEL == 0)
- # define RELEASE_LEVEL alpha
- #elif (TCL_RELEASE_LEVEL == 1)
- # define RELEASE_LEVEL beta
- #elif (TCL_RELEASE_LEVEL == 2)
- # define RELEASE_LEVEL final
- #endif
- #if (TCL_RELEASE_LEVEL == 2)
- # define MINOR_VERSION (TCL_MINOR_VERSION * 16) + TCL_RELEASE_SERIAL
- # define RELEASE_CODE 0x00
- #else
- # define MINOR_VERSION TCL_MINOR_VERSION * 16
- # define RELEASE_CODE TCL_RELEASE_SERIAL
- #endif
- resource 'vers' (1) {
- TCL_MAJOR_VERSION, MINOR_VERSION,
- RELEASE_LEVEL, RELEASE_CODE, verUS,
- TCL_PATCH_LEVEL,
- TCL_PATCH_LEVEL ", by Ray Johnson & Jim Ingham" "n" "