summaryrefslogtreecommitdiff
path: root/plugins/FTPFileYM/curl/docs/examples/version-check.pl
diff options
context:
space:
mode:
authorGeorge Hazan <george.hazan@gmail.com>2013-11-10 21:43:18 +0000
committerGeorge Hazan <george.hazan@gmail.com>2013-11-10 21:43:18 +0000
commit530102b3b16fdc6f008cdf312e5977a878f295db (patch)
tree3159eb3d5712151a33d796b7a0039ae9a4d00e09 /plugins/FTPFileYM/curl/docs/examples/version-check.pl
parente40ecc70a7db28bdf78dad5d804e07d08a77159c (diff)
libcurl update
git-svn-id: http://svn.miranda-ng.org/main/trunk@6864 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/FTPFileYM/curl/docs/examples/version-check.pl')
-rw-r--r--plugins/FTPFileYM/curl/docs/examples/version-check.pl105
1 files changed, 0 insertions, 105 deletions
diff --git a/plugins/FTPFileYM/curl/docs/examples/version-check.pl b/plugins/FTPFileYM/curl/docs/examples/version-check.pl
deleted file mode 100644
index 92f0808d61..0000000000
--- a/plugins/FTPFileYM/curl/docs/examples/version-check.pl
+++ /dev/null
@@ -1,105 +0,0 @@
-#!/usr/bin/env perl
-#***************************************************************************
-# _ _ ____ _
-# Project ___| | | | _ \| |
-# / __| | | | |_) | |
-# | (__| |_| | _ <| |___
-# \___|\___/|_| \_\_____|
-#
-# Copyright (C) 1998 - 2010, Daniel Stenberg, <daniel@haxx.se>, 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 http://curl.haxx.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.
-#
-###########################################################################
-
-# This script accepts a source file as input on the command line.
-#
-# It first loads the 'symbols-in-versions' document and stores a lookup
-# table for all known symbols for which version they were introduced.
-#
-# It then scans the given source file to dig up all symbols starting with CURL.
-# Finally, it sorts the internal list of found symbols (using the version
-# number as sort key) and then it outputs the most recent version number and
-# the symbols from that version that are used.
-#
-# Usage:
-#
-# version-check.pl [source file]
-#
-
-open(S, "<../libcurl/symbols-in-versions") || die;
-
-my %doc;
-my %rem;
-while(<S>) {
- if(/(^CURL[^ \n]*) *(.*)/) {
- my ($sym, $rest)=($1, $2);
- my @a=split(/ +/, $rest);
-
- $doc{$sym}=$a[0]; # when it was introduced
-
- if($a[2]) {
- # this symbol is documented to have been present the last time
- # in this release
- $rem{$sym}=$a[2];
- }
- }
-
-}
-
-close(S);
-
-sub age {
- my ($ver)=@_;
-
- my @s=split(/\./, $ver);
- return $s[0]*10000+$s[1]*100+$s[2];
-}
-
-my %used;
-open(C, "<$ARGV[0]") || die;
-
-while(<C>) {
- if(/\W(CURL[_A-Z0-9v]+)\W/) {
- #print "$1\n";
- $used{$1}++;
- }
-}
-
-close(C);
-
-sub sortversions {
- my $r = age($doc{$a}) <=> age($doc{$b});
- if(!$r) {
- $r = $a cmp $b;
- }
- return $r;
-}
-
-my @recent = reverse sort sortversions keys %used;
-
-# the most recent symbol
-my $newsym = $recent[0];
-# the most recent version
-my $newver = $doc{$newsym};
-
-print "The scanned source uses these symbols introduced in $newver:\n";
-
-for my $w (@recent) {
- if($doc{$w} eq $newver) {
- printf " $w\n";
- next;
- }
- last;
-}
-
-