- if ( $line =~ /^UNIMPL/ )
- {
- @fields = split(/,/,$line);
- $_ = $fields[0];
- s/^UNIMPL//;
- s/ *\(\"// ;
- s/\"//;
- $command = $_;
- $_=$fields[5];
- s/\"//;
- s/\"\)//;
- s/^ *//;
- chomp;
- $description = $_;
- print "\@item $command\n$description\n\n";
- }
+ my ($command, $description)
+ = /^\s*UNIMPL_CMD\s*\(\s*"([^"]*)"\s*,\s*"([^"]*)"\)\s*$/
+ or next;
+ print "\@item \@cmd{$command}\n$description\n\n";