Mercurial > dropbear
comparison libtommath/parsenames.pl @ 1511:5916af64acd4 fuzz
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$ |