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 2006/11/15 14:58:27 dgp 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
,
370 #ifndef TclBN_mp_to_unsigned_bin_n_TCL_DECLARED
371 #define TclBN_mp_to_unsigned_bin_n_TCL_DECLARED
373 EXTERN
int TclBN_mp_to_unsigned_bin_n (mp_int
* a
,
374 unsigned char* b
, unsigned long* outlen
);
376 #ifndef TclBN_mp_toradix_n_TCL_DECLARED
377 #define TclBN_mp_toradix_n_TCL_DECLARED
379 EXTERN
int TclBN_mp_toradix_n (mp_int
* a
, char* str
, int radix
,
382 #ifndef TclBN_mp_unsigned_bin_size_TCL_DECLARED
383 #define TclBN_mp_unsigned_bin_size_TCL_DECLARED
385 EXTERN
int TclBN_mp_unsigned_bin_size (mp_int
* a
);
387 #ifndef TclBN_mp_xor_TCL_DECLARED
388 #define TclBN_mp_xor_TCL_DECLARED
390 EXTERN
int TclBN_mp_xor (mp_int
* a
, mp_int
* b
, mp_int
* c
);
392 #ifndef TclBN_mp_zero_TCL_DECLARED
393 #define TclBN_mp_zero_TCL_DECLARED
395 EXTERN
void TclBN_mp_zero (mp_int
* a
);
397 #ifndef TclBN_reverse_TCL_DECLARED
398 #define TclBN_reverse_TCL_DECLARED
400 EXTERN
void TclBN_reverse (unsigned char* s
, int len
);
402 #ifndef TclBN_fast_s_mp_mul_digs_TCL_DECLARED
403 #define TclBN_fast_s_mp_mul_digs_TCL_DECLARED
405 EXTERN
int TclBN_fast_s_mp_mul_digs (mp_int
* a
, mp_int
* b
,
406 mp_int
* c
, int digs
);
408 #ifndef TclBN_fast_s_mp_sqr_TCL_DECLARED
409 #define TclBN_fast_s_mp_sqr_TCL_DECLARED
411 EXTERN
int TclBN_fast_s_mp_sqr (mp_int
* a
, mp_int
* b
);
413 #ifndef TclBN_mp_karatsuba_mul_TCL_DECLARED
414 #define TclBN_mp_karatsuba_mul_TCL_DECLARED
416 EXTERN
int TclBN_mp_karatsuba_mul (mp_int
* a
, mp_int
* b
,
419 #ifndef TclBN_mp_karatsuba_sqr_TCL_DECLARED
420 #define TclBN_mp_karatsuba_sqr_TCL_DECLARED
422 EXTERN
int TclBN_mp_karatsuba_sqr (mp_int
* a
, mp_int
* b
);
424 #ifndef TclBN_mp_toom_mul_TCL_DECLARED
425 #define TclBN_mp_toom_mul_TCL_DECLARED
427 EXTERN
int TclBN_mp_toom_mul (mp_int
* a
, mp_int
* b
, mp_int
* c
);
429 #ifndef TclBN_mp_toom_sqr_TCL_DECLARED
430 #define TclBN_mp_toom_sqr_TCL_DECLARED
432 EXTERN
int TclBN_mp_toom_sqr (mp_int
* a
, mp_int
* b
);
434 #ifndef TclBN_s_mp_add_TCL_DECLARED
435 #define TclBN_s_mp_add_TCL_DECLARED
437 EXTERN
int TclBN_s_mp_add (mp_int
* a
, mp_int
* b
, mp_int
* c
);
439 #ifndef TclBN_s_mp_mul_digs_TCL_DECLARED
440 #define TclBN_s_mp_mul_digs_TCL_DECLARED
442 EXTERN
int TclBN_s_mp_mul_digs (mp_int
* a
, mp_int
* b
, mp_int
* c
,
445 #ifndef TclBN_s_mp_sqr_TCL_DECLARED
446 #define TclBN_s_mp_sqr_TCL_DECLARED
448 EXTERN
int TclBN_s_mp_sqr (mp_int
* a
, mp_int
* b
);
450 #ifndef TclBN_s_mp_sub_TCL_DECLARED
451 #define TclBN_s_mp_sub_TCL_DECLARED
453 EXTERN
int TclBN_s_mp_sub (mp_int
* a
, mp_int
* b
, mp_int
* c
);
456 typedef struct TclTomMathStubs
{
458 struct TclTomMathStubHooks
*hooks
;
460 int (*tclBN_epoch
) (void); /* 0 */
461 int (*tclBN_revision
) (void); /* 1 */
462 int (*tclBN_mp_add
) (mp_int
* a
, mp_int
* b
, mp_int
* c
); /* 2 */
463 int (*tclBN_mp_add_d
) (mp_int
* a
, mp_digit b
, mp_int
* c
); /* 3 */
464 int (*tclBN_mp_and
) (mp_int
* a
, mp_int
* b
, mp_int
* c
); /* 4 */
465 void (*tclBN_mp_clamp
) (mp_int
* a
); /* 5 */
466 void (*tclBN_mp_clear
) (mp_int
* a
); /* 6 */
467 void (*tclBN_mp_clear_multi
) (mp_int
* a
, ...); /* 7 */
468 int (*tclBN_mp_cmp
) (mp_int
* a
, mp_int
* b
); /* 8 */
469 int (*tclBN_mp_cmp_d
) (mp_int
* a
, mp_digit b
); /* 9 */
470 int (*tclBN_mp_cmp_mag
) (mp_int
* a
, mp_int
* b
); /* 10 */
471 int (*tclBN_mp_copy
) (mp_int
* a
, mp_int
* b
); /* 11 */
472 int (*tclBN_mp_count_bits
) (mp_int
* a
); /* 12 */
473 int (*tclBN_mp_div
) (mp_int
* a
, mp_int
* b
, mp_int
* q
, mp_int
* r
); /* 13 */
474 int (*tclBN_mp_div_d
) (mp_int
* a
, mp_digit b
, mp_int
* q
, mp_digit
* r
); /* 14 */
475 int (*tclBN_mp_div_2
) (mp_int
* a
, mp_int
* q
); /* 15 */
476 int (*tclBN_mp_div_2d
) (mp_int
* a
, int b
, mp_int
* q
, mp_int
* r
); /* 16 */
477 int (*tclBN_mp_div_3
) (mp_int
* a
, mp_int
* q
, mp_digit
* r
); /* 17 */
478 void (*tclBN_mp_exch
) (mp_int
* a
, mp_int
* b
); /* 18 */
479 int (*tclBN_mp_expt_d
) (mp_int
* a
, mp_digit b
, mp_int
* c
); /* 19 */
480 int (*tclBN_mp_grow
) (mp_int
* a
, int size
); /* 20 */
481 int (*tclBN_mp_init
) (mp_int
* a
); /* 21 */
482 int (*tclBN_mp_init_copy
) (mp_int
* a
, mp_int
* b
); /* 22 */
483 int (*tclBN_mp_init_multi
) (mp_int
* a
, ...); /* 23 */
484 int (*tclBN_mp_init_set
) (mp_int
* a
, mp_digit b
); /* 24 */
485 int (*tclBN_mp_init_size
) (mp_int
* a
, int size
); /* 25 */
486 int (*tclBN_mp_lshd
) (mp_int
* a
, int shift
); /* 26 */
487 int (*tclBN_mp_mod
) (mp_int
* a
, mp_int
* b
, mp_int
* r
); /* 27 */
488 int (*tclBN_mp_mod_2d
) (mp_int
* a
, int b
, mp_int
* r
); /* 28 */
489 int (*tclBN_mp_mul
) (mp_int
* a
, mp_int
* b
, mp_int
* p
); /* 29 */
490 int (*tclBN_mp_mul_d
) (mp_int
* a
, mp_digit b
, mp_int
* p
); /* 30 */
491 int (*tclBN_mp_mul_2
) (mp_int
* a
, mp_int
* p
); /* 31 */
492 int (*tclBN_mp_mul_2d
) (mp_int
* a
, int d
, mp_int
* p
); /* 32 */
493 int (*tclBN_mp_neg
) (mp_int
* a
, mp_int
* b
); /* 33 */
494 int (*tclBN_mp_or
) (mp_int
* a
, mp_int
* b
, mp_int
* c
); /* 34 */
495 int (*tclBN_mp_radix_size
) (mp_int
* a
, int radix
, int* size
); /* 35 */
496 int (*tclBN_mp_read_radix
) (mp_int
* a
, const char* str
, int radix
); /* 36 */
497 void (*tclBN_mp_rshd
) (mp_int
* a
, int shift
); /* 37 */
498 int (*tclBN_mp_shrink
) (mp_int
* a
); /* 38 */
499 void (*tclBN_mp_set
) (mp_int
* a
, mp_digit b
); /* 39 */
500 int (*tclBN_mp_sqr
) (mp_int
* a
, mp_int
* b
); /* 40 */
501 int (*tclBN_mp_sqrt
) (mp_int
* a
, mp_int
* b
); /* 41 */
502 int (*tclBN_mp_sub
) (mp_int
* a
, mp_int
* b
, mp_int
* c
); /* 42 */
503 int (*tclBN_mp_sub_d
) (mp_int
* a
, mp_digit b
, mp_int
* c
); /* 43 */
504 int (*tclBN_mp_to_unsigned_bin
) (mp_int
* a
, unsigned char* b
); /* 44 */
505 int (*tclBN_mp_to_unsigned_bin_n
) (mp_int
* a
, unsigned char* b
, unsigned long* outlen
); /* 45 */
506 int (*tclBN_mp_toradix_n
) (mp_int
* a
, char* str
, int radix
, int maxlen
); /* 46 */
507 int (*tclBN_mp_unsigned_bin_size
) (mp_int
* a
); /* 47 */
508 int (*tclBN_mp_xor
) (mp_int
* a
, mp_int
* b
, mp_int
* c
); /* 48 */
509 void (*tclBN_mp_zero
) (mp_int
* a
); /* 49 */
510 void (*tclBN_reverse
) (unsigned char* s
, int len
); /* 50 */
511 int (*tclBN_fast_s_mp_mul_digs
) (mp_int
* a
, mp_int
* b
, mp_int
* c
, int digs
); /* 51 */
512 int (*tclBN_fast_s_mp_sqr
) (mp_int
* a
, mp_int
* b
); /* 52 */
513 int (*tclBN_mp_karatsuba_mul
) (mp_int
* a
, mp_int
* b
, mp_int
* c
); /* 53 */
514 int (*tclBN_mp_karatsuba_sqr
) (mp_int
* a
, mp_int
* b
); /* 54 */
515 int (*tclBN_mp_toom_mul
) (mp_int
* a
, mp_int
* b
, mp_int
* c
); /* 55 */
516 int (*tclBN_mp_toom_sqr
) (mp_int
* a
, mp_int
* b
); /* 56 */
517 int (*tclBN_s_mp_add
) (mp_int
* a
, mp_int
* b
, mp_int
* c
); /* 57 */
518 int (*tclBN_s_mp_mul_digs
) (mp_int
* a
, mp_int
* b
, mp_int
* c
, int digs
); /* 58 */
519 int (*tclBN_s_mp_sqr
) (mp_int
* a
, mp_int
* b
); /* 59 */
520 int (*tclBN_s_mp_sub
) (mp_int
* a
, mp_int
* b
, mp_int
* c
); /* 60 */
526 extern TclTomMathStubs
*tclTomMathStubsPtr
;
531 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
534 * Inline function declarations:
538 #define TclBN_epoch \
539 (tclTomMathStubsPtr->tclBN_epoch) /* 0 */
541 #ifndef TclBN_revision
542 #define TclBN_revision \
543 (tclTomMathStubsPtr->tclBN_revision) /* 1 */
546 #define TclBN_mp_add \
547 (tclTomMathStubsPtr->tclBN_mp_add) /* 2 */
549 #ifndef TclBN_mp_add_d
550 #define TclBN_mp_add_d \
551 (tclTomMathStubsPtr->tclBN_mp_add_d) /* 3 */
554 #define TclBN_mp_and \
555 (tclTomMathStubsPtr->tclBN_mp_and) /* 4 */
557 #ifndef TclBN_mp_clamp
558 #define TclBN_mp_clamp \
559 (tclTomMathStubsPtr->tclBN_mp_clamp) /* 5 */
561 #ifndef TclBN_mp_clear
562 #define TclBN_mp_clear \
563 (tclTomMathStubsPtr->tclBN_mp_clear) /* 6 */
565 #ifndef TclBN_mp_clear_multi
566 #define TclBN_mp_clear_multi \
567 (tclTomMathStubsPtr->tclBN_mp_clear_multi) /* 7 */
570 #define TclBN_mp_cmp \
571 (tclTomMathStubsPtr->tclBN_mp_cmp) /* 8 */
573 #ifndef TclBN_mp_cmp_d
574 #define TclBN_mp_cmp_d \
575 (tclTomMathStubsPtr->tclBN_mp_cmp_d) /* 9 */
577 #ifndef TclBN_mp_cmp_mag
578 #define TclBN_mp_cmp_mag \
579 (tclTomMathStubsPtr->tclBN_mp_cmp_mag) /* 10 */
581 #ifndef TclBN_mp_copy
582 #define TclBN_mp_copy \
583 (tclTomMathStubsPtr->tclBN_mp_copy) /* 11 */
585 #ifndef TclBN_mp_count_bits
586 #define TclBN_mp_count_bits \
587 (tclTomMathStubsPtr->tclBN_mp_count_bits) /* 12 */
590 #define TclBN_mp_div \
591 (tclTomMathStubsPtr->tclBN_mp_div) /* 13 */
593 #ifndef TclBN_mp_div_d
594 #define TclBN_mp_div_d \
595 (tclTomMathStubsPtr->tclBN_mp_div_d) /* 14 */
597 #ifndef TclBN_mp_div_2
598 #define TclBN_mp_div_2 \
599 (tclTomMathStubsPtr->tclBN_mp_div_2) /* 15 */
601 #ifndef TclBN_mp_div_2d
602 #define TclBN_mp_div_2d \
603 (tclTomMathStubsPtr->tclBN_mp_div_2d) /* 16 */
605 #ifndef TclBN_mp_div_3
606 #define TclBN_mp_div_3 \
607 (tclTomMathStubsPtr->tclBN_mp_div_3) /* 17 */
609 #ifndef TclBN_mp_exch
610 #define TclBN_mp_exch \
611 (tclTomMathStubsPtr->tclBN_mp_exch) /* 18 */
613 #ifndef TclBN_mp_expt_d
614 #define TclBN_mp_expt_d \
615 (tclTomMathStubsPtr->tclBN_mp_expt_d) /* 19 */
617 #ifndef TclBN_mp_grow
618 #define TclBN_mp_grow \
619 (tclTomMathStubsPtr->tclBN_mp_grow) /* 20 */
621 #ifndef TclBN_mp_init
622 #define TclBN_mp_init \
623 (tclTomMathStubsPtr->tclBN_mp_init) /* 21 */
625 #ifndef TclBN_mp_init_copy
626 #define TclBN_mp_init_copy \
627 (tclTomMathStubsPtr->tclBN_mp_init_copy) /* 22 */
629 #ifndef TclBN_mp_init_multi
630 #define TclBN_mp_init_multi \
631 (tclTomMathStubsPtr->tclBN_mp_init_multi) /* 23 */
633 #ifndef TclBN_mp_init_set
634 #define TclBN_mp_init_set \
635 (tclTomMathStubsPtr->tclBN_mp_init_set) /* 24 */
637 #ifndef TclBN_mp_init_size
638 #define TclBN_mp_init_size \
639 (tclTomMathStubsPtr->tclBN_mp_init_size) /* 25 */
641 #ifndef TclBN_mp_lshd
642 #define TclBN_mp_lshd \
643 (tclTomMathStubsPtr->tclBN_mp_lshd) /* 26 */
646 #define TclBN_mp_mod \
647 (tclTomMathStubsPtr->tclBN_mp_mod) /* 27 */
649 #ifndef TclBN_mp_mod_2d
650 #define TclBN_mp_mod_2d \
651 (tclTomMathStubsPtr->tclBN_mp_mod_2d) /* 28 */
654 #define TclBN_mp_mul \
655 (tclTomMathStubsPtr->tclBN_mp_mul) /* 29 */
657 #ifndef TclBN_mp_mul_d
658 #define TclBN_mp_mul_d \
659 (tclTomMathStubsPtr->tclBN_mp_mul_d) /* 30 */
661 #ifndef TclBN_mp_mul_2
662 #define TclBN_mp_mul_2 \
663 (tclTomMathStubsPtr->tclBN_mp_mul_2) /* 31 */
665 #ifndef TclBN_mp_mul_2d
666 #define TclBN_mp_mul_2d \
667 (tclTomMathStubsPtr->tclBN_mp_mul_2d) /* 32 */
670 #define TclBN_mp_neg \
671 (tclTomMathStubsPtr->tclBN_mp_neg) /* 33 */
674 #define TclBN_mp_or \
675 (tclTomMathStubsPtr->tclBN_mp_or) /* 34 */
677 #ifndef TclBN_mp_radix_size
678 #define TclBN_mp_radix_size \
679 (tclTomMathStubsPtr->tclBN_mp_radix_size) /* 35 */
681 #ifndef TclBN_mp_read_radix
682 #define TclBN_mp_read_radix \
683 (tclTomMathStubsPtr->tclBN_mp_read_radix) /* 36 */
685 #ifndef TclBN_mp_rshd
686 #define TclBN_mp_rshd \
687 (tclTomMathStubsPtr->tclBN_mp_rshd) /* 37 */
689 #ifndef TclBN_mp_shrink
690 #define TclBN_mp_shrink \
691 (tclTomMathStubsPtr->tclBN_mp_shrink) /* 38 */
694 #define TclBN_mp_set \
695 (tclTomMathStubsPtr->tclBN_mp_set) /* 39 */
698 #define TclBN_mp_sqr \
699 (tclTomMathStubsPtr->tclBN_mp_sqr) /* 40 */
701 #ifndef TclBN_mp_sqrt
702 #define TclBN_mp_sqrt \
703 (tclTomMathStubsPtr->tclBN_mp_sqrt) /* 41 */
706 #define TclBN_mp_sub \
707 (tclTomMathStubsPtr->tclBN_mp_sub) /* 42 */
709 #ifndef TclBN_mp_sub_d
710 #define TclBN_mp_sub_d \
711 (tclTomMathStubsPtr->tclBN_mp_sub_d) /* 43 */
713 #ifndef TclBN_mp_to_unsigned_bin
714 #define TclBN_mp_to_unsigned_bin \
715 (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin) /* 44 */
717 #ifndef TclBN_mp_to_unsigned_bin_n
718 #define TclBN_mp_to_unsigned_bin_n \
719 (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin_n) /* 45 */
721 #ifndef TclBN_mp_toradix_n
722 #define TclBN_mp_toradix_n \
723 (tclTomMathStubsPtr->tclBN_mp_toradix_n) /* 46 */
725 #ifndef TclBN_mp_unsigned_bin_size
726 #define TclBN_mp_unsigned_bin_size \
727 (tclTomMathStubsPtr->tclBN_mp_unsigned_bin_size) /* 47 */
730 #define TclBN_mp_xor \
731 (tclTomMathStubsPtr->tclBN_mp_xor) /* 48 */
733 #ifndef TclBN_mp_zero
734 #define TclBN_mp_zero \
735 (tclTomMathStubsPtr->tclBN_mp_zero) /* 49 */
737 #ifndef TclBN_reverse
738 #define TclBN_reverse \
739 (tclTomMathStubsPtr->tclBN_reverse) /* 50 */
741 #ifndef TclBN_fast_s_mp_mul_digs
742 #define TclBN_fast_s_mp_mul_digs \
743 (tclTomMathStubsPtr->tclBN_fast_s_mp_mul_digs) /* 51 */
745 #ifndef TclBN_fast_s_mp_sqr
746 #define TclBN_fast_s_mp_sqr \
747 (tclTomMathStubsPtr->tclBN_fast_s_mp_sqr) /* 52 */
749 #ifndef TclBN_mp_karatsuba_mul
750 #define TclBN_mp_karatsuba_mul \
751 (tclTomMathStubsPtr->tclBN_mp_karatsuba_mul) /* 53 */
753 #ifndef TclBN_mp_karatsuba_sqr
754 #define TclBN_mp_karatsuba_sqr \
755 (tclTomMathStubsPtr->tclBN_mp_karatsuba_sqr) /* 54 */
757 #ifndef TclBN_mp_toom_mul
758 #define TclBN_mp_toom_mul \
759 (tclTomMathStubsPtr->tclBN_mp_toom_mul) /* 55 */
761 #ifndef TclBN_mp_toom_sqr
762 #define TclBN_mp_toom_sqr \
763 (tclTomMathStubsPtr->tclBN_mp_toom_sqr) /* 56 */
765 #ifndef TclBN_s_mp_add
766 #define TclBN_s_mp_add \
767 (tclTomMathStubsPtr->tclBN_s_mp_add) /* 57 */
769 #ifndef TclBN_s_mp_mul_digs
770 #define TclBN_s_mp_mul_digs \
771 (tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */
773 #ifndef TclBN_s_mp_sqr
774 #define TclBN_s_mp_sqr \
775 (tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */
777 #ifndef TclBN_s_mp_sub
778 #define TclBN_s_mp_sub \
779 (tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */
782 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
784 /* !END!: Do not edit above this line. */
786 #undef TCL_STORAGE_CLASS
787 #define TCL_STORAGE_CLASS DLLIMPORT
789 #endif /* _TCLINTDECLS */