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)17 int 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