[tyndur-devel] [PATCH] + lpt: AddRepository als Hilfsfunktion um aus anderen Programmteilen neue Repos zu laden

[Alexander Siol <alex@xxxxxxxxxx>]

---
 trunk/src/modules/pas/lpt/repositories.pas |   12 ++++++++++++
 1 files changed, 12 insertions(+), 0 deletions(-)

diff --git a/trunk/src/modules/pas/lpt/repositories.pas b/trunk/src/modules/pas/lpt/repositories.pas
index 33aa286..d2cb8da 100644
--- a/trunk/src/modules/pas/lpt/repositories.pas
+++ b/trunk/src/modules/pas/lpt/repositories.pas
@@ -14,6 +14,7 @@ type
 
 
 procedure ReadPkgsrc(filename: String);
+procedure AddRepository(name, url, repostype: String);
 function GetRepository(name: String): TRepository;
 function GetAllRepositories(): TCollection;
 
@@ -22,6 +23,17 @@ implementation
 var
     repos: TCollection;
 
+
+procedure AddRepository(name, url, repostype: String);
+var
+    repo: TRepository;
+begin
+    repo := TRepository(repos.add());
+    repo.name := name;
+    repo.url := url;
+    repo.repostype := repostype;
+end;
+
 function GetAllRepositories(): TCollection;
 begin
     exit(repos);
-- 
1.5.6.3