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 if ($ARGV[0] eq "HEADERS") { print "testprof/tomcrypt_test.h"; } 21 22 print "\n\n"; 23 24 # $Source: /cvs/libtom/libtomcrypt/parsenames.pl,v $ 25 # $Revision: 1.3 $ 26 # $Date: 2005/05/05 14:49:27 $ 27
