diff --git a/Utilities/Doxygen/itkgroup.pl b/Utilities/Doxygen/itkgroup.pl deleted file mode 100644 index 1e669538635..00000000000 --- a/Utilities/Doxygen/itkgroup.pl +++ /dev/null @@ -1,89 +0,0 @@ -# if regular doxycomment add a @{ -# at next empty line add a //@} - -$ingroup = 0; -$semicount =0; -$endbracecount = 0; -$endparencount = 0; -$leading_space = " "; -while(<>) -{ - chomp; - $line = $_; - # if the line is not an empty line - if( $line =~ /\S+/ ) - { - if ( /\/\*\*(.*)/ ) - { - # I guess it was not a group, dump savebuffer - if($ingroup) - { - print $leading_space . "/**" . $savebuffer . "\n"; - } - # if it is a class or brief then output the line but - # do not start a group - if ( /(\\class|\\brief)/ ) - { - print $line . "\n"; - } - # must be a group so start saving - else - { - - $savebuffer = "$1" . "\n"; - $ingroup = 1; - $semicount = 0; - $endbracecount = 0; - $endparencount = 0; - - $line =~ /(^\s*)/; - $leading_space = $1; - } - } - else - { - # add to save buffer if in group - if($ingroup) - { - $savebuffer = $savebuffer . $_ . "\n"; - } - else - { - # non empty line that is not the start of a doxy comment - print $_ . "\n"; - } - } - if($line =~ /;/ ) - { - $semicount = $semicount + 1; - } - if($line =~ /\}/ ) - { - $endbracecount = $endbracecount + 1; - } - if($line =~ /\)/ ) - { - $endparencount = $endparencount + 1; - } - } - else - { - if($ingroup) - { - if($endparencount > 1 && ($semicount > 1 || $endbracecount > 1)) - { - print $leading_space . "/**@\{" . $savebuffer . $leading_space . "/**@}*/\n\n"; - } - else - { - print $leading_space . "/**" . $savebuffer . "\n"; - } - $savebuffer = ""; - $ingroup = 0; - } - else - { - print $line . "\n"; - } - } -}