[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[tyndur-devel] [PATCH] lpt: Lokale Pakete



Mit dem Patch können jetzt auch Lokale Pakete wieder installiert werden
Achtung, braucht immernoch das "kriminelle" ExtractString ;)

-- 
Alexander Siol
alex@xxxxxxxxxx
dunklermeuchler@xxxxxxxxx
diff --git a/trunk/src/modules/pas/lpt/lpt.pas b/trunk/src/modules/pas/lpt/lpt.pas
index e3f613d..a42125a 100644
--- a/trunk/src/modules/pas/lpt/lpt.pas
+++ b/trunk/src/modules/pas/lpt/lpt.pas
@@ -9,6 +9,8 @@ begin
     WriteLn('  scan: Lädt die Paketlisten von den Servern');
     WriteLn('  list: Zeigt alle installierten Pakete an');
     WriteLn('  get:  Installiert das angegebene Paket');
+    WriteLn('  install: Installiert das angegebene Paket aus lokaler Datei');
+    WriteLn('           Achtung, Datei als letzten Parameter angeben!');
 end;
 
 procedure Scan;
@@ -162,6 +164,14 @@ begin
     end;
 end;
 
+procedure Install(pkgfile: String; pkgname: String; reinstall: boolean);
+var
+    repo: TRepository;
+begin
+    AddRepository(pkgname, pkgfile, 'singlefile');
+    Get(pkgname, reinstall);
+end;
+
 procedure List;
 var
     srec: SearchRec;
@@ -266,6 +276,20 @@ begin
             WriteLn('Falsche Parameterzahl');
             PrintUsage;
         end;
+    end else if system.ParamStr(1) = 'install' then begin
+        if system.ParamCount = 3 then begin
+            Install(system.ParamStr(3), system.ParamStr(2), false);
+        end else begin
+            WriteLn('Falsche Parameterzahl');
+            PrintUsage;
+        end;
+    end else if system.ParamStr(1) = 'reinstall' then begin
+        if system.ParamCount = 3 then begin
+            Install(system.ParamStr(3), system.ParamStr(2), true);
+        end else begin
+            WriteLn('Falsche Parameterzahl');
+            PrintUsage;
+        end;
     end else if system.ParamStr(1) = 'cfg-addbin' then begin
         if system.ParamCount = 3 then begin
             CfgAddbin(system.ParamStr(2), system.ParamStr(3));
diff --git a/trunk/src/modules/pas/lpt/repositories.pas b/trunk/src/modules/pas/lpt/repositories.pas
index c68ec66..a68908d 100644
--- a/trunk/src/modules/pas/lpt/repositories.pas
+++ b/trunk/src/modules/pas/lpt/repositories.pas
@@ -2,7 +2,7 @@ unit repositories;
 {$MODE ObjFPC}
 
 interface
-uses sysutils, classes, helpers, baserepository, httprepository;
+uses sysutils, classes, helpers, baserepository, httprepository, sfrepository;
 
 procedure ReadPkgsrc(filename: String);
 procedure AddRepository(name, url, repostype: String);
@@ -20,6 +20,8 @@ var
 begin
     if repostype = 'http' then begin
         repo := THTTPRepository.create(repos);
+    end else if repostype = 'singlefile' then begin
+        repo := TSFRepository.create(repos);
     end else begin
         WriteLn('ACHTUNG - Repository unbekannten Typs erzeugen geht nicht!');
         WriteLn('Angefordert: ' + repostype);
diff --git a/trunk/src/modules/pas/lpt/sfrepository.pas b/trunk/src/modules/pas/lpt/sfrepository.pas
new file mode 100644
index 0000000..571e578
--- /dev/null
+++ b/trunk/src/modules/pas/lpt/sfrepository.pas
@@ -0,0 +1,106 @@
+unit sfrepository;
+{$MODE ObjFPC}
+
+interface
+uses sysutils, classes, tar, packages, helpers, baserepository;
+
+type
+    TSFRepository = class(TRepository)
+        public
+            constructor create(parent : TCollection);
+            function Download(version: TPackageVersion): TTarArchive; override;
+            function PrepareLists: boolean; override;
+            function FetchLists(pkgset: TPackageSet): boolean; override;
+    end;
+
+implementation
+
+constructor TSFRepository.create(parent : TCollection);
+begin
+    inherited;
+    repostype := 'singlefile';
+end;
+
+function TSFRepository.Download(version: TPackageVersion): TTarArchive;
+var
+    tar: TTarArchive;
+begin
+    (* Einzelpakete enthalten nur sich selbst. Nur als Tar öffnen reicht. *)
+    tar := TTarArchive.create(self.url);
+    exit(tar);
+end;
+
+function TSFRepository.PrepareLists: boolean;
+begin
+    (* Einzelpakete haben keine Listen. *)
+    exit(true);
+end;
+
+function TSFRepository.FetchLists(pkgset: TPackageSet): boolean;
+var
+    package: TTarArchive;
+    line: String;
+    i: integer;
+    size: integer;
+
+    package_file_string: String;
+    pkg_name, pkg_version, pkg_section, pkg_arch: String;
+
+    pkg: TPackage;
+    section: TPackageSection;
+    version: TPackageVersion;
+begin
+    package := TTarArchive.create(self.url);
+    while package.hasNext do begin
+        line := package.nextFilename;
+        size := package.nextSize;
+        i := Pos('packageinfo', line);
+        if i > 0 then begin
+            (* Metadaten laden *)
+            package_file_string :=  package.ExtractString();
+
+            (* Newline-getrennte Infos auslesen. *)
+            (* In Reihenfolge: Name, Version, Sektion, Architektur *)
+            i := Pos(#10, package_file_string);
+            pkg_name := Copy(package_file_string, 1, i - 1);
+            package_file_string :=
+                Copy(package_file_string, i + 1, Length(package_file_string));
+
+            i := Pos(#10, package_file_string);
+            pkg_version := Copy(package_file_string, 1, i - 1);
+            package_file_string :=
+                Copy(package_file_string, i + 1, Length(package_file_string));
+
+            i := Pos(#10, package_file_string);
+            pkg_section := Copy(package_file_string, 1, i - 1);
+            package_file_string :=
+                Copy(package_file_string, i + 1, Length(package_file_string));
+
+            i := Pos(#10, package_file_string);
+            pkg_arch := Copy(package_file_string, 1, i - 1);
+            package_file_string :=
+                Copy(package_file_string, i + 1, Length(package_file_string));
+
+            (* Prüfen ob Metadaten zu Paket passen *)
+            if (line = 'packages/'+pkg_name+'/'+pkg_version+'/packageinfo-'+pkg_section) then begin
+                pkg := pkgset.add(pkg_name);
+                pkg.desc := 'Keine (lokale Datei)';
+                section := pkg.add(pkg_section);
+                version := section.add(pkg_version);
+                version.pkg := pkg;
+                version.section := section;
+                version.repository := self.name;
+                break;
+            end else begin
+                WriteLn('Metadaten passen nicht zu Paket!');
+            end;
+        end else begin
+            package.skipFile();
+        end;
+    end;
+    package.destroy();
+    exit(true);
+end;
+
+begin
+end.

Attachment: signature.asc
Description: Digital signature