[Squeak-Commits] squeak/platforms/RiscOS/plugins/FileCopyPlugin sqRPCFileCopy.c,1.3,1.4

[Tim R. <row...@us...>]

Update of /cvsroot/squeak/squeak/platforms/RiscOS/plugins/FileCopyPlugin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21838/plugins/FileCopyPlugin

Modified Files:
	sqRPCFileCopy.c 
Log Message:
Revise error handling by overriding printf & fprintf to write to !Reporter or a file as appropriate.
Add support of forceInterruptCheck()
Add support for swapping the left & right Ctrl keys with a command line option
Add input event code to replace polling
Add DeepKey usage for key input state accuracy
Add TimerMod for proper millisecond support
Many small celanups

Index: sqRPCFileCopy.c
===================================================================
RCS file: /cvsroot/squeak/squeak/platforms/RiscOS/plugins/FileCopyPlugin/sqRPCFileCopy.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** sqRPCFileCopy.c	9 May 2003 01:07:15 -0000	1.3
--- sqRPCFileCopy.c	19 May 2004 22:48:37 -0000	1.4
***************
*** 12,15 ****
--- 12,17 ----
  /* Castle/AcornC/C++, the Acorn TCPIPLib       */
  /* and a little luck                           */
+ /* debugging stuff; can probably be deleted */
+ //#define DEBUG
  #include "oslib/os.h"
  #include "oslib/osfile.h"
***************
*** 18,36 ****
  
  #define MAXDIRNAMELENGTH 1024
- /* debugging stuff; can probably be deleted */
- //#define DEBUG
  
! #ifdef DEBUG
! #define FPRINTF(s)\
! {\
! 	extern os_error privateErr;\
! 	extern void platReportError( os_error * e);\
! 	privateErr.errnum = (bits)0;\
! 	sprintf s;\
! 	platReportError((os_error *)&privateErr);\
! };
! #else
! # define FPRINTF(X)
! #endif
  
  /*** Functions ***/
--- 20,25 ----
  
  #define MAXDIRNAMELENGTH 1024
  
! 
  
  /*** Functions ***/
***************
*** 40,44 ****
  	char toname[MAXDIRNAMELENGTH];
  	osfscontrol_copy_flags flag = osfscontrol_COPY_FORCE;
! 		FPRINTF((privateErr.errmess, "platcopy called\n"));
  
  	if( srcNameSize > MAXDIRNAMELENGTH) return false;
--- 29,33 ----
  	char toname[MAXDIRNAMELENGTH];
  	osfscontrol_copy_flags flag = osfscontrol_COPY_FORCE;
! 		PRINTF(("\\t platcopy called\n"));
  
  	if( srcNameSize > MAXDIRNAMELENGTH) return false;
***************
*** 46,50 ****
  	if( dstNameSize > MAXDIRNAMELENGTH) return false;
  	sqFilenameFromString( toname, (int)dstName, dstNameSize);
! 		FPRINTF((privateErr.errmess, "platcopy names ok\n"));
  
  	e = xosfscontrol_copy(
--- 35,39 ----
  	if( dstNameSize > MAXDIRNAMELENGTH) return false;
  	sqFilenameFromString( toname, (int)dstName, dstNameSize);
! 		PRINTF(("\\t platcopy names ok\n"));
  
  	e = xosfscontrol_copy(
***************
*** 54,58 ****
  		(bits)0,(bits)0,(bits)0,(bits)0,(osfscontrol_descriptor *)0 );
  	if (e != NULL) return false;
! 		FPRINTF((privateErr.errmess, "platcopy ok\n"));
  	return true;
  }
--- 43,47 ----
  		(bits)0,(bits)0,(bits)0,(bits)0,(osfscontrol_descriptor *)0 );
  	if (e != NULL) return false;
! 		PRINTF(("\\t platcopy ok\n"));
  	return true;
  }