Mercurial > dropbear

comparison dep.pl @ 190:d8254fc979e9 libtommath-orig LTM_0.35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial import of libtommath 0.35
author Matt Johnston <matt@ucc.asn.au>
date Fri, 06 May 2005 08:59:30 +0000
parents d29b64170cf0
children
comparison
equal deleted inserted replaced
142:d29b64170cf0 190:d8254fc979e9
10 open(CLASS, ">tommath_class.h") or die "Couldn't open tommath_class.h for writing\n"; 10 open(CLASS, ">tommath_class.h") or die "Couldn't open tommath_class.h for writing\n";
11 print CLASS "#if !(defined(LTM1) && defined(LTM2) && defined(LTM3))\n#if defined(LTM2)\n#define LTM3\n#endif\n#if defined(LTM1)\n#define LTM2\n#endif\n#define LTM1\n\n#if defined(LTM_ALL)\n"; 11 print CLASS "#if !(defined(LTM1) && defined(LTM2) && defined(LTM3))\n#if defined(LTM2)\n#define LTM3\n#endif\n#if defined(LTM1)\n#define LTM2\n#endif\n#define LTM1\n\n#if defined(LTM_ALL)\n";
12 12
13 foreach my $filename (glob "bn*.c") { 13 foreach my $filename (glob "bn*.c") {
14 my $define = $filename; 14 my $define = $filename;
15
16 print "Processing $filename\n";
15 17
16 # convert filename to upper case so we can use it as a define 18 # convert filename to upper case so we can use it as a define
17 $define =~ tr/[a-z]/[A-Z]/; 19 $define =~ tr/[a-z]/[A-Z]/;
18 $define =~ tr/\./_/; 20 $define =~ tr/\./_/;
19 print CLASS "#define $define\n"; 21 print CLASS "#define $define\n";