1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889 |
- #!/usr/bin/env perl
- # ***************************************************************************
- # * _ _ ____ _
- # * Project ___| | | | _ \| |
- # * / __| | | | |_) | |
- # * | (__| |_| | _ <| |___
- # * \___|\___/|_| \_\_____|
- # *
- # * Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
- # *
- # * This software is licensed as described in the file COPYING, which
- # * you should have received as part of this distribution. The terms
- # * are also available at https://curl.se/docs/copyright.html.
- # *
- # * You may opt to use, copy, modify, merge, publish, distribute and/or sell
- # * copies of the Software, and permit persons to whom the Software is
- # * furnished to do so, under the terms of the COPYING file.
- # *
- # * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
- # * KIND, either express or implied.
- # *
- # * SPDX-License-Identifier: curl
- # *
- # ***************************************************************************
- use POSIX qw(strftime);
- my @ts;
- if (defined($ENV{SOURCE_DATE_EPOCH})) {
- @ts = localtime($ENV{SOURCE_DATE_EPOCH});
- } else {
- @ts = localtime;
- }
- my $date = strftime "%b %e, %Y", @ts;
- my $year = strftime "%Y", @ts;
- print <<HEADER
- ---
- c: Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
- SPDX-License-Identifier: curl
- Title: libcurl-symbols
- Section: 3
- Source: libcurl
- See-also:
- - libcurl (3)
- - libcurl-easy (3)
- - libcurl-multi (3)
- - libcurl-security (3)
- - libcurl-thread (3)
- ---
- # libcurl symbols
- This man page details version information for public symbols provided in the
- libcurl header files. This lists the first version in which the symbol was
- introduced and for some symbols two additional information pieces:
- The first version in which the symbol is marked "deprecated" - meaning that
- since that version no new code should be written to use the symbol as it is
- marked for getting removed in a future.
- The last version that featured the specific symbol. Using the symbol in source
- code will make it no longer compile error-free after that specified version.
- This man page is automatically generated from the symbols-in-versions file.
- HEADER
- ;
- while(<STDIN>) {
- if($_ =~ /^(CURL[A-Z0-9_.]*) *(.*)/i) {
- my ($symbol, $rest)=($1,$2);
- my ($intro, $dep, $rem);
- if($rest =~ s/^([0-9.]*) *//) {
- $intro = $1;
- }
- if($rest =~ s/^([0-9.]*) *//) {
- $dep = $1;
- }
- if($rest =~ s/^([0-9.]*) *//) {
- $rem = $1;
- }
- print "\n## $symbol\nIntroduced in $intro.";
- if($dep) {
- print " Deprecated since $dep.";
- }
- if($rem) {
- print " Last used in $rem.";
- }
- print "\n";
- }
- }
|