oysteikt/heimdal
0
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

Windows: Fix argument matching for perl scripts

Browse Source
This commit is contained in:
Asanka C. Herath
2010-11-18 20:41:34 -05:00
parent b704105586
commit d267f208ae
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
cf/w32-def-from-dll.pl
View File

@@ -170,7 +170,7 @@ sub use_response_file($)
open (RF, '<', $fn) or die "Can't open response file $fn"; open (RF, '<', $fn) or die "Can't open response file $fn";
while (<RF>) { while (<RF>) {
/(\S+)/ && do { /^(\S+)$/ && do {
process_file($1); process_file($1);
} }
} }
@@ -182,27 +182,27 @@ print "EXPORTS\n";
for (@ARGV) { for (@ARGV) {
ARG: { ARG: {
/-m(.*)/ && do { /^-m(.*)$/ && do {
$module_name = $1."."; $module_name = $1.".";
last ARG; last ARG;
}; };
/-l(.*)/ && do { /^-l(.*)$/ && do {
$local_prefix = $1."_"; $local_prefix = $1."_";
last ARG; last ARG;
}; };
/-a/ && do { /^-a$/ && do {
$always_export = 1; $always_export = 1;
last ARG; last ARG;
}; };
/-e(.*)/ && do { /^-e(.*)$/ && do {
build_forwarder_target_list($1); build_forwarder_target_list($1);
last ARG; last ARG;
}; };
/@(.*)/ && do { /^@(.*)$/ && do {
use_response_file($1); use_response_file($1);
last ARG; last ARG;
}; };

8
cf/w32-list-externs-from-objs.pl
View File

@@ -89,22 +89,22 @@ sub use_response_file($)
for (@ARGV) { for (@ARGV) {
ARG: { ARG: {
/-q/ && do { /^-q$/ && do {
$show_module_name = 0; $show_module_name = 0;
last ARG; last ARG;
}; };
/-1/ && do { /^-1$/ && do {
$use_indent = 0; $use_indent = 0;
last ARG; last ARG;
}; };
/-u/ && do { /^-u$/ && do {
$strip_leading_underscore = 1; $strip_leading_underscore = 1;
last ARG; last ARG;
}; };
/@(.*)/ && do { /^@(.*)$/ && do {
use_response_file($1); use_response_file($1);
last ARG; last ARG;
}; };