///////////////////////////////////////////////////////////
//                     GGBuildTools                      //
//    Набор утилит для сборки проектов Gipat Group       //
//             Copyright (C) 2007 Gipat Group            //
//              Распространяется на условиях             //
//    Gipat Group's opened EI-editor-utility license     //
//                      версии 1.0                       //
//                                                       //
//                  www.gipatgroup.org                   //
///////////////////////////////////////////////////////////

//К работе над данным файлом приложили руки, ноги.... короче аффтары:
// 1) Sagrer (sagrer@yandex.ru)

////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////
//      Служебный класс для консольных утилит GG         //
//////////////////////////////////////////////////////////

unit GGConsUtilServiceClass;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, forms, ConsUtilServiceClass, GGBuildToolsShared,
  VerInfoTxtFormat, GGBuildTools_ver;
  
type
  TGGConsUtilServiceClass = class (TConsUtilServiceClass)       //Базовый класс для "интерфейса" консольной утилиты GG
  private
  protected
  public
    //Переменные
    GGConsAppName : AnsiString;      //Сюды записывать имя приложения в конструкторе наследника.
    AppVersion : TVerInfoTxtFormat;
    
    //Конструкторы-деструкторы...
    constructor Create; override;
    destructor Destroy; override;

    //Другие методы...
    procedure ShowVersion;        override;     //Вывести версию.

  end;

implementation

/////////////////////////////////////////////
//         TGGConsUtilServiceClass         //
/////////////////////////////////////////////

//-----------------------------------------//
//        Конструкторы-деструкторы...      //
//-----------------------------------------//

constructor TGGConsUtilServiceClass.Create;
begin
  //Проставить дефолтные значения...

  //Создать вложенные объекты классов...
  AppVersion := TVerInfoTxtFormat.Create;
  
  //Заполнить версию.
  AppVersion.Clear();
  AppVersion.Ver1 := GGBuildTools_Ver1;
  AppVersion.Ver2 := GGBuildTools_Ver2;
  AppVersion.Ver3 := GGBuildTools_Ver3;
  AppVersion.Ver4 := GGBuildTools_Ver4;
  AppVersion.Status := GGBuildTools_Status;
  AppVersion.RCNum := GGBuildTools_RCNum;
  
  //Выполнить конструктор предка...
  inherited;
end;

destructor TGGConsUtilServiceClass.Destroy;
begin
  //Выкидываем мусор
  AppVersion.Free;

  //Выполнить унаследованный деструктор
  inherited;
end;

//------------------------------------------//
//             Другие методы...             //
//------------------------------------------//

procedure TGGConsUtilServiceClass.ShowVersion;
//Вывести версию.
begin
  //Выводим %).
  Writeln(AllProjectName+' v '+AppVersion.GenerateShortVersionString_nosvn()+' '+GGConsAppName+' utility.');
  Writeln(CopyrightString);
end;

end.