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 accepts a source file as input on the command line. 27# 28# It first loads the 'symbols-in-versions' document and stores a lookup 29# table for all known symbols for which version they were introduced. 30# 31# It then scans the given source file to dig up all symbols starting with CURL. 32# Finally, it sorts the internal list of found symbols (using the version 33# number as sort key) and then it outputs the most recent version number and 34# the symbols from that version that are used. 35# 36# Usage: 37# 38# version-check.pl [source file] 39# 40 41open(S, "<../libcurl/symbols-in-versions") || die; 42 43my %doc; 44my %rem; 45while(<S>) { 46 if(/(^CURL[^ \n]*) *(.*)/) { 47 my ($sym, $rest)=($1, $2); 48 my @a=split(/ +/, $rest); 49 50 $doc{$sym}=$a[0]; # when it was introduced 51 52 if($a[2]) { 53 # this symbol is documented to have been present the last time 54 # in this release 55 $rem{$sym}=$a[2]; 56 } 57 } 58 59} 60 61close(S); 62 63sub age { 64 my ($ver)=@_; 65 66 my @s=split(/\./, $ver); 67 return $s[0]*10000+$s[1]*100+$s[2]; 68} 69 70my %used; 71open(C, "<$ARGV[0]") || die; 72 73while(<C>) { 74 if(/\W(CURL[_A-Z0-9v]+)\W/) { 75 #print "$1\n"; 76 $used{$1}++; 77 } 78} 79 80close(C); 81 82sub sortversions { 83 my $r = age($doc{$a}) <=> age($doc{$b}); 84 if(!$r) { 85 $r = $a cmp $b; 86 } 87 return $r; 88} 89 90my @recent = reverse sort sortversions keys %used; 91 92# the most recent symbol 93my $newsym = $recent[0]; 94# the most recent version 95my $newver = $doc{$newsym}; 96 97print "The scanned source uses these symbols introduced in $newver:\n"; 98 99for my $w (@recent) { 100 if($doc{$w} eq $newver) { 101 printf " $w\n"; 102 next; 103 } 104 last; 105} 106
