SF.net SVN: frontierkernel: [1476] Frontier/branches/FSRef_Migration/Common/source

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

Revision: 1476
Author:   creecode
Date:     2006-07-30 10:46:37 -0700 (Sun, 30 Jul 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1476&view=rev

Log Message:
-----------
minor formatting tweaks

Modified Paths:
--------------
    Frontier/branches/FSRef_Migration/Common/headers/file.h
    Frontier/branches/FSRef_Migration/Common/source/file.c
    Frontier/branches/FSRef_Migration/Common/source/fileops.c
    Frontier/branches/FSRef_Migration/Common/source/langvalue.c
Modified: Frontier/branches/FSRef_Migration/Common/headers/file.h
===================================================================
--- Frontier/branches/FSRef_Migration/Common/headers/file.h	2006-07-30 17:45:17 UTC (rev 1475)
+++ Frontier/branches/FSRef_Migration/Common/headers/file.h	2006-07-30 17:46:37 UTC (rev 1476)
@@ -199,7 +199,7 @@
 	
 #endif
 
-extern void setfserrorparam ( const tyfilespec * );
+extern void setfserrorparam ( const ptrfilespec );
 
 extern boolean endswithpathsep (bigstring bs);
 

Modified: Frontier/branches/FSRef_Migration/Common/source/file.c
===================================================================
--- Frontier/branches/FSRef_Migration/Common/source/file.c	2006-07-30 17:45:17 UTC (rev 1475)
+++ Frontier/branches/FSRef_Migration/Common/source/file.c	2006-07-30 17:46:37 UTC (rev 1476)
@@ -987,7 +987,7 @@
 		// 2006-07-06 creedon; created
 		//
 	
-		CFStringRef csr = CFStringCreateWithPascalString (kCFAllocatorDefault, bs, kCFStringEncodingMacRoman );
+		CFStringRef csr = CFStringCreateWithPascalString ( kCFAllocatorDefault, bs, kCFStringEncodingMacRoman );
 		
 		( *output ).length = CFStringGetLength ( csr );
 		

Modified: Frontier/branches/FSRef_Migration/Common/source/fileops.c
===================================================================
--- Frontier/branches/FSRef_Migration/Common/source/fileops.c	2006-07-30 17:45:17 UTC (rev 1475)
+++ Frontier/branches/FSRef_Migration/Common/source/fileops.c	2006-07-30 17:46:37 UTC (rev 1476)
@@ -129,7 +129,7 @@
 typedef struct tyfileinfo tyvolinfo;
 
 
-void setfserrorparam ( const tyfilespec *fs ) {
+void setfserrorparam ( const ptrfilespec fs ) {
 
 	//
 	// 2006-07-05 creedon; for Mac, FSRef-ized

Modified: Frontier/branches/FSRef_Migration/Common/source/langvalue.c
===================================================================
--- Frontier/branches/FSRef_Migration/Common/source/langvalue.c	2006-07-30 17:45:17 UTC (rev 1475)
+++ Frontier/branches/FSRef_Migration/Common/source/langvalue.c	2006-07-30 17:46:37 UTC (rev 1476)
@@ -8724,19 +8724,23 @@
 		
 		case unpackfunc:
 			return (langunpackverb (hp1, v));
-#if isFrontier && (MACVERSION || RABNOTIMPEMENTED)
-		case appleeventfunc:
-			return (langipcmessage (hp1, normalmsg, v));
-		
-		case findereventfunc:
-			return (langipcmessage (hp1, noreplymsg, v));
-		
-		case complexeventfunc:
-			return (langipccomplexmessage (hp1, v));
-		
-		case tableeventfunc:
-			return (langipctablemessage (hp1, v));
-#endif		
+			
+		#if isFrontier && (MACVERSION || RABNOTIMPEMENTED)
+
+			case appleeventfunc:
+				return (langipcmessage (hp1, normalmsg, v));
+			
+			case findereventfunc:
+				return (langipcmessage (hp1, noreplymsg, v));
+			
+			case complexeventfunc:
+				return (langipccomplexmessage (hp1, v));
+			
+			case tableeventfunc:
+				return (langipctablemessage (hp1, v));
+			
+		#endif	
+
 		case objspecfunc:
 			flnextparamislast = true;
 			
@@ -8745,23 +8749,24 @@
 		case setobjspecfunc:
 			return (setobjspecverb (hp1, v));
 		
-#ifdef MACVERSION
-		case gestaltfunc: {
-			OSType selector;
-			long result;
+		#ifdef MACVERSION
+
+			case gestaltfunc: {
+				OSType selector;
+				long result;
+				
+				flnextparamislast = true;
+				
+				if (!getostypevalue (hp1, 1, &selector))
+					return (false);
+				
+				if (!gestalt (selector, &result))
+					result = -1;
+				
+				return (setlongvalue (result, v));
+				}
+		#endif
 			
-			flnextparamislast = true;
-			
-			if (!getostypevalue (hp1, 1, &selector))
-				return (false);
-			
-			if (!gestalt (selector, &result))
-				result = -1;
-			
-			return (setlongvalue (result, v));
-			}
-#endif
-			
 		case syscrashfunc: {
 			
 			bigstring bs;


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