108 lines
3.0 KiB
C
108 lines
3.0 KiB
C
/*
|
|
* Copyright 1987, 1988 by MIT Student Information Processing Board
|
|
*
|
|
* Permission to use, copy, modify, and distribute this software and
|
|
* its documentation for any purpose is hereby granted, provided that
|
|
* the names of M.I.T. and the M.I.T. S.I.P.B. not be used in
|
|
* advertising or publicity pertaining to distribution of the software
|
|
* without specific, written prior permission. M.I.T. and the
|
|
* M.I.T. S.I.P.B. make no representations about the suitability of
|
|
* this software for any purpose. It is provided "as is" without
|
|
* express or implied warranty.
|
|
*/
|
|
|
|
#include "config.h"
|
|
#ifdef HAS_STDLIB_H
|
|
#include <stdlib.h>
|
|
#endif
|
|
#include "ss_internal.h"
|
|
#define size sizeof(ss_data *)
|
|
#ifdef HAVE_DLOPEN
|
|
#include <dlfcn.h>
|
|
#endif
|
|
#include <errno.h>
|
|
|
|
int ss_create_invocation(const char *subsystem_name, const char *version_string,
|
|
void *info_ptr, ss_request_table *request_table_ptr,
|
|
int *code_ptr)
|
|
{
|
|
register int sci_idx;
|
|
register ss_data *new_table;
|
|
register ss_data **table;
|
|
|
|
*code_ptr = 0;
|
|
table = _ss_table;
|
|
new_table = (ss_data *) malloc(sizeof(ss_data));
|
|
|
|
if (table == (ss_data **) NULL) {
|
|
table = (ss_data **) malloc(2 * size);
|
|
table[0] = table[1] = (ss_data *)NULL;
|
|
}
|
|
initialize_ss_error_table ();
|
|
|
|
for (sci_idx = 1; table[sci_idx] != (ss_data *)NULL; sci_idx++)
|
|
;
|
|
table = (ss_data **) realloc((char *)table,
|
|
((unsigned)sci_idx+2)*size);
|
|
if (table == NULL) {
|
|
*code_ptr = ENOMEM;
|
|
free(new_table);
|
|
return 0;
|
|
}
|
|
table[sci_idx+1] = (ss_data *) NULL;
|
|
table[sci_idx] = new_table;
|
|
|
|
new_table->subsystem_name = subsystem_name;
|
|
new_table->subsystem_version = version_string;
|
|
new_table->argv = (char **)NULL;
|
|
new_table->current_request = (char *)NULL;
|
|
new_table->info_dirs = (char **)malloc(sizeof(char *));
|
|
*new_table->info_dirs = (char *)NULL;
|
|
new_table->info_ptr = info_ptr;
|
|
new_table->prompt = malloc((unsigned)strlen(subsystem_name)+4);
|
|
strcpy(new_table->prompt, subsystem_name);
|
|
strcat(new_table->prompt, ": ");
|
|
#ifdef silly
|
|
new_table->abbrev_info = ss_abbrev_initialize("/etc/passwd", code_ptr);
|
|
#else
|
|
new_table->abbrev_info = NULL;
|
|
#endif
|
|
new_table->flags.escape_disabled = 0;
|
|
new_table->flags.abbrevs_disabled = 0;
|
|
new_table->rqt_tables =
|
|
(ss_request_table **) calloc(2, sizeof(ss_request_table *));
|
|
*(new_table->rqt_tables) = request_table_ptr;
|
|
*(new_table->rqt_tables+1) = (ss_request_table *) NULL;
|
|
|
|
new_table->readline_handle = 0;
|
|
new_table->readline_shutdown = 0;
|
|
new_table->readline = 0;
|
|
new_table->add_history = 0;
|
|
new_table->redisplay = 0;
|
|
new_table->rl_completion_matches = 0;
|
|
_ss_table = table;
|
|
#if defined(HAVE_DLOPEN) && defined(SHARED_ELF_LIB)
|
|
ss_get_readline(sci_idx);
|
|
#endif
|
|
return(sci_idx);
|
|
}
|
|
|
|
void
|
|
ss_delete_invocation(int sci_idx)
|
|
{
|
|
register ss_data *t;
|
|
int ignored_code;
|
|
|
|
t = ss_info(sci_idx);
|
|
free(t->prompt);
|
|
free(t->rqt_tables);
|
|
while(t->info_dirs[0] != (char *)NULL)
|
|
ss_delete_info_dir(sci_idx, t->info_dirs[0], &ignored_code);
|
|
free(t->info_dirs);
|
|
#if defined(HAVE_DLOPEN) && defined(SHARED_ELF_LIB)
|
|
if (t->readline_shutdown)
|
|
(*t->readline_shutdown)(t);
|
|
#endif
|
|
free(t);
|
|
}
|