1 /* 2 * Copyright (C) by Argonne National Laboratory 3 * See COPYRIGHT in top-level directory 4 * 5 * DO NOT EDIT: AUTOMATICALLY GENERATED FILE !! 6 */ 7 8 #include <stdio.h> 9 #include <stdlib.h> 10 #include <wchar.h> 11 #include "yaksi.h" 12 #include "yaksu.h" 13 #include "yaksuri_zei.h" 14 #include "yaksuri_zei_populate_pupfns.h" 15 #include "yaksuri_zei_pup.h" 16 yaksuri_zei_populate_pupfns_contig_builtin(yaksi_type_s * type)17int yaksuri_zei_populate_pupfns_contig_builtin(yaksi_type_s * type) 18 { 19 int rc = YAKSA_SUCCESS; 20 yaksuri_zei_type_s *ze = (yaksuri_zei_type_s *) type->backend.ze.priv; 21 22 char *str = getenv("YAKSA_ENV_MAX_NESTING_LEVEL"); 23 int max_nesting_level; 24 if (str) { 25 max_nesting_level = atoi(str); 26 } else { 27 max_nesting_level = YAKSI_ENV_DEFAULT_NESTING_LEVEL; 28 } 29 30 switch (type->u.contig.child->u.builtin.handle) { 31 case YAKSA_TYPE__CHAR: 32 if (max_nesting_level >= 1) { 33 ze->pack = yaksuri_zei_pack_contig_char; 34 ze->unpack = yaksuri_zei_unpack_contig_char; 35 } 36 break; 37 case YAKSA_TYPE__INT: 38 if (max_nesting_level >= 1) { 39 ze->pack = yaksuri_zei_pack_contig_int; 40 ze->unpack = yaksuri_zei_unpack_contig_int; 41 } 42 break; 43 case YAKSA_TYPE__SHORT: 44 if (max_nesting_level >= 1) { 45 ze->pack = yaksuri_zei_pack_contig_short; 46 ze->unpack = yaksuri_zei_unpack_contig_short; 47 } 48 break; 49 case YAKSA_TYPE__LONG: 50 if (max_nesting_level >= 1) { 51 ze->pack = yaksuri_zei_pack_contig_long; 52 ze->unpack = yaksuri_zei_unpack_contig_long; 53 } 54 break; 55 case YAKSA_TYPE__INT8_T: 56 if (max_nesting_level >= 1) { 57 ze->pack = yaksuri_zei_pack_contig_int8_t; 58 ze->unpack = yaksuri_zei_unpack_contig_int8_t; 59 } 60 break; 61 case YAKSA_TYPE__INT16_T: 62 if (max_nesting_level >= 1) { 63 ze->pack = yaksuri_zei_pack_contig_int16_t; 64 ze->unpack = yaksuri_zei_unpack_contig_int16_t; 65 } 66 break; 67 case YAKSA_TYPE__INT32_T: 68 if (max_nesting_level >= 1) { 69 ze->pack = yaksuri_zei_pack_contig_int32_t; 70 ze->unpack = yaksuri_zei_unpack_contig_int32_t; 71 } 72 break; 73 case YAKSA_TYPE__INT64_T: 74 if (max_nesting_level >= 1) { 75 ze->pack = yaksuri_zei_pack_contig_int64_t; 76 ze->unpack = yaksuri_zei_unpack_contig_int64_t; 77 } 78 break; 79 case YAKSA_TYPE__FLOAT: 80 if (max_nesting_level >= 1) { 81 ze->pack = yaksuri_zei_pack_contig_float; 82 ze->unpack = yaksuri_zei_unpack_contig_float; 83 } 84 break; 85 case YAKSA_TYPE__DOUBLE: 86 if (max_nesting_level >= 1) { 87 ze->pack = yaksuri_zei_pack_contig_double; 88 ze->unpack = yaksuri_zei_unpack_contig_double; 89 } 90 break; 91 case YAKSA_TYPE__UNSIGNED_CHAR: 92 if (max_nesting_level >= 1) { 93 ze->pack = yaksuri_zei_pack_contig_char; 94 ze->unpack = yaksuri_zei_unpack_contig_char; 95 } 96 break; 97 case YAKSA_TYPE__UNSIGNED: 98 if (max_nesting_level >= 1) { 99 ze->pack = yaksuri_zei_pack_contig_int; 100 ze->unpack = yaksuri_zei_unpack_contig_int; 101 } 102 break; 103 case YAKSA_TYPE__UNSIGNED_SHORT: 104 if (max_nesting_level >= 1) { 105 ze->pack = yaksuri_zei_pack_contig_short; 106 ze->unpack = yaksuri_zei_unpack_contig_short; 107 } 108 break; 109 case YAKSA_TYPE__UNSIGNED_LONG: 110 if (max_nesting_level >= 1) { 111 ze->pack = yaksuri_zei_pack_contig_long; 112 ze->unpack = yaksuri_zei_unpack_contig_long; 113 } 114 break; 115 case YAKSA_TYPE__LONG_DOUBLE: 116 if (max_nesting_level >= 1) { 117 ze->pack = yaksuri_zei_pack_contig_double; 118 ze->unpack = yaksuri_zei_unpack_contig_double; 119 } 120 break; 121 case YAKSA_TYPE__UNSIGNED_LONG_LONG: 122 if (max_nesting_level >= 1) { 123 ze->pack = yaksuri_zei_pack_contig_long; 124 ze->unpack = yaksuri_zei_unpack_contig_long; 125 } 126 break; 127 case YAKSA_TYPE__UINT8_T: 128 if (max_nesting_level >= 1) { 129 ze->pack = yaksuri_zei_pack_contig_int8_t; 130 ze->unpack = yaksuri_zei_unpack_contig_int8_t; 131 } 132 break; 133 case YAKSA_TYPE__UINT16_T: 134 if (max_nesting_level >= 1) { 135 ze->pack = yaksuri_zei_pack_contig_int16_t; 136 ze->unpack = yaksuri_zei_unpack_contig_int16_t; 137 } 138 break; 139 case YAKSA_TYPE__UINT32_T: 140 if (max_nesting_level >= 1) { 141 ze->pack = yaksuri_zei_pack_contig_int32_t; 142 ze->unpack = yaksuri_zei_unpack_contig_int32_t; 143 } 144 break; 145 case YAKSA_TYPE__UINT64_T: 146 if (max_nesting_level >= 1) { 147 ze->pack = yaksuri_zei_pack_contig_int64_t; 148 ze->unpack = yaksuri_zei_unpack_contig_int64_t; 149 } 150 break; 151 case YAKSA_TYPE__C_COMPLEX: 152 if (max_nesting_level >= 1) { 153 ze->pack = yaksuri_zei_pack_contig_float; 154 ze->unpack = yaksuri_zei_unpack_contig_float; 155 } 156 break; 157 case YAKSA_TYPE__C_DOUBLE_COMPLEX: 158 if (max_nesting_level >= 1) { 159 ze->pack = yaksuri_zei_pack_contig_double; 160 ze->unpack = yaksuri_zei_unpack_contig_double; 161 } 162 break; 163 case YAKSA_TYPE__C_LONG_DOUBLE_COMPLEX: 164 if (max_nesting_level >= 1) { 165 ze->pack = yaksuri_zei_pack_contig_double; 166 ze->unpack = yaksuri_zei_unpack_contig_double; 167 } 168 break; 169 case YAKSA_TYPE__BYTE: 170 if (max_nesting_level >= 1) { 171 ze->pack = yaksuri_zei_pack_contig_int8_t; 172 ze->unpack = yaksuri_zei_unpack_contig_int8_t; 173 } 174 break; 175 default: 176 break; 177 } 178 179 return rc; 180 } 181