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

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

Revision: 1410
Author:   creecode
Date:     2006-06-23 18:43:34 -0700 (Fri, 23 Jun 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1410&view=rev

Log Message:
-----------
FSRef-ized

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-24 01:39:56 UTC (rev 1409)
+++ Frontier/branches/FSRef_Migration/Common/source/shellsysverbs.c	2006-06-24 01:43:34 UTC (rev 1410)
@@ -28,7 +28,7 @@
 #include "frontier.h"
 #include "standard.h"
 
-#ifdef MACVERSION 
+#ifdef MACVERSION
 #include <land.h>
 #define wsprintf sprintf
 #endif
@@ -386,21 +386,22 @@
 
 static boolean sysfunctionvalue (short token, hdltreenode hparam1, tyvaluerecord *vreturned, bigstring bserror) {
 	
-	/*
-	2/12/92 dmb: do partialeventloop on systemtask & bringapptofrontfunc
+	//
+	// 2006-06-18 creedon: for Mac, FSRef-ized
+	//
+	// 5.0b16 dmb: undo that change. it affect performance adversely if many threads do it.
+	//
+	// 5.0b12 dmb: in systemtaskfunc, set flresting to false to make sure we don't slow down too much
+	//
+	// 1/18/93 dmb: in systemtaskfunc, don't call processyield directly; use langbackgroundtask
+	//
+	// 8/11/92 dmb: make apprunningfunc accept a string or an ostype
+	//
+	// 5/20/92 dmb: do processyield directly on systemtaskfunc
+	//
+	// 2/12/92 dmb: do partialeventloop on systemtask & bringapptofrontfunc
+	//
 	
-	5/20/92 dmb: do processyield directly on systemtaskfunc
-	
-	8/11/92 dmb: make apprunningfunc accept a string or an ostype
-	
-	1/18/93 dmb: in systemtaskfunc, don't call processyield directly; use langbackgroundtask
-
-	5.0b12 dmb: in systemtaskfunc, set flresting to false to make sure we don't slow
-	down too much
-	
-	5.0b16 dmb: undo that change. it affect performance adversely if many threads do it.
-	*/
-	
 	register tyvaluerecord *v = vreturned;
 	
 	setbooleanvalue (false, v); /*assume the worst*/
@@ -437,12 +438,19 @@
 			return (true);
 		
 		case browsenetworkfunc:
+		
 			#ifdef MACVERSION
+			
 				return (langipcbrowsenetwork (hparam1, v));
+				
 			#endif
+			
 			#ifdef WIN95VERSION
-			#pragma message ("WIN95: browsenetworkfunc - not yet implemented!")
+			
+				#pragma message ("WIN95: browsenetworkfunc - not yet implemented!")
+			
 				break;
+				
 			#endif
 
 		case apprunningfunc: {
@@ -536,9 +544,11 @@
 			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 );
+				
 			return (setfilespecvalue (&fs, v));
 			}
 		
@@ -904,6 +914,7 @@
 				return (false);
 			
 			return (setfilespecvalue (&programfspec, v));
+			
 			}
 		
 		case filepathfunc: {
@@ -1642,7 +1653,7 @@
 
 
 boolean sysinitverbs (void) {
-	
+
 	getapplicationfilespec (nil, &programfspec);
 	
 	launchcallbacks.waitcallback = &shellsysverbwaitroutine;
@@ -1663,8 +1674,6 @@
 		return (false);
 	
 	return (true);
-	} /*sysinitverbs*/
+	
+	} // sysinitverbs
 
-
-
-


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