Lines Matching +full:group +full:- +full:index +full:- +full:shift
2 # Copyright 2002-2025 The OpenSSL Project Authors. All Rights Reserved.
50 -c List undocumented commands, undocumented options and unimplemented options.
51 -d Detailed list of undocumented (implies -u)
52 -e Detailed list of new undocumented (implies -v)
53 -h Print this help message
54 -l Print bogus links
55 -m Name(s) of manuals to focus on. Default: man1,man3,man5,man7
56 -n Print nits in POD pages
57 -o Causes -e/-v to count symbols added since 1.1.1 as new (implies -v)
58 -i Checks for history entries available for symbols added since 3.0.0 as new
59 -u Count undocumented functions
60 -v Count new undocumented functions
70 die "Cannot use both -u and -v"
72 die "Cannot use both -d and -e"
77 die "Need one of -[cdehlnouv] flags.\n"
86 die "Argument of -m option may contain only man1, man3, man5, and/or man7"
142 # 'public_manual' - inclusive selector, adds public manuals to the
144 # 'internal_manual' - inclusive selector, adds internal manuals to the
146 # 'manual' - inclusive selector, adds any manual to the returned
149 # 'public_header' - inclusive selector, adds public headers to the
151 # 'header' - inclusive selector, adds any header file to the
158 # - exclusive selectors, only applicable together with
207 foreach ( map { @{$unified_info{depends}->{$_}} }
208 @{$unified_info{mandocs}->{$mansect}} ) {
256 grep { $files{$_}->{$type} && $files{$_}->{$section} }
263 grep { $files{$_}->{public_header} }
285 # Cross-check functions in the NAME and SYNOPSIS section.
287 my $id = shift;
288 my $filename = shift;
289 my $contents = shift;
295 err($id, "Trailing comma before - in NAME")
296 if $tmp =~ /, *-/;
297 $tmp =~ s/ -.*//g;
313 err($id, "The name '$n' contains white-space")
332 # Remove all non-code lines
420 if $is_prototype && $line =~ /[a-z0-9],[^\s]/;
431 my $id = shift;
432 my $contents = shift;
433 my $section = shift;
434 my $before = shift;
446 my $contents = shift;
447 my $functionname = shift;
456 if (index($histsect, $functionname) == -1) {
466 # =head1. Treats =head2 =head3 as equivalent -- it doesn't reset the head3
467 # sets if it finds a =head2 -- but that is good enough for now. Also check
470 my $id = shift;
471 my $contents = shift;
490 if $line =~ /head1.*[a-z]/;
492 if $line =~ /head[234][ A-Z0-9]+$/;
501 # (note: non-greedy is important, or something like 'B<foo> and B<bar>'
504 qr/( # Capture group
506 (?:(?-1)|.)*? # recurse the whole regexp (referring to
507 # the last opened capture group, i.e. the
516 # We do also accept the single -? or -n, where n is a digit
523 - # Single dash (--)
525 [[:alpha:]](?:[-_[:alnum:]]*?[[:alnum:]])?
534 my $id = shift;
535 my $filename = shift;
536 my $thing = shift;
549 if ( $unwrapped =~ /^\s*-/ ) {
551 if $unmarked =~ /^-${option_re}$/;
562 my $id = shift;
563 my $filename = shift;
564 my $contents = shift;
573 while ( $contents =~ /=head1\s+[A-Z ]*?OPTIONS$(.*?)(?==head1)/msg ) {
579 /(?<![-<[:alnum:]])-(?:$markup_re|.)*(?![->[:alnum:]])/msg ) {
587 push @synopsis, $found if $found =~ /^B<-/;
612 if ($1 // '') ne '' && $found =~ /^B<\s*-/;
622 if ($found =~ /^B<-/) {
626 || $id =~ /(openssl|-options)\.pod:1:$/;
644 my $id = shift;
645 my $filename = shift;
646 my $contents = shift;
666 # This is from http://man7.org/linux/man-pages/man7/man-pages.7.html
668 '16bit' => '16-bit',
671 'builtin' => 'built-in',
673 'fall-back' => 'fallback',
677 'i-node' => 'inode',
679 'lower-case' => 'lowercase',
681 'non-blocking' => 'nonblocking',
682 'non-default' => 'nondefault',
683 'non-empty' => 'nonempty',
684 'non-negative' => 'nonnegative',
685 'non-zero' => 'nonzero',
687 'pre-allocated' => 'preallocated',
688 'pseudo-terminal' => 'pseudoterminal',
689 'real time' => 'real-time',
690 'realtime' => 'real-time',
693 'saved group ID'=> 'saved set-group-ID',
694 'saved set-GID' => 'saved set-group-ID',
695 'saved set-UID' => 'saved set-user-ID',
696 'saved user ID' => 'saved set-user-ID',
697 'set-GID' => 'set-group-ID',
698 'set-UID' => 'set-user-ID',
699 'setgid' => 'set-group-ID',
700 'setuid' => 'set-user-ID',
701 'sub-system' => 'subsystem',
703 'super-block' => 'superblock',
705 'super-user' => 'superuser',
710 'upper-case' => 'uppercase',
719 my $id = shift;
720 my $contents = shift;
749 $mansect = $1 if $filename =~ /man([1-9])/;
777 next if $target =~ /openssl-?/;
783 # Check for proper in-man-3 API links.
816 if $contents =~ /head2\s+[A-Z ]+\n/;
830 # (non-consecutive lines are okay; see man3/MD5.pod).
860 $section = $1 if $dirname =~ /man([1-9])/;
877 # State of man-page names.
899 my $file = shift;
900 my $type = shift;
926 my $missingfile = shift;
927 my $type = shift;
948 # If a man-page isn't recorded public or if it's recorded missing
953 # If a man-page isn't recorded internal or if it's recorded missing
1002 my $type = shift;
1096 err("${filename}:1:", "reference to non-existing $link")
1107 # because they are, via the "-*" construct.
1129 my $cmd = shift;
1130 my $doc = shift;
1145 err("$cmd does not implement help for -$expect_helpstr") unless m/^\s*"/;
1148 if (m/\{\s*"([^"]+)"\s*,\s*OPT_[A-Z0-9_]+\s*,\s*('[-\/:<>cAEfFlMnNpsuU]'|0)(.*)$/
1153 } elsif (m/[\s,](OPT_[A-Z]+_OPTIONS?)\s*(,|$)/) {
1169 if ( /\[B<-([^ >]+)/ ) {
1171 } elsif ( /^B<-([^ >]+)/ ) {
1184 err("$doc: undocumented $cmd option -$_");
1190 next if $_ eq "-"; # Skip the -- end-of-flags marker
1192 err("$doc: $cmd does not implement -$_");
1213 $active = $1 if m/^\s*#\s*define\s+(OPT_[A-Z]+_OPTIONS?)\s*\\\s*$/;
1227 my @doc = ( grep { basename($_) eq "openssl-$cmd.pod"
1246 loadnum('util/other-internal.syms');
1255 loadmissing('util/missingcrypto-internal.txt');
1256 loadmissing('util/missingssl-internal.txt');
1283 err("$_ doesn't start with openssl-") unless /openssl-/;