Lines Matching +full:phase +full:- +full:shift
2 # Copyright 1999-2024 The OpenSSL Project Authors. All Rights Reserved.
32 sub phase subroutine
34 my $text = uc(shift);
35 print STDERR "\n---\n$text\n" if $debug;
45 -conf FILE Use the named config file FILE instead of the default.
47 -debug Verbose output debugging on stderr.
49 -internal Generate code that is to be built as part of OpenSSL itself.
52 -module M Only useful with -internal!
55 -rebuild.
59 -nowrite Do not write the header/source files, even if changed.
61 -rebuild Rebuild all header and C source files, even if there
64 -reindex Ignore previously assigned values (except for R records in
67 -static Make the load/unload functions static.
69 -unref List all unreferenced function and reason codes on stderr;
70 implies -nowrite.
72 -help Show this help text.
75 if '-internal' was NOT specified on the command line.
82 last unless $arg =~ /-.*/;
83 $arg = $1 if $arg =~ /-(-.*)/;
84 if ( $arg eq "-conf" ) {
86 shift @ARGV;
87 } elsif ( $arg eq "-debug" ) {
90 } elsif ( $arg eq "-internal" ) {
92 } elsif ( $arg eq "-nowrite" ) {
94 } elsif ( $arg eq "-rebuild" ) {
96 } elsif ( $arg eq "-reindex" ) {
98 } elsif ( $arg eq "-static" ) {
100 } elsif ( $arg eq "-unref" ) {
103 } elsif ( $arg eq "-module" ) {
104 shift @ARGV;
106 } elsif ( $arg =~ /-*h(elp)?/ ) {
109 } elsif ( $arg =~ /-.*/ ) {
110 die "Unknown option $arg; use -h for help.\n";
112 shift @ARGV;
117 die "Cannot mix -internal and -static\n" if $static;
124 die "-module isn't useful without -internal\n" if scalar keys %modules > 0;
129 my %hpubinc; # lib -> public header
130 my %libpubinc; # public header -> lib
131 my %hprivinc; # lib -> private header
132 my %libprivinc; # private header -> lib
133 my %cskip; # error_file -> lib
134 my %errorfile; # lib -> error file name
135 my %rmax; # lib -> max assigned reason code
136 my %rassigned; # lib -> colon-separated list of assigned reason codes
137 my %rnew; # lib -> count of new reason codes
138 my %rextra; # "extra" reason code -> lib
139 my %rcodes; # reason-name -> value
141 my %strings; # define -> text
166 die "Private header file may only be specified with -internal ($privhdr given)\n"
185 &phase("Reading state");
220 if ( $name =~ /^(?:OSSL_|OPENSSL_)?[A-Z0-9]{2,}_R_/ ) {
228 } elsif ( $name =~ /^(?:OSSL_|OPENSSL_)?[A-Z0-9]{2,}_F_/ ) {
243 print STDERR " --none--\n";
258 &phase("Scanning source");
273 if ( /(((?:OSSL_|OPENSSL_)?[A-Z0-9]{2,})_R_[A-Z0-9_]+)/ ) {
290 &phase("Writing files");
308 # Flag if the sub-library is disablable
309 # There are a few exceptions, where disabling the sub-library
310 # doesn't actually remove the whole sub-library, but rather implements
333 * Copyright 2020-$YEAR The OpenSSL Project Authors. All Rights Reserved.
370 my $z = 48 - length($i);
391 $indent = substr $indent, 0, -1;
424 * Copyright 1995-$YEAR The OpenSSL Project Authors. All Rights Reserved.
474 my $z = 48 - length($i);
492 $indent = substr $indent, 0, -1;
531 * Copyright 1995-$YEAR The OpenSSL Project Authors. All Rights Reserved.
567 $rn =~ tr/_[A-Z]/ [a-z]/;
644 $indent = substr $indent, 0, -1;
658 &phase("Ending");
680 # Copyright 1999-$YEAR The OpenSSL Project Authors. All Rights Reserved.