1234567891011121314151617181920212223242526 |
- #!/usr/bin/perl
- #
- # Splits the list of files and outputs for makefile type files
- # wrapped at 80 chars
- #
- # Tom St Denis
- @a = split(" ", $ARGV[1]);
- $b = "$ARGV[0]=";
- $len = length($b);
- print $b;
- foreach my $obj (@a) {
- $len = $len + length($obj);
- $obj =~ s/\*/\$/;
- if ($len > 100) {
- printf "\\\n";
- $len = length($obj);
- }
- print "$obj ";
- }
- if ($ARGV[0] eq "HEADERS") { print "testprof/tomcrypt_test.h"; }
- print "\n\n";
- # $Source: /cvs/libtom/libtomcrypt/parsenames.pl,v $
- # $Revision: 1.3 $
- # $Date: 2005/05/05 14:49:27 $
|