source: trunk/StudioModules/LDModulePascal/ULDModulePascal.pas

unit ULDModulePascal;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, UModularSystem, USource, UProject;

type
  { TProjectTemplateConsoleApp }

  TProjectTemplateConsoleApp = class(TFileTemplate)
    constructor Create; override;
    function Execute: TSource; override;
  end;

  { TProjectTemplateGUIApp }

  TProjectTemplateGUIApp = class(TFileTemplate)
    constructor Create; override;
    function Execute: TSource; override;
  end;

  { TProjectTemplatePackage }

  TProjectTemplatePackage = class(TFileTemplate)
    constructor Create; override;
    function Execute: TSource; override;
  end;

  { TProjectTemplateUnit }

  TProjectTemplateUnit = class(TFileTemplate)
    constructor Create; override;
    function Execute: TSource; override;
  end;

  { TPascalSourceType }

  TPascalSourceType = class(TSourceType)
    constructor Create; override;
  end;

  { TLDModulePascal }

  TLDModulePascal = class(TModule)
  private
    PasFileType: TPascalSourceType;
    ProjectTemplateConsoleApp: TProjectTemplateConsoleApp;
    ProjectTemplateGUIApp: TProjectTemplateGUIApp;
    ProjectTemplateUnit: TProjectTemplateUnit;
  public
    constructor Create(Owner: TComponent); override;
    procedure Install; override;
    procedure Uninstall; override;
  end;


implementation

uses
  ULDStudioAPI, ULDModuleBasic;

resourcestring
  SPascal = 'Pascal';

{ TPascalSourceType }

constructor TPascalSourceType.Create;
begin
  inherited Create;
  Extension := '.pas';
  Title := 'Pascal source';
end;

{ TLDModulePascal }

constructor TLDModulePascal.Create(Owner: TComponent);
begin
  inherited;
  Identification := 'Pascal';
  Title := SPascal;
  Version := '0.1';
  License := 'GNU/LGPLv3';
end;

procedure TLDModulePascal.Install;
begin
  with TLDStudioAPI(API) do begin
    PasFileType := TPascalSourceType.Create;
    RegisterFileType(PasFileType);
    ProjectTemplateConsoleApp := TProjectTemplateConsoleApp.Create;
    RegisterFileTemplate(ProjectTemplateConsoleApp);
    ProjectTemplateGUIApp := TProjectTemplateGUIApp.Create;
    RegisterFileTemplate(ProjectTemplateGUIApp);
    ProjectTemplateUnit := TProjectTemplateUnit.Create;
    RegisterFileTemplate(ProjectTemplateUnit);
  end;
  inherited Install;
end;

procedure TLDModulePascal.Uninstall;
begin
  inherited Uninstall;
  with TLDStudioAPI(API) do begin
    RegisterFileTemplate(ProjectTemplateUnit);
    FreeAndNil(ProjectTemplateUnit);
    UnregisterFileTemplate(ProjectTemplateGUIApp);
    FreeAndNil(ProjectTemplateGUIApp);
    UnregisterFileTemplate(ProjectTemplateConsoleApp);
    FreeAndNil(ProjectTemplateConsoleApp);
    UnregisterFileType(PasFileType);
    FreeAndNil(PasFileType);
  end;
end;

resourcestring
  SConsoleApplication = 'Console application';
  SUnit = 'Unit';
  SPackage = 'Package';
  SGUIApplication = 'GUI application';

{ TProjectTemplateUnit }

constructor TProjectTemplateUnit.Create;
begin
  inherited Create;
  Name := SUnit;
  //FileTypeClass := TSourceText;
end;

function TProjectTemplateUnit.Execute: TSource;
var
  NewFile: TSource;
begin
  //inherited InitProject(Project);
  Result := TSourceText.Create;
  Result.Name := 'Unit1.pas';
  with TSourceText(Result), Content do begin
    Add('unit Unit1;');
    Add('');
    Add('interface');
    Add('');
    Add('implementation');
    Add('');
    Add('end.');
    Loaded := True;
  end;
end;

{ TProjectTemplatePackage }

constructor TProjectTemplatePackage.Create;
begin
  inherited Create;
  Name := SPackage;
end;

function TProjectTemplatePackage.Execute: TSource;
var
  NewFile: TSourceText;
begin
{  Result := TProject.Create;
  Result.Name := 'Package1';
  NewFile := TSourceText.Create;
  NewFile.Name := 'Package1.bpl';
  with NewFile.Content do begin
    Add('package Package1;');
    Add('');
    Add('requires');
    Add('  RTL;');
    Add('');
    Add('end.');
  end;
  TProject(Result).Files.Add();
  TProject(Result).MainSource := NewFile;
}end;

{ TProjectTemplateGUIApp }

constructor TProjectTemplateGUIApp.Create;
begin
  inherited Create;
  Name := SGUIApplication;
end;

function TProjectTemplateGUIApp.Execute: TSource;
var
  NewFile: TProjectFile;
begin
{  inherited InitProject(Project);
  NewFile := Project.Files.AddFile('Project1.dpr');
  with NewFile.Source do begin
    Add('program Project1;');
    Add('');
    Add('uses');
    Add('  GUI;');
    Add('');
    Add('var');
    Add('  Application: TApplication');
    Add('begin');
    Add('  Application := TApplication.Create;');
    Add('  Application.Run;');
    Add('  Application.Free;');
    Add('end.');
  end;
  Project.MainSource := NewFile;
}end;

{ TProjectTemplateConsoleApp }

constructor TProjectTemplateConsoleApp.Create;
begin
  inherited Create;
  Name := SConsoleApplication;
end;

function TProjectTemplateConsoleApp.Execute: TSource;
var
  NewFile: TProjectFile;
begin
{  inherited InitProject(Project);
  NewFile := Project.Files.AddFile('Project1.dpr');
  with NewFile.Source do begin
    Add('program Project1;');
    Add('');
    Add('begin');
    Add('end.');
  end;
  Project.MainSource := NewFile;}
end;


end.