paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 22:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added more support for macos

Browse Source
This commit is contained in:
olle 2004-10-16 13:03:13 +00:00
parent d560eb5087
commit f8646ff771
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/globals.pas
View File

@ -293,6 +293,7 @@ interface
Function RemoveDir(d:string):boolean; Function RemoveDir(d:string):boolean;
Function GetFileTime ( Var F : File) : Longint; Function GetFileTime ( Var F : File) : Longint;
Function GetNamedFileTime ( Const F : String) : Longint; Function GetNamedFileTime ( Const F : String) : Longint;
{Extracts the path without its filename, from a path.}
Function SplitPath(const s:string):string; Function SplitPath(const s:string):string;
Function SplitFileName(const s:string):string; Function SplitFileName(const s:string):string;
Function SplitName(const s:string):string; Function SplitName(const s:string):string;
@ -679,8 +680,13 @@ implementation
i : longint; i : longint;
begin begin
i:=Length(s); i:=Length(s);
{$ifdef macos}
while (i>0) and not(s[i] in [':']) do
dec(i);
{$else macos}
while (i>0) and not(s[i] in ['/','\']) do while (i>0) and not(s[i] in ['/','\']) do
dec(i); dec(i);
{$endif macos}
SplitPath:=Copy(s,1,i); SplitPath:=Copy(s,1,i);
end; end;
@ -1933,6 +1939,9 @@ implementation
{$ifdef os2} {$ifdef os2}
{$define need_path_search} {$define need_path_search}
{$endif os2} {$endif os2}
{$ifdef macos}
{$define need_path_search}
{$endif macos}
procedure get_exepath; procedure get_exepath;
var var
@ -1965,7 +1974,11 @@ implementation
if pos(source_info.exeext,hs1) <> if pos(source_info.exeext,hs1) <>
(length(hs1) - length(source_info.exeext)+1) then (length(hs1) - length(source_info.exeext)+1) then
hs1 := hs1 + source_info.exeext; hs1 := hs1 + source_info.exeext;
{$ifdef macos}
p:=GetEnvPchar('Commands');
{$else macos}
p:=GetEnvPchar('PATH'); p:=GetEnvPchar('PATH');
{$endif macos}
FindFilePChar(hs1,p,exepath); FindFilePChar(hs1,p,exepath);
FreeEnvPChar(p); FreeEnvPChar(p);
exepath:=SplitPath(exepath); exepath:=SplitPath(exepath);
@ -2118,7 +2131,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.145 2004-10-15 09:14:16 mazen Revision 1.146 2004-10-16 13:03:13 olle
+ added more support for macos
Revision 1.145 2004/10/15 09:14:16 mazen
- remove $IFDEF DELPHI and related code - remove $IFDEF DELPHI and related code
- remove $IFDEF FPCPROCVAR and related code - remove $IFDEF FPCPROCVAR and related code