From 464df1d5e5ab1322e2dd0a7796939fff1aeefa9a Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 17:49:25 +0200 Subject: Adding upstream version 1.47.0. Signed-off-by: Daniel Baumann --- lib/ss/request_tbl.c | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 68 insertions(+) create mode 100644 lib/ss/request_tbl.c (limited to 'lib/ss/request_tbl.c') diff --git a/lib/ss/request_tbl.c b/lib/ss/request_tbl.c new file mode 100644 index 0000000..135cb28 --- /dev/null +++ b/lib/ss/request_tbl.c @@ -0,0 +1,68 @@ +/* + * Copyright 1987, 1988 by MIT Student Information Processing Board + * + * Permission to use, copy, modify, and distribute this software and + * its documentation for any purpose is hereby granted, provided that + * the names of M.I.T. and the M.I.T. S.I.P.B. not be used in + * advertising or publicity pertaining to distribution of the software + * without specific, written prior permission. M.I.T. and the + * M.I.T. S.I.P.B. make no representations about the suitability of + * this software for any purpose. It is provided "as is" without + * express or implied warranty. + */ + +#include "config.h" +#ifdef HAVE_ERRNO_H +#include +#endif + +#include "ss_internal.h" + +#define ssrt ss_request_table /* for some readable code... */ + +void ss_add_request_table(int sci_idx, ssrt *rqtbl_ptr, int position, int *code_ptr) +{ + register ss_data *info; + register int i, size; + ssrt **t; + + 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 */ + t = (ssrt **)realloc(info->rqt_tables, (unsigned)size*sizeof(ssrt *)); + if (t == (ssrt **)NULL) { + *code_ptr = errno; + return; + } + info->rqt_tables = t; + 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; +} + +void ss_delete_request_table(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; +} -- cgit v1.2.3