Changeset 4739

Timestamp:

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

Author:

eugene

Message:

moved distribution tables to separate files in directory

Location:

trunk/Ohana/etc

Files:

• distributions (added)
• distributions.txt (deleted)
• distributions/dvo-1.0.dst (added)
• distributions/elixir-config.dst (added)
• distributions/elixir-ohana-1.0.dst (added)
• distributions/elixir-ohana-1.1.dst (added)
• distributions/elixir-ohana-1.2.dst (added)
• distributions/elixir-ohana-1.3.dst (added)
• distributions/elixir-ohana-head.dst (added)
• distributions/mana-1.0.dst (added)
• distributions/mana-1.1.dst (added)
• distributions/ohana-tools-1.0.dst (added)
• distributions/psched-1.0.dst (added)
• 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;
 }