mingw/include/tclTomMathDecls.h

   1 /*
   2  *----------------------------------------------------------------------
   3  *
   4  * tclTomMathDecls.h --
   5  *
   6  *      This file contains the declarations for the 'libtommath'
   7  *      functions that are exported by the Tcl library.
   8  *
   9  * Copyright (c) 2005 by Kevin B. Kenny.  All rights reserved.
  10  *
  11  * See the file "license.terms" for information on usage and redistribution
  12  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  13  *
  14  * RCS: @(#) $Id: tclTomMathDecls.h,v 1.2.4.1 2010/02/07 22:16:54 nijtmans Exp $
  15  */
  16
  17 #ifndef _TCLTOMMATHDECLS
  18 #define _TCLTOMMATHDECLS
  19
  20 #include "tcl.h"
  21
  22 /*
  23  * Define the version of the Stubs table that's exported for tommath
  24  */
  25
  26 #define TCLTOMMATH_EPOCH 0
  27 #define TCLTOMMATH_REVISION 0
  28
  29 #define Tcl_TomMath_InitStubs(interp,version) \
  30     (TclTomMathInitializeStubs((interp),(version),\
  31                                TCLTOMMATH_EPOCH,TCLTOMMATH_REVISION))
  32
  33 /* Define custom memory allocation for libtommath */
  34
  35 /* MODULE_SCOPE void* TclBNAlloc( size_t ); */
  36 #define TclBNAlloc(s) ((void*)ckalloc((size_t)(s)))
  37 /* MODULE_SCOPE void* TclBNRealloc( void*, size_t ); */
  38 #define TclBNRealloc(x,s) ((void*)ckrealloc((char*)(x),(size_t)(s)))
  39 /* MODULE_SCOPE void  TclBNFree( void* ); */
  40 #define TclBNFree(x) (ckfree((char*)(x)))
  41 /* MODULE_SCOPE void* TclBNCalloc( size_t, size_t ); */
  42 /* unused - no macro */
  43
  44 #define XMALLOC(x) TclBNAlloc(x)
  45 #define XFREE(x) TclBNFree(x)
  46 #define XREALLOC(x,n) TclBNRealloc(x,n)
  47 #define XCALLOC(n,x) TclBNCalloc(n,x)
  48
  49 /* Rename the global symbols in libtommath to avoid linkage conflicts */
  50
  51 #define KARATSUBA_MUL_CUTOFF TclBNKaratsubaMulCutoff
  52 #define KARATSUBA_SQR_CUTOFF TclBNKaratsubaSqrCutoff
  53 #define TOOM_MUL_CUTOFF TclBNToomMulCutoff
  54 #define TOOM_SQR_CUTOFF TclBNToomSqrCutoff
  55
  56 #define bn_reverse TclBN_reverse
  57 #define fast_s_mp_mul_digs TclBN_fast_s_mp_mul_digs
  58 #define fast_s_mp_sqr TclBN_fast_s_mp_sqr
  59 #define mp_add TclBN_mp_add
  60 #define mp_add_d TclBN_mp_add_d
  61 #define mp_and TclBN_mp_and
  62 #define mp_clamp TclBN_mp_clamp
  63 #define mp_clear TclBN_mp_clear
  64 #define mp_clear_multi TclBN_mp_clear_multi
  65 #define mp_cmp TclBN_mp_cmp
  66 #define mp_cmp_d TclBN_mp_cmp_d
  67 #define mp_cmp_mag TclBN_mp_cmp_mag
  68 #define mp_copy TclBN_mp_copy
  69 #define mp_count_bits TclBN_mp_count_bits
  70 #define mp_div TclBN_mp_div
  71 #define mp_div_2 TclBN_mp_div_2
  72 #define mp_div_2d TclBN_mp_div_2d
  73 #define mp_div_3 TclBN_mp_div_3
  74 #define mp_div_d TclBN_mp_div_d
  75 #define mp_exch TclBN_mp_exch
  76 #define mp_expt_d TclBN_mp_expt_d
  77 #define mp_grow TclBN_mp_grow
  78 #define mp_init TclBN_mp_init
  79 #define mp_init_copy TclBN_mp_init_copy
  80 #define mp_init_multi TclBN_mp_init_multi
  81 #define mp_init_set TclBN_mp_init_set
  82 #define mp_init_size TclBN_mp_init_size
  83 #define mp_karatsuba_mul TclBN_mp_karatsuba_mul
  84 #define mp_karatsuba_sqr TclBN_mp_karatsuba_sqr
  85 #define mp_lshd TclBN_mp_lshd
  86 #define mp_mod TclBN_mp_mod
  87 #define mp_mod_2d TclBN_mp_mod_2d
  88 #define mp_mul TclBN_mp_mul
  89 #define mp_mul_2 TclBN_mp_mul_2
  90 #define mp_mul_2d TclBN_mp_mul_2d
  91 #define mp_mul_d TclBN_mp_mul_d
  92 #define mp_neg TclBN_mp_neg
  93 #define mp_or TclBN_mp_or
  94 #define mp_radix_size TclBN_mp_radix_size
  95 #define mp_read_radix TclBN_mp_read_radix
  96 #define mp_rshd TclBN_mp_rshd
  97 #define mp_s_rmap TclBNMpSRmap
  98 #define mp_set TclBN_mp_set
  99 #define mp_shrink TclBN_mp_shrink
 100 #define mp_sqr TclBN_mp_sqr
 101 #define mp_sqrt TclBN_mp_sqrt
 102 #define mp_sub TclBN_mp_sub
 103 #define mp_sub_d TclBN_mp_sub_d
 104 #define mp_to_unsigned_bin TclBN_mp_to_unsigned_bin
 105 #define mp_to_unsigned_bin_n TclBN_mp_to_unsigned_bin_n
 106 #define mp_toom_mul TclBN_mp_toom_mul
 107 #define mp_toom_sqr TclBN_mp_toom_sqr
 108 #define mp_toradix_n TclBN_mp_toradix_n
 109 #define mp_unsigned_bin_size TclBN_mp_unsigned_bin_size
 110 #define mp_xor TclBN_mp_xor
 111 #define mp_zero TclBN_mp_zero
 112 #define s_mp_add TclBN_s_mp_add
 113 #define s_mp_mul_digs TclBN_s_mp_mul_digs
 114 #define s_mp_sqr TclBN_s_mp_sqr
 115 #define s_mp_sub TclBN_s_mp_sub
 116
 117 #undef TCL_STORAGE_CLASS
 118 #ifdef BUILD_tcl
 119 #   define TCL_STORAGE_CLASS DLLEXPORT
 120 #else
 121 #   ifdef USE_TCL_STUBS
 122 #      define TCL_STORAGE_CLASS
 123 #   else
 124 #      define TCL_STORAGE_CLASS DLLIMPORT
 125 #   endif
 126 #endif
 127
 128 /*
 129  * WARNING: This file is automatically generated by the tools/genStubs.tcl
 130  * script.  Any modifications to the function declarations below should be made
 131  * in the generic/tclInt.decls script.
 132  */
 133
 134 /* !BEGIN!: Do not edit below this line. */
 135
 136 /*
 137  * Exported function declarations:
 138  */
 139
 140 #ifndef TclBN_epoch_TCL_DECLARED
 141 #define TclBN_epoch_TCL_DECLARED
 142 /* 0 */
 143 EXTERN int              TclBN_epoch(void);
 144 #endif
 145 #ifndef TclBN_revision_TCL_DECLARED
 146 #define TclBN_revision_TCL_DECLARED
 147 /* 1 */
 148 EXTERN int              TclBN_revision(void);
 149 #endif
 150 #ifndef TclBN_mp_add_TCL_DECLARED
 151 #define TclBN_mp_add_TCL_DECLARED
 152 /* 2 */
 153 EXTERN int              TclBN_mp_add(mp_int *a, mp_int *b, mp_int *c);
 154 #endif
 155 #ifndef TclBN_mp_add_d_TCL_DECLARED
 156 #define TclBN_mp_add_d_TCL_DECLARED
 157 /* 3 */
 158 EXTERN int              TclBN_mp_add_d(mp_int *a, mp_digit b, mp_int *c);
 159 #endif
 160 #ifndef TclBN_mp_and_TCL_DECLARED
 161 #define TclBN_mp_and_TCL_DECLARED
 162 /* 4 */
 163 EXTERN int              TclBN_mp_and(mp_int *a, mp_int *b, mp_int *c);
 164 #endif
 165 #ifndef TclBN_mp_clamp_TCL_DECLARED
 166 #define TclBN_mp_clamp_TCL_DECLARED
 167 /* 5 */
 168 EXTERN void             TclBN_mp_clamp(mp_int *a);
 169 #endif
 170 #ifndef TclBN_mp_clear_TCL_DECLARED
 171 #define TclBN_mp_clear_TCL_DECLARED
 172 /* 6 */
 173 EXTERN void             TclBN_mp_clear(mp_int *a);
 174 #endif
 175 #ifndef TclBN_mp_clear_multi_TCL_DECLARED
 176 #define TclBN_mp_clear_multi_TCL_DECLARED
 177 /* 7 */
 178 EXTERN void             TclBN_mp_clear_multi(mp_int *a, ...);
 179 #endif
 180 #ifndef TclBN_mp_cmp_TCL_DECLARED
 181 #define TclBN_mp_cmp_TCL_DECLARED
 182 /* 8 */
 183 EXTERN int              TclBN_mp_cmp(mp_int *a, mp_int *b);
 184 #endif
 185 #ifndef TclBN_mp_cmp_d_TCL_DECLARED
 186 #define TclBN_mp_cmp_d_TCL_DECLARED
 187 /* 9 */
 188 EXTERN int              TclBN_mp_cmp_d(mp_int *a, mp_digit b);
 189 #endif
 190 #ifndef TclBN_mp_cmp_mag_TCL_DECLARED
 191 #define TclBN_mp_cmp_mag_TCL_DECLARED
 192 /* 10 */
 193 EXTERN int              TclBN_mp_cmp_mag(mp_int *a, mp_int *b);
 194 #endif
 195 #ifndef TclBN_mp_copy_TCL_DECLARED
 196 #define TclBN_mp_copy_TCL_DECLARED
 197 /* 11 */
 198 EXTERN int              TclBN_mp_copy(mp_int *a, mp_int *b);
 199 #endif
 200 #ifndef TclBN_mp_count_bits_TCL_DECLARED
 201 #define TclBN_mp_count_bits_TCL_DECLARED
 202 /* 12 */
 203 EXTERN int              TclBN_mp_count_bits(mp_int *a);
 204 #endif
 205 #ifndef TclBN_mp_div_TCL_DECLARED
 206 #define TclBN_mp_div_TCL_DECLARED
 207 /* 13 */
 208 EXTERN int              TclBN_mp_div(mp_int *a, mp_int *b, mp_int *q,
 209                                 mp_int *r);
 210 #endif
 211 #ifndef TclBN_mp_div_d_TCL_DECLARED
 212 #define TclBN_mp_div_d_TCL_DECLARED
 213 /* 14 */
 214 EXTERN int              TclBN_mp_div_d(mp_int *a, mp_digit b, mp_int *q,
 215                                 mp_digit *r);
 216 #endif
 217 #ifndef TclBN_mp_div_2_TCL_DECLARED
 218 #define TclBN_mp_div_2_TCL_DECLARED
 219 /* 15 */
 220 EXTERN int              TclBN_mp_div_2(mp_int *a, mp_int *q);
 221 #endif
 222 #ifndef TclBN_mp_div_2d_TCL_DECLARED
 223 #define TclBN_mp_div_2d_TCL_DECLARED
 224 /* 16 */
 225 EXTERN int              TclBN_mp_div_2d(mp_int *a, int b, mp_int *q,
 226                                 mp_int *r);
 227 #endif
 228 #ifndef TclBN_mp_div_3_TCL_DECLARED
 229 #define TclBN_mp_div_3_TCL_DECLARED
 230 /* 17 */
 231 EXTERN int              TclBN_mp_div_3(mp_int *a, mp_int *q, mp_digit *r);
 232 #endif
 233 #ifndef TclBN_mp_exch_TCL_DECLARED
 234 #define TclBN_mp_exch_TCL_DECLARED
 235 /* 18 */
 236 EXTERN void             TclBN_mp_exch(mp_int *a, mp_int *b);
 237 #endif
 238 #ifndef TclBN_mp_expt_d_TCL_DECLARED
 239 #define TclBN_mp_expt_d_TCL_DECLARED
 240 /* 19 */
 241 EXTERN int              TclBN_mp_expt_d(mp_int *a, mp_digit b, mp_int *c);
 242 #endif
 243 #ifndef TclBN_mp_grow_TCL_DECLARED
 244 #define TclBN_mp_grow_TCL_DECLARED
 245 /* 20 */
 246 EXTERN int              TclBN_mp_grow(mp_int *a, int size);
 247 #endif
 248 #ifndef TclBN_mp_init_TCL_DECLARED
 249 #define TclBN_mp_init_TCL_DECLARED
 250 /* 21 */
 251 EXTERN int              TclBN_mp_init(mp_int *a);
 252 #endif
 253 #ifndef TclBN_mp_init_copy_TCL_DECLARED
 254 #define TclBN_mp_init_copy_TCL_DECLARED
 255 /* 22 */
 256 EXTERN int              TclBN_mp_init_copy(mp_int *a, mp_int *b);
 257 #endif
 258 #ifndef TclBN_mp_init_multi_TCL_DECLARED
 259 #define TclBN_mp_init_multi_TCL_DECLARED
 260 /* 23 */
 261 EXTERN int              TclBN_mp_init_multi(mp_int *a, ...);
 262 #endif
 263 #ifndef TclBN_mp_init_set_TCL_DECLARED
 264 #define TclBN_mp_init_set_TCL_DECLARED
 265 /* 24 */
 266 EXTERN int              TclBN_mp_init_set(mp_int *a, mp_digit b);
 267 #endif
 268 #ifndef TclBN_mp_init_size_TCL_DECLARED
 269 #define TclBN_mp_init_size_TCL_DECLARED
 270 /* 25 */
 271 EXTERN int              TclBN_mp_init_size(mp_int *a, int size);
 272 #endif
 273 #ifndef TclBN_mp_lshd_TCL_DECLARED
 274 #define TclBN_mp_lshd_TCL_DECLARED
 275 /* 26 */
 276 EXTERN int              TclBN_mp_lshd(mp_int *a, int shift);
 277 #endif
 278 #ifndef TclBN_mp_mod_TCL_DECLARED
 279 #define TclBN_mp_mod_TCL_DECLARED
 280 /* 27 */
 281 EXTERN int              TclBN_mp_mod(mp_int *a, mp_int *b, mp_int *r);
 282 #endif
 283 #ifndef TclBN_mp_mod_2d_TCL_DECLARED
 284 #define TclBN_mp_mod_2d_TCL_DECLARED
 285 /* 28 */
 286 EXTERN int              TclBN_mp_mod_2d(mp_int *a, int b, mp_int *r);
 287 #endif
 288 #ifndef TclBN_mp_mul_TCL_DECLARED
 289 #define TclBN_mp_mul_TCL_DECLARED
 290 /* 29 */
 291 EXTERN int              TclBN_mp_mul(mp_int *a, mp_int *b, mp_int *p);
 292 #endif
 293 #ifndef TclBN_mp_mul_d_TCL_DECLARED
 294 #define TclBN_mp_mul_d_TCL_DECLARED
 295 /* 30 */
 296 EXTERN int              TclBN_mp_mul_d(mp_int *a, mp_digit b, mp_int *p);
 297 #endif
 298 #ifndef TclBN_mp_mul_2_TCL_DECLARED
 299 #define TclBN_mp_mul_2_TCL_DECLARED
 300 /* 31 */
 301 EXTERN int              TclBN_mp_mul_2(mp_int *a, mp_int *p);
 302 #endif
 303 #ifndef TclBN_mp_mul_2d_TCL_DECLARED
 304 #define TclBN_mp_mul_2d_TCL_DECLARED
 305 /* 32 */
 306 EXTERN int              TclBN_mp_mul_2d(mp_int *a, int d, mp_int *p);
 307 #endif
 308 #ifndef TclBN_mp_neg_TCL_DECLARED
 309 #define TclBN_mp_neg_TCL_DECLARED
 310 /* 33 */
 311 EXTERN int              TclBN_mp_neg(mp_int *a, mp_int *b);
 312 #endif
 313 #ifndef TclBN_mp_or_TCL_DECLARED
 314 #define TclBN_mp_or_TCL_DECLARED
 315 /* 34 */
 316 EXTERN int              TclBN_mp_or(mp_int *a, mp_int *b, mp_int *c);
 317 #endif
 318 #ifndef TclBN_mp_radix_size_TCL_DECLARED
 319 #define TclBN_mp_radix_size_TCL_DECLARED
 320 /* 35 */
 321 EXTERN int              TclBN_mp_radix_size(mp_int *a, int radix, int *size);
 322 #endif
 323 #ifndef TclBN_mp_read_radix_TCL_DECLARED
 324 #define TclBN_mp_read_radix_TCL_DECLARED
 325 /* 36 */
 326 EXTERN int              TclBN_mp_read_radix(mp_int *a, const char *str,
 327                                 int radix);
 328 #endif
 329 #ifndef TclBN_mp_rshd_TCL_DECLARED
 330 #define TclBN_mp_rshd_TCL_DECLARED
 331 /* 37 */
 332 EXTERN void             TclBN_mp_rshd(mp_int *a, int shift);
 333 #endif
 334 #ifndef TclBN_mp_shrink_TCL_DECLARED
 335 #define TclBN_mp_shrink_TCL_DECLARED
 336 /* 38 */
 337 EXTERN int              TclBN_mp_shrink(mp_int *a);
 338 #endif
 339 #ifndef TclBN_mp_set_TCL_DECLARED
 340 #define TclBN_mp_set_TCL_DECLARED
 341 /* 39 */
 342 EXTERN void             TclBN_mp_set(mp_int *a, mp_digit b);
 343 #endif
 344 #ifndef TclBN_mp_sqr_TCL_DECLARED
 345 #define TclBN_mp_sqr_TCL_DECLARED
 346 /* 40 */
 347 EXTERN int              TclBN_mp_sqr(mp_int *a, mp_int *b);
 348 #endif
 349 #ifndef TclBN_mp_sqrt_TCL_DECLARED
 350 #define TclBN_mp_sqrt_TCL_DECLARED
 351 /* 41 */
 352 EXTERN int              TclBN_mp_sqrt(mp_int *a, mp_int *b);
 353 #endif
 354 #ifndef TclBN_mp_sub_TCL_DECLARED
 355 #define TclBN_mp_sub_TCL_DECLARED
 356 /* 42 */
 357 EXTERN int              TclBN_mp_sub(mp_int *a, mp_int *b, mp_int *c);
 358 #endif
 359 #ifndef TclBN_mp_sub_d_TCL_DECLARED
 360 #define TclBN_mp_sub_d_TCL_DECLARED
 361 /* 43 */
 362 EXTERN int              TclBN_mp_sub_d(mp_int *a, mp_digit b, mp_int *c);
 363 #endif
 364 #ifndef TclBN_mp_to_unsigned_bin_TCL_DECLARED
 365 #define TclBN_mp_to_unsigned_bin_TCL_DECLARED
 366 /* 44 */
 367 EXTERN int              TclBN_mp_to_unsigned_bin(mp_int *a, unsigned char *b);
 368 #endif
 369 #ifndef TclBN_mp_to_unsigned_bin_n_TCL_DECLARED
 370 #define TclBN_mp_to_unsigned_bin_n_TCL_DECLARED
 371 /* 45 */
 372 EXTERN int              TclBN_mp_to_unsigned_bin_n(mp_int *a,
 373                                 unsigned char *b, unsigned long *outlen);
 374 #endif
 375 #ifndef TclBN_mp_toradix_n_TCL_DECLARED
 376 #define TclBN_mp_toradix_n_TCL_DECLARED
 377 /* 46 */
 378 EXTERN int              TclBN_mp_toradix_n(mp_int *a, char *str, int radix,
 379                                 int maxlen);
 380 #endif
 381 #ifndef TclBN_mp_unsigned_bin_size_TCL_DECLARED
 382 #define TclBN_mp_unsigned_bin_size_TCL_DECLARED
 383 /* 47 */
 384 EXTERN int              TclBN_mp_unsigned_bin_size(mp_int *a);
 385 #endif
 386 #ifndef TclBN_mp_xor_TCL_DECLARED
 387 #define TclBN_mp_xor_TCL_DECLARED
 388 /* 48 */
 389 EXTERN int              TclBN_mp_xor(mp_int *a, mp_int *b, mp_int *c);
 390 #endif
 391 #ifndef TclBN_mp_zero_TCL_DECLARED
 392 #define TclBN_mp_zero_TCL_DECLARED
 393 /* 49 */
 394 EXTERN void             TclBN_mp_zero(mp_int *a);
 395 #endif
 396 #ifndef TclBN_reverse_TCL_DECLARED
 397 #define TclBN_reverse_TCL_DECLARED
 398 /* 50 */
 399 EXTERN void             TclBN_reverse(unsigned char *s, int len);
 400 #endif
 401 #ifndef TclBN_fast_s_mp_mul_digs_TCL_DECLARED
 402 #define TclBN_fast_s_mp_mul_digs_TCL_DECLARED
 403 /* 51 */
 404 EXTERN int              TclBN_fast_s_mp_mul_digs(mp_int *a, mp_int *b,
 405                                 mp_int *c, int digs);
 406 #endif
 407 #ifndef TclBN_fast_s_mp_sqr_TCL_DECLARED
 408 #define TclBN_fast_s_mp_sqr_TCL_DECLARED
 409 /* 52 */
 410 EXTERN int              TclBN_fast_s_mp_sqr(mp_int *a, mp_int *b);
 411 #endif
 412 #ifndef TclBN_mp_karatsuba_mul_TCL_DECLARED
 413 #define TclBN_mp_karatsuba_mul_TCL_DECLARED
 414 /* 53 */
 415 EXTERN int              TclBN_mp_karatsuba_mul(mp_int *a, mp_int *b,
 416                                 mp_int *c);
 417 #endif
 418 #ifndef TclBN_mp_karatsuba_sqr_TCL_DECLARED
 419 #define TclBN_mp_karatsuba_sqr_TCL_DECLARED
 420 /* 54 */
 421 EXTERN int              TclBN_mp_karatsuba_sqr(mp_int *a, mp_int *b);
 422 #endif
 423 #ifndef TclBN_mp_toom_mul_TCL_DECLARED
 424 #define TclBN_mp_toom_mul_TCL_DECLARED
 425 /* 55 */
 426 EXTERN int              TclBN_mp_toom_mul(mp_int *a, mp_int *b, mp_int *c);
 427 #endif
 428 #ifndef TclBN_mp_toom_sqr_TCL_DECLARED
 429 #define TclBN_mp_toom_sqr_TCL_DECLARED
 430 /* 56 */
 431 EXTERN int              TclBN_mp_toom_sqr(mp_int *a, mp_int *b);
 432 #endif
 433 #ifndef TclBN_s_mp_add_TCL_DECLARED
 434 #define TclBN_s_mp_add_TCL_DECLARED
 435 /* 57 */
 436 EXTERN int              TclBN_s_mp_add(mp_int *a, mp_int *b, mp_int *c);
 437 #endif
 438 #ifndef TclBN_s_mp_mul_digs_TCL_DECLARED
 439 #define TclBN_s_mp_mul_digs_TCL_DECLARED
 440 /* 58 */
 441 EXTERN int              TclBN_s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c,
 442                                 int digs);
 443 #endif
 444 #ifndef TclBN_s_mp_sqr_TCL_DECLARED
 445 #define TclBN_s_mp_sqr_TCL_DECLARED
 446 /* 59 */
 447 EXTERN int              TclBN_s_mp_sqr(mp_int *a, mp_int *b);
 448 #endif
 449 #ifndef TclBN_s_mp_sub_TCL_DECLARED
 450 #define TclBN_s_mp_sub_TCL_DECLARED
 451 /* 60 */
 452 EXTERN int              TclBN_s_mp_sub(mp_int *a, mp_int *b, mp_int *c);
 453 #endif
 454
 455 typedef struct TclTomMathStubs {
 456     int magic;
 457     struct TclTomMathStubHooks *hooks;
 458
 459     int (*tclBN_epoch) (void); /* 0 */
 460     int (*tclBN_revision) (void); /* 1 */
 461     int (*tclBN_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 2 */
 462     int (*tclBN_mp_add_d) (mp_int *a, mp_digit b, mp_int *c); /* 3 */
 463     int (*tclBN_mp_and) (mp_int *a, mp_int *b, mp_int *c); /* 4 */
 464     void (*tclBN_mp_clamp) (mp_int *a); /* 5 */
 465     void (*tclBN_mp_clear) (mp_int *a); /* 6 */
 466     void (*tclBN_mp_clear_multi) (mp_int *a, ...); /* 7 */
 467     int (*tclBN_mp_cmp) (mp_int *a, mp_int *b); /* 8 */
 468     int (*tclBN_mp_cmp_d) (mp_int *a, mp_digit b); /* 9 */
 469     int (*tclBN_mp_cmp_mag) (mp_int *a, mp_int *b); /* 10 */
 470     int (*tclBN_mp_copy) (mp_int *a, mp_int *b); /* 11 */
 471     int (*tclBN_mp_count_bits) (mp_int *a); /* 12 */
 472     int (*tclBN_mp_div) (mp_int *a, mp_int *b, mp_int *q, mp_int *r); /* 13 */
 473     int (*tclBN_mp_div_d) (mp_int *a, mp_digit b, mp_int *q, mp_digit *r); /* 14 */
 474     int (*tclBN_mp_div_2) (mp_int *a, mp_int *q); /* 15 */
 475     int (*tclBN_mp_div_2d) (mp_int *a, int b, mp_int *q, mp_int *r); /* 16 */
 476     int (*tclBN_mp_div_3) (mp_int *a, mp_int *q, mp_digit *r); /* 17 */
 477     void (*tclBN_mp_exch) (mp_int *a, mp_int *b); /* 18 */
 478     int (*tclBN_mp_expt_d) (mp_int *a, mp_digit b, mp_int *c); /* 19 */
 479     int (*tclBN_mp_grow) (mp_int *a, int size); /* 20 */
 480     int (*tclBN_mp_init) (mp_int *a); /* 21 */
 481     int (*tclBN_mp_init_copy) (mp_int *a, mp_int *b); /* 22 */
 482     int (*tclBN_mp_init_multi) (mp_int *a, ...); /* 23 */
 483     int (*tclBN_mp_init_set) (mp_int *a, mp_digit b); /* 24 */
 484     int (*tclBN_mp_init_size) (mp_int *a, int size); /* 25 */
 485     int (*tclBN_mp_lshd) (mp_int *a, int shift); /* 26 */
 486     int (*tclBN_mp_mod) (mp_int *a, mp_int *b, mp_int *r); /* 27 */
 487     int (*tclBN_mp_mod_2d) (mp_int *a, int b, mp_int *r); /* 28 */
 488     int (*tclBN_mp_mul) (mp_int *a, mp_int *b, mp_int *p); /* 29 */
 489     int (*tclBN_mp_mul_d) (mp_int *a, mp_digit b, mp_int *p); /* 30 */
 490     int (*tclBN_mp_mul_2) (mp_int *a, mp_int *p); /* 31 */
 491     int (*tclBN_mp_mul_2d) (mp_int *a, int d, mp_int *p); /* 32 */
 492     int (*tclBN_mp_neg) (mp_int *a, mp_int *b); /* 33 */
 493     int (*tclBN_mp_or) (mp_int *a, mp_int *b, mp_int *c); /* 34 */
 494     int (*tclBN_mp_radix_size) (mp_int *a, int radix, int *size); /* 35 */
 495     int (*tclBN_mp_read_radix) (mp_int *a, const char *str, int radix); /* 36 */
 496     void (*tclBN_mp_rshd) (mp_int *a, int shift); /* 37 */
 497     int (*tclBN_mp_shrink) (mp_int *a); /* 38 */
 498     void (*tclBN_mp_set) (mp_int *a, mp_digit b); /* 39 */
 499     int (*tclBN_mp_sqr) (mp_int *a, mp_int *b); /* 40 */
 500     int (*tclBN_mp_sqrt) (mp_int *a, mp_int *b); /* 41 */
 501     int (*tclBN_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 42 */
 502     int (*tclBN_mp_sub_d) (mp_int *a, mp_digit b, mp_int *c); /* 43 */
 503     int (*tclBN_mp_to_unsigned_bin) (mp_int *a, unsigned char *b); /* 44 */
 504     int (*tclBN_mp_to_unsigned_bin_n) (mp_int *a, unsigned char *b, unsigned long *outlen); /* 45 */
 505     int (*tclBN_mp_toradix_n) (mp_int *a, char *str, int radix, int maxlen); /* 46 */
 506     int (*tclBN_mp_unsigned_bin_size) (mp_int *a); /* 47 */
 507     int (*tclBN_mp_xor) (mp_int *a, mp_int *b, mp_int *c); /* 48 */
 508     void (*tclBN_mp_zero) (mp_int *a); /* 49 */
 509     void (*tclBN_reverse) (unsigned char *s, int len); /* 50 */
 510     int (*tclBN_fast_s_mp_mul_digs) (mp_int *a, mp_int *b, mp_int *c, int digs); /* 51 */
 511     int (*tclBN_fast_s_mp_sqr) (mp_int *a, mp_int *b); /* 52 */
 512     int (*tclBN_mp_karatsuba_mul) (mp_int *a, mp_int *b, mp_int *c); /* 53 */
 513     int (*tclBN_mp_karatsuba_sqr) (mp_int *a, mp_int *b); /* 54 */
 514     int (*tclBN_mp_toom_mul) (mp_int *a, mp_int *b, mp_int *c); /* 55 */
 515     int (*tclBN_mp_toom_sqr) (mp_int *a, mp_int *b); /* 56 */
 516     int (*tclBN_s_mp_add) (mp_int *a, mp_int *b, mp_int *c); /* 57 */
 517     int (*tclBN_s_mp_mul_digs) (mp_int *a, mp_int *b, mp_int *c, int digs); /* 58 */
 518     int (*tclBN_s_mp_sqr) (mp_int *a, mp_int *b); /* 59 */
 519     int (*tclBN_s_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 60 */
 520 } TclTomMathStubs;
 521
 522 #ifdef __cplusplus
 523 extern "C" {
 524 #endif
 525 extern TclTomMathStubs *tclTomMathStubsPtr;
 526 #ifdef __cplusplus
 527 }
 528 #endif
 529
 530 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
 531
 532 /*
 533  * Inline function declarations:
 534  */
 535
 536 #ifndef TclBN_epoch
 537 #define TclBN_epoch \
 538         (tclTomMathStubsPtr->tclBN_epoch) /* 0 */
 539 #endif
 540 #ifndef TclBN_revision
 541 #define TclBN_revision \
 542         (tclTomMathStubsPtr->tclBN_revision) /* 1 */
 543 #endif
 544 #ifndef TclBN_mp_add
 545 #define TclBN_mp_add \
 546         (tclTomMathStubsPtr->tclBN_mp_add) /* 2 */
 547 #endif
 548 #ifndef TclBN_mp_add_d
 549 #define TclBN_mp_add_d \
 550         (tclTomMathStubsPtr->tclBN_mp_add_d) /* 3 */
 551 #endif
 552 #ifndef TclBN_mp_and
 553 #define TclBN_mp_and \
 554         (tclTomMathStubsPtr->tclBN_mp_and) /* 4 */
 555 #endif
 556 #ifndef TclBN_mp_clamp
 557 #define TclBN_mp_clamp \
 558         (tclTomMathStubsPtr->tclBN_mp_clamp) /* 5 */
 559 #endif
 560 #ifndef TclBN_mp_clear
 561 #define TclBN_mp_clear \
 562         (tclTomMathStubsPtr->tclBN_mp_clear) /* 6 */
 563 #endif
 564 #ifndef TclBN_mp_clear_multi
 565 #define TclBN_mp_clear_multi \
 566         (tclTomMathStubsPtr->tclBN_mp_clear_multi) /* 7 */
 567 #endif
 568 #ifndef TclBN_mp_cmp
 569 #define TclBN_mp_cmp \
 570         (tclTomMathStubsPtr->tclBN_mp_cmp) /* 8 */
 571 #endif
 572 #ifndef TclBN_mp_cmp_d
 573 #define TclBN_mp_cmp_d \
 574         (tclTomMathStubsPtr->tclBN_mp_cmp_d) /* 9 */
 575 #endif
 576 #ifndef TclBN_mp_cmp_mag
 577 #define TclBN_mp_cmp_mag \
 578         (tclTomMathStubsPtr->tclBN_mp_cmp_mag) /* 10 */
 579 #endif
 580 #ifndef TclBN_mp_copy
 581 #define TclBN_mp_copy \
 582         (tclTomMathStubsPtr->tclBN_mp_copy) /* 11 */
 583 #endif
 584 #ifndef TclBN_mp_count_bits
 585 #define TclBN_mp_count_bits \
 586         (tclTomMathStubsPtr->tclBN_mp_count_bits) /* 12 */
 587 #endif
 588 #ifndef TclBN_mp_div
 589 #define TclBN_mp_div \
 590         (tclTomMathStubsPtr->tclBN_mp_div) /* 13 */
 591 #endif
 592 #ifndef TclBN_mp_div_d
 593 #define TclBN_mp_div_d \
 594         (tclTomMathStubsPtr->tclBN_mp_div_d) /* 14 */
 595 #endif
 596 #ifndef TclBN_mp_div_2
 597 #define TclBN_mp_div_2 \
 598         (tclTomMathStubsPtr->tclBN_mp_div_2) /* 15 */
 599 #endif
 600 #ifndef TclBN_mp_div_2d
 601 #define TclBN_mp_div_2d \
 602         (tclTomMathStubsPtr->tclBN_mp_div_2d) /* 16 */
 603 #endif
 604 #ifndef TclBN_mp_div_3
 605 #define TclBN_mp_div_3 \
 606         (tclTomMathStubsPtr->tclBN_mp_div_3) /* 17 */
 607 #endif
 608 #ifndef TclBN_mp_exch
 609 #define TclBN_mp_exch \
 610         (tclTomMathStubsPtr->tclBN_mp_exch) /* 18 */
 611 #endif
 612 #ifndef TclBN_mp_expt_d
 613 #define TclBN_mp_expt_d \
 614         (tclTomMathStubsPtr->tclBN_mp_expt_d) /* 19 */
 615 #endif
 616 #ifndef TclBN_mp_grow
 617 #define TclBN_mp_grow \
 618         (tclTomMathStubsPtr->tclBN_mp_grow) /* 20 */
 619 #endif
 620 #ifndef TclBN_mp_init
 621 #define TclBN_mp_init \
 622         (tclTomMathStubsPtr->tclBN_mp_init) /* 21 */
 623 #endif
 624 #ifndef TclBN_mp_init_copy
 625 #define TclBN_mp_init_copy \
 626         (tclTomMathStubsPtr->tclBN_mp_init_copy) /* 22 */
 627 #endif
 628 #ifndef TclBN_mp_init_multi
 629 #define TclBN_mp_init_multi \
 630         (tclTomMathStubsPtr->tclBN_mp_init_multi) /* 23 */
 631 #endif
 632 #ifndef TclBN_mp_init_set
 633 #define TclBN_mp_init_set \
 634         (tclTomMathStubsPtr->tclBN_mp_init_set) /* 24 */
 635 #endif
 636 #ifndef TclBN_mp_init_size
 637 #define TclBN_mp_init_size \
 638         (tclTomMathStubsPtr->tclBN_mp_init_size) /* 25 */
 639 #endif
 640 #ifndef TclBN_mp_lshd
 641 #define TclBN_mp_lshd \
 642         (tclTomMathStubsPtr->tclBN_mp_lshd) /* 26 */
 643 #endif
 644 #ifndef TclBN_mp_mod
 645 #define TclBN_mp_mod \
 646         (tclTomMathStubsPtr->tclBN_mp_mod) /* 27 */
 647 #endif
 648 #ifndef TclBN_mp_mod_2d
 649 #define TclBN_mp_mod_2d \
 650         (tclTomMathStubsPtr->tclBN_mp_mod_2d) /* 28 */
 651 #endif
 652 #ifndef TclBN_mp_mul
 653 #define TclBN_mp_mul \
 654         (tclTomMathStubsPtr->tclBN_mp_mul) /* 29 */
 655 #endif
 656 #ifndef TclBN_mp_mul_d
 657 #define TclBN_mp_mul_d \
 658         (tclTomMathStubsPtr->tclBN_mp_mul_d) /* 30 */
 659 #endif
 660 #ifndef TclBN_mp_mul_2
 661 #define TclBN_mp_mul_2 \
 662         (tclTomMathStubsPtr->tclBN_mp_mul_2) /* 31 */
 663 #endif
 664 #ifndef TclBN_mp_mul_2d
 665 #define TclBN_mp_mul_2d \
 666         (tclTomMathStubsPtr->tclBN_mp_mul_2d) /* 32 */
 667 #endif
 668 #ifndef TclBN_mp_neg
 669 #define TclBN_mp_neg \
 670         (tclTomMathStubsPtr->tclBN_mp_neg) /* 33 */
 671 #endif
 672 #ifndef TclBN_mp_or
 673 #define TclBN_mp_or \
 674         (tclTomMathStubsPtr->tclBN_mp_or) /* 34 */
 675 #endif
 676 #ifndef TclBN_mp_radix_size
 677 #define TclBN_mp_radix_size \
 678         (tclTomMathStubsPtr->tclBN_mp_radix_size) /* 35 */
 679 #endif
 680 #ifndef TclBN_mp_read_radix
 681 #define TclBN_mp_read_radix \
 682         (tclTomMathStubsPtr->tclBN_mp_read_radix) /* 36 */
 683 #endif
 684 #ifndef TclBN_mp_rshd
 685 #define TclBN_mp_rshd \
 686         (tclTomMathStubsPtr->tclBN_mp_rshd) /* 37 */
 687 #endif
 688 #ifndef TclBN_mp_shrink
 689 #define TclBN_mp_shrink \
 690         (tclTomMathStubsPtr->tclBN_mp_shrink) /* 38 */
 691 #endif
 692 #ifndef TclBN_mp_set
 693 #define TclBN_mp_set \
 694         (tclTomMathStubsPtr->tclBN_mp_set) /* 39 */
 695 #endif
 696 #ifndef TclBN_mp_sqr
 697 #define TclBN_mp_sqr \
 698         (tclTomMathStubsPtr->tclBN_mp_sqr) /* 40 */
 699 #endif
 700 #ifndef TclBN_mp_sqrt
 701 #define TclBN_mp_sqrt \
 702         (tclTomMathStubsPtr->tclBN_mp_sqrt) /* 41 */
 703 #endif
 704 #ifndef TclBN_mp_sub
 705 #define TclBN_mp_sub \
 706         (tclTomMathStubsPtr->tclBN_mp_sub) /* 42 */
 707 #endif
 708 #ifndef TclBN_mp_sub_d
 709 #define TclBN_mp_sub_d \
 710         (tclTomMathStubsPtr->tclBN_mp_sub_d) /* 43 */
 711 #endif
 712 #ifndef TclBN_mp_to_unsigned_bin
 713 #define TclBN_mp_to_unsigned_bin \
 714         (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin) /* 44 */
 715 #endif
 716 #ifndef TclBN_mp_to_unsigned_bin_n
 717 #define TclBN_mp_to_unsigned_bin_n \
 718         (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin_n) /* 45 */
 719 #endif
 720 #ifndef TclBN_mp_toradix_n
 721 #define TclBN_mp_toradix_n \
 722         (tclTomMathStubsPtr->tclBN_mp_toradix_n) /* 46 */
 723 #endif
 724 #ifndef TclBN_mp_unsigned_bin_size
 725 #define TclBN_mp_unsigned_bin_size \
 726         (tclTomMathStubsPtr->tclBN_mp_unsigned_bin_size) /* 47 */
 727 #endif
 728 #ifndef TclBN_mp_xor
 729 #define TclBN_mp_xor \
 730         (tclTomMathStubsPtr->tclBN_mp_xor) /* 48 */
 731 #endif
 732 #ifndef TclBN_mp_zero
 733 #define TclBN_mp_zero \
 734         (tclTomMathStubsPtr->tclBN_mp_zero) /* 49 */
 735 #endif
 736 #ifndef TclBN_reverse
 737 #define TclBN_reverse \
 738         (tclTomMathStubsPtr->tclBN_reverse) /* 50 */
 739 #endif
 740 #ifndef TclBN_fast_s_mp_mul_digs
 741 #define TclBN_fast_s_mp_mul_digs \
 742         (tclTomMathStubsPtr->tclBN_fast_s_mp_mul_digs) /* 51 */
 743 #endif
 744 #ifndef TclBN_fast_s_mp_sqr
 745 #define TclBN_fast_s_mp_sqr \
 746         (tclTomMathStubsPtr->tclBN_fast_s_mp_sqr) /* 52 */
 747 #endif
 748 #ifndef TclBN_mp_karatsuba_mul
 749 #define TclBN_mp_karatsuba_mul \
 750         (tclTomMathStubsPtr->tclBN_mp_karatsuba_mul) /* 53 */
 751 #endif
 752 #ifndef TclBN_mp_karatsuba_sqr
 753 #define TclBN_mp_karatsuba_sqr \
 754         (tclTomMathStubsPtr->tclBN_mp_karatsuba_sqr) /* 54 */
 755 #endif
 756 #ifndef TclBN_mp_toom_mul
 757 #define TclBN_mp_toom_mul \
 758         (tclTomMathStubsPtr->tclBN_mp_toom_mul) /* 55 */
 759 #endif
 760 #ifndef TclBN_mp_toom_sqr
 761 #define TclBN_mp_toom_sqr \
 762         (tclTomMathStubsPtr->tclBN_mp_toom_sqr) /* 56 */
 763 #endif
 764 #ifndef TclBN_s_mp_add
 765 #define TclBN_s_mp_add \
 766         (tclTomMathStubsPtr->tclBN_s_mp_add) /* 57 */
 767 #endif
 768 #ifndef TclBN_s_mp_mul_digs
 769 #define TclBN_s_mp_mul_digs \
 770         (tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */
 771 #endif
 772 #ifndef TclBN_s_mp_sqr
 773 #define TclBN_s_mp_sqr \
 774         (tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */
 775 #endif
 776 #ifndef TclBN_s_mp_sub
 777 #define TclBN_s_mp_sub \
 778         (tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */
 779 #endif
 780
 781 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
 782
 783 /* !END!: Do not edit above this line. */
 784
 785 #undef TCL_STORAGE_CLASS
 786 #define TCL_STORAGE_CLASS DLLIMPORT
 787
 788 #endif /* _TCLINTDECLS */