Squashed 'tcl8.6/' content from commit fcdc201

git-subtree-dir: tcl8.6
git-subtree-split: fcdc2019beb26eb8141c5ffc289e8de28bd07aa5

1 files changed, 238 insertions, 0 deletions

diff --git a/generic/tclTomMath.decls b/generic/tclTomMath.decls
new file mode 100644
index 0000000..610a031
--- /dev/null
+++ b/generic/tclTomMath.decls
@@ -0,0 +1,238 @@
+# tclTomMath.decls --
+#
+#	This file contains the declarations for the functions in 'libtommath'
+#	that are contained within the Tcl library.  This file is used to
+#	generate the 'tclTomMathDecls.h' and 'tclStubInit.c' files.
+#
+# If you edit this file, advance the revision number (and the epoch
+# if the new stubs are not backward compatible) in tclTomMathDecls.h
+#
+# Copyright (c) 2005 by Kevin B. Kenny.  All rights reserved.
+#
+# See the file "license.terms" for information on usage and redistribution
+# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+
+library tcl
+
+# Define the unsupported generic interfaces.
+
+interface tclTomMath
+# hooks {tclTomMathInt}
+scspec EXTERN
+
+# Declare each of the functions in the Tcl tommath interface
+
+declare 0 {
+    int TclBN_epoch(void)
+}
+declare 1 {
+    int TclBN_revision(void)
+}
+
+declare 2 {
+    int TclBN_mp_add(mp_int *a, mp_int *b, mp_int *c)
+}
+declare 3 {
+    int TclBN_mp_add_d(mp_int *a, mp_digit b, mp_int *c)
+}
+declare 4 {
+    int TclBN_mp_and(mp_int *a, mp_int *b, mp_int *c)
+}
+declare 5 {
+    void TclBN_mp_clamp(mp_int *a)
+}
+declare 6 {
+    void TclBN_mp_clear(mp_int *a)
+}
+declare 7 {
+    void TclBN_mp_clear_multi(mp_int *a, ...)
+}
+declare 8 {
+    int TclBN_mp_cmp(const mp_int *a, const mp_int *b)
+}
+declare 9 {
+    int TclBN_mp_cmp_d(const mp_int *a, mp_digit b)
+}
+declare 10 {
+    int TclBN_mp_cmp_mag(const mp_int *a, const mp_int *b)
+}
+declare 11 {
+    int TclBN_mp_copy(const mp_int *a, mp_int *b)
+}
+declare 12 {
+    int TclBN_mp_count_bits(const mp_int *a)
+}
+declare 13 {
+    int TclBN_mp_div(mp_int *a, mp_int *b, mp_int *q, mp_int *r)
+}
+declare 14 {
+    int TclBN_mp_div_d(mp_int *a, mp_digit b, mp_int *q, mp_digit *r)
+}
+declare 15 {
+    int TclBN_mp_div_2(mp_int *a, mp_int *q)
+}
+declare 16 {
+    int TclBN_mp_div_2d(const mp_int *a, int b, mp_int *q, mp_int *r)
+}
+declare 17 {
+    int TclBN_mp_div_3(mp_int *a, mp_int *q, mp_digit *r)
+}
+declare 18 {
+    void TclBN_mp_exch(mp_int *a, mp_int *b)
+}
+declare 19 {
+    int TclBN_mp_expt_d(mp_int *a, mp_digit b, mp_int *c)
+}
+declare 20 {
+    int TclBN_mp_grow(mp_int *a, int size)
+}
+declare 21 {
+    int TclBN_mp_init(mp_int *a)
+}
+declare 22 {
+    int TclBN_mp_init_copy(mp_int *a, mp_int *b)
+}
+declare 23 {
+    int TclBN_mp_init_multi(mp_int *a, ...)
+}
+declare 24 {
+    int TclBN_mp_init_set(mp_int *a, mp_digit b)
+}
+declare 25 {
+    int TclBN_mp_init_size(mp_int *a, int size)
+}
+declare 26 {
+    int TclBN_mp_lshd(mp_int *a, int shift)
+}
+declare 27 {
+    int TclBN_mp_mod(mp_int *a, mp_int *b, mp_int *r)
+}
+declare 28 {
+    int TclBN_mp_mod_2d(const mp_int *a, int b, mp_int *r)
+}
+declare 29 {
+    int TclBN_mp_mul(mp_int *a, mp_int *b, mp_int *p)
+}
+declare 30 {
+    int TclBN_mp_mul_d(mp_int *a, mp_digit b, mp_int *p)
+}
+declare 31 {
+    int TclBN_mp_mul_2(mp_int *a, mp_int *p)
+}
+declare 32 {
+    int TclBN_mp_mul_2d(const mp_int *a, int d, mp_int *p)
+}
+declare 33 {
+    int TclBN_mp_neg(const mp_int *a, mp_int *b)
+}
+declare 34 {
+    int TclBN_mp_or(mp_int *a, mp_int *b, mp_int *c)
+}
+declare 35 {
+    int TclBN_mp_radix_size(mp_int *a, int radix, int *size)
+}
+declare 36 {
+    int TclBN_mp_read_radix(mp_int *a, const char *str, int radix)
+}
+declare 37 {
+    void TclBN_mp_rshd(mp_int *a, int shift)
+}
+declare 38 {
+    int TclBN_mp_shrink(mp_int *a)
+}
+declare 39 {
+    void TclBN_mp_set(mp_int *a, mp_digit b)
+}
+declare 40 {
+    int TclBN_mp_sqr(mp_int *a, mp_int *b)
+}
+declare 41 {
+    int TclBN_mp_sqrt(mp_int *a, mp_int *b)
+}
+declare 42 {
+    int TclBN_mp_sub(mp_int *a, mp_int *b, mp_int *c)
+}
+declare 43 {
+    int TclBN_mp_sub_d(mp_int *a, mp_digit b, mp_int *c)
+}
+declare 44 {
+    int TclBN_mp_to_unsigned_bin(mp_int *a, unsigned char *b)
+}
+declare 45 {
+    int TclBN_mp_to_unsigned_bin_n(mp_int *a, unsigned char *b,
+	    unsigned long *outlen)
+}
+declare 46 {
+    int TclBN_mp_toradix_n(mp_int *a, char *str, int radix, int maxlen)
+}
+declare 47 {
+    int TclBN_mp_unsigned_bin_size(mp_int *a)
+}
+declare 48 {
+    int TclBN_mp_xor(mp_int *a, mp_int *b, mp_int *c)
+}
+declare 49 {
+    void TclBN_mp_zero(mp_int *a)
+}
+
+# internal routines to libtommath - should not be called but must be
+# exported to accommodate the "tommath" extension
+
+declare 50 {
+    void TclBN_reverse(unsigned char *s, int len)
+}
+declare 51 {
+    int TclBN_fast_s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c, int digs)
+}
+declare 52 {
+    int TclBN_fast_s_mp_sqr(mp_int *a, mp_int *b)
+}
+declare 53 {
+    int TclBN_mp_karatsuba_mul(mp_int *a, mp_int *b, mp_int *c)
+}
+declare 54 {
+    int TclBN_mp_karatsuba_sqr(mp_int *a, mp_int *b)
+}
+declare 55 {
+    int TclBN_mp_toom_mul(mp_int *a, mp_int *b, mp_int *c)
+}
+declare 56 {
+    int TclBN_mp_toom_sqr(mp_int *a, mp_int *b)
+}
+declare 57 {
+    int TclBN_s_mp_add(mp_int *a, mp_int *b, mp_int *c)
+}
+declare 58 {
+    int TclBN_s_mp_mul_digs(mp_int *a, mp_int *b, mp_int *c, int digs)
+}
+declare 59 {
+    int TclBN_s_mp_sqr(mp_int *a, mp_int *b)
+}
+declare 60 {
+    int TclBN_s_mp_sub(mp_int *a, mp_int *b, mp_int *c)
+}
+declare 61 {
+    int TclBN_mp_init_set_int(mp_int *a, unsigned long i)
+}
+declare 62 {
+    int TclBN_mp_set_int(mp_int *a, unsigned long i)
+}
+declare 63 {
+    int TclBN_mp_cnt_lsb(const mp_int *a)
+}
+
+# Formerly internal API to allow initialisation of bignums without knowing the
+# typedefs of how a bignum works internally.
+declare 64 {
+    void TclBNInitBignumFromLong(mp_int *bignum, long initVal)
+}
+declare 65 {
+    void TclBNInitBignumFromWideInt(mp_int *bignum, Tcl_WideInt initVal)
+}
+declare 66 {
+    void TclBNInitBignumFromWideUInt(mp_int *bignum, Tcl_WideUInt initVal)
+}
+
+# Local Variables:
+# mode: tcl
+# End: