Mercurial > dropbear
comparison parsenames.pl @ 280:59400faa4b44 libtomcrypt-orig libtomcrypt-1.05
Re-import libtomcrypt 1.05 for cleaner propagating.
From crypt-1.05.tar.bz2, SHA1 of 88250202bb51570dc64f7e8f1c943cda9479258f
| author | Matt Johnston <matt@ucc.asn.au> |
|---|---|
| date | Wed, 08 Mar 2006 12:58:00 +0000 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 280:59400faa4b44 |
|---|---|
| 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 $ |