CompilerCharacteristics.h

Go to the documentation of this file.

#ifndef _CompilerCharacteristics_h_
#define _CompilerCharacteristics_h_

#include "F90ArrayDataType.h"

#ifdef __cplusplus
extern "C" {
#endif


typedef enum
{
  F90_Array,                
  F90_Pointer,              
  F90_ArrayPointer,        
  F90_ArrayPointerInDerived,
  F90_DerivedPointer,       
  F90_NonArray              
} F90_DescType;


typedef enum
{
  F90_Hidden,                
  F90_NoHidden,              
  F90_PointerWithHiddenDesc  
} F90_HiddenDescType;


typedef struct
{
  int (*setArrayDesc) (void* desc,
                       void* base_addr,
                       int rank,
                       F90_DescType kind,
                       F90_ArrayDataType data_type,
                       unsigned long element_size,
                       const long* lowerBound,
                       const unsigned long* extent,
                       const long* strideMult
                       );

  int (*resetArrayDesc) (void* desc,
                         void* base_addr,
                         int rank,
                         const long* lowerBound,
                         const unsigned long* extent,
                         const long* strideMult
                         );

  void* (*createArrayDesc) (void* desc,
                            void* hidden,
                            int rank,
                            F90_DescType kind
                            );

  int (*createArrayDescAndHidden) (void* src,
                                   int rank,
                                   F90_DescType kind,
                                   void** desc,
                                   void** hidden
                                   );
  int (*freeArrayDescAndHidden) (F90_DescType kind, void* desc, void* hidden);

  int (*copyToArrayDescAndHidden) (void* src,
                                   int rank,
                                   F90_DescType kind,
                                   void* dest,
                                   void* hidden
                                   );

  void* (*getArrayBaseAddress ) (const void* desc, int rank);
  unsigned long (*getArraySize) (const void* desc, int rank);

  long          (*getArrayLowerBound) (const void* desc, int rank, int dim);
  unsigned long (*getArrayExtent    ) (const void* desc, int rank, int dim);
  long          (*getArrayStrideMult) (const void* desc, int rank, int dim);

  unsigned long (*getArrayDescSize)   (int rank);

  int (*nullifyArrayDesc) (void* desc, int rank);
  int (*verifyArrayDesc ) (const void* desc, int rank);

  F90_HiddenDescType (*hiddenArrayDescType) (F90_DescType kind);

  char* (*getMangledName) (const char* fun_name, const char* mod_name);

  int  (*printArrayDesc ) (const void* desc, int rank);
  int  (*equalsArrayDesc) (const void* desc2, const void* desc1, int rank);

} F90_CompilerCharacteristics;


int F90_SetCompilerCharacteristics(F90_CompilerCharacteristics* cc,
                                   const char* compiler
                                   );


#ifdef __cplusplus
} /* extern "C" */
#endif

#endif /* _CompilerCharacteristics_h_ */

---