summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rwxr-xr-xtools/fix_tommath_h.tcl15
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
+}