paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 07:54:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: clean up

Browse Source 
git-svn-id: trunk@40508 -
This commit is contained in:
Mattias Gaertner 2018-12-08 20:29:19 +00:00
parent 408dc7b33c
commit 2b2941e455
3 changed files with 4 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/pastojs/src/fppas2js.pp
View File

@ -16043,10 +16043,9 @@ end;
function TPasToJSConverter.ConvertIfStatement(El: TPasImplIfElse;
AContext: TConvertContext): TJSElement;
Var
C,BThen,BElse : TJSElement;
T : TJSIfStatement;
C, BThen, BElse: TJSElement;
T: TJSIfStatement;
begin
Result:=nil;
if AContext=nil then ;

48
packages/pastojs/src/pas2jsfilecache.pp
View File

@ -234,19 +234,11 @@ type
function FileExistsILogged(var Filename: string): integer;
function FileExistsLogged(const Filename: string): boolean;
function GetOnReadDirectory: TReadDirectoryEvent;
function GetSearchLikeFPC: boolean;
function GetShowFullFilenames: boolean;
function GetShowTriedUsedFiles: boolean;
function GetStrictFileCase: Boolean;
procedure RegisterMessages;
procedure SetBaseDirectory(AValue: string);
function AddSearchPaths(const Paths: string; Kind: TPas2jsSearchPathKind;
FromCmdLine: boolean; var List: TStringList; var CmdLineCount: integer): string;
procedure SetOnReadDirectory(AValue: TReadDirectoryEvent);
procedure SetSearchLikeFPC(const AValue: boolean);
procedure SetShowFullFilenames(const AValue: boolean);
procedure SetShowTriedUsedFiles(const AValue: boolean);
procedure SetStrictFileCase(AValue: Boolean);
protected
function FindSourceFileName(const aFilename: string): String; override;
function GetHasPCUSupport: Boolean; virtual;
@ -1221,26 +1213,6 @@ begin
Result:=False;
end;
function TPas2jsFilesCache.GetStrictFileCase : Boolean;
begin
Result:=caoStrictFileCase in Options;
end;
function TPas2jsFilesCache.GetSearchLikeFPC: boolean;
begin
Result:=caoSearchLikeFPC in Options;
end;
function TPas2jsFilesCache.GetShowFullFilenames: boolean;
begin
Result:=caoShowFullFilenames in Options;
end;
function TPas2jsFilesCache.GetShowTriedUsedFiles: boolean;
begin
Result:=caoShowTriedUsedFiles in Options;
end;
procedure TPas2jsFilesCache.SetBaseDirectory(AValue: string);
begin
AValue:=Pas2jsFileUtils.ExpandDirectory(AValue);
@ -1361,26 +1333,6 @@ begin
DirectoryCache.OnReadDirectory:=AValue;
end;
procedure TPas2jsFilesCache.SetSearchLikeFPC(const AValue: boolean);
begin
SetOption(caoSearchLikeFPC,AValue);
end;
procedure TPas2jsFilesCache.SetShowFullFilenames(const AValue: boolean);
begin
SetOption(caoShowFullFilenames,AValue);
end;
procedure TPas2jsFilesCache.SetShowTriedUsedFiles(const AValue: boolean);
begin
SetOption(caoShowTriedUsedFiles,AValue);
end;
procedure TPas2jsFilesCache.SetStrictFileCase(AValue: Boolean);
begin
SetOption(caoStrictFileCase,aValue)
end;
function TPas2jsFilesCache.ReadFile(Filename: string; var Source: string
): boolean;
{$IFDEF Pas2js}

3
packages/pastojs/src/pas2jsfscompiler.pp
View File

@ -23,7 +23,8 @@ unit Pas2JSFSCompiler;
interface
uses
Classes, SysUtils, pastree, PScanner, PasUseAnalyzer,
Classes, SysUtils,
PasUseAnalyzer,
Pas2jsFileCache, Pas2jsCompiler,
Pas2JSFS,
FPPas2Js, Pas2jsFileUtils;