#define _CRT_SECURE_NO_WARNINGS

#endif

// In darwin and perhaps other BSD variants off_t is a 64 bit value, hence no need for specific 64 bit functions

#define FOPEN_FUNC(filename, mode) fopen(filename, mode)

#define FTELLO_FUNC(stream) ftello(stream)

#endif

#endif

// In darwin and perhaps other BSD variants off_t is a 64 bit value, hence no need for specific 64 bit functions

#define FOPEN_FUNC(filename, mode) fopen(filename, mode)

#define FTELLO_FUNC(stream) ftello(stream)

'\"

'\" See the file "license.terms" for information on usage and redistribution

'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.

.so man.macros

.TH Tcl_InitSubsystems 3 8.7 Tcl "Tcl Library Procedures"

.BS

typedef struct mp_int mp_int;

#define MP_INT_DECLARED

/*

*----------------------------------------------------------------------------

if (Tcl_GetBignumFromObj(interp, objv[1], &big) != TCL_OK) {

return TCL_ERROR;

}

mp_clear(&big);

goto negarg;

}

}

if (type == TCL_NUMBER_BIG) {

Tcl_GetBignumFromObj(NULL, objv[1], &big);

tooLarge:

mp_neg(&big, &big);

Tcl_TakeBignumFromObj(NULL, value2Ptr, &big2);

/* TODO: internals intrusion */

/*

* Arguments are opposite sign; remainder is sum.

*/

break;

case TCL_NUMBER_BIG:

Tcl_TakeBignumFromObj(NULL, value2Ptr, &big2);

mp_clear(&big2);

break;

default:

break;

case TCL_NUMBER_BIG:

Tcl_TakeBignumFromObj(NULL, valuePtr, &big1);

mp_clear(&big1);

break;

default:

oddExponent = (int) (w2 & (Tcl_WideInt)1);

} else {

Tcl_TakeBignumFromObj(NULL, value2Ptr, &big2);

mp_mod_2d(&big2, 1, &big2);

oddExponent = big2.used != 0;

mp_clear(&big2);

goto wideCompare;

case TCL_NUMBER_BIG:

Tcl_TakeBignumFromObj(NULL, value2Ptr, &big2);

compare = MP_GT;

} else {

compare = MP_LT;

}

Tcl_TakeBignumFromObj(NULL, value2Ptr, &big2);

if ((d1 < (double)WIDE_MAX) && (d1 > (double)WIDE_MIN)) {

compare = MP_GT;

} else {

compare = MP_LT;

/* Flags for conversion of doubles to digit strings */

#define TCL_DD_E_FORMAT 0x2

/* Use a fixed-length string of digits,

* suitable for E format*/

#define TCL_DD_F_FORMAT 0x3

/* Use a fixed number of digits after the

* decimal point, suitable for F format */

#define TCL_DD_NO_QUICK 0x8

/* Debug flag: forbid quick FP conversion */

int before, int after, int *indexPtr);

MODULE_SCOPE int TclIndexDecode(int encoded, int endValue);

/* Constants used in index value encoding routines. */

#define TCL_INDEX_END (-2)

#define TCL_INDEX_START (0)

nativePathPtr = (char *)proc(pathPtr);

srcFsPathPtr = PATHOBJ(pathPtr);

srcFsPathPtr->nativePathPtr = nativePathPtr;

}

return srcFsPathPtr->nativePathPtr;

int code = Tcl_GetBignumFromObj(interp, objPtr, &big);

if (code == TCL_OK) {

code = TCL_ERROR;

}

mp_clear(&big);

int k, /* floor(log10(d)), approximately. */

int k_check, /* 0 if k is exact, 1 if it may be too high */

int flags, /* Flags passed to dtoa:

int len, /* Length of the return value. */

int ilim, /* Number of digits to store. */

int ilim1, /* Number of digits to store if we misguessed

* Format the digit string.

*/

end = ShorteningQuickFormat(d, k, ilim, eps.d, retval, decpt);

} else {

end = StrictQuickFormat(d, k, ilim, eps.d, retval, decpt);

* choosing the one that is closest to the given number (and

* resolving ties with 'round to even'). It is allowed to return

* fewer than 'ndigits' if the number converts exactly; if the

* also returns fewer digits if the shorter string will still

* reconvert without loss to the given input number. In any case,

* strings of trailing zeroes are suppressed.

* string if the number is sufficiently small. Again, it is

* permissible for TCL_DD_F_FORMAT to return fewer digits for a

* number that converts exactly, and changing the argument to

* also to return fewer digits if the shorter string will still

* reconvert without loss to the given input number. Strings of

* trailing zeroes are suppressed.

* denominator.

*/

int m2minus = b2;

int m2plus;

int m5 = b5;

bits = mp_count_bits(a);

if (bits > DBL_MAX_EXP*log2FLT_RADIX) {

errno = ERANGE;

return -HUGE_VAL;

}

}

shift = mantBits - bits;

mp_div_2d(a, -shift, &b, NULL);

if (mp_isodd(&b)) {

mp_sub_d(&b, 1, &b);

}

}

} else {

*/

mp_div_2d(a, -1-shift, &b, NULL);

mp_sub_d(&b, 1, &b);

}

mp_div_2d(&b, 1, &b, NULL);

}

* Return the result with the appropriate sign.

*/

return -r;

}

}



mp_int b;

mp_init(&b);

mp_neg(a, &b);

r = -TclFloor(&b);

} else {

mp_int b;

mp_init(&b);

mp_neg(a, &b);

r = -TclCeil(&b);

} else {

*/

*machexp = bits - mantBits + 2;

}



/*

#define TclBN_mp_set_ul (void (*)(mp_int *a, unsigned long i))TclBN_mp_set_long

#if defined(TCL_NO_DEPRECATED) || TCL_MAJOR_VERSION > 8

# define TclBN_mp_expt_d_ex 0

# define TclBN_mp_to_unsigned_bin 0

# define Tcl_BackgroundError 0

#else

{

(void)fast;

return mp_expt_u32(a, b, c);

TclBN_mp_get_mag_ull, /* 69 */

0, /* 70 */

TclBN_mp_get_mag_ul, /* 71 */

TclBN_mp_tc_and, /* 73 */

TclBN_mp_tc_or, /* 74 */

TclBN_mp_tc_xor, /* 75 */

Tcl_SetObjResult(interp, Tcl_NewStringObj("bad flag", -1));

return TCL_ERROR;

}

}

str = TclDoubleDigits(d, ndigits, type, &decpt, &signum, &endPtr);

strObj = Tcl_NewStringObj(str, endPtr-str);

mp_err MP_WUR TclBN_mp_add(const mp_int *a, const mp_int *b, mp_int *c)

}

declare 3 {

}

declare 4 {

mp_err MP_WUR TclBN_mp_and(const mp_int *a, const mp_int *b, mp_int *c)

mp_ord MP_WUR TclBN_mp_cmp(const mp_int *a, const mp_int *b)

}

declare 9 {

}

declare 10 {

mp_ord MP_WUR TclBN_mp_cmp_mag(const mp_int *a, const mp_int *b)

mp_err MP_WUR TclBN_mp_div(const mp_int *a, const mp_int *b, mp_int *q, mp_int *r)

}

declare 14 {

}

declare 15 {

mp_err MP_WUR TclBN_mp_div_2(const mp_int *a, mp_int *q)

mp_err MP_WUR TclBN_mp_div_2d(const mp_int *a, int b, mp_int *q, mp_int *r)

}

declare 17 {

}

declare 18 {

void TclBN_mp_exch(mp_int *a, mp_int *b)

mp_err MP_WUR TclBN_mp_init_multi(mp_int *a, ...)

}

declare 24 {

}

declare 25 {

mp_err MP_WUR TclBN_mp_init_size(mp_int *a, int size)

mp_err MP_WUR TclBN_mp_mul(const mp_int *a, const mp_int *b, mp_int *p)

}

declare 30 {

}

declare 31 {

mp_err MP_WUR TclBN_mp_mul_2(const mp_int *a, mp_int *p)

mp_err MP_WUR TclBN_mp_shrink(mp_int *a)

}

declare 39 {

}

declare 40 {

mp_err MP_WUR TclBN_mp_sqr(const mp_int *a, mp_int *b)

mp_err MP_WUR TclBN_mp_sub(const mp_int *a, const mp_int *b, mp_int *c)

}

declare 43 {

}

declare 44 {deprecated {Use mp_to_ubin}} {

mp_err TclBN_mp_to_unsigned_bin(const mp_int *a, unsigned char *b)

# Added in libtommath 1.0

declare 67 {deprecated {Use mp_expt_u32}} {

}

# Added in libtommath 1.0.1

declare 68 {

Tcl_WideUInt MP_WUR TclBN_mp_get_mag_ull(const mp_int *a)

}

declare 71 {

}

# Added in libtommath 1.1.0

#ifndef MP_NO_STDINT

# include <stdint.h>

#endif

#ifndef MODULE_SCOPE

#define MODULE_SCOPE extern

#endif

#ifdef __cplusplus

extern "C" {

#endif

/* MS Visual C++ doesn't have a 128bit type for words, so fall back to 32bit MPI's (where words are 64bit) */

# define MP_32BIT

#endif

/* detect 64-bit mode if possible */

/* we support 128bit integers only via: __attribute__((mode(TI))) */

# define MP_64BIT

# else

*/

#ifdef MP_8BIT

typedef unsigned char mp_digit;

#elif defined(MP_16BIT)

typedef unsigned short mp_digit;

#elif defined(MP_64BIT)

/* for GCC only on supported platforms */

typedef unsigned long long mp_digit;

# define MP_DIGIT_BIT 60

#else

typedef unsigned int mp_digit;

# ifdef MP_31BIT

/*

* This is an extension that uses 31-bit digits.

#define MP_PRIME_SAFE 0x0002 /* Safe prime (p-1)/2 == prime */

#define MP_PRIME_2MSB_ON 0x0008 /* force 2nd MSB to 1 */

#ifdef MP_USE_ENUMS

typedef enum {

MP_ZPOS = 0, /* positive */

# define MP_DEPRECATED_PRAGMA(s)

#endif

/* the infamous mp_int structure */

#ifndef MP_INT_DECLARED

/* ---> Basic Manipulations <--- */

#define mp_iszero(a) (((a)->used == 0) ? MP_YES : MP_NO)

#define mp_isneg(a) (((a)->sign != MP_ZPOS) ? MP_YES : MP_NO)

/* set to zero */

void mp_clamp(mp_int *a);

*/

/* export binary data */

/*

MP_DEPRECATED(mp_pack) mp_err mp_export(void *rop, size_t *countp, int order, size_t size,

*/

#ifdef MP_PRNG_ENABLE_LTM_RNG

/* A last resort to provide random data on systems without any of the other

* implemented ways to gather entropy.

* It is compatible with `rng_get_bytes()` from libtomcrypt so you could

#define MP_FREE(mem, size) TclBNFree(mem)

/* Rename the global symbols in libtommath to avoid linkage conflicts */

#define bn_reverse TclBN_reverse

#define mp_add TclBN_mp_add

#define mp_and TclBN_mp_and

#define mp_clamp TclBN_mp_clamp

#define mp_clear TclBN_mp_clear

#define mp_clear_multi TclBN_mp_clear_multi

#define mp_cmp TclBN_mp_cmp

#define mp_cmp_mag TclBN_mp_cmp_mag

#define mp_cnt_lsb TclBN_mp_cnt_lsb

#define mp_copy TclBN_mp_copy

#define mp_div TclBN_mp_div

#define mp_div_2 TclBN_mp_div_2

#define mp_div_2d TclBN_mp_div_2d

#define mp_exch TclBN_mp_exch

#define mp_expt_d TclBN_mp_expt_u32

#define mp_expt_d_ex TclBN_mp_expt_d_ex

#define mp_get_bit TclBN_mp_get_bit

#define mp_get_mag_ul TclBN_mp_get_mag_ul

#define mp_get_mag_ull TclBN_mp_get_mag_ull

#define mp_init TclBN_mp_init

#define mp_init_copy TclBN_mp_init_copy

#define mp_init_multi TclBN_mp_init_multi

#define mp_init_set_int(a,i) (MP_DEPRECATED_PRAGMA("replaced by mp_init_ul") TclBN_mp_init_ul(a,(unsigned int)(i)))

#define mp_init_size TclBN_mp_init_size

#define mp_init_ul TclBN_mp_init_ul

#define mp_lshd TclBN_mp_lshd

#define mp_mod TclBN_mp_mod

#define mp_mod_2d TclBN_mp_mod_2d

#define mp_mul TclBN_mp_mul

#define mp_mul_2 TclBN_mp_mul_2

#define mp_mul_2d TclBN_mp_mul_2d

#define mp_neg TclBN_mp_neg

#define mp_or TclBN_mp_or

#define mp_radix_size TclBN_mp_radix_size

#define mp_read_radix TclBN_mp_read_radix

#define mp_rshd TclBN_mp_rshd

#define mp_set_int(a,b) (MP_DEPRECATED_PRAGMA("replaced by mp_set_ul") (TclBN_mp_set_ul((a),((unsigned int)(b))),MP_OKAY))

#define mp_set_long(a,b) (MP_DEPRECATED_PRAGMA("replaced by mp_set_ul") (TclBN_mp_set_ul((a),(b)),MP_OKAY))

#define mp_set_long_long(a,b) (MP_DEPRECATED_PRAGMA("replaced by mp_set_ull") (TclBN_mp_set_ull((a),(b)),MP_OKAY))

#define mp_sqr TclBN_mp_sqr

#define mp_sqrt TclBN_mp_sqrt

#define mp_sub TclBN_mp_sub

#define mp_signed_rsh TclBN_mp_signed_rsh

#define mp_tc_and TclBN_mp_and

#define mp_tc_div_2d TclBN_mp_signed_rsh

EXTERN mp_err TclBN_mp_add(const mp_int *a, const mp_int *b,

mp_int *c) MP_WUR;

/* 3 */

mp_int *c) MP_WUR;

/* 4 */

EXTERN mp_err TclBN_mp_and(const mp_int *a, const mp_int *b,

/* 8 */

EXTERN mp_ord TclBN_mp_cmp(const mp_int *a, const mp_int *b) MP_WUR;

/* 9 */

/* 10 */

EXTERN mp_ord TclBN_mp_cmp_mag(const mp_int *a, const mp_int *b) MP_WUR;

/* 11 */

EXTERN mp_err TclBN_mp_div(const mp_int *a, const mp_int *b,

mp_int *q, mp_int *r) MP_WUR;

/* 14 */

/* 15 */

EXTERN mp_err TclBN_mp_div_2(const mp_int *a, mp_int *q) MP_WUR;

/* 16 */

mp_int *r) MP_WUR;

/* 17 */

EXTERN mp_err TclBN_mp_div_3(const mp_int *a, mp_int *q,

/* 18 */

EXTERN void TclBN_mp_exch(mp_int *a, mp_int *b);

/* 19 */

/* 23 */

EXTERN mp_err TclBN_mp_init_multi(mp_int *a, ...) MP_WUR;

/* 24 */

/* 25 */

EXTERN mp_err TclBN_mp_init_size(mp_int *a, int size) MP_WUR;

/* 26 */

EXTERN mp_err TclBN_mp_mul(const mp_int *a, const mp_int *b,

mp_int *p) MP_WUR;

/* 30 */

mp_int *p) MP_WUR;

/* 31 */

EXTERN mp_err TclBN_mp_mul_2(const mp_int *a, mp_int *p) MP_WUR;

/* 38 */

EXTERN mp_err TclBN_mp_shrink(mp_int *a) MP_WUR;

/* 39 */

/* 40 */

EXTERN mp_err TclBN_mp_sqr(const mp_int *a, mp_int *b) MP_WUR;

/* 41 */

EXTERN mp_err TclBN_mp_sub(const mp_int *a, const mp_int *b,

mp_int *c) MP_WUR;

/* 43 */

mp_int *c) MP_WUR;

/* 44 */

TCL_DEPRECATED("Use mp_to_ubin")

Tcl_WideUInt initVal);

/* 67 */

TCL_DEPRECATED("Use mp_expt_u32")

mp_int *c, int fast);

/* 68 */

EXTERN void TclBN_mp_set_ull(mp_int *a, Tcl_WideUInt i);

EXTERN Tcl_WideUInt TclBN_mp_get_mag_ull(const mp_int *a) MP_WUR;

/* Slot 70 is reserved */

/* 71 */

/* 73 */

EXTERN mp_err TclBN_mp_tc_and(const mp_int *a, const mp_int *b,

mp_int *c) MP_WUR;

int (*tclBN_epoch) (void) MP_WUR; /* 0 */

int (*tclBN_revision) (void) MP_WUR; /* 1 */

mp_err (*tclBN_mp_add) (const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; /* 2 */

mp_err (*tclBN_mp_and) (const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; /* 4 */

void (*tclBN_mp_clamp) (mp_int *a); /* 5 */

void (*tclBN_mp_clear) (mp_int *a); /* 6 */

void (*tclBN_mp_clear_multi) (mp_int *a, ...); /* 7 */

mp_ord (*tclBN_mp_cmp) (const mp_int *a, const mp_int *b) MP_WUR; /* 8 */

mp_ord (*tclBN_mp_cmp_mag) (const mp_int *a, const mp_int *b) MP_WUR; /* 10 */

mp_err (*tclBN_mp_copy) (const mp_int *a, mp_int *b) MP_WUR; /* 11 */

int (*tclBN_mp_count_bits) (const mp_int *a) MP_WUR; /* 12 */

mp_err (*tclBN_mp_div) (const mp_int *a, const mp_int *b, mp_int *q, mp_int *r) MP_WUR; /* 13 */

mp_err (*tclBN_mp_div_2) (const mp_int *a, mp_int *q) MP_WUR; /* 15 */

mp_err (*tclBN_mp_div_2d) (const mp_int *a, int b, mp_int *q, mp_int *r) MP_WUR; /* 16 */

void (*tclBN_mp_exch) (mp_int *a, mp_int *b); /* 18 */

mp_err (*tclBN_mp_expt_u32) (const mp_int *a, unsigned int b, mp_int *c) MP_WUR; /* 19 */

mp_err (*tclBN_mp_grow) (mp_int *a, int size) MP_WUR; /* 20 */

mp_err (*tclBN_mp_init) (mp_int *a) MP_WUR; /* 21 */

mp_err (*tclBN_mp_init_copy) (mp_int *a, const mp_int *b) MP_WUR; /* 22 */

mp_err (*tclBN_mp_init_multi) (mp_int *a, ...) MP_WUR; /* 23 */

mp_err (*tclBN_mp_init_size) (mp_int *a, int size) MP_WUR; /* 25 */

mp_err (*tclBN_mp_lshd) (mp_int *a, int shift) MP_WUR; /* 26 */

mp_err (*tclBN_mp_mod) (const mp_int *a, const mp_int *b, mp_int *r) MP_WUR; /* 27 */

mp_err (*tclBN_mp_mod_2d) (const mp_int *a, int b, mp_int *r) MP_WUR; /* 28 */

mp_err (*tclBN_mp_mul) (const mp_int *a, const mp_int *b, mp_int *p) MP_WUR; /* 29 */

mp_err (*tclBN_mp_mul_2) (const mp_int *a, mp_int *p) MP_WUR; /* 31 */

mp_err (*tclBN_mp_mul_2d) (const mp_int *a, int d, mp_int *p) MP_WUR; /* 32 */

mp_err (*tclBN_mp_neg) (const mp_int *a, mp_int *b) MP_WUR; /* 33 */

mp_err (*tclBN_mp_read_radix) (mp_int *a, const char *str, int radix) MP_WUR; /* 36 */

void (*tclBN_mp_rshd) (mp_int *a, int shift); /* 37 */

mp_err (*tclBN_mp_shrink) (mp_int *a) MP_WUR; /* 38 */

mp_err (*tclBN_mp_sqr) (const mp_int *a, mp_int *b) MP_WUR; /* 40 */

mp_err (*tclBN_mp_sqrt) (const mp_int *a, mp_int *b) MP_WUR; /* 41 */

mp_err (*tclBN_mp_sub) (const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; /* 42 */

TCL_DEPRECATED_API("Use mp_to_ubin") mp_err (*tclBN_mp_to_unsigned_bin) (const mp_int *a, unsigned char *b); /* 44 */

TCL_DEPRECATED_API("Use mp_to_ubin") mp_err (*tclBN_mp_to_unsigned_bin_n) (const mp_int *a, unsigned char *b, unsigned long *outlen); /* 45 */

TCL_DEPRECATED_API("Use mp_to_radix") mp_err (*tclBN_mp_toradix_n) (const mp_int *a, char *str, int radix, int maxlen); /* 46 */

TCL_DEPRECATED_API("Use mp_init() + mp_set_l()") void (*tclBNInitBignumFromLong) (mp_int *bignum, long initVal); /* 64 */

TCL_DEPRECATED_API("Use mp_init() + mp_set_ll()") void (*tclBNInitBignumFromWideInt) (mp_int *bignum, Tcl_WideInt initVal); /* 65 */

TCL_DEPRECATED_API("Use mp_init() + mp_set_ull()") void (*tclBNInitBignumFromWideUInt) (mp_int *bignum, Tcl_WideUInt initVal); /* 66 */

void (*tclBN_mp_set_ull) (mp_int *a, Tcl_WideUInt i); /* 68 */

Tcl_WideUInt (*tclBN_mp_get_mag_ull) (const mp_int *a) MP_WUR; /* 69 */

void (*reserved70)(void);

mp_err (*tclBN_mp_tc_and) (const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; /* 73 */

mp_err (*tclBN_mp_tc_or) (const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; /* 74 */

mp_err (*tclBN_mp_tc_xor) (const mp_int *a, const mp_int *b, mp_int *c) MP_WUR; /* 75 */

/* Slot 70 is reserved */

#define TclBN_mp_get_mag_ul \

(tclTomMathStubsPtr->tclBN_mp_get_mag_ul) /* 71 */

#define TclBN_mp_tc_and \

(tclTomMathStubsPtr->tclBN_mp_tc_and) /* 73 */

#define TclBN_mp_tc_or \

/* !END!: Do not edit above this line. */

#undef TCL_STORAGE_CLASS

#define TCL_STORAGE_CLASS DLLIMPORT

* the first (the recommended zero value for tcl_precision avoids the

* problem entirely).

*

* that allows floating point values to be shortened if it can be done

* without loss of precision.

*/

digits = TclDoubleDigits(value, *precisionPtr,

&exponent, &signum, &end);

}

if (signum) {

/* objPtr holds an integer outside the signed wide range */

/* Truncate to the signed wide range. */

return TCL_OK;

}

} else {

/* sum holds an integer outside the signed wide range */

/* Truncate to the signed wide range. */

*widePtr = WIDE_MIN;

} else {

*widePtr = WIDE_MAX;

if (t == TCL_NUMBER_BIG) {

/* Truncate to the signed wide range. */

offset = (bytes[3] == '-') ? WIDE_MAX : WIDE_MIN;

} else {

offset = (bytes[3] == '-') ? WIDE_MIN : WIDE_MAX;

#endif

/* MS Visual C++ doesn't have a 128bit type for words, so fall back to 32bit MPI's (where words are 64bit) */

# define MP_32BIT

#endif

# define MP_DIGIT_BIT 15

#elif defined(MP_64BIT)

/* for GCC only on supported platforms */

# define MP_DIGIT_BIT 60

#else

typedef unsigned int mp_digit;

#define MP_ERR -1 /* unknown error */

#define MP_MEM -2 /* out of mem */

#define MP_VAL -3 /* invalid input */

#define MP_ITER -4 /* maximum iterations reached */

#define MP_BUF -5 /* buffer overflow, supplied buffer too small */

typedef int mp_order;

return (a->sign == MP_NEG) ? (type)-res : (type)res; \

}

#endif

built on 10.x to run on any 10.y with x > y >= z (for a chosen z >= 2).

- Tcl extensions can be installed in any of:

(searched in that order).

Given a potential package directory $pkg, Tcl on OSX checks for the file

$pkg/Resources/Scripts/pkgIndex.tcl as well as the usual $pkg/pkgIndex.tcl.

package require tcltest 2.2

namespace import ::tcltest::*

testConstraint exec [llength [info commands exec]]

testConstraint fcopy [llength [info commands fcopy]]

testConstraint fileevent [llength [info commands fileevent]]

expr {0 == [catch {package require Thread 2.7-}]}]

testConstraint notValgrind [expr {![testConstraint valgrind]}]

SHLIB_LD = @SHLIB_LD@

SHLIB_CFLAGS = @SHLIB_CFLAGS@ -DBUILD_tcl

SHLIB_LD_LIBS = @SHLIB_LD_LIBS@

TCL_SHLIB_LD_EXTRAS = @TCL_SHLIB_LD_EXTRAS@

SHLIB_SUFFIX = @SHLIB_SUFFIX@

bn_s_mp_get_bit.o bn_mp_get_mag_ul.o bn_mp_grow.o bn_mp_init.o \

bn_mp_init_copy.o bn_mp_init_multi.o bn_mp_init_set.o \

bn_mp_init_size.o bn_mp_init_ul.o bn_s_mp_karatsuba_mul.o \

bn_mp_lshd.o bn_mp_mod.o bn_mp_mod_2d.o bn_mp_mul.o bn_mp_mul_2.o \

bn_mp_mul_2d.o bn_mp_mul_d.o bn_mp_neg.o bn_mp_or.o \

bn_mp_radix_size.o bn_mp_radix_smap.o \

$(TOMMATH_DIR)/bn_mp_dr_setup.c \

$(TOMMATH_DIR)/bn_mp_error_to_string.c \

$(TOMMATH_DIR)/bn_mp_exch.c \

$(TOMMATH_DIR)/bn_mp_expt_u32.c \

$(TOMMATH_DIR)/bn_mp_exptmod.c \

$(TOMMATH_DIR)/bn_mp_exteuclid.c \

@$(INSTALL_DATA) tcl.pc $(LIB_INSTALL_DIR)/pkgconfig/tcl.pc

install-libraries-zipfs-shared: libraries

if [ ! -d "$$i" ] ; then \

echo "Making directory $$i"; \

$(INSTALL_DATA_DIR) "$$i"; \

fi; \

done

@echo "Installing library files to $(SCRIPT_INSTALL_DIR)/"

$(INSTALL_DATA) $$i "$(SCRIPT_INSTALL_DIR)"; \

done

MODULE_INSTALL_DIR=$(SCRIPT_INSTALL_DIR)/..

install-libraries: libraries

if [ ! -d "$$i" ] ; then \

echo "Making directory $$i"; \

$(INSTALL_DATA_DIR) "$$i"; \

fi; \

done

if [ ! -d "$(SCRIPT_INSTALL_DIR)"/$$i ] ; then \

echo "Making directory $(SCRIPT_INSTALL_DIR)/$$i"; \

$(INSTALL_DATA_DIR) "$(SCRIPT_INSTALL_DIR)"/$$i; \

@$(INSTALL_DATA) $(TOP_DIR)/library/http/http.tcl \

"$(MODULE_INSTALL_DIR)"/tcl8/8.6/http-2.9.0.tm

@echo "Installing package opt0.4 files to $(SCRIPT_INSTALL_DIR)/opt0.4/"

$(INSTALL_DATA) $$i "$(SCRIPT_INSTALL_DIR)"/opt0.4; \

done

@echo "Installing package msgcat 1.7.0 as a Tcl Module"

@$(INSTALL_DATA) $(TOP_DIR)/library/platform/shell.tcl \

"$(MODULE_INSTALL_DIR)"/tcl8/8.4/platform/shell-1.1.4.tm

@echo "Installing encoding files to $(SCRIPT_INSTALL_DIR)/encoding/"

$(INSTALL_DATA) $$i "$(SCRIPT_INSTALL_DIR)"/encoding; \

done

@if [ -n "$(TCL_MODULE_PATH)" -a -f $(TOP_DIR)/library/tm.tcl ] ; then \

fi

install-tzdata:

if [ ! -d "$(SCRIPT_INSTALL_DIR)"/$$i ] ; then \

echo "Making directory $(SCRIPT_INSTALL_DIR)/$$i"; \

$(INSTALL_DATA_DIR) "$(SCRIPT_INSTALL_DIR)"/$$i; \

fi; \

done

@echo "Installing time zone files to $(SCRIPT_INSTALL_DIR)/tzdata/"

if [ -d $$i ] ; then \

ii=`basename $$i`; \

if [ ! -d "$(SCRIPT_INSTALL_DIR)"/tzdata/$$ii ] ; then \

$(INSTALL_DATA_DIR) "$(SCRIPT_INSTALL_DIR)"/tzdata/$$ii; \

fi; \

if [ -d $$j ] ; then \

jj=`basename $$j`; \

if [ ! -d "$(SCRIPT_INSTALL_DIR)"/tzdata/$$ii/$$jj ] ; then \

$(INSTALL_DATA_DIR) "$(SCRIPT_INSTALL_DIR)"/tzdata/$$ii/$$jj; \

fi; \

$(INSTALL_DATA) $$k "$(SCRIPT_INSTALL_DIR)"/tzdata/$$ii/$$jj; \

done; \

else \

done

install-msgs:

if [ ! -d "$(SCRIPT_INSTALL_DIR)"/$$i ] ; then \

echo "Making directory $(SCRIPT_INSTALL_DIR)/$$i"; \

$(INSTALL_DATA_DIR) "$(SCRIPT_INSTALL_DIR)"/$$i; \

fi; \

done

@echo "Installing message catalog files to $(SCRIPT_INSTALL_DIR)/msgs/"

$(INSTALL_DATA) $$i "$(SCRIPT_INSTALL_DIR)"/msgs; \

done

install-doc: doc

if [ ! -d "$$i" ] ; then \

echo "Making directory $$i"; \

$(INSTALL_DATA_DIR) "$$i"; \

fi; \

done

@echo "Installing and cross-linking top-level (.1) docs to $(MAN1_INSTALL_DIR)/"

$(SHELL) $(UNIX_DIR)/installManPage $(MAN_FLAGS) $$i "$(MAN1_INSTALL_DIR)"; \

done

@echo "Installing and cross-linking C API (.3) docs to $(MAN3_INSTALL_DIR)/"

$(SHELL) $(UNIX_DIR)/installManPage $(MAN_FLAGS) $$i "$(MAN3_INSTALL_DIR)"; \

done

@echo "Installing and cross-linking command (.n) docs to $(MANN_INSTALL_DIR)/";

$(SHELL) $(UNIX_DIR)/installManPage $(MAN_FLAGS) $$i "$(MANN_INSTALL_DIR)"; \

done

# implementation, and aren't to be installed.

install-headers:

if [ ! -d "$$i" ] ; then \

echo "Making directory $$i"; \

$(INSTALL_DATA_DIR) "$$i"; \

fi; \

done

@echo "Installing header files to $(INCLUDE_INSTALL_DIR)/";

$(INSTALL_DATA) $$i "$(INCLUDE_INSTALL_DIR)"; \

done

# Optional target to install private headers

install-private-headers:

if [ ! -d "$$i" ] ; then \

echo "Making directory $$i"; \

$(INSTALL_DATA_DIR) "$$i"; \

fi; \

done

@echo "Installing private header files to $(PRIVATE_INCLUDE_INSTALL_DIR)/";

$(INSTALL_DATA) $$i "$(PRIVATE_INCLUDE_INSTALL_DIR)"; \

done

$(INSTALL_DATA) tclConfig.h "$(PRIVATE_INCLUDE_INSTALL_DIR)"; \

fi

bn_s_mp_balance_mul.o: $(TOMMATH_DIR)/bn_s_mp_balance_mul.c $(MATHHDRS)

$(CC) -c $(CC_SWITCHES) $(TOMMATH_DIR)/bn_s_mp_balance_mul.c

bn_mp_lshd.o: $(TOMMATH_DIR)/bn_mp_lshd.c $(MATHHDRS)

$(CC) -c $(CC_SWITCHES) $(TOMMATH_DIR)/bn_mp_lshd.c

PKG_DIR = ./pkgs

configure-packages:

if [ -d $$i ] ; then \

if [ -x $$i/configure ] ; then \

pkg=`basename $$i`; \

done

packages: configure-packages ${STUB_LIB_FILE}

if [ -d $$i ] ; then \

pkg=`basename $$i`; \

if [ -f $(PKG_DIR)/$$pkg/Makefile ] ; then \

done

install-packages: packages

if [ -d $$i ] ; then \

pkg=`basename $$i`; \

if [ -f $(PKG_DIR)/$$pkg/Makefile ] ; then \

done

test-packages: ${TCLTEST_EXE} packages

if [ -d $$i ] ; then \

pkg=`basename $$i`; \

if [ -f $(PKG_DIR)/$$pkg/Makefile ] ; then \

done

clean-packages:

if [ -d $$i ] ; then \

pkg=`basename $$i`; \

if [ -f $(PKG_DIR)/$$pkg/Makefile ] ; then \

done

distclean-packages:

if [ -d $$i ] ; then \

pkg=`basename $$i`; \

if [ -f $(PKG_DIR)/$$pkg/Makefile ] ; then \

dist-packages: configure-packages

@rm -rf $(DISTROOT)/pkgs; \

mkdir -p $(DISTROOT)/pkgs; \

if [ -d $$i ] ; then \

pkg=`basename $$i`; \

if [ -f $(PKG_DIR)/$$pkg/Makefile ] ; then \

| awk '$$2 ~ /^[TDBCS]$$/ { sub("^_", "", $$3); print $$3 }' \

| sort -n` ; do \

match=0; \

if [ `grep -c "$$i *(" $$j` -gt 0 ] ; then \

match=1; \

fi; \

checkdoc: $(TCL_LIB_FILE)

-@for i in `nm -p $(TCL_LIB_FILE) | awk '$$3 ~ /Tcl_/ { print $$3 }' \

match=0; \

i=`echo $$i | sed 's/^_//'`; \

match=1; \

fi; \

done; \

echo $$i; \

fi; \

done

@mkdir $(DISTDIR)/library

cp -p $(TOP_DIR)/license.terms $(TOP_DIR)/library/*.tcl \

$(TOP_DIR)/library/tclIndex $(DISTDIR)/library

mkdir $(DISTDIR)/library/$$i;\

cp -p $(TOP_DIR)/library/$$i/*.tcl $(DISTDIR)/library/$$i; \

done

@mkdir $(DISTDIR)/pkgs

cp $(TOP_DIR)/pkgs/README $(DISTDIR)/pkgs

cp $(TOP_DIR)/pkgs/package.list.txt $(DISTDIR)/pkgs

tar -C $(DISTDIR)/pkgs -xzf "$$i"; \

done

fi

# OS/390 lacks sys/param.h (and doesn't need it, by chance).

for ac_header in sys/param.h

if test "`uname -s`" = "AIX" ; then

tcl_cv_sys_version=AIX-`uname -v`.`uname -r`

fi

fi

fi

# below.

if test "$GCC" = yes; then :

else

fi

SHLIB_LD="ld -G"

if test "${tcl_cv_type_64bit}" = none ; then

$as_echo "#define TCL_WIDE_INT_IS_LONG 1" >>confdefs.h

{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5

if test "`uname -s`" = "AIX" ; then

tcl_cv_sys_version=AIX-`uname -v`.`uname -r`

fi

fi

fi

eval "TCL_LIB_FILE=${TCL_LIB_FILE}"

PRIVATE_INCLUDE_DIR='$(includedir)'

HTML_DIR='$(DISTDIR)/html'

if test "$FRAMEWORK_BUILD" = "1" ; then

test -z "$TCL_PACKAGE_PATH" && \

test -z "$TCL_MODULE_PATH" && \

elif test "$prefix/lib" != "$libdir"; then

else

fi

#--------------------------------------------------------------------

eval "TCL_LIB_FILE=${TCL_LIB_FILE}"

PRIVATE_INCLUDE_DIR='$(includedir)'

HTML_DIR='$(DISTDIR)/html'

if test "$FRAMEWORK_BUILD" = "1" ; then

test -z "$TCL_PACKAGE_PATH" && \

test -z "$TCL_MODULE_PATH" && \

elif test "$prefix/lib" != "$libdir"; then

else

fi

#--------------------------------------------------------------------

exit 2 ;;

esac

SrcDir=`dirname $ManPage`

########################################################################

### Process Page to Create Target Pages

###

First=""

for Target in $Names; do

Target=$Target.$Section$Suffix

for i in `ls -d ~/Library/Frameworks 2>/dev/null` \

`ls -d /Library/Frameworks 2>/dev/null` \

`ls -d /Network/Library/Frameworks 2>/dev/null` \

; do

if test -f "$i/Tcl.framework/tclConfig.sh" ; then

ac_cv_c_tclconfig="`(cd $i/Tcl.framework; pwd)`"

`ls -d /usr/local/lib 2>/dev/null` \

`ls -d /usr/contrib/lib 2>/dev/null` \

`ls -d /usr/pkg/lib 2>/dev/null` \

`ls -d /usr/lib 2>/dev/null` \

`ls -d /usr/lib64 2>/dev/null` \

`ls -d /usr/local/lib/tcl8.7 2>/dev/null` \

for i in `ls -d ~/Library/Frameworks 2>/dev/null` \

`ls -d /Library/Frameworks 2>/dev/null` \

`ls -d /Network/Library/Frameworks 2>/dev/null` \

; do

if test -f "$i/Tk.framework/tkConfig.sh" ; then

ac_cv_c_tkconfig="`(cd $i/Tk.framework; pwd)`"

`ls -d /usr/local/lib 2>/dev/null` \

`ls -d /usr/contrib/lib 2>/dev/null` \

`ls -d /usr/pkg/lib 2>/dev/null` \

`ls -d /usr/lib 2>/dev/null` \

`ls -d /usr/lib64 2>/dev/null` \

`ls -d /usr/local/lib/tk8.7 2>/dev/null` \

if test "`uname -s`" = "AIX" ; then

tcl_cv_sys_version=AIX-`uname -v`.`uname -r`

fi

fi

fi

])

# this test works, since "uname -s" was non-standard in 3.2.4 and

# below.

AS_IF([test "$GCC" = yes], [

], [

])

SHLIB_LD="ld -G"

SHLIB_LD_LIBS=""

# NO_SYS_WAIT_H

# NO_DLFCN_H

# HAVE_SYS_PARAM_H

# HAVE_STRING_H ?

#

#--------------------------------------------------------------------

AC_CHECK_HEADER(sys/wait.h, , [AC_DEFINE(NO_SYS_WAIT_H, 1, [Do we have <sys/wait.h>?])])

AC_CHECK_HEADER(dlfcn.h, , [AC_DEFINE(NO_DLFCN_H, 1, [Do we have <dlfcn.h>?])])

# OS/390 lacks sys/param.h (and doesn't need it, by chance).

AC_HAVE_HEADERS(sys/param.h)

# HAVE_STRUCT_DIRENT64, HAVE_DIR64

# HAVE_STRUCT_STAT64

# HAVE_TYPE_OFF64_T

#

#--------------------------------------------------------------------

case 1: case (sizeof(]${tcl_type_64bit}[)==sizeof(long)): ;

}],tcl_cv_type_64bit=${tcl_type_64bit})])

if test "${tcl_cv_type_64bit}" = none ; then

AC_DEFINE(TCL_WIDE_INT_IS_LONG, 1, [Do 'long' and 'long long' have the same size (64-bit)?])

AC_MSG_RESULT([yes])

else

/* Defined when compiler supports casting to union type. */

#undef HAVE_CAST_TO_UNION

/* Define to 1 if you have the `chflags' function. */

#undef HAVE_CHFLAGS

you don't. */

#undef HAVE_DECL_GETHOSTBYNAME_R

/* Is 'DIR64' in <sys/types.h>? */

#undef HAVE_DIR64

/* Define to 1 if you have the `freeaddrinfo' function. */

#undef HAVE_FREEADDRINFO

/* Are characters signed? */

#undef HAVE_SIGNED_CHAR

/* Define to 1 if you have the <stdint.h> header file. */

#undef HAVE_STDINT_H

/* Define to 1 if `st_blocks' is a member of `struct stat'. */

#undef HAVE_STRUCT_STAT_ST_BLOCKS

/* Define to 1 if you have the <sys/filio.h> header file. */

#undef HAVE_SYS_FILIO_H

/* No Compiler support for module scope symbols */

#undef MODULE_SCOPE

/* Default libtommath precision. */

#undef MP_PREC

/* Use compat implementation of getaddrinfo() and friends */

#undef NEED_FAKE_RFC2553

/* Is Darwin CoreFoundation unavailable for 64-bit? */

#undef NO_COREFOUNDATION_64

/* Does this platform have wide high-resolution clicks? */

#undef TCL_WIDE_CLICKS

#undef TCL_WIDE_INT_IS_LONG

/* What type should be used to define wide integers? */

/* Should we use FIONBIO? */

#undef USE_FIONBIO

/* Should we use vfork() instead of fork()? */

#undef USE_VFORK

# endif

#endif

/* Are Darwin SUSv3 extensions available? */

#undef _DARWIN_C_SOURCE

bn_mp_init_set.${OBJEXT} \

bn_mp_init_size.${OBJEXT} \

bn_mp_init_ul.${OBJEXT} \

bn_mp_lshd.${OBJEXT} \

bn_mp_mod.${OBJEXT} \

bn_mp_mod_2d.${OBJEXT} \

install: $(INSTALL_TARGETS)

install-binaries: binaries

do \

if [ ! -d $$i ] ; then \

echo "Making directory $$i"; \

@echo "Installing package platform::shell 1.1.4 as a Tcl Module";

@$(COPY) $(ROOT_DIR)/library/platform/shell.tcl $(SCRIPT_INSTALL_DIR)/../tcl8/8.4/platform/shell-1.1.4.tm;

@echo "Installing encodings";

$(COPY) "$$i" "$(SCRIPT_INSTALL_DIR)/encoding"; \

done;

} # ac_fn_c_check_header_compile

# ac_fn_c_check_type LINENO TYPE VAR INCLUDES

# -------------------------------------------

# Tests whether TYPE exists after having included INCLUDES, setting cache

fi

# See if the compiler supports casting to a union type.

# This is used to stop gcc from printing a compiler

# warning when initializing a union member.

fi

fi

# DL_LIBS is empty, but then we match the Unix version

$(TMP_DIR)\bn_mp_init_set.obj \

$(TMP_DIR)\bn_mp_init_size.obj \

$(TMP_DIR)\bn_mp_init_ul.obj \

$(TMP_DIR)\bn_mp_lshd.obj \

$(TMP_DIR)\bn_mp_mod.obj \

$(TMP_DIR)\bn_mp_mod_2d.obj \

[Defined when cygwin/mingw ignores VOID define in winnt.h])

fi

# See if the compiler supports casting to a union type.

# This is used to stop gcc from printing a compiler

# warning when initializing a union member.

fi

fi

# DL_LIBS is empty, but then we match the Unix version

AC_SUBST(DL_LIBS)

AC_SUBST(CFLAGS_DEBUG)

#include <process.h>

#include <signal.h>

#include <limits.h>

#ifndef __GNUC__

# define strncasecmp _strnicmp