Mercurial > repos > rliterman > csp2
annotate CSP2/CSP2_env/env-d9b9114564458d9d-741b3de822f2aaca6c6caa4325c4afce/include/tclPort.h @ 69:33d812a61356
planemo upload commit 2e9511a184a1ca667c7be0c6321a36dc4e3d116d
| author | jpayne |
|---|---|
| date | Tue, 18 Mar 2025 17:55:14 -0400 |
| parents | |
| children |
| rev | line source |
|---|---|
| jpayne@69 | 1 /* |
| jpayne@69 | 2 * tclPort.h -- |
| jpayne@69 | 3 * |
| jpayne@69 | 4 * This header file handles porting issues that occur because |
| jpayne@69 | 5 * of differences between systems. It reads in platform specific |
| jpayne@69 | 6 * portability files. |
| jpayne@69 | 7 * |
| jpayne@69 | 8 * Copyright (c) 1994-1995 Sun Microsystems, Inc. |
| jpayne@69 | 9 * |
| jpayne@69 | 10 * See the file "license.terms" for information on usage and redistribution |
| jpayne@69 | 11 * of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
| jpayne@69 | 12 */ |
| jpayne@69 | 13 |
| jpayne@69 | 14 #ifndef _TCLPORT |
| jpayne@69 | 15 #define _TCLPORT |
| jpayne@69 | 16 |
| jpayne@69 | 17 #ifdef HAVE_TCL_CONFIG_H |
| jpayne@69 | 18 #include "tclConfig.h" |
| jpayne@69 | 19 #endif |
| jpayne@69 | 20 #if defined(_WIN32) |
| jpayne@69 | 21 # include "tclWinPort.h" |
| jpayne@69 | 22 #else |
| jpayne@69 | 23 # include "tclUnixPort.h" |
| jpayne@69 | 24 #endif |
| jpayne@69 | 25 #include "tcl.h" |
| jpayne@69 | 26 |
| jpayne@69 | 27 #if !defined(LLONG_MIN) |
| jpayne@69 | 28 # ifdef TCL_WIDE_INT_IS_LONG |
| jpayne@69 | 29 # define LLONG_MIN LONG_MIN |
| jpayne@69 | 30 # else |
| jpayne@69 | 31 # ifdef LLONG_BIT |
| jpayne@69 | 32 # define LLONG_MIN ((Tcl_WideInt)(Tcl_LongAsWide(1)<<(LLONG_BIT-1))) |
| jpayne@69 | 33 # else |
| jpayne@69 | 34 /* Assume we're on a system with a 64-bit 'long long' type */ |
| jpayne@69 | 35 # define LLONG_MIN ((Tcl_WideInt)(Tcl_LongAsWide(1)<<63)) |
| jpayne@69 | 36 # endif |
| jpayne@69 | 37 # endif |
| jpayne@69 | 38 /* Assume that if LLONG_MIN is undefined, then so is LLONG_MAX */ |
| jpayne@69 | 39 # define LLONG_MAX (~LLONG_MIN) |
| jpayne@69 | 40 #endif |
| jpayne@69 | 41 |
| jpayne@69 | 42 #define UWIDE_MAX ((Tcl_WideUInt)-1) |
| jpayne@69 | 43 #define WIDE_MAX ((Tcl_WideInt)(UWIDE_MAX >> 1)) |
| jpayne@69 | 44 #define WIDE_MIN ((Tcl_WideInt)((Tcl_WideUInt)WIDE_MAX+1)) |
| jpayne@69 | 45 |
| jpayne@69 | 46 #endif /* _TCLPORT */ |