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
|
# Walk through source, add labels and make classes
|
||||||
#
|
#
|
||||||
@ -7,7 +7,7 @@ use warnings;
|
|||||||
|
|
||||||
my %deplist;
|
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";
|
open(my $class, '>', 'tommath_class.h') or die "Couldn't open tommath_class.h for writing\n";
|
||||||
print {$class} << 'EOS';
|
print {$class} << 'EOS';
|
||||||
#if !(defined(LTM1) && defined(LTM2) && defined(LTM3))
|
#if !(defined(LTM1) && defined(LTM2) && defined(LTM3))
|
||||||
@ -34,7 +34,7 @@ foreach my $filename (glob 'bn*.c') {
|
|||||||
# define $define
|
# define $define
|
||||||
EOS
|
EOS
|
||||||
|
|
||||||
# now copy text and apply #ifdef as required
|
# now copy text and apply #ifdef as required
|
||||||
my $apply = 0;
|
my $apply = 0;
|
||||||
open(my $src, '<', $filename);
|
open(my $src, '<', $filename);
|
||||||
open(my $out, '>', 'tmp');
|
open(my $out, '>', 'tmp');
|
||||||
@ -72,12 +72,12 @@ print {$class} << 'EOS';
|
|||||||
|
|
||||||
EOS
|
EOS
|
||||||
|
|
||||||
# now do classes
|
# now do classes
|
||||||
|
|
||||||
foreach my $filename (glob 'bn*.c') {
|
foreach my $filename (glob 'bn*.c') {
|
||||||
open(my $src, '<', $filename) or die "Can't open source file!\n";
|
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/[a-z]/[A-Z]/;
|
||||||
$filename =~ tr/\./_/;
|
$filename =~ tr/\./_/;
|
||||||
|
|
||||||
@ -128,7 +128,7 @@ print {$class} << 'EOS';
|
|||||||
EOS
|
EOS
|
||||||
close $class;
|
close $class;
|
||||||
|
|
||||||
#now let's make a cool call graph...
|
#now let's make a cool call graph...
|
||||||
|
|
||||||
open(my $out, '>', 'callgraph.txt');
|
open(my $out, '>', 'callgraph.txt');
|
||||||
my $indent = 0;
|
my $indent = 0;
|
||||||
|
@ -5,7 +5,7 @@
|
|||||||
#define MPI_CONFIG_H_
|
#define MPI_CONFIG_H_
|
||||||
|
|
||||||
/*
|
/*
|
||||||
For boolean options,
|
For boolean options,
|
||||||
0 = no
|
0 = no
|
||||||
1 = yes
|
1 = yes
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user