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

pastojs: clean up

Browse Source 
git-svn-id: trunk@40067 -
This commit is contained in:
Mattias Gaertner 2018-10-28 14:52:39 +00:00
parent 01d1cde8a3
commit f6b2b6d4e8
3 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -222,7 +222,9 @@ begin
Result:=false;
RelPath:=Filename;
if (BaseDirectory='') or (Filename='') then exit;
{AllowWriteln}
writeln('TryCreateRelativePath ToDo: ',Filename,' Base=',BaseDirectory,' UsePointDirectory=',UsePointDirectory);
{AllowWriteln-}
end;
{$ELSE}
function IsNameChar(c: char): boolean; inline;
@ -325,7 +327,9 @@ begin
Len:=length(AFilename);
if Len=0 then exit('');
Result:=AFilename;
{AllowWriteln}
writeln('ResolveDots ToDo ',AFilename);
{AllowWriteln-}
end;
{$ELSE}
@ -590,7 +594,10 @@ end;
function CompareFilenames(const File1, File2: string): integer;
begin
{$IFDEF Pas2js}
{AllowWriteln}
writeln('CompareFilenames ToDo ',File1,' ',File2);
{AllowWriteln-}
raise Exception.Create('CompareFilenames ToDo');
Result:=0;
{$ELSE}
Result:=AnsiCompareFileName(File1,File2);
@ -622,7 +629,10 @@ function MatchGlobbing(Mask, Name: string): boolean;
{$IFDEF Pas2js}
begin
if Mask='' then exit(Name='');
{AllowWriteln}
writeln('MatchGlobbing ToDo ',Mask,' Name=',Name);
{AllowWriteln-}
raise Exception.Create('MatchGlobbing ToDo');
Result:=false;
end;
{$ELSE}

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

@ -17,7 +17,9 @@
function FilenameIsAbsolute(const aFilename: string): boolean;
begin
{AllowWriteln}
writeln('FilenameIsAbsolute ToDo ',aFilename);
{AllowWriteln-}
Result:=FilenameIsUnixAbsolute(aFilename);
raise Exception.Create('FilenameIsAbsolute ToDo');
end;
@ -61,7 +63,9 @@ end;
function GetCurrentDirPJ: String;
begin
{AllowWriteln}
writeln('GetCurrentDirPJ ToDo');
{AllowWriteln-}
Result:='';
raise Exception.Create('GetCurrentDirPJ ToDo');
end;
@ -100,14 +104,18 @@ end;
function ResolveSymLinks(const Filename: string; ExceptionOnError: boolean
): string;
begin
{AllowWriteln}
writeln('ResolveSymLinks ToDo ',Filename,' ',ExceptionOnError);
{AllowWriteln-}
Result:=Filename;
raise Exception.Create('ResolveSymLinks ToDo');
end;
function FileIsWritable(const AFilename: string): boolean;
begin
{AllowWriteln}
writeln('FileIsWritable ToDo ',AFilename);
{AllowWriteln-}
Result := false;
raise Exception.Create('FileIsWritable ToDo');
end;

9
packages/pastojs/src/pas2jslogger.pp
View File

@ -490,18 +490,27 @@ end;
constructor TPas2jsFileStream.Create(Filename: string; Mode: cardinal);
begin
{AllowWriteln}
writeln('TPas2JSFileStream.Create TODO ',Filename,' Mode=',Mode);
{AllowWriteln-}
raise Exception.Create('TPas2JSFileStream.Create');
end;
destructor TPas2jsFileStream.Destroy;
begin
{AllowWriteln}
writeln('TPas2JSFileStream.Destroy TODO');
{AllowWriteln-}
raise Exception.Create('TPas2JSFileStream.Destroy');
inherited Destroy;
end;
procedure TPas2jsFileStream.Write(const s: string);
begin
{AllowWriteln}
writeln('TPas2JSFileStream.Write TODO s="',s,'"');
{AllowWriteln-}
raise Exception.Create('TPas2JSFileStream.Write');
end;
{$ENDIF}