11 $line =~ /^\/\*\*/ and do {
16 $line =~ /^\s*\*\// and undef $error_data;
18 $doc_start and $line =~ /^\s*\*\s*QmiProtocolError:/ and do {
25 $line =~ /^\s*\*\s*@(.+): (.+)\./ and push @errors, [ $1, $2 ];
28 @errors > 0 or die "No data found\n";
32 QmiProtocolError code;
36 foreach my $error (@errors) {
37 print "\t{ ".$error->[0].", \"".$error->[1]."\" },\n";