diff options
Diffstat (limited to 'tools/fix_tommath_h.tcl')
| -rwxr-xr-x | tools/fix_tommath_h.tcl | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/tools/fix_tommath_h.tcl b/tools/fix_tommath_h.tcl index 92b1f77..bf52ce6 100755 --- a/tools/fix_tommath_h.tcl +++ b/tools/fix_tommath_h.tcl @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: fix_tommath_h.tcl,v 1.2 2005/05/10 18:35:25 kennykb Exp $ +# RCS: @(#) $Id: fix_tommath_h.tcl,v 1.3 2005/11/27 02:33:50 das Exp $ # #---------------------------------------------------------------------- @@ -27,6 +27,9 @@ foreach line [split $data \n] { puts "\#ifndef TOMMATH_STORAGE_CLASS" puts "\#define TOMMATH_STORAGE_CLASS extern" puts "\#endif" + puts "\#ifndef MODULE_SCOPE" + puts "\#define MODULE_SCOPE extern" + puts "\#endif" } {typedef.*mp_digit;} { puts "\#ifndef MP_DIGIT_DECLARED" @@ -44,11 +47,17 @@ foreach line [split $data \n] { \}\ mp_int\; { puts "\};" } - "^(char|int|void)" { + {^(char|int|void) mp_(div_d|mul_d|clear|init|read_radix)\(} { puts "TOMMATH_STORAGE_CLASS $line" } + {^(char|int|void)} { + puts "TOMMATH_STORAGE_CLASS MODULE_SCOPE $line" + } + {^extern (int|const)} { + puts [regsub {^extern} $line "MODULE_SCOPE"] + } default { puts $line } } -}
\ No newline at end of file +} |