[frontierkernel-commits] odbs/mainResponderRoot/mainResponder callbackLoop,1.1.1.1,1.2,

[creecode <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30122

Modified Files:
	callbackLoop 
Log Message:
minor script formatting tweaks

if the value of adScript is of type string, coerce to address, allows for partial addresses

Index: callbackLoop
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/callbackLoop,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** callbackLoop	26 Mar 2005 21:45:04 -0000	1.1.1.1
--- callbackLoop	1 Mar 2006 09:03:42 -0000	1.2
***************
*** 1,3 ****
! FrontierVcsFile:1:scpt:mainResponder.callbackLoop
  
! on callbackLoop (adrcallbacktable, adrparamtable) {
	Ç7/5/99; 1:34:45 PM by DW
		ÇIf the table isn't defined, do nothing.
		ÇIgnore objects that aren't scripts. (This should cut down on the number of "item #1" errors that come when people leave callback tables open.)
	if defined (adrcallbacktable^) {
		local (i);
		for i = 1 to sizeof (adrcallbacktable^) {
			local (adrscript = @adrcallbacktable^ [i]);
			while typeof (adrscript^) == addresstype {
				adrscript = adrscript^};
			if typeof (adrscript^) == scriptType {
				callScript (adrscript, {}, adrparamtable)}}}} //scriptError to kill request
\ No newline at end of file
--- 1,25 ----
! FrontierVcsFile:2:scpt:mainResponder.callbackLoop
  
! on callbackLoop (adrCallbackTable, adrParamTable) {
! 	«Changes
! 		«2/28/06; 4:52:27 PM by TAC
! 			«minor script formatting tweaks
! 			«if the value of adScript is of type string, coerce to address, allows for partial addresses
! 		«7/5/99; 1:34:45 PM by DW
! 			«If the table isn't defined, do nothing.
! 			«Ignore objects that aren't scripts. (This should cut down on the number of "item #1" errors that come when people leave callback tables open.)
! 	
! 	if defined (adrCallbackTable^) {
! 		local (i);
! 		
! 		for i = 1 to sizeof (adrCallbackTable^) {
! 			local (adrScript = @adrCallbackTable^ [i]);
! 			
! 			if typeOf (adrScript^) == stringType {
! 				adrScript = address (adrScript^)};
! 			
! 			while typeOf (adrScript^) == addressType {
! 				adrScript = adrScript^};
! 			
! 			if typeOf (adrScript^) == scriptType {
! 				callScript (adrScript, {}, adrParamTable)}}}} //scriptError to kill request
\ No newline at end of file