SF.net SVN: frontierkernel: [1580] Frontier/trunk/Common/source/fileverbs.c

[<cre...@us...>]

Revision: 1580
          http://svn.sourceforge.net/frontierkernel/?rev=1580&view=rev
Author:   creecode
Date:     2006-10-25 18:57:26 -0700 (Wed, 25 Oct 2006)

Log Message:
-----------
for Mac,in filefunctionvalue, extend filespec for fs2 in case filemovefunc

Modified Paths:
--------------
    Frontier/trunk/Common/source/fileverbs.c

Modified: Frontier/trunk/Common/source/fileverbs.c
===================================================================
--- Frontier/trunk/Common/source/fileverbs.c	2006-10-26 01:35:44 UTC (rev 1579)
+++ Frontier/trunk/Common/source/fileverbs.c	2006-10-26 01:57:26 UTC (rev 1580)
@@ -2988,6 +2988,8 @@
 	// if we return false, we try to provide a descriptive error message in the 
 	// returned string bserror.
 	//
+	// 2006-10-23 creedon: for Mac, extend filespec for fs2 in case filemovefunc
+	//
 	// 2006-06-25 creedon: FSRef-ized
 	//
 	// 2006-04-11 aradke: added readwholefilefunc
@@ -3418,10 +3420,10 @@
 			return ( filedeleteverb ( hp1, v ) );
 		
 		case fileexistsfunc: {
-			boolean fl;
+		
+			boolean fl, flfolder;
 			tyfilespec fs;
-			boolean flfolder;
-			
+
 			if (!langcheckparamcount (hp1, 1))
 				break;
 			
@@ -3560,24 +3562,27 @@
 			}
 		
 		case filemovefunc: {
+		
 			tyfilespec fs1, fs2;
 			
-			if (!getpathvalue (hp1, 1, &fs1)) /*bs1 holds the path*/
+			if ( ! getpathvalue ( hp1, 1, &fs1 ) ) // bs1 holds the path
 				break;
 			
 			flnextparamislast = true;
 			
-			if (!getpathvalue (hp1, 2, &fs2)) /*bs2 holds the new name*/
+			if ( ! getpathvalue ( hp1, 2, &fs2 ) ) // bs2 holds the new name
 				break;
 			
 			( void ) extendfilespec ( &fs1, &fs1 );
+			( void ) extendfilespec ( &fs2, &fs2 );
 			
-			if (!movefile (&fs1, &fs2))
+			if ( ! movefile ( &fs1, &fs2 ) )
 				break;
 			
-			(*v).data.flvalue = true;
+			( *v ).data.flvalue = true;
 			
-			return (true);
+			return ( true );
+			
 			}
 		
 		/*


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.