94 for (j = 0; j < level; j++)
98 fprintf(file,
"+-- osl_body_t\n");
101 for (j = 0; j <= level+1; j++)
102 fprintf(file,
"|\t");
112 fprintf(file,
"+-- NULL body\n");
116 for (j = 0; j <= level; j++)
117 fprintf(file,
"|\t");
146 fprintf(file,
"# Number of original iterators\n");
147 fprintf(file,
"%d\n", nb_iterators);
149 if (nb_iterators > 0) {
150 fprintf(file,
"\n# List of original iterators\n");
154 fprintf(file,
"\n# Statement body expression\n");
158 fprintf(file,
"# NULL statement body\n");
176 if (nb_iterators > 0) {
177 fprintf(file,
"# List of original iterators\n");
180 fprintf(file,
"fakeiter\n");
183 fprintf(file,
"# Statement body expression\n");
187 fprintf(file,
"# NULL statement body\n");
201 int high_water_mark = OSL_MAX_STRING;
202 char *
string = NULL;
203 char buffer[OSL_MAX_STRING];
204 char * iterators, * expression;
206 OSL_malloc(
string,
char *, high_water_mark *
sizeof(
char));
211 sprintf(buffer,
"# Number of original iterators\n%d\n", nb_iterators);
214 if (nb_iterators > 0) {
215 sprintf(buffer,
"# List of original iterators\n");
222 sprintf(buffer,
"# Statement body expression\n");
229 sprintf(buffer,
"# NULL body\n");
267 if (nb_iterators > 0) {
364 if (((b1 != NULL) && (b2 == NULL)) ||
365 ((b1 == NULL) && (b2 != NULL))) {
366 OSL_info(
"bodies are not the same");
371 OSL_info(
"body iterators are not the same");
376 OSL_info(
"body expressions are not the same");
393 OSL_strdup(interface->URI, OSL_URI_BODY);
osl_strings_p osl_strings_malloc()
void *(* osl_clone_f)(void *)
osl_strings_p osl_strings_clone(osl_strings_p strings)
void osl_body_print(FILE *file, osl_body_p body)
char * osl_body_sprint(osl_body_p body)
osl_interface_p osl_interface_malloc()
osl_body_p osl_body_malloc()
void osl_body_print_scoplib(FILE *file, osl_body_p body)
osl_interface_p osl_body_interface()
void *(* osl_sread_f)(char **)
osl_strings_p osl_strings_sread(char **input)
void osl_strings_idump(FILE *file, osl_strings_p strings, int level)
void osl_util_safe_strcat(char **dst, char *src, int *hwm)
size_t osl_strings_size(osl_const_strings_const_p strings)
void(* osl_idump_f)(FILE *, void *, int)
osl_body_p osl_body_sread(char **input)
void osl_body_idump(FILE *file, osl_body_p body, int level)
osl_strings_p osl_strings_encapsulate(char *string)
int osl_util_read_int(FILE *file, char **str)
char *(* osl_sprint_f)(void *)
void osl_strings_print(FILE *file, osl_strings_p strings)
char * osl_strings_sprint(osl_strings_p strings)
void osl_strings_free(osl_strings_p strings)
int osl_body_equal(osl_body_p b1, osl_body_p b2)
int osl_strings_equal(osl_strings_p s1, osl_strings_p s2)
int(* osl_equal_f)(void *, void *)
char * osl_util_read_line(FILE *file, char **str)
osl_body_p osl_body_clone(osl_body_p body)
void osl_body_free(osl_body_p body)
void osl_body_dump(FILE *file, osl_body_p body)
void(* osl_free_f)(void *)