Return to version-check.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / curl / docs / examples

Annotation of embedaddon/curl/docs/examples/version-check.pl, revision 1.1.1.1

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