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 # SPDX-License-Identifier: Unlicense
   8 @a = split(" ", $ARGV[1]);
   9 $b = "$ARGV[0]=";
  10 $len = length($b);
  11 print $b;
  12 foreach my $obj (@a) {
  13    $len = $len + length($obj);
  14    $obj =~ s/\*/\$/;
  15    if ($len > 100) {
  16       printf "\\\n";
  17       $len = length($obj);
  18    }
  19    print "$obj ";
  20 }
  21 #if ($ARGV[0] eq "HEADERS") { print "testprof/tomcrypt_test.h"; }
  22
  23 print "\n\n";