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