Mercurial > dropbear
annotate libtommath/parsenames.pl @ 1453:336cae2238ca
test close < 0, from Marco Wenzel
| author | Matt Johnston <matt@ucc.asn.au> |
|---|---|
| date | Wed, 18 Oct 2017 22:41:27 +0800 |
| parents | 60fc6476e044 |
| children | 8bba51a55704 |
| rev | line source |
|---|---|
| 1436 | 1 #!/usr/bin/perl |
| 2 # | |
| 3 # Splits the list of files and outputs for makefile type files | |
| 4 # wrapped at 80 chars | |
| 5 # | |
| 6 # Tom St Denis | |
| 7 @a = split(" ", $ARGV[1]); | |
| 8 $b = "$ARGV[0]="; | |
| 9 $len = length($b); | |
| 10 print $b; | |
| 11 foreach my $obj (@a) { | |
| 12 $len = $len + length($obj); | |
| 13 $obj =~ s/\*/\$/; | |
| 14 if ($len > 100) { | |
| 15 printf "\\\n"; | |
| 16 $len = length($obj); | |
| 17 } | |
| 18 print "$obj "; | |
| 19 } | |
| 20 | |
| 21 print "\n\n"; | |
| 22 | |
| 23 # $Source$ | |
| 24 # $Revision$ | |
| 25 # $Date$ |