1 files changed, 145 insertions, 0 deletions
diff --git a/ACE/bin/ChangeLogEditor/ChangeLogEntry.pm b/ACE/bin/ChangeLogEditor/ChangeLogEntry.pm
new file mode 100644
index 00000000000..1fdcf9d3da3
--- /dev/null
+++ b/ACE/bin/ChangeLogEditor/ChangeLogEntry.pm
@@ -0,0 +1,145 @@
+package ChangeLogEntry;
+
+# ************************************************************
+# Description   : Create a ChangeLog entry based on modified files.
+# Author        : Chad Elliott
+# Create Date   : 6/18/2002
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+use File::Basename;
+
+use FileLocatorFactory;
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub new {
+  my($class) = shift;
+  my($name)  = shift;
+  my($email) = shift;
+  my($self)  = bless {'name'  => $name,
+                      'email' => $email,
+                     }, $class;
+  return $self;
+}
+
+
+sub escape_regex_special {
+  my($self) = shift;
+  my($name) = shift;
+
+  $name =~ s/([\+\-\\\$\[\]\(\)\.])/\\$1/g;
+  return $name;
+}
+
+
+sub sortFileList {
+  my($self) = shift;
+  return sort {
+           if ($a =~ /\.h$/) {
+             my($base) = $a;
+             $base =~ s/\.h//;
+             $base = $self->escape_regex_special($base);
+             if ($b =~ /^$base\./) {
+               return -1;
+             }
+             else {
+               return $a cmp $b;
+             }
+           }
+           elsif ($a =~ /\.i(nl)?$/) {
+             my($base) = $a;
+             $base =~ s/\.i(nl)?$//;
+             $base = $self->escape_regex_special($base);
+             if ($b =~ /^$base\.cpp/) {
+               return -1;
+             }
+             else {
+               return $a cmp $b;
+             }
+           }
+           elsif ($a =~ /\.cpp?$/) {
+             my($base) = $a;
+             $base =~ s/\.cpp?$//;
+             $base = $self->escape_regex_special($base);
+             if ($b =~ /^$base\./) {
+               return 1;
+             }
+             else {
+               return $a cmp $b;
+             }
+           }
+           return $a cmp $b;
+         } @_;
+}
+
+
+sub create {
+  my($self)  = shift;
+  my(@dirs)  = @_;
+  my($fl)    = FileLocatorFactory::create();
+  my($modif,
+     $remov,
+     $confl,
+     $unknown,
+     $error) = $fl->locate(@dirs);
+  my($entry) = scalar(gmtime());
+
+  if (defined $$confl[0]) {
+    $entry = "ERROR: The following files have conflicts:\n";
+    foreach my $file (@$confl) {
+      $entry .= "$file\n";
+    }
+  }
+  else {
+    my($prefix) = '        * ';
+
+    ## Correct the timezone (if there is any)
+    my($tz) = 'UTC';
+    $entry =~ s/(:\d\d\s+)(.*)(\d\d\d\d)$/$1$tz $3/;
+
+    ## Add the name and email address
+    $entry .= "  $self->{'name'}  <$self->{'email'}>\n\n";
+
+    my($previous) = undef;
+    foreach my $file ($self->sortFileList(@$modif)) {
+      my($directory) = dirname($file);
+      if (defined $previous && $previous ne $directory) {
+        $entry .= "\n";
+      }
+      $entry .= "$prefix$file:\n";
+      $previous = $directory;
+    }
+    $previous = '';
+    my($removed) = 0;
+    foreach my $file ($self->sortFileList(@$remov)) {
+      my($directory) = dirname($file);
+      if (defined $previous && $previous ne $directory) {
+        $entry .= "\n";
+      }
+      $entry   .= "$prefix$file:\n";
+      $previous = $directory;
+      $removed++;
+    }
+    if ($removed) {
+      $entry .= "\n          Removed " .
+                ($removed > 1 ? 'these files' : 'this file') . ".\n";
+    }
+    $entry .= "\n";
+  }
+
+  if (!defined $$modif[0] && !defined $$remov[0]) {
+    $entry = undef;
+  }
+
+  return $entry, $unknown, $error;
+}
+
+
+1;