Get rid of non working extra code, put it in dev/process-comment
This commit is contained in:
parent
d04a039bd0
commit
b00004f73e
31
process.pl
31
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;
|
||||
#}
|
||||
|
Loading…
Reference in New Issue
Block a user