Mercurial > dropbear

comparison libtommath/parsenames.pl @ 1511:5916af64acd4 fuzz

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge from main
author Matt Johnston <matt@ucc.asn.au>
date Sat, 17 Feb 2018 19:29:51 +0800
parents 8bba51a55704
children
comparison
equal deleted inserted replaced
1457:32f990cc96b1 1511:5916af64acd4
2 # 2 #
3 # Splits the list of files and outputs for makefile type files 3 # Splits the list of files and outputs for makefile type files
4 # wrapped at 80 chars 4 # wrapped at 80 chars
5 # 5 #
6 # Tom St Denis 6 # Tom St Denis
7 @a = split(" ", $ARGV[1]); 7 use strict;
8 $b = "$ARGV[0]="; 8 use warnings;
9 $len = length($b); 9
10 my @a = split ' ', $ARGV[1];
11 my $b = $ARGV[0] . '=';
12 my $len = length $b;
10 print $b; 13 print $b;
11 foreach my $obj (@a) { 14 foreach my $obj (@a) {
12 $len = $len + length($obj); 15 $len = $len + length $obj;
13 $obj =~ s/\*/\$/; 16 $obj =~ s/\*/\$/;
14 if ($len > 100) { 17 if ($len > 100) {
15 printf "\\\n"; 18 printf "\\\n";
16 $len = length($obj); 19 $len = length $obj;
17 } 20 }
18 print "$obj "; 21 print $obj . ' ';
19 } 22 }
20 23
21 print "\n\n"; 24 print "\n\n";
22 25
23 # $Source$ 26 # ref: $Format:%D$
24 # $Revision$ 27 # git commit: $Format:%H$
25 # $Date$ 28 # commit time: $Format:%ai$