remove trailing spaces
This commit is contained in:
parent
d7f124f563
commit
c9f1a0023f
12
dep.pl
12
dep.pl
@ -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;
|
||||
|
@ -5,7 +5,7 @@
|
||||
#define MPI_CONFIG_H_
|
||||
|
||||
/*
|
||||
For boolean options,
|
||||
For boolean options,
|
||||
0 = no
|
||||
1 = yes
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user