remove trailing spaces

This commit is contained in:
Karel Miko 2018-12-02 13:13:48 +01:00
parent d7f124f563
commit c9f1a0023f
2 changed files with 7 additions and 7 deletions

12
dep.pl
View File

@ -1,4 +1,4 @@
#!/usr/bin/perl
#!/usr/bin/perl
#
# Walk through source, add labels and make classes
#
@ -7,7 +7,7 @@ use warnings;
my %deplist;
#open class file and write preamble
#open class file and write preamble
open(my $class, '>', 'tommath_class.h') or die "Couldn't open tommath_class.h for writing\n";
print {$class} << 'EOS';
#if !(defined(LTM1) && defined(LTM2) && defined(LTM3))
@ -34,7 +34,7 @@ foreach my $filename (glob 'bn*.c') {
# define $define
EOS
# now copy text and apply #ifdef as required
# now copy text and apply #ifdef as required
my $apply = 0;
open(my $src, '<', $filename);
open(my $out, '>', 'tmp');
@ -72,12 +72,12 @@ print {$class} << 'EOS';
EOS
# now do classes
# now do classes
foreach my $filename (glob 'bn*.c') {
open(my $src, '<', $filename) or die "Can't open source file!\n";
# convert filename to upper case so we can use it as a define
# convert filename to upper case so we can use it as a define
$filename =~ tr/[a-z]/[A-Z]/;
$filename =~ tr/\./_/;
@ -128,7 +128,7 @@ print {$class} << 'EOS';
EOS
close $class;
#now let's make a cool call graph...
#now let's make a cool call graph...
open(my $out, '>', 'callgraph.txt');
my $indent = 0;

View File

@ -5,7 +5,7 @@
#define MPI_CONFIG_H_
/*
For boolean options,
For boolean options,
0 = no
1 = yes