marko10_000
/
wine-wine
forked from Mirrors/wine-wine
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix string handling. 

Enable perl warnings
Add a proper --help option and usage.
oldstable
Francois Gouget 2004-10-25 21:50:50 +00:00 committed by Alexandre Julliard
parent 1d691d5d70
commit d9800f9fa9
1 changed files with 28 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
tools/winedump/function_grep.pl
View File

@ -1,4 +1,4 @@
#! /usr/bin/perl
#! /usr/bin/perl -w
#
# Copyright 2000 Patrik Stridvall
#
@ -19,23 +19,39 @@
use strict;
my $name0=$0;
$name0 =~ s%^.*/%%;
my $invert = 0;
my $pattern;
my @files = ();
my $usage;
while(defined($_ = shift)) {
if(/^-/) {
if(/^-v$/) {
$invert = 1;
}
if (/^-v$/) {
$invert = 1;
} elsif (/^--?(\?|h|help)$/) {
$usage=0;
} elsif (/^-/) {
print STDERR "$name0:error: unknown option '$_'\n";
$usage=2;
last;
} elsif(!defined($pattern)) {
$pattern = $_;
} else {
if(!defined($pattern)) {
$pattern = $_;
} else {
push @files, $_;
}
push @files, $_;
}
}
if (defined $usage)
{
print "Usage: $name0 [--help] [-v] pattern files...\n";
print "where:\n";
print "--help Prints this help message\n";
print "-v Return functions that do not match pattern\n";
print "pattern A regular expression for the function name\n";
print "files... A list of files to search the function in\n";
exit $usage;
}
foreach my $file (@files) {
open(IN, "< $file");
@ -266,9 +282,9 @@ foreach my $file (@files) {
}
}
}
} elsif(/\'[^\']*\'/s) {
} elsif(/\'(?:[^\\\']*|\\.)*\'/s) {
$_ = $'; $again = 1;
} elsif(/\"[^\"]*\"/s) {
} elsif(/\"(?:[^\\\"]*|\\.)*\"/s) {
$_ = $'; $again = 1;
} elsif(/;/s) {
$_ = $'; $again = 1;