|
@@ -6,7 +6,7 @@ program nodepas2js;
|
|
uses
|
|
uses
|
|
JS, NodeJSApp,
|
|
JS, NodeJSApp,
|
|
Classes, SysUtils,
|
|
Classes, SysUtils,
|
|
- Pas2jsFileUtils, Pas2jsLogger, Pas2jsCompiler;
|
|
|
|
|
|
+ Pas2jsFileUtils, Pas2jsLogger, pas2jscompiler, Pas2jsfscompiler;
|
|
|
|
|
|
type
|
|
type
|
|
|
|
|
|
@@ -14,13 +14,13 @@ type
|
|
|
|
|
|
TPas2jsCLI = class(TNodeJSApplication)
|
|
TPas2jsCLI = class(TNodeJSApplication)
|
|
private
|
|
private
|
|
- FCompiler: TPas2jsCompiler;
|
|
|
|
|
|
+ FCompiler: TPas2jsFSCompiler;
|
|
protected
|
|
protected
|
|
procedure DoRun; override;
|
|
procedure DoRun; override;
|
|
public
|
|
public
|
|
constructor Create(TheOwner: TComponent); override;
|
|
constructor Create(TheOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
destructor Destroy; override;
|
|
- property Compiler: TPas2jsCompiler read FCompiler;
|
|
|
|
|
|
+ property Compiler: TPas2jsFsCompiler read FCompiler;
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TPas2jsCLI.DoRun;
|
|
procedure TPas2jsCLI.DoRun;
|
|
@@ -65,7 +65,7 @@ constructor TPas2jsCLI.Create(TheOwner: TComponent);
|
|
begin
|
|
begin
|
|
inherited Create(TheOwner);
|
|
inherited Create(TheOwner);
|
|
StopOnException:=True;
|
|
StopOnException:=True;
|
|
- FCompiler:=TPas2jsCompiler.Create;
|
|
|
|
|
|
+ FCompiler:=TPas2jsFSCompiler.Create;
|
|
end;
|
|
end;
|
|
|
|
|
|
destructor TPas2jsCLI.Destroy;
|
|
destructor TPas2jsCLI.Destroy;
|