tclresource-commits Mailing List for TclResource (Page 4)

Status: Beta

Brought to you by: bdesgraupes

tclresource-commits — TclResource CVS Commit Messages List

You can subscribe to this list here.

2003	_Jan	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov (3)	_Dec (7)
2004	_Jan (2)	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep (77)	_Oct	_Nov	_Dec
2006	_Jan (9)	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov	_Dec
2007	_Jan	_Feb	_Mar	_Apr	_May	_Jun	_Jul	_Aug (3)	_Sep	_Oct	_Nov	_Dec

Flat | Threaded

<< < 1 2 3 4 5 > >> (Page 4 of 5)

[Tclresource-commits] Extras/Tests ForkCmd.test,NONE,1.1

From: Bernard D. <bde...@us...> - 2004-09-06 07:02:26

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29405/Extras/Tests

Added Files:
	ForkCmd.test 
Log Message:
First checkin

--- NEW FILE: ForkCmd.test ---
# -------------------------------------------------------
# File: "ForkCmd.test"
#                        Created: 2004-09-05 20:16:33
#              Last modification: 2004-09-05 10:49:55
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright: Bernard Desgraupes, 2004
# All rights reserved.
# This software is free software with BSD licence.
# Versions history: see the Changes.Log file.
# 
# Test suite for the Tcl [resource fork] command defined 
# in the Tclresource extension.
# 
# $Date: 2004/09/06 07:02:04 $
# $Revision: 1.1 $
# -------------------------------------------------------

source [file join [file dir [info script]] common.tcl]

namespace eval ::resource::test {
	namespace import ::tcltest::*

	test ResourceFork-1-1 {Data fork} -setup {
		set rid [resource open $resfileDF]
	} -body {
		set res [resource fork $rid]
	} -cleanup {
		resource close $rid
	} -result datafork
		
	test ResourceFork-1-2 {Resource fork} -setup {
		set rid [resource open $resfileRF]
	} -body {
		set res [resource fork $rid]
	} -cleanup {
		resource close $rid
	} -result resourcefork
		
	test ResourceFork-1-3 {} -setup {
	} -body {
		set res [resource fork resource0]
	} -cleanup {
	} -returnCodes error -match glob \
	  -result "invalid resource file reference*"
	
		
	# Cleanup
	::tcltest::cleanupTests
}

namespace delete ::resource::test

[Tclresource-commits] Extras/Tests FilesCmd.test,NONE,1.1

From: Bernard D. <bde...@us...> - 2004-09-06 07:02:04

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29342/Extras/Tests

Added Files:
	FilesCmd.test 
Log Message:
First checkin

--- NEW FILE: FilesCmd.test ---
# -------------------------------------------------------
# File: "FilesCmd.test"
#                        Created: 2004-09-05 20:16:33
#              Last modification: 2004-09-06 06:50:46
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright: Bernard Desgraupes, 2004
# All rights reserved.
# This software is free software with BSD licence.
# Versions history: see the Changes.Log file.
# 
# Test suite for the Tcl [resource files] command defined 
# in the Tclresource extension.
# 
# $Date: 2004/09/06 07:01:55 $
# $Revision: 1.1 $
# -------------------------------------------------------

source [file join [file dir [info script]] common.tcl]

namespace eval ::resource::test {
	namespace import ::tcltest::*

	test ResourceFiles-1-1 {New ref at start of list} -setup {
		set rid [resource open $resfileDF]
	} -body {
		set ref [lindex [resource files] 0]
		set res [expr {$ref eq $rid}]
	} -cleanup {
		resource close $rid
	} -result 1
	
	test ResourceFiles-1-2 {Get path corresponding to ref} -setup {
	} -body {
		set rid [resource open $resfileDF]
		set path [resource files $rid]
		resource close $rid
		set path
	} -cleanup {
	} -result [set resfileDF]
		
# 	test ResourceFiles-1-3 {} -setup {
# 	} -body {} -cleanup {
# 	} -result ""
		
	# Cleanup
	::tcltest::cleanupTests
}

namespace delete ::resource::test

[Tclresource-commits] Extras/Tests DeleteCmd.test,NONE,1.1

From: Bernard D. <bde...@us...> - 2004-09-06 07:01:54

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29279/Extras/Tests

Added Files:
	DeleteCmd.test 
Log Message:
First checkin

--- NEW FILE: DeleteCmd.test ---
# -------------------------------------------------------
# File: "DeleteCmd.test"
#                        Created: 2004-09-05 20:16:33
#              Last modification: 2004-09-05 10:49:55
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright: Bernard Desgraupes, 2004
# All rights reserved.
# This software is free software with BSD licence.
# Versions history: see the Changes.Log file.
# 
# Test suite for the Tcl [resource delete] command defined 
# in the Tclresource extension.
# 
# $Date: 2004/09/06 07:01:45 $
# $Revision: 1.1 $
# -------------------------------------------------------

source [file join [file dir [info script]] common.tcl]

namespace eval ::resource::test {
	namespace import ::tcltest::*

	test ResourceDelete-1-1 {} -setup {
	} -body {
	} -cleanup {
	} -result ""
		
	test ResourceDelete-1-2 {} -setup {
	} -body {
	} -cleanup {
	} -result ""
		
	test ResourceDelete-1-3 {} -setup {
	} -body {
	} -cleanup {
	} -result ""
		
# Cleanup
::tcltest::cleanupTests
}

namespace delete ::resource::test

[Tclresource-commits] Extras/Tests common.tcl,NONE,1.1

From: Bernard D. <bde...@us...> - 2004-09-06 07:01:25

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29215/Extras/Tests

Added Files:
	common.tcl 
Log Message:
First checkin

--- NEW FILE: common.tcl ---
# -------------------------------------------------------
# File: "common.tcl"
#                        Created: 2004-09-05 07:54:17
#              Last modification: 2004-09-06 06:50:41
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http:#webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright : Bernard Desgraupes, 2003-2004
# All rights reserved.
# This software is free software with BSD licence.
# Versions history: see the Changes.Log file.
# 
# Test suite for the Tcl [resource] command defined 
# in the Tclresource extension.
# 
# $Date: 2004/09/06 07:01:15 $
# $Revision: 1.1 $
# -------------------------------------------------------

# Check that we are on OSX
if {$tcl_platform(platform) != "unix" || $tcl_platform(os) != "Darwin"} {
	puts stdout "The Tclresource extension is for the MacOSX platform only. Exiting now."
	exit
} 

package require Tcl 8.4

if {[lsearch [namespace children] ::tcltest] == -1} {
	package require tcltest 2.2
}

namespace eval ::resource::test {
	# Data fork
	variable resfileDF [file join [file dir [info script]] Forks TestResourcesDF.rsrc]
	# Resource fork
	variable resfileRF [file join [file dir [info script]] Forks TestResourcesRF.rsrc]
	# No fork
	variable resfileNF [file join [file dir [info script]] Forks TestResourcesNF.rsrc]
}

package require resource 1.1

# set resfileDF "/Volumes/hd3/Tcl/Tcl_Sources/Extensions/Tclresource/Tclresource/Extras/Tests/TestResourcesDF.rsrc"

[Tclresource-commits] Extras/Tests CloseCmd.test,NONE,1.1

From: Bernard D. <bde...@us...> - 2004-09-06 07:01:17

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29163/Extras/Tests

Added Files:
	CloseCmd.test 
Log Message:
First checkin

--- NEW FILE: CloseCmd.test ---
# -------------------------------------------------------
# File: "CloseCmd.test"
#                        Created: 2004-09-05 20:16:33
#              Last modification: 2004-09-05 10:49:55
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright: Bernard Desgraupes, 2004
# All rights reserved.
# This software is free software with BSD licence.
# Versions history: see the Changes.Log file.
# 
# Test suite for the Tcl [resource close] command defined 
# in the Tclresource extension.
# 
# $Date: 2004/09/06 07:01:06 $
# $Revision: 1.1 $
# -------------------------------------------------------

source [file join [file dir [info script]] common.tcl]

namespace eval ::resource::test {
	namespace import ::tcltest::*
	
	test ResourceClose-1-1 {Close a fork previously opened} -setup {
	} -body {
		set rid [resource open $resfileDF]
		resource close $rid
	} -cleanup {
	} -result ""
	
	test ResourceClose-1-2 {Closing self is forbidden} -setup {
	} -body {
		catch {resource close application} res
		set res
	} -cleanup {
	} -result "not allowed to close \"application\" resource file" 
	
	test ResourceClose-1-3 {Close a non existing fork is an error} -setup {
	} -body {	
		catch {resource close resource0} res
		set res
	} -cleanup {
	} -match glob -result "invalid resource file reference*"
	
	# Cleanup
	::tcltest::cleanupTests
}

namespace delete ::resource::test

[Tclresource-commits] Extras/Tests BuildTestFiles.tcl,NONE,1.1

From: Bernard D. <bde...@us...> - 2004-09-06 07:01:05

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29061/Extras/Tests

Added Files:
	BuildTestFiles.tcl 
Log Message:
First checkin

--- NEW FILE: BuildTestFiles.tcl ---
# -------------------------------------------------------
# File: "BuildTestsFiles.tcl"
#                        Created: 2004-09-05 07:54:17
#              Last modification: 2004-09-05 10:49:55
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright : Bernard Desgraupes, 2004
# All rights reserved.
# 
# $Date: 2004/09/06 07:00:55 $
# $Revision: 1.1 $
# -------------------------------------------------------

set cmdsList [list Attributes Close Delete Files Fork Id List Name \
  Open Read Types Update Write ]

set date [ISOTime::ISODateAndTimeRelaxed]

set testdir [file join [file dir [info script]] Tests]

set postamble "# Cleanup
::tcltest::cleanupTests
\}

namespace delete ::resource::test
"


foreach cmd $cmdsList {
	# Create the preamble
	set preamble "# -------------------------------------------------------
# File: \"${cmd}Cmd.test\"
#                        Created: $date
#              Last modification: 2004-09-05 10:49:55
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright: Bernard Desgraupes, 2004
# All rights reserved.
# This software is free software with BSD licence.
# Versions history: see the Changes.Log file.
# 
# Test suite for the Tcl \[resource [string tolower $cmd]\] command defined 
# in the Tclresource extension.
# 
# \$Date\$
# \$Revision\$
# -------------------------------------------------------

source \[file join \[file dir \[info script\]\] common.tcl\]

namespace eval ::resource::test \{
	namespace import ::tcltest::*
"
	# Create the file
	set fid [open [file join $testdir ${cmd}Cmd.test] w+]
	puts $fid $preamble
	for {set i 1} {$i <= 3} {incr i} {
		set txt "	test Resource$cmd-1-$i {} -setup {
	} -body {
	} -cleanup {
	} -result \"\"
		"
		puts $fid $txt
	}
	puts $fid $postamble
	close $fid
} 

unset -nocomplain cmdsList date testdir preamble postamble fid

[Tclresource-commits] Extras/Tests AttributesCmd.test,NONE,1.1

From: Bernard D. <bde...@us...> - 2004-09-06 07:00:51

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28999/Extras/Tests

Added Files:
	AttributesCmd.test 
Log Message:
First checkin

--- NEW FILE: AttributesCmd.test ---
# -------------------------------------------------------
# File: "AttributesCmd.test"
#                        Created: 2004-09-05 20:16:33
#              Last modification: 2004-09-05 10:49:55
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright: Bernard Desgraupes, 2004
# All rights reserved.
# This software is free software with BSD licence.
# Versions history: see the Changes.Log file.
# 
# Test suite for the Tcl [resource attributes] command defined 
# in the Tclresource extension.
# 
# $Date: 2004/09/06 07:00:42 $
# $Revision: 1.1 $
# -------------------------------------------------------

source [file join [file dir [info script]] common.tcl]

namespace eval ::resource::test {
	namespace import ::tcltest::*

	test ResourceAttributes-1-1 {} -setup {
	} -body {
	} -cleanup {
	} -result ""
		
	test ResourceAttributes-1-2 {} -setup {
	} -body {
	} -cleanup {
	} -result ""
		
	test ResourceAttributes-1-3 {} -setup {
	} -body {
	} -cleanup {
	} -result ""
		
# Cleanup
::tcltest::cleanupTests
}

namespace delete ::resource::test

[Tclresource-commits] Extras/Tests all.tcl,NONE,1.1

From: Bernard D. <bde...@us...> - 2004-09-06 07:00:43

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28918/Extras/Tests

Added Files:
	all.tcl 
Log Message:
First checkin

--- NEW FILE: all.tcl ---
# -------------------------------------------------------
# File: "all.tcl"
#                        Created: 2004-09-05 07:54:17
#              Last modification: 2004-09-06 08:11:15
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright: Bernard Desgraupes, 2004
# All rights reserved.
# This software is free software with BSD licence.
# Versions history: see the Changes.Log file.
# 
# Test suite for the Tcl [resource] command defined 
# in the Tclresource extension.
# 
# $Date: 2004/09/06 07:00:33 $
# $Revision: 1.1 $
# -------------------------------------------------------


source [file join [file dir [info script]] common.tcl]

puts stdout "Tcl $tcl_patchLevel tests running in interp: [info nameofexecutable]"

tcltest::configure -testdir [file dirname [file normalize [info script]]]

# Compatibility with the old tcltest package configuring from the command line
# arguments.
if {[info exists argv]} {
	eval tcltest::configure $argv
} 


# Skip and match variables
puts stdout "Tests running in working dir:  $::tcltest::testsDirectory"
if {[llength $::tcltest::skip] > 0} {
	puts stdout "Skipping tests that match:  $::tcltest::skip"
}
if {[llength $::tcltest::match] > 0} {
	puts stdout "Only running tests that match:  $::tcltest::match"
}

if {[llength $::tcltest::skipFiles] > 0} {
	puts stdout "Skipping test files that match:  $::tcltest::skipFiles"
}
if {[llength $::tcltest::matchFiles] > 0} {
	puts stdout "Only sourcing test files that match:  $::tcltest::matchFiles"
}

puts stdout "Starting tests [clock format [clock seconds]]"

# Now execute the tests suite
tcltest::runAllTests

# Cleanup
puts stdout "\nEnd of tests [clock format [clock seconds]]"
::tcltest::cleanupTests 1
exit

[Tclresource-commits] Extras/Tests - New directory

From: Bernard D. <bde...@us...> - 2004-09-06 06:57:16

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28291/Tests

Log Message:
Directory /cvsroot/tclresource/Extras/Tests added to the repository

[Tclresource-commits] Source tclResourceOSX.c,1.12,1.13

From: Bernard D. <bde...@us...> - 2004-09-06 05:08:23

Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12962/Source

Modified Files:
	tclResourceOSX.c 
Log Message:
Result in resultPtr (Fork command)

Index: tclResourceOSX.c
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResourceOSX.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- tclResourceOSX.c	4 Sep 2004 18:12:47 -0000	1.12
+++ tclResourceOSX.c	6 Sep 2004 05:08:10 -0000	1.13
@@ -951,17 +951,17 @@
 		Tcl_ResetResult(interp);
 		switch (resourceRef->fileFork) {
 		  case from_rezfork:
-		    Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "resourcefork", (char *) NULL);
+		    Tcl_AppendStringsToObj(resultPtr, "resourcefork", (char *) NULL);
 		    return TCL_OK;
 		    break;
 		
 		  case from_datafork:
-		    Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "datafork", (char *) NULL);
+		    Tcl_AppendStringsToObj(resultPtr, "datafork", (char *) NULL);
 		    return TCL_OK;
 		    break;
 		
 		  default:
-		    Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "unknown", (char *) NULL);
+		    Tcl_AppendStringsToObj(resultPtr, "unknown", (char *) NULL);
 		    return TCL_OK;
 		}
 	    } else {

[Tclresource-commits] Source tclResourceOSX.c,1.11,1.12

From: Bernard D. <bde...@us...> - 2004-09-04 18:12:56

Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22836/Source

Modified Files:
	tclResourceOSX.c 
Log Message:
Using Tcl_GetLongFromObj

Index: tclResourceOSX.c
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResourceOSX.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- tclResourceOSX.c	4 Sep 2004 16:47:21 -0000	1.11
+++ tclResourceOSX.c	4 Sep 2004 18:12:47 -0000	1.12
@@ -338,7 +338,8 @@
     Tcl_Obj *resultPtr)			/* Pointer to store the result. */
 {
     int index, result, gotInt, gotValue, length, newValue;
-    short rsrcId;
+	short	rsrcId;
+	long	theLong;
     short saveRef, theAttrs;
     char *resourceId = NULL;
     char buffer[16];
@@ -423,10 +424,11 @@
 
 	    switch (index) {
 		case RESOURCE_ATTRIBUTES_ID:		
-		    if (Tcl_GetIntFromObj(interp, objv[4], &rsrcId)
+		    if (Tcl_GetLongFromObj(interp, objv[4], &theLong)
 			    != TCL_OK) {
 			return TCL_ERROR;
 		    }
+			rsrcId = (short) theLong;
 		    gotInt = true;
 		    break;
 		case RESOURCE_ATTRIBUTES_NAME:		
@@ -637,6 +639,7 @@
     int i, limitSearch, length;
     short saveRef, resInfo;
     short fileRef, rsrcId;
+	long	theLong;
     char *resourceId = NULL;	
     OpenResourceFork *resourceRef;
     Handle resource = NULL;
@@ -670,10 +673,11 @@
 
 		switch (index) {
 		    case RESOURCE_DELETE_ID:		
-			if (Tcl_GetIntFromObj(interp, objv[i+1], &rsrcId)
+			if (Tcl_GetLongFromObj(interp, objv[i+1], &theLong)
 				!= TCL_OK) {
 			    return TCL_ERROR;
 			}
+			rsrcId = (short) theLong;
 			gotInt = true;
 			break;
 		    case RESOURCE_DELETE_NAME:		
@@ -1185,7 +1189,8 @@
     Tcl_Obj *CONST objv[],		/* Argument values. */
     Tcl_Obj *resultPtr)			/* Pointer to store the result. */
 {
-    short rsrcId;
+	short	rsrcId;
+	long	theLong;
     int length, releaseIt = 0;
     char *stringPtr;
     Handle resource = NULL;
@@ -1204,7 +1209,7 @@
 		return TCL_ERROR;
 	    }
 	    
-	    if (Tcl_GetIntFromObj(interp, objv[3], &rsrcId)
+	    if (Tcl_GetLongFromObj(interp, objv[3], &theLong)
 		    != TCL_OK) {
 		Tcl_AppendStringsToObj(resultPtr,
 			"wrong third argument: expected integer",
@@ -1212,6 +1217,7 @@
 		return TCL_ERROR;
             }
 
+		rsrcId = (short) theLong;
 	    stringPtr = Tcl_GetStringFromObj(objv[4], &length);
 	    resource = Tcl_MacFindResource(interp, rezType, NULL,
 		rsrcId, stringPtr, &releaseIt);
@@ -1597,8 +1603,8 @@
     Tcl_Obj *CONST objv[],		/* Argument values. */
     Tcl_Obj *resultPtr)			/* Pointer to store the result. */
 {
-    long size;
-	short rsrcId;
+	short	rsrcId;
+	long	theLong, size;
     int length, releaseIt = 0;
     char *stringPtr;
     char *resourceId = NULL;	
@@ -1615,10 +1621,12 @@
 		return TCL_ERROR;
 	    }
 	    
-	    if (Tcl_GetIntFromObj((Tcl_Interp *) NULL, objv[3], &rsrcId)
+	    if (Tcl_GetLongFromObj((Tcl_Interp *) NULL, objv[3], &theLong)
 		    != TCL_OK) {
 		resourceId = Tcl_GetStringFromObj(objv[3], &length);
-            }
+            } else {
+		rsrcId = (short) theLong;
+		}
 
 	    if (objc == 5) {
 		stringPtr = Tcl_GetStringFromObj(objv[4], &length);
@@ -1812,7 +1820,8 @@
 {
     int index, result, gotInt, releaseIt = 0, force;
     int i, limitSearch, length;
-    short rsrcId;
+	short	rsrcId;
+	long	theLong;
     short saveRef;
     char *stringPtr;
     char *resourceId = NULL;	
@@ -1855,10 +1864,11 @@
 		
 		switch (index) {
 			case RESOURCE_WRITE_ID:		
-			if (Tcl_GetIntFromObj(interp, objv[i+1], &rsrcId)
+			if (Tcl_GetLongFromObj(interp, objv[i+1], &theLong)
 				!= TCL_OK) {
 				return TCL_ERROR;
 			}
+			rsrcId = (short) theLong;
 			gotInt = true;
 			i += 2;
 			break;

[Tclresource-commits] Source tclResourceOSX.c,1.10,1.11

From: Bernard D. <bde...@us...> - 2004-09-04 16:47:30

Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6218/Source

Modified Files:
	tclResourceOSX.c 
Log Message:
resId's should always be short

Index: tclResourceOSX.c
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResourceOSX.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- tclResourceOSX.c	4 Sep 2004 16:29:03 -0000	1.10
+++ tclResourceOSX.c	4 Sep 2004 16:47:21 -0000	1.11
@@ -338,7 +338,7 @@
     Tcl_Obj *resultPtr)			/* Pointer to store the result. */
 {
     int index, result, gotInt, gotValue, length, newValue;
-    long rsrcId;
+    short rsrcId;
     short saveRef, theAttrs;
     char *resourceId = NULL;
     char buffer[16];
@@ -423,7 +423,7 @@
 
 	    switch (index) {
 		case RESOURCE_ATTRIBUTES_ID:		
-		    if (Tcl_GetLongFromObj(interp, objv[4], &rsrcId)
+		    if (Tcl_GetIntFromObj(interp, objv[4], &rsrcId)
 			    != TCL_OK) {
 			return TCL_ERROR;
 		    }
@@ -636,7 +636,7 @@
     int index, result, gotInt;
     int i, limitSearch, length;
     short saveRef, resInfo;
-    long fileRef, rsrcId;
+    short fileRef, rsrcId;
     char *resourceId = NULL;	
     OpenResourceFork *resourceRef;
     Handle resource = NULL;
@@ -670,7 +670,7 @@
 
 		switch (index) {
 		    case RESOURCE_DELETE_ID:		
-			if (Tcl_GetLongFromObj(interp, objv[i+1], &rsrcId)
+			if (Tcl_GetIntFromObj(interp, objv[i+1], &rsrcId)
 				!= TCL_OK) {
 			    return TCL_ERROR;
 			}
@@ -991,7 +991,7 @@
     Tcl_Obj *CONST objv[],		/* Argument values. */
     Tcl_Obj *resultPtr)			/* Pointer to store the result. */
 {
-    short rsrcId = 0;  /* A short, not a long. Reverse from ResourceNameObjCmd */
+    short rsrcId = 0;
     int length, releaseIt = 0;
     char *stringPtr;
     char *resourceId = NULL;	
@@ -1185,7 +1185,7 @@
     Tcl_Obj *CONST objv[],		/* Argument values. */
     Tcl_Obj *resultPtr)			/* Pointer to store the result. */
 {
-    long rsrcId;  /* A long, not a short. Reverse from ResourceIdObjCmd */
+    short rsrcId;
     int length, releaseIt = 0;
     char *stringPtr;
     Handle resource = NULL;
@@ -1204,7 +1204,7 @@
 		return TCL_ERROR;
 	    }
 	    
-	    if (Tcl_GetLongFromObj(interp, objv[3], &rsrcId)
+	    if (Tcl_GetIntFromObj(interp, objv[3], &rsrcId)
 		    != TCL_OK) {
 		Tcl_AppendStringsToObj(resultPtr,
 			"wrong third argument: expected integer",
@@ -1597,7 +1597,8 @@
     Tcl_Obj *CONST objv[],		/* Argument values. */
     Tcl_Obj *resultPtr)			/* Pointer to store the result. */
 {
-    long rsrcId, size;
+    long size;
+	short rsrcId;
     int length, releaseIt = 0;
     char *stringPtr;
     char *resourceId = NULL;	
@@ -1614,7 +1615,7 @@
 		return TCL_ERROR;
 	    }
 	    
-	    if (Tcl_GetLongFromObj((Tcl_Interp *) NULL, objv[3], &rsrcId)
+	    if (Tcl_GetIntFromObj((Tcl_Interp *) NULL, objv[3], &rsrcId)
 		    != TCL_OK) {
 		resourceId = Tcl_GetStringFromObj(objv[3], &length);
             }
@@ -1811,7 +1812,7 @@
 {
     int index, result, gotInt, releaseIt = 0, force;
     int i, limitSearch, length;
-    long rsrcId;
+    short rsrcId;
     short saveRef;
     char *stringPtr;
     char *resourceId = NULL;	
@@ -1854,7 +1855,7 @@
 		
 		switch (index) {
 			case RESOURCE_WRITE_ID:		
-			if (Tcl_GetLongFromObj(interp, objv[i+1], &rsrcId)
+			if (Tcl_GetIntFromObj(interp, objv[i+1], &rsrcId)
 				!= TCL_OK) {
 				return TCL_ERROR;
 			}
@@ -1936,7 +1937,7 @@
 		HLock(resource);
 		memcpy(*resource, stringPtr, length);
 		HUnlock(resource);
-		AddResource(resource, rezType, (short) rsrcId, (StringPtr) resourceId);
+		AddResource(resource, rezType, rsrcId, (StringPtr) resourceId);
 		releaseIt = 1;
 	} else {
 		/*

[Tclresource-commits] Source tclResourceOSX.c,1.9,1.10

From: Bernard D. <bde...@us...> - 2004-09-04 16:29:12

Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2788/Source

Modified Files:
	tclResourceOSX.c 
Log Message:
Fixed refnums stored in long instead of short

Index: tclResourceOSX.c
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResourceOSX.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- tclResourceOSX.c	3 Sep 2004 08:21:57 -0000	1.9
+++ tclResourceOSX.c	4 Sep 2004 16:29:03 -0000	1.10
@@ -13,7 +13,7 @@
  * With this extension, it is available with the following instruction:
  *         package require resource
  *         
- * (c) Copyright : Bernard Desgraupes, 2003
+ * (c) Copyright : Bernard Desgraupes, 2003-2004
  *         All rights reserved.
  * This software is free software with BSD licence.
  * Versions history: see the Changes.Log file.
@@ -449,7 +449,7 @@
             }
 	    
 	    saveRef = CurResFile();
-	    UseResFile((short) resourceRef->fileRef);
+	    UseResFile(resourceRef->fileRef);
 	    
 	    if (gotInt == true) {
 		// Don't load the resource in memory 
@@ -513,7 +513,7 @@
 		/* 
 		 * Setting the resource attributes
 		 */
-		theAttrs = GetResFileAttrs((short) resourceRef->fileRef);
+		theAttrs = GetResFileAttrs(resourceRef->fileRef);
 		if (theAttrs & mapReadOnly) {
 		    Tcl_AppendStringsToObj(resultPtr, 
 					   "cannot set the attributes, resource map is read only",
@@ -589,7 +589,7 @@
     Tcl_Obj *resultPtr)			/* Pointer to store the result. */
 {
     int length;
-    long fileRef;
+    short fileRef;
     char *stringPtr;
 
     if (objc != 3) {
@@ -600,7 +600,7 @@
     fileRef = TclMacUnRegisterResourceFork(stringPtr, resultPtr);
     
     if (fileRef >= 0) {
-	CloseResFile((short) fileRef);
+	CloseResFile(fileRef);
 	return TCL_OK;
     } else {
 	return TCL_ERROR;
@@ -1107,7 +1107,7 @@
 		}	
 
 		saveRef = CurResFile();
-		UseResFile((short) resourceRef->fileRef);
+		UseResFile(resourceRef->fileRef);
 		limitSearch = true;
 	    }
 
@@ -1267,7 +1267,7 @@
 {
     int index, length, mode;
     int fromFork, foundFork = from_unspecified, filenameIdx = 2;
-    long fileRef;
+    short refnum;
     char *stringPtr;
     SInt8 macPermision;
     CONST char *str;
@@ -1409,7 +1409,7 @@
      * If path was invalid, don't even bother trying to open a resource map
      */
     if (err == fnfErr) {
-		fileRef = -1;
+		refnum = -1;
 		goto openforkDone;
     }
 
@@ -1433,11 +1433,9 @@
 		/* 
 		 * Try to open the file as a datafork resource file
 		 */
-		short refnum;
 		SetResLoad(false); 
 		err = FSOpenResourceFile( &fileFSRef, 0, nil, macPermision, &refnum );
 		SetResLoad(true); 
-		fileRef = (long) refnum;
 		if (err == noErr) {
 			foundFork = from_datafork;
 			goto openforkDone;
@@ -1448,7 +1446,7 @@
 		 * Now try to open as a resourcefork resource file
 		 */
 		SetResLoad(false); 
-		fileRef = (long) FSpOpenResFile( &fileSpec, macPermision);
+		refnum = FSpOpenResFile( &fileSpec, macPermision);
 		SetResLoad(true); 
 		err = ResError();
 		if (err == noErr) {
@@ -1457,7 +1455,7 @@
     } 
 
     openforkDone:
-    if (fileRef == -1) {
+    if (refnum == -1) {
 		if (((err == fnfErr) || (err == eofErr)) &&
 			(macPermision == fsRdWrShPerm)) {
 			/*
@@ -1467,7 +1465,7 @@
 			switch (fromFork) {
 				case from_rezfork:
 				HCreateResFile(fileSpec.vRefNum, fileSpec.parID, fileSpec.name);
-				fileRef = (long) FSpOpenResFile(&fileSpec, macPermision);
+				refnum = FSpOpenResFile(&fileSpec, macPermision);
 				break;
 				
 				default: {
@@ -1512,11 +1510,11 @@
 
 					err = FSCreateResourceFile(&parentFSRef, numChars, uniString, kFSCatInfoNone, 
 									 NULL, 0, NULL, &fileFSRef, &fileSpec);
-					err = FSOpenResourceFile( &fileFSRef, 0, NULL, macPermision, &fileRef );
+					err = FSOpenResourceFile( &fileFSRef, 0, NULL, macPermision, &refnum );
 					break;
 				}
 			}
-			if (fileRef == -1) {
+			if (refnum == -1) {
 				goto openError;
 			} else {
 				foundFork = fromFork;
@@ -1561,13 +1559,13 @@
      */
     
     if (macPermision == fsRdPerm) {
-		SetResFileAttrs(fileRef, mapReadOnly);
+		SetResFileAttrs(refnum, mapReadOnly);
     }
     
     Tcl_SetStringObj(resultPtr, "", 0);
-    if (TclMacRegisterResourceFork(fileRef, resultPtr, foundFork,
+    if (TclMacRegisterResourceFork(refnum, resultPtr, foundFork,
 	    TCL_RESOURCE_CHECK_IF_OPEN) != TCL_OK) {
-		CloseResFile(fileRef);
+		CloseResFile(refnum);
 		return TCL_ERROR;
     }
     return TCL_OK;
@@ -1697,7 +1695,7 @@
 		}
 			
 		saveRef = CurResFile();
-		UseResFile((short) resourceRef->fileRef);
+		UseResFile(resourceRef->fileRef);
 		limitSearch = true;
 	    }
 
@@ -1898,7 +1896,7 @@
 	}
 	if (limitSearch) {
 		saveRef = CurResFile();
-		UseResFile((short) resourceRef->fileRef);
+		UseResFile(resourceRef->fileRef);
 	}
 	if (gotInt == false) {
 		if (limitSearch) {

[Tclresource-commits] Source tclResourceOSX.c,1.8,1.9

From: Bernard D. <bde...@us...> - 2004-09-03 08:22:19

Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6228/Source

Modified Files:
	tclResourceOSX.c 
Log Message:
bug 1020224 fixed. Minor quirks.

Index: tclResourceOSX.c
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResourceOSX.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- tclResourceOSX.c	11 Dec 2003 09:43:11 -0000	1.8
+++ tclResourceOSX.c	3 Sep 2004 08:21:57 -0000	1.9
@@ -234,7 +234,7 @@
 	    RESOURCE_READ, RESOURCE_TYPES, RESOURCE_UPDATE, RESOURCE_WRITE
     };
               
-    resultPtr = Tcl_GetObjResult(interp);
+	resultPtr = Tcl_NewObj();
     
     if (objc < 2) {
 	Tcl_WrongNumArgs(interp, 1, objv, "option ?arg ...?");
@@ -306,6 +306,8 @@
 	    panic("Tcl_GetIndexFromObj returned unrecognized option");
 	    return TCL_ERROR;	/* Should never be reached. */
     }
+	
+	Tcl_SetObjResult(interp, resultPtr);
     return result;
 }
 
@@ -1001,7 +1003,7 @@
 	    Tcl_ResetResult(interp);
 	    if (objc != 5) {
 		Tcl_WrongNumArgs(interp, 2, objv,
-			"resourceType resourceId resourceRef");
+			"resourceType resourceName resourceRef");
 		return TCL_ERROR;
 	    }
 
@@ -1154,7 +1156,7 @@
 		UseResFile(saveRef);
 	    }
 	
-	    return TCL_OK;
+	    return result;
 }
 
 
@@ -1267,7 +1269,7 @@
     int fromFork, foundFork = from_unspecified, filenameIdx = 2;
     long fileRef;
     char *stringPtr;
-    char macPermision;
+    SInt8 macPermision;
     CONST char *str;
 	char *native;
     FSSpec fileSpec;
@@ -1523,7 +1525,7 @@
 			Tcl_AppendStringsToObj(resultPtr,
 			"file does not exist", (char *) NULL);
 			return TCL_ERROR;
-		} else if (err == eofErr) {
+		} else if (err == eofErr || err == mapReadErr) {
 			switch (fromFork) {
 				case from_rezfork:
 				Tcl_AppendStringsToObj(resultPtr,

[Tclresource-commits] CVSROOT loginfo,1.6,1.7

From: <bde...@us...> - 2004-01-09 14:40:10

Update of /cvsroot/tclresource/CVSROOT
In directory sc8-pr-cvs1:/tmp/cvs-serv4320/CVSROOT

Modified Files:
	loginfo 
Log Message:
Not using commitlog

Index: loginfo
===================================================================
RCS file: /cvsroot/tclresource/CVSROOT/loginfo,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- loginfo	11 Dec 2003 09:26:23 -0000	1.6
+++ loginfo	9 Jan 2004 14:40:07 -0000	1.7
@@ -26,7 +26,7 @@
 #DEFAULT (echo ""; id; echo %{sVv}; date; cat) >> $CVSROOT/CVSROOT/commitlog
 
 # Write out in file "commitlog"
-ALL (echo ""; id; echo %{sVv}; date; cat) >> $CVSROOT/CVSROOT/commitlog
+# ALL (echo ""; id; echo %{sVv}; date; cat) >> $CVSROOT/CVSROOT/commitlog
 
 # CVSROOT /bin/mail -s "TclResource-cvs: %s modified" bde...@us... 2>&1 > /dev/null
 # DEFAULT /bin/mail -s "TclResource-cvs: %s modified" tcl...@li... 2>&1 > /dev/null

[Tclresource-commits] Help tclresource.n,NONE,1.1

From: <bde...@us...> - 2004-01-08 16:13:13

Update of /cvsroot/tclresource/Help
In directory sc8-pr-cvs1:/tmp/cvs-serv372/Help

Added Files:
	tclresource.n 
Log Message:
Man page. First checkin

--- NEW FILE: tclresource.n ---
.de uline
\Z'\\$1'\v'.25m'\D'l \w'\\$1'u 0'\v'-.25m'
..
.TH tclresource n "" "2004-01-08" "Extension for Tcl"
.\" :Title:			Resource Help
.\" :Project:		Tclresource extension for Tcl
.\" :Version:		$Revision 1.1 $
.\" :Author:		Bernard Desgraupes <bde...@ea...>
.\" :Homepage:		<http://webperso.easyconnect.fr/bdesgraupes/>
.\" :Created: 		2003-09-30 03:53:27
.\" :Modified:	 	2003-09-30 16:45:20
.\" :Keywords:		resource, forks 
.cs
\fBAbstract\fR
.ce
.RS
This is a manual page for the Tclresource extension for Tcl.
.RE
.RS -7
.RS 4
NAME
.RE 4
.RS 4
SYNOPSIS
.RE 4
.RS 4
INTRODUCTION
.RE 4
.RS 8
resource attributes resourceRef ?option resourceType? ?value?
.RE 8
.RS 12
resource attributes resourceRef
.RE 12
.RS 12
resource attributes resourceRef value
.RE 12
.RS 12
resource attributes resourceRef option resourceType
.RE 12
.RS 12
resource attributes resourceRef option resourceType value
.RE 12
.RS 8
resource close resourceRef
.RE 8
.RS 8
resource delete ?options? resourceType
.RE 8
.RS 8
resource fork resourceRef
.RE 8
.RS 8
resource files ?resourceRef?
.RE 8
.RS 8
resource id resourceType resourceName resourceRef
.RE 8
.RS 8
resource list ?-ids? resourceType ?resourceRef?
.RE 8
.RS 8
resource name resourceType resourceId resourceRef
.RE 8
.RS 8
resource open ?(-datafork|-resourcefork)? fileName ?access?
.RE 8
.RS 8
resource read resourceType resourceId ?resourceRef?
.RE 8
.RS 8
resource types ?resourceRef?
.RE 8
.RS 8
resource update resourceRef
.RE 8
.RS 8
resource write ?options? resourceType data
.RE 8
.RS 4
RESOURCE TYPES
.RE 4
.RS 4
RESOURCE IDS
.RE 4
.RS 4
RESOURCE ATTRIBUTES
.RE 4
.RS 4
PORTABILITY ISSUES
.RE 4
.RS 4
VERSION HISTORY
.RE 4
.RS 4
KNOW ISSUES
.RE 4
.RS 4
LICENSE AND DISCLAIMER
.RE 4
.RS 4
SOURCE CODE
.RE 4
.RS 4
SEE ALSO
.RE 4
.RS 4
KEYWORDS
.RE 4

.RE
.PP
\l'70\(ul'
.PP
.bp
.SH NAME
.PP
resource - Manipulate Macintosh resources 
.SH SYNOPSIS
.PP
.RS
.nf
.sp
 package require resource 1.1
 resource option ?arg arg ...?
.fi
.RE
.sp
.SH INTRODUCTION
.PP
The resource command provides some  generic  operations  for  dealing  with
Macintosh resources. This  command  is  only  supported  on  the  Macintosh
platform. Prior to system OSX, each Macintosh file consisted of two forks: a
data fork and a resource fork. Since the advent of system OSX, resources can
also be stored in the  data  fork  (this  is  the  recommended  format  for
portability reasons: resource forks tend to be otherwise deleted when copied
on another platform). You use the normal open, puts, close, etc. commands to
manipulate the data fork but you must use this command, however, to interact
with the resource map, even if it is stored in the data fork. In a resource
map, resources are categorized by type and, in each type, are designated by
an ID and possibly a name. See RESOURCE TYPES and RESOURCE  IDS  below  for
details. 
On OSX, the resource command is not a built-in command of Tcl anymore. It is
made available by this extension which much be explicitely  loaded  with  a
package require instruction like this:
.RS
.nf
.sp
 package require resource 1.1
.fi
.RE
.sp
Subcommand indicates what resource operation to perform. Any unique  abbreviation
for option is acceptable. The valid  options  are  explained  in  the  next
sections. 
.SH\s-1 resource attributes resourceRef ?option resourceType? ?value?\s+1
.PP
   This command is used to get or set the attributes of the resource map or
   the attributes of a particular resource in the resource map. It has four
   different syntaxes:
.SS resource attributes resourceRef
.PP
   To get the attributes of the resource map specified by  the  resourceRef
   argument. 
.SS resource attributes resourceRef value
.PP
   To give the value value to the attributes of the resource map  specified
   by the resourceRef argument.
.SS resource attributes resourceRef option resourceType
.PP
   To get the attributes of the resource specified by the  argument  option
   in the resource map designated by the resourceRef argument.  The  option
   can be one of:
.TP 10
\fB-id resourceId\fR
   If the -id option is given, the id resourceId (see RESOURCE  IDS  below)
   is used to specify the resource whose attributes must be returned or set.
   The id must be a number: to specify a name use the -name option.
.TP 10
\fB-name resourceName\fR
   If the -name option is specified, the  resource  named  resourceName  is
   used.
.SS resource attributes resourceRef option resourceType value
.PP
   To give the value value to the attributes of the resource  specified  by
   the argument option in the resource map designated  by  the  resourceRef
   argument. The resource can be specified using either the -id or the
   -name as indicated above.
   Note that the [resource attributes]  command  is  available  only  since
   version 1.1 of the Tclresource extension. See RESOURCE ATTRIBUTES  below
   for details about the possible values for attributes.
.SH\s-1 resource close resourceRef\s+1
.PP
   Closes the given  resource  reference  (obtained  from  resource  open).
   Resources from that resource file will no longer be available.
.SH\s-1 resource delete ?options? resourceType\s+1
.PP
   This command will delete the resource  specified  by  options  and  type
   resourceType (see RESOURCE TYPES below). The options  give  you  several
   ways to specify the resource to be deleted.
.TP 10
\fB-id resourceId\fR
   If the -id option is given the id resourceId (see RESOURCE IDS below) is
   used to specify the resource to be deleted. The id must be a number:  to
   specify a name use the -name option.
.TP 10
\fB-name resourceName\fR
   If -name is specified, the resource named resourceName will be  deleted.
   If the -id is also provided, then there must be a resource with BOTH this
   name and this id. If no name is provided,  then  the  id  will  be  used
   regardless of the name of the actual resource.
.TP 10
\fB-file resourceRef\fR
   If the -file option is specified then the resource will be deleted  from
   the file pointed to by resourceRef. Otherwise the first resource with the
   given resourceName and or resourceId which is found on the resource file
   path will be deleted. To inspect the file path, use the  resource  files
   command.
.SH\s-1 resource fork resourceRef\s+1
.PP
   Returns which fork (either data fork or resource  fork)  contains
   the resource map specified by the argument resourceRef. The return value
   will be datafork, resourcefork or unknown. The unknown value is returned
   for the resource maps listed by the command resource list which were not
   opened explicitely by a resource open command but were already in memory.
   Note that the [resource fork] command is available only since version 1.1
   of the Tclresource extension.
.SH\s-1 resource files ?resourceRef?\s+1
.PP
   If resourceRef is not provided, this command returns a Tcl  list  of  the
   resource references for all the currently open resource files. The  list
   is in the normal Macintosh search order for resources. If resourceRef is
   specified, the command will return the path to the file  whose  resource
   fork is represented by that token.
.SH\s-1 resource id resourceType resourceName resourceRef\s+1
.PP
   Returns the id of the resource of   type    resourceType    with    name
   resourceName in the resource map designated by the argument resourceRef.
   This is the reverse of command [resource name].
.SH\s-1 resource list ?-ids? resourceType ?resourceRef?\s+1
.PP
   List all of the resources ids of type resourceType (see  RESOURCE  TYPES
   below). If resourceRef is specified then  the  command  will  limit  the
   search to that particular resource file. Otherwise, all  resource  files
   currently opened by the application will be  searched.  A  Tcl  list  of
   either the resource name's or resource id's of the found resources  will
   be returned: each time the name of the resource is not empty, it is used
   preferably to the id, unless the -ids  option  has  been  specified,  in
   which case only id's are returned. See the RESOURCE IDS section below for
   more details about what a resource id is.
   Note that the -ids option is only available since  version  1.1  of  the
   Tclresource extension.
.SH\s-1 resource name resourceType resourceId resourceRef\s+1
.PP
   Returns the (possibly empty) name of the resource of  type  resourceType
   with ID resourceId in  the  resource  map  designated  by  the  argument
   resourceRef. This is the reverse of command [resource id].
.SH\s-1 resource open ?(-datafork|-resourcefork)? fileName ?access?\s+1
.PP
   Open the resource map for the file fileName. On OSX,  resources  can  be
   stored either in the resource fork of the file or in the data fork of the
   file. By default, resource open will try to find resources in  the  data
   fork of the file, then, if none is found, in  its  resource  fork.  This
   behavior can be modified with one  of  the  -datafork  or  -resourcefork
   switches which force the command to search only in the data fork or  the
   resource fork respectively. Standard file access permissions may also be
   specified with the access optional argument (see the  manual  entry  for
   open for details). A resource reference (resourceRef) is  returned  that
   can be used by the other resource  commands  to  refer  to  this  opened
   resource map.
   An error can occur if the file doesn't exist or the file does  not  have
   resources in the data or the resource fork. However, if you open the file
   with write permissions the file and/or resource  fork  will  be  created
   instead of generating an error: the -datafork or -resourcefork  switches
   let you specify which kind of resource file should be created (data fork
   resource file or resource fork resource file). If neither -datafork  nor 
   -resourcefork are specified, a data fork resource  file  is  created  by 
   default.
   Note that the -datafork and -resourcefork switches  are  only  available
   since version 1.1 of the Tclresource extension.
.SH\s-1 resource read resourceType resourceId ?resourceRef?\s+1
.PP
   Read the entire resource of type resourceType (see RESOURCE TYPES below)
   and the name or id of resourceId (see RESOURCE IDS below) into memory and
   return the result. If resourceRef is specified we limit  our  search  to
   that resource file, otherwise we search all open resource forks  in  the
   application. It is important to note that most Macintosh resource use  a
   binary format and the data returned from this command may have  embedded
   NULLs or other non-ASCII data.
.SH\s-1 resource types ?resourceRef?\s+1
.PP
   This command returns a Tcl list of  all  resource  types  (see  RESOURCE
   TYPES below) found in the resource file pointed to  by  resourceRef.  If
   resourceRef is not specified it will return all the resource types found
   in every resource file currently opened by the application.
.SH\s-1 resource update resourceRef\s+1
.PP
   This command updates the resource  map  designated  by  the  resourceRef
   argument. It performs three tasks:
.RS
.IP * 4
changing, adding, or removing resource data in the fork on disk to
      match the resource map in memory; 
.IP * 4
compacting the resource fork, closing up any empty space created when
      a resource was removed, made smaller, or made larger; 
.IP * 4
writing the resource map in memory to the resource fork. 
.RE
   Because the [resource close] command calls [resource update]  before  it
   closes the resource fork, you need to call it directly only if you  want
   to update the file without closing it.
   Note that the [resource update] command is available only since  version
   1.1 of the Tclresource extension.
.SH\s-1 resource write ?options? resourceType data\s+1
.PP
   This command will write the passed in data as a  new  resource  of  type
   resourceType (see RESOURCE TYPES below). Several options  are  available
   that describe where and how the resource is stored.
.TP 10
\fB-id resourceId\fR
   If the -id option is given the id resourceId (see RESOURCE IDS below) is
   used for the new resource, otherwise a unique id will be generated  that
   will not conflict with any existing resource. However, the id must be  a
   number: to specify a name use the -name option.
.TP 10
\fB-name resourceName\fR
   If -name is specified the resource will be named resourceName, otherwise
   it will have the empty string as the name.
.TP 10
\fB-file resourceRef\fR
   If the -file option is specified then the resource will  be  written  in
   the file pointed to by resourceRef, otherwise  the  most  recently  open
   resource will be used.
.TP 10
\fB-force\fR
   If the target resource already exists, then  by  default  Tcl  will  not
   overwrite it, but raise an error instead. Use the -force flag  to  force
   overwriting the existant resource.
.SH RESOURCE TYPES
.PP
Resource types are defined as a four character string that is then mapped to
an underlying id. For example, TEXT refers to the Macintosh  resource  type
for text. The type STR#  is  a  list  of  counted  strings.  All  Macintosh
resources must be of some type. See  Macintosh  documentation  for  a  more
complete list of resource types that are commonly used.
.SH RESOURCE IDS
.PP
For this command the notion of a resource id actually refers to two ideas in
Macintosh resources. Every place you can use a  resource  Id  you  can  use
either the resource name or a resource number. Names are always searched or
returned in preference to numbers. For example, the resource  list  command
will return names if they exist or numbers if the name is NULL.
.SH RESOURCE ATTRIBUTES
.PP
Resource maps and individual resources have attributes. The attributes  for
resource maps are:
.TS
center, box;
 l | l | l.
 mapChanged	32	Write map out at update 
 mapCompact	64	Compact resource file when writing to disk 
 mapReadOnly	128	Resource file is read-only 
.TE
The attributes are additional values.  To  set  both  the  mapReadOnly  and
mapChanged attributes for the resource map with reference resourceRef,  one
would write:
.RS
.nf
.sp
 resource attributes resourceRef 160
.fi
.RE
.sp
The allowable attributes for individual resources are: 
.TS
center, box;
 l | l | l.
 resChanged	2	Resource changed 
 resPreload	4	Load in on OpenResFile 
 resProtected	8	Protected 
 resLocked	16	Load it in locked 
 resPurgeable	32	Purgeable resource 
 resSysHeap	64	System or application heap 
.TE
.SH PORTABILITY ISSUES
.PP
The resource command is only available on Macintosh. On systems older  than
OSX, the resource command was built in Tcl but  it  was  removed  from  the
versions of Tcl compiled for OSX. It is now made available as an  extension
which should be loaded in the scripts with the following instruction:
.RS
.nf
.sp
 package require resource 1.1
.fi
.RE
.sp
Version 1.0 of the extension is simply a port to OSX of the old resource
command: it does not handle data fork resource files. Support for data fork
resource files is introduced in version 1.1. 
.SH VERSION HISTORY
.PP
.RS
.IP * 4
1.0 - 03/09/25 -  First release of the extension for OSX.
.IP * 4
1.1 - 03/10/05 -  Support for data fork resources, attributes, update, name. 
.RE
.SH KNOW ISSUES
.PP
The resource command has been ported to OSX as a Tcl extension by Bernard
Desgraupes. Please e-mail any bug or problem you encounter: 
<bde...@ea...>
((p Version 1.0 corresponds strictly to the code provided in the Tcl source code
(tclMacResource.c). Version 1.1 added several improvements: 
.RS
.IP * 4
possibility of opening and writing to datafork resource files as well 
  as resource fork resource files. 
.IP * 4
new subcommand [resource attributes] to get/set the attributes of a resource 
  map or an individual resource. 
.IP * 4
new subcommand [resource update] to update a resource map without closing it. 
.IP * 4
new subcommand [resource fork] to indicate which fork a resource map was opened from. 
.IP * 4
new subcommands [resource name] and [resource id] returning the name of a resource 
given its ID, and vice versa. 
.IP * 4
new -ids option for the [resource list] command 
.RE
The Tclresource folder (Tclresource1.0, Tclresource1.1  etc)  contains
the extension compiled as a dynamic library. For the Tcl interpreter to
find it  automatically,  it  should  be  located  on  your  system  in
/Library/Tcl/ (administrator password required) or  in  your  personal
folder ~/Library/Tcl/.
.SH LICENSE AND DISCLAIMER
.PP
This software is free software and distributed under the same licensing terms 
as the Tcl language itself. See license.terms in the Tcl distribution.
The original code of the resource command has the following copyright.
.RS
.nf
.sp
 Copyright © 1997 Sun Microsystems, Inc.
 Copyright © 1995-1997 Roger E. Critchlow Jr.
.fi
.RE
.sp
For the Tclresource extension:
.RS
.nf
.sp
 Copyright ©  2003 Bernard Desgraupes
.fi
.RE
.sp
.SH SOURCE CODE
.PP
Tclresource is an Open Source Project. Its source code is public and can 
be found on the SourceForge site at the following address:
<http://sourceforge.net/projects/tclresource>
((p Tclresource binary releases are available at
<http://sourceforge.net/project/showfiles.php?group_id=93101> or on my web 
page at <http://webperso.easyconnect.fr/bdesgraupes/tcl.html>
((p The code is under CVS control. You can retrieve the latest stage of 
development using any CVS client. See instructions at:
<http://sourceforge.net/cvs/?group_id=93101>
((p You can browse the cvs repository online at
<http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/tclresource> 
.SH SEE ALSO
.PP
open 
.SH KEYWORDS
.PP
open(n), resource(n)

[Tclresource-commits] Source tclResource_CarbonMachO.pch,1.1.1.1,1.2

From: <bde...@us...> - 2003-12-11 09:53:26

Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1:/tmp/cvs-serv26725/Source

Modified Files:
	tclResource_CarbonMachO.pch 
Log Message:
Modifs for CC compiler

Index: tclResource_CarbonMachO.pch
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResource_CarbonMachO.pch,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- tclResource_CarbonMachO.pch	24 Oct 2003 07:40:05 -0000	1.1.1.1
+++ tclResource_CarbonMachO.pch	11 Dec 2003 09:53:23 -0000	1.2
@@ -1 +1,82 @@
-// File: "tclResource_CarbonMachO.pch"
//                        Created: 2003-09-22 10:47:15
//              Last modification: 2003-10-23 21:52:00
// Author: Bernard Desgraupes
// Description: Use this header to include the precompiled headers
// on OSX for dylib target built with CW Pro 8


#define TARGET_API_MAC_CARBON	1
#define TARGET_API_MAC_OSX		1
#define TCLRESOURCE_OSX			1
#define TCLRESOURCE_CARBON		1

#define TCLRESOURCE_USE_FRAMEWORK_INCLUDES

// The following macro characterizes this target
#define TCLRESOURCE_MW_MACHO

// Stubs mechanism enabled
#define USE_TCL_STUBS


#if TARGET_API_MAC_CARBON
	// Carbon
#if TARGET_API_MAC_OSX
	// Carbon on X
	#pragma precompile_target "MW_tclResourceHeaderCarbonX"
#else
	// CarbonLib on Classic
	#pragma precompile_target "MW_tclResourceHeaderCarbon"
#endif
#else
	// Classic
	#pragma precompile_target "MW_tclResourceHeaderPPC"
#endif


#include <Carbon/Carbon.h>

#ifndef TCLRESOURCE_MW_MACHO
struct SFReply {};
#else
struct SFReply {char dummy;};
#endif

typedef struct SFReply SFReply;
typedef struct SFReply StandardFileReply;


#if TARGET_RT_MAC_MACHO
#ifdef MAC_TCL
#undef MAC_TCL
#endif
#define TCLRESOURCE_MACHO 1
#endif


#ifdef TCLRESOURCE_MACHO
#define TCLRESOURCE_PATH_SEP '/'
#else
#define TCLRESOURCE_PATH_SEP ':'
#endif


#ifdef TCLRESOURCE_USE_FRAMEWORK_INCLUDES
#include	<Tcl/tcl.h>
#else
#include	<tcl.h>
#endif


#ifndef CONST84 // Tcl 8.4 backwards compatibility
#      define CONST84 
#      define CONST84_RETURN CONST
#endif

#include "tclResource_version.h"
\ No newline at end of file
+// File: "tclResource_CarbonMachO.pch"
+//                        Created: 2003-09-22 10:47:15
+//              Last modification: 2003-12-11 10:50:04
+// Author: Bernard Desgraupes
+// Description: Use this header to include the precompiled header
+
+
+#define TARGET_API_MAC_CARBON	1
+#define TARGET_API_MAC_OSX		1
+#define TCLRESOURCE_OSX			1
+#define TCLRESOURCE_CARBON		1
+
+#define TCLRESOURCE_USE_FRAMEWORK_INCLUDES
+
+// The following macro characterizes this target
+#ifndef __APPLE_CC__
+#define TCLRESOURCE_MW_MACHO
+#endif
+
+// Stubs mechanism enabled
+#define USE_TCL_STUBS
+
+
+#ifndef __APPLE_CC__
+#if TARGET_API_MAC_CARBON
+	// Carbon
+#if TARGET_API_MAC_OSX
+	// Carbon on X
+	#pragma precompile_target "MW_tclResourceHeaderCarbonX"
+#else
+	// CarbonLib on Classic
+	#pragma precompile_target "MW_tclResourceHeaderCarbon"
+#endif
+#else
+	// Classic
+	#pragma precompile_target "MW_tclResourceHeaderPPC"
+#endif
+#endif
+
+
+#include <Carbon/Carbon.h>
+
+#ifndef TARGET_RT_MAC_MACHO
+struct SFReply {};
+#else
+struct SFReply {char dummy;};
+#endif
+
+typedef struct SFReply SFReply;
+typedef struct SFReply StandardFileReply;
+
+
+#if TARGET_RT_MAC_MACHO
+#ifdef MAC_TCL
+#undef MAC_TCL
+#endif
+#define TCLRESOURCE_MACHO 1
+#endif
+
+
+#ifdef TCLRESOURCE_MACHO
+#define TCLRESOURCE_PATH_SEP '/'
+#else
+#define TCLRESOURCE_PATH_SEP ':'
+#endif
+
+
+#ifdef TCLRESOURCE_USE_FRAMEWORK_INCLUDES
+#include	<Tcl/tcl.h>
+#include	<Tcl/tclInt.h>
+#else
+#include	<tcl.h>
+#include	<tclInt.h>
+#endif
+
+
+#ifndef CONST84 // Tcl 8.4 backwards compatibility
+#      define CONST84 
+#      define CONST84_RETURN CONST
+#endif
+
+#include "tclResource_version.h"

[Tclresource-commits] Source/tclResource.pbproj project.pbxproj,NONE,1.1

From: <bde...@us...> - 2003-12-11 09:45:02

Update of /cvsroot/tclresource/Source/tclResource.pbproj
In directory sc8-pr-cvs1:/tmp/cvs-serv25253/Source/tclResource.pbproj

Added Files:
	project.pbxproj 
Log Message:
First checkin

--- NEW FILE: project.pbxproj ---
// !$*UTF8*$!
{
	archiveVersion = 1;
	classes = {
	};
	objectVersion = 38;
	objects = {
		034768DDFF38A45A11DB9C8B = {
			children = (
				F550918E036C35030130931B,
			);
			isa = PBXGroup;
			name = Products;
			path = "";
			refType = 4;
		};
//030
//031
//032
//033
//034
//080
//081
//082
//083
//084
		0867D690FE84028FC02AAC07 = {
			buildStyles = (
				4F0BB7EC011F40E904CA0E50,
				4F0BB7ED011F40E904CA0E50,
			);
			hasScannedForEncodings = 1;
			isa = PBXProject;
			mainGroup = 0867D691FE84028FC02AAC07;
			productRefGroup = 034768DDFF38A45A11DB9C8B;
			projectDirPath = "";
			targets = (
				F550918D036C35030130931B,
			);
		};
		0867D691FE84028FC02AAC07 = {
			children = (
				08FB77ACFE841707C02AAC07,
				F959A7C7056355AE006F5A0B,
				089C1665FE841158C02AAC07,
				0867D69AFE84028FC02AAC07,
				034768DDFF38A45A11DB9C8B,
			);
			isa = PBXGroup;
			refType = 4;
		};
		0867D69AFE84028FC02AAC07 = {
			children = (
				08FB77AAFE841565C02AAC07,
				F5A272820377DE8D01FEA954,
				F94429230420B8C2006F146B,
			);
			isa = PBXGroup;
			name = "External Frameworks and Libraries";
			refType = 4;
		};
		089C1665FE841158C02AAC07 = {
			children = (
				F94429120420B651006F146B,
			);
			isa = PBXGroup;
			name = Resources;
			refType = 4;
		};
		08FB77AAFE841565C02AAC07 = {
			isa = PBXFrameworkReference;
			name = Carbon.framework;
			path = /System/Library/Frameworks/Carbon.framework;
			refType = 0;
		};
		08FB77ACFE841707C02AAC07 = {
			children = (
				F959A7C5056355A0006F5A0B,
			);
			isa = PBXGroup;
			name = Source;
			refType = 4;
		};
//080
//081
//082
//083
//084
//4F0
//4F1
//4F2
//4F3
//4F4
		4F0BB7EC011F40E904CA0E50 = {
			buildRules = (
			);
			buildSettings = {
				TEMP_DIR = "${OBJROOT}/Development.build/$(PROJECT_NAME).build/$(TARGET_NAME).build";
				UNSTRIPPED_PRODUCT = YES;
			};
			isa = PBXBuildStyle;
			name = Development;
		};
		4F0BB7ED011F40E904CA0E50 = {
			buildRules = (
			);
			buildSettings = {
				DEBUGGING_SYMBOLS = NO;
				OPTIMIZATION_CFLAGS = "-Os -mcpu=750";
				TEMP_DIR = "${OBJROOT}/Deployment.build/$(PROJECT_NAME).build/$(TARGET_NAME).build";
			};
			isa = PBXBuildStyle;
			name = Deployment;
		};
//4F0
//4F1
//4F2
//4F3
//4F4
//F50
//F51
//F52
//F53
//F54
		F550918A036C35030130931B = {
			buildActionMask = 2147483647;
			files = (
				F959A7C6056355A0006F5A0B,
				F959A7DE05635A54006F5A0B,
				F959A96B05635DC2006F5A0B,
			);
			isa = PBXSourcesBuildPhase;
			runOnlyForDeploymentPostprocessing = 0;
		};
		F550918B036C35030130931B = {
			buildActionMask = 2147483647;
			files = (
				F5509190036C35B40130931B,
				F5A272830377DE8E01FEA954,
			);
			isa = PBXFrameworksBuildPhase;
			runOnlyForDeploymentPostprocessing = 0;
		};
		F550918D036C35030130931B = {
			buildPhases = (
				F96B6BDA0420C120006F146B,
				F550918A036C35030130931B,
				F550918B036C35030130931B,
				F96B6BDB0420C430006F146B,
			);
			buildSettings = {
				CC = "gcc-3.3";
				CPLUSPLUS = "g++-3.3";
				DYLIB_COMPATIBILITY_VERSION = 1.0;
				DYLIB_CURRENT_VERSION = 1.1;
				DYLIB_INSTALLED_NAME = "resource${DYLIB_CURRENT_VERSION}.dylib";
				EXPORTED_SYMBOLS_FILE = tclResource_OSX.exp;
				FRAMEWORK_SEARCH_PATHS = "";
				GCC_VERSION = 3.x;
				GLOBAL_CFLAGS = "-include tclResource_CarbonMachO.pch";
				HEADER_SEARCH_PATHS = "";
				INSTALL_PATH = "/Library/Tcl/Tclresource${DYLIB_CURRENT_VERSION}";
				LIBRARY_SEARCH_PATHS = /Library/Frameworks/Tcl.framework;
				LIBRARY_STYLE = DYNAMIC;
				OPTIMIZATION_CFLAGS = "-O0";
				OTHER_CFLAGS = "";
				OTHER_LDFLAGS = "";
				OTHER_LIBTOOL_FLAGS = "";
				OTHER_REZFLAGS = "";
				PRECOMPILE_PREFIX_HEADER = NO;
				PREFIX_HEADER = "";
				PRODUCT_NAME = resource1.1.dylib;
				SECTORDER_FLAGS = "";
				USE_GCC3_PFE_SUPPORT = YES;
				WARNING_CFLAGS = "-Wmost -Wno-four-char-constants -Wno-unknown-pragmas";
			};
			dependencies = (
			);
			isa = PBXLibraryTarget;
			name = tclResource;
			productInstallPath = "/Library/Tcl/TclSpeech${DYLIB_COMPATIBILITY_VERSION}";
			productName = "TclSpeech dylib";
			productReference = F550918E036C35030130931B;
		};
		F550918E036C35030130931B = {
			isa = PBXLibraryReference;
			path = resource1.1.dylib;
			refType = 3;
		};
		F5509190036C35B40130931B = {
			fileRef = 08FB77AAFE841565C02AAC07;
			isa = PBXBuildFile;
			settings = {
			};
		};
		F5A272820377DE8D01FEA954 = {
			isa = PBXFileReference;
			name = libtclstub8.4.a;
			path = /Library/Frameworks/Tcl.framework/libtclstub8.4.a;
			refType = 0;
		};
		F5A272830377DE8E01FEA954 = {
			fileRef = F5A272820377DE8D01FEA954;
			isa = PBXBuildFile;
			settings = {
			};
		};
//F50
//F51
//F52
//F53
//F54
//F90
//F91
//F92
//F93
//F94
		F94429120420B651006F146B = {
			isa = PBXFileReference;
			path = pkgIndex.tcl;
			refType = 4;
		};
		F94429230420B8C2006F146B = {
			isa = PBXFrameworkReference;
			name = Tcl.framework;
			path = /Library/Frameworks/Tcl.framework;
			refType = 0;
		};
		F959A7C5056355A0006F5A0B = {
			fileEncoding = 30;
			isa = PBXFileReference;
			path = tclResourceOSX.c;
			refType = 4;
		};
		F959A7C6056355A0006F5A0B = {
			fileRef = F959A7C5056355A0006F5A0B;
			isa = PBXBuildFile;
			settings = {
			};
		};
		F959A7C7056355AE006F5A0B = {
			children = (
				F959A7C8056355CB006F5A0B,
				F959A7C9056355CB006F5A0B,
				F959A7CA056355CB006F5A0B,
				F959A7CB056355CB006F5A0B,
				F959A96A05635DC2006F5A0B,
			);
			isa = PBXGroup;
			name = Headers;
			path = "";
			refType = 4;
		};
		F959A7C8056355CB006F5A0B = {
			isa = PBXFileReference;
			path = tclResource_CarbonMachO.pch;
			refType = 4;
		};
		F959A7C9056355CB006F5A0B = {
			fileEncoding = 30;
			isa = PBXFileReference;
			path = tclResource_CarbonXMachO.h;
			refType = 4;
		};
		F959A7CA056355CB006F5A0B = {
			fileEncoding = 30;
			isa = PBXFileReference;
			path = tclResource_Headers.h;
			refType = 4;
		};
		F959A7CB056355CB006F5A0B = {
			fileEncoding = 30;
			isa = PBXFileReference;
			path = tclResource_version.h;
			refType = 4;
		};
		F959A7DE05635A54006F5A0B = {
			fileRef = F959A7CB056355CB006F5A0B;
			isa = PBXBuildFile;
			settings = {
			};
		};
		F959A96A05635DC2006F5A0B = {
			fileEncoding = 30;
			isa = PBXFileReference;
			path = tclResource_OSX.exp;
			refType = 4;
		};
		F959A96B05635DC2006F5A0B = {
			fileRef = F959A96A05635DC2006F5A0B;
			isa = PBXBuildFile;
			settings = {
			};
		};
		F96B6BDA0420C120006F146B = {
			buildActionMask = 8;
			files = (
			);
			generatedFileNames = (
			);
			isa = PBXShellScriptBuildPhase;
			neededFileNames = (
			);
			runOnlyForDeploymentPostprocessing = 1;
			shellPath = /bin/sh;
			shellScript = "# ensure we can overwrite a previous install\nif [ -d \"${INSTALL_ROOT}${INSTALL_PATH}\" ]; then\n    chmod -RH u+w \"${INSTALL_ROOT}${INSTALL_PATH}\"\nfi";
		};
		F96B6BDB0420C430006F146B = {
			buildActionMask = 2147483647;
			files = (
			);
			generatedFileNames = (
			);
			isa = PBXShellScriptBuildPhase;
			neededFileNames = (
			);
			runOnlyForDeploymentPostprocessing = 0;
			shellPath = /bin/sh;
			shellScript = "/usr/bin/install -m 444 -g staff \"${SRCROOT}/pkgIndex.tcl\" \"${TARGET_BUILD_DIR}\"";
		};
	};
	rootObject = 0867D690FE84028FC02AAC07;
}

[Tclresource-commits] Source/tclResource.pbproj - New directory

From: <bde...@us...> - 2003-12-11 09:43:39

Update of /cvsroot/tclresource/Source/tclResource.pbproj
In directory sc8-pr-cvs1:/tmp/cvs-serv25076/tclResource.pbproj

Log Message:
Directory /cvsroot/tclresource/Source/tclResource.pbproj added to the repository

[Tclresource-commits] Source tclResource_OSX.exp,1.1.1.1,1.2

From: <bde...@us...> - 2003-12-11 09:43:27

Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1:/tmp/cvs-serv25034/Source

Modified Files:
	tclResource_OSX.exp 
Log Message:
No comment !

Index: tclResource_OSX.exp
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResource_OSX.exp,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- tclResource_OSX.exp	24 Oct 2003 07:40:06 -0000	1.1.1.1
+++ tclResource_OSX.exp	11 Dec 2003 09:43:24 -0000	1.2
@@ -1 +1 @@
-_Resource_Init		# Resource_Init
+_Resource_Init

[Tclresource-commits] Source tclResourceOSX.c,1.7,1.8

From: <bde...@us...> - 2003-12-11 09:43:14

Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1:/tmp/cvs-serv24982/Source

Modified Files:
	tclResourceOSX.c 
Log Message:
Uncommented unused args

Index: tclResourceOSX.c
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResourceOSX.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- tclResourceOSX.c	29 Nov 2003 13:13:07 -0000	1.7
+++ tclResourceOSX.c	11 Dec 2003 09:43:11 -0000	1.8
@@ -329,7 +329,7 @@
 
 int
 Tcl_ResourceAttributesObjCmd(
-    ClientData /* clientData */,	/* Not used. */
+    ClientData clientData,	/* Not used. */
     Tcl_Interp *interp,			/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */
@@ -580,7 +580,7 @@
 
 int
 Tcl_ResourceCloseObjCmd(
-    ClientData /* clientData */,	/* Not used. */
+    ClientData clientData,	/* Not used. */
     Tcl_Interp *interp,			/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */
@@ -625,7 +625,7 @@
 
 int
 Tcl_ResourceDeleteObjCmd(
-    ClientData /* clientData */,	/* Not used. */
+    ClientData clientData,	/* Not used. */
     Tcl_Interp *interp,			/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */
@@ -842,8 +842,8 @@
 
 int
 Tcl_ResourceFilesObjCmd(
-    ClientData /* clientData */,	/* Not used. */
-    Tcl_Interp */* interp */,		/* Current interpreter. */
+    ClientData clientData,	/* Not used. */
+    Tcl_Interp * interp,		/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */
     Tcl_Obj *resultPtr)			/* Pointer to store the result. */
@@ -926,7 +926,7 @@
 
 int
 Tcl_ResourceForkObjCmd(
-    ClientData /* clientData */,	/* Not used. */
+    ClientData clientData,	/* Not used. */
     Tcl_Interp *interp,			/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */
@@ -983,7 +983,7 @@
 
 int
 Tcl_ResourceIdObjCmd(
-    ClientData /* clientData */,	/* Not used. */
+    ClientData clientData,	/* Not used. */
     Tcl_Interp *interp,			/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */
@@ -1064,7 +1064,7 @@
 			
 int
 Tcl_ResourceListObjCmd(
-    ClientData /* clientData */,	/* Not used. */
+    ClientData clientData,	/* Not used. */
     Tcl_Interp *interp,			/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */
@@ -1177,7 +1177,7 @@
 
 int
 Tcl_ResourceNameObjCmd(
-    ClientData /* clientData */,	/* Not used. */
+    ClientData clientData,	/* Not used. */
     Tcl_Interp *interp,			/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */
@@ -1257,7 +1257,7 @@
 
 int
 Tcl_ResourceOpenObjCmd(
-    ClientData /* clientData */,	/* Not used. */
+    ClientData clientData,	/* Not used. */
     Tcl_Interp *interp,			/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */
@@ -1591,7 +1591,7 @@
 
 int
 Tcl_ResourceReadObjCmd(
-    ClientData /* clientData */,	/* Not used. */
+    ClientData clientData,	/* Not used. */
     Tcl_Interp *interp,			/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */
@@ -1667,7 +1667,7 @@
 
 int
 Tcl_ResourceTypesObjCmd(
-    ClientData /* clientData */,	/* Not used. */
+    ClientData clientData,	/* Not used. */
     Tcl_Interp *interp,			/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */
@@ -1745,7 +1745,7 @@
 
 int
 Tcl_ResourceUpdateObjCmd(
-    ClientData /* clientData */,	/* Not used. */
+    ClientData clientData,	/* Not used. */
     Tcl_Interp *interp,			/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */
@@ -1803,7 +1803,7 @@
 
 int
 Tcl_ResourceWriteObjCmd(
-    ClientData /* clientData */,	/* Not used. */
+    ClientData clientData,	/* Not used. */
     Tcl_Interp *interp,			/* Current interpreter. */
     int objc,				/* Number of arguments. */
     Tcl_Obj *CONST objv[],		/* Argument values. */

[Tclresource-commits] CVSROOT config,1.3,1.4

From: <bde...@us...> - 2003-12-11 09:27:30

Update of /cvsroot/tclresource/CVSROOT
In directory sc8-pr-cvs1:/tmp/cvs-serv22325/CVSROOT

Modified Files:
	config 
Log Message:
cederqvist comment

Index: config
===================================================================
RCS file: /cvsroot/tclresource/CVSROOT/config,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- config	14 Nov 2003 19:00:39 -0000	1.3
+++ config	11 Dec 2003 09:27:27 -0000	1.4
@@ -9,7 +9,17 @@
 # command.
 TopLevelAdmin=no
 
-# Set `LogHistory' to `all' or `TOFEWGCMAR' to log all transactions to the
-# history file, or a subset as needed (ie `TMAR' logs all write operations)
+# Set `LogHistory' to `TOFEWGCMAR' (or `all' which is synonym) to log all 
+# transactions to the history file, or a subset as needed 
+# (ie `TMAR' logs all write operations)
+
+# cederqvist-1.11.7.html explanation:
+# -----------------------------------
+# Control what is logged to the `CVSROOT/history' file (see section
+# history--Show status of files and users).  Default of `TOEFWUPCGMAR' (or
+# simply `all') will log all transactions.  Any subset of the default is
+# legal.  (For example, to only log transactions that modify the `*,v' files,
+# use `LogHistory=TMAR'.)
+
 #LogHistory=TOFEWGCMAR
 LogHistory=all

[Tclresource-commits] CVSROOT checkoutlist,1.2,1.3

From: <bde...@us...> - 2003-12-11 09:26:45

Update of /cvsroot/tclresource/CVSROOT
In directory sc8-pr-cvs1:/tmp/cvs-serv22154/CVSROOT

Modified Files:
	checkoutlist 
Log Message:
Added commitlog

Index: checkoutlist
===================================================================
RCS file: /cvsroot/tclresource/CVSROOT/checkoutlist,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- checkoutlist	12 Nov 2003 18:20:02 -0000	1.2
+++ checkoutlist	11 Dec 2003 09:26:37 -0000	1.3
@@ -11,4 +11,5 @@
 #	[<whitespace>]<filename><whitespace><error message><end-of-line>
 #
 # comment lines begin with '#'
-cvsignore
\ No newline at end of file
+cvsignore
+commitlog

[Tclresource-commits] Source tclResourceOSX.c,1.6,1.7

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;

[Tclresource-commits] Source tclResource_version.h,1.2,1.3

From: <bde...@us...> - 2003-11-29 13:12:37

Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1:/tmp/cvs-serv15256/Source

Modified Files:
	tclResource_version.h 
Log Message:
Modified version numbering scheme

Index: tclResource_version.h
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResource_version.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- tclResource_version.h	24 Oct 2003 17:34:41 -0000	1.2
+++ tclResource_version.h	29 Nov 2003 13:12:34 -0000	1.3
@@ -1,33 +1,14 @@
 // File: "tclResource_CarbonXMachO.h"
 //                        Created: 2003-09-24 07:28:22
-//              Last modification: 2003-09-24 07:28:26
+//              Last modification: 2003-11-29 14:10:48
 // Author: Bernard Desgraupes
-// Description: Use this header on OSX for dylib target built with CW Pro 8
+// Description: version numbering for Tclresource
 
 #define TCLRESOURCE_MAJOR 	1
 #define TCLRESOURCE_MINOR	1
 #define TCLRESOURCE_SUBMINOR	3
-#define TCLRESOURCE_STAGE 	betaStage
-// developStage, alphaStage, betaStage, finalStage
-
-#if	(TCLRESOURCE_STAGE == developStage)
-#		define	TCLRESOURCE_STAGE_CODE	'd'
-#elif	(TCLRESOURCE_STAGE == alphaStage)
-#		define	TCLRESOURCE_STAGE_CODE	'a'
-#elif	(TCLRESOURCE_STAGE == betaStage)
-#	 	define	TCLRESOURCE_STAGE_CODE	'b'
-#elif	(TCLRESOURCE_STAGE == finalStage)
-#	 	define	TCLRESOURCE_STAGE_CODE	'f'
-#endif
-
-#define	TCLRESOURCE_MAJOR_BCD	((TCLRESOURCE_MAJOR / 10) * 16) + (TCLRESOURCE_MAJOR % 10)
-#define	TCLRESOURCE_MINOR_BCD	(TCLRESOURCE_MINOR * 16) + TCLRESOURCE_SUBMINOR
-
-/* 
- * #define    TCLRESOURCE_VERSION_STRING    \
- *             $$Format("%d.%d.%c%d", TCLRESOURCE_MAJOR, TCLRESOURCE_MINOR, TCLRESOURCE_SUBMINOR,\
- *                         TCLRESOURCE_STAGE_CODE)
- */
-
-
-#define TCLRESOURCE_VERSION_STRING "1.1b3"
+#define TCLRESOURCE_STAGE 	'b'
+				// 'd' for developStage
+				// 'a' for alphaStage
+				// 'b' for betaStage
+				// 'f' for finalStage

Flat | Threaded

<< < 1 2 3 4 5 > >> (Page 4 of 5)

2003	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov (3)	Dec (7)
2004	Jan (2)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep (77)	Oct	Nov	Dec
2006	Jan (9)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2007	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug (3)	Sep	Oct	Nov	Dec