Changeset 29510 for main/trunk/package-kits

Timestamp:

2014-12-02T11:39:01+13:00 (9 years ago)

Author:

Jeremy Symon

Message:

Renamed platforms to distros, and fixed problem when generating for multiple distros

Location:

main/trunk/package-kits/linux

Files:

• distros (moved) (moved from main/trunk/package-kits/linux/platforms )
• generate (modified) (3 diffs)

main/trunk/package-kits/linux/generate

@@ -15 +15 @@
 
 
-my $USAGE = "Usage: " . basename($0) . " <platforms> <packages>
-    platforms: A comma separated list of the platforms defined in platforms/
-               Or 'all' (for all platforms)
+my $USAGE = "Usage: " . basename($0) . " <distros> <packages>
+    distros: A comma separated list of the distros defined in distros/
+               Or 'all' (for all distros)
     packages:  A comma separated list of the packages defined in packages/
                Or 'all' (for all packages)
@@ -110 +110 @@
 }
 
-my @platforms = globbify "platforms", shift;
-my @packages  = globbify "packages",  shift;
+my @distros  = globbify "distros",  shift;
+my @packages = globbify "packages", shift;
 
-for (@platforms) {
-    my $platform = basename $_;
-    print "$platform\n";
+for my $dconf (@distros) {
+    my $distro = basename $dconf;
+    print "$distro\n";
 
-    open PLATFORM, '<', $_;
-    my %platform_vars;
-    while (<PLATFORM>) {
+    open DISTRO, '<', $dconf;
+    my %distro_vars;
+    while (<DISTRO>) {
         chomp;
         (comment or empty) and next;
-        readvar \%platform_vars, $_;
+        readvar \%distro_vars, $_;
     }
-    close PLATFORM;
+    close DISTRO;
 
-    for (@packages) {
-        my $package = basename $_;
+    for my $pconf (@packages) {
+        my $package = basename $pconf;
         print " - $package\n";
-        my $package_path = "build/$platform/$package";
+        my $package_path = "build/$distro/$package";
         make_path $package_path;
 
-        open PACKAGE, '<', $_;
-        my %package_vars = %{dclone \%platform_vars};
+        open PACKAGE, '<', $pconf;
+        my %package_vars = %{dclone \%distro_vars};
         while (<PACKAGE>) {
             chomp;
@@ -175 +175 @@
 
         # write the package manager files
-        copydir ("managers/$platform_vars{'MANAGER'}", $package_path, \%package_vars);
+        copydir ("managers/$distro_vars{'MANAGER'}", $package_path, \%package_vars);
     }
 }