Mercurial > dropbear
view libtomcrypt/parsenames.pl @ 463:33d5e9fb0f78 agent-client
propagate from branch 'au.asn.ucc.matt.dropbear' (head fb7080ca6e254faaf7cfaee93b0ab6ab6de4ed59)
to branch 'au.asn.ucc.matt.dropbear.cli-agent' (head 78d02301ae8310efa2639f15da0ea62dea110e4b)
author | Matt Johnston <matt@ucc.asn.au> |
---|---|
date | Thu, 29 Nov 2007 11:38:06 +0000 |
parents | 1b9e69c058d2 |
children |
line wrap: on
line source
#!/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 $