program Transpascal;

{$MODE Delphi}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Forms, Interfaces, SysUtils,
  UFormMain {MainForm},
  UTextSource, UProject, TranspascalCompiler, UFormProject,
UFormSourceCode, UFormMessages,
  UFormTargetCode, UFormCodeTree, TemplateGenerics, CoolTranslator, Common,
  UFormAbout, UFormOptions, UFormTargets,
UFormProjectNew, UProjectTemplates, UFormTargetProject, UCore,
UFormTargetOptions, UFormExternalProducerOutput, UIDEModulePascal;

{$R *.res}

{$IFDEF DEBUG}
const
  HeapTraceLog = 'heaptrclog.trc';
{$ENDIF}

begin
  Application.Title := 'Transpascal IDE';
  {$IFDEF DEBUG}
  // Heap trace
  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  {$ENDIF}

  Application.Initialize;
  Application.CreateForm(TCore, Core);
  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TFormProject, FormProject);
  Application.CreateForm(TFormSourceCode, FormSourceCode);
  Application.CreateForm(TFormMessages, FormMessages);
  Application.CreateForm(TFormTargetCode, FormTargetCode);
  Application.CreateForm(TFormCodeTree, FormCodeTree);
  Application.CreateForm(TFormAbout, FormAbout);
  Application.CreateForm(TFormOptions, FormOptions);
  Application.CreateForm(TFormTargets, FormTargets);
  Application.CreateForm(TFormProjectNew, FormProjectNew);
  Application.CreateForm(TFormTargetProject, FormTargetProject);
  Application.CreateForm(TFormTargetOptions, FormTargetOptions);
  Application.CreateForm(TFormExternalProducerOutput, FormExternalProducerOutput
    );
  Application.Run;
end.