aarre: started pkg list

git-svn-id: trunk@38475 -

.gitattributes

@@ -178,6 +178,9 @@ components/PascalScript/Source/uROPSServerLink.pas svneol=native#text/pascal
 components/PascalScript/Source/x64.inc svneol=native#text/pascal
 components/PascalScript/Source/x86.inc svneol=native#text/pascal
 components/README.txt svneol=native#text/plain
+components/aarre/src/aarrebase.lpk svneol=native#text/plain
+components/aarre/src/aarrebase.pas svneol=native#text/plain
+components/aarre/src/aarrepkglist.pas svneol=native#text/plain
 components/aarre/tools/aarreupdatelist.lpi svneol=native#text/plain
 components/aarre/tools/aarreupdatelist.lpr svneol=native#text/plain
 components/activex/LazActiveX.lpk svneol=native#text/plain

components/aarre/src/aarrebase.lpk

@@ -0,0 +1,39 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <Package Version="4">
+    <Name Value="aarrebase"/>
+    <CompilerOptions>
+      <Version Value="11"/>
+      <SearchPaths>
+        <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/>
+      </SearchPaths>
+      <Other>
+        <CompilerMessages>
+          <MsgFileName Value=""/>
+        </CompilerMessages>
+        <CompilerPath Value="$(CompPath)"/>
+      </Other>
+    </CompilerOptions>
+    <Files Count="1">
+      <Item1>
+        <Filename Value="aarrepkglist.pas"/>
+        <UnitName Value="AarrePkgList"/>
+      </Item1>
+    </Files>
+    <Type Value="RunAndDesignTime"/>
+    <RequiredPkgs Count="2">
+      <Item1>
+        <PackageName Value="LazUtils"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+      </Item2>
+    </RequiredPkgs>
+    <UsageOptions>
+      <UnitPath Value="$(PkgOutDir)"/>
+    </UsageOptions>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+  </Package>
+</CONFIG>

components/aarre/src/aarrebase.pas

@@ -0,0 +1,20 @@
+{ This file was automatically created by Lazarus. Do not edit!
+  This source is only used to compile and install the package.
+ }
+
+unit aarrebase;
+
+interface
+
+uses
+  AarrePkgList, LazarusPackageIntf;
+
+implementation
+
+procedure Register;
+begin
+end;
+
+initialization
+  RegisterPackage('aarrebase', @Register);
+end.

components/aarre/src/aarrepkglist.pas

@@ -0,0 +1,445 @@
+{ Read/Write Aarre packagelist.gz files
+
+  Copyright (C) 2012 Mattias Gaertner  mattias@freepascal.org
+
+  This library is free software; you can redistribute it and/or modify it
+  under the terms of the GNU Library General Public License as published by
+  the Free Software Foundation; either version 2 of the License, or (at your
+  option) any later version with the following modification:
+
+  As a special exception, the copyright holders of this library give you
+  permission to link this library with independent modules to produce an
+  executable, regardless of the license terms of these independent modules,and
+  to copy and distribute the resulting executable under terms of your choice,
+  provided that you also meet, for each linked independent module, the terms
+  and conditions of the license of that module. An independent module is a
+  module which is not derived from or based on this library. If you modify
+  this library, you may extend this exception to your version of the library,
+  but you are not obligated to do so. If you do not wish to do so, delete this
+  exception statement from your version.
+
+  This program is distributed in the hope that it will be useful, but WITHOUT
+  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+  FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
+  for more details.
+
+  You should have received a copy of the GNU Library General Public License
+  along with this library; if not, write to the Free Software Foundation,
+  Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+}
+unit AarrePkgList;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Laz2_XMLCfg, laz2_DOM;
+
+type
+  TAPackageType = (
+    aptRunTime,         // RunTime packages can't register anything in the IDE.
+                        // They can be used by designtime packages.
+    aptDesignTime,      // DesignTime packages can register anything in the IDE
+                        // and should not be compiled into projects.
+                        // The IDE calls the 'register' procedures of each unit.
+    aptRunAndDesignTime,// RunAndDesignTime packages can do anything.
+    aptRunTimeOnly      // as lptRunTime, but they can not be used in the IDE
+    );
+const
+  DefaultPackageType = aptRunTime;
+  AarrePkgListFileVersion = 1;
+type
+
+  { TAPkgVersion }
+
+  TAPkgVersion = class
+  private
+    FBuild: integer;
+    FMajor: integer;
+    FMinor: integer;
+    FRelease: integer;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure Load(XML: TXMLConfig; Path: string); virtual;
+    procedure Save(XML: TXMLConfig; Path: string); virtual;
+    function AsString: string;
+    property Major: integer read FMajor write FMajor;
+    property Minor: integer read FMinor write FMinor;
+    property Release: integer read FRelease write FRelease;
+    property Build: integer read FBuild write FBuild;
+  end;
+
+  { TAPkgDependency }
+
+  TAPkgDependency = class
+  private
+    FDefaultFilename: string;
+    FMaxVersion: TPkgVersion;
+    FMaxVersionValid: boolean;
+    FMinVersion: TPkgVersion;
+    FMinVersionValid: boolean;
+    FName: string;
+    FPreferDefaultFilename: boolean;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure Load(XML: TXMLConfig; Path: string); virtual;
+    procedure Save(XML: TXMLConfig; Path: string); virtual;
+    property Name: string read FName write FName;
+    property MinVersion: TPkgVersion read FMinVersion;
+    property MinVersionValid: boolean read FMinVersionValid write FMinVersionValid;
+    property MaxVersion: TPkgVersion read FMaxVersion;
+    property MaxVersionValid: boolean read FMaxVersionValid write FMaxVersionValid;
+    property DefaultFilename: string read FDefaultFilename write FDefaultFilename;
+    property PreferDefaultFilename: boolean read FPreferDefaultFilename write FPreferDefaultFilename;
+  end;
+
+  { TAPkgDependencies }
+
+  TAPkgDependencies = class
+  private
+    FItems: TFPList;
+    function GetItems(Index: integer): TAPkgDependency;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure Clear;
+    procedure Load(XML: TXMLConfig; Path: string); virtual;
+    procedure Save(XML: TXMLConfig; Path: string); virtual;
+    procedure Add(Item: TAPkgDependency);
+    procedure Insert(Index: integer; Item: TAPkgDependency);
+    procedure Delete(Index: integer);
+    function Count: integer;
+    property Items[Index: integer]: TAPkgDependency read GetItems;
+  end;
+
+  { TAarrePkgListItem }
+
+  TAarrePkgListItem = class
+  private
+    FAuthor: String;
+    FDescription: String;
+    FLicense: String;
+    FLPKFilename: string;
+    FName: string;
+    FPackageType: TAPackageType;
+    FVersion: TAPkgVersion;
+    procedure SetLPKFilename(AValue: string);
+    procedure SetName(AValue: string);
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure Load(XML: TXMLConfig; Path: string); virtual;
+    procedure Save(XML: TXMLConfig; Path: string); virtual;
+    property Name: string read FName write SetName;
+    property Version: TAPkgVersion read FVersion;
+    property PackageType: TAPackageType read FPackageType write FPackageType;
+    property Author: String read FAuthor write FAuthor;
+    property Description: String read FDescription write FDescription;
+    property License: String read FLicense write FLicense;
+
+    property LPKFilename: string read FLPKFilename write SetLPKFilename;
+  end;
+
+  { TAarrePkgList }
+
+  TAarrePkgList = class
+  private
+    fItems: TFPList;
+    function GetItems(Index: integer): TAarrePkgListItem;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure Clear;
+    procedure Load(XML: TXMLConfig; Path: string); virtual;
+    procedure Save(XML: TXMLConfig; Path: string); virtual;
+    procedure Add(Item: TAarrePkgListItem);
+    procedure Insert(Index: integer; Item: TAarrePkgListItem);
+    procedure Remove(Item: TAarrePkgListItem);
+    procedure Delete(Index: integer);
+    function IndexOf(Item: TAarrePkgListItem): integer;
+    function Count: integer;
+    property Items[Index: integer]: TAarrePkgListItem read GetItems; default;
+  end;
+
+const
+  APackageTypeIdents: array[TAPackageType] of string = (
+    'RunTime', 'DesignTime', 'RunAndDesignTime', 'RunTimeOnly');
+
+function APackageTypeIdentToType(const s: string): TAPackageType;
+
+implementation
+
+function APackageTypeIdentToType(const s: string): TAPackageType;
+begin
+  for Result:=Low(TAPackageType) to High(TAPackageType) do
+    if SysUtils.CompareText(s,APackageTypeIdents[Result])=0 then exit;
+  Result:=aptRunTime;
+end;
+
+{ TAPkgDependencies }
+
+function TAPkgDependencies.GetItems(Index: integer): TAPkgDependency;
+begin
+  Result:=TAPkgDependency(FItems[Index]);
+end;
+
+constructor TAPkgDependencies.Create;
+begin
+  FItems:=TFPList.Create;
+end;
+
+destructor TAPkgDependencies.Destroy;
+begin
+  Clear;
+  FreeAndNil(FItems);
+  inherited Destroy;
+end;
+
+procedure TAPkgDependencies.Clear;
+var
+  i: Integer;
+begin
+  for i:=Count-1 downto 0 do
+    Delete(i);
+end;
+
+procedure TAPkgDependencies.Load(XML: TXMLConfig; Path: string);
+begin
+
+end;
+
+procedure TAPkgDependencies.Save(XML: TXMLConfig; Path: string);
+begin
+
+end;
+
+procedure TAPkgDependencies.Add(Item: TAPkgDependency);
+begin
+  Insert(Count,Item);
+end;
+
+procedure TAPkgDependencies.Insert(Index: integer; Item: TAPkgDependency);
+begin
+  FItems.Insert(Index,Item);
+end;
+
+procedure TAPkgDependencies.Delete(Index: integer);
+begin
+  TObject(FItems[Index]).Free;
+  FItems.Delete(Index);
+end;
+
+function TAPkgDependencies.Count: integer;
+begin
+  Result:=FItems.Count;
+end;
+
+{ TAPkgVersion }
+
+constructor TAPkgVersion.Create;
+begin
+
+end;
+
+destructor TAPkgVersion.Destroy;
+begin
+  inherited Destroy;
+end;
+
+procedure TAPkgVersion.Load(XML: TXMLConfig; Path: string);
+begin
+  Major:=XML.GetValue(Path+'Major',0);
+  Minor:=XML.GetValue(Path+'Minor',0);
+  Release:=XML.GetValue(Path+'Release',0);
+  Build:=XML.GetValue(Path+'Build',0);
+end;
+
+procedure TAPkgVersion.Save(XML: TXMLConfig; Path: string);
+begin
+  XML.SetDeleteValue(Path+'Major',Major,0);
+  XML.SetDeleteValue(Path+'Minor',Minor,0);
+  XML.SetDeleteValue(Path+'Release',Release,0);
+  XML.SetDeleteValue(Path+'Build',Build,0);
+end;
+
+function TAPkgVersion.AsString: string;
+begin
+  Result:=IntToStr(Major)+'.'+IntToStr(Minor)+'.'+IntToStr(Release)+'.'+IntToStr(Build);
+end;
+
+{ TAarrePkgListItem }
+
+procedure TAarrePkgListItem.SetName(AValue: string);
+begin
+  if FName=AValue then Exit;
+  FName:=AValue;
+end;
+
+procedure TAarrePkgListItem.SetLPKFilename(AValue: string);
+begin
+  if FLPKFilename=AValue then Exit;
+  FLPKFilename:=AValue;
+end;
+
+constructor TAarrePkgListItem.Create;
+begin
+
+end;
+
+destructor TAarrePkgListItem.Destroy;
+begin
+  inherited Destroy;
+end;
+
+procedure TAarrePkgListItem.Load(XML: TXMLConfig; Path: string);
+begin
+  Name:=XML.GetValue(Path+'Name','');
+  Version.Load(XML,Path+'Version/');
+  PackageType:=APackageTypeIdentToType(xml.GetValue(Path+'Type',
+                                       APackageTypeIdents[DefaultPackageType]));
+  Author:=XML.GetValue(Path+'Author','');
+  Description:=XML.GetValue(Path+'Description/Value','');
+  License:=XML.GetValue(Path+'License/Value','');
+  LPKFilename:=XML.GetValue(Path+'LPKFilename/Value','');
+end;
+
+procedure TAarrePkgListItem.Save(XML: TXMLConfig; Path: string);
+begin
+  XML.SetDeleteValue(Path+'Name',Name,'');
+  Version.Save(XML,Path+'Version/');
+  XML.SetDeleteValue(Path+'Type',APackageTypeIdents[PackageType],
+                     APackageTypeIdents[DefaultPackageType]);
+  XML.SetDeleteValue(Path+'Author',Author,'');
+  XML.SetDeleteValue(Path+'Description/Value',Description,'');
+  XML.SetDeleteValue(Path+'License/Value',License,'');
+  XML.SetDeleteValue(Path+'LPKFilename/Value',LPKFilename,'');
+end;
+
+{ TAarrePkgList }
+
+function TAarrePkgList.GetItems(Index: integer): TAarrePkgListItem;
+begin
+  Result:=TAarrePkgListItem(fItems[Index]);
+end;
+
+constructor TAarrePkgList.Create;
+begin
+  fItems:=TFPList.Create;
+end;
+
+destructor TAarrePkgList.Destroy;
+begin
+  Clear;
+  FreeAndNil(fItems);
+  inherited Destroy;
+end;
+
+procedure TAarrePkgList.Clear;
+var
+  i: Integer;
+begin
+  for i:=Count-1 downto 0 do Delete(i);
+end;
+
+procedure TAarrePkgList.Load(XML: TXMLConfig; Path: string);
+var
+  {%H-}FileVersion: Integer;
+  NewCount: Integer;
+  i: Integer;
+  Item: TAarrePkgListItem;
+begin
+  Clear;
+  FileVersion:=XML.GetValue(Path+'Version',0);
+  NewCount:=XML.GetValue(Path+'Items/Count',0);
+  for i:=0 to NewCount-1 do begin
+    Item:=TAarrePkgListItem.Create;
+    Item.Load(XML,Path+'Items/Item'+IntToStr(i+1)+'/');
+    if Item.Name='' then
+      Item.Free
+    else
+      Add(Item);
+  end;
+end;
+
+procedure TAarrePkgList.Save(XML: TXMLConfig; Path: string);
+var
+  i: Integer;
+begin
+  XML.SetValue(Path+'Version',AarrePkgListFileVersion);
+  XML.SetDeleteValue(Path+'Items/Count',Count,0);
+  for i:=0 to Count-1 do begin
+    Items[i].Save(XML,Path+'Items/Item'+IntToStr(i+1)+'/');
+  end;
+end;
+
+procedure TAarrePkgList.Add(Item: TAarrePkgListItem);
+begin
+  Insert(Count,Item);
+end;
+
+procedure TAarrePkgList.Insert(Index: integer; Item: TAarrePkgListItem);
+begin
+  fItems.Insert(Index,Item);
+end;
+
+procedure TAarrePkgList.Remove(Item: TAarrePkgListItem);
+begin
+  fItems.Remove(Item);
+end;
+
+procedure TAarrePkgList.Delete(Index: integer);
+begin
+  TObject(fItems[Index]).Free;
+  fItems.Delete(Index);
+end;
+
+function TAarrePkgList.IndexOf(Item: TAarrePkgListItem): integer;
+begin
+  Result:=fItems.IndexOf(Item);
+end;
+
+function TAarrePkgList.Count: integer;
+begin
+  Result:=fItems.Count;
+end;
+
+{ TAPkgDependency }
+
+constructor TAPkgDependency.Create;
+begin
+  FMinVersion:=TPkgVersion.Create;
+  FMaxVersion:=TPkgVersion.Create;
+end;
+
+destructor TAPkgDependency.Destroy;
+begin
+  FreeAndNil(FMinVersion);
+  FreeAndNil(FMaxVersion);
+  inherited Destroy;
+end;
+
+procedure TAPkgDependency.Load(XML: TXMLConfig; Path: string);
+begin
+  MaxVersion.Load(XML,Path+'MaxVersion');
+  MaxVersionValid:=XML.GetValue(Path+'MaxVersion/Valid',false);
+  MinVersion.Load(XML,Path+'MinVersion');
+  MinVersionValid:=XML.GetValue(Path+'MinVersion/Valid',false);
+  DefaultFilename:=XML.GetValue(Path+'DefaultFilename/Value','');
+  PreferDefaultFilename:=XML.GetValue(Path+'DefaultFilename/Prefer',false);
+end;
+
+procedure TAPkgDependency.Save(XML: TXMLConfig; Path: string);
+begin
+  MaxVersion.Save(XML,Path+'MaxVersion');
+  XML.SetDeleteValue(Path+'MaxVersion/Valid',MaxVersionValid,false);
+  MinVersion.Save(XML,Path+'MinVersion');
+  XML.SetDeleteValue(Path+'MinVersion/Valid',MinVersionValid,false);
+  XML.SetDeleteValue(Path+'DefaultFilename/Value',FDefaultFilename,'');
+  XML.SetDeleteValue(Path+'DefaultFilename/Prefer',FPreferDefaultFilename,false);
+end;
+
+end.
+

components/aarre/tools/aarreupdatelist.lpi

@@ -31,17 +31,24 @@
         <FormatVersion Value="1"/>
       </local>
     </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
       <Item1>
-        <PackageName Value="LazUtils"/>
+        <PackageName Value="aarrebase"/>
       </Item1>
+      <Item2>
+        <PackageName Value="LazUtils"/>
+      </Item2>
     </RequiredPackages>
-    <Units Count="1">
+    <Units Count="2">
       <Unit0>
         <Filename Value="aarreupdatelist.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="aarreupdatelist"/>
       </Unit0>
+      <Unit1>
+        <Filename Value="README.txt"/>
+        <IsPartOfProject Value="True"/>
+      </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

components/aarre/tools/aarreupdatelist.lpr

@@ -249,6 +249,7 @@ begin
       ' License="',License,'"',
       ' Version="',Version.AsString,'"'
       ]);
+
   finally
     xml.Free;
   end;