64 lines
1.5 KiB
C
64 lines
1.5 KiB
C
/*
|
|
* Copyright 1987, 1988 by MIT Student Information Processing Board
|
|
*
|
|
* For copyright information, see copyright.h.
|
|
*/
|
|
|
|
#include "copyright.h"
|
|
#include "ss_internal.h"
|
|
|
|
#define ssrt ss_request_table /* for some readable code... */
|
|
|
|
ss_add_request_table(sci_idx, rqtbl_ptr, position, code_ptr)
|
|
int sci_idx;
|
|
ssrt *rqtbl_ptr;
|
|
int position; /* 1 -> becomes second... */
|
|
int *code_ptr;
|
|
{
|
|
register ss_data *info;
|
|
register int i, size;
|
|
|
|
info = ss_info(sci_idx);
|
|
for (size=0; info->rqt_tables[size] != (ssrt *)NULL; size++)
|
|
;
|
|
/* size == C subscript of NULL == #elements */
|
|
size += 2; /* new element, and NULL */
|
|
info->rqt_tables = (ssrt **)realloc((char *)info->rqt_tables,
|
|
(unsigned)size*sizeof(ssrt));
|
|
if (info->rqt_tables == (ssrt **)NULL) {
|
|
*code_ptr = errno;
|
|
return;
|
|
}
|
|
if (position > size - 2)
|
|
position = size - 2;
|
|
|
|
if (size > 1)
|
|
for (i = size - 2; i >= position; i--)
|
|
info->rqt_tables[i+1] = info->rqt_tables[i];
|
|
|
|
info->rqt_tables[position] = rqtbl_ptr;
|
|
info->rqt_tables[size-1] = (ssrt *)NULL;
|
|
*code_ptr = 0;
|
|
}
|
|
|
|
ss_delete_request_table(sci_idx, rqtbl_ptr, code_ptr)
|
|
int sci_idx;
|
|
ssrt *rqtbl_ptr;
|
|
int *code_ptr;
|
|
{
|
|
register ss_data *info;
|
|
register ssrt **rt1, **rt2;
|
|
|
|
*code_ptr = SS_ET_TABLE_NOT_FOUND;
|
|
info = ss_info(sci_idx);
|
|
rt1 = info->rqt_tables;
|
|
for (rt2 = rt1; *rt1; rt1++) {
|
|
if (*rt1 != rqtbl_ptr) {
|
|
*rt2++ = *rt1;
|
|
*code_ptr = 0;
|
|
}
|
|
}
|
|
*rt2 = (ssrt *)NULL;
|
|
return;
|
|
}
|