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

pastojs: clean up

Browse Source 
git-svn-id: trunk@41313 -
This commit is contained in:
Mattias Gaertner 2019-02-13 15:18:53 +00:00
parent 5b37a8fe6a
commit 818354b58f
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,8 +40,8 @@ function FileIsInPath(const Filename, Path: string): boolean;
function ChompPathDelim(const Path: string): string;
function ExpandFileNamePJ(const FileName: string; {const} BaseDir: string = ''): string;
function ExpandDirectory(const aDirectory: string): string;
function IsUNCPath(const {%H-}Path: String): Boolean;
function ExtractUNCVolume(const {%H-}Path: String): String;
function IsUNCPath(const Path: String): Boolean;
function ExtractUNCVolume(const Path: String): String;
function ExtractFileRoot(FileName: String): String;
function TryCreateRelativePath(
const Dest: String; // Filename

2
packages/pastojs/src/pas2jsfileutilsnodejs.inc
View File

@ -145,11 +145,13 @@ end;
function IsUNCPath(const Path: String): Boolean;
begin
Result := false;
if Path='' then ;
end;
function ExtractUNCVolume(const Path: String): String;
begin
Result := '';
if Path='' then ;
end;
function FileIsWritable(const AFilename: string): boolean;

2
packages/pastojs/src/pas2jsfileutilsunix.inc
View File

@ -146,11 +146,13 @@ end;
function IsUNCPath(const Path: String): Boolean;
begin
Result := false;
if Path='' then ;
end;
function ExtractUNCVolume(const Path: String): String;
begin
Result := '';
if Path='' then ;
end;
function FileIsWritable(const AFilename: string): boolean;