SF.net SVN: frontierkernel: [1671] Frontier/trunk/Common/source/ langsystypes.c

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

Revision: 1671
          http://svn.sourceforge.net/frontierkernel/?rev=1671&view=rev
Author:   creecode
Date:     2007-06-12 09:39:55 -0700 (Tue, 12 Jun 2007)

Log Message:
-----------
in function stringtoalias, fileexists wasn't working, need to extend the filespec, if successful then file exists

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

Modified: Frontier/trunk/Common/source/langsystypes.c
===================================================================
--- Frontier/trunk/Common/source/langsystypes.c	2007-06-12 16:38:01 UTC (rev 1670)
+++ Frontier/trunk/Common/source/langsystypes.c	2007-06-12 16:39:55 UTC (rev 1671)
@@ -512,53 +512,60 @@
 
 #ifdef MACVERSION
 
-static boolean stringtoalias (tyvaluerecord *val) {
+	static boolean stringtoalias ( tyvaluerecord *val ) {
 	
-	//
-	// 2006-06-24 creedon: FSRef-ized
-	//
-	// 2.1b2 dmb: try converting to a filespec first to ensure that partial path or 
-	// drive number if processed properly. also, in the filespec case, the alias isn't 
-	// minimal
-	//
-	// 1992-07-23 dmb: OK, try to getfullfilepath, but with errors disabled
-	//
-	// 1992-07-02 dmb: don't call getfullfilepath; makes it impossible to create aliases of 
-	// not-yet-existing files, or offline volumes
-	//
-	// 1991-10-07 dmb: make sure we're actually passing a full path to the NewAlias routine
-	//
-	
-	register Handle htext;
-	bigstring bspath;
-	tyfilespec fs;
-	AliasHandle halias;
-	boolean flfolder;
-	OSErr errcode;
-	
-	if (!langcanusealiases ())
-		return (false);
-	
-	htext = (*val).data.stringvalue;
-	
-	texthandletostring (htext, bspath);
-	
-	if (pathtofilespec (bspath, &fs) && fileexists (&fs, &flfolder))
-		errcode = FSNewAlias (nil, &fs.fsref, &halias);
-	else
-		errcode = NewAliasMinimalFromFullPath (stringlength (bspath), bspath + 1, nil, nil, &halias);
-	
-	if (oserror (errcode))
-		return (false);
-	
-	if (!setheapvalue ((Handle) halias, aliasvaluetype, val))
-		return (false);
-	
-	releaseheaptmp ((Handle) htext);
-	
-	return (true);
-	} /*stringtoalias*/
-
+		//
+		// 2007-06-11 creedon: fileexists wasn't working, need to extend the
+		//				   filespec, if successful then file exists
+		//
+		// 2006-06-24 creedon: FSRef-ized
+		//
+		// 2.1b2 dmb: try converting to a filespec first to ensure that
+		//		    partial path or drive number if processed properly.
+		//		    also, in the filespec case, the alias isn't minimal
+		//
+		// 1992-07-23 dmb: OK, try to getfullfilepath, but with errors
+		//			    disabled
+		//
+		// 1992-07-02 dmb: don't call getfullfilepath; makes it impossible to
+		//			    create aliases of not-yet-existing files, or
+		//			    offline volumes
+		//
+		// 1991-10-07 dmb: make sure we're actually passing a full path to the
+		//			    NewAlias routine
+		//
+		
+		register Handle htext;
+		
+		AliasHandle halias;
+		OSErr errcode;
+		bigstring bspath;
+		tyfilespec fs;
+		
+		if ( ! langcanusealiases ( ) )
+			return ( false );
+		
+		htext = ( *val ).data.stringvalue;
+		
+		texthandletostring ( htext, bspath );
+		
+		if ( pathtofilespec ( bspath, &fs ) && extendfilespec ( &fs, &fs ) )
+			errcode = FSNewAlias ( NULL, &fs.fsref, &halias );
+		else
+			errcode = NewAliasMinimalFromFullPath ( stringlength ( bspath), bspath + 1, NULL, NULL, &halias );
+		
+		if ( oserror ( errcode ) )
+			return ( false );
+		
+		if ( ! setheapvalue ( ( Handle ) halias, aliasvaluetype, val ) )
+			return (false);
+		
+		releaseheaptmp ( ( Handle ) htext );
+		
+		return ( true );
+		
+		} // stringtoalias
+		
 #endif
 
 


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