#!/usr/bin/env perl print <, 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 * ***************************************************************************/ /* This source code is generated by optiontable.pl - DO NOT EDIT BY HAND */ #include "curl_setup.h" #include "easyoptions.h" /* all easy setopt options listed in alphabetical order */ struct curl_easyoption Curl_easyopts[] = { HEAD ; my $lastnum=0; sub add { my($opt, $type, $num)=@_; my $name; # remove all spaces from the type $type =~ s/ //g; my $ext = $type; if($opt =~ /OBSOLETE/) { # skip obsolete options next; } if($opt =~ /^CURLOPT_(.*)/) { $name=$1; } $ext =~ s/CURLOPTTYPE_//; $ext =~ s/CBPOINT/CBPTR/; $ext =~ s/POINT\z//; $type = "CURLOT_$ext"; $opt{$name} = $opt; $type{$name} = $type; push @names, $name; if($num < $lastnum) { print STDERR "ERROR: $opt has bad number: $num < $lastnum\n"; exit 2; } else { $lastnum = $num; } } my $fl; while() { my $l = $_; if($fl) { # continued deprecation if($l =~ /(.*)\),/) { $fl .= $1; # the end my @p=split(/, */, $fl); add($p[0], $p[1], $p[2]); undef $fl; } else { # another line to append chomp $l; $fl .= $l; } } if(/^ *CURLOPTDEPRECATED$(.*)/) { $fl = $1; chomp $fl; } if(/^ *CURLOPT\(([^,]*), ([^,]*), (\d+)$/) { my($opt, $type, $num)=($1,$2,$3); add($opt, $type, $num); } # alias for an older option # old = new if(/^#define (CURLOPT_[^ ]*) *(CURLOPT_\S*)/) { my ($o, $n)=($1, $2); # skip obsolete ones if($n !~ /OBSOLETE/) { $o =~ s/^CURLOPT_//; $n =~ s/^CURLOPT_//; $alias{$o} = $n; push @names, $o, } } } for my $name (sort @names) { my $oname = $name; my $a = $alias{$name}; my $flag = "0"; if($a) { $name = $alias{$name}; $flag = "CURLOT_FLAG_ALIAS"; } $o = sprintf(" {\"%s\", %s, %s, %s},\n", $oname, $opt{$name}, $type{$name}, $flag); if(length($o) < 80) { print $o; } else { printf(" {\"%s\", %s,\n %s, %s},\n", $oname, $opt{$name}, $type{$name}, $flag); } } print <