ArccoreGlobal.h

// -*- tab-width: 2; indent-tabs-mode: nil; coding: utf-8-with-signature -*-
//-----------------------------------------------------------------------------
// Copyright 2000-2025 CEA (www.cea.fr) IFPEN (www.ifpenergiesnouvelles.com)
// See the top-level COPYRIGHT file for details.
// SPDX-License-Identifier: Apache-2.0
//-----------------------------------------------------------------------------
/*---------------------------------------------------------------------------*/
/* ArccoreGlobal.h                                             (C) 2000-2025 */
/*                                                                           */
/* Déclarations générales de Arccore.                                        */
/*---------------------------------------------------------------------------*/
#ifndef ARCCORE_BASE_ARCCOREGLOBAL_H
#define ARCCORE_BASE_ARCCOREGLOBAL_H
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
#include <cstdint>
 
#include "arccore/arccore_config.h"
 
#ifdef ARCCORE_VALID_TARGET
#  undef ARCCORE_VALID_TARGET
#endif
 
// Determine le type de l'os.
#if defined(__linux)
#  define ARCCORE_OS_LINUX
#elif defined(__APPLE__) && defined(__MACH__)
#  define ARCCORE_OS_MACOS
#elif defined(_AIX)
#  define ARCCORE_OS_AIX
#elif defined(__WIN32__) || defined(__NT__) || defined(WIN32) || defined(_WIN32) || defined(WIN32) || defined(_WINDOWS)
#  define ARCCORE_OS_WIN32
#elif defined(__CYGWIN__)
#  define ARCCORE_OS_CYGWIN
#endif
 
#ifdef ARCCORE_OS_WIN32
#  define ARCCORE_VALID_TARGET
#  define ARCCORE_EXPORT     __declspec(dllexport)
#  define ARCCORE_IMPORT     __declspec(dllimport)
 
/* Supprime certains avertissements du compilateur Microsoft */
#  ifdef _MSC_VER
#    pragma warning(disable: 4251) // class 'A' needs to have dll interface for to be used by clients of class 'B'.
#    pragma warning(disable: 4275) // non - DLL-interface classkey 'identifier' used as base for DLL-interface classkey 'identifier'
#    pragma warning(disable: 4800) // 'type' : forcing value to bool 'true' or 'false' (performance warning)
#    pragma warning(disable: 4355) // 'this' : used in base member initializer list
#  endif
 
#endif
 
// Sous Unix, indique que par défaut les symboles de chaque .so sont cachés.
// Il faut alors explicitement marquer les
// symboles qu'on souhaite exporter, comme sous windows.
// La seule différence est que pour gcc avec les instantiations explicites
// de template, il faut spécifier l'export lors de l'instantiation
// explicite alors que sous windows c'est dans la classe.
#ifndef ARCCORE_OS_WIN32
#  define ARCCORE_EXPORT __attribute__ ((visibility("default")))
#  define ARCCORE_IMPORT __attribute__ ((visibility("default")))
#  define ARCCORE_TEMPLATE_EXPORT ARCCORE_EXPORT
#endif
 
#ifdef ARCCORE_OS_CYGWIN
#  define ARCCORE_VALID_TARGET
#endif
 
#ifdef ARCCORE_OS_LINUX
#  define ARCCORE_VALID_TARGET
#endif
 
#ifdef ARCCORE_OS_MACOS
#  define ARCCORE_VALID_TARGET
#endif
 
#ifndef ARCCORE_VALID_TARGET
#error "This target is not supported"
#endif
 
#ifndef ARCCORE_EXPORT
#define ARCCORE_EXPORT
#endif
 
#ifndef ARCCORE_IMPORT
#define ARCCORE_IMPORT
#endif
 
#ifndef ARCCORE_TEMPLATE_EXPORT
#define ARCCORE_TEMPLATE_EXPORT
#endif
 
#ifndef ARCCORE_RESTRICT
#define ARCCORE_RESTRICT
#endif
 
#define ARCCORE_STD std
 
//Tag var as a voluntary unused variable.
//Works with any compiler but might be improved by using attribute.
#define ARCCORE_UNUSED(var) do { (void)(var) ; } while(false)
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
#ifdef DOXYGEN_DOC
typedef ARCCORE_TYPE_INT16 Int16;
typedef ARCCORE_TYPE_INT32 Int32;
typedef ARCCORE_TYPE_INT64 Int64;
#endif
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
/*
 * Macros pour le support de la programmation hétérogène (CPU/GPU)
 - ARCCORE_DEVICE_CODE: indique une partie de code compilée uniquement sur le device
 - ARCCORE_HOST_DEVICE: indique que la méthode/variable est accessible à la fois
   sur le device et l'hôte
 - ARCCORE_DEVICE: indique que la méthode/variable est accessible uniquement sur
   le device.
*/
 
#if defined(__SYCL_DEVICE_ONLY__)
#  define ARCCORE_DEVICE_CODE
#  define ARCCORE_DEVICE_TARGET_SYCL
#elif defined(__CUDA_ARCH__) || defined(__HIP_DEVICE_COMPILE__)
#  define ARCCORE_DEVICE_CODE
#  if defined(__HIP_DEVICE_COMPILE__)
#    define ARCCORE_DEVICE_TARGET_HIP
#  endif
#  if defined(__CUDA_ARCH__)
#    define ARCCORE_DEVICE_TARGET_CUDA
// Nécessaire pour assert() par exemple dans arccoreCheckAt()
// TODO: regarder si cela est aussi nécessaire pour AMD HIP.
#include <cassert>
#  endif
#endif
 
#if defined(__CUDACC__) || defined(__HIP__)
#define ARCCORE_HOST_DEVICE __host__ __device__
#define ARCCORE_DEVICE __device__
#endif
 
 
#ifndef ARCCORE_HOST_DEVICE
#define ARCCORE_HOST_DEVICE
#endif
 
#ifndef ARCCORE_DEVICE
#define ARCCORE_DEVICE
#endif
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
#if defined(ARCCORE_COMPONENT_arccore_base)
#define ARCCORE_BASE_EXPORT ARCCORE_EXPORT
#define ARCCORE_BASE_EXTERN_TPL
#else
#define ARCCORE_BASE_EXPORT ARCCORE_IMPORT
#define ARCCORE_BASE_EXTERN_TPL extern
#endif
 
#ifdef ARCCORE_REAL_USE_APFLOAT
#  include <apfloat.h>
#endif
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
namespace Arcane
{
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
/*
 * Définition des types Arccore Int16, Int32 et Int64.
 */
using Int8 = std::int8_t;
using Int16 = std::int16_t;
using Int32 = std::int32_t;
using Int64 = std::int64_t;
using UInt32 = std::uint32_t;
using UInt64 = std::uint64_t;
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
using Pointer = void*;
 
#ifdef ARCCORE_REAL_USE_APFLOAT
#  define ARCCORE_REAL(val) (Real(#val,1000))
#  define ARCCORE_REAL_NOT_BUILTIN
using Real = apfloat;
using APReal = apfloat;
#else
#  ifdef ARCCORE_REAL_LONG
#    define ARCCORE_REAL(val) val##L
using long double Real;
#  else
#    define ARCCORE_REAL(val) val
#    define ARCCORE_REAL_IS_DOUBLE
using Real = double;
#  endif
class APReal
{
 public:
  Real v[4];
};
#endif
 
#ifdef ARCCORE_64BIT
#  define ARCCORE_INTEGER_MAX ARCCORE_INT64_MAX
using Short = Int32;
using Integer = Int64;
#else
#  define ARCCORE_INTEGER_MAX ARCCORE_INT32_MAX
using Short = Int32;
using Integer = Int32;
#endif

 

 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/

class BFloat16;

class Float16;

using Float32 = float;

class Float128;

class Int128;
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/

struct TrueType  {};
struct FalseType {};
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
#ifdef __GNUG__
#  define ARCCORE_DEPRECATED __attribute__ ((deprecated))
#endif
 
#ifdef _MSC_VER
#  if _MSC_VER >= 1300
#    define ARCCORE_DEPRECATED __declspec(deprecated)
#  endif
#endif
 
#define ARCCORE_DEPRECATED_2017 ARCCORE_DEPRECATED
#define ARCCORE_DEPRECATED_2018 ARCCORE_DEPRECATED
#define ARCCORE_DEPRECATED_2019(reason) [[deprecated(reason)]]
#define ARCCORE_DEPRECATED_2020(reason) [[deprecated(reason)]]
#define ARCCORE_DEPRECATED_REASON(reason) [[deprecated(reason)]]
 
// Définir cette macro si on souhaite supprimer de la compilation les
// méthodes et types obsolètes.
#define ARCCORE_NO_DEPRECATED
 
#ifndef ARCCORE_DEPRECATED
#  define ARCCORE_DEPRECATED
#endif
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
// Macros de compatibilités avec les différents standards du C++.
// Maintenant (en 2021) tous les compilateurs avec lesquels Arccore compile
// ont le support du C++17 donc la plupart de ces macros ne sont plus utiles.
// On les garde uniquement pour compatibilité avec le code existant.
 
// La macro ARCCORE_NORETURN utilise l'attribut [[noreturn]] du C++11 pour
// indiquer qu'une fonction ne retourne pas.
#define ARCCORE_NORETURN [[noreturn]]

#define ARCCORE_CONSTEXPR constexpr
 
// Macro pour indiquer qu'on ne lance pas d'exceptions.
#define ARCCORE_NOEXCEPT noexcept
 
// Macros pour indiquer qu'on lance pas d'exceptions.
#define ARCCORE_NOEXCEPT_FALSE noexcept(false)
 
// Support pour operator[](a,b,...)
#ifdef __cpp_multidimensional_subscript
#define ARCCORE_HAS_MULTI_SUBSCRIPT
#endif
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
// Support pour l'alignement.
// le C++11 utilise le mot clé alignas pour spécifier l'alignement.
// Cela fonctionne avec GCC 4.9+ et Visual Studio 2015. Cela ne fonctionne
// pas avec Visual Studio 2013. Donc pour Visual Studio on utilise dans tous
// les cas __declspec qui fonctionne toujours. Sous Linux, __attribute__ fonctionne
// aussi toujours donc on utilise cela. A noter que les structures Simd ont besoin
// de l'attribut 'packed' qui n'existe que avec GCC et Intel. Il ne semble pas y avoir
// d'équivalent avec MSVC.
#ifdef _MSC_VER
#  define ARCCORE_ALIGNAS(value) __declspec(align(value))
#  define ARCCORE_ALIGNAS_PACKED(value) __declspec(align(value))
#else
#  define ARCCORE_ALIGNAS_PACKED(value) __attribute__ ((aligned (value),packed))
#  define ARCCORE_ALIGNAS(value) __attribute__ ((aligned (value)))
#endif
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
#if defined(ARCCORE_CHECK) || defined(ARCCORE_DEBUG)
#  ifndef ARCCORE_DEBUG_ASSERT
#    define ARCCORE_DEBUG_ASSERT
#  endif
#endif
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
extern "C++" ARCCORE_BASE_EXPORT 
bool arccoreIsCheck();

extern "C++" ARCCORE_BASE_EXPORT 
void arccoreSetCheck(bool v);

extern "C++" ARCCORE_BASE_EXPORT
bool arccoreIsDebug();
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/

extern "C++" ARCCORE_BASE_EXPORT void
arccorePrintf(const char*,...);
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
extern "C++" ARCCORE_BASE_EXPORT void
arccoreDebugPause(const char* msg);
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
extern "C++" ARCCORE_BASE_EXPORT void
arccoreSetPauseOnError(bool v);
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
#define ARCCORE_THROW(exception_class,...)                           \
  throw exception_class (A_FUNCINFO,Arccore::String::format(__VA_ARGS__))
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
#define ARCCORE_FATAL(...)\
  throw Arccore::FatalErrorException(A_FUNCINFO,Arccore::String::format(__VA_ARGS__))
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
extern "C++" ARCCORE_BASE_EXPORT void
arccoreNullPointerError ARCCORE_NORETURN ();
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
extern "C++" ARCCORE_BASE_EXPORT void
arccoreRangeError ARCCORE_NORETURN (Int64 i,Int64 min_value_inclusive,
                                    Int64 max_value_exclusive);
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
extern "C++" ARCCORE_BASE_EXPORT void
arccoreRangeError ARCCORE_NORETURN (Int64 i,Int64 max_size);
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
inline ARCCORE_HOST_DEVICE void
arccoreCheckRange(Int64 i,Int64 min_value_inclusive,Int64 max_value_exclusive)
{
  if (i>=min_value_inclusive && i<max_value_exclusive)
    return;
#ifndef ARCCORE_DEVICE_CODE
  arccoreRangeError(i,min_value_inclusive,max_value_exclusive);
#elif defined(ARCCORE_DEVICE_TARGET_CUDA)
  // Code pour le device.
  // assert() est disponible pour CUDA.
  // TODO: regarder si une fonction similaire existe pour HIP
  assert(false);
#endif
}
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
inline ARCCORE_HOST_DEVICE void
arccoreCheckAt(Int64 i,Int64 max_size)
{
  arccoreCheckRange(i,0,max_size);
}
 
#if defined(ARCCORE_CHECK) || defined(ARCCORE_DEBUG)
#define ARCCORE_CHECK_AT(a,b) ::Arccore::arccoreCheckAt((a),(b))
#define ARCCORE_CHECK_RANGE(a,b,c) ::Arccore::arccoreCheckRange((a),(b),(c))
#else
#define ARCCORE_CHECK_AT(a,b)
#define ARCCORE_CHECK_RANGE(a,b,c)
#endif
 
#define ARCCORE_CHECK_AT2(a0,a1,b0,b1) \
  ARCCORE_CHECK_AT(a0,b0); ARCCORE_CHECK_AT(a1,b1)
#define ARCCORE_CHECK_AT3(a0,a1,a2,b0,b1,b2) \
  ARCCORE_CHECK_AT(a0,b0); ARCCORE_CHECK_AT(a1,b1); ARCCORE_CHECK_AT(a2,b2)
#define ARCCORE_CHECK_AT4(a0,a1,a2,a3,b0,b1,b2,b3) \
  ARCCORE_CHECK_AT(a0,b0); ARCCORE_CHECK_AT(a1,b1); ARCCORE_CHECK_AT(a2,b2); ARCCORE_CHECK_AT(a3,b3)
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
#define ARCCORE_CAST_SMALL_SIZE(a) ((Integer)(a))
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
/*
 * Macros utilisées pour le débug.
 */
#ifdef ARCCORE_DEBUG_ASSERT
extern "C++" ARCCORE_BASE_EXPORT void _doAssert(const char*,const char*,const char*,int);
template<typename T> inline T*
_checkPointer(T* t,const char* file,const char* func,int line)
{
  if (!t){
    _doAssert("ARCCORE_ASSERT",file,func,line);
    arccorePrintf("Bad Pointer");
  }
  return t;
}
#  ifdef __GNUG__
#define ARCCORE_D_WHERE(a) ::Arcane::_doAssert(a, __FILE__, __PRETTY_FUNCTION__, __LINE__)
#define ARCCORE_DCHECK_POINTER(a) ::Arcane::_checkPointer((a), __FILE__, __PRETTY_FUNCTION__, __LINE__);
#  else
#    define ARCCORE_D_WHERE(a)  Arccore::_doAssert(a,__FILE__,"(NoInfo)",__LINE__)
#    define ARCCORE_DCHECK_POINTER(a) Arccore::_checkPointer((a),__FILE__,"(NoInfo"),__LINE__);
#  endif
#  define ARCCORE_CHECK_PTR(a) \
  { \
    if (!(a)) { \
      ::Arcane::arccorePrintf("Null value"); \
      ARCCORE_D_WHERE("ARCCORE_ASSERT"); \
    } \
  }
 
#  define ARCCORE_ASSERT(a,b) \
  { \
    if (!(a)) { \
      ::Arcane::arccorePrintf("Assertion '%s' fails:", #a); \
      ::Arcane::arccorePrintf b; \
      ARCCORE_D_WHERE("ARCCORE_ASSERT"); \
    } \
  }
#  define ARCCORE_WARNING(a) \
  { \
    ::Arcane::arccorePrintf a; \
    ARCCORE_D_WHERE("ARCCORE_WARNING"); \
  }
#else
#  define ARCCORE_CHECK_PTR(a)
#  define ARCCORE_ASSERT(a,b)
#  define ARCCORE_WARNING(a)
#  define ARCCORE_DCHECK_POINTER(a) (a);
#endif
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
extern "C++" ARCCORE_BASE_EXPORT void
arccoreThrowNullPointerError [[noreturn]] (const char* ptr_name,const char* text);
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
inline void*
arccoreThrowIfNull(void* ptr,const char* ptr_name,const char* text)
{
  if (!ptr)
    arccoreThrowNullPointerError(ptr_name,text);
  return ptr;
}
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
#define ARCCORE_CHECK_POINTER(ptr) \
  arccoreThrowIfNull(ptr,#ptr,nullptr)

#define ARCCORE_CHECK_POINTER2(ptr,text)\
  arccoreThrowIfNull(ptr,#ptr,text)
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
// Défitions des types de base.
class String;
class StringView;
class StringFormatterArg;
class StringBuilder;
// Pas dans cette composante mais comme cette interface on la met ici
// pour compatibilité avec l'existant
class ITraceMng;
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
} // End namespace Arcane
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
namespace Arccore
{
using Arcane::ITraceMng;
using Arcane::String;
using Arcane::StringBuilder;
using Arcane::StringFormatterArg;
using Arcane::StringView;
using Arcane::UInt32;
using Arcane::UInt64;
 
using Arcane::APReal;
using Arcane::Integer;
using Arcane::Pointer;
using Arcane::Real;
using Arcane::Short;

using BFloat16 = Arcane::BFloat16;

using Float16 = Arcane::Float16;

using Float32 = float;

using Int8 = Arcane::Int8;

using Float128 = Arcane::Float128;

using Int128 = Arcane::Int128;
using Int16 = Arcane::Int16;
using Int32 = Arcane::Int32;
using Int64 = Arcane::Int64;
 
using Arcane::arccoreCheckAt;
using Arcane::arccoreCheckRange;
using Arcane::arccoreDebugPause;
using Arcane::arccoreIsCheck;
using Arcane::arccoreIsDebug;
using Arcane::arccoreNullPointerError;
using Arcane::arccorePrintf;
using Arcane::arccoreRangeError;
using Arcane::arccoreSetCheck;
using Arcane::arccoreSetPauseOnError;
using Arcane::arccoreThrowIfNull;
using Arcane::arccoreThrowNullPointerError;
 
using Arcane::FalseType;
using Arcane::TrueType;
}
 
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
#endif