gcc/fortran/iso-c-binding.def

   1 /* Copyright (C) 2006 Free Software Foundation, Inc.
   2
   3 This file is part of GCC.
   4
   5 GCC is free software; you can redistribute it and/or modify it under
   6 the terms of the GNU General Public License as published by the Free
   7 Software Foundation; either version 2, or (at your option) any later
   8 version.
   9
  10 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  11 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  12 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  13 for more details.
  14
  15 You should have received a copy of the GNU General Public License
  16 along with GCC; see the file COPYING.  If not, write to the Free
  17 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
  18 02110-1301, USA.  */
  19
  20 /* This file contains the definition of the types provided by the
  21    Fortran 2003 ISO_C_BINDING intrinsic module.  */
  22
  23 #ifndef NAMED_INTCST
  24 # define NAMED_INTCST(a,b,c)
  25 #endif
  26
  27 #ifndef NAMED_REALCST
  28 # define NAMED_REALCST(a,b,c)
  29 #endif
  30
  31 #ifndef NAMED_CMPXCST
  32 # define NAMED_CMPXCST(a,b,c)
  33 #endif
  34
  35 #ifndef NAMED_LOGCST
  36 # define NAMED_LOGCST(a,b,c)
  37 #endif
  38
  39 #ifndef NAMED_CHARKNDCST
  40 # define NAMED_CHARKNDCST(a,b,c)
  41 #endif
  42
  43 /* The arguments to NAMED_*CST are:
  44      -- an internal name
  45      -- the symbol name in the module, as seen by Fortran code
  46      -- the value it has, for use in trans-types.c  */
  47
  48 NAMED_INTCST (ISOCBINDING_INT, "c_int", gfc_c_int_kind)
  49 NAMED_INTCST (ISOCBINDING_SHORT, "c_short", \
  50               get_int_kind_from_node (short_integer_type_node))
  51 NAMED_INTCST (ISOCBINDING_LONG, "c_long", \
  52               get_int_kind_from_node (long_integer_type_node))
  53 NAMED_INTCST (ISOCBINDING_LONG_LONG, "c_long_long", \
  54               get_int_kind_from_node (long_long_integer_type_node))
  55
  56 NAMED_INTCST (ISOCBINDING_INTMAX_T, "c_intmax_t", \
  57               get_int_kind_from_node (intmax_type_node))
  58 NAMED_INTCST (ISOCBINDING_INTPTR_T, "c_intptr_t", \
  59               get_int_kind_from_node (ptr_type_node))
  60 NAMED_INTCST (ISOCBINDING_SIZE_T, "c_size_t", \
  61               gfc_index_integer_kind)
  62 NAMED_INTCST (ISOCBINDING_SIGNED_CHAR, "c_signed_char", \
  63               get_int_kind_from_node (signed_char_type_node))
  64
  65 NAMED_INTCST (ISOCBINDING_INT8_T, "c_int8_t", get_int_kind_from_width (8))
  66 NAMED_INTCST (ISOCBINDING_INT16_T, "c_int16_t", get_int_kind_from_width (16))
  67 NAMED_INTCST (ISOCBINDING_INT32_T, "c_int32_t", get_int_kind_from_width (32))
  68 NAMED_INTCST (ISOCBINDING_INT64_T, "c_int64_t", get_int_kind_from_width (64))
  69
  70 NAMED_INTCST (ISOCBINDING_INT_LEAST8_T, "c_int_least8_t", \
  71               get_int_kind_from_minimal_width (8))
  72 NAMED_INTCST (ISOCBINDING_INT_LEAST16_T, "c_int_least16_t", \
  73               get_int_kind_from_minimal_width (16))
  74 NAMED_INTCST (ISOCBINDING_INT_LEAST32_T, "c_int_least32_t", \
  75               get_int_kind_from_minimal_width (32))
  76 NAMED_INTCST (ISOCBINDING_INT_LEAST64_T, "c_int_least64_t", \
  77               get_int_kind_from_minimal_width (64))
  78
  79 /* TODO: Implement c_int_fast*_t. Depends on PR 448.  */
  80 NAMED_INTCST (ISOCBINDING_INT_FAST8_T, "c_int_fast8_t", -2)
  81 NAMED_INTCST (ISOCBINDING_INT_FAST16_T, "c_int_fast16_t", -2)
  82 NAMED_INTCST (ISOCBINDING_INT_FAST32_T, "c_int_fast32_t", -2)
  83 NAMED_INTCST (ISOCBINDING_INT_FAST64_T, "c_int_fast64_t", -2)
  84
  85 NAMED_REALCST (ISOCBINDING_FLOAT, "c_float", \
  86                get_real_kind_from_node (float_type_node))
  87 NAMED_REALCST (ISOCBINDING_DOUBLE, "c_double", \
  88                get_real_kind_from_node (double_type_node))
  89 NAMED_REALCST (ISOCBINDING_LONG_DOUBLE, "c_long_double", \
  90                get_real_kind_from_node (long_double_type_node))
  91 NAMED_CMPXCST (ISOCBINDING_FLOAT_COMPLEX, "c_float_complex", \
  92                get_real_kind_from_node (float_type_node))
  93 NAMED_CMPXCST (ISOCBINDING_DOUBLE_COMPLEX, "c_double_complex", \
  94                get_real_kind_from_node (double_type_node))
  95 NAMED_CMPXCST (ISOCBINDING_LONG_DOUBLE_COMPLEX, "c_long_double_complex", \
  96                get_real_kind_from_node (long_double_type_node))
  97
  98 NAMED_LOGCST (ISOCBINDING_BOOL, "c_bool", \
  99               get_int_kind_from_width (BOOL_TYPE_SIZE))
 100
 101 NAMED_CHARKNDCST (ISOCBINDING_CHAR, "c_char", gfc_default_character_kind)
 102
 103 #ifndef NAMED_CHARCST
 104 # define NAMED_CHARCST(a,b,c)
 105 #endif
 106
 107 /* Use langhooks to deal with host to target translations.  */
 108 NAMED_CHARCST (ISOCBINDING_NULL_CHAR, "c_null_char", \
 109                lang_hooks.to_target_charset ('\0'))
 110 NAMED_CHARCST (ISOCBINDING_ALERT, "c_alert", \
 111                lang_hooks.to_target_charset ('\a'))
 112 NAMED_CHARCST (ISOCBINDING_BACKSPACE, "c_backspace", \
 113                lang_hooks.to_target_charset ('\b'))
 114 NAMED_CHARCST (ISOCBINDING_FORM_FEED, "c_form_feed", \
 115                lang_hooks.to_target_charset ('\f'))
 116 NAMED_CHARCST (ISOCBINDING_NEW_LINE, "c_new_line", \
 117                lang_hooks.to_target_charset ('\n'))
 118 NAMED_CHARCST (ISOCBINDING_CARRIAGE_RETURN, "c_carriage_return", \
 119                lang_hooks.to_target_charset ('\r'))
 120 NAMED_CHARCST (ISOCBINDING_HORIZONTAL_TAB, "c_horizontal_tab", \
 121                lang_hooks.to_target_charset ('\t'))
 122 NAMED_CHARCST (ISOCBINDING_VERTICAL_TAB, "c_vertical_tab", \
 123                lang_hooks.to_target_charset ('\v'))
 124
 125 #ifndef DERIVED_TYPE
 126 # define DERIVED_TYPE(a,b,c)
 127 #endif
 128
 129 DERIVED_TYPE (ISOCBINDING_PTR, "c_ptr", \
 130               get_int_kind_from_node (ptr_type_node))
 131 DERIVED_TYPE (ISOCBINDING_NULL_PTR, "c_null_ptr", \
 132               get_int_kind_from_node (ptr_type_node))
 133 DERIVED_TYPE (ISOCBINDING_FUNPTR, "c_funptr", \
 134               get_int_kind_from_node (ptr_type_node))
 135 DERIVED_TYPE (ISOCBINDING_NULL_FUNPTR, "c_null_funptr", \
 136               get_int_kind_from_node (ptr_type_node))
 137
 138
 139 #ifndef PROCEDURE
 140 # define PROCEDURE(a,b)
 141 #endif
 142
 143 PROCEDURE (ISOCBINDING_F_POINTER, "c_f_pointer")
 144 PROCEDURE (ISOCBINDING_ASSOCIATED, "c_associated")
 145 PROCEDURE (ISOCBINDING_LOC, "c_loc")
 146 PROCEDURE (ISOCBINDING_FUNLOC, "c_funloc")
 147
 148 /* Insert c_f_procpointer, though unsupported for now.  */
 149 PROCEDURE (ISOCBINDING_F_PROCPOINTER, "c_f_procpointer")
 150
 151 #undef NAMED_INTCST
 152 #undef NAMED_REALCST
 153 #undef NAMED_CMPXCST
 154 #undef NAMED_LOGCST
 155 #undef NAMED_CHARCST
 156 #undef NAMED_CHARKNDCST
 157 #undef DERIVED_TYPE
 158 #undef PROCEDURE