diff --git a/process.pl b/process.pl index 545c4d8..69de7c8 100755 --- a/process.pl +++ b/process.pl @@ -56,34 +56,3 @@ sub process_file { } return $data; } -#sub process_comment { -# # The data string -# my $data = $_[0]; -# # Is the author line in there? -# my $author = 0; -# # Is the description there? -# my $desc = 0; -# # Is the first name there? -# my $fname = 0; -# # Are we still in the top comment area? -# my $incomment = 1; -# # If there is no top comment in the beginning, add the base comment -# if ($data !~ /^\s*\/\*\*/) { -# $data = "/**\n * \@file $filename\n * \@author Austen Adler (agadler)\n * TODO: Description\n */\n$data"; -# $author = 1; -# $desc = 1; -# $fname = 1; -# } else { -# # Otherwise process an existing comment -# while ($incomment) { -# if (/\s*\*\//) { -# $incomment = 0; -# } elsif (/\s*\* \@author/) { -# } elsif (/\s*\* \@file $filename/) { -# } elsif (/\s*\* \@author/) { -# } -# } -# -# } -# return $data; -#}