104 for (j = 0; j < level; j++)
105 fprintf(file,
"|\t");
107 if (interface != NULL)
108 fprintf(file,
"+-- osl_interface_t: URI = %s\n", interface->
URI);
110 fprintf(file,
"+-- NULL interface\n");
113 while (interface != NULL) {
116 for (j = 0; j < level; j++)
117 fprintf(file,
"|\t");
119 if (interface->
URI != NULL)
120 fprintf(file,
"| osl_interface_t: URI = %s\n", interface->
URI);
122 fprintf(file,
"| osl_interface_t: URI = (NULL)\n");
127 interface = interface->next;
130 if (interface != NULL) {
131 for (j = 0; j <= level + 1; j++)
132 fprintf(file,
"|\t");
134 for (j = 0; j <= level; j++)
135 fprintf(file,
"|\t");
136 fprintf(file,
"V\n");
141 for (j = 0; j <= level; j++)
142 fprintf(file,
"|\t");
180 if (interface != NULL) {
182 check_interface = interface;
183 while (check_interface != NULL) {
184 if (check_interface->URI == NULL)
185 OSL_error(
"no URI in an interface to add to a list");
188 OSL_error(
"only one interface with a given URI is allowed");
189 check_interface = check_interface->next;
193 while (tmp->
next != NULL)
195 tmp->
next = interface;
217 interface->
URI = NULL;
218 interface->
idump = NULL;
220 interface->
sread = NULL;
222 interface->
free = NULL;
223 interface->
clone = NULL;
224 interface->
equal = NULL;
225 interface->
next = NULL;
241 while (interface != NULL) {
242 tmp = interface->
next;
243 if (interface->
URI != NULL)
244 free(interface->
URI);
267 while (interface != NULL) {
269 interface = interface->next;
287 while ((interface != NULL) && ((n == -1) || (i < n))) {
289 OSL_strdup(new->URI, interface->
URI);
290 new->idump = interface->
idump;
291 new->sprint = interface->
sprint;
292 new->sread = interface->
sread;
293 new->malloc = interface->
malloc;
294 new->free = interface->
free;
295 new->clone = interface->
clone;
296 new->equal = interface->
equal;
299 interface = interface->next;
331 if (interface1 == interface2)
334 if (((interface1 == NULL) && (interface2 != NULL)) ||
335 ((interface1 != NULL) && (interface2 == NULL)))
338 if (strcmp(interface1->
URI, interface2->
URI) ||
343 (interface1->
free != interface2->
free) ||
365 OSL_warning(
"lookup for a NULL URI");
368 while (list != NULL) {
369 if ((list->
URI != NULL) && (!strcmp(list->
URI, URI)))
osl_interface_p osl_comment_interface()
osl_interface_p osl_clay_interface()
int osl_interface_equal(osl_interface_p interface1, osl_interface_p interface2)
osl_interface_p osl_symbols_interface()
osl_interface_p osl_interface_nclone(osl_interface_p interface, int n)
void osl_interface_free(osl_interface_p interface)
osl_interface_p osl_dependence_interface()
osl_interface_p osl_interface_malloc()
osl_interface_p osl_interface_clone(osl_interface_p interface)
osl_interface_p osl_textual_interface()
osl_interface_p osl_interface_lookup(osl_interface_p list, char *URI)
osl_interface_p osl_body_interface()
void osl_interface_idump(FILE *file, osl_interface_p interface, int level)
osl_interface_p osl_scatnames_interface()
void osl_interface_add(osl_interface_p *list, osl_interface_p interface)
int osl_interface_number(osl_interface_p interface)
osl_interface_p osl_arrays_interface()
void osl_interface_dump(FILE *file, osl_interface_p interface)
osl_interface_p osl_null_interface()
osl_interface_p osl_strings_interface()
osl_interface_p osl_pluto_unroll_interface()
osl_interface_p osl_extbody_interface()
osl_interface_p osl_interface_get_default_registry()
struct osl_interface * next
osl_interface_p osl_coordinates_interface()
osl_interface_p osl_loop_interface()
osl_interface_p osl_relation_interface()