optiontable.pl (3763B)
1 #!/usr/bin/env perl 2 3 print <<HEAD 4 /*************************************************************************** 5 * _ _ ____ _ 6 * Project ___| | | | _ \\| | 7 * / __| | | | |_) | | 8 * | (__| |_| | _ <| |___ 9 * \\___|\\___/|_| \\_\\_____| 10 * 11 * Copyright (C) Daniel Stenberg, <daniel\@haxx.se>, et al. 12 * 13 * This software is licensed as described in the file COPYING, which 14 * you should have received as part of this distribution. The terms 15 * are also available at https://curl.se/docs/copyright.html. 16 * 17 * You may opt to use, copy, modify, merge, publish, distribute and/or sell 18 * copies of the Software, and permit persons to whom the Software is 19 * furnished to do so, under the terms of the COPYING file. 20 * 21 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY 22 * KIND, either express or implied. 23 * 24 * SPDX-License-Identifier: curl 25 * 26 ***************************************************************************/ 27 28 /* This source code is generated by optiontable.pl - DO NOT EDIT BY HAND */ 29 30 #include "curl_setup.h" 31 #include "easyoptions.h" 32 33 /* all easy setopt options listed in alphabetical order */ 34 const struct curl_easyoption Curl_easyopts[] = { 35 HEAD 36 ; 37 38 my $lastnum=0; 39 40 sub add { 41 my($opt, $type, $num)=@_; 42 my $name; 43 # remove all spaces from the type 44 $type =~ s/ //g; 45 my $ext = $type; 46 47 if($opt =~ /OBSOLETE/) { 48 # skip obsolete options 49 next; 50 } 51 52 if($opt =~ /^CURLOPT_(.*)/) { 53 $name=$1; 54 } 55 $ext =~ s/CURLOPTTYPE_//; 56 $ext =~ s/CBPOINT/CBPTR/; 57 $ext =~ s/POINT\z//; 58 $type = "CURLOT_$ext"; 59 60 $opt{$name} = $opt; 61 $type{$name} = $type; 62 push @names, $name; 63 if($num < $lastnum) { 64 print STDERR "ERROR: $opt has bad number: $num < $lastnum\n"; 65 exit 2; 66 } 67 else { 68 $lastnum = $num; 69 } 70 } 71 72 73 my $fl; 74 while(<STDIN>) { 75 my $l = $_; 76 if($fl) { 77 # continued deprecation 78 if($l =~ /(.*)\),/) { 79 $fl .= $1; 80 81 # the end 82 my @p=split(/, */, $fl); 83 add($p[0], $p[1], $p[2]); 84 undef $fl; 85 } 86 else { 87 # another line to append 88 chomp $l; 89 $fl .= $l; 90 } 91 } 92 93 if(/^ *CURLOPTDEPRECATED\((.*)/) { 94 $fl = $1; 95 chomp $fl; 96 } 97 98 if(/^ *CURLOPT\(([^,]*), ([^,]*), (\d+)\)/) { 99 my($opt, $type, $num)=($1,$2,$3); 100 add($opt, $type, $num); 101 } 102 103 # alias for an older option 104 # old = new 105 if(/^#define (CURLOPT_[^ ]*) *(CURLOPT_\S*)/) { 106 my ($o, $n)=($1, $2); 107 # skip obsolete ones 108 if(($n !~ /OBSOLETE/) && ($o !~ /OBSOLETE/)) { 109 $o =~ s/^CURLOPT_//; 110 $n =~ s/^CURLOPT_//; 111 $alias{$o} = $n; 112 push @names, $o; 113 } 114 } 115 } 116 117 118 for my $name (sort @names) { 119 my $oname = $name; 120 my $a = $alias{$name}; 121 my $flag = "0"; 122 if($a) { 123 $name = $alias{$name}; 124 $flag = "CURLOT_FLAG_ALIAS"; 125 } 126 $o = sprintf(" {\"%s\", %s, %s, %s},\n", 127 $oname, $opt{$name}, $type{$name}, $flag); 128 if(length($o) < 80) { 129 print $o; 130 } 131 else { 132 printf(" {\"%s\", %s,\n %s, %s},\n", 133 $oname, $opt{$name}, $type{$name}, $flag); 134 } 135 } 136 137 print <<FOOT 138 {NULL, CURLOPT_LASTENTRY, CURLOT_LONG, 0} /* end of table */ 139 }; 140 141 #ifdef DEBUGBUILD 142 /* 143 * Curl_easyopts_check() is a debug-only function that returns non-zero 144 * if this source file is not in sync with the options listed in curl/curl.h 145 */ 146 int Curl_easyopts_check(void) 147 { 148 return (CURLOPT_LASTENTRY % 10000) != ($lastnum + 1); 149 } 150 #endif 151 FOOT 152 ;