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;
|
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