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

pastojs: nodejs file functions

Browse Source 
git-svn-id: trunk@40106 -
This commit is contained in:
Mattias Gaertner 2018-10-31 13:59:33 +00:00
parent ba64c44486
commit c64ca00dfe
1 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/pastojs/src/pas2jsfileutils.pp
View File

@ -236,11 +236,7 @@ function TryCreateRelativePath(const Filename, BaseDirectory: String;
var
UpDirCount: Integer;
i: Integer;
{$IFDEF Pas2js}
s: string;
{$ELSE}
ResultPos, FileNameRestLen: Integer;
{$ENDIF}
SharedDirs: Integer;
FileP, BaseP, FileEndP, BaseEndP, FileL, BaseL: integer;
begin
@ -313,7 +309,6 @@ begin
exit(true);
end;
{$IFDEF Pas2js}
s:='';
for i:=1 to UpDirCount do
s+='..'+PathDelim;
@ -322,19 +317,6 @@ begin
else
s+=copy(Filename,FileP);
RelPath:=s;
{$ELSE}
FileNameRestLen:=length(Filename)-(FileP-1);
SetLength(RelPath,3*UpDirCount+FileNameRestLen);
ResultPos:=1;
for i:=1 to UpDirCount do begin
RelPath[ResultPos]:='.';
RelPath[ResultPos+1]:='.';
RelPath[ResultPos+2]:=PathDelim;
inc(ResultPos,3);
end;
if FileNameRestLen>0 then
Move(FileP^,RelPath[ResultPos],FileNameRestLen);
{$ENDIF}
Result:=true;
end;