kernel-doc: do not regard $, %, or & prefixes as special in section names

# 'function', 'struct', 'union', 'enum', 'typedef'

my $decl_type;

my $doc_special = "\@\%\$\&";

my $doc_start = '^/\*\*\s*$'; # Allow whitespace at end of comment start.

my $doc_end = '\*/';

my $doc_com = '\s*\*\s*';

my $doc_com_body = '\s*\* ?';

my $doc_decl = $doc_com . '(\w+)';

my $doc_sect = $doc_com . '([' . $doc_special . ']?[\w\s]+):(.*)';

my $doc_sect = $doc_com . '(\@?[\w\s]+):(.*)';

my $doc_content = $doc_com_body . '(.*)';

my $doc_block = $doc_com . 'DOC:\s*(.*)?';

my $doc_inline_start = '^\s*/\*\*\s*$';

my $doc_inline_end = '^\s*\*/\s*$';

my $export_symbol = '^\s*EXPORT_SYMBOL(_GPL)?\s*\(\s*(\w+)\s*\)\s*;';

my %constants;

my %parameterdescs;

my @parameterlist;

my %sections;

    my $name = shift;

    my $contents = join "\n", @_;

    if ($name =~ m/$type_constant/) {

	$name = $1;

#	print STDERR "constant section '$1' = '$contents'\n";

	$constants{$name} = $contents;

    } elsif ($name =~ m/$type_param/) {

    if ($name =~ m/$type_param/) {

#	print STDERR "parameter def '$1' = '$contents'\n";

	$name = $1;

	$parameterdescs{$name} = $contents;

sub reset_state {

    $function = "";

    %constants = ();

    %parameterdescs = ();

    %parametertypes = ();

    @parameterlist = ();

			dump_doc_section($file, $section, xml_escape($contents));

			$contents = "";

			$function = "";

			%constants = ();

			%parameterdescs = ();

			%parametertypes = ();

			@parameterlist = ();

			dump_doc_section($file, $section, xml_escape($contents));

			$contents = "";

			$function = "";

			%constants = ();

			%parameterdescs = ();

			%parametertypes = ();

			@parameterlist = ();