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