[Tclresource-commits] Source tclResourceOSX.c,1.6,1.7
Status: Beta
Brought to you by:
bdesgraupes
|
From: <bde...@us...> - 2003-11-29 13:13:10
|
Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1:/tmp/cvs-serv15322/Source
Modified Files:
tclResourceOSX.c
Log Message:
Version numbering built in the code
Index: tclResourceOSX.c
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResourceOSX.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- tclResourceOSX.c 27 Nov 2003 18:37:47 -0000 1.6
+++ tclResourceOSX.c 29 Nov 2003 13:13:07 -0000 1.7
@@ -173,6 +173,8 @@
*/
int Resource_Init(Tcl_Interp *interp) {
+ char vstr[64];
+
#ifdef USE_TCL_STUBS
if (Tcl_InitStubs(interp, "8.1", 0) == NULL) {
return TCL_ERROR;
@@ -183,8 +185,11 @@
Tcl_CreateObjCommand(interp, "resource", Tcl_ResourceObjCmd,
(ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+ sprintf(vstr,"%d.%d%c%d\0", TCLRESOURCE_MAJOR, TCLRESOURCE_MINOR,
+ TCLRESOURCE_STAGE, TCLRESOURCE_SUBMINOR);
+
/* Declare the tclResource package. */
- if (Tcl_PkgProvide(interp, "resource", TCLRESOURCE_VERSION_STRING) != TCL_OK) {
+ if (Tcl_PkgProvide(interp, "resource", vstr) != TCL_OK) {
return TCL_ERROR;
}
return TCL_OK;
|