Changeset 20 for trunk/UAcronym.pas

Timestamp:

May 4, 2016, 6:50:29 PM (9 years ago)

Author:

chronos

Message:

• Added: Concept of ImportFormats and ImportSources to store information about multiple import sources.

File:

• trunk/UAcronym.pas (modified) (8 diffs)

trunk/UAcronym.pas

@@ -13 +13 @@
   TAcronymMeanings = class;
   TAcronymDb = class;
+  TImportSources = class;
 
   TAcronymSource = class
@@ -107 +108 @@
   end;
 
+  TImportPattern = record
+    StartString: string;
+    EndString: string;
+    NewItem: Boolean;
+  end;
+
+  { TImportFormat }
+
+  TImportFormat = class
+    Id: Integer;
+    Name: string;
+    Acronym: TImportPattern;
+    Meaning: TImportPattern;
+    Description: TImportPattern;
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
+  end;
+
+  { TImportFormats }
+
+  TImportFormats = class(TObjectList)
+    procedure UpdateIds;
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
+    function SearchById(Id: Integer): TImportFormat;
+  end;
+
+  { TImportSource }
+
+  TImportSource = class
+    Name: string;
+    URL: string;
+    Format: TImportFormat;
+    LastTime: TDateTime;
+    Sources: TImportSources;
+    procedure Assign(Source: TImportSource);
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TImportSources }
+
+  TImportSources = class(TObjectList)
+    AcronymDb: TAcronymDb;
+    function SearchByName(Name: string): TImportSource;
+    procedure SaveToNode(Node: TDOMNode);
+    procedure LoadFromNode(Node: TDOMNode);
+  end;
+
   { TAcronymDb }
 
@@ -114 +166 @@
     Acronyms: TAcronyms;
     Categories: TAcronymCategories;
+    ImportSources: TImportSources;
+    ImportFormats: TImportFormats;
     Modified: Boolean;
     constructor Create;
@@ -140 +194 @@
 end;
 
+{ TImportFormat }
+
+procedure TImportFormat.SaveToNode(Node: TDOMNode);
+begin
+  WriteInteger(Node, 'Id', Id);
+  WriteString(Node, 'Name', Name);
+  WriteString(Node, 'AcronymStartString', Acronym.StartString);
+  WriteString(Node, 'AcronymEndString', Acronym.EndString);
+  WriteString(Node, 'MeaningStartString', Meaning.StartString);
+  WriteString(Node, 'MeaningEndString', Meaning.EndString);
+  WriteString(Node, 'DescriptionStartString', Description.StartString);
+  WriteString(Node, 'DescriptionEndString', Description.EndString);
+end;
+
+procedure TImportFormat.LoadFromNode(Node: TDOMNode);
+begin
+  Id := ReadInteger(Node, 'Id', 0);
+  Name := ReadString(Node, 'Name', '');
+  Acronym.StartString := ReadString(Node, 'AcronymStartString', '');
+  Acronym.EndString := ReadString(Node, 'AcronymEndString', '');
+  Meaning.StartString := ReadString(Node, 'MeaningStartString', '');
+  Meaning.EndString := ReadString(Node, 'MeaningEndString', '');
+  Description.StartString := ReadString(Node, 'DescriptionStartString', '');
+  Description.EndString := ReadString(Node, 'DescriptionEndString', '');
+end;
+
+{ TImportSources }
+
+function TImportSources.SearchByName(Name: string): TImportSource;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TImportSource(Items[I]).Name <> Name) do Inc(I);
+  if I < Count then Result := TImportSource(Items[I])
+    else Result := nil;
+end;
+
+procedure TImportSources.SaveToNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode2: TDOMNode;
+begin
+  for I := 0 to Count - 1 do
+  with TImportSource(Items[I]) do begin
+    NewNode2 := Node.OwnerDocument.CreateElement('ImportSource');
+    Node.AppendChild(NewNode2);
+    SaveToNode(NewNode2);
+  end;
+end;
+
+procedure TImportSources.LoadFromNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewItem: TImportSource;
+begin
+  Count := 0;
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'ImportSource') do begin
+    NewItem := TImportSource.Create;
+    NewItem.Sources := Self;
+    NewItem.LoadFromNode(Node2);
+    Add(NewItem);
+    Node2 := Node2.NextSibling;
+  end;
+end;
+
+{ TImportFormats }
+
+procedure TImportFormats.UpdateIds;
+var
+  LastId: Integer;
+  I: Integer;
+begin
+  // Get highest used ID
+  LastId := 0;
+  for I := 0 to Count - 1 do begin
+    if TImportFormat(Items[I]).Id > LastId then LastId := TImportFormat(Items[I]).Id;
+  end;
+  // Add ID to new items without ID
+  for I := 0 to Count - 1 do begin
+    if TImportFormat(Items[I]).Id = 0 then begin
+      Inc(LastId);
+      TImportFormat(Items[I]).Id := LastId;
+    end;
+  end;
+end;
+
+procedure TImportFormats.SaveToNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode2: TDOMNode;
+begin
+  UpdateIds;
+  for I := 0 to Count - 1 do
+  with TImportFormat(Items[I]) do begin
+    NewNode2 := Node.OwnerDocument.CreateElement('ImportFormat');
+    Node.AppendChild(NewNode2);
+    SaveToNode(NewNode2);
+  end;
+end;
+
+procedure TImportFormats.LoadFromNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewItem: TImportFormat;
+begin
+  Count := 0;
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'ImportFormat') do begin
+    NewItem := TImportFormat.Create;
+    NewItem.LoadFromNode(Node2);
+    Add(NewItem);
+    Node2 := Node2.NextSibling;
+  end;
+  UpdateIds;
+end;
+
+function TImportFormats.SearchById(Id: Integer): TImportFormat;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TImportFormat(Items[I]).Id <> Id) do Inc(I);
+  if I < Count then Result := TImportFormat(Items[I])
+    else Result := nil;
+end;
+
+{ TImportSource }
+
+procedure TImportSource.Assign(Source: TImportSource);
+begin
+  Name := Source.Name;
+  URL := Source.URL;
+  Format := Source.Format;
+end;
+
+procedure TImportSource.SaveToNode(Node: TDOMNode);
+begin
+  WriteString(Node, 'Name', Name);
+  WriteString(Node, 'URL', URL);
+  if Assigned(Format) then WriteInteger(Node, 'ImportFormat', Format.Id)
+    else WriteInteger(Node, 'ImportFormat', -1);
+end;
+
+procedure TImportSource.LoadFromNode(Node: TDOMNode);
+begin
+  Name := ReadString(Node, 'Name', '');
+  URL := ReadString(Node, 'URL', '');
+  Format := Sources.AcronymDb.ImportFormats.SearchById(ReadInteger(Node, 'ImportFormat', -1));
+end;
+
+constructor TImportSource.Create;
+begin
+  Format := nil;
+end;
+
+destructor TImportSource.Destroy;
+begin
+  inherited Destroy;
+end;
+
 { TAcronymEntry }
 
@@ -149 +365 @@
 destructor TAcronymEntry.Destroy;
 begin
-  Categories.Free;
+  FreeAndNil(Categories);
   inherited Destroy;
 end;
@@ -492 +708 @@
   Acronyms.Db := Self;
   Categories := TAcronymCategories.Create;
+  ImportSources := TImportSources.Create;
+  ImportSources.AcronymDb := Self;
+  ImportFormats := TImportFormats.Create;
 end;
 
 destructor TAcronymDb.Destroy;
 begin
+  FreeAndNil(ImportFormats);
+  FreeAndNil(ImportSources);
   FreeAndNil(Sources);
   FreeAndNil(Acronyms);
@@ -527 +748 @@
       if Assigned(NewNode) then
         Acronyms.LoadFromNode(NewNode);
+
+      NewNode := FindNode('ImportFormats');
+      if Assigned(NewNode) then
+        ImportFormats.LoadFromNode(NewNode);
+
+      NewNode := FindNode('ImportSources');
+      if Assigned(NewNode) then
+        ImportSources.LoadFromNode(NewNode);
     end;
   finally
@@ -557 +786 @@
       AppendChild(NewNode);
       Acronyms.SaveToNode(NewNode);
+
+      NewNode := OwnerDocument.CreateElement('ImportFormats');
+      AppendChild(NewNode);
+      ImportFormats.SaveToNode(NewNode);
+
+      NewNode := OwnerDocument.CreateElement('ImportSources');
+      AppendChild(NewNode);
+      ImportSources.SaveToNode(NewNode);
     end;
     ForceDirectories(ExtractFileDir(FileName));