invocation.c revision e46c187aa6ee1ad6f38f0fb9c39da5e2bb6ceeb9
1/* 2 * Copyright 1987, 1988 by MIT Student Information Processing Board 3 * 4 * Permission to use, copy, modify, and distribute this software and 5 * its documentation for any purpose is hereby granted, provided that 6 * the names of M.I.T. and the M.I.T. S.I.P.B. not be used in 7 * advertising or publicity pertaining to distribution of the software 8 * without specific, written prior permission. M.I.T. and the 9 * M.I.T. S.I.P.B. make no representations about the suitability of 10 * this software for any purpose. It is provided "as is" without 11 * express or implied warranty. 12 */ 13 14#include "config.h" 15#ifdef HAS_STDLIB_H 16#include <stdlib.h> 17#endif 18#include "ss_internal.h" 19#define size sizeof(ss_data *) 20#ifdef HAVE_DLOPEN 21#include <dlfcn.h> 22#endif 23#include <errno.h> 24 25int ss_create_invocation(subsystem_name, version_string, info_ptr, 26 request_table_ptr, code_ptr) 27 const char *subsystem_name, *version_string; 28 void *info_ptr; 29 ss_request_table *request_table_ptr; 30 int *code_ptr; 31{ 32 register int sci_idx; 33 register ss_data *new_table; 34 register ss_data **table; 35 36 *code_ptr = 0; 37 table = _ss_table; 38 new_table = (ss_data *) malloc(sizeof(ss_data)); 39 40 if (table == (ss_data **) NULL) { 41 table = (ss_data **) malloc(2 * size); 42 table[0] = table[1] = (ss_data *)NULL; 43 } 44 initialize_ss_error_table (); 45 46 for (sci_idx = 1; table[sci_idx] != (ss_data *)NULL; sci_idx++) 47 ; 48 table = (ss_data **) realloc((char *)table, 49 ((unsigned)sci_idx+2)*size); 50 if (table == NULL) { 51 *code_ptr = errno; 52 return 0; 53 } 54 table[sci_idx+1] = (ss_data *) NULL; 55 table[sci_idx] = new_table; 56 57 new_table->subsystem_name = subsystem_name; 58 new_table->subsystem_version = version_string; 59 new_table->argv = (char **)NULL; 60 new_table->current_request = (char *)NULL; 61 new_table->info_dirs = (char **)malloc(sizeof(char *)); 62 *new_table->info_dirs = (char *)NULL; 63 new_table->info_ptr = info_ptr; 64 new_table->prompt = malloc((unsigned)strlen(subsystem_name)+4); 65 strcpy(new_table->prompt, subsystem_name); 66 strcat(new_table->prompt, ": "); 67#ifdef silly 68 new_table->abbrev_info = ss_abbrev_initialize("/etc/passwd", code_ptr); 69#else 70 new_table->abbrev_info = NULL; 71#endif 72 new_table->flags.escape_disabled = 0; 73 new_table->flags.abbrevs_disabled = 0; 74 new_table->rqt_tables = 75 (ss_request_table **) calloc(2, sizeof(ss_request_table *)); 76 *(new_table->rqt_tables) = request_table_ptr; 77 *(new_table->rqt_tables+1) = (ss_request_table *) NULL; 78 79 new_table->readline_handle = 0; 80 new_table->readline_shutdown = 0; 81 new_table->readline = 0; 82 new_table->add_history = 0; 83 new_table->redisplay = 0; 84 new_table->rl_completion_matches = 0; 85 _ss_table = table; 86#if defined(HAVE_DLOPEN) && defined(SHARED_ELF_LIB) 87 ss_get_readline(sci_idx); 88#endif 89 return(sci_idx); 90} 91 92void 93ss_delete_invocation(sci_idx) 94 int sci_idx; 95{ 96 register ss_data *t; 97 int ignored_code; 98 99 t = ss_info(sci_idx); 100 free(t->prompt); 101 free(t->rqt_tables); 102 while(t->info_dirs[0] != (char *)NULL) 103 ss_delete_info_dir(sci_idx, t->info_dirs[0], &ignored_code); 104 free(t->info_dirs); 105#if defined(HAVE_DLOPEN) && defined(SHARED_ELF_LIB) 106 if (t->readline_shutdown) 107 (*t->readline_shutdown)(t); 108#endif 109 free(t); 110} 111