release/src/router/dropbear/libtomcrypt/parsenames.pl

   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 $