paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 06:39:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

pas2js: cleaned up pcu

Browse Source 
git-svn-id: trunk@40554 -
This commit is contained in:
Mattias Gaertner 2018-12-15 11:11:24 +00:00
parent 95c4736785
commit 38a511a2f0
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3844,7 +3844,7 @@ end;
procedure TPas2jsCompiler.WritePrecompiledFormats;
begin
WriteHelpLine('No support for PCU files in this class');
WriteHelpLine(' -JU: This pas2js does not support PCU files');
end;
procedure TPas2jsCompiler.AddNamespaces(const Paths: string;
@ -4204,7 +4204,7 @@ begin
w(' -JoCheckVersion=main: insert rtl version check into main.');
w(' -JoCheckVersion=system: insert rtl version check into system unit init.');
w(' -JoCheckVersion=unit: insert rtl version check into every unit init.');
w(' -JoRTL-<x>=<y>: set RTL identifier x to value y.');
w(' -JoRTL-<y>=<z>: set RTL identifier y to value z.');
w(' -Jpcmd<command>: Run postprocessor. For each generated js execute command passing the js as stdin and read the new js from stdout. This option can be added multiple times to call several postprocessors in succession.');
w(' -Ju<x>: Add <x> to foreign unit paths. Foreign units are not compiled.');
WritePrecompiledFormats;

3
utils/pas2js/pas2js.lpi
View File

@ -34,6 +34,7 @@
<Unit1>
<Filename Value="../../packages/pastojs/src/pas2jspcucompiler.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Pas2JSPCUCompiler"/>
</Unit1>
<Unit2>
<Filename Value="../../packages/pastojs/src/pas2jscompilercfg.pp"/>
@ -42,6 +43,7 @@
<Unit3>
<Filename Value="../../packages/pastojs/src/pas2jsfs.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Pas2JSFS"/>
</Unit3>
<Unit4>
<Filename Value="../../packages/pastojs/src/pas2jscompilerpp.pp"/>
@ -50,6 +52,7 @@
<Unit5>
<Filename Value="../../packages/pastojs/src/pas2jsfscompiler.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Pas2JSFSCompiler"/>
</Unit5>
</Units>
</ProjectOptions>

8
utils/pas2js/pas2js.pp
View File

@ -13,7 +13,7 @@ uses
{$ENDIF}
Classes, SysUtils, CustApp,
Pas2jsFileUtils, Pas2jsLogger, Pas2jsCompiler,
Pas2JSPCUCompiler, Pas2JSCompilerPP, Pas2JSCompilerCfg;
Pas2JSFSCompiler, Pas2JSCompilerPP, Pas2JSCompilerCfg;
Type
@ -21,14 +21,14 @@ Type
TPas2jsCLI = class(TCustomApplication)
private
FCompiler: TPas2jsPCUCompiler;
FCompiler: TPas2JSFSCompiler;
FWriteOutputToStdErr: Boolean;
protected
procedure DoRun; override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
property Compiler: TPas2jsPCUCompiler read FCompiler;
property Compiler: TPas2JSFSCompiler read FCompiler;
property WriteOutputToStdErr: Boolean read FWriteOutputToStdErr write FWriteOutputToStdErr;
end;
@ -67,7 +67,7 @@ constructor TPas2jsCLI.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
StopOnException:=True;
FCompiler:=TPas2jsPCUCompiler.Create;
FCompiler:=TPas2JSFSCompiler.Create;
FCompiler.ConfigSupport:=TPas2JSFileConfigSupport.Create(FCompiler);
FCompiler.PostProcessorSupport:=TPas2JSFSPostProcessorSupport.Create(FCompiler);
end;