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 HAVE_ERRNO_H
16 #include <errno.h>
17 #endif
18
19 #include "ss_internal.h"
20
21 #define ssrt ss_request_table /* for some readable code... */
22
ss_add_request_table(int sci_idx,ssrt * rqtbl_ptr,int position,int * code_ptr)23 void ss_add_request_table(int sci_idx, ssrt *rqtbl_ptr, int position, int *code_ptr)
24 {
25 register ss_data *info;
26 register int i, size;
27 ssrt **t;
28
29 info = ss_info(sci_idx);
30 for (size=0; info->rqt_tables[size] != (ssrt *)NULL; size++)
31 ;
32 /* size == C subscript of NULL == #elements */
33 size += 2; /* new element, and NULL */
34 t = (ssrt **)realloc(info->rqt_tables, (unsigned)size*sizeof(ssrt *));
35 if (t == (ssrt **)NULL) {
36 *code_ptr = errno;
37 return;
38 }
39 info->rqt_tables = t;
40 if (position > size - 2)
41 position = size - 2;
42
43 if (size > 1)
44 for (i = size - 2; i >= position; i--)
45 info->rqt_tables[i+1] = info->rqt_tables[i];
46
47 info->rqt_tables[position] = rqtbl_ptr;
48 info->rqt_tables[size-1] = (ssrt *)NULL;
49 *code_ptr = 0;
50 }
51
ss_delete_request_table(int sci_idx,ssrt * rqtbl_ptr,int * code_ptr)52 void ss_delete_request_table(int sci_idx, ssrt *rqtbl_ptr, int *code_ptr)
53 {
54 register ss_data *info;
55 register ssrt **rt1, **rt2;
56
57 *code_ptr = SS_ET_TABLE_NOT_FOUND;
58 info = ss_info(sci_idx);
59 rt1 = info->rqt_tables;
60 for (rt2 = rt1; *rt1; rt1++) {
61 if (*rt1 != rqtbl_ptr) {
62 *rt2++ = *rt1;
63 *code_ptr = 0;
64 }
65 }
66 *rt2 = (ssrt *)NULL;
67 return;
68 }
69