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