46 struct interp  struct
53   struct interp *next;  argument
83 static struct interp *interp_list = NULL;  argument
84 static struct interp *current_interpreter = NULL;
91 struct interp *
95   struct interp *new_interp;  in interp_new()
97   new_interp = XMALLOC (struct interp);  in interp_new()
112 interp_add (struct interp *interp)  in interp_add()  argument
117   gdb_assert (interp_lookup (interp->name) == NULL);  in interp_add()
119   interp->next = interp_list;  in interp_add()
120   interp_list = interp;  in interp_add()
130 interp_set (struct interp *interp)  in interp_set()  argument
132   struct interp *old_interp = current_interpreter;  in interp_set()
155   current_interpreter = interp;  in interp_set()
167   uiout = interp->interpreter_out;  in interp_set()
171   if (!interp->inited)  in interp_set()
173       if (interp->procs->init_proc != NULL)  in interp_set()
175 	  interp->data = interp->procs->init_proc ();  in interp_set()
177       interp->inited = 1;  in interp_set()
183   if (interp->procs->resume_proc != NULL  in interp_set()
184       && (!interp->procs->resume_proc (interp->data)))  in interp_set()
189 			interp->name, "and could not restore old interp!\n");  in interp_set()
199       if (!interp_quiet_p (interp))  in interp_set()
202 		   interp->name);  in interp_set()
214 struct interp *
217   struct interp *interp;  in interp_lookup()  local
222   for (interp = interp_list; interp != NULL; interp = interp->next)  in interp_lookup()
224       if (strcmp (interp->name, name) == 0)  in interp_lookup()
225 	return interp;  in interp_lookup()
234 interp_ui_out (struct interp *interp)  in interp_ui_out()  argument
236   if (interp != NULL)  in interp_ui_out()
237     return interp->interpreter_out;  in interp_ui_out()
283 interp_quiet_p (struct interp *interp)  in interp_quiet_p()  argument
285   if (interp != NULL)  in interp_quiet_p()
286     return interp->quiet_p;  in interp_quiet_p()
292 interp_set_quiet (struct interp *interp, int quiet)  in interp_set_quiet()  argument
294   int old_val = interp->quiet_p;  in interp_set_quiet()
295   interp->quiet_p = quiet;  in interp_set_quiet()
302 interp_exec_p (struct interp *interp)  in interp_exec_p()  argument
304   return interp->procs->exec_proc != NULL;  in interp_exec_p()
308 interp_exec (struct interp *interp, const char *command_str)  in interp_exec()  argument
310   if (interp->procs->exec_proc != NULL)  in interp_exec()
312       return interp->procs->exec_proc (interp->data, command_str);  in interp_exec()
361   struct interp *old_interp, *interp_to_use;  in interpreter_exec_cmd()
423   struct interp *interp;  in interpreter_completer()  local
427   for (interp = interp_list; interp != NULL; interp = interp->next)  in interpreter_completer()
433   for (interp = interp_list; interp != NULL; interp = interp->next)  in interpreter_completer()
435       if (strncmp (interp->name, text, textlen) == 0)  in interpreter_completer()
438 	    (char *) xmalloc (strlen (word) + strlen (interp->name) + 1);  in interpreter_completer()
440 	    strcpy (matches[num_matches], interp->name);  in interpreter_completer()
444 	      strcpy (matches[num_matches], interp->name + (word - text));  in interpreter_completer()
451 	      strcat (matches[num_matches], interp->name);  in interpreter_completer()