Renamed convertRelease target 'STDOUT' to 'releaseTops' and fixed build files.

Removed the -h option to convertRelease, use $ENV{EPICS_HOST_ARCH} instead. Reworked variables associated with expandVars to make it simpler to use. Split EPICS::Utils module into three parts. Moved code from fullPathName.pl into the new EPICS::Path module. Changed convertRelease.pl to use new modules. Added some documentation to RELEASE_NOTES.html
2008-04-03 21:57:16 +00:00
parent 2a9ccaf2c0
commit fb930b6b0e
15 changed files with 616 additions and 495 deletions
@@ -0,0 +1,75 @@
+#*************************************************************************
+# Copyright (c) 2008 UChicago Argonne LLC, as Operator of Argonne
+#     National Laboratory.
+# EPICS BASE is distributed subject to a Software License Agreement found
+# in file LICENSE that is included with this distribution.
+#*************************************************************************
+
+# $Id$
+
+# Copy directories and files from a template
+
+sub copyTree {
+    my ($src, $dst, $Rnamesubs, $Rtextsubs) = @_;
+    # $Rnamesubs contains substitutions for file names,
+    # $Rtextsubs contains substitutions for file content.
+
+    opendir my $FILES, $src
+        or die "opendir failed while copying $src: $!\n";
+    my @entries = readdir $FILES;
+    closedir $FILES;
+
+    foreach (@entries) {
+        next if m/^\.\.?$/;  # ignore . and ..
+        next if m/^CVS$/;   # Shouldn't exist, but...
+
+        my $srcName = "$src/$_";
+
+        # Substitute any _VARS_ in the name
+        s/@(\w+?)@/$Rnamesubs->{$1} || "@$1@"/eg;
+        my $dstName = "$dst/$_";
+
+        if (-d $srcName) {
+            print ":" unless $opt_d;
+            copyDir($srcName, $dstName, $Rnamesubs, $Rtextsubs);
+        } elsif (-f $srcName) {
+            print "." unless $opt_d;
+            copyFile($srcName, $dstName, $Rtextsubs);
+        } elsif (-l $srcName) {
+            warn "\nSoft link in template, ignored:\n\t$srcName\n";
+        } else {
+            warn "\nUnknown file type in template, ignored:\n\t$srcName\n";
+        }
+    }
+}
+
+sub copyDir {
+    my ($src, $dst, $Rnamesubs, $Rtextsubs) = @_;
+    if (-e $dst && ! -d $dst) {
+        warn "\nTarget exists but is not a directory, skipping:\n\t$dst\n";
+        return;
+    }
+    print "Creating directory '$dst'\n" if $opt_d;
+    mkdir $dst, 0777 or die "Can't create $dst: $!\n"
+        unless -d $dst;
+    copyTree($src, $dst, $Rnamesubs, $Rtextsubs);
+}
+
+sub copyFile {
+    my ($src, $dst, $Rtextsubs) = @_;
+    return if (-e $dst);
+    print "Creating file '$dst'\n" if $opt_d;
+    open(my $SRC, '<', $src)
+        and open(my $DST, '>', $dst)
+        or die "$! copying $src to $dst\n";
+    while (<$SRC>) {
+        # Substitute any @VARS@ in the text
+        s{@(\w+?)@}
+         {exists $Rtextsubs->{$1} ? $Rtextsubs->{$1} : "\@$1\@"}eg;
+        print $DST $_;
+    }
+    close $DST;
+    close $SRC;
+}
+
+1;