Mercurial > dropbear

view libtomcrypt/parsenames.pl @ 1158:ef67b57fe438

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix default build when getpass() is unavailable if the system doesn't support getpass, we still default on the options that require it which causes a build failure. instead, only default enable these when getpass is available.
author Mike Frysinger <vapier@gentoo.org>
date Wed, 21 Oct 2015 22:48:15 +0800
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 $