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
ss_create_invocation(const char * subsystem_name,const char * version_string,void * info_ptr,ss_request_table * request_table_ptr,int * code_ptr)25 int ss_create_invocation(const char *subsystem_name, const char *version_string,
26 void *info_ptr, ss_request_table *request_table_ptr,
27 int *code_ptr)
28 {
29 register int sci_idx;
30 register ss_data *new_table;
31 register ss_data **table;
32
33 *code_ptr = 0;
34 table = _ss_table;
35 new_table = (ss_data *) malloc(sizeof(ss_data));
36
37 if (table == (ss_data **) NULL) {
38 table = (ss_data **) malloc(2 * size);
39 table[0] = table[1] = (ss_data *)NULL;
40 }
41 initialize_ss_error_table ();
42
43 for (sci_idx = 1; table[sci_idx] != (ss_data *)NULL; sci_idx++)
44 ;
45 table = (ss_data **) realloc((char *)table,
46 ((unsigned)sci_idx+2)*size);
47 if (table == NULL) {
48 *code_ptr = ENOMEM;
49 free(new_table);
50 return 0;
51 }
52 table[sci_idx+1] = (ss_data *) NULL;
53 table[sci_idx] = new_table;
54
55 new_table->subsystem_name = subsystem_name;
56 new_table->subsystem_version = version_string;
57 new_table->argv = (char **)NULL;
58 new_table->current_request = (char *)NULL;
59 new_table->info_dirs = (char **)malloc(sizeof(char *));
60 *new_table->info_dirs = (char *)NULL;
61 new_table->info_ptr = info_ptr;
62 new_table->prompt = malloc((unsigned)strlen(subsystem_name)+4);
63 strcpy(new_table->prompt, subsystem_name);
64 strcat(new_table->prompt, ": ");
65 #ifdef silly
66 new_table->abbrev_info = ss_abbrev_initialize("/etc/passwd", code_ptr);
67 #else
68 new_table->abbrev_info = NULL;
69 #endif
70 new_table->flags.escape_disabled = 0;
71 new_table->flags.abbrevs_disabled = 0;
72 new_table->rqt_tables =
73 (ss_request_table **) calloc(2, sizeof(ss_request_table *));
74 *(new_table->rqt_tables) = request_table_ptr;
75 *(new_table->rqt_tables+1) = (ss_request_table *) NULL;
76
77 new_table->readline_handle = 0;
78 new_table->readline_shutdown = 0;
79 new_table->readline = 0;
80 new_table->add_history = 0;
81 new_table->redisplay = 0;
82 new_table->rl_completion_matches = 0;
83 _ss_table = table;
84 #if defined(HAVE_DLOPEN) && defined(SHARED_ELF_LIB)
85 ss_get_readline(sci_idx);
86 #endif
87 return(sci_idx);
88 }
89
90 void
ss_delete_invocation(int sci_idx)91 ss_delete_invocation(int sci_idx)
92 {
93 register ss_data *t;
94 int ignored_code;
95
96 t = ss_info(sci_idx);
97 free(t->prompt);
98 free(t->rqt_tables);
99 while(t->info_dirs[0] != (char *)NULL)
100 ss_delete_info_dir(sci_idx, t->info_dirs[0], &ignored_code);
101 free(t->info_dirs);
102 #if defined(HAVE_DLOPEN) && defined(SHARED_ELF_LIB)
103 if (t->readline_shutdown)
104 (*t->readline_shutdown)(t);
105 #endif
106 free(t);
107 }
108