osl/source/names.c

5      **                      extensions/names.c                         **
69 #include <osl/names.h>
79  * this function displays an osl_names_t structure (*names) into a
84  * \param[in] names The names structure whose information has to be printed.
87 void osl_names_idump(FILE * file, osl_names_p names, int level) {
94   if (names != NULL)
97     fprintf(file, "+-- NULL names\n");
99   if (names != NULL) {
105     // Print the various names.
106     osl_strings_idump(file, names->parameters, level + 1);
107     osl_strings_idump(file, names->iterators,  level + 1);
108     osl_strings_idump(file, names->scatt_dims, level + 1);
109     osl_strings_idump(file, names->local_dims, level + 1);
110     osl_strings_idump(file, names->arrays,     level + 1);
123  * (*names) into a file (file, possibly stdout).
125  * \param[in] names The names structure whose information has to be printed.
127 void osl_names_dump(FILE * file, osl_names_p names) {
128   osl_names_idump(file, names, 0);
147  * \return A pointer to an empty names structure with fields set to
151   osl_names_p names;
153   OSL_malloc(names, osl_names_p, sizeof(osl_names_t));
154   names->parameters = NULL;
155   names->iterators  = NULL;
156   names->scatt_dims = NULL;
157   names->local_dims = NULL;
158   names->arrays     = NULL;
160   return names;
167  * structure. If the names are not character strings, it is the
170  * \param[in,out] names The pointer to the names structure we want to free.
172 void osl_names_free(osl_names_p names) {
173   if (names != NULL) {
174     osl_strings_free(names->parameters);
175     osl_strings_free(names->iterators);
176     osl_strings_free(names->scatt_dims);
177     osl_strings_free(names->local_dims);
178     osl_strings_free(names->arrays);
180     free(names);
192  * this function generates some names. For each kind of name it will generate
193  * a given number of names with a given prefix followed by a number.
194  * \param[in] parameter_prefix Prefix for parameter names.
195  * \param[in] nb_parameters    Number of parameters names to generate.
196  * \param[in] iterator_prefix  Prefix for iterator names.
197  * \param[in] nb_iterators     Number of iterators names to generate.
198  * \param[in] scatt_dim_prefix Prefix for scattering dimension names.
199  * \param[in] nb_scatt_dims    Number of scattering dim names to generate.
200  * \param[in] local_dim_prefix Prefix for local dimension names.
201  * \param[in] nb_local_dims    Number of local dimension names to generate.
202  * \param[in] array_prefix     Prefix for array names.
203  * \param[in] nb_arrays        Number of array names to generate.
204  * \return A new names structure containing generated names.
212   osl_names_p names = osl_names_malloc();
214   names->parameters= osl_strings_generate(parameter_prefix,nb_parameters);
215   names->iterators = osl_strings_generate(iterator_prefix, nb_iterators);
216   names->scatt_dims= osl_strings_generate(scatt_dim_prefix,nb_scatt_dims);
217   names->local_dims= osl_strings_generate(local_dim_prefix,nb_local_dims);
218   names->arrays    = osl_strings_generate(array_prefix,    nb_arrays);
220   return names;
227  * \param[in] names The pointer to the names structure we want to clone.
228  * \return A pointer to the clone of the names structure provided as parameter.
230 osl_names_p osl_names_clone(osl_names_p names) {
233   if (names != NULL) {
235     clone->parameters = osl_strings_clone(names->parameters);
236     clone->iterators  = osl_strings_clone(names->iterators);
237     clone->scatt_dims = osl_strings_clone(names->scatt_dims);
238     clone->local_dims = osl_strings_clone(names->local_dims);
239     clone->arrays     = osl_strings_clone(names->arrays);