kc3-lang/libtommath/parsenames.pl

• Show log

  Commit

• Hash : 38fe9eec
  Author :
  Date : 2015-12-10T07:30:09
  

  sanitize some Perl scripts (Perl4 is gone)

Download

• parsenames.pl

• #!/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";
  
  # $Source$
  # $Revision$
  # $Date$
  

Download