diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Config_heavy.pl')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Config_heavy.pl | 134 |
1 files changed, 76 insertions, 58 deletions
diff --git a/Master/tlpkg/tlperl/lib/Config_heavy.pl b/Master/tlpkg/tlperl/lib/Config_heavy.pl index 57fe8aa525b..d7aa3528699 100644 --- a/Master/tlpkg/tlperl/lib/Config_heavy.pl +++ b/Master/tlpkg/tlperl/lib/Config_heavy.pl @@ -3,8 +3,25 @@ package Config; use strict; -# use warnings; Pulls in Carp -# use vars pulls in Carp +use warnings; +use vars '%Config'; + +sub bincompat_options { + return split ' ', (Internals::V())[0]; +} + +sub non_bincompat_options { + return split ' ', (Internals::V())[1]; +} + +sub compile_date { + return (Internals::V())[2] +} + +sub local_patches { + my (undef, undef, undef, @patches) = Internals::V(); + return @patches; +} sub _V { my ($bincompat, $non_bincompat, $date, @patches) = Internals::V(); @@ -34,7 +51,7 @@ sub _V { print " $date\n" if defined $date; my @env = map { "$_=\"$ENV{$_}\"" } sort grep {/^PERL/} keys %ENV; - push @env, "CYGWIN=\"$ENV{CYGWIN}\"" if $^O eq 'cygwin'; + push @env, "CYGWIN=\"$ENV{CYGWIN}\"" if $^O eq 'cygwin' and $ENV{CYGWIN}; if (@env) { print " \%ENV:\n"; @@ -44,8 +61,18 @@ sub _V { print " $_\n" foreach @INC; } -### Configured by: siepo@xpeco -### Target system: WIN32 +sub header_files { + return qw(EXTERN.h INTERN.h XSUB.h av.h config.h cop.h cv.h + dosish.h embed.h embedvar.h form.h gv.h handy.h hv.h intrpvar.h + iperlsys.h keywords.h mg.h nostdio.h op.h opcode.h pad.h + parser.h patchlevel.h perl.h perlio.h perliol.h perlsdio.h + perlsfio.h perlvars.h perly.h pp.h pp_proto.h proto.h regcomp.h + regexp.h regnodes.h scope.h sv.h thread.h time64.h unixish.h + utf8.h util.h); +} + +### Configured by: tex-live@tug.org +### Target system: WIN32 our $summary = <<'!END!'; Summary of my $package (revision $revision $version_patchlevel_string) configuration: @@ -85,7 +112,7 @@ my $summary_expanded; sub myconfig { return $summary_expanded if $summary_expanded; ($summary_expanded = $summary) =~ s{\$(\w+)} - { + { my $c; if ($1 eq 'git_ancestor_line') { if ($Config::Config{git_ancestor}) { @@ -94,9 +121,9 @@ sub myconfig { $c= ""; } } else { - $c = $Config::Config{$1}; + $c = $Config::Config{$1}; } - defined($c) ? $c : 'undef' + defined($c) ? $c : 'undef' }ge; $summary_expanded; } @@ -104,6 +131,7 @@ sub myconfig { my $rootdir = __FILE__; $rootdir =~ s![\\/][^\\/]*[\\/][^\\/]*$!!; $rootdir =~ s!/!\\!g; +my $mingdir = "x:\\mingw"; local *_ = \my $a; $_ = <<"!END!"; @@ -114,18 +142,18 @@ Header='' Id='\$Id' Locker='' Log='\$Log' -PATCHLEVEL='12' +PATCHLEVEL='14' PERL_API_REVISION='5' PERL_API_SUBVERSION='0' -PERL_API_VERSION='12' +PERL_API_VERSION='14' PERL_CONFIG_SH='true' PERL_PATCHLEVEL='' PERL_REVISION='5' -PERL_SUBVERSION='3' -PERL_VERSION='12' +PERL_SUBVERSION='2' +PERL_VERSION='14' RCSfile='\$RCSfile' Revision='\$Revision' -SUBVERSION='3' +SUBVERSION='2' Source='' State='' _a='.a' @@ -138,8 +166,8 @@ ansi2knr='' aphostname='' api_revision='5' api_subversion='0' -api_version='12' -api_versionstring='5.12.0' +api_version='14' +api_versionstring='5.14.0' ar='ar' archlib='$rootdir\\lib' archlibexp='$rootdir\\lib' @@ -161,14 +189,14 @@ cat='type' cc='gcc' cccdlflags=' ' ccdlflags=' ' -ccflags=' -s -O2 -DWIN32 -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -fno-strict-aliasing -mms-bitfields -DPERL_MSVCRT_READFIX' +ccflags=' -s -O2 -DWIN32 -DPERL_TEXTMODE_SCRIPTS -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -fno-strict-aliasing -mms-bitfields' ccflags_uselargefiles='' ccname='gcc' ccsymbols='' ccversion='' cf_by='siepo' cf_email='tex-live\@tug.org' -cf_time='Thu Feb 10 14:38:06 2011' +cf_time='Fri May 18 10:52:25 2012' charbits='8' chgrp='' chmod='' @@ -463,6 +491,8 @@ d_phostname='undef' d_pipe='define' d_poll='undef' d_portable='define' +d_prctl='undef' +d_prctl_set_name='undef' d_printf_format_null='undef' d_procselfexe='undef' d_pseudofork='define' @@ -548,8 +578,10 @@ d_sigaction='undef' d_signbit='undef' d_sigprocmask='undef' d_sigsetjmp='undef' +d_sin6_scope_id='define' d_sitearch='define' d_snprintf='define' +d_sockaddr_sa_len='undef' d_sockatmark='undef' d_sockatmarkproto='undef' d_socket='define' @@ -565,6 +597,7 @@ d_sresuproto='undef' d_statblks='undef' d_statfs_f_flags='undef' d_statfs_s='undef' +d_static_inline='define' d_statvfs='undef' d_stdio_cnt_lval='define' d_stdio_ptr_lval='define' @@ -653,7 +686,7 @@ doublesize='8' drand01='(rand()/(double)((unsigned)1<<RANDBITS))' drand48_r_proto='0' dtrace='' -dynamic_ext='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call Hash/Util Hash/Util/FieldHash IO List/Util MIME/Base64 Math/BigInt/FastCalc Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Text/Soundex Time/HiRes Time/Piece Unicode/Normalize Win32 Win32API/File XS/APItest XS/APItest/KeywordRPN XS/Typemap attributes mro re threads threads/shared' +dynamic_ext='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call Hash/Util Hash/Util/FieldHash IO List/Util MIME/Base64 Math/BigInt/FastCalc Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Text/Soundex Tie/Hash/NamedCapture Time/HiRes Time/Piece Unicode/Collate Unicode/Normalize Win32 Win32API/File XS/APItest XS/Typemap attributes mro re threads threads/shared' eagain='EAGAIN' ebcdic='undef' echo='echo' @@ -668,7 +701,7 @@ endservent_r_proto='0' eunicefix=':' exe_ext='.exe' expr='expr' -extensions='Archive/Extract Archive/Tar Attribute/Handlers AutoLoader B B/Debug B/Deparse B/Lint CGI CPAN CPANPLUS CPANPLUS/Dist/Build Class/ISA Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Devel/SelfStubber Digest Digest/MD5 Digest/SHA Encode Errno ExtUtils/CBuilder ExtUtils/Command ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/ParseXS Fcntl File/Fetch File/Glob File/Path File/Temp FileCache Filter/Simple Filter/Util/Call Getopt/Long Hash/Util Hash/Util/FieldHash I18N/LangTags IO IO/Compress IO/Zlib IPC/Cmd IPC/Open2 IPC/Open3 List/Util Locale/Codes Locale/Maketext Locale/Maketext/Simple Log/Message Log/Message/Simple MIME/Base64 Math/BigInt Math/BigInt/FastCalc Math/BigRat Math/Complex Memoize Module/Build Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Pluggable NEXT Net/Ping Object/Accessor Opcode POSIX Package/Constants Params/Check Parse/CPAN/Meta PerlIO/encoding PerlIO/scalar PerlIO/via PerlIO/via/QuotedPrint Pod/Escapes Pod/LaTeX Pod/Parser Pod/Perldoc Pod/Plainer Pod/Simple SDBM_File Safe SelfLoader Shell Socket Storable Switch Sys/Hostname Term/ANSIColor Term/Cap Term/UI Test Test/Harness Test/Simple Text/Balanced Text/ParseWords Text/Soundex Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Memoize Tie/RefHash Time/HiRes Time/Local Time/Piece Unicode/Collate Unicode/Normalize Win32 Win32API/File Win32CORE XS/APItest XS/APItest/KeywordRPN XS/Typemap XSLoader attributes autodie autouse base bignum constant encoding/warnings if lib libnet mro parent podlators re threads threads/shared' +extensions='Archive/Extract Archive/Tar Attribute/Handlers AutoLoader B B/Debug B/Deparse B/Lint CGI CPAN CPAN/Meta CPAN/Meta/YAML CPANPLUS CPANPLUS/Dist/Build Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Devel/SelfStubber Digest Digest/MD5 Digest/SHA Dumpvalue Encode Env Errno ExtUtils/CBuilder ExtUtils/Command ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/ParseXS Fcntl File/CheckTree File/Fetch File/Glob File/Path File/Temp FileCache Filter/Simple Filter/Util/Call Getopt/Long HTTP/Tiny Hash/Util Hash/Util/FieldHash I18N/Collate I18N/LangTags IO IO/Compress IO/Zlib IPC/Cmd IPC/Open2 IPC/Open3 JSON/PP List/Util Locale/Codes Locale/Maketext Locale/Maketext/Simple Log/Message Log/Message/Simple MIME/Base64 Math/BigInt Math/BigInt/FastCalc Math/BigRat Math/Complex Memoize Module/Build Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Metadata Module/Pluggable NEXT Net/Ping Object/Accessor Opcode POSIX Package/Constants Params/Check Parse/CPAN/Meta Perl/OSType PerlIO/encoding PerlIO/scalar PerlIO/via PerlIO/via/QuotedPrint Pod/Escapes Pod/Html Pod/LaTeX Pod/Parser Pod/Perldoc Pod/Simple SDBM_File Safe SelfLoader Shell Socket Storable Sys/Hostname Term/ANSIColor Term/Cap Term/UI Test Test/Harness Test/Simple Text/Balanced Text/ParseWords Text/Soundex Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Hash/NamedCapture Tie/Memoize Tie/RefHash Time/HiRes Time/Local Time/Piece Unicode/Collate Unicode/Normalize Version/Requirements Win32 Win32API/File Win32CORE XS/APItest XS/Typemap XSLoader attributes autodie autouse base bignum constant encoding/warnings if lib libnet mro parent podlators re threads threads/shared' extern_C='extern' extras='' fflushNULL='define' @@ -685,7 +718,7 @@ full_csh='' full_sed='' gccansipedantic='' gccosandvers='' -gccversion='4.5.0' +gccversion='4.6.2' getgrent_r_proto='0' getgrgid_r_proto='0' getgrnam_r_proto='0' @@ -824,7 +857,7 @@ i_vfork='undef' ignore_versioned_solibs='' inc_version_list='' inc_version_list_init='0' -incpath='X:\\mingw32\\include' +incpath='$mingdir\\include' inews='' initialinstalllocation='' installarchlib='$rootdir\\lib' @@ -862,18 +895,18 @@ issymlink='' ivdformat='"ld"' ivsize='4' ivtype='long' -known_extensions='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex Time/HiRes Time/Piece Unicode/Normalize VMS/DCLsym VMS/Stdio Win32 Win32API/File Win32CORE XS/APItest XS/APItest/KeywordRPN XS/Typemap attributes mro re threads threads/shared' +known_extensions='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex Tie/Hash/NamedCapture Time/HiRes Time/Piece Unicode/Collate Unicode/Normalize VMS/DCLsym VMS/Stdio Win32 Win32API/File Win32CORE XS/APItest XS/Typemap attributes mro re threads threads/shared' ksh='' ld='g++' -lddlflags='-mdll -s -L"$rootdir\\lib\\CORE" -L"X:\\mingw32\\lib"' -ldflags='-s -L"$rootdir\\lib\\CORE" -L"X:\\mingw32\\lib"' +lddlflags='-mdll -s -L"$rootdir\\lib\\CORE" -L"$mingdir\\lib"' +ldflags='-s -L"$rootdir\\lib\\CORE" -L"$mingdir\\lib"' ldflags_uselargefiles='' ldlibpthname='' less='less' lib_ext='.a' libc='' -libperl='libperl512.a' -libpth='X:\\mingw32\\lib' +libperl='libperl514.a' +libpth='$mingdir\\lib' libs='-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32' libsdirs='' libsfiles='' @@ -935,7 +968,7 @@ netdb_net_type='long' nm='nm' nm_opt='' nm_so_opt='' -nonxs_ext='Archive/Extract Archive/Tar Attribute/Handlers AutoLoader B/Debug B/Deparse B/Lint CGI CPAN CPANPLUS CPANPLUS/Dist/Build Class/ISA Devel/SelfStubber Digest Errno ExtUtils/CBuilder ExtUtils/Command ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/ParseXS File/Fetch File/Path File/Temp FileCache Filter/Simple Getopt/Long I18N/LangTags IO/Compress IO/Zlib IPC/Cmd IPC/Open2 IPC/Open3 Locale/Codes Locale/Maketext Locale/Maketext/Simple Log/Message Log/Message/Simple Math/BigInt Math/BigRat Math/Complex Memoize Module/Build Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Pluggable NEXT Net/Ping Object/Accessor Package/Constants Params/Check Parse/CPAN/Meta PerlIO/via/QuotedPrint Pod/Escapes Pod/LaTeX Pod/Parser Pod/Perldoc Pod/Plainer Pod/Simple Safe SelfLoader Shell Switch Term/ANSIColor Term/Cap Term/UI Test Test/Harness Test/Simple Text/Balanced Text/ParseWords Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Memoize Tie/RefHash Time/Local Unicode/Collate XSLoader autodie autouse base bignum constant encoding/warnings if lib libnet parent podlators' +nonxs_ext='Archive/Extract Archive/Tar Attribute/Handlers AutoLoader B/Debug B/Deparse B/Lint CGI CPAN CPAN/Meta CPAN/Meta/YAML CPANPLUS CPANPLUS/Dist/Build Devel/SelfStubber Digest Dumpvalue Env Errno ExtUtils/CBuilder ExtUtils/Command ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/ParseXS File/CheckTree File/Fetch File/Path File/Temp FileCache Filter/Simple Getopt/Long HTTP/Tiny I18N/Collate I18N/LangTags IO/Compress IO/Zlib IPC/Cmd IPC/Open2 IPC/Open3 JSON/PP Locale/Codes Locale/Maketext Locale/Maketext/Simple Log/Message Log/Message/Simple Math/BigInt Math/BigRat Math/Complex Memoize Module/Build Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Metadata Module/Pluggable NEXT Net/Ping Object/Accessor Package/Constants Params/Check Parse/CPAN/Meta Perl/OSType PerlIO/via/QuotedPrint Pod/Escapes Pod/Html Pod/LaTeX Pod/Parser Pod/Perldoc Pod/Simple Safe SelfLoader Shell Term/ANSIColor Term/Cap Term/UI Test Test/Harness Test/Simple Text/Balanced Text/ParseWords Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Memoize Tie/RefHash Time/Local Version/Requirements XSLoader autodie autouse base bignum constant encoding/warnings if lib libnet parent podlators' nroff='' nvEUformat='"E"' nvFUformat='"F"' @@ -958,11 +991,12 @@ otherlibdirs='' package='perl5' pager='more /e' passcat='' -patchlevel='12' +patchlevel='14' path_sep=';' perl5='' perl='perl' perl_patchlevel='' +perl_static_inline='static __inline__' perladmin='' perllibs='-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32' perlpath='$rootdir\\bin\\perl.exe' @@ -1176,8 +1210,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.12.3' -version_patchlevel_string='version 12 subversion 3' +version='5.14.2' +version_patchlevel_string='version 14 subversion 2' versiononly='undef' vi='' voidflags='15' @@ -1196,9 +1230,9 @@ s/(byteorder=)(['"]).*?\2/$1$2$Config::byteorder$2/m; my $config_sh_len = length $_; -our $Config_SH_expanded = "\n$_" . << "EOVIRTUAL"; -ccflags_nolargefiles=' -s -O2 -DWIN32 -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -fno-strict-aliasing -mms-bitfields -DPERL_MSVCRT_READFIX' -ldflags_nolargefiles='-s -L"$rootdir\\lib\\CORE" -L"X:\\mingw32\\lib"' +our $Config_SH_expanded = "\n$_" . << 'EOVIRTUAL'; +ccflags_nolargefiles=' -s -O2 -DWIN32 -DPERL_TEXTMODE_SCRIPTS -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -fno-strict-aliasing -mms-bitfields' +ldflags_nolargefiles="-s -L\"$rootdir\\lib\\CORE\" -L\"$mingdir\\lib\"" libs_nolargefiles='-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32' libswanted_nolargefiles='' EOVIRTUAL @@ -1213,38 +1247,24 @@ eval { sub fetch_string { my($self, $key) = @_; - my $quote_type = "'"; - my $marker = "$key="; - - # Check for the common case, ' delimited - my $start = index($Config_SH_expanded, "\n$marker$quote_type"); - # If that failed, check for " delimited - if ($start == -1) { - $quote_type = '"'; - $start = index($Config_SH_expanded, "\n$marker$quote_type"); - } - # Start can never be -1 now, as we've rigged the long string we're - # searching with an initial dummy newline. - return undef if $start == -1; - - $start += length($key) + 3; - - my $value = substr($Config_SH_expanded, $start, - index($Config_SH_expanded, "$quote_type\n", $start) - - $start); + return undef unless my ($quote_type, $value) = $Config_SH_expanded =~ /\n$key=(['"])(.*?)\1\n/s; # If we had a double-quote, we'd better eval it so escape # sequences and such can be interpolated. Since the incoming # value is supposed to follow shell rules and not perl rules, # we escape any perl variable markers + + # Historically, since " 'support' was added in change 1409, the + # interpolation was done before the undef. Stick to this arguably buggy + # behaviour as we're refactoring. if ($quote_type eq '"') { $value =~ s/\$/\\\$/g; $value =~ s/\@/\\\@/g; eval "\$value = \"$value\""; } + # So we can say "if $Config{'foo'}". - $value = undef if $value eq 'undef'; - $self->{$key} = $value; # cache it + $self->{$key} = $value eq 'undef' ? undef : $value; # cache it } my $prevpos = 0; @@ -1273,9 +1293,7 @@ sub EXISTS { } sub STORE { die "\%Config::Config is read-only\n" } -*DELETE = \&STORE; -*CLEAR = \&STORE; - +*DELETE = *CLEAR = \*STORE; # Typeglob aliasing uses less space sub config_sh { substr $Config_SH_expanded, 1, $config_sh_len; @@ -1291,7 +1309,7 @@ sub config_vars { # implements -V:cfgvar option (see perlrun -V:) foreach (@_) { # find optional leading, trailing colons; and query-spec - my ($notag,$qry,$lncont) = m/^(:)?(.*?)(:)?$/; # flags fore and aft, + my ($notag,$qry,$lncont) = m/^(:)?(.*?)(:)?$/; # flags fore and aft, # map colon-flags to print decorations my $prfx = $notag ? '': "$qry="; # tag-prefix for print my $lnend = $lncont ? ' ' : ";\n"; # line ending for print |