csc230-autoformat/process.pl

#!/usr/bin/perl
use strict;
use autodie;
use warnings;
use File::Compare;
use File::Basename;
no warnings 'once';
# For every argument (file)
foreach my $file (@ARGV) {
  # If it exists
  if (-e $file) {
    # Load the autoformatted data into $data
    my ($data, $old_data) = process_file($file);
    # Check if original data matches new data, if it doesn't, write it
    # If it matches (there were no changes made), do nothing
    if (not $data eq $old_data) {
      # Write out the data
      open(MYOUTPUTFILE, "+>$file") or die "Error opening output file $!";
      print MYOUTPUTFILE $data;
      close(MYOUTPUTFILE);
      # Tell the user that we changed the file
      print "Processed $file\n";
    }
  }
}
# Creates the automatically formatted file
sub process_file {
  my($filename) = "$_[0]";
  open(MYINPUTFILE, "<$filename") or die "x $!";
  # The formatted file
  my($data) = "";
  # The original file (used for comparison to see if changes were made)
  my($old_data) = "";
  # Loop through every line in the file
  while(<MYINPUTFILE>) {
    # Add data to $old_data
    $old_data .= $_;
    # Get rid of trailing whitespace
    s/\s*$//;
    my($line) = $_;
    # If it is not a whitespace only line, append it to $data
    if($line !~ /^\s*$/) {
      $data = $data . "$line\n";
    }
  }
  close(MYINPUTFILE);
  # Get rid of final newline
  chomp($data);
  if ($data !~ /^\s*\/\*\*/) {
    # Get the basename of the file, this prevents making the block comment say:
    # @file src/folders/code.c
    # And instead uses
    # @file code.c
    my $basename = basename($filename);
    $data = "/**\n * \@file $basename\n * \@author Austen Adler (agadler)\n * TODO: Description\n */\n$data";
  }
  return ($data, $old_data);
}