parsenames.pl 557 B

1234567891011121314151617181920212223242526
  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. print "\n\n";
  22. # $Source: /cvs/libtom/libtomcrypt/parsenames.pl,v $
  23. # $Revision: 1.3 $
  24. # $Date: 2005/05/05 14:49:27 $