paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 18:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added some missing path functions

Browse Source
This commit is contained in:
michael 2002-10-22 21:57:54 +00:00
parent 351c11d2a8
commit 1232c5103b
2 changed files with 55 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
rtl/objpas/fina.inc
View File

@ -188,9 +188,54 @@ begin
If Result>-1 then inc(Result);
end;
function IncludeTrailingPathDelimiter(Const Path : String) : String;
Var
l : Integer;
begin
Result:=Path;
l:=Length(Result);
If (L=0) or (Result[l]<>PathDelim) then
Result:=Result+PathDelim;
end;
function IncludeTrailingBackslash(Const Path : String) : String;
begin
Result:=IncludeTrailingPathDelimiter(Path);
end;
function ExcludeTrailingBackslash(Const Path: string): string;
begin
Result:=ExcludeTrailingPathDelimiter(Path);
end;
function ExcludeTrailingPathDelimiter(Const Path: string): string;
Var
L : Integer;
begin
L:=Length(Path);
If (L>0) and (Path[L]=PathDelim) then
Dec(L);
Result:=Copy(Path,1,L);
end;
function IsPathDelimiter(Const Path: string; Index: Integer): Boolean;
begin
Result:=(Index>0) and (Index<=Length(Path)) and (Path[Index]=PathDelim);
end;
{
$Log$
Revision 1.7 2002-10-12 15:34:09 michael
Revision 1.8 2002-10-22 21:57:54 michael
+ Added some missing path functions
Revision 1.7 2002/10/12 15:34:09 michael
+ Fixed changefileexit for long (>255) filenames
Revision 1.6 2002/09/07 16:01:22 peter

10
rtl/objpas/finah.inc
View File

@ -34,13 +34,21 @@ function ExtractFileDir(Const FileName : string): string;
function ExpandFileName (Const FileName : string): String;
function ExpandUNCFileName (Const FileName : string): String;
function ExtractRelativepath (Const BaseName,DestNAme : String): String;
function IncludeTrailingPathDelimiter(Const Path : String) : String;
function IncludeTrailingBackslash(Const Path : String) : String;
function ExcludeTrailingBackslash(Const Path: string): string;
function ExcludeTrailingPathDelimiter(Const Path: string): string;
function IsPathDelimiter(Const Path: string; Index: Integer): Boolean;
Procedure DoDirSeparators (Var FileName : String);
Function SetDirSeparators (Const FileName : String) : String;
Function GetDirs (Var DirName : String; Var Dirs : Array of pchar) : Longint;
{
$Log$
Revision 1.7 2002-09-07 16:01:22 peter
Revision 1.8 2002-10-22 21:57:54 michael
+ Added some missing path functions
Revision 1.7 2002/09/07 16:01:22 peter
* old logs removed and tabs fixed
}