Changeset 93 for branches/dcomp/CmdLine/dcomp.dpr

Timestamp:

Nov 4, 2016, 9:17:57 PM (8 years ago)

Author:

chronos

Message:

• Modified: Use generic lists in supported analyzers and parsers.
• Fixed: Build under Delphi.

File:

• branches/dcomp/CmdLine/dcomp.dpr (modified) (1 diff)

branches/dcomp/CmdLine/dcomp.dpr

@@ -1 +1 @@
 program dcomp;
 
+{$APPTYPE CONSOLE}
+
 uses
-  UCompiler, UTargetPHP, UAnalyzerPascal;
+  System.SysUtils,
+  UCompiler in 'Compiler\UCompiler.pas',
+  UTargetPHP in 'TargetPHP\UTargetPHP.pas',
+  UAnalyzerPascal in 'Compiler\UAnalyzerPascal.pas',
+  UAnalyzer in 'Compiler\UAnalyzer.pas',
+  UTarget in 'Compiler\UTarget.pas';
 
+type
+  TApplication = class
+    procedure Run;
+  end;
+
+{ TApplication }
+
+procedure TApplication.Run;
 var
   Compiler: TCompiler;
 begin
   Compiler := TCompiler.Create;
+  if ParamCount > 0 then
+    Compiler.MainSourceFile := ParamStr(1);
   Compiler.RegisterTarget(TTargetPHP);
   Compiler.RegisterAnalyzer(TAnalyzerPascal);
   Compiler.Compile;
-  Compiler.Free; 
+end;
+
+var
+  Application: TApplication;
+begin
+  try
+    Application := TApplication.Create;
+    Application.Run;
+    Application.Free;
+    ReadLn;
+    { TODO -oUser -cConsole Main : Insert code here }
+  except
+    on E: Exception do
+      Writeln(E.ClassName, ': ', E.Message);
+  end;
 end.
+