Changeset 2633

Timestamp:

Dec 4, 2004, 1:19:54 AM (22 years ago)

Author:

eugene

Message:

distribution code

Location:

trunk/Ohana/etc

Files:

• distributions.txt (added)
• mkdist (modified) (1 diff)

trunk/Ohana/etc/mkdist

@@ -1 @@
-#!/bin/csh -f
+#!/usr/bin/env perl
 
-cvs co base
+$dist = "distributions.txt";
 
-cvs co -r libdummy-1-0 libdummy
-cvs co -r libohana-1-0 libohana
-cvs co -r libfits-1-0 libfits
+if (@ARGV != 2) { die "USAGE: mkdist (group) (version)\n"; }
 
-cvs co -r kapa-1-0 kapa
-cvs co -r kii-1-0 kii
+open (FILE, $dist) || die "ERROR: can't open distribution file\n";
+@list = <FILE>;
+close (FILE);
 
-cvs co opihi.v2
+$group = $ARGV[0];
+$version = $ARGV[1];
+
+$ingroup = 0;
+@name = ();
+@tag = ();
+
+foreach $line (@list) {
+
+    ($key) = split (" ", $line);
+
+    # found DISTRIBUTION
+    if ($key eq "DISTRIBUTION") {
+        ($tmp, $word1, $word2) = split (" ", $line);
+        if (($word1 eq $group) && ($word2 eq $version)) { $ingroup = 1; }
+    }
+    if (!$ingroup) { next; }
+
+    # found END
+    if ($key eq "END") { last; }
+
+    # found USE
+    if ($key eq "USE") {
+        ($tmp, $word1, $word2) = split (" ", $line);
+        if ($word2 eq "") {
+            $tag  = "";
+            $name = $word1;
+        } else {
+            $tag  = $word1;
+            $name = $word2;
+        }           
+        if ($name eq "") { die "missing tag\n"; }
+        push @name, $name;
+        push @tag, $tag;
+    }
+}
+
+if (@name == 0) { die "ERROR: $group $version not found\n"; }
+
+for ($i = 0; $i < @name; $i++) {
+    if ($tag[$i] eq "") {
+        &vsystem ("cvs co $name[$i]");
+    } else {
+        &vsystem ("cvs co -r $tag[$i] $name[$i]");
+    }   
+}
+
+&vsystem ("mv ohana $group-$version");
+
+sub vsystem {
+    print STDERR "@_\n";
+    $status = system ("@_");
+    $status;
+}
+