[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/rez countResTypes,1.1.1.1,1.2 getNt

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9306

Modified Files:
	countResTypes getNthResType getNthResInfo getNamedResource 
	getResourceAttributes getStringResource putNamedResource 
	putStringResource resourceExists deleteNamedResource 
	setResourceAttributes deleteResource namedResourceExists 
	putResource getResource countResources getNthResource 
Log Message:
added support for get/put of resources from/to data fork of file on Mac OS

Index: putResource
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/putResource,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** putResource	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- putResource	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.putResource
  
! on putResource (path, type, id, adr) {
	kernel (rez.putresource)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.putResource
  
! on putResource (path, type, id, adr, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.putresource)}
\ No newline at end of file

Index: getNthResType
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/getNthResType,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** getNthResType	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- getNthResType	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getNthResType
  
! on getNthResType (path, n, adr) {
	kernel (rez.getnthrestype)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getNthResType
  
! on getNthResType (path, n, adr, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.getnthrestype)}
\ No newline at end of file

Index: setResourceAttributes
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/setResourceAttributes,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** setResourceAttributes	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- setResourceAttributes	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.setResourceAttributes
  
! on setResourceAttributes (path, resourcetype, id, attrs) {
	kernel (rez.setResourceAttributes)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.setResourceAttributes
  
! on setResourceAttributes (path, resourcetype, id, attrs, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.setResourceAttributes)}
\ No newline at end of file

Index: deleteNamedResource
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/deleteNamedResource,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** deleteNamedResource	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- deleteNamedResource	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.deleteNamedResource
  
! on deleteNamedResource (path, resourcetype, name) {
	kernel (rez.deletenamedresource)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.deleteNamedResource
  
! on deleteNamedResource (path, resourcetype, name, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.deletenamedresource)}
\ No newline at end of file

Index: getResourceAttributes
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/getResourceAttributes,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** getResourceAttributes	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- getResourceAttributes	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getResourceAttributes
  
! on getResourceAttributes (path, resourcetype, id) {
	kernel (rez.getResourceAttributes)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getResourceAttributes
  
! on getResourceAttributes (path, resourcetype, id, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.getResourceAttributes)}
\ No newline at end of file

Index: countResources
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/countResources,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** countResources	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- countResources	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.countResources
  
! on countResources (path, type) {
	kernel (rez.countresources)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.countResources
  
! on countResources (path, type, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.countresources)}
\ No newline at end of file

Index: countResTypes
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/countResTypes,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** countResTypes	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- countResTypes	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.countResTypes
  
! on countResTypes (path) {
	kernel (rez.countrestypes)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.countResTypes
  
! on countResTypes (path, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.countrestypes)}
\ No newline at end of file

Index: getNamedResource
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/getNamedResource,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** getNamedResource	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- getNamedResource	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getNamedResource
  
! on getNamedResource (path, resourcetype, name, adr) {
	kernel (rez.getnamedresource)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getNamedResource
  
! on getNamedResource (path, resourcetype, name, adr, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.getnamedresource)}
\ No newline at end of file

Index: getResource
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/getResource,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** getResource	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- getResource	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getResource
  
! on getResource (path, resourcetype, id, adr) {
	kernel (rez.getresource)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getResource
  
! on getResource (path, resourcetype, id, adr, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.getresource)}
\ No newline at end of file

Index: getNthResInfo
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/getNthResInfo,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** getNthResInfo	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- getNthResInfo	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getNthResInfo
  
! on getNthResInfo (path, type, n, adrid, adrname) {
	kernel (rez.getNthResInfo)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getNthResInfo
  
! on getNthResInfo (path, type, n, adrid, adrname, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.getNthResInfo)}
\ No newline at end of file

Index: getStringResource
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/getStringResource,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** getStringResource	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- getStringResource	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getStringResource
  
! on getStringResource (path, id, adr) {
	local (s);
	if not rez.getresource (path, 'STR ', id, @s) {
		return (false)};
	adr^ = string.mid (s, 2, short (string.nthChar (s, 1)));
	return (true)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getStringResource
  
! on getStringResource (path, id, adr, fork = 1) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	local (s);
	if not rez.getResource (path, 'STR ', id, @s, fork) {
		return (false)};
	adr^ = string.mid (s, 2, short (string.nthChar (s, 1)));
	return (true)}
\ No newline at end of file

Index: putStringResource
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/putStringResource,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** putStringResource	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- putStringResource	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.putStringResource
  
! on putStringResource (fname, id, s) {
	s = string (char (sizeof (s))) + s;
	return (rez.putresource (fname, 'STR ', id, @s))}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.putStringResource
  
! on putStringResource (fname, id, s, fork = 1) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	s = string (char (sizeof (s))) + s;
	return (rez.putResource (fname, 'STR ', id, @s, fork))}
\ No newline at end of file

Index: resourceExists
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/resourceExists,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** resourceExists	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- resourceExists	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.resourceExists
  
! on resourceExists (path, resourcetype, id) {
	kernel (rez.resourceexists)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.resourceExists
  
! on resourceExists (path, resourcetype, id, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.resourceexists)}
\ No newline at end of file

Index: deleteResource
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/deleteResource,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** deleteResource	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- deleteResource	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.deleteResource
  
! on deleteResource (path, resourcetype, id) {
	kernel (rez.deleteresource)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.deleteResource
  
! on deleteResource (path, resourcetype, id, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.deleteresource)}
\ No newline at end of file

Index: putNamedResource
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/putNamedResource,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** putNamedResource	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- putNamedResource	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.putNamedResource
  
! on putNamedResource (path, type, name, adr) {
	kernel (rez.putnamedresource)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.putNamedResource
  
! on putNamedResource (path, type, name, adr, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.putnamedresource)}
\ No newline at end of file

Index: getNthResource
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/getNthResource,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** getNthResource	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- getNthResource	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getNthResource
  
! on getNthResource (path, type, n, adrname, adrdata) {
	kernel (rez.getnthresource)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.getNthResource
  
! on getNthResource (path, type, n, adrname, adrdata, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.getnthresource)}
\ No newline at end of file

Index: namedResourceExists
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/rez/namedResourceExists,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** namedResourceExists	26 Mar 2005 19:43:26 -0000	1.1.1.1
--- namedResourceExists	7 Sep 2005 18:13:25 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.namedResourceExists
  
! on namedResourceExists (path, resourcetype, name) {
	kernel (rez.namedresourceexists)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.rez.namedResourceExists
  
! on namedResourceExists (path, resourcetype, name, fork) {
	ÇChanges
		Ç9/7/05; 10:08:43 AM by TAC
			Çadded fork parameter
	kernel (rez.namedresourceexists)}
\ No newline at end of file