open OUT, '> '. $ovl || die "unable to open file '$ovl'"; binmode OUT; # Perl 5.004 on Unix complains for CR

print OUT <<EOT; ############################################################################# ## Name: _Ovl.pm ## Purpose: overload constants (GENERATED, DO NOT EDIT) ## Author: Mattia Barbon ## Modified by: ## Created: 17/ 8/2001 ## RCS-ID: ## Copyright: (c) 2001 Mattia Barbon ## Licence: This program is free software; you can redistribute it and/or ## modify it under the same terms as Perl itself #############################################################################

package Wx;

EOT

print OUT "use vars qw(\@tnames ${vars});\n"; print OUT "( ${vars_comma} ) = ( 1 .. 100 );\n\n"; print OUT "\@tnames = ( undef, ${types} );\n\n";

foreach my $i ( sort keys %constants ) { print OUT "\$Wx::_$i = [ "; print OUT join ", ", map { "\$$_" } @{$constants{$i}}; print OUT " ];\n"; }

print OUT <<EOT;

1;

# Local variables: # # mode: cperl # # End: # EOT