1#!/usr/bin/env perl 2#*************************************************************************** 3# _ _ ____ _ 4# Project ___| | | | _ \| | 5# / __| | | | |_) | | 6# | (__| |_| | _ <| |___ 7# \___|\___/|_| \_\_____| 8# 9# Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al. 10# 11# This software is licensed as described in the file COPYING, which 12# you should have received as part of this distribution. The terms 13# are also available at https://curl.se/docs/copyright.html. 14# 15# You may opt to use, copy, modify, merge, publish, distribute and/or sell 16# copies of the Software, and permit persons to whom the Software is 17# furnished to do so, under the terms of the COPYING file. 18# 19# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY 20# KIND, either express or implied. 21# 22# SPDX-License-Identifier: curl 23# 24########################################################################### 25# 26# This script is aimed to help scan for and detect globally declared functions 27# that are not used from other source files. 28# 29# Use it like this: 30# 31# $ ./scripts/singleuse.pl [--unit] lib/.libs/libcurl.a 32# 33# --unit : built to support unit tests 34# 35 36my $unittests; 37if($ARGV[0] eq "--unit") { 38 $unittests = "tests/unit "; 39 shift @ARGV; 40} 41 42my $file = $ARGV[0]; 43 44my %wl = ( 45 'Curl_xfer_write_resp' => 'internal api', 46 'Curl_creader_def_init' => 'internal api', 47 'Curl_creader_def_close' => 'internal api', 48 'Curl_creader_def_read' => 'internal api', 49 'Curl_creader_def_total_length' => 'internal api', 50); 51 52my %api = ( 53 'curl_easy_cleanup' => 'API', 54 'curl_easy_duphandle' => 'API', 55 'curl_easy_escape' => 'API', 56 'curl_easy_getinfo' => 'API', 57 'curl_easy_init' => 'API', 58 'curl_easy_pause' => 'API', 59 'curl_easy_perform' => 'API', 60 'curl_easy_recv' => 'API', 61 'curl_easy_reset' => 'API', 62 'curl_easy_send' => 'API', 63 'curl_easy_setopt' => 'API', 64 'curl_easy_ssls_export' => 'API', 65 'curl_easy_ssls_import' => 'API', 66 'curl_easy_strerror' => 'API', 67 'curl_easy_unescape' => 'API', 68 'curl_easy_upkeep' => 'API', 69 'curl_easy_option_by_id' => 'API', 70 'curl_easy_option_by_name' => 'API', 71 'curl_easy_option_next' => 'API', 72 'curl_escape' => 'API', 73 'curl_formadd' => 'API', 74 'curl_formfree' => 'API', 75 'curl_formget' => 'API', 76 'curl_free' => 'API', 77 'curl_getdate' => 'API', 78 'curl_getenv' => 'API', 79 'curl_global_cleanup' => 'API', 80 'curl_global_init' => 'API', 81 'curl_global_init_mem' => 'API', 82 'curl_global_sslset' => 'API', 83 'curl_global_trace' => 'API', 84 'curl_maprintf' => 'API', 85 'curl_mfprintf' => 'API', 86 'curl_mime_addpart' => 'API', 87 'curl_mime_data' => 'API', 88 'curl_mime_data_cb' => 'API', 89 'curl_mime_encoder' => 'API', 90 'curl_mime_filedata' => 'API', 91 'curl_mime_filename' => 'API', 92 'curl_mime_free' => 'API', 93 'curl_mime_headers' => 'API', 94 'curl_mime_init' => 'API', 95 'curl_mime_name' => 'API', 96 'curl_mime_subparts' => 'API', 97 'curl_mime_type' => 'API', 98 'curl_mprintf' => 'API', 99 'curl_msnprintf' => 'API', 100 'curl_msprintf' => 'API', 101 'curl_multi_add_handle' => 'API', 102 'curl_multi_assign' => 'API', 103 'curl_multi_cleanup' => 'API', 104 'curl_multi_fdset' => 'API', 105 'curl_multi_get_handles' => 'API', 106 'curl_multi_info_read' => 'API', 107 'curl_multi_init' => 'API', 108 'curl_multi_perform' => 'API', 109 'curl_multi_remove_handle' => 'API', 110 'curl_multi_setopt' => 'API', 111 'curl_multi_socket' => 'API', 112 'curl_multi_socket_action' => 'API', 113 'curl_multi_socket_all' => 'API', 114 'curl_multi_poll' => 'API', 115 'curl_multi_strerror' => 'API', 116 'curl_multi_timeout' => 'API', 117 'curl_multi_wait' => 'API', 118 'curl_multi_waitfds' => 'API', 119 'curl_multi_wakeup' => 'API', 120 'curl_mvaprintf' => 'API', 121 'curl_mvfprintf' => 'API', 122 'curl_mvprintf' => 'API', 123 'curl_mvsnprintf' => 'API', 124 'curl_mvsprintf' => 'API', 125 'curl_pushheader_byname' => 'API', 126 'curl_pushheader_bynum' => 'API', 127 'curl_share_cleanup' => 'API', 128 'curl_share_init' => 'API', 129 'curl_share_setopt' => 'API', 130 'curl_share_strerror' => 'API', 131 'curl_slist_append' => 'API', 132 'curl_slist_free_all' => 'API', 133 'curl_strequal' => 'API', 134 'curl_strnequal' => 'API', 135 'curl_unescape' => 'API', 136 'curl_url' => 'API', 137 'curl_url_cleanup' => 'API', 138 'curl_url_dup' => 'API', 139 'curl_url_get' => 'API', 140 'curl_url_set' => 'API', 141 'curl_url_strerror' => 'API', 142 'curl_version' => 'API', 143 'curl_version_info' => 'API', 144 'curl_easy_header' => 'API', 145 'curl_easy_nextheader' => 'API', 146 'curl_ws_meta' => 'API', 147 'curl_ws_recv' => 'API', 148 'curl_ws_send' => 'API', 149 150 # the following functions are provided globally in debug builds 151 'curl_easy_perform_ev' => 'debug-build', 152 ); 153 154sub doublecheck { 155 my ($f, $used) = @_; 156 open(F, "git grep -Fwle '$f' -- lib ${unittests}packages|"); 157 my @also; 158 while(<F>) { 159 my $e = $_; 160 chomp $e; 161 if($e =~ /\.[c]$/) { 162 if($e !~ /^lib\/${used}\.c/) { 163 push @also, $e; 164 } 165 } 166 } 167 close(F); 168 return @also; 169} 170 171open(N, "nm $file|") || 172 die; 173 174my %exist; 175my %uses; 176my $file; 177while (<N>) { 178 my $l = $_; 179 chomp $l; 180 181 if($l =~ /^([0-9a-z_-]+)\.o:/) { 182 $file = $1; 183 } 184 # libcurl.a(unity_0_c.c.o): 185 elsif($l =~ /\(([0-9a-z_.-]+)\.o\):/) { # Apple nm 186 $file = $1; 187 } 188 if($l =~ /^([0-9a-f]+) T _?(.*)/) { 189 my ($name)=($2); 190 #print "Define $name in $file\n"; 191 $file =~ s/^libcurl_la-//; 192 $exist{$name} = $file; 193 } 194 elsif($l =~ /^ U _?(.*)/) { 195 my ($name)=($1); 196 #print "Uses $name in $file\n"; 197 $uses{$name} .= "$file, "; 198 } 199} 200close(N); 201 202my $err; 203for(sort keys %exist) { 204 #printf "%s is defined in %s, used by: %s\n", $_, $exist{$_}, $uses{$_}; 205 if(!$uses{$_}) { 206 # this is a symbol with no "global" user 207 if($_ =~ /^curl_dbg_/) { 208 # we ignore the memdebug symbols 209 } 210 elsif($_ =~ /^curl_/) { 211 if(!$api{$_}) { 212 # not present in the API, or for debug-builds 213 print STDERR "Bad curl-prefix: $_\n"; 214 $err++; 215 } 216 } 217 elsif($wl{$_}) { 218 #print "$_ is WL\n"; 219 } 220 else { 221 my $c = $_; 222 my @also = doublecheck($c, $exist{$c}); 223 if(!scalar(@also)) { 224 printf "%s in %s\n", $c, $exist{$c}; 225 $err++; 226 } 227 # foreach my $a (@also) { 228 # print " $a\n"; 229 # } 230 } 231 } 232 elsif($_ =~ /^curl_/) { 233 # global prefix, make sure it is "blessed" 234 if(!$api{$_}) { 235 # not present in the API, or for debug-builds 236 if($_ !~ /^curl_dbg_/) { 237 # ignore the memdebug symbols 238 print STDERR "Bad curl-prefix $_\n"; 239 $err++; 240 } 241 } 242 } 243} 244 245exit $err; 246