SF.net SVN: frontierkernel: [1437] Frontier/branches/FSRef_Migration/Common/source/shellsysverbs.c

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

Revision: 1437
Author:   creecode
Date:     2006-06-28 13:27:13 -0700 (Wed, 28 Jun 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1437&view=rev

Log Message:
-----------
in sysfunctionvalue function, case getapppathfunc, use getfilespecparent

Modified Paths:
--------------
    Frontier/branches/FSRef_Migration/Common/source/shellsysverbs.c
Modified: Frontier/branches/FSRef_Migration/Common/source/shellsysverbs.c
===================================================================
--- Frontier/branches/FSRef_Migration/Common/source/shellsysverbs.c	2006-06-28 20:20:37 UTC (rev 1436)
+++ Frontier/branches/FSRef_Migration/Common/source/shellsysverbs.c	2006-06-28 20:27:13 UTC (rev 1437)
@@ -387,7 +387,7 @@
 static boolean sysfunctionvalue (short token, hdltreenode hparam1, tyvaluerecord *vreturned, bigstring bserror) {
 	
 	//
-	// 2006-06-18 creedon: for Mac, FSRef-ized
+	// 2006-06-28 creedon: for Mac, FSRef-ized
 	//
 	// 5.0b16 dmb: undo that change. it affect performance adversely if many threads do it.
 	//
@@ -541,15 +541,15 @@
 			
 			flnextparamislast = true;
 			
-			if (!getstringvalue (hparam1, 1, bs))
-				return (false);
+			if ( ! getstringvalue ( hparam1, 1, bs ) )
+				return ( false );
 			
-			if (!getapplicationfilespec (bs, &fs)) // 2006-02-17 aradke: initializes fs even if it fails
+			if ( ! getapplicationfilespec ( bs, &fs ) ) // 2006-02-17 aradke: initializes fs even if it fails
 				setemptystring (bs);
 			
-			( void ) extendfilespec ( &fs, &fs );
+			( void ) getfilespecparent ( &fs );
 				
-			return (setfilespecvalue (&fs, v));
+			return ( setfilespecvalue ( &fs, v ) );
 			}
 		
 		case memavailfunc:


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