paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-28 17:42:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

aarre: started pkg list

Browse Source 
git-svn-id: trunk@38475 -
This commit is contained in:
mattias 2012-09-01 23:50:34 +00:00
parent 4f588d7a62
commit b10c7aef8b
6 changed files with 518 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -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

39
components/aarre/src/aarrebase.lpk Normal file
View File

@ -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>

20
components/aarre/src/aarrebase.pas Normal file
View File

@ -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.

445
components/aarre/src/aarrepkglist.pas Normal file
View File

@ -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.

13
components/aarre/tools/aarreupdatelist.lpi
View File

@ -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>

1
components/aarre/tools/aarreupdatelist.lpr
View File

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