| 1 | #!/usr/bin/perl |
| 2 | |
| 3 | use strict; |
| 4 | use warnings; |
| 5 | |
| 6 | use File::Basename; |
| 7 | |
| 8 | # WARNING: This is site-specific. Change to the location |
| 9 | # where you have installed dist-3.0PL70. |
| 10 | my @std_units = glob ("/pro/3gl/CPAN/lib/dist/U/*.U"); |
| 11 | my $PWD = "/pro/3gl/CPAN/perl"; |
| 12 | |
| 13 | -d "U" and chdir "U"; |
| 14 | my @perl_units = glob ("$PWD/U/*/*.U"); |
| 15 | push (@perl_units, @std_units); |
| 16 | |
| 17 | # Get the list of config.sh symbols. Be sure this is up to date! |
| 18 | # (I run the U/mksample script first to be sure.) |
| 19 | open my $wanted, "< $PWD/Porting/config.sh" or die "$0: open $PWD/Wanted: $!\n"; |
| 20 | my @WANTED = map { $_->[0] } |
| 21 | sort { $a->[1] cmp $b->[1] } |
| 22 | map { [ $_, lc $_ ] } <$wanted>; |
| 23 | close $wanted; |
| 24 | |
| 25 | print <<'EOM'; |
| 26 | |
| 27 | !!!!!!! DO NOT EDIT THIS FILE !!!!!!! |
| 28 | This file is built by metaconfig. |
| 29 | |
| 30 | This file contains a description of all the shell variables whose value is |
| 31 | determined by the Configure script. Variables intended for use in C |
| 32 | programs (e.g. I_UNISTD) are already described in config_h.SH. [`configpm' |
| 33 | generates pod documentation for Config.pm from this file--please try to keep |
| 34 | the formatting regular.] |
| 35 | |
| 36 | EOM |
| 37 | |
| 38 | my ($Loc, %expl, %file, %predef); |
| 39 | foreach my $file (@perl_units) { |
| 40 | open my $fh, "< $file" or die "$0: open $file: $!"; |
| 41 | my $base = basename ($file); |
| 42 | $Loc = $file, next if $base eq "Loc.U" and not defined $Loc; |
| 43 | my @var; |
| 44 | while (<$fh>) { |
| 45 | if (m/^\?S:\w+[ \t:]/ .. m/^\?S:\.$/) { |
| 46 | s/[ \t]+$//; |
| 47 | if (m/^\?S:.$/) { |
| 48 | my ($var) = ((shift @var) =~ /^(\w+)/); |
| 49 | unless (exists $expl{$var}) { |
| 50 | $expl{$var} = [ @var, "\n" ]; |
| 51 | $file{$var} = $base; |
| 52 | } |
| 53 | @var = (); |
| 54 | } |
| 55 | else { |
| 56 | s/^\?S://; # Remove leading ?S: markers. |
| 57 | s/^\s+(?=.)/\t/; # Ensure all lines begin with tabs. |
| 58 | push @var, $_; |
| 59 | } |
| 60 | } |
| 61 | } |
| 62 | close $fh or die "$0: close $file: $!"; |
| 63 | } |
| 64 | |
| 65 | defined $Loc or die "$0: Couldn't locate Loc.U: $!"; |
| 66 | |
| 67 | open my $fh, "< $Loc" or die "$0: open $Loc: $!"; |
| 68 | while (<$fh>) { |
| 69 | m/^\?(\w+):\1$/ and ($expl{$1}, $file{$1}) = (1, "Loc.U"); |
| 70 | } |
| 71 | close $fh or die "$0: close $Loc: $!"; |
| 72 | |
| 73 | { local $/ = "\n\n"; |
| 74 | for (<DATA>) { |
| 75 | m/^(\w+)/; |
| 76 | $predef{$1} = $_; |
| 77 | } |
| 78 | } |
| 79 | |
| 80 | for (@WANTED) { |
| 81 | chomp; |
| 82 | m/^#/ and next; # Skip comments |
| 83 | m/^:/ and next; # Skip comments |
| 84 | m/^$/ and next; # Skip empty sections |
| 85 | my ($var, $val) = split /=/, $_, 2; |
| 86 | |
| 87 | if (exists $expl{$var}) { |
| 88 | if ($file{$var} eq "Loc.U") { |
| 89 | print "$var (Loc.U):\n"; |
| 90 | if ($val eq "''") { |
| 91 | # If we didn't have d_portable, this info might be |
| 92 | # useful, but it still won't help with non-standard |
| 93 | # stuff if perl is built on one system but installed |
| 94 | # on others (this is common with Linux distributions, |
| 95 | # for example). |
| 96 | print <<EOE; |
| 97 | This variable is defined but not used by Configure. |
| 98 | The value is the empty string and is not useful. |
| 99 | |
| 100 | EOE |
| 101 | } |
| 102 | else { |
| 103 | print <<EOE; |
| 104 | This variable is used internally by Configure to determine the |
| 105 | full pathname (if any) of the $var program. After Configure runs, |
| 106 | the value is reset to a plain "$var" and is not useful. |
| 107 | |
| 108 | EOE |
| 109 | } |
| 110 | } |
| 111 | else { |
| 112 | print "$var ($file{$var}):\n"; |
| 113 | print @{$expl{$var}}; |
| 114 | } |
| 115 | next; |
| 116 | } |
| 117 | |
| 118 | # Handle special variables from Oldsyms.U. Since these start |
| 119 | # with capital letters, metalint considers them to be "special |
| 120 | # unit" symbols. It's easier to define them here than to try |
| 121 | # to fool metalint any further. --AD 22 Oct 1999 |
| 122 | # Similarly, handle the config_arg* variables from Options.U. |
| 123 | # -- AD 8 Dec 2009 |
| 124 | if (exists $predef{$var}) { |
| 125 | print $predef{$var}; |
| 126 | next; |
| 127 | } |
| 128 | |
| 129 | $var =~ /^(Author|Date|Header|Id|Locker|Log|Mcc|RCSfile|Revision|Source|State)$|_cflags$|^config_arg/ |
| 130 | or warn "$0: couldn't find $var\n" |
| 131 | } |
| 132 | __END__ |
| 133 | PERL_REVISION (Oldsyms.U): |
| 134 | In a Perl version number such as 5.6.2, this is the 5. |
| 135 | This value is manually set in patchlevel.h |
| 136 | |
| 137 | PERL_VERSION (Oldsyms.U): |
| 138 | In a Perl version number such as 5.6.2, this is the 6. |
| 139 | This value is manually set in patchlevel.h |
| 140 | |
| 141 | PERL_SUBVERSION (Oldsyms.U): |
| 142 | In a Perl version number such as 5.6.2, this is the 2. |
| 143 | Values greater than 50 represent potentially unstable |
| 144 | development subversions. |
| 145 | This value is manually set in patchlevel.h |
| 146 | |
| 147 | PERL_APIVERSION (Oldsyms.U): |
| 148 | This value is manually set in patchlevel.h and is used |
| 149 | to set the Configure apiversion variable. |
| 150 | |
| 151 | CONFIGDOTSH (Oldsyms.U): |
| 152 | This is set to 'true' in config.sh so that a shell script |
| 153 | sourcing config.sh can tell if it has been sourced already. |
| 154 | |
| 155 | PERL_CONFIG_SH (Oldsyms.U): |
| 156 | This is set to 'true' in config.sh so that a shell script |
| 157 | sourcing config.sh can tell if it has been sourced already. |
| 158 | |
| 159 | PERL_API_REVISION (patchlevel.h): |
| 160 | This number describes the earliest compatible PERL_REVISION of |
| 161 | Perl ("compatibility" here being defined as sufficient binary/API |
| 162 | compatibility to run XS code built with the older version). |
| 163 | Normally this does not change across maintenance releases. |
| 164 | Please read the comment in patchlevel.h. |
| 165 | |
| 166 | PERL_API_VERSION (patchlevel.h): |
| 167 | This number describes the earliest compatible PERL_VERSION of |
| 168 | Perl ("compatibility" here being defined as sufficient binary/API |
| 169 | compatibility to run XS code built with the older version). |
| 170 | Normally this does not change across maintenance releases. |
| 171 | Please read the comment in patchlevel.h. |
| 172 | |
| 173 | PERL_API_SUBVERSION (patchlevel.h): |
| 174 | This number describes the earliest compatible PERL_SUBVERSION of |
| 175 | Perl ("compatibility" here being defined as sufficient binary/API |
| 176 | compatibility to run XS code built with the older version). |
| 177 | Normally this does not change across maintenance releases. |
| 178 | Please read the comment in patchlevel.h. |
| 179 | |
| 180 | PERL_PATCHLEVEL (Oldsyms.U): |
| 181 | This symbol reflects the patchlevel, if available. Will usually |
| 182 | come from the .patch file, which is available when the perl |
| 183 | source tree was fetched with rsync. |
| 184 | |
| 185 | config_args (Options.U): |
| 186 | This variable contains a single string giving the command-line |
| 187 | arguments passed to Configure. Spaces within arguments, |
| 188 | quotes, and escaped characters are not correctly preserved. |
| 189 | To reconstruct the command line, you must assemble the individual |
| 190 | command line pieces, given in config_arg[0-9]*. |
| 191 | |
| 192 | config_arg0 (Options.U): |
| 193 | This variable contains the string used to invoke the Configure |
| 194 | command, as reported by the shell in the $0 variable. |
| 195 | |
| 196 | config_argc (Options.U): |
| 197 | This variable contains the number of command-line arguments |
| 198 | passed to Configure, as reported by the shell in the $# variable. |
| 199 | The individual arguments are stored as variables config_arg1, |
| 200 | config_arg2, etc. |
| 201 | |