Changeset 4739 for trunk/Ohana/etc/mkdist

Timestamp:

Aug 10, 2005, 6:49:40 AM (21 years ago)

Author:

eugene

Message:

moved distribution tables to separate files in directory

File:

• trunk/Ohana/etc/mkdist (modified) (2 diffs)

trunk/Ohana/etc/mkdist

@@ -1 +1 @@
 #!/usr/bin/env perl
 
-$dist = "distributions.txt";
+$distdir = "distributions";
 
 if (@ARGV != 2) { die "USAGE: mkdist (group) (version)\n"; }
 
-open (FILE, $dist) || die "ERROR: can't open distribution file\n";
-@list = <FILE>;
-close (FILE);
+@files = <$distdir/*.dst>;
+foreach $file (@files) {
+    open (FILE, $file) || die "ERROR: can't open distribution file\n";
+    @sublist = <FILE>;
+    close (FILE);
+    push @list, @sublist;
+    $Ns = @sublist;
+    $Nt = @list;
+    print STDERR "read $Ns from $file, $Nt so far\n";
+}
 
 $group = $ARGV[0];
@@ -67 +74 @@
 sub vsystem {
     print STDERR "@_\n";
-    $status = system ("@_");
+    # $status = system ("@_");
     $status;
 }