diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-17 10:46:09 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-17 10:46:09 (GMT) |
commit | c011864b3411bd607efb52ffd86bb9b91e8e1bf3 (patch) | |
tree | 5ae27db53133eec3cea2523f3df4c28df354b71e /libtommath/gen.pl | |
parent | 68111aa5bf7fc228dcfda8beb9de265734925b56 (diff) | |
parent | 3dd86e6ebc0137c3a2c02d3a046de046571e3789 (diff) | |
download | tcl-c011864b3411bd607efb52ffd86bb9b91e8e1bf3.zip tcl-c011864b3411bd607efb52ffd86bb9b91e8e1bf3.tar.gz tcl-c011864b3411bd607efb52ffd86bb9b91e8e1bf3.tar.bz2 |
Merge trunk. Re-generate tclTomMath.h. Use faster exponentiation-function from libtommath 1.0 (in tclExecute.c).
Diffstat (limited to 'libtommath/gen.pl')
-rw-r--r-- | libtommath/gen.pl | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/libtommath/gen.pl b/libtommath/gen.pl deleted file mode 100644 index 57f65ac..0000000 --- a/libtommath/gen.pl +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/perl -w -# -# Generates a "single file" you can use to quickly -# add the whole source without any makefile troubles -# -use strict; - -open( OUT, ">mpi.c" ) or die "Couldn't open mpi.c for writing: $!"; -foreach my $filename (glob "bn*.c") { - open( SRC, "<$filename" ) or die "Couldn't open $filename for reading: $!"; - print OUT "/* Start: $filename */\n"; - print OUT while <SRC>; - print OUT "\n/* End: $filename */\n\n"; - close SRC or die "Error closing $filename after reading: $!"; -} -print OUT "\n/* EOF */\n"; -close OUT or die "Error closing mpi.c after writing: $!"; - -system('perl -pli -e "s/\s*$//" mpi.c'); |