pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

svnclasses: implemented reading svn log output

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@98 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2007-02-27 14:09:02 +00:00
parent aaa1e2cc6a
commit 0280be7f26
6 changed files with 421 additions and 298 deletions
Download Patch File Download Diff File Expand all files Collapse all files

284
components/svn/svnclasses.pas
View File

@ -6,11 +6,23 @@ interface
uses
Classes, SysUtils,
contnrs,
DOM, XMLRead;
type
TEntryKind = (ekUnknown, ekFile, ekDirectory);
TCommitAction = (caUnknown, caModify, caAdd, caDelete);
{ TSvnBase }
TSvnBase = class
private
procedure LoadFromXml(ADoc: TXMLDocument); virtual; abstract;
public
procedure LoadFromStream(s: TStream);
procedure LoadFromFile(FileName: string);
end;
{ TCommit }
@ -65,21 +77,114 @@ type
{ TSvnInfo }
TSvnInfo = class
TSvnInfo = class(TSvnBase)
private
FEntry: TEntry;
procedure LoadFromXml(ADoc: TXMLDocument);
procedure LoadFromXml(ADoc: TXMLDocument); override;
public
constructor Create;
destructor Destroy; override;
procedure Clear;
procedure LoadFromStream(s: TStream);
procedure LoadFromFile(FileName: string);
property Entry: TEntry read FEntry;
end;
{ TLogPath }
TLogPath = class
private
FAction: TCommitAction;
FCopyFromPath: string;
FCopyFromRevision: integer;
FPath: string;
procedure LoadFromNode(ANode: TDomElement);
public
property Action : TCommitAction read FAction write FAction;
property CopyFromRevision: integer read FCopyFromRevision write FCopyFromRevision;
property CopyFromPath: string read FCopyFromPath write FCopyFromPath;
property Path: string read FPath write FPath;
end;
{ TLogEntry }
TLogEntry = class
private
FAuthor: string;
FDate: string;
FLogPaths: TFPObjectList;
FMessage: string;
FRevision: integer;
function GetLogPath(index: integer): TLogPath;
function GetLogPathCount: integer;
procedure LoadFromNode(ANode: TDOMElement);
public
constructor Create;
destructor Destroy; override;
property Author: string read FAuthor write FAuthor;
property Date: string read FDate write FDate;
property Message: string read FMessage write FMessage;
property Path[index: integer] :TLogPath read GetLogPath;
property PathCount: integer read GetLogPathCount;
property Revision: integer read FRevision write FRevision;
end;
{ TSvnLog }
TSvnLog = class(TSvnBase)
private
FLogEntries: TFPObjectList;
function GetLogEntry(index: integer): TLogEntry;
function GetLogEntryCount: integer;
procedure LoadFromXml(ADoc: TXMLDocument); override;
public
constructor Create;
destructor Destroy; override;
procedure Clear;
property LogEntry[index: integer] :TLogEntry read GetLogEntry;
property LogEntryCount: integer read GetLogEntryCount;
end;
implementation
const
ActionStrings : array[TCommitAction] of char =
(' ','M','A','D');
function GetChildTextContent(ANode: TDomNode; const AName: string) : string;
var
ChildNode: TDOMNode;
begin
Result := '';
ChildNode := ANode.FindNode(AName);
if assigned(ChildNode) then
Result := ChildNode.TextContent;
end;
{ TSvnBase }
procedure TSvnBase.LoadFromStream(s: TStream);
var
ADoc: TXMLDocument;
begin
ReadXMLFile(ADoc, s);
try
LoadFromXml(ADoc);
finally
ADoc.Free;
end;
end;
procedure TSvnBase.LoadFromFile(FileName: string);
var
ADoc: TXMLDocument;
begin
ReadXMLFile(ADoc, FileName);
try
LoadFromXml(ADoc);
finally
ADoc.Free;
end;
end;
{ TSvnInfo }
procedure TSvnInfo.LoadFromXml(ADoc: TXMLDocument);
@ -105,30 +210,6 @@ begin
FEntry.Clear;
end;
procedure TSvnInfo.LoadFromStream(s: TStream);
var
ADoc: TXMLDocument;
begin
ReadXMLFile(ADoc, s);
try
LoadFromXml(ADoc);
finally
ADoc.Free;
end;
end;
procedure TSvnInfo.LoadFromFile(FileName: string);
var
ADoc: TXMLDocument;
begin
ReadXMLFile(ADoc, FileName);
try
LoadFromXml(ADoc);
finally
ADoc.Free;
end;
end;
{ TEntry }
procedure TEntry.LoadFromNode(ANode: TDomNode);
@ -186,21 +267,11 @@ end;
{ TRepository }
procedure TRepository.LoadFromNode(ANode: TDomNode);
var
RepositoryNode: TDomElement;
ChildNode: TDOMNode;
begin
if ANode=nil then exit;
if ANode.NodeType = ELEMENT_NODE then begin
RepositoryNode := TDomElement(ANode);
ChildNode := RepositoryNode.FindNode('root');
if assigned(ChildNode) then
FRoot := ChildNode.TextContent;
ChildNode := RepositoryNode.FindNode('uuid');
if assigned(ChildNode) then
FUUID := ChildNode.TextContent;
end;
FRoot := GetChildTextContent(ANode, 'root');
FUUID := GetChildTextContent(ANode, 'uuid');
end;
procedure TRepository.Clear;
@ -212,21 +283,13 @@ end;
{ TCommit }
procedure TCommit.LoadFromNode(ANode: TDomNode);
var
CommitNode: TDomElement;
ChildNode: TDOMNode;
begin
if ANode=nil then exit;
if ANode.NodeType = ELEMENT_NODE then begin
CommitNode := TDomElement(ANode);
FRevision := StrToIntDef(CommitNode.GetAttribute('revision'),0);
ChildNode := CommitNode.FindNode('author');
if assigned(ChildNode) then
FAuthor := ChildNode.TextContent;
ChildNode := CommitNode.FindNode('date');
if assigned(ChildNode) then
FDate := ChildNode.TextContent;
FRevision := StrToIntDef(TDomElement(ANode).GetAttribute('revision'),0);
FAuthor := GetChildTextContent(ANode, 'author');
FDate := GetChildTextContent(ANode, 'date');
end;
end;
@ -237,5 +300,124 @@ begin
FRevision := 0;
end;
{ TSvnLog }
function TSvnLog.GetLogEntry(index: integer): TLogEntry;
begin
Result := TLogEntry(FLogEntries[index]);
end;
function TSvnLog.GetLogEntryCount: integer;
begin
Result := FLogEntries.Count;
end;
procedure TSvnLog.LoadFromXml(ADoc: TXMLDocument);
var
LogEntryElement: TDomNode;
NewLogEntry: TLogEntry;
begin
Clear;
LogEntryElement := ADoc.FindNode('log').FirstChild;
while assigned(LogEntryElement) do begin
if (LogEntryElement.NodeType=ELEMENT_NODE)
and (LogEntryElement.NodeName='logentry') then
begin
NewLogEntry := TLogEntry.Create;
NewLogEntry.LoadFromNode(TDomElement(LogEntryElement));
FLogEntries.Add(NewLogEntry);
end;
LogEntryElement := LogEntryElement.NextSibling;
end;
end;
constructor TSvnLog.Create;
begin
inherited Create;
FLogEntries := TFPObjectList.Create(true);
end;
destructor TSvnLog.Destroy;
begin
FLogEntries.Free;
inherited Destroy;
end;
procedure TSvnLog.Clear;
begin
FLogEntries.Clear;
end;
{ TLogEntry }
function TLogEntry.GetLogPath(index: integer): TLogPath;
begin
Result := TLogPath(FLogPaths[index]);
end;
function TLogEntry.GetLogPathCount: integer;
begin
Result := FLogPaths.Count;
end;
procedure TLogEntry.LoadFromNode(ANode: TDOMElement);
var
PathsELement: TDomNode;
PathElement: TDomNode;
NewLogPath: TLogPath;
begin
FRevision := StrToIntDef(ANode.GetAttribute('revision'),0);
FAuthor := GetChildTextContent(ANode, 'author');
FDate := GetChildTextContent(ANode, 'date');
FMessage := GetChildTextContent(ANode, 'msg');
PathsElement := ANode.FindNode('paths');
if assigned(PathsELement) then begin
PathElement := PathsELement.FirstChild;
while assigned(PathElement) do begin
if (PathElement.NodeType=ELEMENT_NODE)
and (PathElement.NodeName='path') then
begin
NewLogPath := TLogPath.Create;
NewLogPath.LoadFromNode(TDomElement(PathElement));
FLogPaths.Add(NewLogPath);
end;
PathElement := PathElement.NextSibling;
end;
end;
end;
constructor TLogEntry.Create;
begin
inherited Create;
FLogPaths := TFPObjectList.Create(true);
end;
destructor TLogEntry.Destroy;
begin
FLogPaths.Free;
inherited Destroy;
end;
{ TLogPath }
procedure TLogPath.LoadFromNode(ANode: TDomElement);
var
ActionStr: string;
i: TCommitAction;
begin
FPath := ANode.TextContent;
FCopyFromRevision := StrToIntDef(ANode.GetAttribute('copyfrom-rev'),0);
FCopyFromPath := ANode.GetAttribute('copyfrom-path');
ActionStr := ANode.GetAttribute('action');
FAction := caUnknown;
for i := low(TCommitAction) to high(TCommitAction) do
if ActionStrings[i]=ActionStr then begin
FAction := i;
break;
end;
end;
end.