[Squeak-Commits] squeak/platforms/RiscOS/plugins/FileCopyPlugin sqRPCFileCopy.c,1.1.1.1,1.2

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

Update of /cvsroot/squeak/squeak/platforms/RiscOS/plugins/FileCopyPlugin
In directory usw-pr-cvs1:/tmp/cvs-serv9597/platforms/RiscOS/plugins/FileCopyPlugin

Modified Files:
	sqRPCFileCopy.c 
Log Message:
updating includes to handle new OSLib release

Index: sqRPCFileCopy.c
===================================================================
RCS file: /cvsroot/squeak/squeak/platforms/RiscOS/plugins/FileCopyPlugin/sqRPCFileCopy.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sqRPCFileCopy.c	24 Oct 2001 23:14:01 -0000	1.1.1.1
--- sqRPCFileCopy.c	23 Apr 2002 22:08:47 -0000	1.2
***************
*** 7,16 ****
  /*  Copying files  via OS calls                                           */
  /**************************************************************************/
! #include "os.h"
! #include "osfile.h"
! #include "osfscontrol.h"
  #include "sq.h"
  
  #define MAXDIRNAMELENGTH 1024
  
  /*** Functions ***/
--- 7,31 ----
  /*  Copying files  via OS calls                                           */
  /**************************************************************************/
! #include "oslib/os.h"
! #include "oslib/osfile.h"
! #include "oslib/osfscontrol.h"
  #include "sq.h"
  
  #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,23 ****
--- 35,39 ----
  	char toname[MAXDIRNAMELENGTH];
  	osfscontrol_copy_flags flag = osfscontrol_COPY_FORCE;
+ 		FPRINTF((privateErr.errmess, "platcopy called\n"));
  
  	if( srcNameSize > MAXDIRNAMELENGTH) return false;
***************
*** 25,28 ****
--- 41,45 ----
  	if( dstNameSize > MAXDIRNAMELENGTH) return false;
  	sqFilenameFromString( toname, (int)dstName, dstNameSize);
+ 		FPRINTF((privateErr.errmess, "platcopy names ok\n"));
  
  	e = xosfscontrol_copy(
***************
*** 32,35 ****
--- 49,53 ----
  		(bits)0,(bits)0,(bits)0,(bits)0,(osfscontrol_descriptor *)0 );
  	if (e != NULL) return false;
+ 		FPRINTF((privateErr.errmess, "platcopy ok\n"));
  	return true;
  }