/home66/gary/public_html/cloudy/c08_branch/source/cpu.h

Go to the documentation of this file.

/* This file is part of Cloudy and is copyright (C)1978-2008 by Gary J. Ferland and
 * others.  For conditions of distribution and use see copyright notice in license.txt */

#ifndef _CPU_H_
#define _CPU_H_

/* disable conditional expressions is constant */
#ifdef _MSC_VER
#pragma warning( disable : 4127 )
#endif

#ifndef INT16_MAX
#define INT16_MAX 32767
#endif
#ifndef INT16_MIN
#define INT16_MIN (-INT16_MAX - 1)
#endif

#if INT_MAX == INT16_MAX
typedef int int16;
#elif SHRT_MAX == INT16_MAX
typedef short int int16;
#else
#error failed to define int16, please report this to gary@pa.uky.edu
#endif

#ifndef UINT16_MAX
#define UINT16_MAX 65535
#endif

#if UINT_MAX == UINT16_MAX
typedef unsigned int uint16;
#elif USHRT_MAX == UINT16_MAX
typedef unsigned short int uint16;
#else
#error failed to define uint16, please report this to gary@pa.uky.edu
#endif

#ifndef INT32_MAX
#define INT32_MAX 2147483647L
#endif
#ifndef INT32_MIN
#define INT32_MIN (-INT32_MAX - 1)
#endif

#if LONG_MAX == INT32_MAX
typedef long int int32;
#elif INT_MAX == INT32_MAX
typedef int int32;
#else
#error failed to define int32, please report this to gary@pa.uky.edu
#endif

#ifndef UINT32_MAX
#define UINT32_MAX 4294967295UL
#endif

#if ULONG_MAX == UINT32_MAX
typedef unsigned long int uint32;
#elif UINT_MAX == UINT32_MAX
typedef unsigned int uint32;
#else
#error failed to define uint32, please report this to gary@pa.uky.edu
#endif

#if LONG_MAX > INT32_MAX

/* this will only be defined on LP64 systems
 * ILP32 systems may have long long support, but that is not
 * part of the ISO/ANSI standard, so we don't use it here... */

/* INT64_MAX, etc, may be defined as long long, so avoid system definitions! */

#undef INT64_MAX
#define INT64_MAX 9223372036854775807L

#undef INT64_MIN
#define INT64_MIN (-INT64_MAX - 1L)

#if LONG_MAX == INT64_MAX
#define HAVE_INT64 1
typedef long int int64;
#endif

#endif

#if ULONG_MAX > UINT32_MAX

#undef UINT64_MAX
#define UINT64_MAX 18446744073709551615UL

#if ULONG_MAX == UINT64_MAX
#define HAVE_UINT64 1
typedef unsigned long int uint64;
#endif

#endif

/* make sure __func__ is defined, this can be removed once C++0x is in effect */
#ifdef __GNUC__
#if __STDC_VERSION__ < 199901L
#if __GNUC__ >= 2
#define __func__ __FUNCTION__
#else
#define __func__ "<unknown>"
#endif
#endif
#else
#undef __func__
#define __func__ DEBUG_ENTRY.name()
#endif

/* safe, small, numbers for the float and double */
/*FLT_MAX is 3.40e38 on wintel, so BIGFLOAT is 3.40e36 */
const realnum BIGFLOAT = (realnum)(FLT_MAX/100.f);
const realnum SMALLFLOAT = (realnum)(FLT_MIN*100.f);

const double BIGDOUBLE = DBL_MAX/100.;
const double SMALLDOUBLE = DBL_MIN*100.;

const int STDLEN = 16;

typedef enum { AS_DATA_ONLY_TRY, AS_DATA_LOCAL_TRY, AS_LOCAL_DATA_TRY, AS_LOCAL_ONLY_TRY,
               AS_DATA_ONLY, AS_DATA_OPTIONAL, AS_DATA_LOCAL, AS_LOCAL_DATA, AS_LOCAL_ONLY } access_scheme;

FILE* open_data( const char* fname, const char* mode, access_scheme scheme=AS_DATA_ONLY );

/* this class is deliberately kept global so that the constructor is executed before
 * any of the user code; this assures a correct FP environment right from the start */
EXTERN class t_cpu 
{
        union
        {
                char c[4];
                int32 i;
        } endian;

        int32 Float_SNaN_Value;
#       ifdef HAVE_INT64
        int64 Double_SNaN_Value;
#       else
        int32 Double_SNaN_Value[2];
#       endif

#       ifdef __unix
        struct sigaction p_action;
        struct sigaction p_default;
#       endif

        bool p_lgAssertAbort;

        long n_avail_CPU;
        char HostName[STDLEN];
        vector<string> chSearchPath;
        int nFileDone;

        void enable_traps() const;
        static void signal_handler(int sig);
public:
        t_cpu();

        bool big_endian() const { return ( endian.i == 0x12345678 ); }
        bool little_endian() const { return ( endian.i == 0x78563412 ); }

#       ifdef __unix
        const struct sigaction* action() const { return &p_action; }
        const struct sigaction* deflt() const { return &p_default; }
#       endif

        void setAssertAbort(bool val)
        {
                p_lgAssertAbort = val;
#ifdef CATCH_SIGNAL
#               ifdef __unix
                if( val )
                        sigaction( SIGABRT, deflt(), NULL );
                else
                        sigaction( SIGABRT, action(), NULL );
#               endif
#               ifdef _MSC_VER
                if( val )
                        signal( SIGABRT, SIG_DFL );
                else
                        signal( SIGABRT, &signal_handler );
#               endif
#endif
        }
        bool lgAssertAbort() const { return p_lgAssertAbort; }

        long nCPU() const { return n_avail_CPU; }
        const char *host_name() const { return HostName; }
        void printDataPath() const;

        friend FILE* open_data( const char* fname, const char* mode, access_scheme scheme );

        friend void set_NaN(sys_float &x);
        friend void set_NaN(sys_float x[], long n);
        friend void set_NaN(double &x);
        friend void set_NaN(double x[], long n);
} cpu;

void set_NaN(sys_float &x);
void set_NaN(sys_float x[], /* x[n] */
             long n);
void set_NaN(double &x);
void set_NaN(double x[], /* x[n] */
             long n);

bool MyIsnan(sys_float &x);
bool MyIsnan(double &x);

#ifdef cray
#ifndef __cray
#define __cray 1
#endif
#endif

#ifdef __x86_64
#ifndef __amd64
#define __amd64 1
#endif
#endif

#if defined(_ARCH_PPC) || defined(__POWERPC__) || defined(__powerpc__) || defined(PPC)
#ifndef __ppc__
#define __ppc__ 1
#endif
#endif

#if defined(unix) || defined(__unix__)
#ifndef __unix
#define __unix 1
#endif
#endif

#ifdef __ECC
#ifndef __ICC
#define __ICC __ECC
#endif
#endif

#undef __GNUC_EXCL__
#if defined(__GNUC__) && ! ( defined(__ICC) || defined(__PATHSCALE__) )
#define __GNUC_EXCL__ 1
#endif

/* Apply compiler directive saying that current routine does not
         return as modifier, as in "NORETURN void MyExit() { ... }"  */
#ifdef _MSC_VER
#define NORETURN __declspec(noreturn) /*@noreturn@*/
#elif defined(__GNUC__) || ( defined(__INTEL_COMPILER) && defined(__linux) )
#define NORETURN  __attribute__ ((noreturn)) /*@noreturn@*/
#else
#define NORETURN /*@noreturn@*/
#endif

/* Define __COMP and __COMP_VER macros for all systems */
/* the Intel compiler */
/* this needs to be before g++ since icc also sets __GNUC__ */
#if defined __INTEL_COMPILER
#       define  __COMP  "icc"
#       define  __COMP_VER      __INTEL_COMPILER 

/* PathScale EKOPath compiler */
/* this needs to be before g++ since pathCC also sets __GNUC__ */
#elif defined __PATHSCALE__
#       define  __COMP  "pathCC"
#       define  __COMP_VER      __PATHCC__ * 100 + __PATHCC_MINOR__ * 10 + __PATHCC_PATCHLEVEL__

/* g++ */
#elif defined __GNUC__
#       define  __COMP  "g++"
#       if defined(__GNUC_PATCHLEVEL__)
#               define __COMP_VER (__GNUC__ * 10000 + __GNUC_MINOR__ * 100 + __GNUC_PATCHLEVEL__)
#       else
#               define __COMP_VER (__GNUC__ * 10000 + __GNUC_MINOR__ * 100)
#       endif

#elif defined __PGI
#       define  __COMP  "Portland Group Compiler"
/* this works under pgcc, but not pgCC; there doesn't seem to be an alternative... */
#       if defined(__PGIC__)
#               define __COMP_VER (__PGIC__ * 100 + __PGIC_MINOR__ * 10 + __PGIC_PATCHLEVEL__)
#       else
#               define __COMP_VER 0
#       endif

/* SGI MIPSpro */
/* this needs to be after g++, since g++ under IRIX also sets _COMPILER_VERSION */
#elif defined(__sgi) && defined(_COMPILER_VERSION)
#       define  __COMP  "MIPSpro"
#       define  __COMP_VER      _COMPILER_VERSION

/* HP */
#elif defined __HP_aCC 
#       define  __COMP  "HP aCC"
#       define  __COMP_VER      __HP_aCC  

/* DEC - this one may be broken for C++, no way to test it... */
#elif defined __DECC 
#       define  __COMP  "DEC CC"
#       define  __COMP_VER      __DECC_VER   

/* MS VS */
#elif defined   _MSC_VER
#       define  __COMP  "vs"
#       define  __COMP_VER      _MSC_VER  

/* Sun */
#elif defined   __SUNPRO_CC
#       define  __COMP  "Sun Workshop"
#       define  __COMP_VER      __SUNPRO_CC

/* unknown */
#else
#define __COMP  "unknown"
#define __COMP_VER      0 
#endif

/* ----------------------------  OS ---------------------------- */
/* linux */
#if defined     __linux
#       if defined __i386
#               define  __OS    "Linux (IA32)"
#       elif defined __amd64
#               define  __OS    "Linux (AMD64)"
#       elif defined __ia64
#               define  __OS    "Linux (IA64)"
#       elif defined __ppc__
#               define  __OS    "Linux (PowerPC)"
#       else
#               define  __OS    "Linux (other)"
#       endif

/* macintosh */
#elif defined   macintosh
#       define  __OS    "Mac OS 9"

/* macintosh */
#elif defined   __MACOSX__
#       define  __OS    "Mac OS X"

/* apple mac, ... */
#elif defined   __APPLE__
#       define  __OS    "Apple MacOS"

/* HP */
#elif defined   hpux
#       define  __OS    "HP-UX"

/* Sun */
#elif defined   __sun
#       define  __OS    "Solaris"

/* IBM AIX */
#elif defined   _AIX
#       define  __OS    "AIX"

/* Compaq alpha */
#elif defined   ultrix
#       define  __OS    "Ultrix"

/* the BSD variants */
#elif defined   __FreeBSD__
#       define  __OS    "FreeBSD"

#elif defined   __NetBSD__
#       define  __OS    "NetBSD"

#elif defined   __OpenBSD__
#       define  __OS    "OpenBSD"

/* Windows64 */
/* this needs to be before _WIN32 since Windows64 also sets _WIN32 */
#elif defined   _WIN64
#       define  __OS    "Win64"

/* Windows */
#elif defined   _WIN32
#       define  __OS    "Win32"

/* Cygwin */
#elif defined   __CYGWIN__
#       define  __OS    "Cygwin"

/* SGI */
#elif defined   __sgi
#       define  __OS    "IRIX"

/* unknown */
#else
#       define  __OS    "unknown"
#endif

#if !defined(HAVE_POWI)
#if defined(__alpha) && !defined(__linux)
#define HAVE_POWI 1
#else
#define HAVE_POWI 0
#endif
#endif

/* don't perform this check when we are generating dependencies */
#ifndef MM
/* bomb out if the compiler is broken.... */
#if defined(__GNUC_EXCL__) && ((__GNUC__ == 2 && __GNUC_MINOR__ == 96) || (__GNUC__ == 3 && __GNUC_MINOR__ == 4))
#error "This g++ version cannot compile Cloudy and must not be used!"
#error "Please update g++ to a functional version."
#error "See http://cloud9.pa.uky.edu/trac/cloudy/wiki/CompilingCloudy for more details"
#endif
#endif

#ifdef _MSC_VER
#pragma warning( default : 4127 )/* disable warning that conditional expression is constant*/
#endif

#endif /* _CPU_H_ */

---