Mercurial > dropbear
view libtommath/parsenames.pl @ 1575:e75dab5bec71
some linting after fuzz merge (#60)
* fix prototype
* remove extra comma
* use m_free after m_strdup
author | François Perrad <francois.perrad@gadz.org> |
---|---|
date | Sat, 03 Mar 2018 04:06:45 +0100 |
parents | 8bba51a55704 |
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 use strict; use warnings; my @a = split ' ', $ARGV[1]; my $b = $ARGV[0] . '='; my $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 . ' '; } print "\n\n"; # ref: $Format:%D$ # git commit: $Format:%H$ # commit time: $Format:%ai$