lib/ss/request_tbl.c

   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
  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
  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 }