25# define TRIO_COMPILER_GCC
26#elif defined(__SUNPRO_C)
27# define TRIO_COMPILER_SUNPRO
28#elif defined(__SUNPRO_CC)
29# define TRIO_COMPILER_SUNPRO
30# define __SUNPRO_C __SUNPRO_CC
31#elif defined(__xlC__) || defined(__IBMC__) || defined(__IBMCPP__)
32# define TRIO_COMPILER_XLC
33#elif defined(_AIX) && !defined(__GNUC__)
34# define TRIO_COMPILER_XLC
35#elif defined(__DECC) || defined(__DECCXX)
36# define TRIO_COMPILER_DECC
37#elif defined(__osf__) && defined(__LANGUAGE_C__)
38# define TRIO_COMPILER_DECC
39#elif defined(_MSC_VER)
40# define TRIO_COMPILER_MSVC
41#elif defined(__BORLANDC__)
42# define TRIO_COMPILER_BCB
45#if defined(VMS) || defined(__VMS)
50# define TRIO_PLATFORM_VMS
51#elif defined(__OS400__)
52# define TRIO_PLATFORM_OS400
53#elif defined(unix) || defined(__unix) || defined(__unix__)
54# define TRIO_PLATFORM_UNIX
55#elif defined(TRIO_COMPILER_XLC) || defined(_AIX)
56# define TRIO_PLATFORM_UNIX
57#elif defined(TRIO_COMPILER_DECC) || defined(__osf___)
58# define TRIO_PLATFORM_UNIX
59#elif defined(__NetBSD__)
60# define TRIO_PLATFORM_UNIX
61#elif defined(__Lynx__)
62# define TRIO_PLATFORM_UNIX
64# define TRIO_PLATFORM_UNIX
65# define TRIO_PLATFORM_QNX
66#elif defined(__CYGWIN__)
67# define TRIO_PLATFORM_UNIX
68#elif defined(AMIGA) && defined(TRIO_COMPILER_GCC)
69# define TRIO_PLATFORM_UNIX
70#elif defined(TRIO_COMPILER_MSVC) || defined(WIN32) || defined(_WIN32)
71# define TRIO_PLATFORM_WIN32
72#elif defined(mpeix) || defined(__mpexl)
73# define TRIO_PLATFORM_MPEIX
77# define TRIO_PLATFORM_AIX
79# define TRIO_PLATFORM_HPUX
80#elif defined(sun) || defined(__sun__)
81# if defined(__SVR4) || defined(__svr4__)
82# define TRIO_PLATFORM_SOLARIS
84# define TRIO_PLATFORM_SUNOS
88#if defined(__STDC__) || defined(TRIO_COMPILER_MSVC) || defined(TRIO_COMPILER_BCB)
89# define TRIO_COMPILER_SUPPORTS_C89
90# if defined(__STDC_VERSION__)
91# define TRIO_COMPILER_SUPPORTS_C90
92# if (__STDC_VERSION__ >= 199409L)
93# define TRIO_COMPILER_SUPPORTS_C94
95# if (__STDC_VERSION__ >= 199901L)
96# define TRIO_COMPILER_SUPPORTS_C99
98# elif defined(TRIO_COMPILER_SUNPRO)
99# if (__SUNPRO_C >= 0x420)
100# define TRIO_COMPILER_SUPPORTS_C94
103#elif defined(TRIO_COMPILER_XLC) && defined(__EXTENDED__)
104# define TRIO_COMPILER_SUPPORTS_C89
105# define TRIO_COMPILER_SUPPORTS_C90
106# define TRIO_COMPILER_SUPPORTS_C94
109#if defined(_XOPEN_SOURCE)
110# if defined(_XOPEN_SOURCE_EXTENDED)
111# define TRIO_COMPILER_SUPPORTS_UNIX95
113# if (_XOPEN_VERSION >= 500)
114# define TRIO_COMPILER_SUPPORTS_UNIX98
116# if (_XOPEN_VERSION >= 600)
117# define TRIO_COMPILER_SUPPORTS_UNIX01
125#if !defined(TRIO_PUBLIC)
128#if !defined(TRIO_PRIVATE)
129# define TRIO_PRIVATE static
132#if !(defined(TRIO_COMPILER_SUPPORTS_C89) || defined(__cplusplus))
133# define TRIO_COMPILER_ANCIENT
136#if defined(TRIO_COMPILER_ANCIENT)
138# define TRIO_VOLATILE
142# define TRIO_SUFFIX_LONG(x) x
143# define TRIO_PROTO(x) ()
145# define TRIO_ARGS1(list,a1) list a1;
146# define TRIO_ARGS2(list,a1,a2) list a1; a2;
147# define TRIO_ARGS3(list,a1,a2,a3) list a1; a2; a3;
148# define TRIO_ARGS4(list,a1,a2,a3,a4) list a1; a2; a3; a4;
149# define TRIO_ARGS5(list,a1,a2,a3,a4,a5) list a1; a2; a3; a4; a5;
150# define TRIO_ARGS6(list,a1,a2,a3,a4,a5,a6) list a1; a2; a3; a4; a5; a6;
151# define TRIO_VARGS2(list,a1,a2) list a1; a2
152# define TRIO_VARGS3(list,a1,a2,a3) list a1; a2; a3
153# define TRIO_VARGS4(list,a1,a2,a3,a4) list a1; a2; a3; a4
154# define TRIO_VARGS5(list,a1,a2,a3,a4,a5) list a1; a2; a3; a4; a5
155# define TRIO_VA_DECL va_dcl
156# define TRIO_VA_START(x,y) va_start(x)
157# define TRIO_VA_END(x) va_end(x)
159# define TRIO_CONST const
160# define TRIO_VOLATILE volatile
161# define TRIO_SIGNED signed
164# define TRIO_SUFFIX_LONG(x) x ## L
165# define TRIO_PROTO(x) x
166# define TRIO_NOARGS void
167# define TRIO_ARGS1(list,a1) (a1)
168# define TRIO_ARGS2(list,a1,a2) (a1,a2)
169# define TRIO_ARGS3(list,a1,a2,a3) (a1,a2,a3)
170# define TRIO_ARGS4(list,a1,a2,a3,a4) (a1,a2,a3,a4)
171# define TRIO_ARGS5(list,a1,a2,a3,a4,a5) (a1,a2,a3,a4,a5)
172# define TRIO_ARGS6(list,a1,a2,a3,a4,a5,a6) (a1,a2,a3,a4,a5,a6)
173# define TRIO_VARGS2 TRIO_ARGS2
174# define TRIO_VARGS3 TRIO_ARGS3
175# define TRIO_VARGS4 TRIO_ARGS4
176# define TRIO_VARGS5 TRIO_ARGS5
177# define TRIO_VA_DECL ...
178# define TRIO_VA_START(x,y) va_start(x,y)
179# define TRIO_VA_END(x) va_end(x)
182#if defined(TRIO_COMPILER_SUPPORTS_C99) || defined(__cplusplus)
183# define TRIO_INLINE inline
184#elif defined(TRIO_COMPILER_GCC)
185# define TRIO_INLINE __inline__
186#elif defined(TRIO_COMPILER_MSVC)
187# define TRIO_INLINE _inline
188#elif defined(TRIO_COMPILER_BCB)
189# define TRIO_INLINE __inline
198#if defined(TRIO_PLATFORM_VMS)
203# pragma message disable (UNDERFLOW, FLOATOVERFL)
205# if (__CRTL_VER < 80000000)
214# if defined(TRIO_COMPILER_SUPPORTS_C99)
215# undef TRIO_COMPILER_SUPPORTS_C99
223#if defined(TRIO_COMPILER_BCB)
225# define TRIO_COMPILER_SUPPORTS_LL
double trio_long_double_t