Lines Matching +full:- +full:- +full:with +full:- +full:config
1 #! {- $config{HASHBANGPERL} -}
2 # -*- mode: perl -*-
3 {-
6 # relative paths untrustable. Because the result is used with 'use lib',
23 # Start with spliting the native path
24 (my $vol, my $dirs, my $file) = File::Spec->splitpath($path);
25 my @dirs = File::Spec->splitdir($dirs);
29 $dirs = File::Spec::Unix->catdir('', $vol, @dirs);
30 $path = File::Spec::Unix->catpath('', $dirs, $file);
36 return _fixup_path(File::Spec->catdir($config{sourcedir}, @_))
39 return _fixup_path(File::Spec->catfile($config{sourcedir}, @_))
43 -}
52 %config %target %disabled %withargs %unified_info
56 our %config = ({- dump_data(\%config, indent => 0); -});
57 our %target = ({- dump_data(\%target, indent => 0); -});
58 our @disablables = ({- dump_data(\@disablables, indent => 0) -});
59 our @disablables_int = ({- dump_data(\@disablables_int, indent => 0) -});
60 our %disabled = ({- dump_data(\%disabled, indent => 0); -});
61 our %withargs = ({- dump_data(\%withargs, indent => 0); -});
62 our %unified_info = ({- dump_data(\%unified_info, indent => 0); -});
66 tls => [{- dump_data(\@tls, indent => 0) -}],
67 dtls => [{- dump_data(\@dtls, indent => 0) -}],
71 my @makevars = ({- dump_data(\@makevars, indent => 0); -});
72 my %disabled_info = ({- dump_data(\%disabled_info, indent => 0); -});
73 my @user_crossable = qw( {- join (' ', @user_crossable) -} );
84 use lib '{- sourcedir('util', 'perl') -}';
85 use OpenSSL::fallback '{- sourcefile('external', 'perl', 'MODULES.txt') -}';
90 # With no arguments, re-create the build file
94 my $buildfile = $config{build_file};
99 .join(", ", @{$config{build_file_templates}}),
103 config => \%config,
112 use lib '{- sourcedir('Configurations') -}';
117 foreach (@{$config{build_file_templates}}) {
129 use lib '{- sourcedir('util', 'perl') -}';
130 use lib '{- sourcedir('Configurations') -}';
131 use lib '{- $config{builddir} -}';
138 $tmpl = OpenSSL::Template->new(TYPE => 'FILE',
140 $tmpl->fill_in(FILENAME => $_,
157 catfile($config{sourcedir}, 'include', 'openssl', 'configuration.h.in');
160 $tmpl = OpenSSL::Template->new(TYPE => 'FILE',
162 $tmpl->fill_in(FILENAME => $_,
179 if (-f $configuration_h) {
220 'command-line|c' => \$cmdline,
224 'make-variables|m' => \$makevars,
225 'build-parameters|b' => \$buildparams,
233 # We allow extra arguments with --query. That allows constructs like
235 # ./configdata.pm --query 'get_sources(@ARGV)' file1 file2 file3
239 For more information, do '$0 --help'
245 pod2usage(-exitval => 0,
246 -verbose => 1);
249 pod2usage(-exitval => 0,
250 -verbose => 2);
253 print "\nCommand line (with current working directory = $here):\n\n";
255 $config{PERL},
256 catfile($config{sourcedir}, 'Configure'),
257 @{$config{perlargv}}), "\n";
259 print ' ',$config{perl_cmd},"\n";
260 print ' ',$config{perl_version},' for ',$config{perl_archname},"\n";
277 print " $what", ' ' x ($longest - length($what) + 1),
278 "[$disabled{$what}]", ' ' x ($longest2 - length($disabled{$what}) + 1);
279 print $disabled_info{$what}->{macro}
280 if $disabled_info{$what}->{macro};
282 join(', ', @{$disabled_info{$what}->{skipped}}),
284 if $disabled_info{$what}->{skipped};
304 print '[ ', join(', ', $quotify->(@{$target{$_}})), " ],\n";
306 print $quotify->($target{$_}), ",\n"
312 foreach (sort keys %{$config{perlenv}}) {
313 print ' ',$_,' = ',($config{perlenv}->{$_} || ''),"\n";
320 $prefix = $config{CROSS_COMPILE}
323 print ' ',$var,' ' x (16 - length $var),'= ',
324 (ref $config{$var} eq 'ARRAY'
325 ? join(' ', @{$config{$var}})
326 : $prefix.$config{$var}),
328 if defined $config{$var};
331 my @buildfile = ($config{builddir}, $config{build_file});
333 unless file_name_is_absolute($config{builddir});
344 my @buildfile = ($config{builddir}, $config{build_file});
346 unless file_name_is_absolute($config{builddir});
351 foreach (@{$config{build_file_templates}}) {
354 unless file_name_is_absolute($config{sourcedir});
360 print 'Reconfiguring with: ', join(' ',@{$config{perlargv}}), "\n";
361 foreach (sort keys %{$config{perlenv}}) {
362 print ' ',$_,' = ',($config{perlenv}->{$_} || ""),"\n";
367 exec $^X,catfile($config{sourcedir}, 'Configure'),'reconf';
370 use OpenSSL::Config::Query;
372 my $confquery = OpenSSL::Config::Query->new(info => \%unified_info,
373 config => \%config);
374 my $result = eval "\$confquery->$query";
376 # We may need a result class with a printing function at some point.
378 # with scalar values and simply print them in some orderly fashion.
382 print "$_ : \\\n ", join(" \\\n ", @{$result->{$_}}), "\n"
396 configdata.pm - configuration data for OpenSSL builds
414 If run with no arguments, it will rebuild the build file (Makefile or
416 With at least one option, it will instead get the information you ask for, or
417 re-run the configuration process.
420 When loaded as a module, you get a few databanks with useful information to
423 %config Configured things.
424 %target The OpenSSL config target with all inheritances
428 %withargs All data given through --with-THING options.
436 =item B<--help>
440 =item B<--man>
444 =item B<--dump> | B<-d>
446 Print all relevant configuration data. This is equivalent to B<--command-line>
447 B<--options> B<--target> B<--environment> B<--make-variables>
448 B<--build-parameters>.
450 =item B<--command-line> | B<-c>
454 =item B<--options> | B<-o>
459 =item B<--target> | B<-t>
461 Print the config attributes for this config target.
463 =item B<--environment> | B<-e>
467 =item B<--make-variables> | B<-m>
471 =item B<--build-parameters> | B<-b>
475 =item B<--reconfigure> | B<--reconf> | B<-r>
477 Re-run the configuration process.
479 =item B<--verbose> | B<-v>