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

[Kevin Wolf <mail@xxxxxxxxxxxxx>]

Am Donnerstag, 14. Mai 2009 18:51 schrieb Alexander Siol:
> ---
>  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);

Je nachdem, wie die vorherigen Patches am Ende aussehen (enum oder 
Kindklassen), wird sich dieser Code noch verändern müssen. Sieht aber sonst 
okay aus.