Mercurial > dropbear
comparison libtommath/parsenames.pl @ 1436:60fc6476e044
Update to libtommath v1.0
author | Matt Johnston <matt@ucc.asn.au> |
---|---|
date | Sat, 24 Jun 2017 22:37:14 +0800 |
parents | |
children | 8bba51a55704 |
comparison
equal
deleted
inserted
replaced
1435:f849a5ca2efc | 1436:60fc6476e044 |
---|---|
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$ |