2 *----------------------------------------------------------------------
6 * This file contains the declarations for the 'libtommath'
7 * functions that are exported by the Tcl library.
9 * Copyright (c) 2005 by Kevin B. Kenny. All rights reserved.
11 * See the file "license.terms" for information on usage and redistribution
12 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
14 * RCS: @(#) $Id: tclTomMathDecls.h,v 1.2.4.1 2010/02/07 22:16:54 nijtmans Exp $
17 #ifndef _TCLTOMMATHDECLS
18 #define _TCLTOMMATHDECLS
23 * Define the version of the Stubs table that's exported for tommath
26 #define TCLTOMMATH_EPOCH 0
27 #define TCLTOMMATH_REVISION 0
29 #define Tcl_TomMath_InitStubs(interp,version) \
30 (TclTomMathInitializeStubs((interp),(version),\
31 TCLTOMMATH_EPOCH,TCLTOMMATH_REVISION))
33 /* Define custom memory allocation for libtommath */
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 */
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)
49 /* Rename the global symbols in libtommath to avoid linkage conflicts */
51 #define KARATSUBA_MUL_CUTOFF TclBNKaratsubaMulCutoff
52 #define KARATSUBA_SQR_CUTOFF TclBNKaratsubaSqrCutoff
53 #define TOOM_MUL_CUTOFF TclBNToomMulCutoff
54 #define TOOM_SQR_CUTOFF TclBNToomSqrCutoff
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
117 #undef TCL_STORAGE_CLASS
119 # define TCL_STORAGE_CLASS DLLEXPORT
121 # ifdef USE_TCL_STUBS
122 # define TCL_STORAGE_CLASS
124 # define TCL_STORAGE_CLASS DLLIMPORT
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.
134 /* !BEGIN!: Do not edit below this line. */
137 * Exported function declarations:
140 #ifndef TclBN_epoch_TCL_DECLARED
141 #define TclBN_epoch_TCL_DECLARED
143 EXTERN
int TclBN_epoch(void);
145 #ifndef TclBN_revision_TCL_DECLARED
146 #define TclBN_revision_TCL_DECLARED
148 EXTERN
int TclBN_revision(void);
150 #ifndef TclBN_mp_add_TCL_DECLARED
151 #define TclBN_mp_add_TCL_DECLARED
153 EXTERN
int TclBN_mp_add(mp_int
*a
, mp_int
*b
, mp_int
*c
);
155 #ifndef TclBN_mp_add_d_TCL_DECLARED
156 #define TclBN_mp_add_d_TCL_DECLARED
158 EXTERN
int TclBN_mp_add_d(mp_int
*a
, mp_digit b
, mp_int
*c
);
160 #ifndef TclBN_mp_and_TCL_DECLARED
161 #define TclBN_mp_and_TCL_DECLARED
163 EXTERN
int TclBN_mp_and(mp_int
*a
, mp_int
*b
, mp_int
*c
);
165 #ifndef TclBN_mp_clamp_TCL_DECLARED
166 #define TclBN_mp_clamp_TCL_DECLARED
168 EXTERN
void TclBN_mp_clamp(mp_int
*a
);
170 #ifndef TclBN_mp_clear_TCL_DECLARED
171 #define TclBN_mp_clear_TCL_DECLARED
173 EXTERN
void TclBN_mp_clear(mp_int
*a
);
175 #ifndef TclBN_mp_clear_multi_TCL_DECLARED
176 #define TclBN_mp_clear_multi_TCL_DECLARED
178 EXTERN
void TclBN_mp_clear_multi(mp_int
*a
, ...);
180 #ifndef TclBN_mp_cmp_TCL_DECLARED
181 #define TclBN_mp_cmp_TCL_DECLARED
183 EXTERN
int TclBN_mp_cmp(mp_int
*a
, mp_int
*b
);
185 #ifndef TclBN_mp_cmp_d_TCL_DECLARED
186 #define TclBN_mp_cmp_d_TCL_DECLARED
188 EXTERN
int TclBN_mp_cmp_d(mp_int
*a
, mp_digit b
);
190 #ifndef TclBN_mp_cmp_mag_TCL_DECLARED
191 #define TclBN_mp_cmp_mag_TCL_DECLARED
193 EXTERN
int TclBN_mp_cmp_mag(mp_int
*a
, mp_int
*b
);
195 #ifndef TclBN_mp_copy_TCL_DECLARED
196 #define TclBN_mp_copy_TCL_DECLARED
198 EXTERN
int TclBN_mp_copy(mp_int
*a
, mp_int
*b
);
200 #ifndef TclBN_mp_count_bits_TCL_DECLARED
201 #define TclBN_mp_count_bits_TCL_DECLARED
203 EXTERN
int TclBN_mp_count_bits(mp_int
*a
);
205 #ifndef TclBN_mp_div_TCL_DECLARED
206 #define TclBN_mp_div_TCL_DECLARED
208 EXTERN
int TclBN_mp_div(mp_int
*a
, mp_int
*b
, mp_int
*q
,
211 #ifndef TclBN_mp_div_d_TCL_DECLARED
212 #define TclBN_mp_div_d_TCL_DECLARED
214 EXTERN
int TclBN_mp_div_d(mp_int
*a
, mp_digit b
, mp_int
*q
,
217 #ifndef TclBN_mp_div_2_TCL_DECLARED
218 #define TclBN_mp_div_2_TCL_DECLARED
220 EXTERN
int TclBN_mp_div_2(mp_int
*a
, mp_int
*q
);
222 #ifndef TclBN_mp_div_2d_TCL_DECLARED
223 #define TclBN_mp_div_2d_TCL_DECLARED
225 EXTERN
int TclBN_mp_div_2d(mp_int
*a
, int b
, mp_int
*q
,
228 #ifndef TclBN_mp_div_3_TCL_DECLARED
229 #define TclBN_mp_div_3_TCL_DECLARED
231 EXTERN
int TclBN_mp_div_3(mp_int
*a
, mp_int
*q
, mp_digit
*r
);
233 #ifndef TclBN_mp_exch_TCL_DECLARED
234 #define TclBN_mp_exch_TCL_DECLARED
236 EXTERN
void TclBN_mp_exch(mp_int
*a
, mp_int
*b
);
238 #ifndef TclBN_mp_expt_d_TCL_DECLARED
239 #define TclBN_mp_expt_d_TCL_DECLARED
241 EXTERN
int TclBN_mp_expt_d(mp_int
*a
, mp_digit b
, mp_int
*c
);
243 #ifndef TclBN_mp_grow_TCL_DECLARED
244 #define TclBN_mp_grow_TCL_DECLARED
246 EXTERN
int TclBN_mp_grow(mp_int
*a
, int size
);
248 #ifndef TclBN_mp_init_TCL_DECLARED
249 #define TclBN_mp_init_TCL_DECLARED
251 EXTERN
int TclBN_mp_init(mp_int
*a
);
253 #ifndef TclBN_mp_init_copy_TCL_DECLARED
254 #define TclBN_mp_init_copy_TCL_DECLARED
256 EXTERN
int TclBN_mp_init_copy(mp_int
*a
, mp_int
*b
);
258 #ifndef TclBN_mp_init_multi_TCL_DECLARED
259 #define TclBN_mp_init_multi_TCL_DECLARED
261 EXTERN
int TclBN_mp_init_multi(mp_int
*a
, ...);
263 #ifndef TclBN_mp_init_set_TCL_DECLARED
264 #define TclBN_mp_init_set_TCL_DECLARED
266 EXTERN
int TclBN_mp_init_set(mp_int
*a
, mp_digit b
);
268 #ifndef TclBN_mp_init_size_TCL_DECLARED
269 #define TclBN_mp_init_size_TCL_DECLARED
271 EXTERN
int TclBN_mp_init_size(mp_int
*a
, int size
);
273 #ifndef TclBN_mp_lshd_TCL_DECLARED
274 #define TclBN_mp_lshd_TCL_DECLARED
276 EXTERN
int TclBN_mp_lshd(mp_int
*a
, int shift
);
278 #ifndef TclBN_mp_mod_TCL_DECLARED
279 #define TclBN_mp_mod_TCL_DECLARED
281 EXTERN
int TclBN_mp_mod(mp_int
*a
, mp_int
*b
, mp_int
*r
);
283 #ifndef TclBN_mp_mod_2d_TCL_DECLARED
284 #define TclBN_mp_mod_2d_TCL_DECLARED
286 EXTERN
int TclBN_mp_mod_2d(mp_int
*a
, int b
, mp_int
*r
);
288 #ifndef TclBN_mp_mul_TCL_DECLARED
289 #define TclBN_mp_mul_TCL_DECLARED
291 EXTERN
int TclBN_mp_mul(mp_int
*a
, mp_int
*b
, mp_int
*p
);
293 #ifndef TclBN_mp_mul_d_TCL_DECLARED
294 #define TclBN_mp_mul_d_TCL_DECLARED
296 EXTERN
int TclBN_mp_mul_d(mp_int
*a
, mp_digit b
, mp_int
*p
);
298 #ifndef TclBN_mp_mul_2_TCL_DECLARED
299 #define TclBN_mp_mul_2_TCL_DECLARED
301 EXTERN
int TclBN_mp_mul_2(mp_int
*a
, mp_int
*p
);
303 #ifndef TclBN_mp_mul_2d_TCL_DECLARED
304 #define TclBN_mp_mul_2d_TCL_DECLARED
306 EXTERN
int TclBN_mp_mul_2d(mp_int
*a
, int d
, mp_int
*p
);
308 #ifndef TclBN_mp_neg_TCL_DECLARED
309 #define TclBN_mp_neg_TCL_DECLARED
311 EXTERN
int TclBN_mp_neg(mp_int
*a
, mp_int
*b
);
313 #ifndef TclBN_mp_or_TCL_DECLARED
314 #define TclBN_mp_or_TCL_DECLARED
316 EXTERN
int TclBN_mp_or(mp_int
*a
, mp_int
*b
, mp_int
*c
);
318 #ifndef TclBN_mp_radix_size_TCL_DECLARED
319 #define TclBN_mp_radix_size_TCL_DECLARED
321 EXTERN
int TclBN_mp_radix_size(mp_int
*a
, int radix
, int *size
);
323 #ifndef TclBN_mp_read_radix_TCL_DECLARED
324 #define TclBN_mp_read_radix_TCL_DECLARED
326 EXTERN
int TclBN_mp_read_radix(mp_int
*a
, const char *str
,
329 #ifndef TclBN_mp_rshd_TCL_DECLARED
330 #define TclBN_mp_rshd_TCL_DECLARED
332 EXTERN
void TclBN_mp_rshd(mp_int
*a
, int shift
);
334 #ifndef TclBN_mp_shrink_TCL_DECLARED
335 #define TclBN_mp_shrink_TCL_DECLARED
337 EXTERN
int TclBN_mp_shrink(mp_int
*a
);
339 #ifndef TclBN_mp_set_TCL_DECLARED
340 #define TclBN_mp_set_TCL_DECLARED
342 EXTERN
void TclBN_mp_set(mp_int
*a
, mp_digit b
);
344 #ifndef TclBN_mp_sqr_TCL_DECLARED
345 #define TclBN_mp_sqr_TCL_DECLARED
347 EXTERN
int TclBN_mp_sqr(mp_int
*a
, mp_int
*b
);
349 #ifndef TclBN_mp_sqrt_TCL_DECLARED
350 #define TclBN_mp_sqrt_TCL_DECLARED
352 EXTERN
int TclBN_mp_sqrt(mp_int
*a
, mp_int
*b
);
354 #ifndef TclBN_mp_sub_TCL_DECLARED
355 #define TclBN_mp_sub_TCL_DECLARED
357 EXTERN
int TclBN_mp_sub(mp_int
*a
, mp_int
*b
, mp_int
*c
);
359 #ifndef TclBN_mp_sub_d_TCL_DECLARED
360 #define TclBN_mp_sub_d_TCL_DECLARED
362 EXTERN
int TclBN_mp_sub_d(mp_int
*a
, mp_digit b
, mp_int
*c
);
364 #ifndef TclBN_mp_to_unsigned_bin_TCL_DECLARED
365 #define TclBN_mp_to_unsigned_bin_TCL_DECLARED
367 EXTERN
int TclBN_mp_to_unsigned_bin(mp_int
*a
, unsigned char *b
);
369 #ifndef TclBN_mp_to_unsigned_bin_n_TCL_DECLARED
370 #define TclBN_mp_to_unsigned_bin_n_TCL_DECLARED
372 EXTERN
int TclBN_mp_to_unsigned_bin_n(mp_int
*a
,
373 unsigned char *b
, unsigned long *outlen
);
375 #ifndef TclBN_mp_toradix_n_TCL_DECLARED
376 #define TclBN_mp_toradix_n_TCL_DECLARED
378 EXTERN
int TclBN_mp_toradix_n(mp_int
*a
, char *str
, int radix
,
381 #ifndef TclBN_mp_unsigned_bin_size_TCL_DECLARED
382 #define TclBN_mp_unsigned_bin_size_TCL_DECLARED
384 EXTERN
int TclBN_mp_unsigned_bin_size(mp_int
*a
);
386 #ifndef TclBN_mp_xor_TCL_DECLARED
387 #define TclBN_mp_xor_TCL_DECLARED
389 EXTERN
int TclBN_mp_xor(mp_int
*a
, mp_int
*b
, mp_int
*c
);
391 #ifndef TclBN_mp_zero_TCL_DECLARED
392 #define TclBN_mp_zero_TCL_DECLARED
394 EXTERN
void TclBN_mp_zero(mp_int
*a
);
396 #ifndef TclBN_reverse_TCL_DECLARED
397 #define TclBN_reverse_TCL_DECLARED
399 EXTERN
void TclBN_reverse(unsigned char *s
, int len
);
401 #ifndef TclBN_fast_s_mp_mul_digs_TCL_DECLARED
402 #define TclBN_fast_s_mp_mul_digs_TCL_DECLARED
404 EXTERN
int TclBN_fast_s_mp_mul_digs(mp_int
*a
, mp_int
*b
,
405 mp_int
*c
, int digs
);
407 #ifndef TclBN_fast_s_mp_sqr_TCL_DECLARED
408 #define TclBN_fast_s_mp_sqr_TCL_DECLARED
410 EXTERN
int TclBN_fast_s_mp_sqr(mp_int
*a
, mp_int
*b
);
412 #ifndef TclBN_mp_karatsuba_mul_TCL_DECLARED
413 #define TclBN_mp_karatsuba_mul_TCL_DECLARED
415 EXTERN
int TclBN_mp_karatsuba_mul(mp_int
*a
, mp_int
*b
,
418 #ifndef TclBN_mp_karatsuba_sqr_TCL_DECLARED
419 #define TclBN_mp_karatsuba_sqr_TCL_DECLARED
421 EXTERN
int TclBN_mp_karatsuba_sqr(mp_int
*a
, mp_int
*b
);
423 #ifndef TclBN_mp_toom_mul_TCL_DECLARED
424 #define TclBN_mp_toom_mul_TCL_DECLARED
426 EXTERN
int TclBN_mp_toom_mul(mp_int
*a
, mp_int
*b
, mp_int
*c
);
428 #ifndef TclBN_mp_toom_sqr_TCL_DECLARED
429 #define TclBN_mp_toom_sqr_TCL_DECLARED
431 EXTERN
int TclBN_mp_toom_sqr(mp_int
*a
, mp_int
*b
);
433 #ifndef TclBN_s_mp_add_TCL_DECLARED
434 #define TclBN_s_mp_add_TCL_DECLARED
436 EXTERN
int TclBN_s_mp_add(mp_int
*a
, mp_int
*b
, mp_int
*c
);
438 #ifndef TclBN_s_mp_mul_digs_TCL_DECLARED
439 #define TclBN_s_mp_mul_digs_TCL_DECLARED
441 EXTERN
int TclBN_s_mp_mul_digs(mp_int
*a
, mp_int
*b
, mp_int
*c
,
444 #ifndef TclBN_s_mp_sqr_TCL_DECLARED
445 #define TclBN_s_mp_sqr_TCL_DECLARED
447 EXTERN
int TclBN_s_mp_sqr(mp_int
*a
, mp_int
*b
);
449 #ifndef TclBN_s_mp_sub_TCL_DECLARED
450 #define TclBN_s_mp_sub_TCL_DECLARED
452 EXTERN
int TclBN_s_mp_sub(mp_int
*a
, mp_int
*b
, mp_int
*c
);
455 typedef struct TclTomMathStubs
{
457 struct TclTomMathStubHooks
*hooks
;
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 */
525 extern TclTomMathStubs
*tclTomMathStubsPtr
;
530 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
533 * Inline function declarations:
537 #define TclBN_epoch \
538 (tclTomMathStubsPtr->tclBN_epoch) /* 0 */
540 #ifndef TclBN_revision
541 #define TclBN_revision \
542 (tclTomMathStubsPtr->tclBN_revision) /* 1 */
545 #define TclBN_mp_add \
546 (tclTomMathStubsPtr->tclBN_mp_add) /* 2 */
548 #ifndef TclBN_mp_add_d
549 #define TclBN_mp_add_d \
550 (tclTomMathStubsPtr->tclBN_mp_add_d) /* 3 */
553 #define TclBN_mp_and \
554 (tclTomMathStubsPtr->tclBN_mp_and) /* 4 */
556 #ifndef TclBN_mp_clamp
557 #define TclBN_mp_clamp \
558 (tclTomMathStubsPtr->tclBN_mp_clamp) /* 5 */
560 #ifndef TclBN_mp_clear
561 #define TclBN_mp_clear \
562 (tclTomMathStubsPtr->tclBN_mp_clear) /* 6 */
564 #ifndef TclBN_mp_clear_multi
565 #define TclBN_mp_clear_multi \
566 (tclTomMathStubsPtr->tclBN_mp_clear_multi) /* 7 */
569 #define TclBN_mp_cmp \
570 (tclTomMathStubsPtr->tclBN_mp_cmp) /* 8 */
572 #ifndef TclBN_mp_cmp_d
573 #define TclBN_mp_cmp_d \
574 (tclTomMathStubsPtr->tclBN_mp_cmp_d) /* 9 */
576 #ifndef TclBN_mp_cmp_mag
577 #define TclBN_mp_cmp_mag \
578 (tclTomMathStubsPtr->tclBN_mp_cmp_mag) /* 10 */
580 #ifndef TclBN_mp_copy
581 #define TclBN_mp_copy \
582 (tclTomMathStubsPtr->tclBN_mp_copy) /* 11 */
584 #ifndef TclBN_mp_count_bits
585 #define TclBN_mp_count_bits \
586 (tclTomMathStubsPtr->tclBN_mp_count_bits) /* 12 */
589 #define TclBN_mp_div \
590 (tclTomMathStubsPtr->tclBN_mp_div) /* 13 */
592 #ifndef TclBN_mp_div_d
593 #define TclBN_mp_div_d \
594 (tclTomMathStubsPtr->tclBN_mp_div_d) /* 14 */
596 #ifndef TclBN_mp_div_2
597 #define TclBN_mp_div_2 \
598 (tclTomMathStubsPtr->tclBN_mp_div_2) /* 15 */
600 #ifndef TclBN_mp_div_2d
601 #define TclBN_mp_div_2d \
602 (tclTomMathStubsPtr->tclBN_mp_div_2d) /* 16 */
604 #ifndef TclBN_mp_div_3
605 #define TclBN_mp_div_3 \
606 (tclTomMathStubsPtr->tclBN_mp_div_3) /* 17 */
608 #ifndef TclBN_mp_exch
609 #define TclBN_mp_exch \
610 (tclTomMathStubsPtr->tclBN_mp_exch) /* 18 */
612 #ifndef TclBN_mp_expt_d
613 #define TclBN_mp_expt_d \
614 (tclTomMathStubsPtr->tclBN_mp_expt_d) /* 19 */
616 #ifndef TclBN_mp_grow
617 #define TclBN_mp_grow \
618 (tclTomMathStubsPtr->tclBN_mp_grow) /* 20 */
620 #ifndef TclBN_mp_init
621 #define TclBN_mp_init \
622 (tclTomMathStubsPtr->tclBN_mp_init) /* 21 */
624 #ifndef TclBN_mp_init_copy
625 #define TclBN_mp_init_copy \
626 (tclTomMathStubsPtr->tclBN_mp_init_copy) /* 22 */
628 #ifndef TclBN_mp_init_multi
629 #define TclBN_mp_init_multi \
630 (tclTomMathStubsPtr->tclBN_mp_init_multi) /* 23 */
632 #ifndef TclBN_mp_init_set
633 #define TclBN_mp_init_set \
634 (tclTomMathStubsPtr->tclBN_mp_init_set) /* 24 */
636 #ifndef TclBN_mp_init_size
637 #define TclBN_mp_init_size \
638 (tclTomMathStubsPtr->tclBN_mp_init_size) /* 25 */
640 #ifndef TclBN_mp_lshd
641 #define TclBN_mp_lshd \
642 (tclTomMathStubsPtr->tclBN_mp_lshd) /* 26 */
645 #define TclBN_mp_mod \
646 (tclTomMathStubsPtr->tclBN_mp_mod) /* 27 */
648 #ifndef TclBN_mp_mod_2d
649 #define TclBN_mp_mod_2d \
650 (tclTomMathStubsPtr->tclBN_mp_mod_2d) /* 28 */
653 #define TclBN_mp_mul \
654 (tclTomMathStubsPtr->tclBN_mp_mul) /* 29 */
656 #ifndef TclBN_mp_mul_d
657 #define TclBN_mp_mul_d \
658 (tclTomMathStubsPtr->tclBN_mp_mul_d) /* 30 */
660 #ifndef TclBN_mp_mul_2
661 #define TclBN_mp_mul_2 \
662 (tclTomMathStubsPtr->tclBN_mp_mul_2) /* 31 */
664 #ifndef TclBN_mp_mul_2d
665 #define TclBN_mp_mul_2d \
666 (tclTomMathStubsPtr->tclBN_mp_mul_2d) /* 32 */
669 #define TclBN_mp_neg \
670 (tclTomMathStubsPtr->tclBN_mp_neg) /* 33 */
673 #define TclBN_mp_or \
674 (tclTomMathStubsPtr->tclBN_mp_or) /* 34 */
676 #ifndef TclBN_mp_radix_size
677 #define TclBN_mp_radix_size \
678 (tclTomMathStubsPtr->tclBN_mp_radix_size) /* 35 */
680 #ifndef TclBN_mp_read_radix
681 #define TclBN_mp_read_radix \
682 (tclTomMathStubsPtr->tclBN_mp_read_radix) /* 36 */
684 #ifndef TclBN_mp_rshd
685 #define TclBN_mp_rshd \
686 (tclTomMathStubsPtr->tclBN_mp_rshd) /* 37 */
688 #ifndef TclBN_mp_shrink
689 #define TclBN_mp_shrink \
690 (tclTomMathStubsPtr->tclBN_mp_shrink) /* 38 */
693 #define TclBN_mp_set \
694 (tclTomMathStubsPtr->tclBN_mp_set) /* 39 */
697 #define TclBN_mp_sqr \
698 (tclTomMathStubsPtr->tclBN_mp_sqr) /* 40 */
700 #ifndef TclBN_mp_sqrt
701 #define TclBN_mp_sqrt \
702 (tclTomMathStubsPtr->tclBN_mp_sqrt) /* 41 */
705 #define TclBN_mp_sub \
706 (tclTomMathStubsPtr->tclBN_mp_sub) /* 42 */
708 #ifndef TclBN_mp_sub_d
709 #define TclBN_mp_sub_d \
710 (tclTomMathStubsPtr->tclBN_mp_sub_d) /* 43 */
712 #ifndef TclBN_mp_to_unsigned_bin
713 #define TclBN_mp_to_unsigned_bin \
714 (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin) /* 44 */
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 */
720 #ifndef TclBN_mp_toradix_n
721 #define TclBN_mp_toradix_n \
722 (tclTomMathStubsPtr->tclBN_mp_toradix_n) /* 46 */
724 #ifndef TclBN_mp_unsigned_bin_size
725 #define TclBN_mp_unsigned_bin_size \
726 (tclTomMathStubsPtr->tclBN_mp_unsigned_bin_size) /* 47 */
729 #define TclBN_mp_xor \
730 (tclTomMathStubsPtr->tclBN_mp_xor) /* 48 */
732 #ifndef TclBN_mp_zero
733 #define TclBN_mp_zero \
734 (tclTomMathStubsPtr->tclBN_mp_zero) /* 49 */
736 #ifndef TclBN_reverse
737 #define TclBN_reverse \
738 (tclTomMathStubsPtr->tclBN_reverse) /* 50 */
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 */
744 #ifndef TclBN_fast_s_mp_sqr
745 #define TclBN_fast_s_mp_sqr \
746 (tclTomMathStubsPtr->tclBN_fast_s_mp_sqr) /* 52 */
748 #ifndef TclBN_mp_karatsuba_mul
749 #define TclBN_mp_karatsuba_mul \
750 (tclTomMathStubsPtr->tclBN_mp_karatsuba_mul) /* 53 */
752 #ifndef TclBN_mp_karatsuba_sqr
753 #define TclBN_mp_karatsuba_sqr \
754 (tclTomMathStubsPtr->tclBN_mp_karatsuba_sqr) /* 54 */
756 #ifndef TclBN_mp_toom_mul
757 #define TclBN_mp_toom_mul \
758 (tclTomMathStubsPtr->tclBN_mp_toom_mul) /* 55 */
760 #ifndef TclBN_mp_toom_sqr
761 #define TclBN_mp_toom_sqr \
762 (tclTomMathStubsPtr->tclBN_mp_toom_sqr) /* 56 */
764 #ifndef TclBN_s_mp_add
765 #define TclBN_s_mp_add \
766 (tclTomMathStubsPtr->tclBN_s_mp_add) /* 57 */
768 #ifndef TclBN_s_mp_mul_digs
769 #define TclBN_s_mp_mul_digs \
770 (tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */
772 #ifndef TclBN_s_mp_sqr
773 #define TclBN_s_mp_sqr \
774 (tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */
776 #ifndef TclBN_s_mp_sub
777 #define TclBN_s_mp_sub \
778 (tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */
781 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
783 /* !END!: Do not edit above this line. */
785 #undef TCL_STORAGE_CLASS
786 #define TCL_STORAGE_CLASS DLLIMPORT
788 #endif /* _TCLINTDECLS */