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$