5 @ignore_list = ( "DOS#?#?" );
8 if ($arg =~ /^-/) { push @wflags, $arg; }
11 } elsif ("--win16" eq $arg) {
12 $win_flag = "WIN16##";
13 } elsif ("--win32" eq $arg) {
14 $win_flag = "WIN32##";
15 } elsif ($arg =~ /^--enable-/) {
19 push @ignore_list, $a;
20 } elsif ($arg =~ /^--ignore=/) {
23 push @ignore_list, $a;
24 } elsif ($arg =~ /^-/) {
25 print STDERR "Invalid option '$arg'\n";
33 push @ignore_list, $win_flag;
34 push @ignore_list, "MIT##" if $mit_specific;
36 if ($#wflags >= 0) { printf "WCONFIG_FLAGS=%s\n", join (" ", @wflags); }
38 # This has a couple variations from the old wconfig.c.
40 # The old script wouldn't treat the input strings as regular expressions.
41 # This one does, and actually it builds one regexp, so the strict order of
42 # checks done by wconfig.c no longer applies.
44 # And the old script would change "##DOS#" to "#", whereas this
45 # version (with the regexp given above) will accept and discard 0, 1
47 $sub = "sub do_subst { my (\$a) = shift; \$a =~ s/^##(" . join("|", @ignore_list) . ")//; return \$a; }";
48 #print STDERR $sub, "\n";
55 # This branch isn't actually used as far as I can tell.
59 # Do we want to do any autoconf-style @FOO@ substitutions?
61 # Are there any options we might want to set at configure time?
67 open AUX, "<$dir/win-pre.in" || die "Couldn't open win-pre.in: $!\n";
73 open AUX, "<$dir/win-post.in" || die "Couldn't open win-post.in: $!\n";