|
@@ -54,8 +54,9 @@ to either SIOW or, in case of MPWTOOL, to MPW }
|
|
var
|
|
var
|
|
{emulated working directory}
|
|
{emulated working directory}
|
|
workingDirectorySpec: FSSpec; cvar;
|
|
workingDirectorySpec: FSSpec; cvar;
|
|
- {Also declared in macutils.pp as external. Declared here to be available
|
|
|
|
- to macutils.inc and below in this file.}
|
|
|
|
|
|
+
|
|
|
|
+ {The above variable is also declared in macutils.pp as external. Declared }
|
|
|
|
+ {here to be available to macutils.inc and below in this file.}
|
|
|
|
|
|
{$I macutils.inc}
|
|
{$I macutils.inc}
|
|
|
|
|
|
@@ -130,27 +131,6 @@ begin
|
|
InOutRes:= MacOSErr2RTEerr(err);
|
|
InOutRes:= MacOSErr2RTEerr(err);
|
|
end;
|
|
end;
|
|
|
|
|
|
-function FSpLocationFromFullPath(fullPathLength: Integer;
|
|
|
|
- fullPath: Mac_Ptr; var spec: FSSpec ):OSErr;
|
|
|
|
-
|
|
|
|
-var
|
|
|
|
- alias: AliasHandle;
|
|
|
|
- res: OSErr;
|
|
|
|
- wasChanged: Boolean;
|
|
|
|
- nullString: Str32;
|
|
|
|
-
|
|
|
|
-begin
|
|
|
|
- nullString:= '';
|
|
|
|
- res:= NewAliasMinimalFromFullPath(fullPathLength,
|
|
|
|
- fullPath, nullString, nullString, alias);
|
|
|
|
- if res = noErr then
|
|
|
|
- begin
|
|
|
|
- res:= ResolveAlias(nil, alias, spec, wasChanged);
|
|
|
|
- DisposeHandle(Mac_Handle(alias));
|
|
|
|
- end;
|
|
|
|
- FSpLocationFromFullPath:= res;
|
|
|
|
-end;
|
|
|
|
-
|
|
|
|
{*****************************************************************************
|
|
{*****************************************************************************
|
|
MacOS specific functions
|
|
MacOS specific functions
|
|
*****************************************************************************}
|
|
*****************************************************************************}
|
|
@@ -184,7 +164,10 @@ end;
|
|
|
|
|
|
{
|
|
{
|
|
$Log$
|
|
$Log$
|
|
- Revision 1.1 2005-02-07 21:30:12 peter
|
|
|
|
|
|
+ Revision 1.2 2005-03-20 19:35:24 olle
|
|
|
|
+ - removed FSpLocationFromFullPath
|
|
|
|
+
|
|
|
|
+ Revision 1.1 2005/02/07 21:30:12 peter
|
|
* system unit updated
|
|
* system unit updated
|
|
|
|
|
|
Revision 1.1 2005/02/06 16:57:18 peter
|
|
Revision 1.1 2005/02/06 16:57:18 peter
|