blob: ac135baee9f8cf55f2d447828d2144f4f4ee52c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
{ Author: Mattias Gaertner 2018 mattias@freepascal.org
Abstract:
Command line interface for the pas2js compiler.
}
program pas2js;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}
cthreads, cwstring,
{$ENDIF}
Classes, SysUtils, CustApp,
Pas2jsFileUtils, Pas2jsLogger, Pas2jsCompiler,
Pas2JSFSCompiler, Pas2JSCompilerPP, Pas2JSCompilerCfg;
Type
{ TPas2jsCLI }
TPas2jsCLI = class(TCustomApplication)
private
FCompiler: TPas2JSFSCompiler;
FWriteOutputToStdErr: Boolean;
protected
procedure DoRun; override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
property Compiler: TPas2JSFSCompiler read FCompiler;
property WriteOutputToStdErr: Boolean read FWriteOutputToStdErr write FWriteOutputToStdErr;
end;
procedure TPas2jsCLI.DoRun;
var
ParamList: TStringList;
i: Integer;
begin
ParamList:=TStringList.Create;
try
for i:=1 to ParamCount do
ParamList.Add(Params[i]);
try
Compiler.Run(ParamStr(0),GetCurrentDirPJ,ParamList);
except
on E: ECompilerTerminate do ;
on E: Exception do
begin
{AllowWriteln}
writeln('Error: Unhandled exception '+E.ClassName+': '+E.Message);
{AllowWriteln-}
if ExitCode=0 then
ExitCode:=ExitCodeErrorInternal;
end;
end;
finally
ParamList.Free;
Compiler.Log.CloseOutputFile;
end;
// stop program loop
Terminate; // Keep ExitCode!
end;
constructor TPas2jsCLI.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
StopOnException:=True;
FCompiler:=TPas2JSFSCompiler.Create;
FCompiler.ConfigSupport:=TPas2JSFileConfigSupport.Create(FCompiler);
FCompiler.PostProcessorSupport:=TPas2JSFSPostProcessorSupport.Create(FCompiler);
end;
destructor TPas2jsCLI.Destroy;
begin
FreeAndNil(FCompiler);
inherited Destroy;
end;
var
Application: TPas2jsCLI;
begin
Application:=TPas2jsCLI.Create(nil);
Application.Run;
Application.Free;
end.
|
